O$AH, O$AL

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

0238 00120 34 0104 SKS '104 IS THE ASR BUSY 0239 00121 0 01 00120 JMP *-1 YES, LOOP UNTIL FREE 0240 00122 14 0104 OCP '104 NO, ENABLE FOR OUTPUT 0241 00123 -0 01 00117 JMP* ASR RETURN TO CALLER 0242 * 0243 * 0244 00124 0 000000 PAGE DAC *-* POSITION FOR FIRST SOURCE LINE OF PAGE 0245 00125 0 02 00177 LDA ='105212 LF LF 0246 00126 0 10 00070 JST SHFT SPACE 3 LINES FROM HEADER 0247 00127 0 02 00175 LDA ='105377 LF RUBOUT 0248 00130 0 10 00070 JST SHFT 0249 00131 0 02 00202 LDA =-14 PRINT 28 BLANKS 0250 00132 0 04 00000 STA 0 0251 00133 0 02 00204 LDA =A 2 BLANKS 0252 00134 0 10 00070 JST SHFT 0253 00135 0 12 00000 IRS 0 0254 00136 0 01 00134 JMP *-2 UNTIL POSITIONED READY FOR SOURCE LINE 0255 00137 -0 01 00124 JMP* PAGE RETURN 0256 * 0257 * VARIABLES 0258 * 0259 00140 LPTR BSS 1 INDEXED POINTER TO LINE 0260 00141 SVX BSS 1 SAVED X 0261 00142 0 00 00000 *** ** NOT USED?? 0262 00143 HPTR BSS 1 INDEXED PTR TO SOURCE HEADER 0263 * 0264 * INTERNAL HEADER BUFFER 0265 * 0266 00144 105377 OCT 105377 LF-RUBOUT 0267 00172 HBUF BES 21 42 CHARACTER BUFFER 0268 00172 106615 OCT 106615 CR-CR 0269 00173 HH BSS 0 HEADER TO PRINT (HEADER BUFFER END) 0270 * 0271 00173 O$LN BSS 1 LIST LINE NUMBER 0272 * 0273 * CONSTANTS 0274 * 0275 00174 000064 O$LC DEC 52 ASR LIST LINE COUNT/PAGE 0276 * 0277 * 0278 00175 105377 END THIS IS IT 00176 177751 00177 105212 00200 177766 00201 106615 00202 177762 00203 106612 00204 120240 00205 177764 00206 040016