O$AH, O$AL

* ????-???-???? (O$AL) 3C NO. 189005000 REV. B PAGE 5

0138 * 0139 * 0140 SUBR O$AH 0141 SUBR O$AL 0142 REL 0143 * 0144 * 0145 00000 0 000000 O$AH DAC ** INITIALISE THE HEADING BUFFER 0146 00001 0 02 00000 LDA 0 0147 00002 0 04 00141 STA SVX SAVE INDEX REGISTER 0148 00003 -0 02 00000 LDA* O$AH FETCH BUFFER ADDRESS 0149 00004 0 06 00210 ADD ='40043 POINT ONE BEYOND BUFFER, SET TAG BIT 0150 00005 0 04 00143 STA HPTR INDEXED HDR POINTER (SOURCE) 0151 00006 0 02 00207 LDA =-21 21 WORDS/42 CHARS 0152 00007 0 04 00000 STA 0 0153 00010 -0 02 00143 P1 LDA* HPTR MOVE 21 HEADER WORDS/42 CHARS TO 0154 00011 1 04 00172 STA HBUF,1 HDR BUFFER (DESTINATION) 0155 00012 0 12 00000 IRS 0 0156 00013 0 01 00010 JMP P1 0157 * 0158 00014 0 10 00117 JST ASR SET OUTPUT MODE 0159 00015 0 10 00124 JST PAGE SKIP TO NEW PAGE 0160 00016 0 10 00105 JST PHDR PRINT HEADER 0161 00017 0 02 00141 LDA SVX 0162 00020 0 04 00000 STA 0 RESTORE INDEX 0163 00021 0 12 00000 IRS O$AH TALLY RETURN ADDRESS 0164 00022 -0 01 00000 JMP* O$AH RETURN 0165 * 0166 * 0167 00023 0 000000 O$AL DAC ** 0168 00024 0 02 00000 LDA 0 0169 00025 0 04 00141 STA SVX SAVE INDEX 0170 00026 0 10 00117 JST ASR SET TTY IN OUTPUT MODE 0171 00027 -0 02 00023 LDA* O$AL BUFFER ADDRESS 0172 00030 0 06 00206 ADD ='40016 POINT AT 1ST CHARACTER OF SOURCE LINE 0173 00031 0 04 00140 STA LPTR WITH TAG BIT (INDEXING) SET 0174 00032 0 02 00205 LDA =-12 POINT AT SOURCE LINE NUMBER 0175 00033 0 04 00000 STA 0 0176 00034 -0 02 00140 LDA* LPTR PICK UP SOURCE LINE NUMBER 0177 00035 0 05 00204 ERA =A TWO BLANKS 0178 00036 100040 SZE IS THERE A LINE NUMBER? 0179 00037 0 01 00042 JMP P4 YES, THEN PRINT ON SAME LINE 0180 00040 0 02 00203 LDA ='106612 NO, THEN NEW LINE 0181 00041 0 10 00070 JST SHFT TYPE CR-LF 0182 00042 0 02 00202 P4 LDA =-14 POINT AT START OF LISTING LINE 0183 00043 0 04 00000 STA 0 0184 00044 0 02 00201 LDA ='106615 CR-CR 0185 00045 0 10 00070 JST SHFT RETURN TO START OF LINE 0186 00046 -0 02 00140 P3 LDA* LPTR PRINT THE ERROR FLAGS, SOURCE LINE NUMBER 0187 00047 0 10 00070 JST SHFT LOCATION COUNTER, AND OBJECT CODE