1 * (O$AL) - TYPING ROUTINES
4 * PROGRAM TITLE: O$AL (O$AL,O$AE,O$AH,O$AC,O$AF)
8 * 1.0 (05.02.2005) - FIRST STABLE VERSION
9 * 1.1 (10.02.2005) - ADDED FORGOTTEN ASR START SEQUENCE
10 * 1.2 (25.07.2005) - CORRECTED ASR START SEQUENCE
11 * 1.2.1 (27.07.2005) - RECORRECTED START SEQUENCE
20 * ASR OUTPUT ROUTINES FOR LISTING
25 * THESE ARE NOT THE ORIGINAL
35 **********************************************************************
36 SUBR O$AL,OSAL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
37 SUBR O$AH,OSAH INITIALISE HEADING
38 SUBR O$LL,OSAL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
39 SUBR O$HH,OSAH INITIALISE HEADING
40 SUBR O$AP,T1 TYPE A LINE, NO CR
41 SUBR O$AC,T20 RETURN THE CARRIAGE
42 SUBR O$AF,T30 ADVANCE TO NEXT LINE
43 SUBR O$AE,FF EJECT PAGE
45 SUBR O$A1,HDS EMPTY LINES BETWEEN TOP OF PAGE AND HEADING
46 SUBR O$A2,SPC EMPTY LINES BETWEEN HEADING AND MAIN TEXT
47 SUBR O$A3,PGS PURE TEXT LINES PER PAGE
48 SUBR O$A4,WIDH PURE TEXT LINES PER PAGE
49 SUBR O$A5,SFF SKIPS TO SIMULATE FORM FEED
50 **********************************************************************
52 *********************************************
54 HDS DEC 1 EMPTY LINES BEFORE HEADING
55 SPC DEC 2 EMPTY LINES BETWEEN HEADING AND TEXT
56 PGS DEC 50 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
57 WIDH DEC 36 (2-CHAR) WORDS PER LINE
58 SFF DEC 4 SKIPS TO SIMULATE FORM FEED
63 LDA* OSAL BUFFER ADDRESS
64 STA BUF1 STORE FOR LATER USE
69 JST NP NEW PAGE REQUIRED
70 PGOK IRS LINE BUMP COUNTER
73 BUF1 DAC ** ADDRESS OF LINE BUFFER
74 JST T20 CARRIAGE RETURN
76 IRS OSAL MAKE RETURN ADDRESS
81 OSAH DAC ** INIT HEADING
84 STA P1 POINTER TO SOURCE
86 STA P2 POINTER TO TARGET
97 IRS OSAH ADJUST ADDRESS
100 ********************************************************************************
103 NP DAC ** PREPARE NEW PAGE
104 LDA PGS LOAD LINES PER PAGE
106 STA LINE STORE PAGE COUNTER
109 JMP NHDS NO SPACE BEFORE HEADING
115 NHDS JST T1 TYPE HBUF
116 HBUP DAC HBUF ADDRESS OF HEADER BUFFER
117 JST T20 CARRIAGE RETURN
118 LDA SPC NUMBER OF SPACES BEFORE TEXT
121 SP1 JST T30 LINE FEED
122 IRS CNT DEC COUNTER, SKIP IF READY
126 ********************************************************************************
128 **** FORM FEED ROUTINE
135 FF1 OTA 4 SEND LINE FEED
150 XR DEC 0 SAVED X REGISTER
157 LINE DEC -40 NEG LINES LEFT ON PAGE
160 ********************************************************************************
162 *** AB HIER ABGESCHRIEBENER CODE!
214 ********************************************************************************
225 ********************************************************************************
235 FIN WRITE OUT LITERALS