* SUBR INTR REV D 7-11-70 EI PAGE 1

0001 * SUBR INTR REV D 7-11-70 EI 0002 * WHEN ALLED THIS SUBROUTINE SWITCHES 0003 * OFF 15 VOLTS ALLOWING THE STRUCTURE 0004 * TO DRIFT UP. WHEW "START" IS PRESSED 0005 * THE PROGRAMME SWITCHES EVERYTHING OFF 0006 SUBR INTR 0007 REL 0008 00000 0 000000 INTR DAC ** 0009 00001 001001 INH 0010 00002 0 04 00111 STA SAVA 0011 00003 101040 SNZ 0012 00004 0 01 00035 JMP PRI0 0013 00005 140040 CRA 0014 00006 0 04 00112 STA IND 0015 00007 0 02 00114 LDA =5 0016 00010 0 10 00000 CALL HOLD 0017 00011 100000 SKP 0018 00012 0 01 00010 JMP *-2 0019 00013 0 02 00040 LDA INT! 0020 00014 0 10 00000 CALL MESS 0021 00015 000000 HLT 0022 00016 140040 CRA 0023 00017 0 10 00000 CALL HOLD 0024 00020 100000 SKP 0025 00021 0 01 00017 JMP *-2 0026 00022 0 02 00111 LDA SAVA 0027 00023 0 10 00000 CALL STATES 0028 00024 0 02 00112 LDA IND 0029 00025 100040 SZE 0030 00026 0 01 00031 JMP *+3 0031 00027 0 02 00061 LDA PRO! 0032 00030 100000 SKP 0033 00031 0 02 00075 LDA PRI! 0034 00032 0 10 00000 CALL MESS 0035 00033 000000 HLT 0036 00034 0 01 00034 JMP * 0037 00035 0 02 00113 PRI0 LDA =1 0038 00036 0 04 00112 STA IND 0039 00037 0 01 00007 JMP INTR+7 0040 00040 0 000041 INT! DAC *+1 0041 00041 150325 BCI 16,PUT ON SLEEVE AND PRESS START 00042 152240 00043 147716 00044 120323 00045 146305 00046 142726 00047 142640 00050 140716 00051 142240 00052 150322 00053 142723 00054 151640 00055 151724 00056 140722 00057 152240 00060 140300 0042 00061 0 000062 PRO! DAC *+1