Previous Page Single Page Next Page  

* NAME: AB16-CCT4 DOC 70180658000 REV H PAGE 82

06753 000002 06754 177777 06755 000001 06756 177776 3864 * 3865 * 3866 * 716 TESTS PART II 3867 * 3868 ORG '7000 3869 * 3870 07000 0 000000 TS07 DAC ** 3871 07001 101000 NOP 3872 07002 0 10 07006 JST X7IT 3873 07003 101000 NOP 3874 07004 -0 01 07000 JMP* TS07 RETURN 3875 * 3876 * 3877 07005 000104 OCT 104 3878 07006 0 000000 X7IT DAC ** 3879 07007 0 02 07005 LDA *-2 3880 07010 0 04 00777 STA '777 SAVE THE TEST NO. 3881 * 3882 * 3883 * TEST THAT AN INTERRUPT IS INHIBITED FOR AT LEAST TWO INSTRUCTIONS 3884 * AFTER A 'JST' 3885 *' 3886 07011 101000 NOP 3887 07012 0 02 07547 LDA ='40 3888 07013 74 0020 SMK '20 SET ASR MASK 3889 07014 000013 EXA 3890 07015 0 10 07016 JST *+1 SET UP FOR RUPT 3891 07016 0 000000 DAC ** 3892 07017 0 02 07016 LDA *-1 3893 07020 000011 DXA 3894 07021 0 01 07022 JMP *+1 NORMAL MODE 3895 07022 0 06 07546 ADD ='26 3896 07023 0 04 00063 STA '63 3897 07024 14 0104 OCP '104 GET OUTPUT MODE 3898 07025 34 0104 SKS '104 3899 07026 0 01 07025 JMP *-1 WAIT TILL NOT BUSY 3900 07027 140040 CRA 3901 07030 000401 ENB ENABLE RUPTS 3902 07031 0 10 07032 JST *+1 THIS GIVES TWO MORE INSTR BEFORE RUPT 3903 07032 0 000000 DAC ** 3904 07033 0 02 07545 LDA =1 FIRST INSTRUCTION 3905 07034 0 10 07035 JST *+1 SECOND INSTRUCTION BUT IS JST 3906 07035 0 000000 DAC ** SO WE GET TWO MORE INSTRUCTIONS 3907 07036 0 02 07544 LDA =2 FIRST INSTRUCTION 3908 07037 0 10 07040 JST *+1 SECOND INSTRUCTION BUT JST
  Previous Page Single Page Next Page