F4-IOS

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

0751 00465 0 11 00644 CAS =4 IF GREATER THAN 4.. 0752 00466 0 02 00640 LDA =5 MAKE IT EQUAL 5 0753 00467 101000 NOP EQUAL TO 4 0754 00470 0 06 00464 ADD SW ADD RETURN ADDRESS TO DEVICE CODE 0755 00471 0 04 00464 STA SW STORE AMENDED RETURN ADDRESS 0756 00472 -0 01 00464 JMP* SW RETURN 0757 * 0758 * REPORT MAGNETIC TAPE ERROR 0759 00473 0 35 00642 MTER LDX =-2 NUMBER OF WORDS 0760 00474 0 10 00000 CALL O$ALL ASR LINE LIST 0761 00475 0 000636 DAC MT MT ERROR BUFFER ADDRESS 0762 00476 0 10 00420 JST CKEY CHANGE KEYWORD 0763 00477 0 02 00501 LDA KEY KEYWORD 0764 00500 0 01 01000 JMP '1000 RESTART 0765 * 0766 * 0767 * KEYWORD 0768 * 0769 00501 020311 KEY OCT 20311 KEYWORD INITIALLY '20311 0770 * 0771 * 0772 * CONSTANTS AND VARIABLES 0773 * 0774 00502 023420 DECS DEC 10000 POWERS OF TEN 0775 00503 001750 DEC 1000 0776 00504 000144 DEC 100 0777 00505 000012 DEC 10 0778 00506 000001 DEC 1 0779 * 0780 00507 000000 IPUT BSZ 1 INPUT DEVICE CODE 0781 00510 000000 LIST BSZ 1 LIST DEVICE CODE 0782 00511 000000 OPUT BSZ 1 OUTPUT DEVICE CODE 0783 * 0784 00512 000000 TEMP BSZ 1 TEMPORARY STORAGE LOCATION 0785 00513 000000 EXPL BSZ 1 I/P BUFFER ADDRESS TEST SOURCE LINE O/P 0786 00514 000000 LINE BSZ 1 LINE COUNTER 0787 00515 000000 HEAD BSZ 1 LIST HEADING INDICATOR 0788 00516 000000 BUFF BSZ 1 BUFFER ADDRESS 0789 00517 000000 WORK BSZ 1 WORK LOCATION 0790 00520 000000 REST BSZ 1 REMAINDER 0791 00521 000000 ZIND BSZ 1 ZERO INDICATOR 0792 00522 000000 X BSZ 1 SUPPLEMENTARY X-REGISTER 0793 * 0794 00523 0 000525 OBAD DAC OBUF OUTPUT BUFFER ADDRESS 0795 00524 0 000502 TP DAC DECS TABLE POINTER 0796 * 0797 00525 000000 OBUF BSZ 40 OUTPUT/LIST BUFFER 0798 00575 120240 BCI 20, 00576 120240 00577 120240