O$PSO

* PAGE 1

0001 * 0002 * 0003 SUBR O$PSO,O$PS HSP OUTPUT OBJECT END OF TEXT 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 O$PS DAC ** RETURN ADDRESS 0011 00001 0 35 00012 LDX =-3 INDEX 0012 00002 1 02 00012 LOOP LDA ECHR+3,1 END CHARACTERS 0013 00003 0 10 00000 CALL O$PK HSP OUTPUT CHARACTER 0014 00004 0 12 00000 IRS 0 INDEX 0015 00005 0 01 00002 JMP LOOP LOOP 0016 00006 -0 01 00000 JMP* O$PS RETURN 0017 * 0018 * 0019 * CONSTANTS AND VARIABLES 0020 * 0021 00007 000203 ECHR OCT 203 END CHARACTERS (END OF TEXT) 0022 00010 000223 OCT 223 (DC3) 0023 00011 000377 OCT 377 (DEL) 0024 * 0025 00012 177775 FIN LITERALS 0026 * 0027 * 0028 END END OF O$PSO 6.JUN.70 P.J.VYSE ECHR 000007 LOOP 000002 O$PS 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71