MSGINT, INTERR, ASR

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

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. 0115 00103 0 02 00077 LDA REC 0116 00104 0406 70 ARR 8 0117 00105 0 03 00222 ANA ='377 1ST CHARACTER 0118 00106 100040 SZE 0119 00107 0 01 00056 JMP NREC IT WAS NOT AN "*" 0120 00110 0 02 00221 COMP LDA =0 0121 00111 0 04 00204 STA CHNR RESET CHARACTERNR. 0122 00112 0 10 00000 CALL LETTER 0123 00113 0 01 00200 JMP RET RETURN TO MAIN PROGRAM 0124 00114 0 02 00210 OUT LDA HEAD 0125 00115 101040 SNZ 0126 00116 0 01 00132 JMP OK 0127 00117 0 06 00217 ADD =1 0128 00120 100040 SZE 0129 00121 0 01 00124 JMP *+3 0130 00122 0 02 00216 LDA ='212 0131 00123 0 01 00125 JMP *+2 0132 00124 0 02 00215 LDA ='215 0133 00125 0 12 00210 IRS HEAD 0134 00126 101000 NOP 0135 00127 74 0004 OTA 4 0136 00130 000000 HLT 0137 00131 0 01 00200 JMP RET 0138 00132 0 02 00204 OK LDA CHNR 0139 00133 100040 SZE 0140 00134 0 01 00151 JMP CH2 0141 00135 -0 02 00212 LDA* MNR 0142 00136 0 04 00205 STA CHAR 0143 00137 0 07 00206 SUB EOM CHECK END OF MESSAGE. 0144 00140 101040 SNZ 0145 00141 0 01 00171 JMP SCOD 0146 00142 0 02 00205 LDA CHAR 0147 00143 0406 70 ARR 8 0148 00144 74 0004 OTA '4 0149 00145 000000 HLT 0150 00146 0 04 00205 STA CHAR