4 * PROGRAM TITLE: O$LA (O$LA,O$LE,O$LH,O$LC,O$LF)
5 * LINE PRINTER ROUTINES
17 * THESE ARE THE LIBRARY ROUTINES FOR HACHTI'S LINE PRINTER INTERFACE
22 * DEPENDS ON HACHTI'S HARDWARE AND FORTRAN IV COMPILER TAPE
34 * DAC (BUFFER ADDRESS)
37 * THIS PRINTS ONE LINE OF LISING TEXT
38 * (60 2-CHAR WORDS MAX) TO THE LINE PRINTER.
42 ********************************************************************************
44 SUBR O$PA TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
46 ********************************************************************************
51 LDA* O$PA BUFFER ADDRESS
53 JST T1 PUNCH THE RECORD
54 LBUF OCT 0 ADDRESS OF LINE BUFFER
55 JST T20 CARRIAGE RETURN
57 IRS O$LA MAKE RETURN ADDRESS
60 ************************************************************
64 STX XR SAVE CALLER'S INDEX REGISTER
65 LDA* T1 LOAD BUFFER ADDRESS
67 ADD ='40000 SET INDEXING TAG
69 IRS T1 INCREMENT RETURN ADDRESS
72 STA 0 PUT INTO INDEX REG
81 LDX XR RESTORE CALLER'S INDEX REGISTER
127 FIN WRITE OUT LITERALS