O$AS, O$ASS, O$ASE

* PAGE 1

0001 * 0002 * 0003 SUBR O$AS ASR OUTPUT END OF TEXT 0004 SUBR O$ASS,O$AS ASR OUTPUT SOURCE END OF TEXT 0005 SUBR O$ASE,O$AS ASR OUTPUT SOURCE END OF TEXT 0006 * 0007 * 0008 CF5 H316 AND DDP-516 0009 REL RELOCATABLE 0010 * 0011 * 0012 00000 0 000000 O$AS DAC ** RETURN ADDRESS 0013 00001 0 10 00000 CALL O$AINT ASR INITIALISE FOR OUTPUT 0014 00002 0 35 00014 LDX =-3 SET INDEX 0015 00003 1 02 00014 LOOP LDA ECHR+3,1 END CHARACTERS 0016 00004 0 10 00000 CALL C$OP OUTPUT PARITY 0017 00005 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0018 00006 0 12 00000 IRS 0 INDEX 0019 00007 0 01 00003 JMP LOOP LOOP 0020 00010 -0 01 00000 JMP* O$AS RETURN 0021 * 0022 * 0023 * CONSTANTS AND VARIABLES 0024 * 0025 00011 000203 ECHR OCT 203 END CHARACTERS (END OF TEXT) 0026 00012 000223 OCT 223 (DC3) 0027 00013 000377 OCT 377 (DEL) 0028 * 0029 00014 177775 FIN LITERALS 0030 * 0031 * 0032 END END OF O$AS 9.MAR.70 P.J.VYSE ECHR 000011 LOOP 000003 O$AS 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71