[h316.git] / lib / fortran / src / f$w4.asm

* (F$W4)       REBUILD 1
*
*  
*
* 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$LC	CARRIAGE RETURN ONLY
	CALL 	O$LP	OUTPUT ONE LINE OF INFORMATION
FW4H	***	**
	IRS	FW4A
	JMP*	FW4A
FW4J	DAC	**
	CALL	O$PF	LF ONLY
	IRS	CNTR
	JMP*	FW4J
	LDA	=-17
	STA	CNTR
*
FW4K	CALL	O$PF	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
Commit	Line	Data
c08e22bb	1	* (F$W4) REBUILD 1
	2	*
	3	*
	4	*
	5	* PROGRAM TITLE: F$W4
	6	* OUTPUT BCD ON LINE PRINTER
	7	*
	8	*
	9	*
	10	* USE
	11	*
	12	* CALLING SEQUENCE
	13	*
	14	* CALL F$W4
	15	* DAC N WHERE N IS THE LOCATION OF THE FORMAT
	16	* DESCRIPTOR LIST
	17	*
	18	SUBR F$W4,FW4
	19	*
	20	*
	21	*
	22	REL
	23	FW4 DAC **
	24	CALL F$IO
	25	FW4A DAC **
	26	LDA* FW4A
	27	STA FW4H
	28	LDA* FW4H
	29	*
	30	LRL 8
	31	CAS ='261
	32	JMP FW4B
	33	JMP FW4C
	34	CAS *+1
	35	OCT 260
	36	JMP FW4D
	37	CAS ='255
	38	JMP FW4B
	39	JMP FW4F
	40	CAS ='253
	41	JMP FW4B
	42	JMP FW4F
	43	FW4B JST FW4J
	44	JMP FW4G
	45	FW4C JST FW4J
	46	CAS =-60
	47	JMP FW4C
	48	JMP FW4F
	49	JMP FW4C
	50	FW4D JST FW4J
	51	FW4E JST FW4J
	52	FW4F LDA* FW4H
	53	ANA ='377
	54	ERA ='120000
	55	STA* FW4H
	56	FW4G CALL O$LC CARRIAGE RETURN ONLY
	57	CALL O$LP OUTPUT ONE LINE OF INFORMATION
	58	FW4H *
	59	IRS FW4A
	60	JMP* FW4A
	61	FW4J DAC **
	62	CALL O$PF LF ONLY
	63	IRS CNTR
	64	JMP* FW4J
65	LDA =-17
66	STA CNTR
67	*
68	FW4K CALL O$PF LF ONLY
69	IRS CNTR
70	JMP FW4K
71	LDA =-60
72	STA CNTR
73	JMP* FW4J
74	CNTR OCT -60
75	FW4L LDA ='377
76	LLL 8
77	STA* FW4H
78	JMP FW4G+1
79	END