F4-IOS

* NAME: F4-IOS DOC 41285251000 REV C PAGE 12

0551 00234 0 01 00246 JMP LCAL 0552 00235 0 01 00273 JMP LERR LIST DEVICE CODE ERROR 0553 * 0554 00236 0 10 00000 HASR CALL O$HH INITIALISE ASK HEADING 0555 00237 0 000525 DAC OBUF BUFFER ADDRESS 0556 00240 0 01 00246 JMP LCAL 0557 * 0558 00241 0 10 00000 HLPR CALL O$LH INITIALISE LINE PRINTER HEADING 0559 00242 0 000525 DAC OBUF BUFFER ADDRESS 0560 00243 0 01 00246 JMP LCAL 0561 * 0562 00244 0 10 00000 HPTP CALL O$PH INITIALISE PAPER TAPE PUNCH HEADING 0563 00245 0 000525 DAC OBUF BUFFER ADDRESS 0564 * 0565 * LINE COUNT 0566 00246 -0 02 00202 LCAL LDA* SYM TEST LINE COUNT REQUIRED 0567 00247 0 05 00513 ERA EXPL SOURCE LINE? 0568 00250 100040 SZE YES 0569 00251 0 01 00264 JMP LSTD NO = JUMP TO TEST LISTING DEVICE 0570 00252 0 02 00524 LDA TP TABLE POINTER 0571 00253 0 04 00517 STA WORK TABLE POINTER IN WORKING LOCATION 0572 00254 0 02 00514 LDA LINE 0573 00255 0 04 00520 STA REST STORE LINE COUNT 0574 00256 0 12 00521 IRS ZIND SET LEADING ZERO INDICATOR 0575 00257 0 10 00325 JST DIVD DIVIDE ROUTINE 0576 00260 0 10 00325 JST DIVD 0577 00261 0 10 00325 JST DIVD 0578 00262 0 10 00325 JST DIVD 0579 00263 0 10 00325 JST DIVD 0580 * 0581 * TEST LISTING DEVICE 0582 00264 0 02 00510 LSTD LDA LIST 0583 00265 0 10 00464 JST SW SWITCH FOR LIST DEVICE 0584 00266 0 01 00321 JMP LRET NONE 0585 00267 0 01 00300 JMP LASR LIST - ASR 0586 00270 0 01 00303 JMP LLPR LIST - LINE PRINTER 0587 00271 0 01 00306 JMP LHSP LIST - PAPER TAPE PUNCH 0588 00272 0 01 00311 JMP LMAG LIST - MAGNETIC TAPE 0589 00273 BSS 0 LIST DEVICE CODE ERROR 0590 * 0591 * LIST DEVICE CODE ERROR 0592 00273 0 35 00653 LERR LDX =-5 NUMBER OF WORDS 0593 00274 0 10 00000 CALL O$ALL ASR LINE LIST 0594 00275 0 000627 DAC ERRM ERROR MESSAGE BUFFER ADDRESS 0595 00276 0 10 00420 JST CKEY CHANGE KEYWORD 0596 00277 0 01 00217 JMP SYMH REATTEMPT LISTING 0597 * 0598 * LIST - ASR 0599 00300 0 10 00000 LASR CALL O$LL ASR LIST RECORD 0600 00301 0 000525 DAC OBUF BUFFER ADDRESS