I$PA, I$PAE

* PAGE 1

0001 * 0002 * 0003 SUBR I$PA HSR INPUT SOURCE RECORD 0004 SUBR I$PAE HSR INPUT SOURCE RECORD 0005 * 0006 * 0007 CF5 H316 AND DDP-516 0008 REL RELOCATABLE 0009 * 0010 * 0011 00000 0 000000 I$PA DAC ** HSR INPUT SOURCE RECORD 0012 00001 -0 02 00000 RSTR LDA* I$PA BUFFER ADDRESS 0013 00002 0 10 00000 CALL C$II CHARACTER INPUT INITIALISE 0014 00003 0 10 00000 NEXT CALL I$PK HSR INPUT CHARACTER 0015 00004 0 10 00000 CALL C$IP INPUT PARITY 0016 00005 0 01 00011 JMP CONT CONTINUE 0017 00006 0 10 00000 PERR CALL C$ER CONTROL ERROR ROUTINE 0018 00007 150305 BCI 1,PE PARITY ERROR 0019 00010 0 01 00001 JMP RSTR RESTART 0020 * 0021 00011 0 10 00000 CONT CALL C$TF TEST FRAME 0022 00012 0 01 00003 JMP NEXT NUL - IGNORE 0023 00013 0 01 00023 JMP FILL SOH 0024 00014 0 01 00037 JMP END ETX - END OF RECORD 0025 00015 0 01 00003 JMP NEXT LF - IGNORE 0026 00016 0 01 00036 JMP EREC CR - END OF RECORD 0027 00017 0 01 00001 JMP RSTR DC3 - RESTART 0028 00020 0 01 00034 JMP TAB TAB 0029 00021 0 01 00026 JMP DELT LEFT ARROW - DELETE LINE 0030 00022 0 01 00003 JMP NEXT DEL - IGNORE 0031 00023 BSS 0 OTHER CHARS 0032 * 0033 00023 0 10 00000 FILL CALL C$IF CHARACTER INPUT FILL 0034 00024 101000 NOP 0035 00025 0 01 00003 JMP NEXT READ NEXT CHAR 0036 * 0037 00026 0 10 00000 DELT CALL I$PK HSR INPUT CHARACTER 0038 00027 0414 67 LGL 9 DISCARD PARITY BIT 0039 00030 0 11 00045 CAS ='15000 TEST FOR CR 0040 00031 100000 SKP 0041 00032 0 01 00001 JMP RSTR RESTART 0042 00033 0 01 00026 JMP DELT 0043 * 0044 00034 0 10 00000 TAB CALL C$IT CHARACTER INPUT TAB 0045 00035 0 01 00003 JMP NEXT READ NEXT CHAR 0046 * 0047 00036 0 12 00000 EREC IRS I$PA TALLY RETURN ADDRESS 0048 * 0049 00037 0 12 00000 END IRS I$PA TALLY RETURN ADDRESS 0050 00040 0 02 00044 COUT LDA ='240 SPACE