STATES

* SUBR STATES REV A 10-11-70 EI PAGE 1

0001 * SUBR STATES REV A 10-11-70 EI 0002 * RECEIVES BIT PATTERN FROM MAIN PRGM 0003 * CHECKS WHICH BITS ARE NOT SET AND 0004 * TYPES OUT THEIR MNEMONICS 0005 REL 0006 SUBR STATES 0007 00000 0 000000 STAT DAC ** 0008 00001 0 04 00076 STA SAVB 0009 00002 140040 CRA 0010 00003 74 0020 SMK '20 0011 00004 0 02 00107 LDA =-16 0012 00005 0 04 00077 STA M16 0013 00006 34 0104 SKS '104 0014 00007 0 01 00006 JMP *-1 0015 00010 14 0104 OCP '104 0016 00011 0 02 00106 LDA ='106612 0017 00012 0 10 00037 JST TYP2 0018 00013 0 02 00054 LDA NAM! 0019 00014 0 04 00055 STA NAM^ 0020 00015 0 02 00076 LOOP LDA SAVB 0021 00016 100400 SPL 0022 00017 0 01 00026 JMP IRS 0023 00020 -0 02 00055 LDA* NAM^ 0024 00021 101040 SNZ 0025 00022 0 01 00026 JMP IRS UNUSED BIT 0026 00023 0 10 00037 JST TYP2 0027 00024 0 02 00105 LDA ='126240 , & SPACE 0028 00025 0 10 00037 JST TYP2 0029 00026 0 12 00055 IRS IRS NAM^ 0030 00027 0 02 00076 LDA SAVB 0031 00030 0416 77 ALR 1 0032 00031 0 04 00076 STA SAVB 0033 00032 0 12 00077 IRS M16 0034 00033 0 01 00015 JMP LOOP 0035 00034 0 02 00100 LDA OFF! 0036 00035 0 10 00000 CALL MESS 0037 00036 -0 01 00000 JMP* STAT 0038 00037 0 000000 TYP2 DAC ** 0039 00040 0406 70 ARR 8 0040 00041 74 0004 OTA 4 0041 00042 0 01 00041 JMP *-1 0042 00043 0406 70 ARR 8 0043 00044 74 0004 OTA 4 0044 00045 0 01 00044 JMP *-1 0045 00046 34 0104 SKS '104 0046 00047 0 01 00046 JMP *-1 0047 00050 14 0004 OCP 4 0048 00051 0 02 00104 LDA ='40 0049 00052 74 0020 SMK '20 0050 00053 -0 01 00037 JMP* TYP2