Previous File Previous Page Single Page Next Page Next File

* 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
Previous File Previous Page Single Page Next Page Next File