[h316.git] / lib / iolib / src / o$pl.asm

*    (O$PL)     
*
*  
* COMPUTER:   H316
*   
* PROGRAM CATEGORY:  I/O LIBRARY
*    
* PROGRAM TITLE:  O$PL (O$PH) 
*                 PAPER TAPE LISTING ROUTINES
*
* REVISIONS: 
*            1.0 (2005-02.04)
*
* AUTHOR
*
*    PHILIPP HACHTMANN
*
*
* PURPOSE
*
*    PUT LISTINGS ONTO PAPER TAPE. USAGE LIKE O$LA AND O$LH
*
*
* STORAGE
*
*    266 (OCTAL)
*    182 (DECIMAL)
*
*
* USE
*
*    THE LIBRARY ROUTINES ARE FOR GENERAL PURPOSE.
*
**********************************************************************
	SUBR	O$PL	TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
	SUBR	O$PH	INITIALISE HEADING
	SUBR	O$PP,T1 TYPE  A LINE, NO CR
	SUBR	O$PC,T20	RETURN THE CARRIAGE
	SUBR	O$PF,T30	ADVANCE TO NEXT LINE
	SUBR	O$PE,SNP	PUNCH FORM FEED
*
	SUBR	O$P1,HDS	EMPTY LINES BETWEEN TOP OF PAGE AND HEADING
	SUBR	O$P2,SPC	EMPTY LINES BETWEEN HEADING AND MAIN TEXT
	SUBR	O$P3,PGS	PURE TEXT LINES PER PAGE
**********************************************************************	
	REL		RELOCATABLE
*********************************************
* CONFIGURATION
HDS	DEC	1	EMPTY LINES BEFORE HEADING
SPC	DEC	5	EMPTY LINES BETWEEN HEADING AND TEXT
PGS	DEC	50	DATA LINES PER PAGE (WITHOUT HEADING ETC.)
*      
*
O$PL	DAC	**
	LDA*	O$PL	BUFFER ADDRESS
	STA	BUF1	STORE FOR LATER USE
	OCP	2	ACTIVATE PUNCH
	IRS	LINE	COUNT DOWN LEFT LINES ON PAGE
	JMP	PGOK	NO NEW PAGE
	LDA	=12	FORM FEED
	OTA	2	SEND FORMFEED
	JMP	*-1	WAIT
	JST	NP	NEW PAGE REQUIRED
PGOK	JST	T1	PRINT THE LINE
BUF1	DAC	**	ADDRESS OF LINE BUFFER	
	JST	T20	CARRIAGE RETURN
	JST	T30	LINE FEED
	IRS	O$PL	MAKE RETURN ADDRESS
	JMP*	O$PL	RETURN
*
*
O$PH	DAC	**	INIT HEADING
	LDA*	O$PH	
	STA	P1	POINTER TO SOURCE
	LDA	HBUP
	STA	P2	POINTER TO TARGET
	LDA	=-60	LINE LENGTH
	STA	CNT
HL1	LDA*	P1
	STA*	P2
	IRS	P1
	IRS	P2
	IRS	CNT	READY?
	JMP	HL1	NO
	JST	NP	INIT PAGE
	IRS	O$PH	ADJUST ADDRESS
	JMP*	O$PH	RETURN
**********************************************++
*
NP	DAC	**	PREPARE NEW PAGE
	LDA	PGS	LOAD LINES PER PAGE
	TCA		NEGATE
	STA	LINE	STORE PAGE COUNTER
	LDA	HDS
	SNZ
	JMP	NHDS	NO SPACE BEFORE HEADING
	TCA
	STA	CNT
S1	JST	T30
	IRS	CNT
	JMP	S1
NHDS	JST	T1	TYPE HBUF
HBUP	DAC	HBUF	ADDRESS OF HEADER BUFFER
	JST	T20	CARRIAGE RETURN
	LDA	SPC	NUMBER OF SPACES BEFORE TEXT
	TCA		NEGATE
	STA	CNT	TO COUNTER
SP1	JST	T30	LINE FEED
	IRS	CNT	DEC COUNTER, SKIP IF READY
	JMP	SP1	NOT READY
	JMP*	NP
*
***********************************++
*
**** FORM FEED ROUTINE
SNP	LDA	=-1
	STA	LINE
	OCP	2	ACTIVATE PUNCH
	LDA	=12	FORM FEED
	OTA	2	SEND FORMFEED
	JMP	*-1	WAIT
	JMP*	SNP	RETURN
********
*
*
CNT	DEC	0
HBUF	BCI	20,
	BCI	20,
	BCI	20,
P1	DEC	0	POINTER 1	
P2	DEC	0	POINTER 2
LINE	DEC	-40	NEG LINES LEFT ON PAGE
*
*
************************************************************
*
*** AB HIER ABGESCHRIEBENER CODE!
T1	DAC	**
	LDA*	T1
	ADD	T5
	STA	T6
	IRS	T1
	LDA	=-60
	STA	0
T3	LDA*	T6
	CAS	='120240
	JMP	*+2
*
	JMP	T8
T4	JST	T14
	IRS	0
	JMP	T3
	JMP*	T1
T5	DAC	60,1
T6	***	**
*
T8	LDA	0
	STA	T12
T10	IRS	0
	JMP	*+2
	JMP*	T1
	LDA*	T6
	CAS	='120240
	JMP	*+2
	JMP	T10
	LDA	T12
	STA	0
	LDA	='120240
	JMP	T4
T12	***	**
*
T14	DAC	**
	OCP	2	ACTIVATE PUNCH
	NOP
	NOP
	LRL	8
	OTA	2
	JMP	*-1
	LLL	8
	OTA	2
	JMP	*-1
	JMP*	T14
*
*
**************************************************
*
T20	DAC	**
	LDA	='6400	CR+NULL
	JST	T14
	JMP*	T20
*
**************************************************
*
T30	DAC	**
	LDA	='5000	LF+NULL
	JST	T14
	JMP*	T30
*
	FIN		WRITE OUT LITERALS
*
* PUH.....
*
	END
Commit	Line	Data
c08e22bb	1	* (O$PL)
	2	*
	3	*
	4	* COMPUTER: H316
	5	*
	6	* PROGRAM CATEGORY: I/O LIBRARY
	7	*
	8	* PROGRAM TITLE: O$PL (O$PH)
	9	* PAPER TAPE LISTING ROUTINES
	10	*
	11	* REVISIONS:
	12	* 1.0 (2005-02.04)
	13	*
	14	* AUTHOR
	15	*
	16	* PHILIPP HACHTMANN
	17	*
	18	*
	19	* PURPOSE
	20	*
	21	* PUT LISTINGS ONTO PAPER TAPE. USAGE LIKE O$LA AND O$LH
	22	*
	23	*
c08e22bb	24	* STORAGE
	25	*
	26	* 266 (OCTAL)
	27	* 182 (DECIMAL)
	28	*
	29	*
	30	* USE
	31	*
	32	* THE LIBRARY ROUTINES ARE FOR GENERAL PURPOSE.
	33	*
	34	**********************************************************************
	35	SUBR O$PL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
	36	SUBR O$PH INITIALISE HEADING
	37	SUBR O$PP,T1 TYPE A LINE, NO CR
	38	SUBR O$PC,T20 RETURN THE CARRIAGE
	39	SUBR O$PF,T30 ADVANCE TO NEXT LINE
	40	SUBR O$PE,SNP PUNCH FORM FEED
	41	*
	42	SUBR O$P1,HDS EMPTY LINES BETWEEN TOP OF PAGE AND HEADING
	43	SUBR O$P2,SPC EMPTY LINES BETWEEN HEADING AND MAIN TEXT
	44	SUBR O$P3,PGS PURE TEXT LINES PER PAGE
	45	**********************************************************************
8acc03e2	46	REL RELOCATABLE
c08e22bb	47	*********************************************
	48	* CONFIGURATION
	49	HDS DEC 1 EMPTY LINES BEFORE HEADING
	50	SPC DEC 5 EMPTY LINES BETWEEN HEADING AND TEXT
	51	PGS DEC 50 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
	52	*
	53	*
	54	O$PL DAC **
	55	LDA* O$PL BUFFER ADDRESS
	56	STA BUF1 STORE FOR LATER USE
	57	OCP 2 ACTIVATE PUNCH
	58	IRS LINE COUNT DOWN LEFT LINES ON PAGE
	59	JMP PGOK NO NEW PAGE
	60	LDA =12 FORM FEED
	61	OTA 2 SEND FORMFEED
	62	JMP *-1 WAIT
	63	JST NP NEW PAGE REQUIRED
	64	PGOK JST T1 PRINT THE LINE
	65	BUF1 DAC ** ADDRESS OF LINE BUFFER
	66	JST T20 CARRIAGE RETURN
	67	JST T30 LINE FEED
	68	IRS O$PL MAKE RETURN ADDRESS
	69	JMP* O$PL RETURN
	70	*
	71	*
	72	O$PH DAC ** INIT HEADING
	73	LDA* O$PH
	74	STA P1 POINTER TO SOURCE
	75	LDA HBUP
	76	STA P2 POINTER TO TARGET
	77	LDA =-60 LINE LENGTH
	78	STA CNT
	79	HL1 LDA* P1
	80	STA* P2
	81	IRS P1
	82	IRS P2
	83	IRS CNT READY?
	84	JMP HL1 NO
	85	JST NP INIT PAGE
	86	IRS O$PH ADJUST ADDRESS
	87	JMP* O$PH RETURN
	88	**********************************************++
	89	*
	90	NP DAC ** PREPARE NEW PAGE
	91	LDA PGS LOAD LINES PER PAGE
	92	TCA NEGATE
	93	STA LINE STORE PAGE COUNTER
	94	LDA HDS
	95	SNZ
	96	JMP NHDS NO SPACE BEFORE HEADING
	97	TCA
	98	STA CNT
	99	S1 JST T30
	100	IRS CNT
	101	JMP S1
	102	NHDS JST T1 TYPE HBUF
	103	HBUP DAC HBUF ADDRESS OF HEADER BUFFER
	104	JST T20 CARRIAGE RETURN
	105	LDA SPC NUMBER OF SPACES BEFORE TEXT
	106	TCA NEGATE
	107	STA CNT TO COUNTER
	108	SP1 JST T30 LINE FEED
	109	IRS CNT DEC COUNTER, SKIP IF READY
	110	JMP SP1 NOT READY
111	JMP* NP
112	*
113	***********************************++
114	*
115	**** FORM FEED ROUTINE
116	SNP LDA =-1
117	STA LINE
118	OCP 2 ACTIVATE PUNCH
119	LDA =12 FORM FEED
120	OTA 2 SEND FORMFEED
121	JMP *-1 WAIT
122	JMP* SNP RETURN
123	********
124	*
125	*
126	CNT DEC 0
127	HBUF BCI 20,
128	BCI 20,
129	BCI 20,
130	P1 DEC 0 POINTER 1
131	P2 DEC 0 POINTER 2
132	LINE DEC -40 NEG LINES LEFT ON PAGE
133	*
134	*
135	************************************************************
136	*
137	*** AB HIER ABGESCHRIEBENER CODE!
138	T1 DAC **
139	LDA* T1
140	ADD T5
141	STA T6
142	IRS T1
143	LDA =-60
144	STA 0
145	T3 LDA* T6
146	CAS ='120240
147	JMP *+2
148	*
149	JMP T8
150	T4 JST T14
151	IRS 0
152	JMP T3
153	JMP* T1
154	T5 DAC 60,1
155	T6 *
156	*
157	T8 LDA 0
158	STA T12
159	T10 IRS 0
160	JMP *+2
161	JMP* T1
162	LDA* T6
163	CAS ='120240
164	JMP *+2
165	JMP T10
166	LDA T12
167	STA 0
168	LDA ='120240
169	JMP T4
170	T12 *
171	*
172	T14 DAC **
173	OCP 2 ACTIVATE PUNCH
174	NOP
175	NOP
176	LRL 8
177	OTA 2
178	JMP *-1
179	LLL 8
180	OTA 2
181	JMP *-1
182	JMP* T14
183	*
184	*
46d73374	185	**************************************************
c08e22bb	186	*
	187	T20 DAC **
	188	LDA ='6400 CR+NULL
	189	JST T14
	190	JMP* T20
	191	*
46d73374	192	**************************************************
c08e22bb	193	*
	194	T30 DAC **
	195	LDA ='5000 LF+NULL
	196	JST T14
	197	JMP* T30
	198	*
	199	FIN WRITE OUT LITERALS
	200	*
	201	* PUH.....
	202	*
	203	END