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
12 * 1.3 (03.04.2006) - SOME SORTING TO GET IT SMALLER
21 * ASR OUTPUT ROUTINES FOR LISTING
26 * THESE ARE NOT THE ORIGINAL ROUTINES
36 **********************************************************************
37 SUBR O$AL,OSAL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
38 SUBR O$AH,OSAH INITIALISE HEADING
39 SUBR O$LL,OSAL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
40 SUBR O$HH,OSAH INITIALISE HEADING
41 SUBR O$AP,T1 TYPE A LINE, NO CR
42 SUBR O$AC,T20 RETURN THE CARRIAGE
43 SUBR O$AF,T30 ADVANCE TO NEXT LINE
44 SUBR O$AE,FF EJECT PAGE
46 SUBR O$A1,HDS EMPTY LINES BETWEEN TOP OF PAGE AND HEADING
47 SUBR O$A2,SPC EMPTY LINES BETWEEN HEADING AND MAIN TEXT
48 SUBR O$A3,PGS PURE TEXT LINES PER PAGE
49 SUBR O$A4,WIDH PURE TEXT LINES PER PAGE
50 SUBR O$A5,SFF SKIPS TO SIMULATE FORM FEED
51 **********************************************************************
53 *********************************************
57 LDA* OSAL BUFFER ADDRESS
58 STA BUF1 STORE FOR LATER USE
63 JST NP NEW PAGE REQUIRED
64 PGOK IRS LINE BUMP COUNTER
67 BUF1 DAC ** ADDRESS OF LINE BUFFER
68 JST T20 CARRIAGE RETURN
70 IRS OSAL MAKE RETURN ADDRESS
75 XR DEC 0 SAVED X REGISTER
76 OSAH DAC ** INIT HEADING
79 STA P1 POINTER TO SOURCE
81 STA P2 POINTER TO TARGET
92 IRS OSAH ADJUST ADDRESS
95 ********************************************************************************
98 PGS DEC 50 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
99 HDS DEC 1 EMPTY LINES BEFORE HEADING
100 NP DAC ** PREPARE NEW PAGE
101 LDA PGS LOAD LINES PER PAGE
103 STA LINE STORE PAGE COUNTER
106 JMP NHDS NO SPACE BEFORE HEADING
112 NHDS JST T1 TYPE HBUF
113 HBUP DAC HBUF ADDRESS OF HEADER BUFFER
114 JST T20 CARRIAGE RETURN
115 LDA SPC NUMBER OF SPACES BEFORE TEXT
118 SP1 JST T30 LINE FEED
119 IRS CNT DEC COUNTER, SKIP IF READY
122 SPC DEC 2 EMPTY LINES BETWEEN HEADING AND TEXT
124 ********************************************************************************
126 **** FORM FEED ROUTINE
127 SFF DEC 4 SKIPS TO SIMULATE FORM FEED
134 FF1 OTA 4 SEND LINE FEED
155 LINE DEC -40 NEG LINES LEFT ON PAGE
158 ********************************************************************************
160 *** FROM HERE COPIED ORIGINAL HONEYWELL CODE!
162 WIDH DEC 36 (2-CHAR) WORDS PER LINE
216 ********************************************************************************
221 LDA C13 CARRIAGE RETURN
228 ********************************************************************************
238 FIN WRITE OUT LITERALS