F4-IOS

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

0401 00050 0 04 00102 STA IPTR+1 -PAPERTAPE READER 0402 00051 0 04 00106 STA IMAG+1 -MAGNETIC TAPE 0403 00052 0 04 00115 STA ICON+1 -CONVERSION TO ISO CODE 0404 00053 0 04 00513 STA EXPL INPUT COMPILER BUFFER ADDRESS 0405 00054 0 04 00517 STA WORK WORK 0406 00055 0 02 00507 INC LDA IPUT 0407 00056 0 10 00464 JST SW DEVICE SWITCH 0408 00057 0 01 00064 JMP IERR INPUT DEVICE CODE ERROR 0409 00060 0 01 00071 JMP IASR INPUT - ASR 0410 00061 0 01 00075 JMP ICDR INPUT - CARD READER 0411 00062 0 01 00101 JMP IPTR INPUT - PAPER TAPE READER 0412 00063 0 01 00105 JMP IMAG INPUT - MAGNETIC TAPE 0413 00064 BSS 0 INPUT DEVICE CODE ERROR 0414 * 0415 * INPUT DEVICE CODE ERROR 0416 00064 0 35 00653 IERR LDX =-5 NUMBER OF WORDS 0417 00065 0 10 00000 CALL O$ALL ASR LINE LIST 0418 00066 0 000627 DAC ERRM ERROR MESSAGE BUFFER ADDRESS 0419 00067 0 10 00420 JST CKEY CHANGE KEYWORD 0420 00070 0 01 00055 JMP INC REATTEMPT INPUT 0421 * 0422 * INPUT - ASR 0423 00071 0 10 00000 IASR CALL I$AA INPUT RECORD 0424 00072 0 000000 DAC ** BUFFER ADDRESS POINTER 0425 00073 0 01 00071 JMP IASR END OF FILE, READ NEXT RECORD 0426 00074 0 01 00117 JMP IRET INPUT RETURN 0427 * 0428 * INPUT - CARD READER 0429 00075 0 10 00000 ICDR CALL I$CA INPUT RECORD 0430 00076 0 000000 DAC ** BUFFER ADDRESS POINTER 0431 00077 0 01 00075 JMP ICDR END OF FILE, READ NEXT RECORD 0432 00100 0 01 00117 JMP IRET INPUT RETURN 0433 * 0434 * INPUT - PAPER TAPE READER 0435 00101 0 10 00000 IPTR CALL I$PA INPUT RECORD 0436 00102 0 000000 DAC ** BUFFER ADDRESS POINTER 0437 00103 0 01 00101 JMP IPTR END OF FILE, READ NEXT RECORD 0438 00104 0 01 00117 JMP IRET INPUT RETURN 0439 * 0440 * INPUT - MAGNETIC TAPE 0441 00105 0 10 00000 IMAG CALL I$MA INPUT RECORD 0442 00106 0 000000 DAC ** BUFFER ADDRESS POINTER 0443 00107 000050 DEC 40 WORD COUNT 0444 00110 000001 DEC 1 UNIT NUMBER 0445 00111 101000 NOP UNREADABLE RECORD 0446 00112 0 01 00473 JMP MTER END OF TAPE 0447 00113 0 01 00105 JMP IMAG END OF FILE, READ NEXT RECORD 0448 00114 0 10 00000 ICON CALL C$6TO8 CONVERT TO ISO CODE 0449 00115 0 000000 DAC ** BUFFER ADDRESS POINTER 0450 00116 000050 DEC 40 WORLD COUNT