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 6

0251 00227 0 10 00366 JST STOP SET DEFAULT OR NEW DEVICE SELECTION 0252 00230 0 01 00160 JMP LL10 0253 * 0254 00231 0 02 00627 LL5 LDA O43 TTY = LISTING OUTPUT DEVICE (35 WORDS) 0255 00232 0 04 00000 LL13 STA 0 REMOVE TRAILING BLANKS 0256 00233 1 02 00512 LDA OBUF,1 0257 00234 0 05 00633 ERA SPSP 0258 00235 100040 SZE 0259 00236 0 01 00244 JMP LL11 0260 00237 0 02 00000 LDA 0 0261 00240 101040 SNZ 0262 00241 0 01 00247 JMP LL12 0263 00242 0 07 00636 SUB N1 0264 00243 0 01 00232 JMP LL13 0265 00244 0 12 00000 LL11 IRS 0 0266 00245 0 02 00000 LDA 0 0267 00246 140407 TCA A = - LENGTH (IN WORDS) OF THE LINE TO PRINT 0268 00247 0 10 00416 LL12 JST PRBF PRINT THE LINE 0269 00250 0 000512 DAC OBUF 0270 00251 0 01 00265 JMP LL4 0271 00252 0 10 00000 LL6 CALL O$LA LP = LISTING OUTPUT DEVICE 0272 00253 0 000512 DAC OBUF OUTPUT BUFFER (60 WORDS) 0273 00254 0 01 00265 JMP LL4 0274 00255 0 10 00000 LL8 CALL C$8TO6 MAG TAPE = LISTING OUTPUT DEVICE (UNIT 2) 0275 00256 0 000512 DAC OBUF OUTPUT BUFFER 0276 00257 000050 OCT 50 BUFFER LENGTH (WORDS) 0277 00260 0 10 00000 CALL O$MA 0278 00261 0 000512 DAC OBUF OUTPUT BUFFER 0279 00262 000050 OCT 50 BUFFER LENGTH (WORDS) 0280 00263 000002 OCT 2 TAPE UNIT 2 = OBJECT DECK 0281 00264 0 01 00461 JMP ERR1 EOT RETURN 0282 00265 140040 LL4 CRA NORMAL RETURN 0283 00266 0 04 00502 STA INFL RESET 1ST-TIME-CALL FLAG OF THE LISTING DRIVER 0284 00267 0 12 00142 LEX IRS F4LO SET RETURN ADDRESS 0285 00270 -0 01 00142 JMP* F4LO 0286 * 0287 * CONVERT 1 DIGIT FOR PRINTING A 5 DIGIT LINENUMBER 0288 * USED BY THE OUTPUT LISTING DRIVER 0289 00271 0 000000 CDIG DAC *-* 0290 00272 140040 CRA 0291 00273 0 04 00000 STA 0 X=0 (COUNT=0) 0292 00274 0 02 00505 LDA NUMB NUMBER (OR RESIDUAL OF NUMBER) BEING CONVERTED 0293 00275 -0 07 00504 CV1 SUB* TEMP TEMP = POINTER INTO CONVERSION TABLE 0294 00276 100400 SPL 0295 00277 0 01 00303 JMP CV2 NEGATIVE 0296 00300 0 04 00505 STA NUMB STILL POSITIVE 0297 00301 0 12 00000 IRS 0 COUNT + 1 0298 00302 0 01 00275 JMP CV1 0299 00303 0 12 00504 CV2 IRS TEMP TEMP = POINTER TO NEXT ITEM IN CONVERSION TABLE 0300 00304 0 02 00511 LDA TPTR POINTER TO TABLE