O$ASO, F$D1

* PAGE 1

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