Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-09 - decus/20-34/tabs.lpt
There are 3 other files named tabs.lpt in the archive. Click here to see a list.
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page    1
                                                   LFTTAB MAIN PROGRAM

       1         PROG	RAM	LFT		TAB
           C     FOLLOWING LINES TEST TAB CONVERSION IN LISTER OUTPUT
           C2345678*0123456*8+01234*678+012*45678+0*2345678*0
           C                                               *
           C       *       *       *       *       *       *
           CCC*    *CC*    *CC*    *CC*    *CC*    *CC*    *
           CCCCC*  *CCCC*  *CCCC*  *CCCC*  *CCCC*  *CCCC*  *
           C2345678*0123456*8+01234*678+012*45678+0*2345678*0
           C
           C     FOLLOWING LINES TEST NUMBERS IN COMMENT LINES
           C R E N B R R / (/TABS AND NUMBERS IN COMMENTS)
           C     STATEMENT NUMBER /90 SHOULD BE REPLACED BY 2
           C     /90 48 / 90 48 /NOTHING 48 /   90 /
           C
           C     FOLLOWING LINES TEST TABS AT START OF STATEMENTS
           C
           C     MOVE TO LEFT IF START BEYOND COLUMN 7
           GO TO 48
            GO TO 48
             GO TO 48
              GO TO 48
               GO TO 48
       2         GO TO 90
       3         GO TO 90
       4         GO TO 90
       5         GO TO 90
           C
           C     INITIAL TABS (NEW STATEMENT IF START WITH
           C     NON-DIGIT REGARDLESS OF PLACEMENT)
       6         GO TO 90
       7         GO TO 90
       8         GO TO 90
       9         GO TO 90
       10        GO TO 90
       11        GO TO 90
       12        GO TO 90
       13        GO TO 90
       14        GO TO 90
           C
           C     COMBINATION INITIAL TAB AND BLANKS
       15        GO TO 90
       16        GO TO 90
       17        GO TO 90
       18        GO TO 90
       19        GO TO 90
       20        GO TO 90
       21        GO TO 90
       22        GO TO 90
           C
           C     CONTINUATION LINES
       23        GO
       23       1TO 90
       24        GO
       24       1TO 90
       25        GO
       25       1TO 90
       26        GO
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page    2
       TABS AND NUMBERS IN COMMENTS                LFTTAB MAIN PROGRAM

       26       1TO 90
       27        GO
       27       1TO 90
       28        GO
       28       1TO 90
       29        GO
       29       1TO 90
       30        GO
       30       1TO 90
       31        GO
       31       1TO 90
       32        GO
       32       1TO 90
           C
           C     ZERO IN CONTINUATION COLUMN
           C     INITIAL BLANKS
       33       0GO TO 90
       34       0GO TO 90
       35       0GO TO 90
       36       0GO TO 90
           C     INITIAL TABS
       37       0GO TO 90
       38       0GO TO 90
       39       0GO TO 90
           C     INITIAL TABS AND BLANKS
       40       0GO TO 90
       41       0GO TO 90
       42       0GO TO 90
       43       0GO TO 90
           C
           C     NUMBERED STATEMENTS
       44  D 100 CONTINUE
       45     90 CONTINUE
       46   8  10CONTINUE
       47  7   3 CONTINUE
       48  D66   CONTINUE
       49     60 CONTINUE
       50  I  55 CONTINUE
       51  51   0CONTINUE
       52  48   0CONTINUE
       53     460CONTINUE
       54  D  450CONTINUE
       55        E N	D
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page    3
       TABS AND NUMBERS IN COMMENTS                LFTTAB MAIN PROGRAM

       Statement
       Number        Referenced by

           45      -54
           46      -53
           48      -52
           51      -51
           55      -50
           60      -49
           66      -48
           73      -47
           81      -46
           90        1     2     3     4     5     6     7     8     9
                    10    11    12    13    14    15    16    17    18
                    19    20    21    22    23    24    25    26    27
                    28    29    30    31    32    33    34    35    36
                    37    38    39    40    41    42    43   -45
          100      -44
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page    4
       TABS AND NUMBERS IN COMMENTS                LFTTAB MAIN PROGRAM

       Word          Contained in

       CONTINUE     44    45    46    47    48    49    50    51    52
                    53    54
       D            55
       E            55
       LFT           1
       N            55
       PROG          1
       RAM           1
       TAB           1
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page    5
                                                       TABS SUBROUTINE

       1         SU	BROUTINE T	ABS
           C     ROUTINE TO TEST TABS WITHIN STATEMENTS
           C     FOLLOWING COMMENTS HAVE ASTERISK WHERE TABS APPEAR
           C     IN INPUT, ALSO SLASHES HAVE REPLACED THE DIGIT NINE
           C
           C*SU*BROUTINE T*ABS
           C*GO*TO*/*0*
           C*RE*AD*(*48,*/*0*)READ(48,48)
           C*WRITE*(4*8,/*0*)*READ(48,48)
           C*I*F(A.E*Q.B)*GO*TO*/0
           C**D*O*/*0*I*=*48,48
           C100*CONTINUE
           C/ 0*CONTINUE
           C8  1*CONTINUE
           C7   3*CONTINUE
           C6  6*CONTINUE
           C6 0*CONTINUE
           C55*CONTINUE
           C5 1*CONTINUE
           C4  8*CONTINUE
           C4 6*CONTINUE
           C45*CONTINUE
           C*E*N*D**
           C
       2         GO	TO	9	0	
       3         RE	AD	(	48,	9	0	)READ(48,48)
       4         WRITE	(4	8,9	0	)	READ(48,48)
       5         I	F(A.E	Q.B)	GO	TO	90
       6         D	O	9	0	I	=	48,48
           C
           C     NUMBERED STATEMENTS
       7   100   CONTINUE
       8   9 0   CONTINUE
       9   8  1  CONTINUE
       10  7   3 CONTINUE
       11  6  6  CONTINUE
       12  6 0   CONTINUE
       13  55    CONTINUE
       14  5 1   CONTINUE
       15  4  8  CONTINUE
       16  4 6   CONTINUE
       17  45    CONTINUE
       18        E	N	D		
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page    6
                                                       TABS SUBROUTINE

       Statement
       Number        Referenced by

           45      -17
           46      -16
           48      -15
           51      -14
           55      -13
           60      -12
           66      -11
           73      -10
           81       -9
           90        2     3     4     5     6    -8
          100       -7
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page    7
                                                       TABS SUBROUTINE

       Word          Contained in

       A             5
       ABS           1
       B             5
       BROUTINE      1
       CONTINUE      7     8     9    10    11    12    13    14    15
                    16    17
       D            18
       DO            6
       E            18
       I            -6
       N            18
       READ          3     4
       SU            1
       T             1
       WRITE         4
       48            3     4     6
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page    8
       TEST TABS AND ZEROES AT START OF LINE                    TABZRO

           CRENBR (TABZROTEST/TEST TABS AND ZEROES AT START OF LINE)
           CFOLLOWING LINES HAVE ASTERISKS * WHEN TABS ARE USED
           CAND THESE COMMENTS HAVE / IN PLACE OF DIGIT NINE
           C*IF(TAB)GO TO /0
           C**IF(TAB TAB)GO TO /0
           C* *IF(TAB BLANK TAB)GO TO /0
           CD*IF(D TAB)GO TO /0
           CD**IF(D TAB TAB)GO TO /0
           CD* *IF(D TAB BLANK TAB)GO TO /0
           C      IF(6-BLANKS)GO TO /0
           C            IF(12-BLANKS)GO TO /0
           CD     IF(D 5-BLANKS)GO TO /0
           CD           IF(D 11-BLANKS)GO TO /0
           C100          IF(100 10-BLANKS)GO TO /0
           C/0   0   CONTINUE
           C81*0**IF(81 TAB 0 TAB TAB)GO TO /0
           C 7 3 0     IF(BLANK 7 BLANK 3 BLANK 0 5-BLANKS)GO TO /0
           C66          IF(66 10-BLANKS)GO TO /0
           C60          0     IF(60 10-BLANKS 0 5-BLANKS)GO TO /0
           C55**0IF(55 TAB TAB 0)GO TO /0
           C51**0*IF(51 TAB TAB 0 TAB)GO TO /0
           CD48**0     CONTINUE
           CD46**0  *IF(D 46 TAB TAB 0 2-BLANKS TAB)GO TO /0
           C45   0   IF(45 3-BLANKS 0 3-BLANKS)GO TO /0
           C*END
       1         IF(TAB)GO TO 90
       2         IF(TAB TAB)GO TO 90
       3         IF(TAB BLANK TAB)GO TO 90
       4   D     IF(D TAB)GO TO 90
       5   D     IF(D TAB TAB)GO TO 90
       6   D     IF(D TAB BLANK TAB)GO TO 90
       7         IF(6-BLANKS)GO TO 90
       8         IF(12-BLANKS)GO TO 90
       9   D     IF(D 5-BLANKS)GO TO 90
       10  D     IF(D 11-BLANKS)GO TO 90
       11  100   IF(100 10-BLANKS)GO TO 90
       12  90   0CONTINUE
       13  81   0IF(81 TAB 0 TAB TAB)GO TO 90
       14   7 3 0IF(BLANK 7 BLANK 3 BLANK 0 5-BLANKS)GO TO 90
       15  66    IF(66 10-BLANKS)GO TO 90
       16  60   0IF(60 10-BLANKS 0 5-BLANKS)GO TO 90
       17  55   0IF(55 TAB TAB 0)GO TO 90
       18  51   0IF(51 TAB TAB 0 TAB)GO TO 90
       19  D48  0CONTINUE
       20  D46  0IF(D 46 TAB TAB 0 2-BLANKS TAB)GO TO 90
       21  45   0IF(45 3-BLANKS 0 3-BLANKS)GO TO 90
       22        END
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page    9
       TEST TABS AND ZEROES AT START OF LINE       TABZRO MAIN PROGRAM

       Statement
       Number        Referenced by

           45      -21
           46      -20
           48      -19
           51      -18
           55      -17
           60      -16
           66      -15
           73      -14
           81      -13
           90        1     2     3     4     5     6     7     8     9
                    10    11   -12    13    14    15    16    17    18
                    20    21
          100      -11
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page   10
       TEST TABS AND ZEROES AT START OF LINE       TABZRO MAIN PROGRAM

       Word          Contained in

       BLANKS        7     8     9    10    11    14    15    16    21
       BLANKSTAB    20
       BLANKS03     21
       BLANKS05     16
       BLANK7BLAN   14
       CONTINUE     12    19
       DTAB          4
       DTABBLANKT    6
       DTABTAB       5
       D11          10
       D46TABTAB0   20
       D5            9
       END          22
       TAB           1
       TABBLANKTA    3
       TABTAB        2
       10010        11
       12            8
       453          21
       51TABTAB0T   18
       55TABTAB0    17
       6             7
       6010         16
       6610         15
       81TAB0TABT   13
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page   11
       TEST CONTINUE AFTER COMMENT                              CONTIN

           CRENBR(CONTINUATION LINES/TEST CONTINUE AFTER COMMENT)
           CFOLLOWING SPACINGS SHOULD BE OBTAINED IF REMOVE INITIAL C
           C********5IF(TAB 5)GO TO 48
           C****************5IF(TAB TAB 5)GO TO 48
           C*****5IF(5-BLANKS 5)GO TO 48
           C*****5*****IF(5-BLANKS 5 5-BLANKS)GO TO 48
           C******IF(TAB TAB
           C*****1**TAB TAB 1 TAB
           C*****2**TAB 1 TAB ) GO TO 2
           C*****0IF(5-BLANKS 0 5-BLANKS
           C*****1*****5-BLANKS 1 5-BLANKS
           C*****2**********5-BLANKS 1 10-BLANKS)GO TO 2
           CD***1*IF(D 100 10-BLANKS
           CD****1**********10-BLANKS 1 10-BLANKS)GO TO 2
           C****2*CONTINUE
           C****3*CONTINUE
           C****4*IF(73 TAB TAB
           C*****1**********TAB 1 TAB TAB)GO TO 2
           C****5*CONTINUE
           C****6*CONTINUE
           C****7*CONTINUE
           C****8*CONTINUE
           C****/*CONTINUE
           C***10*CONTINUE
           C***11*CONTINUE
           C******END
           CCONTINUATION LINES AFTER COMMENTS SHOULD BE LEFT UNCHANGED
                   5IF(TAB 5)GO TO 48
                           5IF(TAB TAB 5)GO TO 48
                5IF(5-BLANKS 5)GO TO 48
                5     IF(5-BLANKS 5 5-BLANKS)GO TO 48
           CTEST WRAPAROUND PREVENTION WHEN REMOVE INITIAL BLANKS
           CFROM FIRST LINE OF STATEMENT
       1         IF(TAB TAB
       1        1	TAB TAB 1 TAB
       1        2	TAB 1 TAB ) GO TO 90
       2        0IF(5-BLANKS 0 5-BLANKS
       2        1     5-BLANKS 1 5-BLANKS
       2        2          5-BLANKS 1 10-BLANKS)GO TO 90
       3   D100  IF(D 100 10-BLANKS
       3   D    1          10-BLANKS 1 10-BLANKS)GO TO 90
       4   90    CONTINUE
       5   81    CONTINUE
       6   73    IF(73 TAB TAB
       6        1		TAB 1 TAB TAB)GO TO 90
       7      66 CONTINUE
       8      60 CONTINUE
       9      55 CONTINUE
       10     51 CONTINUE
       11     48 CONTINUE
       12     46 CONTINUE
       13     45 CONTINUE
       14        END
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page   12
       TEST CONTINUE AFTER COMMENT                 CONTIN MAIN PROGRAM

       Statement
       Number        Referenced by

           45      -13
           46      -12
           48      -11
           51      -10
           55       -9
           60       -8
           66       -7
           73       -6
           81       -5
           90        1     2     3    -4     6
          100       -3
1      LISTING OF TABS.TRY WITHOUT RENUMBERING               Page   13
       TEST CONTINUE AFTER COMMENT                 CONTIN MAIN PROGRAM

       Word          Contained in

       BLANKS        2     3
       BLANKS05      2
       BLANKS10      3
       BLANKS110     2     3
       BLANKS15      2
       BLANKS5       2
       CONTINUE      4     5     7     8     9    10    11    12    13
       D10010        3
       END          14
       TABTABTABT    1
       5             2
       73TABTABTA    6
1      LISTING OF TABS.TRY WITHOUT RENUMBERING                Table of
       Statements   109, Comments   118, NonFORTRAN     0     Contents
       (Avg Group)    7,              9
                              Page                       Length   Page

       CONTIN MAIN PROGRAM      11     LFTTAB MAIN PROGRAM   55      1

       LFTTAB MAIN PROGRAM       1         TABS SUBROUTINE   18      5

       TABS   SUBROUTINE         5     TABZRO MAIN PROGRAM   22      8

       TABZRO MAIN PROGRAM       8     CONTIN MAIN PROGRAM   14     11
1