AB16-CCT4

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

0185 * '70 LLL INSTRUCTION TEST LLLA 0186 * '71 LRL INSTRUCTION TEST LRLA 0187 * '72 LLR INSTRUCTION TEST LLRA 0188 * '73 LRR INSTRUCTION TEST LRRA 0189 * '74 GENERAL SHIFTS TEST SFTA 0190 * 0191 * SECTOR 5: '16 ENB, INH INSTRUCTIONS TEST IRUP 0192 * '101 S.P. MULTIPLY CAPABILITY TEST MPYT 0193 * '102 S.P. DIVIDE CAPABILITY TEST DIVT 0194 * 0195 * SECTOR 6: '103 716 INSTRUCTIONS TEST PART I X13T 0196 * 0197 * SECTOR 7: '104 716 INSTRUCTIONS TEST PART II X7IT 0198 * 0199 * 0200 ************************************************************************ 0201 * 0202 * 0203 * 0204 CF7 0205 SETB '102 0206 * 0207 ORG '120 0208 * 0209 00120 101000 NSRT NOP PATCH POINT 0210 00121 -0 02 00445 LDA* DMSG 0211 00122 0 10 00402 JST TYPE TYPE PROGRAM IDENTIFICATION 0212 00123 0 02 00520 LDA ='130260 0213 00124 0 04 02747 STA CNT5 INITIALIZE PASS COUNT 0214 00125 0 04 02750 STA CNT5+1 0215 00126 0 02 00517 LDA ='100063 0216 00127 0 04 00064 STA '64 DAC* '63 AT LOC. '64 0217 00130 -0 10 00456 JST* MOOV SET UP FOR PI 0218 00131 000013 DEC 11 INTERRUPT HANDLING ROUTINE 0219 00132 0 000064 DAC '64 0220 00133 0 000065 DAC '65 0221 00134 0 02 00516 LDA ='177760 0222 00135 74 0120 SMK '120 SET THE PI MASK 0223 00136 -0 10 00436 JST* ONE RUN THE FIRST 0224 00137 -0 10 00437 JST* TWO FIVE SECTOR TESTS 0225 00140 -0 10 00440 JST* THRI BEFORE GOING TO CP 0226 00141 -0 10 00441 JST* FOUR IDENTIFICATION ROUTINE 0227 00142 -0 10 00442 JST* FIVE 0228 00143 0 02 00460 LDA DHSC 0229 00144 0 04 00215 STA NXMV INITIALIZE NXMV INSTRUCTION 0230 00145 -0 10 00447 IN00 JST* HSCD DETERMINE HIGHEST SECTOR AND TIME COMPENSAT 0231 * JST* HSCD BECOMES 'NOP' AFTER 1ST EXECUTION 0232 00146 -0 01 00446 JMP* X13S TYPE CP TYPE AND MEMORY SIZE - BECOMES 0233 * A 'NOP' LATER 0234 00147 101000 NOP HLT IF NEEDED