AB16-CCT4

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

1710 03124 100040 SZE TEST FOR ERROR 1711 03125 000000 HLT ERROR 1712 03126 0 12 00772 IRS WORK+2 ADD 1 TO WORKING LOC NO. 3 1713 03127 101000 NOP NOTHING 1714 03130 0 12 00771 IRS WORK+1 ADD 1 TO WORKING LOC NO. 2 1715 03131 0 01 03113 JMP TST4 REPEAT WITH INCREMENTED VALUE 1716 * 1717 * 1718 * TEST X-REG FOR INDEXING 1719 * 1720 03132 0 10 03133 JST *+1 FORM ADDR FOR COMPARING INDEXING 1721 03133 0 000000 DAC ** 1722 03134 0 02 03133 LDA *-1 1723 03135 0 06 03776 ADD =7 1724 03136 0 04 00770 STA WORK STORE AT POINTER 1725 03137 0 02 00455 LDA CNTY 1726 03140 0 04 03156 STA CN03 SET UP A LOOP COUNT 1727 03141 0 35 03775 LDX =-'200 1728 03142 1 02 03342 INDX LDA *+'200,1 LOAD A WITH DATA WORD 1729 03143 -0 05 00770 ERA* WORK COMPARE WITH THE SAME WORD 1730 03144 100040 SZE 1731 03145 000000 HLT INDEXING DID NOT FORM RIGHT ADDRESS 1732 03146 0 12 00770 IRS WORK GOOD - INCREMENT POINTER 1733 03147 101000 NOP 1734 03150 0 12 00000 IRS 0 BUMP INDEX PARAMETER 1735 03151 101000 NOP 1736 03152 0 12 03156 IRS CN03 ARE WE FINISHED 1737 03153 0 01 03142 JMP INDX NO, DO ANOTHER TIME 1738 03154 000021 RMP RESET PARITY FLOP IF SET. 1739 03155 -0 01 03017 JMP* XREG RETURN 1740 * 1741 03156 000000 CN03 BSZ 1 1742 * 1743 * 1744 * 1745 * SUBROUTINE T012 KEYS--INK,OTK 1746 * INPUT AND OUTPUT KEY INSTRUCTION TESTS 1747 * 1748 * TEST INK INST. 1749 * 1750 03157 000012 OCT 12 TEST NO. 1751 03160 0 000000 KEYS DAC ** KEYS TEST 1752 03161 0 02 03157 LDA *-2 LOAD TEST NO. 1753 03162 0 04 00777 STA '777 STORE AT '777 1754 03163 101000 NOP KILL TEST LOCATION 1755 03164 140040 CRA 1756 03165 000201 IAB 1757 03166 140040 CRA 1758 03167 000201 IAB CLEAR SHIFT COUNT 1759 03170 171020 OTK