MSGINT, INTERR, ASR

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

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 0172 00174 0 02 00214 LDA INPT ASR OFF AND RESET 0173 00175 0 04 00036 STA ASR 0174 00176 14 0004 OCP 4 0175 00177 101000 NOP 0176 00200 0 02 00203 RET LDA SAVA RESTORE ACCU. 0177 00201 000401 ENB 0178 00202 -0 01 00023 JMP* INTE -----EXIT-----> 0179 00203 000000 SAVA BSZ 1 0180 00204 000000 CHNR BSZ 1 0181 00205 000000 CHAR BSZ 1 0182 00206 140300 EOM BCI 1,@@ END OF MESSAGE 0183 00207 0 000205 CHA! DAC CHAR 0184 00210 000000 HEAD BSZ 1 HEAD LINES 0185 00211 000000 LINE BSZ 1 NUMBER OF LINEFEEDS. 0186 00212 000000 MNR BSZ 1 0187 000074 REF EQU '74 REFERENCE CELL. 0188 000077 REC EQU '77 CHARACTERS RECEIVED. 0189 00213 0 01 00114 OUTP JMP OUT 0190 00214 0 01 00037 INPT JMP INP 0191 00215 000215 END 00216 000212 00217 000001 00220 120240 00221 000000 00222 000377 00223 000252 00224 004000 00225 177776 00226 177773