1 * (O$AL) - TYPING ROUTINES
4 * PROGRAM TITLE: O$AL (O$AL,O$AE,O$AH,O$AC,O$AF)
17 * ASR OUTPUT ROUTINES FOR LISTING
22 * THESE ARE NOT THE ORIGINAL
32 **********************************************************************
33 SUBR O$AL,OSAL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
34 SUBR O$AH,OSAH INITIALISE HEADING
35 SUBR O$LL,OSAL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
36 SUBR O$HH,OSAH INITIALISE HEADING
37 SUBR O$AP,T1 TYPE A LINE, NO CR
38 SUBR O$AC,T20 RETURN THE CARRIAGE
39 SUBR O$AF,T30 ADVANCE TO NEXT LINE
40 SUBR O$AE,FF EJECT PAGE
42 SUBR O$A1,HDS EMPTY LINES BETWEEN TOP OF PAGE AND HEADING
43 SUBR O$A2,SPC EMPTY LINES BETWEEN HEADING AND MAIN TEXT
44 SUBR O$A3,PGS PURE TEXT LINES PER PAGE
45 SUBR O$A4,WIDH PURE TEXT LINES PER PAGE
46 SUBR O$A5,SFF SKIPS TO SIMULATE FORM FEED
47 **********************************************************************
49 *********************************************
51 HDS DEC 1 EMPTY LINES BEFORE HEADING
52 SPC DEC 2 EMPTY LINES BETWEEN HEADING AND TEXT
53 PGS DEC 50 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
54 WIDH DEC 36 (2-CHAR) WORDS PER LINE
55 SFF DEC 4 SKIPS TO SIMULATE FORM FEED
60 LDA* OSAL BUFFER ADDRESS
61 STA BUF1 STORE FOR LATER USE
66 JST NP NEW PAGE REQUIRED
67 PGOK IRS LINE BUMP COUNTER
70 BUF1 DAC ** ADDRESS OF LINE BUFFER
71 JST T20 CARRIAGE RETURN
73 IRS OSAL MAKE RETURN ADDRESS
78 OSAH DAC ** INIT HEADING
81 STA P1 POINTER TO SOURCE
83 STA P2 POINTER TO TARGET
94 IRS OSAH ADJUST ADDRESS
97 ********************************************************************************
99 NP DAC ** PREPARE NEW PAGE
100 LDA PGS LOAD LINES PER PAGE
102 STA LINE STORE PAGE COUNTER
105 JMP NHDS NO SPACE BEFORE HEADING
111 NHDS JST T1 TYPE HBUF
112 HBUP DAC HBUF ADDRESS OF HEADER BUFFER
113 JST T20 CARRIAGE RETURN
114 LDA SPC NUMBER OF SPACES BEFORE TEXT
117 SP1 JST T30 LINE FEED
118 IRS CNT DEC COUNTER, SKIP IF READY
122 ********************************************************************************
124 **** FORM FEED ROUTINE
130 FF1 OTA 4 SEND LINE FEED
137 XR DEC 0 SAVED X REGISTER
144 LINE DEC -40 NEG LINES LEFT ON PAGE
147 ********************************************************************************
149 *** AB HIER ABGESCHRIEBENER CODE!
200 ********************************************************************************
210 ********************************************************************************
219 FIN WRITE OUT LITERALS