AB16-CCT4

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

1660 03051 0 12 00771 IRS WORK+1 ADD 1 TO WORKING LOC NO. 2 1661 03052 0 01 03042 JMP TST2 REPEAT WITH INCREMENTED VALUE 1662 * 1663 * TEST LDX INSTRUCTION 1664 * 1665 03053 0 02 00455 LDA CNTY 1666 03054 0 04 00770 STA WORK FIRST NUMBER 1667 03055 0 02 03777 LDA ='52525 1668 03056 0 04 00771 STA WORK+1 SECOND NUMBER 1669 03057 0 02 00770 XR01 LDA WORK 1670 03060 0 04 00000 STA 0 STORE FIRST NO. AT ZERO 1671 03061 0 35 00771 LDX WORK+1 LOAD SECOND NO. INTO X-REG. 1672 03062 0 02 00000 LDA 0 LOAD FROM ZERO - SB SECOND NO. 1673 03063 0 05 00771 ERA WORK+1 XOR WITH SECOND NO. 1674 03064 100040 SZE 1675 03065 000000 HLT ERROR - ZERO AND X-REG DID NOT AGREE 1676 03066 0 12 00771 IRS WORK+1 1677 03067 101000 NOP 1678 03070 0 12 00770 IRS WORK 1679 03071 0 01 03057 JMP XR01 1680 * 1681 03072 0 02 00455 LDA CNTY 1682 03073 0 04 00770 STA WORK INITIALIZE 1683 03074 0 35 00770 XR02 LDX WORK LOAD FIRST NO. INTO X-REG. 1684 03075 0 02 00771 LDA WORK+1 LOAD A WITH SECOND NO. 1685 03076 0 04 00000 STA 0 STORE SECOND NO. AT ZERO 1686 03077 0 15 00772 STX WORK+2 STORE FROM X-REG AT WORK+2 1687 03100 0 02 00772 LDA WORK+2 WORK+2 SHOULD HAVE SECOND NO. 1688 03101 0 05 00771 ERA WORK+1 XOR WITH SECOND NO. 1689 03102 100040 SZE 1690 03103 000000 HLT ERROR - X-REG AND ZERO DID NOT AGREE 1691 03104 0 12 00771 IRS WORK+1 1692 03105 101000 NOP 1693 03106 0 12 00770 IRS WORK 1694 03107 0 01 03074 JMP XR02 1695 * 1696 * TEST LDX INST. WITH INDIRECT ADDRESSING 1697 * 1698 03110 0 02 00455 LDA CNTY 1699 03111 0 04 00771 STA WORK+1 INITIALIZE 1700 03112 140040 CRA 1701 03113 0 04 00772 TST4 STA WORK+2 1702 03114 -0 35 00767 LDX* LDIR XFER WORKING LOC NO. 3 TO INDEX REG AND 1703 03115 0 15 00770 STX WORK THEN TO WORKING LOC NO. 1 AND 1704 03116 0 02 00770 LDA WORK THEN TO "A" REGISTER 1705 03117 0 05 00772 ERA WORK+2 MASK 1706 03120 100040 SZE TEST FOR ERROR 1707 03121 000000 HLT ERROR 1708 03122 0 02 00000 LDA '0 XFER LOC 0 TO "A" REGISTER 1709 03123 0 05 00772 ERA WORK+2 MASK