Previous File | Previous Page | Single Page | Next Page | Next File |
* 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
Previous File | Previous Page | Single Page | Next Page | Next File |