CHECK, CNTR

* SUBR CHECK REV D-2 25-11-70 PAGE 1

0001 * SUBR CHECK REV D-2 25-11-70 0002 * SUBR CHECK REV D 26-10-70 0003 * RECEIVES BIT PATTERN OF CONTROL REGIS 0004 * TER AND COMPARES IT WITH PRESET PAT- 0005 * TERN. IF SAME RETURNS IF NOT ANALYSES 0006 * FAULT AND SELECTS A STOPPING PROGRAME 0007 * WIND DOWN 0008 * INTERRUPT - WHEN 15 VOLTS ARE OFF 0009 * OFF - IN EMERGENCY 0010 REL 0011 SUBR CHECK 0012 SUBR CNTR DUMMY CALL,ACCESS MAIN PR 0013 00000 0 000000 CHEC DAC ** 0014 00001 0 02 00134 LDA =-87 SET TIMER FOR 10 MSEC. 0015 00002 0 04 00107 STA TIME 0016 00003 54 1500 STRT INA '1500 0017 00004 0 01 00003 JMP *-1 0018 00005 0 04 00106 STA SAVC 0019 00006 0 03 00133 ANA ='75717 IS PATTERN OK? 0020 00007 0 05 00132 ERA ='51717 0021 00010 101040 SNZ 0022 00011 -0 01 00000 JMP* CHEC YES - EXIT 0023 00012 0 12 00107 IRS TIME TIMER 0024 00013 0 01 00003 JMP STRT NOT 10 MSEC YET. 0025 00014 0 02 00106 LDA SAVC NO 0026 00015 0 03 00131 ANA ='10000 MAIN PRESSURE ON? 0027 00016 101040 SNZ 0028 00017 0 01 00071 JMP OFF NO 0029 00020 0 02 00106 LDA SAVC 0030 00021 0 03 00130 ANA ='4000 0031 00022 100040 SZE INTERRUPT ON? 0032 00023 0 01 00076 JMP INT 0033 00024 0 02 00106 LDA SAVC NO 0034 00025 0 03 00127 ANA ='17 0035 00026 0 05 00127 ERA ='17 ARE FLIP-FLOPS OK? 0036 00027 101040 SNZ 0037 00030 0 01 00035 JMP ANLS YES 0038 00031 0 02 00127 LDA ='17 NO 0039 00032 0 10 00000 CALL HOLD RESET THEM 0040 00033 0 01 00003 JMP STRT THEY ARE RESET 0041 00034 0 01 00003 JMP STRT ERROR RETURN 0042 00035 0 02 00106 ANLS LDA SAVC 0043 00036 0 03 00126 ANA ='1700 0044 00037 0404 72 LGR 6 0045 00040 0 06 00111 ADD JMP! SELECT JUMP 0046 00041 0 04 00042 STA *+1 0047 00042 0 00 00000 JMP PZE 0048 00043 101000 NOP .... 0049 00044 101000 NOP ...1 0050 00045 101000 NOP ..1.
* SUBR CHECK REV D-2 25-11-70 PAGE 2

0051 00046 0 01 00071 JMP OFF ..11 0052 00047 101000 NOP .1.. 0053 00050 0 01 00076 JMP INT .1.l 0054 00051 101000 NOP .11. 0055 00052 0 01 00101 JMP WIND .111 0056 00053 101000 NOP 1... 0057 00054 0 01 00076 JMP INT 1..1 0058 00055 101000 NOP 1.1. 0059 00056 0 01 00101 JMP WIND 1.11 0060 00057 101000 NOP 11.. 0061 00060 0 01 00076 JMP INT 11.1 0062 00061 101000 NOP 111. 0063 00062 0 02 00110 LDA CNTR 0064 00063 100040 SZE 1ST PASS IF ZERO 0065 00064 -0 01 00000 JMP* CHEC 0066 00065 0 12 00110 IRS CNTR 0067 00066 0 02 00112 LDA M! 0068 00067 0 10 00000 CALL MSGINT ERROR MESSAGE 0069 00070 -0 01 00000 JMP* CHEC 0070 00071 140040 OFF CRA 0071 00072 0 10 00000 CALL HOLD 0072 00073 100000 SKP 0073 00074 0 01 00071 JMP *-3 0074 00075 0 01 00102 JMP OUT 0075 00076 0 02 00106 INT LDA SAVC 0076 00077 0 10 00000 CALL INTR 0077 00100 0 01 00102 JMP OUT 0078 00101 0 10 00000 WIND CALL WIND 0079 00102 0 02 00106 OUT LDA SAVC 0080 00103 0 10 00000 CALL STATES 0081 00104 000000 HLT 0082 00105 0 01 00105 JMP * 0083 00106 000000 SAVC BSZ 1 0084 00107 000000 TIME BSZ 1 0085 00110 000000 CNTR BSZ 1 0086 00111 0 01 00043 JMP! JMP JMP+1 0087 00112 0 000113 M! DAC *+1 0088 00113 125252 BCI 11,*** CHECK FAULT! ***@@ 00114 125240 00115 141710 00116 142703 00117 145640 00120 143301 00121 152714 00122 152241 00123 120252 00124 125252 00125 140300 0089 00126 001700 END 00127 000017
* SUBR CHECK REV D-2 25-11-70 PAGE 3

00130 004000 00131 010000 00132 051717 00133 075717 00134 177651 ANLS 000035 CHEC 000000 CNTR 000110 INT 000076 JMP 000042 JMP! 000111 M! 000112 OFF 000071 OUT 000102 SAVC 000106 STRT 000003 TIME 000107 WIND 000101 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71