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

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 0151 00147 0 12 00204 IRS CHNR 0152 00150 0 01 00200 JMP RET 0153 00151 0 02 00205 CH2 LDA CHAR 0154 00152 0406 70 ARR 8 0155 00153 74 0004 OTA '4 0156 00154 000000 HLT 0157 00155 0 12 00212 IRS MNR 0158 00156 140040 CRA 0159 00157 0 04 00204 STA CHNR 0160 00160 0 01 00200 JMP RET 0161 00161 0 12 00211 MORE IRS LINE 0162 00162 0 01 00165 JMP *+3 SOME LINEFEEDS AND 0163 00163 0 02 00215 LDA ='215 1 RETURN. 0164 00164 0 01 00166 JMP *+2 0165 00165 0 02 00216 LDA ='212 0166 00166 74 0004 OTA 4 0167 00167 000000 HLT 0168 00170 0 01 00200 JMP RET 0169 00171 0 02 00211 SCOD LDA LINE 0170 00172 100040 SZE 0171 00173 0 01 00161 JMP MORE