F4$INT, F4$IN, F4$OUT, F4$SYM, F4$END, F4$DUI, F4$DUO, F4$DUS

* F4$IOS-B - DEC 12 2006 - VERSION 1 PAGE 5

0201 00150 0 06 00632 ADD ILPB +INDEX / LENGTH 0202 00151 0 04 00503 STA OSRC INDEXED EXTERNAL BUFFER ADDRESS 0203 00152 0 02 00631 LDA MO50 ='-50 0204 00153 0 04 00000 STA 0 X = INDEX INTO THE LINE BUFFER 0205 00154 -0 02 00503 LL1 LDA* OSRC MOVE LINE TO INTERNAL DRIVER BUFFER 0206 00155 1 04 00565 STA LBUF,1 0207 00156 0 12 00000 IRS 0 0208 00157 0 01 00154 JMP LL1 0209 00160 0 02 00502 LL10 LDA INFL NON-ZERO WITH 1ST CALL 0210 00161 101040 SNZ 0211 00162 0 01 00175 JMP LL2 EQUAL 0 0212 * 1ST CALL OF LISTING DRIVER 0213 00163 -0 02 00142 LDA* F4LO EXTERNAL BUFFER ADDRESS 0214 00164 0 05 00500 ERA IB6 EQUAL TO SOURCE BUFFER ADDRESS?? 0215 00165 100040 SZE 0216 00166 0 01 00267 JMP LEX NOT EQUAL; EXIT 0217 00167 0 02 00476 LDA DLST YES; GET REQUIRED LISTING DEVICE 0218 00170 0 05 00630 ERA N2 EQUAL 2 ? (LP) 0219 00171 100040 SZE 0220 00172 0 01 00175 JMP LL2 NOT LP 0221 00173 0 10 00000 CALL O$LH YES, LP. INIT THE HEADER 0222 00174 0 000512 DAC OBUF 0223 00175 -0 02 00142 LL2 LDA* F4LO EXTERNAL BUFFER ADDRESS 0224 00176 0 05 00500 ERA IB6 EQUAL TO SOURCE BUFFER ADDRESS?? 0225 00177 100040 SZE 0226 00200 0 01 00213 JMP LL3 NO 0227 00201 0 02 00511 LDA TPTR YES, EQUAL TO SOURCE BUFFER 0228 00202 0 04 00504 STA TEMP TEMP = PTR TO DEC CONV TAB 0229 00203 0 02 00501 LDA SCNT GET SOURCE LINE NUMBER 0230 00204 0 04 00505 STA NUMB LINENUMBER TO PRINT 0231 * WITH ZERO BEING TRUE, LEADING ZERO'S OF THE LINENUMBER ARE SUPPRESSED 0232 00205 0 12 00506 IRS ZERO LEADING ZERO FLAG IS TRUE (SET TO FALSE WITH 1ST NO 0233 00206 0 10 00271 JST CDIG DIGIT 1 0234 00207 0 10 00271 JST CDIG DIGIT 2 0235 00210 0 10 00271 JST CDIG DIGIT 3 0236 00211 0 10 00271 JST CDIG DIGIT 4 0237 00212 0 10 00271 JST CDIG DIGIT 5 0238 00213 0 02 00476 LL3 LDA DLST WHICH DRIVER TO OUTPUT LISTING? 0239 00214 0 10 00451 JST SWCH JMP SWITCH 0240 00215 0 01 00265 JMP LL4 0 SUPPRESS LISTING 0241 00216 0 01 00231 JMP LL5 1 TTY 0242 00217 0 01 00252 JMP LL6 2 LP 0243 00220 0 01 00224 JMP LL9 3 NON 0244 00221 0 01 00255 JMP LL8 4 MAG TAPE 0245 00222 0 01 00224 JMP LL9 5 NON 0246 00223 0 01 00224 JMP LL9 6 NON 0247 * DUMMY LISTING OUTPUT DEVICE DRIVER: SELECT PROPER DEVICE 0248 00224 0 02 00635 LL9 LDA MO5 7 NON =-5 0249 00225 0 10 00416 JST PRBF 0250 00226 0 000606 DAC MDEV MESSAGE: DEVICE?