I$PO

* PAGE 1

0001 * 0002 * 0003 SUBR I$PO HSR INPUT OBJECT 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 I$PO DAC ** RETURN ADDRESS 0011 00001 0 04 00065 STA KEEP KEEP 0012 00002 0 02 00065 RSTR LDA KEEP KEEP 0013 00003 0 04 00062 STA BUFF BUFFER 0014 * 0015 00004 140040 CRA 0016 00005 0 04 00063 STA CKSM CHECKSUM 0017 00006 0 35 00071 LDX =-61 SET INDEX 0018 * 0019 00007 0 10 00000 NEXT CALL I$PK HSR INPUT CHARACTER 0020 * 0021 00010 0414 67 LGL 9 DISREGARD PARITY 0022 00011 0 11 00070 CAS ='1000 TEST FOR SOH 0023 00012 100000 SKP 0024 00013 0 01 00020 JMP OBLK OBJECT BLOCK 0025 00014 0 11 00067 CAS ='3000 TEST FOR ETX 0026 00015 100000 SKP 0027 00016 0 01 00041 JMP END END 0028 00017 0 01 00007 JMP NEXT NEXT 0029 * 0030 00020 0 10 00045 OBLK JST FRME INPUT TEST AND PACK FRAME 0031 00021 0 10 00045 JST FRME FRAME 0032 00022 0 10 00045 JST FRME FRAME 0033 00023 0 12 00000 IRS 0 INDEX 0034 00024 100000 SKP 0035 00025 0 01 00033 JMP BLER BLOCK LENGTH ERROR 0036 00026 -0 04 00062 STA* BUFF BUFFER 0037 00027 0 12 00062 IRS BUFF BUFFER 0038 00030 0 05 00063 ERA CKSM CHECKSUM 0039 00031 0 04 00063 STA CKSM CHECKSUM 0040 00032 0 01 00020 JMP OBLK NEXT FRAME 0041 * 0042 00033 0 10 00000 BLER CALL C$ER CONTROL ERROR ROUTINE 0043 00034 141314 BCI 1,BL BLOCK LENGTH ERROR MNEMONIC 0044 00035 0 01 00002 JMP RSTR RESTART 0045 * 0046 00036 140040 ZERO CRA 0047 00037 -0 04 00062 STA* BUFF 0048 00040 0 12 00062 IRS BUFF BUFFER 0049 * 0050 00041 0 12 00000 END IRS 0 INDEX
* PAGE 2

0051 00042 0 01 00036 JMP ZERO ZERO 0052 * 0053 00043 0 02 00063 LDA CKSM CHECKSUM 0054 00044 -0 01 00000 JMP* I$PO RETURN 0055 * 0056 * FRAME 0057 00045 0 000000 FRME DAC ** RETURN ADDRESS 0058 00046 0 10 00000 CALL I$PK HSR INPUT CHARACTER 0059 00047 0 11 00066 CAS ='223 0060 00050 100000 SKP 0061 00051 0 01 00060 JMP EXIT EXIT 0062 00052 0 10 00000 CALL C$IS CONVERT FROM INVISIBLE TO 6-BIT CODE 0063 00053 0 13 00064 IMA FLAG FLAG 0064 00054 0414 72 LGL 6 0065 00055 0 06 00064 ADD FLAG FLAG 0066 00056 0 04 00064 STA FLAG FLAG 0067 00057 -0 01 00045 JMP* FRME RETURN 0068 * 0069 00060 0 12 00000 EXIT IRS I$PO TALLY RETURN ADDRESS 0070 00061 0 01 00041 JMP END CLEAR BUFFER AND RETURN 0071 * 0072 * 0073 * CONSTANTS AND VARIABLES 0074 * 0075 00062 000000 BUFF BSZ 1 BUFFER 0076 00063 000000 CKSM BSZ 1 CHECKSUM 0077 00064 000000 FLAG BSZ 1 FLAG 0078 00065 000000 KEEP BSZ 1 KEEP 0079 * 0080 00066 000223 FIN LITERALS 00067 003000 00070 001000 00071 177703 0081 * 0082 * 0083 END END OF I$PO 6.JUN.70 P.J.VYSE BLER 000033 BUFF 000062 CKSM 000063 END 000041 EXIT 000060 FLAG 000064 FRME 000045 I$PO 000000 KEEP 000065 NEXT 000007 OBLK 000020 RSTR 000002 ZERO 000036 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71