O$AK

* PAGE 1

0001 * 0002 * 0003 SUBR O$AK ASR OUTPUT CHARACTER 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 * ASR DEVICE CODES 0011 * 0012 * ASR ADDRESS 0013 000004 ASRA EQU '4 ASR ADDRESS 0014 * 0015 * OCP 0016 000104 ASRM EQU ASRA+'100 ASR OUTPUT MODE 0017 * 0018 * SKS 0019 000104 ASRB EQU ASRA+'100 ASR SKIP IF NOT BUSY 0020 * 0021 * OTA 0022 000004 ASRO EQU ASRA ASR OUTPUT CHARACTER IF READY 0023 * 0024 * 0025 * ASR OUTPUT CHARACTER 0026 * 0027 00000 0 000000 O$AK DAC ** 0028 00001 34 0104 SKS ASRB ASR SKIP IF NOT BUSY 0029 00002 0 01 00001 JMP *-1 WAIT UNTIL NOT BUSY 0030 00003 14 0104 OCP ASRM ASR OUTPUT MODE 0031 00004 74 0004 OTA ASRO ASR OUTPUT CHARACTER IF READY 0032 00005 0 01 00004 JMP *-1 WAIT UNTIL READY 0033 00006 -0 01 00000 JMP* O$AK RETURN 0034 * 0035 * 0036 END END OF O$AK 13.MAY.70 P.J.VYSE ASRA 000004A ASRB 000104A ASRM 000104A ASRO 000004A O$AK 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71