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