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
32 * THE LIBRARY ROUTINES ARE FOR GENERAL PURPOSE.
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
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 **********************************************************************
47 *********************************************
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.)
55 LDA* O$PL BUFFER ADDRESS
56 STA BUF1 STORE FOR LATER USE
58 IRS LINE COUNT DOWN LEFT LINES ON PAGE
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
68 IRS O$PL MAKE RETURN ADDRESS
72 O$PH DAC ** INIT HEADING
74 STA P1 POINTER TO SOURCE
76 STA P2 POINTER TO TARGET
86 IRS O$PH ADJUST ADDRESS
88 **********************************************++
90 NP DAC ** PREPARE NEW PAGE
91 LDA PGS LOAD LINES PER PAGE
93 STA LINE STORE PAGE COUNTER
96 JMP NHDS NO SPACE BEFORE HEADING
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
108 SP1 JST T30 LINE FEED
109 IRS CNT DEC COUNTER, SKIP IF READY
113 ***********************************++
115 **** FORM FEED ROUTINE
132 LINE DEC -40 NEG LINES LEFT ON PAGE
135 ************************************************************
137 *** AB HIER ABGESCHRIEBENER CODE!
185 *************************************************
192 *******************************************************************************
199 FIN WRITE OUT LITERALS