I$PK

* PAGE 1

0001 * 0002 * 0003 SUBR I$PK HSR INPUT CHARACTER 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 * HSR DEVICE CODES 0011 * 0012 * HSR DEVICE ADDRESS 0013 000001 HSRA EQU '1 HSR ADDRESS 0014 * 0015 * OCP 0016 000001 HSRN EQU HSRA START HSR 0017 000101 HSRF EQU HSRA+'100 STOP HSR 0018 * 0019 * INA 0020 001001 HSRI EQU HSRA+'1000 HSR CLEAR A AND INPUT CHARACTER IF READY 0021 * 0022 * 0023 * HSR INPUT CHARACTER 0024 * 0025 00000 0 000000 I$PK DAC ** RETURN ADDRESS 0026 00001 14 0001 OCP HSRN START HSR 0027 00002 54 1001 INA HSRI HSR CLEAR A AND INPUT CHARACTER IF READY 0028 00003 0 01 00002 JMP *-1 WAIT UNTIL READY 0029 00004 14 0101 OCP HSRF STOP HSR 0030 00005 -0 01 00000 JMP* I$PK RETURN 0031 * 0032 * 0033 END END OF I$PK 14.MAY.70 P.G.WHONE HSRA 000001A HSRF 000101A HSRI 001001A HSRN 000001A I$PK 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71