F$W1, F$AL

* PAGE 2

0051 00040 0 02 00067 FEED LDA ='212 LINEFEED 0052 00041 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0053 00042 0 12 00065 IRS LINE LINE 0054 00043 101000 NOP 0055 00044 0 12 00000 IRS 0 INDEX 0056 00045 0 01 00040 JMP FEED FEED 0057 * 0058 00046 0 35 00066 OLIN LDX =-36 SET INDEX 0059 00047 0 10 00000 CALL O$ALL ASR LIST LINE 0060 00050 000000 BUFF BSZ 1 BUFFER 0061 00051 0 01 00017 JMP EXIT EXIT 0062 * 0063 00052 0404 77 NFHD LGR 1 NO FEED OR HEADING 0064 00053 100100 SLZ 0065 00054 0 01 00046 JMP OLIN OUTPUT LINE 0066 00055 0 02 00065 LDA LINE LINE 0067 00056 0 07 00064 SUB F$AL FORTRAN ASR LINES/PAGE 0068 00057 101400 SMI 0069 00060 0 01 00056 JMP *-2 0070 00061 0 04 00000 STA 0 INDEX 0071 00062 0 04 00065 STA LINE LINE 0072 00063 0 01 00040 JMP FEED FEED 0073 * 0074 * 0075 * CONSTANTS AND VARIABLES 0076 * 0077 00064 000110 F$AL DEC 72 FORTRAN ASR LINES/PAGE 0078 00065 000000 LINE BSZ 1 LINE 0079 * 0080 00066 177734 FIN LITERALS 00067 000212 00070 177776 00071 120000 00072 177615 00073 177704 0081 END END OF F$W1 6.MAR.70 P.J.VYSE BUFF 000050 EXIT 000017 F$AL 000064 F$W1 000000 FEED 000040 FWRT 000021 LINE 000065 NFHD 000052 OLIN 000046 RETN 000002 WORK 000014 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71