AB16-CCT4

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

1760 03171 140200 RCB RESET "C" BIT 1761 03172 0 02 03774 LDA ='177777 1762 03173 000043 INK INPUT KEYS 1763 03174 0 03 03773 KEY1 ANA ='157777 BECOMES ANA ='177577 IF CP IS 716 1764 03175 100040 SZE KEYS SHOULD BE ZERO 1765 03176 000000 HLT ERROR - SOME BITS SET, CHECK A-REG 1766 03177 140600 SCB SET "C" BIT 1767 03200 000043 INK INPUT KEYS 1768 03201 0 03 03222 ANA CON9 MASK FOR A1 1769 03202 101400 SMI TEST FOR ERROR 1770 03203 000000 HLT ERROR 1771 * 1772 * TEST OTK INST. 1773 * 1774 03204 0 02 03772 LDA ='077777 1775 03205 141206 AOA ADD ONE TO (A) THIS SHOULD SET THE C BIT 1776 03206 140040 CRA CLEAR "A" REG 1777 03207 171020 OTK OUTPUT KEYS 1778 03210 100001 SRC TEST FOR ERROR 1779 03211 000000 HLT ERROR 1780 03212 140024 CHS SET A1 1781 03213 171020 OTK OUTPUT KEYS 1782 03214 101001 SSC TEST FOR ERROR 1783 03215 000000 HLT ERROR 1784 03216 140200 RCB RESET "C" BIT 1785 03217 0400 40 LRL 32 1786 03220 -0 01 03160 JMP* KEYS RETURN 1787 * 1788 03221 0 03 03771 KEY2 ANA ='177577 MASK OFF BIT 9 FOR PRIV/ENB RUPT FLOP 1789 03222 100000 CON9 OCT 100000 1790 * 1791 * 1792 * 1793 * 1794 * SUBROUTINE T060 ARS 1795 * 1796 03223 000060 OCT 60 TEST NO. 1797 03224 0 000000 ARSA DAC ** ARS TEST 1798 03225 0 02 03223 LDA *-2 LOAD TEST NO. 1799 03226 0 04 00777 STA '777 STORE AT '777 1800 03227 101000 NOP KILL TEST LOCATION 1801 03230 0 02 00455 LDA CNTY 1802 03231 0 04 03622 STA SFTX INITIALIZE TEST COUNT 1803 03232 0 02 03276 ARSB LDA ARSS 1804 03233 0 04 03605 STA SFT MODIFY SHIFT INSTRUCTION 1805 03234 0 02 03770 LDA =-15 1806 03235 0 04 00000 STA 0 SHIFTS COUNTER 1807 03236 140040 ARSD CRA 1808 03237 0 04 03623 STA SFTY ** 1809 03240 000201 IAB **