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
* PAGE 2

0051 * 0052 00041 0 02 00067 FEED LDA LF LINE FEED 0053 00042 0 10 00000 CALL O$PKP HSP OUTPUT CHARACTER WITH PARITY 0054 00043 0 12 00065 IRS LCNT TALLY LINE COUNT 0055 00044 0 12 00000 IRS 0 TEST LINES FED 0056 00045 0 01 00041 JMP FEED REPEAT 0057 * 0058 00046 0 10 00000 PREC CALL O$PP HSP PRINT LINE 0059 00047 0 000000 BUFF DAC ** BUFFER ADDRESS 0060 * 0061 00050 0 12 00002 EXIT IRS RETN TALLY RETURN ADDRESS 0062 00051 -0 01 00002 JMP* RETN RETURN TO F$IO 0063 * 0064 00052 0404 77 PLON LGR 1 0065 00053 100100 SLZ TEST FOR ONE 0066 00054 0 01 00046 JMP PREC PLUS - NO LINE FEED - PUNCH RECORD 0067 * 0068 00055 0 02 00065 LDA LCNT LINE COUNT 0069 00056 0 04 00065 LOOP STA LCNT 0070 00057 0 07 00064 SUB F$PL COMPUTE NUMBER OF LINES TO NEXT TOP OF FORM 0071 00060 101400 SMI 0072 00061 0 01 00056 JMP LOOP 0073 00062 0 04 00000 STA 0 STORE COUNT IN INDEX 0074 00063 0 01 00041 JMP FEED GO FEED LINES 0075 * 0076 * 0077 * CONSTANTS AND VARIABLES 0078 * 0079 00064 000110 F$PL DEC 72 FORTRAN HSP LINES/PAGE 0080 * 0081 * 0082 00065 000000 LCNT BSZ 1 LINE COUNT 0083 00066 106777 CRDL OCT 106777 CR/DEL 0084 00067 105000 LF OCT 105000 LINE FEED 0085 00070 177776 FIN LITERALS 00071 120000 00072 177704 0086 END END OF F$W2 06.MAY.70 G.S.LITTLE BUFF 000047 CRDL 000066 EXIT 000050 F$PL 000064 F$W2 000000 FEED 000041 FWRT 000020 LCNT 000065 LF 000067 LOOP 000056 PLON 000052 PREC 000046 RETN 000002 UNBF 000014 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71