O$PK

* PAGE 1

0001 * 0002 * 0003 SUBR O$PK HSP OUTPUT CHARACTER 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 * HSP DEVICE CODES 0011 * 0012 * HSP DEVICE ADDRESS 0013 000002 HSPA EQU '2 HSP ADDRESS 0014 * 0015 * OCP 0016 000002 HSPN EQU HSPA ENABLE HSP 0017 * 0018 * SKS 0019 000102 HSPE EQU HSPA+'100 SKIP IF HSP IS ENABLED 0020 * 0021 * OTA 0022 000002 HSPO EQU HSPA HSP OUTPUT CHARACTER IF READY 0023 * 0024 * 0025 * HSP OUTPUT CHARACTER 0026 * 0027 00000 0 000000 O$PK DAC ** RETURN ADDRESS 0028 00001 34 0102 SKS HSPE SKIP IF HSP IS ENABLED 0029 00002 14 0002 OCP HSPN ENABLE HSP 0030 00003 74 0002 OTA HSPO HSP OUTPUT CHARACTER IF READY 0031 00004 0 01 00003 JMP *-1 WAIT UNTIL READY 0032 00005 -0 01 00000 JMP* O$PK RETURN 0033 * 0034 * 0035 END END OF O$PK 14.MAY.70 P.G.WHONE HSPA 000002A HSPE 000102A HSPN 000002A HSPO 000002A O$PK 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71