AB16-CCT4

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

1610 03002 101000 NOP 1611 03003 0 10 03017 JST XREG '11 - XREG AND LOC.0 TEST 1612 03004 0 10 03160 JST KEYS '12 - INK, OTK TEST 1613 03005 0 10 03224 JST ARSA '60 - ARS INST TEST 1614 03006 0 10 03300 JST ALSA '61 - ALS 1615 03007 0 10 03346 JST LGLA '62 - LGL 1616 03010 0 10 03414 JST LGRA '63 - LGR 1617 03011 0 10 03470 JST ALRA '64 - ALR 1618 03012 0 10 03536 JST ARRA '65 - ARR 1619 03013 0 10 03627 JST LRSA '66 - LRS 1620 03014 101000 NOP 1621 03015 -0 01 03000 JMP* TS03 RETURN TO EXEC 1622 * 1623 * 1624 * 1625 * SUBROUTINE T011 X REG. INSTRUCTIONS 1626 * STORE AND LOAD INDEX INSTRUCTION TESTS 1627 * 1628 * TEST STX INST. 1629 * 1630 03016 000011 OCT 11 TEST NO. 1631 03017 0 000000 XREG DAC ** X REGISTER TEST 1632 03020 0 02 03016 LDA *-2 LOAD TEST NO. 1633 03021 0 04 00777 STA '777 STORE AT '777 1634 03022 101000 NOP KILL TEST LOCATION 1635 03023 0 02 00455 LDA CNTY INITIALIZE THE 1636 03024 0 04 00000 STA '0 INDEX REGISTER AND 1637 03025 0 04 00771 STA WORK+1 WORKING LOC NO. 2 1638 03026 0 15 00770 TST1 STX WORK XFER INDEX REG TO WORKING LOC. NO. 1 AND 1639 03027 0 02 00770 LDA WORK THEN TO "A" REGISTER 1640 03030 0 05 00771 ERA WORK+1 MASK FOR ERROR 1641 03031 100040 SZE TEST FOR ERROR 1642 03032 000000 HLT ERROR 1643 03033 0 12 00000 IRS '0 ADD 1 TO INDEX REG 1644 03034 101000 NOP NOTHING 1645 03035 0 12 00771 IRS WORK+1 ADD 1 TO WORKING LOC NO. 2 1646 03036 0 01 03026 JMP TST1 REPEAT WITH INCREMENTED VALUE 1647 * 1648 * TEST STX INST. WITH INDIRECT ADDRESSING 1649 * 1650 03037 0 02 00455 LDA CNTY 1651 03040 0 04 00000 STA 0 INITIALIZE TEST COUNT 1652 03041 0 04 00771 STA WORK+1 1653 03042 -0 15 00766 TST2 STX* STIR XFER INDEX REG TO WORKING LOC NO. 1 AND 1654 03043 0 02 00770 LDA WORK THEN TO "A" REGISTER 1655 03044 0 05 00771 ERA WORK+1 MASK FOR ERROR 1656 03045 100040 SZE TEST FOR ERROR 1657 03046 000000 HLT ERROR 1658 03047 0 12 00000 IRS '0 ADD 1 TO INDEX REG 1659 03050 101000 NOP NOTHING