X16-08T1

* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 18

0740 02006 0 04 02215 STA TK2 AND SAVE IT FOR ONE-LEVEL IND. ADDRESSING. 0741 02007 0 05 02234 ERA ='100000 ADD INDIRECT BIT 0742 02010 0 04 02213 STA TK0 AND SAVE IT FOR TWO-LEVEL IND. ADDRESSING. 0743 02011 -0 02 02213 CK2 LDA* TK0 GET CONTENTS OF ONE OF THE "JXX" LOCATIONS 0744 02012 -0 05 02215 ERA* TK2 AND CHECK IT AGAINST THE "TABL" ENTRY. 0745 02013 100040 SZE GO ON IF OK. 0746 02014 000000 HLT STOP, IF NOT. - ERROR HALT. 0747 02015 0 02 02233 LDA =2 RESTORE "PZE 2" 0748 02016 -0 04 02213 STA* TK0 TO "JXX" LOCATIONS. 0749 02017 0 12 02215 IRS TK2 INCREMENT 0750 02020 0 12 02213 IRS TK0 ADDRESSES 0751 02021 0 12 00000 IRS 0 AND COUNTER. 0752 02022 0 01 02011 JMP CK2 GO BACK UNTIL FINISHED. 0753 * 0754 * INCREMENT-PASS-COUNTER ROUTINE 0755 * 0756 02023 0 02 02232 LDA =-9 SET UP FOR 9 0757 02024 0 04 00774 STA T0 DIGITS. 0758 02025 0 02 02165 LDA NA2 GET ADDRESS OF WORD REPRESENTING "ONES" 0759 02026 0 04 00775 INC2 STA T2 DIGIT. 0760 02027 -0 12 00775 IRS* T2 INCREMENT NUMBER. 0761 02030 0 01 02040 JMP TYIN EXIT WHEN NO SKIP. 0762 02031 0 02 02231 LDA =-10 IF SKIP, 0763 02032 -0 04 00775 STA* T2 RESTORE TO -10. 0764 02033 0 02 00775 LDA T2 GET 0765 02034 0 07 02230 SUB =1 NEXT ADDRESS. 0766 02035 0 12 00774 IRS T0 INCREMENT COUNTER. 0767 02036 0 01 02026 JMP INC2 REPEAT. 0768 02037 000000 HLT ERROR HALT. 0769 * 0770 * TYPE-IN ROUTINE 0771 * 0772 02040 34 0104 TYIN SKS '104 IS ASR-33 BUSY - 0773 02041 0 01 02060 JMP EOPH YES. 0774 02042 54 1004 INA '1004 NO. 0775 02043 0 01 02057 JMP EOPH-1 NOT READY. 0776 02044 0 03 02227 ANA ='177 0777 02045 0 05 02226 ERA ='200 ENSURE BIT 8 OF CHARACTER IS SET 0778 02046 0 05 02225 ERA ='307 0779 02047 101040 SNZ IS INPUT CHARACTER A "G" - 0780 02050 0 01 02063 JMP STG YES. 0781 02051 0 05 02224 ERA ='24 NO. 0782 02052 101040 SNZ IS INPUT CHARACTER AN "S" - 0783 02053 0 04 02060 STA EOPH YES, STORE HALT IN "EOPH". 0784 02054 0 05 02223 ERA =7 0785 02055 101040 SNZ IS INPUT CHARACTER A "T" - 0786 02056 0 01 02066 JMP TYPO YES, GO TO TYPEOUT ROUTINE. 0787 02057 14 0004 OCP 4 ENABLE ASR-33 I 0788 02060 000000 EOPH HLT END-OF-PASS HALT (CRA IN NON-STOP MODE). 0789 02061 140040 CRA