[h316.git] / lib / iolib / src / o$la-laser.asm

* (O$LA)
*
*    
* PROGRAM TITLE:  O$LA  (O$LA,O$LE,O$LH,O$LC,O$LF) 
*                 LINE PRINTER ROUTINES
*
* REVISIONS: 
*            1.0 (2005-02-04)
*            1.1 (2006-04-03) - GET IT SMALLER
*
* AUTHOR
*
*    PHILIPP HACHTMANN
*
*
* PURPOSE
*
*    THESE ARE THE LIBRARY ROUTINES FOR HACHTI'S LINE PRINTER INTERFACE
*    
*    ******* SPECIAL VERSION CONFIGURED FOR 80*64 LASER PRINTER!
*
* RESTRICTIONS
*
*    DEPENDS ON HACHTI'S HARDWARE AND FORTRAN IV COMPILER TAPE
*
*
* STORAGE
*
*    420 (OCTAL)
*    271 (DECIMAL)
*
*
* USE
*
*              CALL     O$LA
*              DAC      (BUFFER ADDRESS)
*              NORMAL
*
*    THIS PRINTS ONE LINE OF LISING TEXT
*    (60 2-CHAR WORDS MAX) TO THE LINE PRINTER.
*         
*    
*              CALL     O$LH
*              DAC      (HEADING ADDRESS)
*              NORMAL RETURN
*    
*    SETUP THE LISTING HEADER
*    RESETS THE PAGE COUNTER AND SPACES TO THE BEGINNING OF
*    THE NEXT PAGE.
*    
*    
*              CALL     O$LP
*              DAC      (BUFFER ADDRESS)
*              NORMAL RETURN
*    
*    PRINT TEXT FROM BUFFER. NO CR OR LF IS OUTPUT.
*    
*              CALL     O$LC
*              NORMAL RETURN
*    
*    PRODUCE A CARRIAGE RETURN ON THE LINE PRINTER.
*    
*    
*              CALL     O$LF
*              NORMAL RETURN
*    
*    SEND A LINE FEED COMMAND TO THE PRINTER.
*    
*    
*              CALL     O$LE
*              NORMAL RETURN
*    
*    EJECT CURRENT PAGE
*    SPACES TO THE BEGINNING OF THE NEXT PAGE BY SENDING
*    A FF CHARACTER TO THE PRINTER.
*
********************************************************************************
*
	SUBR	O$LA	TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
	SUBR	O$LH	INITIALISE HEADING
	SUBR	O$LP,T1 TYPE  A LINE, NO CR
	SUBR	O$LC,T20	RETURN THE CARRIAGE
	SUBR	O$LF,T30	ADVANCE TO NEXT LINE
	SUBR	O$LE,FF		EJECT PAGE
*
	SUBR	O$LSK1,SKP1	EMPTY LINES BETWEEN TOP OF PAGE AND HEADING
	SUBR	O$LSK2,SKP2	EMPTY LINES BETWEEN HEADING AND MAIN TEXT
	SUBR	O$LLPP,LPP	PURE TEXT LINES PER PAGE
	SUBR	O$LRS,RS	DISTANCE FROM PAGE NUMBERING TO RIGHT MARGIN
*
********************************************************************************
*
	REL		RELOCATEABLE MODE
	ORG	0
*
* CONFIGURATION
LPP	DEC	60	DATA LINES PER PAGE (WITHOUT HEADING ETC.)
LNW	DEC	40	LINE LENGTH IN 2-CHAR WORDS
*      
*
O$LA	DAC	**
	LDA*	O$LA	BUFFER ADDRESS
	STA	LBUF	STORE
	LDA	LINE	LEFT LINE COUNTER
	SZE		LINES LEFT ON PAGE?
	JMP	PGOK	YES, JUMP AWAY
	JST	FF	CALL FORM FEED ROUTINE
PGOK	LDA	LPP	LINES PER PAGE
	TCA
	CAS	LINES	ARE WE ON THE FIRST LINE?
	JMP	*+2	NO, WE ARE NOT.
	JST	NP	MAKE HEADER, SPACING ETC.
	NOP		
	IRS	LINE	BUMP COUNTER
	NOP		WE DON'T CONTROL THAT HERE ANYMORE
	JST	T1	PRINT THE LINE
LBUF	DAC	**	ADDRESS OF LINE BUFFER	
	JST	T20	CARRIAGE RETURN
	JST	T30	LINE FEED
	IRS	O$LA	MAKE RETURN ADDRESS
	JMP*	O$LA	RETURN
*
*
O$LH	DAC	**	INIT HEADING
	LDA*	O$LH	
	STA	P1	POINTER TO SOURCE
	LDA	HBUP
	STA	P2	POINTER TO TARGET
	LDA	LNW	LINE LENGTH
	TCA
	STA	CNT
HL1	LDA*	P1
	STA*	P2
	IRS	P1
	IRS	P2
	IRS	CNT	READY?
	JMP	HL1	NO
	LDA	LPP	LINES PER PAGE
	TCA		RENEW
	STA	LINE	THE LINE COUNTER
	IRS	O$LH	ADJUST ADDRESS
	CRA
	STA	LN1	CLEAR PAGE NUMBERING
	STA	LN2	CLEAR PAGE NUMBERING
	STA	LN3	CLEAR PAGE NUMBERING
	JMP*	O$LH	RETURN
*
*
*
SKP1	DEC	0	EMPTY LINES BEFORE HEADING
SKP2	DEC	1	EMPTY LINES BETWEEN HEADING AND TEXT
NP	DAC	**	PREPARE NEW PAGE
	LDA	SKP1	SPACES BEFORE HEADING
	SNZ		SPACING REQUIRED?
	JMP	NHDS	NO SPACE BEFORE HEADING
	TCA
	STA	CNT
S1	JST	T30	LINE FEED
	IRS	CNT
	JMP	S1
NHDS	JST	LNNR	PREPARE LINE NUMBERING
	JST	T1	TYPE HBUF
HBUP	DAC	HBUF	ADDRESS OF HEADER BUFFER
	JST	T20	CARRIAGE RETURN
	JST	T30	LINE FEED
	LDA	SKP2	NUMBER OF SPACES BEFORE TEXT
	SNZ		SPACING REQUIRED?
	JMP	NSPC	NO, IT'S NOT.
	TCA		NEGATE
	STA	CNT	TO COUNTER
SP1	JST	T30	LINE FEED
	IRS	CNT	DEC COUNTER, SKIP IF READY
	JMP	SP1	NOT READY
NSPC	JMP*	NP	RETURN
*
* FORM FEED
FF	DAC	**
	LDA	LPP	REFILL
	TCA		THE
	STA	LINE	LINE COUNTER
*
	LDA	=12	FORM FEED
	OTA	0	SEND FORMFEED
	JMP	*-1	WAIT
	JMP*	FF	RETURN
*
*
* VARIABLES
XR	DEC	0	THE CALLER'S X REGISTER
CNT	DEC	0
HBP	DAC	HBUF
P1	DEC	0	POINTER 1	
P2	DEC	0	POINTER 2
LINE	DEC	-40	NEG LINES LEFT ON PAGE
PGS	BCI	5,  PAGE XXX
PGSP	DAC	PGS	POINTER TO PGS
*
*
************************************************************
*
* OUTPUT LINE
T1	DAC	**
	STX	XR	SAVE CALLER'S INDEX REGISTER
	LDA*	T1
	ADD	LNW	LINE WIDTH
	ADD	='40000	SET TAG
	STA	T6
	IRS	T1
	LDA	LNW	LINE WIDTH
	TCA		NEGATE
	STA	0
T3	LDA*	T6
	CAS	='120240
	JMP	*+2
*
	JMP	T8
T4	JST	T14
	IRS	0
	JMP	T3
	LDX	XR	RESTORE CALLER'S INDEX REGISTER
	JMP*	T1
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	**
	ICA
	OTA	0
	JMP	*-1
	ICA
	OTA	0
	JMP	*-1
	JMP*	T14
****
*
* CARRIAGE RETURN
T20	DAC	**
	LDA	=13	CR CHARACTER
	OTA	0	OUTPUT
	JMP	*-1	
	JMP*	T20	RETURN
*
* LINE FEED
T30	DAC	**
	LDA	=10	LF CHARACTER
	OTA	0	OUTPUT
	JMP	*-1	RETURN
	JMP*	T30
*
* PRINT LINE NUMBER TO BUFFER
LNNR	DAC	**	INCREMENT LINE NUMBER, PUT TO BUFFER
	JST	LNR	INCREMENT DIGIT
LN1	DEC	0	LEAST SIGNIFICANT DIGIT
	JMP	RDY	NO CARRY, COUNTING READY
	JST	LNR	INCREMENT DIGIT
LN2	DEC	0	SECOND DIGIT
	JMP	RDY	NO CARRY, COUNTING READY
	JST	LNR	INCREMENT DIGIT
LN3	DEC	0	THIRD DIGIT
	NOP		NO CARRY, FINE
RDY	NOP		OVERFLOW, BUT WHAT SHOULD WE DO?
*	
*
	LDA	LN3	LEFTMOST VALUE (100)
	JST	MDG	CONVERT
	LRR	8	SHIFT DOWN
	LDA	=32	SPACE
	LLR	8	SHIFT BACK
	STA	PGS+3	STORE
*
	LDA	LN1	RIGHTMOST DIGIT (1)
	ADD	=48	ZERO CHARACTER
	LRR	8	SHIFT AWAY
*
*                       MIDDLE VALUE CAN BE SPACE OR 0
	LDA	LN3	ASK LEFTMOST NUMBER
	SNZ
	JMP	ZZ3
	ADD	=48
	JMP	ZZZ
ZZ3	LDA	LN2	MIDDLE VALUE (10)
	JST	MDG	CONVERT
ZZZ	LLR	8	SHIFT UP AGAIN
	STA	PGS+4	STORE INTO POSITION
*
*
	LDA	HBP	HEADER BUFFER ADDRESS
	ADD	LNW	PAGE WIDTH
	SUB	RS	RIGHT SPACING
	ADD	='40000	SET INDEX BIT
	STA	P1	TO WRITE POINTER
	LDA	PGSP	PAGE NUMBER BUFFER ADDRESS
	ADD	=5	ADD PAGE NUMBERING LENGTH
	ADD	='40000	SET INDEX BIT	
	STA	P2	TO READ POINTER
	LDA	=-5	
	STA	0
PP1	LDA*	P2
	STA*	P1
	IRS	0
	JMP	PP1
	JMP*	LNNR	RETURN
RS	DEC	0	RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
*
*	
MDG	DAC	**	MAKE DIGIT FROM A
	SZE
	JMP	NZ	NO ZERO
	LDA	=32	IS ZERO->SPACE
	JMP*	MDG	RETURN
NZ	ADD	=48	THE ZERO CHARACTER
	JMP*	MDG	
*
*
LNR	DAC	**	DIGIT SERVICE
	IRS*	LNR	INCREMENT DIGIT
	LDA*	LNR	LOAD NEW VALUE OF DIGIT
	SUB	=10	TEST IF OVERFLOW
	SZE		OVERFLOW?
	JMP	NOFL	NO, TAKE FIRST RETURN
	STA*	LNR	YES, CLEAR DIGIT (A WAS ZERO)
	IRS	LNR	TALLY RETURN ADDRESS
NOFL	IRS	LNR	TALLY RETURN ADDRESS
	JMP*	LNR
*
HBUF	BCI	20,
	BCI	20,
	BCI	20,
*
	FIN		WRITE OUT LITERALS
*
* PUH.....
*
	END
Commit	Line	Data
1ddb3009	1	* (O$LA)
	2	*
	3	*
	4	* PROGRAM TITLE: O$LA (O$LA,O$LE,O$LH,O$LC,O$LF)
	5	* LINE PRINTER ROUTINES
	6	*
	7	* REVISIONS:
	8	* 1.0 (2005-02-04)
	9	* 1.1 (2006-04-03) - GET IT SMALLER
	10	*
	11	* AUTHOR
	12	*
	13	* PHILIPP HACHTMANN
	14	*
	15	*
	16	* PURPOSE
	17	*
	18	* THESE ARE THE LIBRARY ROUTINES FOR HACHTI'S LINE PRINTER INTERFACE
	19	*
	20	* ******* SPECIAL VERSION CONFIGURED FOR 80*64 LASER PRINTER!
	21	*
	22	* RESTRICTIONS
	23	*
	24	* DEPENDS ON HACHTI'S HARDWARE AND FORTRAN IV COMPILER TAPE
	25	*
	26	*
	27	* STORAGE
	28	*
	29	* 420 (OCTAL)
	30	* 271 (DECIMAL)
	31	*
	32	*
	33	* USE
	34	*
	35	* CALL O$LA
	36	* DAC (BUFFER ADDRESS)
	37	* NORMAL
	38	*
	39	* THIS PRINTS ONE LINE OF LISING TEXT
	40	* (60 2-CHAR WORDS MAX) TO THE LINE PRINTER.
	41	*
	42	*
	43	* CALL O$LH
	44	* DAC (HEADING ADDRESS)
	45	* NORMAL RETURN
	46	*
	47	* SETUP THE LISTING HEADER
	48	* RESETS THE PAGE COUNTER AND SPACES TO THE BEGINNING OF
	49	* THE NEXT PAGE.
	50	*
	51	*
	52	* CALL O$LP
	53	* DAC (BUFFER ADDRESS)
	54	* NORMAL RETURN
	55	*
	56	* PRINT TEXT FROM BUFFER. NO CR OR LF IS OUTPUT.
	57	*
	58	* CALL O$LC
	59	* NORMAL RETURN
	60	*
	61	* PRODUCE A CARRIAGE RETURN ON THE LINE PRINTER.
	62	*
	63	*
	64	* CALL O$LF
65	* NORMAL RETURN
66	*
67	* SEND A LINE FEED COMMAND TO THE PRINTER.
68	*
69	*
70	* CALL O$LE
71	* NORMAL RETURN
72	*
73	* EJECT CURRENT PAGE
74	* SPACES TO THE BEGINNING OF THE NEXT PAGE BY SENDING
75	* A FF CHARACTER TO THE PRINTER.
76	*
77	********************************************************************************
78	*
79	SUBR O$LA TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
80	SUBR O$LH INITIALISE HEADING
81	SUBR O$LP,T1 TYPE A LINE, NO CR
82	SUBR O$LC,T20 RETURN THE CARRIAGE
83	SUBR O$LF,T30 ADVANCE TO NEXT LINE
84	SUBR O$LE,FF EJECT PAGE
85	*
86	SUBR O$LSK1,SKP1 EMPTY LINES BETWEEN TOP OF PAGE AND HEADING
87	SUBR O$LSK2,SKP2 EMPTY LINES BETWEEN HEADING AND MAIN TEXT
88	SUBR O$LLPP,LPP PURE TEXT LINES PER PAGE
89	SUBR O$LRS,RS DISTANCE FROM PAGE NUMBERING TO RIGHT MARGIN
90	*
91	********************************************************************************
92	*
93	REL RELOCATEABLE MODE
94	ORG 0
95	*
96	* CONFIGURATION
97	LPP DEC 60 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
98	LNW DEC 40 LINE LENGTH IN 2-CHAR WORDS
99	*
100	*
101	O$LA DAC **
102	LDA* O$LA BUFFER ADDRESS
103	STA LBUF STORE
104	LDA LINE LEFT LINE COUNTER
105	SZE LINES LEFT ON PAGE?
106	JMP PGOK YES, JUMP AWAY
107	JST FF CALL FORM FEED ROUTINE
108	PGOK LDA LPP LINES PER PAGE
109	TCA
110	CAS LINES ARE WE ON THE FIRST LINE?
111	JMP *+2 NO, WE ARE NOT.
112	JST NP MAKE HEADER, SPACING ETC.
113	NOP
114	IRS LINE BUMP COUNTER
115	NOP WE DON'T CONTROL THAT HERE ANYMORE
116	JST T1 PRINT THE LINE
117	LBUF DAC ** ADDRESS OF LINE BUFFER
118	JST T20 CARRIAGE RETURN
119	JST T30 LINE FEED
120	IRS O$LA MAKE RETURN ADDRESS
121	JMP* O$LA RETURN
122	*
123	*
124	O$LH DAC ** INIT HEADING
125	LDA* O$LH
126	STA P1 POINTER TO SOURCE
127	LDA HBUP
128	STA P2 POINTER TO TARGET
129	LDA LNW LINE LENGTH
130	TCA
131	STA CNT
132	HL1 LDA* P1
133	STA* P2
134	IRS P1
135	IRS P2
136	IRS CNT READY?
137	JMP HL1 NO
138	LDA LPP LINES PER PAGE
139	TCA RENEW
140	STA LINE THE LINE COUNTER
141	IRS O$LH ADJUST ADDRESS
142	CRA
143	STA LN1 CLEAR PAGE NUMBERING
144	STA LN2 CLEAR PAGE NUMBERING
145	STA LN3 CLEAR PAGE NUMBERING
146	JMP* O$LH RETURN
147	*
148	*
149	*
150	SKP1 DEC 0 EMPTY LINES BEFORE HEADING
151	SKP2 DEC 1 EMPTY LINES BETWEEN HEADING AND TEXT
152	NP DAC ** PREPARE NEW PAGE
153	LDA SKP1 SPACES BEFORE HEADING
154	SNZ SPACING REQUIRED?
155	JMP NHDS NO SPACE BEFORE HEADING
156	TCA
157	STA CNT
158	S1 JST T30 LINE FEED
159	IRS CNT
160	JMP S1
161	NHDS JST LNNR PREPARE LINE NUMBERING
162	JST T1 TYPE HBUF
163	HBUP DAC HBUF ADDRESS OF HEADER BUFFER
164	JST T20 CARRIAGE RETURN
165	JST T30 LINE FEED
166	LDA SKP2 NUMBER OF SPACES BEFORE TEXT
167	SNZ SPACING REQUIRED?
168	JMP NSPC NO, IT'S NOT.
169	TCA NEGATE
170	STA CNT TO COUNTER
171	SP1 JST T30 LINE FEED
172	IRS CNT DEC COUNTER, SKIP IF READY
173	JMP SP1 NOT READY
174	NSPC JMP* NP RETURN
175	*
176	* FORM FEED
177	FF DAC **
178	LDA LPP REFILL
179	TCA THE
180	STA LINE LINE COUNTER
181	*
182	LDA =12 FORM FEED
183	OTA 0 SEND FORMFEED
184	JMP *-1 WAIT
185	JMP* FF RETURN
186	*
187	*
188	* VARIABLES
189	XR DEC 0 THE CALLER'S X REGISTER
190	CNT DEC 0
191	HBP DAC HBUF
192	P1 DEC 0 POINTER 1
193	P2 DEC 0 POINTER 2
194	LINE DEC -40 NEG LINES LEFT ON PAGE
195	PGS BCI 5, PAGE XXX
196	PGSP DAC PGS POINTER TO PGS
197	*
198	*
199	************************************************************
200	*
201	* OUTPUT LINE
202	T1 DAC **
203	STX XR SAVE CALLER'S INDEX REGISTER
204	LDA* T1
205	ADD LNW LINE WIDTH
206	ADD ='40000 SET TAG
207	STA T6
208	IRS T1
209	LDA LNW LINE WIDTH
210	TCA NEGATE
211	STA 0
212	T3 LDA* T6
213	CAS ='120240
214	JMP *+2
215	*
216	JMP T8
217	T4 JST T14
218	IRS 0
219	JMP T3
220	LDX XR RESTORE CALLER'S INDEX REGISTER
221	JMP* T1
222	T6 *
223	*
224	*
225	T8 LDA 0
226	STA T12
227	T10 IRS 0
228	JMP *+2
229	JMP* T1
230	LDA* T6
231	CAS ='120240
232	JMP *+2
233	JMP T10
234	LDA T12
235	STA 0
236	LDA ='120240
237	JMP T4
238	T12 *
239	*
240	*
241	T14 DAC **
242	ICA
243	OTA 0
244	JMP *-1
245	ICA
246	OTA 0
247	JMP *-1
248	JMP* T14
249	****
250	*
251	* CARRIAGE RETURN
252	T20 DAC **
253	LDA =13 CR CHARACTER
254	OTA 0 OUTPUT
255	JMP *-1
256	JMP* T20 RETURN
257	*
258	* LINE FEED
259	T30 DAC **
260	LDA =10 LF CHARACTER
261	OTA 0 OUTPUT
262	JMP *-1 RETURN
263	JMP* T30
264	*
265	* PRINT LINE NUMBER TO BUFFER
266	LNNR DAC ** INCREMENT LINE NUMBER, PUT TO BUFFER
267	JST LNR INCREMENT DIGIT
268	LN1 DEC 0 LEAST SIGNIFICANT DIGIT
269	JMP RDY NO CARRY, COUNTING READY
270	JST LNR INCREMENT DIGIT
271	LN2 DEC 0 SECOND DIGIT
272	JMP RDY NO CARRY, COUNTING READY
273	JST LNR INCREMENT DIGIT
274	LN3 DEC 0 THIRD DIGIT
275	NOP NO CARRY, FINE
276	RDY NOP OVERFLOW, BUT WHAT SHOULD WE DO?
277	*
278	*
279	LDA LN3 LEFTMOST VALUE (100)
280	JST MDG CONVERT
281	LRR 8 SHIFT DOWN
282	LDA =32 SPACE
283	LLR 8 SHIFT BACK
284	STA PGS+3 STORE
285	*
286	LDA LN1 RIGHTMOST DIGIT (1)
287	ADD =48 ZERO CHARACTER
288	LRR 8 SHIFT AWAY
289	*
290	* MIDDLE VALUE CAN BE SPACE OR 0
291	LDA LN3 ASK LEFTMOST NUMBER
292	SNZ
293	JMP ZZ3
294	ADD =48
295	JMP ZZZ
296	ZZ3 LDA LN2 MIDDLE VALUE (10)
297	JST MDG CONVERT
298	ZZZ LLR 8 SHIFT UP AGAIN
299	STA PGS+4 STORE INTO POSITION
300	*
301	*
302	LDA HBP HEADER BUFFER ADDRESS
303	ADD LNW PAGE WIDTH
304	SUB RS RIGHT SPACING
305	ADD ='40000 SET INDEX BIT
306	STA P1 TO WRITE POINTER
307	LDA PGSP PAGE NUMBER BUFFER ADDRESS
308	ADD =5 ADD PAGE NUMBERING LENGTH
309	ADD ='40000 SET INDEX BIT
310	STA P2 TO READ POINTER
311	LDA =-5
312	STA 0
313	PP1 LDA* P2
314	STA* P1
315	IRS 0
316	JMP PP1
317	JMP* LNNR RETURN
318	RS DEC 0 RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
319	*
320	*
321	MDG DAC ** MAKE DIGIT FROM A
322	SZE
323	JMP NZ NO ZERO
324	LDA =32 IS ZERO->SPACE
325	JMP* MDG RETURN
326	NZ ADD =48 THE ZERO CHARACTER
327	JMP* MDG
328	*
329	*
330	LNR DAC ** DIGIT SERVICE
331	IRS* LNR INCREMENT DIGIT
332	LDA* LNR LOAD NEW VALUE OF DIGIT
333	SUB =10 TEST IF OVERFLOW
334	SZE OVERFLOW?
335	JMP NOFL NO, TAKE FIRST RETURN
336	STA* LNR YES, CLEAR DIGIT (A WAS ZERO)
337	IRS LNR TALLY RETURN ADDRESS
338	NOFL IRS LNR TALLY RETURN ADDRESS
339	JMP* LNR
340	*
341	HBUF BCI 20,
342	BCI 20,
343	BCI 20,
344	*
345	FIN WRITE OUT LITERALS
346	*
347	* PUH.....
348	*
349	END