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

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