MSGINT, INTERR, ASR

*SUBR MSGINT/INTERR/ASR/ B.2. 11-11-70 PAGE 2

0051 00007 0 01 00006 JMP *-1 0052 00010 140040 CRA 0053 00011 0 04 00204 STA CHNR 0054 00012 0 04 00074 STA REF CLEAR REFERENCE CELL 0055 00013 14 0104 OCP '104 0056 00014 0 02 00213 LDA OUTP 0057 00015 0 04 00036 STA ASR 0058 00016 0 02 00226 LDA =-5 0059 00017 0 04 00211 STA LINE 0060 00020 0 02 00225 LDA =-2 0061 00021 0 04 00210 STA HEAD 0062 00022 -0 01 00000 JMP* MSGI 0063 * 0064 * ---------------------- 0065 * INTERRUPT ROUTINE. 0066 * ---------------------- 0067 00023 0 000000 INTE DAC ** 0068 00024 0 04 00203 STA SAVA 0069 00025 34 0404 SKS '404 0070 00026 0 01 00036 JMP ASR 0071 00027 54 1500 INA '1500 0072 00030 0 01 00027 JMP *-1 0073 00031 0 03 00224 ANA ='4000 0074 00032 101040 SNZ 0075 00033 0 01 00200 JMP RET 0076 00034 140040 CRA 0077 00035 0 10 00000 CALL INTR 0078 00036 0 00 00000 ASR PZE JUMP INP OR JUMP OUT. 0079 00037 0 02 00204 INP LDA CHNR 1ST OR 2ND CHAR? 0080 00040 100040 SZE 0081 00041 0 01 00073 JMP 2ND 0082 00042 54 1004 INA '1004 READ 1ST CHAR. 0083 00043 000000 HLT 0084 00044 0 04 00077 STA REC SAVE 1ST CHAR. 0085 00045 0 05 00223 ERA ='252 CHECK FOR ASTERISK * 0086 00046 101040 SNZ 0087 00047 0 01 00067 JMP AST1 0088 00050 0 02 00074 LDA REF 0089 00051 0406 70 ARR 8 0090 00052 0 03 00222 ANA ='377 1ST REFERENCE CHAR. 0091 00053 0 07 00077 SUB REC CHAR. RECEIVED EQUAL? 0092 00054 101040 SNZ 0093 00055 0 01 00071 JMP REC0 RECOGNIZED. 0094 00056 0 02 00221 NREC LDA =0 ILLEGAL CHARACTER. 0095 00057 0 04 00204 STA CHNR 0096 00060 14 0104 OCP '104 ASR IN OUTPUTMODE. 0097 00061 0 02 00220 LDA =A ? 0098 00062 74 0004 OTA 4 TYPE A "?" 0099 00063 0 01 00062 JMP *-1 0100 00064 34 0104 SKS '104 WAIT TILL READY.