I$AO

* PAGE 1

0001 * 0002 * 0003 SUBR I$AO ASR INPUT OBJECT 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 I$AO DAC ** RETURN ADDRESS 0011 00001 0 04 00072 STA KEEP KEEP 0012 00002 0 02 00072 RSTR LDA KEEP KEEP 0013 00003 0 04 00067 STA BUFF BUFFER 0014 * 0015 00004 140040 CRA 0016 00005 0 04 00070 STA CKSM CHECKSUM 0017 * 0018 00006 0 10 00000 CALL I$AINT ASR INITIALISE FOR INPUT 0019 00007 0 10 00000 NEXT CALL I$AK ASR INPUT CHARACTER 0020 * 0021 00010 0 03 00100 ANA ='177 FORCED-EIGHT PARITY 0022 00011 0 05 00077 ERA ='200 0023 00012 0 11 00076 CAS ='201 SOH 0024 00013 100000 SKP 0025 00014 0 01 00024 JMP OBLK OBJECT BLOCK 0026 00015 0 11 00075 CAS ='223 DC3 0027 00016 100000 SKP 0028 00017 0 01 00002 JMP RSTR RESTART 0029 00020 0 11 00074 CAS ='203 END OF TEXT 0030 00021 100000 SKP 0031 00022 0 01 00051 JMP END END 0032 00023 0 01 00007 JMP NEXT NEXT 0033 * 0034 00024 0 35 00073 OBLK LDX =-61 SET INDEX 0035 00025 0 10 00054 NFRM JST FRME INPUT TEST AND PACK FRAME 0036 00026 0 10 00054 JST FRME FRAME 0037 00027 0 10 00054 JST FRME FRAME 0038 00030 0 12 00000 IRS 0 INDEX 0039 00031 100000 SKP 0040 00032 0 01 00040 JMP BLER BLOCK LENGTH ERROR 0041 00033 -0 04 00067 STA* BUFF BUFFER 0042 00034 0 12 00067 IRS BUFF BUFFER 0043 00035 0 05 00070 ERA CKSM CHECKSUM 0044 00036 0 04 00070 STA CKSM CHECKSUM 0045 00037 0 01 00025 JMP NFRM NEXT FRAME 0046 * 0047 00040 0 10 00000 BLER CALL C$ER CONTROL ERROR ROUTINE 0048 00041 141314 BCI 1,BL BLOCK LENGTH ERROR MNEMONIC 0049 00042 0 01 00002 JMP RSTR RESTART 0050 *
* PAGE 2

0051 00043 140040 ZERO CRA 0052 00044 -0 04 00067 STA* BUFF BUFFER 0053 00045 0 12 00067 IRS BUFF BUFFER 0054 * 0055 00046 0 12 00000 EXIT IRS 0 INDEX 0056 00047 0 01 00043 JMP ZERO ZERO 0057 00050 0 12 00000 IRS I$AO RETURN ADDRESS 0058 00051 0 10 00000 END CALL I$AT ASR TIMING DELAY 0059 00052 0 02 00070 LDA CKSM CHECKSUM 0060 00053 -0 01 00000 JMP* I$AO RETURN 0061 * 0062 * FRAME 0063 00054 0 000000 FRME DAC ** RETURN ADDRESS 0064 00055 0 10 00000 CALL I$AK ASR INPUT CHARACTER 0065 00056 0 11 00075 CAS ='223 0066 00057 100000 SKP 0067 00060 0 01 00046 JMP EXIT EXIT 0068 00061 0 10 00000 CALL C$IS CONVERT FROM INVISIBLE TO 6 BIT CODE 0069 00062 0 13 00071 IMA FLAG PACK WORD INTO FLAG 0070 00063 0414 72 LGL 6 0071 00064 0 06 00071 ADD FLAG FLAG 0072 00065 0 04 00071 STA FLAG FLAG 0073 00066 -0 01 00054 JMP* FRME RETURN 0074 * 0075 * 0076 * CONSTANTS AND VARIABLES 0077 * 0078 00067 000000 BUFF BSZ 1 BUFFER 0079 00070 000000 CKSM BSZ 1 CHECKSUM 0080 00071 000000 FLAG BSZ 1 FLAG 0081 00072 000000 KEEP BSZ 1 KEEP 0082 * 0083 00073 177703 FIN LITERALS 00074 000203 00075 000223 00076 000201 00077 000200 00100 000177 0084 * 0085 * 0086 END END OF I$AO 17.MAR.70 P.J.VYSE BLER 000040 BUFF 000067 CKSM 000070 END 000051 EXIT 000046 FLAG 000071 FRME 000054 I$AO 000000 KEEP 000072 NEXT 000007 NFRM 000025 OBLK 000024 RSTR 000002 ZERO 000043 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71