AB16-CCT4

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

1230 02307 101000 NOP 1231 02310 -0 01 02230 JMP* INDA RETURN 1232 02311 1 000012 THAV DAC 10,1 INDIRECT ADDRESSING CHAIN 1233 02312 0 002311 DAC THAV 1234 02313 -0 002312 DAC* *-1 ** 1235 02314 -0 002313 DAC* *-1 ** 1236 02315 -0 002314 DAC* *-1 ** 1237 02316 -0 002315 DAC* *-1 ** 1238 02317 -0 002316 DAC* *-1 1239 * 1240 02320 000000 THAT BSZ 1 1241 02321 000000 THAZ BSZ 1 1242 * 1243 * 1244 * SUBROUTINE T001 IMA 1245 * THIS SUBROUTINE CHECKS THE PROPER OPERATION OF THE 1246 * IMA INSTRUCTION VARIOUS PATTERNS ARE INTERCHANGED 1247 * WITH CORE AND THE RESULTS CHECKED 1248 * 1249 02322 000001 OCT 1 TEST NO. 1250 02323 0 000000 IMAA DAC ** IMA TEST 1251 02324 0 02 02322 LDA *-2 LOAD TEST NO. 1252 02325 0 04 00777 STA '777 STORE AT '777 1253 02326 101000 NOP KILL TEST LOCATION 1254 02327 140040 CRA INITIALIZE 1255 02330 0 04 00000 STA 0 1256 02331 0 02 00455 LDA CNTY 1257 02332 0 04 02357 STA TIAX INITIALIZE TEST COUNT 1258 02333 1 02 01000 LDA 512,1 PICK UP FIRST WORD 1259 02334 0 04 02356 STA TIAQ 1260 02335 0 04 02360 STA TIAZ TO INITIALIZE LOOP 1261 02336 0 12 00000 TIAB IRS 0 INCREMENT INDEX REGISTER 1262 02337 0 12 02357 IRS TIAX AND PRESS COUNTER 1263 02340 0 01 02342 JMP *+2 PROCESS 1264 02341 -0 01 02323 JMP* IMAA RETURN 1265 02342 1 02 01000 LDA 512,1 PICK UP DATA 1266 02343 0 13 02360 IMA TIAZ INTERCHANGE WITH TEST 1267 02344 0 05 02356 ERA TIAQ COMPARE A REG 1268 02345 100040 SZE 1269 02346 000000 HLT ERROR 1270 02347 0 02 02360 LDA TIAZ CHECK FOR PROPER 1271 02350 1 05 01000 ERA 512,1 STORAGE DURING IMA 1272 02351 100040 SZE INSTRUCTION 1273 02352 000000 HLT ERROR 1274 02353 1 02 01000 LDA 512,1 PICK UP NEXT TEST 1275 02354 0 04 02356 STA TIAQ DATA, STORE AND RETURN 1276 02355 0 01 02336 JMP TIAB FOR NEXT PASS 1277 * 1278 02356 0 00 00000 TIAQ PZE 1279 02357 0 00 00000 TIAX PZE