F$W1, F$AL

* PAGE 1

0001 * 0002 * 0003 SUBR F$W1 FORTRAN OUTPUT ON ASR 0004 SUBR F$AL FORTRAN ASR LINES/PAGE 0005 * 0006 * 0007 CF5 H316 AND DDP-516 0008 REL RELOCATABLE 0009 * 0010 * 0011 * FORTRAN OUTPUT ON ASR 0012 * 0013 00000 0 000000 F$W1 DAC ** RETURN PARAMETER 0014 00001 0 10 00000 CALL F$IO FORTRAN SCANNER AND CONVERSIONS 0015 00002 0 000000 RETN DAC ** RETURN 0016 00003 -0 02 00002 LDA* RETN RETURN 0017 00004 0 04 00050 STA BUFF BUFFER 0018 00005 0 04 00014 STA WORK WORK 0019 00006 -0 02 00000 LDA* F$W1 RETURN PARAMETER 0020 00007 100040 SZE TEST FOR FORMAT 0021 00010 0 01 00021 JMP FWRT FORMATTED WRITE 0022 * 0023 * UNFORMATTED WRITE 0024 00011 0 35 00073 LDX =-60 SET INDEX 0025 00012 140040 CRA 0026 00013 0 10 00000 CALL C$SW STRIP TRAILING WORDS 0027 00014 000000 WORK BSZ 1 WORK 0028 00015 0 02 00050 LDA BUFF BUFFER 0029 00016 0 10 00000 CALL O$AO ASR OUTPUT OBJECT 0030 00017 0 12 00002 EXIT IRS RETN RETURN ADDRESS 0031 00020 -0 01 00002 JMP* RETN RETURN 0032 * 0033 * FORMATTED WRITE 0034 00021 0 02 00072 FWRT LDA ='177615 DEL/CARRIAGE RETURN 0035 00022 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0036 00023 141340 ICA 0037 00024 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0038 * 0039 00025 -0 02 00050 LDA* BUFF BUFFER 0040 00026 141050 CAL 0041 00027 0 05 00071 ERA ='120000 CHARACTER 1 TO SPACE 0042 00030 -0 13 00050 IMA* BUFF BUFFER 0043 00031 141140 ICL CONTROL CHARACTER RIGHT JUSTIFIED 0044 * 0045 00032 100100 SLZ 0046 00033 0 01 00052 JMP NFHD NO FEED OR HEADING 0047 00034 0 35 00070 LDX =-2 SET INDEX 0048 00035 0404 74 LGR 4 ONE OR TWO LINE FEEDS? 0049 00036 101100 SLN 0050 00037 0 12 00000 IRS 0 INDEX