* 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
* SUBR INTR REV D 7-11-70 EI PAGE 2
0043 00062 150322 BCI 11,PROGRAMME INTERRUPT @@
00063 147707
00064 151301
00065 146715
00066 142640
00067 144716
00070 152305
00071 151322
00072 152720
00073 152240
00074 140300
0044 00075 0 000076 PRI! DAC *+1
0045 00076 150322 BCI 11,PRIORITY INTERRUPT @@
00077 144717
00100 151311
00101 152331
00102 120311
00103 147324
00104 142722
00105 151325
00106 150324
00107 120300
00110 140240
0046 00111 000000 SAVA BSZ 1
0047 00112 000000 IND BSZ 1
0048 00113 000001 END
00114 000005
IND 000112 INT! 000040 INTR 000000 PRI! 000075
PRI0 000035 PRO! 000061 SAVA 000111
0000 WARNING OR ERROR FLAGS
DAP-16 MOD 2 REV. C 01-26-71