* (F$W4)       REBUILD 2
*
*  
* DATE: 27.05.2005
*
* PROGRAM TITLE: F$W4
*                OUTPUT BCD ON LINE PRINTER
*
*
*
*  USE
*
*    CALLING SEQUENCE
*
*          CALL F$W4
*          DAC  N         WHERE N IS THE LOCATION OF THE FORMAT
*                         DESCRIPTOR LIST
*
	SUBR	F$W4,FW4
*
*
*
	REL
FW4	DAC	**
	CALL	F$IO
FW4A	DAC	**
	LDA*	FW4A
	STA	FW4H
	LDA*	FW4H
*
	LRL	8
	CAS	='261
	JMP	FW4B
	JMP	FW4C
	CAS	*+1
	OCT	260
	JMP	FW4D
	CAS	='255
	JMP	FW4B
	JMP	FW4F
	CAS	='253
	JMP	FW4B
	JMP	FW4F
FW4B	JST	FW4J
	JMP	FW4G
FW4C	JST	FW4J
	CAS	=-60
	JMP	FW4C
	JMP	FW4F
	JMP	FW4C
FW4D	JST	FW4J
FW4E	JST	FW4J
FW4F	LDA*	FW4H
	ANA	='377
	ERA	='120000
	STA*	FW4H
FW4G	CALL 	O$LP	OUTPUT ONE LINE OF INFORMATION
FW4H	***	**
	CALL	O$LC	CARRIAGE RETURN ONLY
	CALL 	O$LF
	IRS	FW4A
	JMP*	FW4A
FW4J	DAC	**
*	CALL	O$LF	LF ONLY
	IRS	CNTR
	JMP*	FW4J
	LDA	=-17
	STA	CNTR
*
FW4K	CALL	O$LF	LF ONLY
	IRS	CNTR
	JMP	FW4K
	LDA	=-60
	STA	CNTR
	JMP*	FW4J
CNTR	OCT	-60
FW4L	LDA	='377
	LLL	8
	STA*	FW4H
	JMP	FW4G+1
	END