F4-IOS

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

0501 00166 0 10 00000 OPTP CALL O$PB OUTPUT RECORD 0502 00167 0 000525 DAC OBUF ADDRESS OUTPUT BUFFER 0503 00170 -0 01 00134 JMP* OUT OUTPUT RETURN 0504 * 0505 * OUTPUT - ASR 0506 00171 0 10 00000 OASR CALL O$AB OUTPUT RECORD 0507 00172 0 000525 DAC OBUF ADDRESS OUTPUT BUFFER 0508 00173 -0 01 00134 JMP* OUT OUTPUT RETURN 0509 * 0510 * OUTPUT - MAGNETIC TAPE 0511 00174 0 10 00000 OMAG CALL O$MC OUTPUT RECORD (3 CH/WORD) 0512 00175 0 000526 DAC OBUF+1 0513 00176 0 000000 DAC ** WORD COUNT 0514 00177 000002 DEC 2 UNIT NUMBER 0515 00200 0 01 00473 JMP MTER ENF OF TAPE 0516 00201 -0 01 00134 JMP* OUT OUTPUT RETURN 0517 * 0518 * 0519 * SYMBOLIC OUTPUT 0520 * 0521 00202 0 000000 SYM DAC ** RETURN ADDRESS 0522 00203 0 02 00651 LDA =A TWO SPACES 0523 00204 0 04 00525 STA OBUF CLEAR BUFFER- 0524 00205 0 04 00526 STA OBUF+1 -LINE COUNT- 0525 00206 0 04 00527 STA OBUF+2 -AREA 0526 00207 -0 02 00202 LDA* SYM STORE END ADDRESS OF- 0527 00210 0 06 00650 ADD ='40050 -COMPILER BUFFER AREA 0528 00211 0 04 00516 STA BUFF -(INDEXED) + 1 0529 00212 0 35 00647 LDX =-40 SET INDEX 0530 00213 -0 02 00516 SYMB LDA* BUFF FILL OUTPUT BUFFER 0531 00214 1 04 00600 STA OBUF+43,1 0532 00215 0 12 00000 IRS 0 TEST TRANSFER COMPLETE 0533 00216 0 01 00213 JMP SYMB FETCH NEXT WORD 0534 * 0535 * TEST HEADING TO BE INITIALISED 0536 00217 0 02 00515 SYMH LDA HEAD TEST HEADING REQUIRED 0537 00220 101040 SNZ YES 0538 00221 0 01 00246 JMP LCAL NO 0539 00222 -0 02 00202 LDA* SYM O/P BUFFER ADDRESS 0540 00223 0 05 00513 ERA EXPL COMPARE INPUT BUFFER ADDRESS 0541 00224 100040 SZE SOURCE LINE OUTPUT IF ZERO 0542 00225 0 01 00323 JMP HDC IGNORE FIRST BLANK LINE, EXPANDED LISTING 0543 * 0544 * HEADING REQUIRED - SELECT DEVICE 0545 00226 0 02 00510 LDA LIST LIST DEVICE CODE 0546 00227 0 10 00464 JST SW DEVICE SWTCH 0547 00230 0 01 00246 JMP LCAL NO LISTING REQUIRED 0548 00231 0 01 00236 JMP HASR HEADING - ASR 0549 00232 0 01 00241 JMP HLPR HEADING - LINE PRINTER 0550 00233 0 01 00244 JMP HPTP HEADING - PAPER TAPE PUNCH