Previous File Previous Page Single Page Next Page Next File

* 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
Previous File Previous Page Single Page Next Page Next File