*SUBR MSGINT/INTERR/ASR/ B.2 PAGE 2

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. 0101 00065 0 01 00064 JMP *-1 0102 00066 0 01 00171 JMP SCOD 0103 00067 0 02 00221 AST1 LDA =0 CLEAR "REC" CELL 0104 00070 0 04 00077 STA REC 0105 00071 0 12 00204 REC0 IRS CHNR 1ST CHAR.RECOGNI2ED. 0106 00072 0 01 00200 JMP RET RETURN TO MAIN PROGR. 0107 00073 0 02 00077 2ND LDA REC LOAD 1ST CHARACTER. 0108 00074 0406 70 ARR 8 AND SWOP 0109 00075 54 0004 INA 4 READ ALSO 2ND CHAR. 0110 00076 000000 HLT 0111 00077 0 04 00077 STA REC SAVE THE TWO CHAR. 0112 00100 0 07 00074 SUB REF REFERENCE 0113 00101 101040 SNZ 0114 00102 0 01 00110 JMP COMP SET CHAR. COMPLETE.