O$PS, O$PSS, O$PSE, F$D2

* PAGE 1

0001 * 0002 * 0003 SUBR O$PS HSP OUTPUT END OF TEXT 0004 SUBR O$PSS HSP OUTPUT SOURCE END OF TEXT 0005 SUBR O$PSE HSP OUTPUT SOURCE END OF TEXT 0006 SUBR F$D2,O$PS FORTRAN WRITE FILE MARK HSP 0007 * 0008 * 0009 CF5 H316 AND DDP-516 0010 REL RELOCATABLE 0011 * 0012 * 0013 00000 0 000000 O$PS DAC ** RETURN ADDRESS 0014 00001 0 35 00013 LDX =-3 COUNT 0015 00002 1 02 00013 LOOP LDA ECHR+3,1 END CHARACTERS 0016 00003 0 10 00000 CALL C$OP OUTPUT PARITY 0017 00004 0 10 00000 CALL O$PK HSP OUTPUT CHARACTER 0018 00005 0 12 00000 IRS 0 TEST 0019 00006 0 01 00002 JMP LOOP GO OUTPUT NEXT CHARACTER 0020 00007 -0 01 00000 JMP* O$PS RETURN 0021 * 0022 * 0023 * CONSTANTS AND VARIABLES 0024 * 0025 00010 000203 ECHR OCT 203 END CHARACTERS (ETX) 0026 00011 000223 OCT 223 (DC3) 0027 00012 000377 OCT 377 (DEL) 0028 * 0029 00013 177775 FIN LITERALS 0030 * 0031 * 0032 END END OF O$PS 05.MAY.70 G.S.LITTLE ECHR 000010 LOOP 000002 O$PS 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71