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.