* (F$W1)                HACHTI-NACHBAU                           REV.A
*
*
*  
*
* PROGRAM TITLE: F$W1
*                OUTPUT BCD ON ASR
*
*
*
*  USE
*
*    CALLING SEQUENCE
*
*          CALL F$W1
*          DAC  N         WHERE N IS THE LOCATION OF THE FORMAT
*                         DESCRIPTOR LIST
*
	SUBR	F$W1,FW1
	REL
FW1	DAC	**
	CALL	F$IO
FW1A	DAC	**
	LDA*	FW1A
	STA	FW1H
	LDA*	FW1H
*
	LRL	8
	CAS	='261
	JMP	FW1B
	JMP	FW1C
	CAS	*+1
	OCT	260
	JMP	FW1D
	CAS	='255
	JMP	FW1B
	JMP	FW1F
	CAS	='253
	JMP	FW1B
	JMP	FW1F
FW1B	JST	FW1J
	JMP	FW1G
FW1C	JST	FW1J
	CAS	=-60
	JMP	FW1C
	JMP	FW1F
	JMP	FW1C
FW1D	JST	FW1J
FW1E	JST	FW1J
FW1F	LDA*	FW1H
	ANA	='377
	ERA	='120000
	STA*	FW1H
FW1G	CALL	O$AC
	CALL 	O$AP
FW1H	***	**
	IRS	FW1A
	JMP*	FW1A
FW1J	DAC	**
	CALL	O$AF
	IRS	CNTR
	JMP*	FW1J
	LDA	=-17
	STA	CNTR
*
FW1K	CALL	O$AF
	IRS	CNTR
	JMP	FW1K
	LDA	=-60
	STA	CNTR
	JMP*	FW1J
CNTR	OCT	-60
FW1L	LDA	='377
	LLL	8
	STA*	FW1H
	JMP	FW1G+1
	END