X16-08T1

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

0161 * 0162 * INITIALIZE 0163 * 0164 01000 101040 FSTR SNZ 0165 01001 000000 HLT 0166 01002 100040 SZE 0167 01003 0 04 01723 STA T8 0168 01004 0 10 01734 STRT JST JSTL REPORT IN TO "JSTL" 0169 01005 0 10 01006 JST *+1 AND 0170 01006 0 00 00002 J01 PZE 2 TO THIS LOCATION. 0171 01007 0 02 01634 LDA ERAD PUT "ERROR ADDRESS" IN 0172 01010 0 04 00062 STA '62 LOCKOUT VIOLATION INTERRUPT LINK LOCATION. 0173 01011 0 02 01700 LDA ONES SET ALL SECTORS TO UN-PROTECTED MODE. 0174 01012 74 1420 SMK '1420 * 0175 01013 74 1520 SMK '1520 * 0176 01014 74 1620 SMK '1620 * 0177 01015 74 1720 SMK '1720 * 0178 01016 0 02 01762 LDA ='100000 RESET 0179 01017 0 04 00776 STA TL0 LOC. '776. 0180 01020 0 02 01761 LDA ='140000 SET SECTORS 0 AND 1 0181 01021 74 1420 SMK '1420 TO UN-PROTECTED MODE AND 0182 01022 140040 CRA ALL OTHERS 0183 01023 74 1520 SMK '1520 TO 0184 01024 74 1620 SMK '1620 PROTECTED 0185 01025 74 1720 SMK '1720 MODE. 0186 * 0187 * TEST INDIRECT ADDRESSING INTERRUPT 0188 * 0189 01026 0 10 01734 S01 JST JSTL REPORT. 0190 01027 0 10 01030 JST *+1 REPORT. 0191 01030 0 00 00002 J02 PZE 2 0192 01031 001401 ERM ENTER RESTRICTED MODE. 0193 01032 0 02 01037 LDA L1 RE-SET 0194 01033 0 04 00062 STA '62 LINK. 0195 01034 -0 04 01703 STA* IAT ATTEMPT 8-LEVEL INDIRECT ADDRESSING. 0196 01035 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0197 01036 0 01 01026 JMP S01 TRY AGAIN IF ERROR OCCURRED. 0198 01037 0 001040 L1 DAC *+1 LINK ADDRESS. 0199 01040 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0200 * 0201 * TEST INH INTERRUPT 0202 * 0203 01041 0 10 01734 S02 JST JSTL REPORT. 0204 01042 0 10 01043 JST *+1 REPORT. 0205 01043 0 00 00002 J03 PZE 2 0206 01044 0 02 01053 LDA L2 SET 0207 01045 0 04 00062 STA '62 LINK. 0208 01046 001401 ERM RE-ENTER RESTR. MODE. 0209 01047 001001 INH INHIBIT INTERRUPTS, CAUSE RMVI. 0210 01050 0 02 01760 LDA ='11 THIS INST. SHOULD BE EXECUTED.