6 * PROGRAM CATEGORY: I/O LIBRARY
8 * PROGRAM TITLE: O$PL (O$PH)
9 * PAPER TAPE LISTING ROUTINES
21 * PUT LISTINGS ONTO PAPER TAPE. USAGE LIKE O$LA AND O$LH
33 * THE LIBRARY ROUTINES ARE FOR GENERAL PURPOSE.
35 **********************************************************************
36 SUBR O$PL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
37 SUBR O$PH INITIALISE HEADING
38 SUBR O$PP,T1 TYPE A LINE, NO CR
39 SUBR O$PC,T20 RETURN THE CARRIAGE
40 SUBR O$PF,T30 ADVANCE TO NEXT LINE
41 SUBR O$PE,SNP PUNCH FORM FEED
43 SUBR O$P1,HDS EMPTY LINES BETWEEN TOP OF PAGE AND HEADING
44 SUBR O$P2,SPC EMPTY LINES BETWEEN HEADING AND MAIN TEXT
45 SUBR O$P3,PGS PURE TEXT LINES PER PAGE
46 **********************************************************************
48 *********************************************
50 HDS DEC 1 EMPTY LINES BEFORE HEADING
51 SPC DEC 5 EMPTY LINES BETWEEN HEADING AND TEXT
52 PGS DEC 50 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
56 LDA* O$PL BUFFER ADDRESS
57 STA BUF1 STORE FOR LATER USE
59 IRS LINE COUNT DOWN LEFT LINES ON PAGE
64 JST NP NEW PAGE REQUIRED
65 PGOK JST T1 PRINT THE LINE
66 BUF1 DAC ** ADDRESS OF LINE BUFFER
67 JST T20 CARRIAGE RETURN
69 IRS O$PL MAKE RETURN ADDRESS
73 O$PH DAC ** INIT HEADING
75 STA P1 POINTER TO SOURCE
77 STA P2 POINTER TO TARGET
87 IRS O$PH ADJUST ADDRESS
89 **********************************************++
91 NP DAC ** PREPARE NEW PAGE
92 LDA PGS LOAD LINES PER PAGE
94 STA LINE STORE PAGE COUNTER
97 JMP NHDS NO SPACE BEFORE HEADING
103 NHDS JST T1 TYPE HBUF
104 HBUP DAC HBUF ADDRESS OF HEADER BUFFER
105 JST T20 CARRIAGE RETURN
106 LDA SPC NUMBER OF SPACES BEFORE TEXT
109 SP1 JST T30 LINE FEED
110 IRS CNT DEC COUNTER, SKIP IF READY
114 ***********************************++
116 **** FORM FEED ROUTINE
133 LINE DEC -40 NEG LINES LEFT ON PAGE
136 ************************************************************
138 *** AB HIER ABGESCHRIEBENER CODE!
186 *************************************************
193 *******************************************************************************
200 FIN WRITE OUT LITERALS