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
* PAGE 2

0051 00042 0 01 00040 JMP *-2 0052 00043 0 12 00000 END IRS I$AA RETURN ADDRESS 0053 00044 0 10 00000 CALL I$AT ASR TIMING DELAY 0054 00045 -0 01 00000 JMP* I$AA RETURN 0055 * 0056 * 0057 * LITERALS 0058 * 0059 00046 000240 FIN LITERALS 00047 015000 0060 * 0061 * 0062 END END OF I$AA 18.MAR.70 P.J.VYSE CONT 000012 DELT 000027 END 000043 EREC 000037 FILL 000024 I$AA 000000 NEXT 000004 PERR 000007 RSTR 000001 TAB 000035 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71