I$AA, I$AAE

* PAGE 1

0001 * 0002 * 0003 SUBR I$AA ASR INPUT SOURCE RECORD 0004 SUBR I$AAE,I$AA ASR INPUT SOURCE RECORD 0005 * 0006 * 0007 CF5 H316 AND DDP-516 0008 REL RELOCATABLE 0009 * 0010 * 0011 00000 0 000000 I$AA DAC ** RETURN ADDRESS 0012 00001 -0 02 00000 RSTR LDA* I$AA BUFFER ADDRESS 0013 00002 0 10 00000 CALL C$II CHARACTER INPUT INITIALISE 0014 00003 0 10 00000 CALL I$AINT ASR INITIALISE FOR INPUT 0015 00004 0 10 00000 NEXT CALL I$AK ASR INPUT CHARACTER 0016 00005 0 10 00000 CALL C$IP INPUT PARITY 0017 00006 0 01 00012 JMP CONT CONTINUE 0018 00007 0 10 00000 PERR CALL C$ER CONTROL ERROR ROUTINE 0019 00010 150305 BCI 1,PE PARITY ERROR MNEMONIC 0020 00011 0 01 00001 JMP RSTR RESTART 0021 * 0022 00012 0 10 00000 CONT CALL C$TF TEST FRAME 0023 00013 0 01 00004 JMP NEXT NEXT (200) 0024 00014 0 01 00024 JMP FILL FILL (201) 0025 00015 0 01 00043 JMP END END (203) 0026 00016 0 01 00004 JMP NEXT NEXT (212) 0027 00017 0 01 00037 JMP EREC END OF RECORD (215) 0028 00020 0 01 00001 JMP RSTR RESTART (223) 0029 00021 0 01 00035 JMP TAB TAB (334) 0030 00022 0 01 00027 JMP DELT DELETE (337) 0031 00023 0 01 00004 JMP NEXT NEXT (377) 0032 00024 BSS 0 OTHER CHARACTER 0033 * 0034 00024 0 10 00000 FILL CALL C$IF CHARACTER INPUT FILL 0035 00025 101000 NOP 0036 00026 0 01 00004 JMP NEXT NEXT 0037 * 0038 00027 0 10 00000 DELT CALL I$AK ASR INPUT CHARACTER 0039 00030 0414 67 LGL 9 0040 00031 0 11 00047 CAS ='15000 CARRIAGE RETURN? 0041 00032 100000 SKP 0042 00033 0 01 00001 JMP RSTR RESTART 0043 00034 0 01 00027 JMP DELT DELETE 0044 * 0045 00035 0 10 00000 TAB CALL C$IT CHARACTER INPUT TAB 0046 00036 0 01 00004 JMP NEXT NEXT 0047 * 0048 00037 0 12 00000 EREC IRS I$AA RETURN ADDRESS 0049 00040 0 02 00046 LDA ='240 SPACE 0050 00041 0 10 00000 CALL C$IF CHARACTER INPUT FILL