AB16-CCT4

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

1280 02360 0 00 00000 TIAZ PZE 1281 * 1282 * 1283 * SUBROUTINE T007 IAB 1284 * THIS ROUTINE CHECKS THE PROPER OPERATION 1285 * OF THE IAB INSTRUCTION USING 1000 RANDOM 1286 * VALUES. FAILING BITS ARE DISPLAYED IN THE 1287 * B REGISTER 1288 * 1289 02361 000007 OCT 7 TEST NO. 1290 02362 0 000000 IABA DAC ** IAB TEST 1291 02363 0 02 02361 LDA *-2 LOAD TEST NO. 1292 02364 0 04 00777 STA '777 STORE AT '777 1293 02365 101000 NOP KILL TEST LOCATION 1294 02366 140040 CRA INITIALIZE 1295 02367 0 04 00000 STA 0 ** 1296 02370 0 02 00455 LDA CNTY 1297 02371 0 04 02415 STA IABX INITIALIZE TEST COUNT 1298 02372 1 02 01000 LDA 512,1 INITIALIZE FOR 1299 02373 0 04 02417 IABB STA IABW BEGINNING OF LOOP 1300 02374 0400 60 LRL 16 LONG SHIFT RIGHT 1301 02375 0 12 00000 IRS 0 INCREMENT INDEX REGISTER 1302 02376 0 12 02415 IRS IABX INCREMENT COUNTER 1303 02377 0 01 02401 JMP *+2 AND TEST. CONTINUE IF MORE 1304 02400 -0 01 02362 JMP* IABA RETURN 1305 02401 1 02 01000 LDA 512,1 PICK UP RANDOM VALUE 1306 02402 0 04 02416 STA IABV AND SAVE FOR NEXT ITERATION CHECK 1307 02403 000201 IAB INTERCHANGE A REG AND B REG 1308 02404 0 05 02417 ERA IABW CHECK FOR PROPER A REG VALUE 1309 02405 100040 SZE 1310 02406 000000 HLT ERROR 1311 02407 0410 60 LLL 16 BRING B REG TO A REG 1312 02410 0 05 02416 ERA IABV CHECK FOR PROPER B REG VALUE 1313 02411 100040 SZE MUST COMPARE 1314 02412 000000 HLT ERROR 1315 02413 0 02 02416 LDA IABV GET CHECK VALUE FOR NEXT ITERATION 1316 02414 0 01 02373 JMP IABB RETURN FOR NEXT 1317 * 1318 02415 0 00 00000 IABX PZE 1319 02416 0 00 00000 IABV PZE 1320 02417 0 00 00000 IABW PZE 1321 * 1322 * 1323 * 1324 * SUBROUTINE T005 IRS 1325 * THIS ROUTINE CHECKS THE ABILITY TO 1326 * STEP FROM ZERO. PREMATURE SKIPS ARE CHECKED 1327 * FOR AS WELL AS THE SKIPPING WHEN INCREMENTING 1328 * TO ZERO 1329 *