HOLD

* SUBR HOLD REV A EI 14-9-70 PAGE 1

0001 * SUBR HOLD REV A EI 14-9-70 0002 SUBR HOLD 0003 * RECEIVES BIT PATTERN FROM MAIN PROG 0004 * RAMME AND PUTS IT OUT TO "ON" ADDRESS 0005 * ALTERNATING IT M1TH ITS COMPLEMENT 0006 * TO "OFF" ADRESS FOR 1/3 SECOND 0007 REL 0008 00000 0 000000 HOLD DAC ** 0009 00001 0 04 00033 STA SAVA 0010 00002 0 03 00037 ANA ='77 0011 00003 0 04 00034 STA ONE 0012 00004 140040 CRA 0013 00005 0 04 00036 STA CYCL RESET COUNTER 0014 00006 0 02 00034 LDA ONE 0015 00007 0 05 00037 ERA ='77 FORM COMPLEMENT 0016 00010 0 04 00035 STA TWO 0017 00011 0 02 00034 LOOP LDA ONE PUT OUT PATTERN 0018 00012 74 0600 OTA '600 TO "0N" 0019 00013 0 01 00012 JMP *-1 0020 00014 0 02 00035 LDA TWO AND ITS COMPLEMENT 0021 00015 74 0300 OTA '300 TO "OFF" 0022 00016 0 01 00015 JMP *-1 0023 00017 0 12 00036 IRS CYCL HOLD IT 0024 00020 0 01 00011 JMP LOOP 0025 00021 54 0500 INA '500 READ IT 0026 00022 0 01 00021 JMP *-1 0027 00023 0 04 00033 STA SAVA SAVE IT 0028 00024 0 03 00037 ANA ='77 IS IT SET? 0029 00025 0 05 00034 ERA ONE 0030 00026 101040 SNZ 0031 00027 -0 01 00000 JMP* HOLD OK - EXIT 0032 00030 0 02 00033 LDA SAVA NO - TAKE PATTERN 0033 00031 0 12 00000 IRS HOLD BUMP EXIT 0034 00032 0 01 00000 JMP HOLD AND EXIT 0035 00033 000000 SAVA BSZ 1 FAULTY PATTERN 0036 00034 000000 ONE BSZ 1 DESIRED PATTERN 0037 00035 000000 TWO BSZ 1 ITS COMPLEMENT 0038 00036 000000 CYCL BSZ 1 CYCLE TIME 0039 00037 000077 END CYCL 000036 HOLD 000000 LOOP 000011 ONE 000034 SAVA 000033 TWO 000035 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71