1 * (O$AL) - TYPING ROUTINES
4 * PROGRAM TITLE: O$AL (O$AL,O$AE,O$AH,O$AC,O$AF)
8 * 1.0 (5.2.2005) - FIRST STABLE VERSION
9 * 1.1 (10.2.2005) - ADDED FORGOTTEN ASR START SEQUENCE
18 * ASR OUTPUT ROUTINES FOR LISTING
23 * THESE ARE NOT THE ORIGINAL
33 **********************************************************************
34 SUBR O$AL,OSAL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
35 SUBR O$AH,OSAH INITIALISE HEADING
36 SUBR O$LL,OSAL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
37 SUBR O$HH,OSAH INITIALISE HEADING
38 SUBR O$AP,T1 TYPE A LINE, NO CR
39 SUBR O$AC,T20 RETURN THE CARRIAGE
40 SUBR O$AF,T30 ADVANCE TO NEXT LINE
41 SUBR O$AE,FF EJECT PAGE
43 SUBR O$A1,HDS EMPTY LINES BETWEEN TOP OF PAGE AND HEADING
44 SUBR O$A2,SPC EMPTY LINES BETWEEN HEADING AND MAIN TEXT
45 SUBR O$A3,PGS PURE TEXT LINES PER PAGE
46 SUBR O$A4,WIDH PURE TEXT LINES PER PAGE
47 SUBR O$A5,SFF SKIPS TO SIMULATE FORM FEED
48 **********************************************************************
50 *********************************************
52 HDS DEC 1 EMPTY LINES BEFORE HEADING
53 SPC DEC 2 EMPTY LINES BETWEEN HEADING AND TEXT
54 PGS DEC 50 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
55 WIDH DEC 36 (2-CHAR) WORDS PER LINE
56 SFF DEC 4 SKIPS TO SIMULATE FORM FEED
61 LDA* OSAL BUFFER ADDRESS
62 STA BUF1 STORE FOR LATER USE
67 JST NP NEW PAGE REQUIRED
68 PGOK IRS LINE BUMP COUNTER
71 BUF1 DAC ** ADDRESS OF LINE BUFFER
72 JST T20 CARRIAGE RETURN
74 IRS OSAL MAKE RETURN ADDRESS
79 OSAH DAC ** INIT HEADING
82 STA P1 POINTER TO SOURCE
84 STA P2 POINTER TO TARGET
95 IRS OSAH ADJUST ADDRESS
98 ********************************************************************************
101 NP DAC ** PREPARE NEW PAGE
102 LDA PGS LOAD LINES PER PAGE
104 STA LINE STORE PAGE COUNTER
107 JMP NHDS NO SPACE BEFORE HEADING
113 NHDS JST T1 TYPE HBUF
114 HBUP DAC HBUF ADDRESS OF HEADER BUFFER
115 JST T20 CARRIAGE RETURN
116 LDA SPC NUMBER OF SPACES BEFORE TEXT
119 SP1 JST T30 LINE FEED
120 IRS CNT DEC COUNTER, SKIP IF READY
124 ********************************************************************************
126 **** FORM FEED ROUTINE
132 FF1 OTA 4 SEND LINE FEED
147 XR DEC 0 SAVED X REGISTER
154 LINE DEC -40 NEG LINES LEFT ON PAGE
157 ********************************************************************************
159 *** AB HIER ABGESCHRIEBENER CODE!
211 ********************************************************************************
222 ********************************************************************************
232 FIN WRITE OUT LITERALS