F$W2, F$PL

* PAGE 1

0001 * 0002 * 0003 SUBR F$W2 FORTRAN OUTPUT ON HSP 0004 SUBR F$PL FORTRAN HSP LINES/PAGE 0005 * 0006 * 0007 CF5 H316 AND DDP-516 0008 REL RELOCATABLE 0009 * 0010 * 0011 * FORTRAN OUTPUT ON HSP 0012 * 0013 00000 0 000000 F$W2 DAC ** RETURN PARAMETER 0014 00001 0 10 00000 CALL F$IO FORTRAN SCANNER AND CONVERSIONS 0015 00002 0 000000 RETN DAC ** RETURN FROM F$IO 0016 00003 -0 02 00002 LDA* RETN GET BUFFER ADDRESS 0017 00004 0 04 00047 STA BUFF STORE IN CALLING SEQUENCE FOR O$PP 0018 00005 0 04 00014 STA UNBF STORE IN CALLING SEOUENCE FOR C$SW 0019 00006 -0 02 00000 LDA* F$W2 GET FORMAT ADDRESS 0020 00007 100040 SZE TEST FOR NO FORMAT 0021 00010 0 01 00020 JMP FWRT NON-ZERO - FORMATTED WRITE 0022 * 0023 * UNFORMATTED WRITE 0024 00011 0 35 00072 LDX =-60 NUMBER OF WORDS 0025 00012 140040 CRA ZERO WORDS TO BE STRIPPED 0026 00013 0 10 00000 CALL C$SN STRIP TRAILING WORDS 0027 00014 0 000000 UNBF DAC ** BUFFER ADDRESS 0028 00015 0 02 00014 LDA UNBF BUFFER ADDRESS 0029 00016 0 10 00000 CALL O$PO HSP OUTPUT OBJECT 0030 00017 0 01 00050 JMP EXIT EXIT 0031 * 0032 * FORMATTED WRITE 0033 00020 0 02 00066 FWRT LDA CRDL CR/DEL 0034 00021 0 10 00000 CALL O$PKP HSP OUTPUT CHARACTER WITH PARITY 0035 00022 141340 ICA GET DEL 0036 00023 0 10 00000 CALL O$PKP HSP OUTPUT CHARACTER WITH PARITY 0037 00024 -0 02 00002 LDA* RETN BUFFER ADDRESS 0038 00025 0 04 00047 STA BUFF STORE IN CALLING SEOUENCE 0039 00026 -0 02 00047 LDA* BUFF GET FIRST WORD OF BUFFER 0040 00027 141050 CAL 0041 00030 0 06 00071 ADD ='120000 CHANGE FIRST CHARACTER TO SPACE 0042 00031 -0 13 00047 IMA* BUFF EXCHANGE 0043 00032 141340 ICA 0044 00033 100100 SLZ TEST FIRST CHARACTER 0045 00034 0 01 00052 JMP PLON PLUS OR ONE 0046 * 0047 00035 0 35 00070 LDX =-2 ZERO OR SPACE - LINE FEEDS REQUIRED 0048 00036 0404 74 LGR 4 0049 00037 101100 SLN TEST FOR ZERO 0050 00040 0 12 00000 IRS 0 SPACE - ONLY ONE LINE FEED