J E S 2 J O B L O G
16.52.19 JOB 1505 $HASP373 SPIT370T STARTED - INIT 3 - CLASS S - SYS H155 16.52.19 JOB 1505 IEF403I SPIT370T - STARTED - TIME=16.52.19 16.52.19 JOB 1505 CCI001C SPIT370 /OSINT /00:00:00.05/00:00:00/00000/SYS /SPIT370T 16.52.19 JOB 1505 IEF404I SPIT370T - ENDED - TIME=16.52.19 16.52.19 JOB 1505 $HASP395 SPIT370T ENDED
------ JES2 JOB STATISTICS ------
22 JAN 86 JOB EXECUTION DATE
487 CARDS READ
2,350 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
0.00 MINUTES EXECUTION TIME
========================================================================================================================
1 //SPIT370T JOB (SYS),'TEST SPITBOL/370',CLASS=S,MSGCLASS=X JOB 1505
//SPIT370 PROC CORE=200K 00020000
//SPIT370 EXEC PGM=OSINT,REGION=&CORE 00030000
//STEPLIB DD DSN=SYSP.SPIT370.LOADMODS,DISP=SHR 00040000
//SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,RECFM=FBA,BLKSIZE=1995) 00050000
//SYSPUNCH DD SYSOUT=B,DCB=(LRECL=80,RECFM=FB,BLKSIZE=80) 00060000
//SYSUDUMP DD SYSOUT=Y 00070000
// PEND 00080000
2 // EXEC SPIT370 00090000
3 ++SPIT370 PROC CORE=200K 00020000
4 ++SPIT370 EXEC PGM=OSINT,REGION=&CORE 00030000
5 ++STEPLIB DD DSN=SYSP.SPIT370.LOADMODS,DISP=SHR 00040000
6 ++SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,RECFM=FBA,BLKSIZE=1995) 00050000
7 ++SYSPUNCH DD SYSOUT=B,DCB=(LRECL=80,RECFM=FB,BLKSIZE=80) 00060000
8 ++SYSUDUMP DD SYSOUT=Y 00070000
9 //SYSIN DD * 00100000
========================================================================================================================
STMT NO. MESSAGE
-
4 IEF653I SUBSTITUTION JCL - PGM=OSINT,REGION=200K
IEF236I ALLOC. FOR SPIT370T SPIT370
IEF237I 180 ALLOCATED TO STEPLIB
IEF237I 280 ALLOCATED TO SYS00174
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSPUNCH
IEF237I JES2 ALLOCATED TO SYSUDUMP
IEF237I JES2 ALLOCATED TO SYSIN
IEF142I SPIT370T SPIT370 - STEP WAS EXECUTED - COND CODE 0000
IEF285I SYSP.SPIT370.LOADMODS KEPT
IEF285I VOL SER NOS= MVS801.
IEF285I UCSYSP01 KEPT
IEF285I VOL SER NOS= SYSP01.
IEF285I JES2.JOB01505.SO0102 SYSOUT
IEF285I JES2.JOB01505.SO0103 SYSOUT
IEF285I JES2.JOB01505.SO0104 SYSOUT
IEF285I JES2.JOB01505.SI0101 SYSIN
IEF373I STEP /SPIT370 / START 86022.1652
IEF374I STEP /SPIT370 / STOP 86022.1652 CPU 0MIN 00.05SEC SRB 0MIN 00.00SEC VIRT 200K SYS 180K
**** JOBCARD READ 86022 16:52:18 ***************************************************************************************************
* PRC-CCI 370/148 VS2 R03.8 H155 STEP STATISTICS *
* STEP NAME SPIT370 USER CORE 200K TAPES USED/IO 000/000000000 START TIME 16:52:19 TCB TIME 00:00:00.05 *
* PGM NAME OSINT SYSTEM CORE 180K DISKS USED/IO 002/000000000 STOP TIME 16:52:19 SRB TIME 00:00:00.00 *
* COND CODE 0000 PRIVATE AREA SZ 200K ALLOC TIME 16:52:19 ELAPSED TIME 00:00:00 PGM LOAD 16:52:19 *
** PGNO * NR SRV UNITS * ACTIVE TIME ** PAGES IN *** PAGES OUT ** # SWAPS * PGS SWAP IN * PGS SWAP OUT * VIO PGS IN * VIO PGS OUT **
* 003 266 00:00:00.07 0 0 0 0 0 0 0 *
************************************************************************************************************************************
* CPU $ ( 0.01) + EXCP $ ( 0.00) + MEMORY $ ( 0.02) = TOTAL $ ( 0.03) *
************************************************************************************************************************************
IEF375I JOB /SPIT370T/ START 86022.1652
IEF376I JOB /SPIT370T/ STOP 86022.1652 CPU 0MIN 00.05SEC SRB 0MIN 00.00SEC
========================================================================================================================
S P I T B O L / 3 7 0 -- VERSION 1.0 -- COPY NUMBER 0001
________________________________________________________
ILLINOIS INSTITUTE OF TECHNOLOGY ________________________________
SYSTEM = OS/VS2 MVS RELEASE 03.8 OSINT VERSION 1.24 1/22/86 16.52.19
PARM FIELD IS OMITTED.
PARAMETER VALUES FOR THIS RUN:
B = 5 SET BY DEFAULT. C = 100000 SET BY DEFAULT. D = 10 SET BY DEFAULT. E = 0 SET BY DEFAULT. F = 0 SET BY DEFAULT. H = 1024000 SET BY DEFAULT. I = 0 SET BY DEFAULT. L = 16384 SET BY DEFAULT. M = 0 SET BY DEFAULT. N = 60 SET BY DEFAULT. P = 100000 SET BY DEFAULT. R = 18432 SET BY DEFAULT. S = 0 SET BY DEFAULT. T = 55 SET BY DEFAULT.
DYNAMIC MEMORY AVAILABLE = 110592
======================================================================================================================== SPITBOL TEST PROGRAM #3 -- COMPUTE FACTORIAL TABLE PAGE 1
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * .00120000
* * .00130000
* THIS PROGRAM COMPUTES AND PRINTS A TABLE OF N FACTORIAL * .00140000
* FOR VALUES OF N FROM 1 THROUGH AN UPPER LIMIT "NX". * .00150000
* * .00160000
* IT DEMONSTRATES A METHOD OF MANIPULATING NUMBERS WHICH ARE * .00170000
* TOO LARGE FOR THE COMPUTER, AS STRINGS OF CHARACTERS. THE * .00180000
* COMMAS IN THE PRINTED VALUES ARE OPTIONAL, ADDED FOR READING * .00190000
* EASE. * .00200000
* * .00210000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * .00220000
* .00230000
* INITIALIZATION. .00240000
* .00250000
1 NX = 45 .00260000
2 N = 1 .00270000
3 NSET = 1 .00280000
4 NUM = ARRAY(1000) .00290000
5 NUM<1> = 1 .00300000
6 FILL = ARRAY('0:3') .00310000
7 FILL<0> = '000' .00320000
8 FILL<1> = '00' .00330000
9 FILL<2> = '0' .00340000
* .00350000
10 OUTPUT = ' TABLE OF FACTORIALS FOR 1 THROUGH ' NX .00360000
11 OUTPUT = .00370000
* .00380000
* COMPUTE THE NEXT VALUE FROM THE PREVIOUS ONE. .00390000
* .00400000
12 L1 I = 1 .00410000
13 L2 NUM<I> = NUM<I> * N :F(ERR) .00420000
14 I = LT(I,NSET) I + 1 :S(L2) .00430000
15 I = 1 .00440000
16 L3 LT(NUM<I>,1000) :S(L4) .00450000
17 NUMX = NUM<I> / 1000 :F(ERR) .00460000
18 NUM<I + 1> = NUM<I + 1> + NUMX :F(ERR) .00470000
19 NUM<I> = NUM<I> - 1000 * NUMX :F(ERR) .00480000
20 L4 I = LT(I,NSET) I + 1 :S(L3) .00490000
* .00500000
* FORM A STRING REPRESENTING THE FACTORIAL. .00510000
* .00520000
21 L5 NSET = DIFFER(NUM<NSET + 1>) NSET + 1 .00530000
22 NUMBER = NUM<NSET> :F(ERR) .00540000
23 I = GT(NSET,1) NSET - 1 :F(L7) .00550000
24 L6 NUMBER = NUMBER ',' FILL<SIZE(NUM<I>)> NUM<I> .00560000
25 I = GT(I,1) I - 1 :S(L6) .00570000
* .00580000
* OUTPUT A LINE OF THE TABLE. .00590000
* .00600000
26 L7 OUTPUT = N '!=' NUMBER .00610000
27 N = LT(N,NX) N + 1 :S(L1)F(END) .00620000
* .00630000
* ERROR TERMINATION. .00640000
* .00650000
28 ERR OUTPUT = N '! CANNOT BE COMPUTED BECAUSE OF TABLE OVERFLOW.' .00660000
29 OUTPUT = ' INCREASE THE SIZE OF ARRAY "NUM".' .00670000
* .00680000
30 END .00690000
======================================================================================================================== SPITBOL TEST PROGRAM #3 -- COMPUTE FACTORIAL TABLE PAGE 2
COMPILATION TIME 0.001 SECONDS
MEMORY USAGE (DECIMAL BYTES)
CODE: 952
STRINGS: 183
VARIABLES: 800
CONSTANTS: 112
TOTAL: 2047
AVAILABLE: 102801
SUCCESSFUL COMPILATION
========================================================================================================================
TABLE OF FACTORIALS FOR 1 THROUGH 45
1!=1 2!=2 3!=6 4!=24 5!=120 6!=720 7!=5,040 8!=40,320 9!=362,880 10!=3,628,800 11!=39,916,800 12!=479,001,600 13!=6,227,020,800 14!=87,178,291,200 15!=1,307,674,368,000 16!=20,922,789,888,000 17!=355,687,428,096,000 18!=6,402,373,705,728,000 19!=121,645,100,408,832,000 20!=2,432,902,008,176,640,000 21!=51,090,942,171,709,440,000 22!=1,124,000,727,777,607,680,000 23!=25,852,016,738,884,976,640,000 24!=620,448,401,733,239,439,360,000 25!=15,511,210,043,330,985,984,000,000 26!=403,291,461,126,605,635,584,000,000 27!=10,888,869,450,418,352,160,768,000,000 28!=304,888,344,611,713,860,501,504,000,000 29!=8,841,761,993,739,701,954,543,616,000,000 30!=265,252,859,812,191,058,636,308,480,000,000 31!=8,222,838,654,177,922,817,725,562,880,000,000 32!=263,130,836,933,693,530,167,218,012,160,000,000 33!=8,683,317,618,811,886,495,518,194,401,280,000,000 34!=295,232,799,039,604,140,847,618,609,643,520,000,000 35!=10,333,147,966,386,144,929,666,651,337,523,200,000,000 36!=371,993,326,789,901,217,467,999,448,150,835,200,000,000 37!=13,763,753,091,226,345,046,315,979,581,580,902,400,000,000 38!=523,022,617,466,601,111,760,007,224,100,074,291,200,000,000 39!=20,397,882,081,197,443,358,640,281,739,902,897,356,800,000,000 40!=815,915,283,247,897,734,345,611,269,596,115,894,272,000,000,000 41!=33,452,526,613,163,807,108,170,062,053,440,751,665,152,000,000,000 42!=1,405,006,117,752,879,898,543,142,606,244,511,569,936,384,000,000,000 43!=60,415,263,063,373,835,637,355,132,068,513,997,507,264,512,000,000,000 44!=2,658,271,574,788,448,768,043,625,811,014,615,890,319,638,528,000,000,000 45!=119,622,220,865,480,194,561,963,161,495,657,715,064,383,733,760,000,000,000
======================================================================================================================== NORMAL TERMINATION IN STATEMENT 27
NUMBER OF STATEMENTS EXECUTED 3296
EXECUTION TIME (SECONDS) 0.004
MSEC/STATEMENT 0.001
NUMBER OF STORAGE REGENERATIONS 0
======================================================================================================================== SPITBOL TEST PROGRAM #5 -- DEMONSTRATION VERSION OF TREESORT4 PAGE 1
DRIVER
1 DEFINE('TREESORT4(DATA,NUMBER_TO_SORT)') .00730000
2 DEFINE('PRINTER()') .00740000
3 DATA = ARRAY(24) .00750000
4 INPUT(.INPUT,,72) .00760000
5 READER J = J + 1 .00770000
6 DATA<J> = TRIM(INPUT) :S(READER) .00780000
7 OUTPUT = 'UNSORTED DATA' .00790000
8 OUTPUT = .00800000
9 PRINTER() .00810000
10 TREESORT4(DATA,24) .00820000
11 OUTPUT = .00830000
12 OUTPUT = 'SORTED DATA' .00840000
13 OUTPUT = .00850000
14 PRINTER() :(END) .00860000
* .00870000
15 PRINTER J = 0 .00880000
16 PRINTL J = J + 1 .00890000
17 OUTPUT = DATA<J> :S(PRINTL)F(RETURN) .00900000
======================================================================================================================== SPITBOL TEST PROGRAM #5 -- DEMONSTRATION VERSION OF TREESORT4 PAGE 2
ACTUAL TREESORT4 SUBROUTINE
* TREESORT4 .00920000
* --------- .00930000
* .00940000
* SORTING ALGORITHM DERIVED FROM FLOYD'S TREESORT3 PUBLISHED .00950000
* IN CACM DEC. 1967 -- THE MODIFICATIONS DEVISED BY R. DEWAR .00960000
* AND L.FISHER REDUCE THE NUMBER OF COMPARES FROM 2NLOGN .00970000
* TO NLOGN -- THIS VERSION CODED IN SNOBOL4 BY R. DEWAR .00980000
* .00990000
18 TREESORT4 .01000000
. NUMBER_IN_TREE = NUMBER_TO_SORT .01010000
19 NODE_TO_SIFT = NUMBER_TO_SORT / 2 .01020000
20 RETURN_FROM_SIFT = .SIFT_RETURN_1 .01030000
21 SIFT_CALL_1 .01040000
. HOLD_LOCATION = DATA<NODE_TO_SIFT> :(SIFT_NODE) .01050000
22 SIFT_RETURN_1 .01060000
. NODE_TO_SIFT = GT(NODE_TO_SIFT,1) .01070000
. NODE_TO_SIFT - 1 :S(SIFT_CALL_1) .01080000
23 SECOND_PHASE .01090000
. RETURN_FROM_SIFT = .SIFT_RETURN_2 .01100000
24 SIFT_RETURN_2 .01110000
. HOLD_LOCATION = DATA<NUMBER_IN_TREE> .01120000
25 DATA<NUMBER_IN_TREE> = DATA<1> .01130000
26 NUMBER_IN_TREE = GT(NUMBER_IN_TREE,1) .01140000
. NUMBER_IN_TREE - 1 .01150000
. :S(SIFT_NODE)F(RETURN) .01160000
======================================================================================================================== SPITBOL TEST PROGRAM #5 -- DEMONSTRATION VERSION OF TREESORT4 PAGE 3
ACTUAL TREESORT4 SUBROUTINE
27 SIFT_NODE .01180000
. FATHER = NODE_TO_SIFT .01190000
28 PULL_UP_LARGER_SON .01200000
. LEFT_SON = FATHER * 2 .01210000
29 LT(LEFT_SON,NUMBER_IN_TREE) :S(COMPARE_SONS) .01220000
30 EQ(LEFT_SON,NUMBER_IN_TREE) :S(LEFT_SON_HIGH) .01230000
31 :(CHECK_FATHERS) .01240000
32 COMPARE_SONS .01250000
. RIGHT_SON = LEFT_SON + 1 .01260000
33 LGT(DATA<LEFT_SON>,DATA<RIGHT_SON>) .01270000
. :S(LEFT_SON_HIGH) .01280000
34 RIGHT_SON_HIGH .01290000
. DATA<FATHER> = DATA<RIGHT_SON> .01300000
35 FATHER = RIGHT_SON :(PULL_UP_LARGER_SON) .01310000
36 LEFT_SON_HIGH .01320000
. DATA<FATHER> = DATA<LEFT_SON> .01330000
37 FATHER = LEFT_SON :(PULL_UP_LARGER_SON) .01340000
38 CHECK_FATHERS .01350000
. HOLE_IN_TREE = FATHER .01360000
39 TEST_NEXT_FATHER .01370000
. FATHER_OF_HOLE = HOLE_IN_TREE / 2 .01380000
40 LT(FATHER_OF_HOLE,NODE_TO_SIFT) :S(FILL_HOLE) .01390000
41 LGT(DATA<FATHER_OF_HOLE>,HOLD_LOCATION) .01400000
. :S(FILL_HOLE) .01410000
42 DATA<HOLE_IN_TREE> = DATA<FATHER_OF_HOLE> .01420000
43 HOLE_IN_TREE = FATHER_OF_HOLE :(TEST_NEXT_FATHER) .01430000
44 FILL_HOLE .01440000
. DATA<HOLE_IN_TREE> = HOLD_LOCATION .01450000
. :($RETURN_FROM_SIFT) .01460000
45 END .01470000
======================================================================================================================== SPITBOL TEST PROGRAM #5 -- DEMONSTRATION VERSION OF TREESORT4 PAGE 4
COMPILATION TIME 0.002 SECONDS
MEMORY USAGE (DECIMAL BYTES)
CODE: 1148
STRINGS: 363
VARIABLES: 1280
CONSTANTS: 72
TOTAL: 2863
AVAILABLE: 102425
SUCCESSFUL COMPILATION
========================================================================================================================
UNSORTED DATA
SHALL I COMPARE THEE TO A SUMMERS DAY THOU ART MORE LOVELY AND MORE TEMPORATE ROUGH WINDS DO SHAKE THE DARLING BUDS OF MAY
SORTED DATA
A AND ART BUDS COMPARE DARLING DAY DO I LOVELY MAY MORE MORE OF ROUGH SHAKE SHALL SUMMERS TEMPORATE THE THEE THOU TO WINDS
======================================================================================================================== NORMAL TERMINATION IN STATEMENT 14
NUMBER OF STATEMENTS EXECUTED 1130
EXECUTION TIME (SECONDS) 0.001
MSEC/STATEMENT 0.000
NUMBER OF STORAGE REGENERATIONS 0
======================================================================================================================== SPITBOL TEST PROGRAM #6 -- TOPOLOGICAL SORT PAGE 1
* .01740000
* TOPOLOGICAL SORT .01750000
* .01760000
* MAPS A PARTIAL ORDERING OF OBJECTS INTO A LINEAR ORDERING .01770000
* .01780000
* A(1), A(2), ..., A(N) .01790000
* .01800000
* SUCH THAT IF A(S) < A(T) IN THE PARTIAL ORDERING,THEN S < T. .01810000
* (CF. D.E.KNUTH, THE ART OF COMPUTER PROGRAMMING,VOLUME 1, .01820000
* ADDISON-WESLEY,MASS.,1968, P.262) .01830000
* .01840000
1 &DUMP = 2 .01850000
2 OUTPUT('OUT',6,'(121A1)') .01860000
3 PAIR = BREAK('<') . MU LEN(1) BREAK(',') . NU LEN(1) .01870000
4 DATA('ITEM(COUNT,TOP)') .01880000
5 DATA('NODE(SUC,NEXT)') .01890000
6 DEFINE('DECR(X)') .01900000
7 DEFINE('INDEX(TAU)') .01910000
8 INPUT(.INPUT,,72) .01920000
* .01930000
* READ IN THE NUMBER OF ITEMS, N, AND GENERATE AN ARRAY OF ITEMS. .01940000
* .01950000
* EACH ITEM HAS TWO FIELDS, (COUNT,TOP), WHERE .01960000
* COUNT = NO. OF ELEMENTS PRECEEDING IT. .01970000
9 TOP = TOP OF LIST OF ITEMS SUCCEEDING IT. .01980000
* .01990000
10 N = TRIM(INPUT) .02000000
11 X = ARRAY('0:' N) .02010000
* INITIALIZE THE ITEMS TO (0,NULL). .02020000
* .02030000
12 T1 X<I> = ITEM(0,) :F(T1A) .02040000
13 I = I + 1 :(T1) .02050000
* .02060000
* READ IN RELATIONS. .02070000
* .02080000
14 T1A OUT = '1 THE RELATIONS ARE:' .02090000
15 T2A REL = TRIM(INPUT) ',' :F(T3A) .02100000
16 OUTPUT = REL .02110000
17 T2 REL PAIR = :F(T2A) .02120000
18 J = INDEX(MU) .02130000
19 K = INDEX(NU) .02140000
* .02150000
* SINCE MU < NU, INCREASE THE COUNT OF THE KTH ITEM AND ADD A .02160000
* NODE TO THE LIST OF SUCCESSORS OF THE JTH ITEM. .02170000
* .02180000
20 T3 COUNT(X<K>) = COUNT(X<K>) + 1 .02190000
21 TOP(X<J>) = NODE(K,TOP(X<J>)) :(T2) .02200000
======================================================================================================================== SPITBOL TEST PROGRAM #6 -- TOPOLOGICAL SORT PAGE 2
* .02220000
* A QUEUE IS MAINTAINED OF THOSE ITEMS WITH ZERO COUNT FIELD. .02230000
* THE LINKS FOR THE QUEUE, QLINK, ARE KEPT IN THE COUNT FIELD. .02240000
* THE VARIABLES F,R POINT TO THE FRONT AND REAR OF THE QUEUE. .02250000
* .02260000
22 T3A OPSYN('QLINK','COUNT') .02270000
* .02280000
* INITIALIZE THE QUEUE FOR OUTPUT. .02290000
* .02300000
23 R = 0 .02310000
24 QLINK(X<0>) = 0 .02320000
25 K = 0 .02330000
26 T4 K = ?X<K + 1> K + 1 :F(T4A) .02340000
27 QLINK(X<R>) = EQ(COUNT(X<K>),0) K :F(T4) .02350000
28 R = K :(T4) .02360000
29 T4A F = QLINK(X<0>) .02370000
* .02380000
* OUTPUT THE FRONT OF THE QUEUE. .02390000
* .02400000
30 OUT = '0 THE LINEAR ORDERING IS:' .02410000
31 T5 OUTPUT = NE(F,0) $(F ':') :F(T8) .02420000
32 N = N - 1 .02430000
33 P = TOP(X<F>) .02440000
* ERASE RELATIONS. .02450000
34 T6 IDENT(P) :S(T7) .02460000
35 DECR(.COUNT(X<SUC(P)>)) :S(T6A) .02470000
* .02480000
* IF COUNT IS ZERO ADD ITEM TO QUEUE. .02490000
* .02500000
36 QLINK(X<R>) = SUC(P) .02510000
37 R = SUC(P) .02520000
38 T6A P = NEXT(P) :(T6) .02530000
* .02540000
* REMOVE FROM QUEUE. .02550000
* .02560000
39 T7 F = QLINK(X<F>) :(T5) .02570000
* .02580000
* FUNCTION DEFINITIONS. .02590000
* .02600000
40 DECR $X = GT($X,1) $X - 1 :S(RETURN) .02610000
41 $X = 0 :(FRETURN) .02620000
* .02630000
42 INDEX INDEX = DIFFER($(TAU ':')) $(TAU ':') :S(RETURN) .02640000
43 TERMCT = LT(TERMCT,N) TERMCT + 1 :F(FRETURN) .02650000
44 INDEX = TERMCT .02660000
45 $(TERMCT ':') = TAU .02670000
46 $(TAU ':') = TERMCT :(RETURN) .02680000
* .02690000
47 T8 OUTPUT = NE(N,0) 'THE ORDERING CONTAINS A LOOP.' .02700000
48 END .02710000
======================================================================================================================== SPITBOL TEST PROGRAM #6 -- TOPOLOGICAL SORT PAGE 3
COMPILATION TIME 0.003 SECONDS
MEMORY USAGE (DECIMAL BYTES)
CODE: 1730
STRINGS: 264
VARIABLES: 1952
CONSTANTS: 168
TOTAL: 4114
AVAILABLE: 97838
SUCCESSFUL COMPILATION
========================================================================================================================
THE RELATIONS ARE: LETTERS<ALPHANUM,NUMBERS<ALPHANUM, BLANKS<OPTBLANKS, NUMBERS<REAL, NUMBERS<INTEGER, LETTERS<VARIABLE,ALPHANUM<VARIABLE, BINARY<BINARYOP,BLANKS<BINARYOP, UNQALPHABET<DLITERAL, UNQALPHABET<SLITERAL, SLITERAL<LITERAL,DLITERAL<LITERAL,INTEGER<LITERAL,REAL<LITERAL,
THE LINEAR ORDERING IS: LETTERS NUMBERS BLANKS BINARY UNQALPHABET INTEGER REAL ALPHANUM OPTBLANKS BINARYOP SLITERAL DLITERAL VARIABLE LITERAL
======================================================================================================================== NORMAL TERMINATION IN STATEMENT 47
NUMBER OF STATEMENTS EXECUTED 431
EXECUTION TIME (SECONDS) 0.001
MSEC/STATEMENT 0.002
NUMBER OF STORAGE REGENERATIONS 0
======================================================================================================================== DUMP OF NATURAL VARIABLES _________________________
ALPHANUM: = 2
BINARY: = 9
BINARYOP: = 10
BLANKS: = 4
DLITERAL: = 12
F = 0
I = 15
INPUT = 'SLITERAL<LITERAL,DLITERAL<LITERAL,INTEGER<LITERAL,REAL<LITERAL '
INTEGER: = 7
J = 6
K = 14
LETTERS: = 1
LITERAL: = 14
MU = 'REAL'
N = 0
NU = 'LITERAL'
NUMBERS: = 3
OPTBLANKS: = 5
OUT = '0 THE LINEAR ORDERING IS:'
OUTPUT = 'LITERAL'
PAIR = PATTERN
R = 14
REAL: = 6
SLITERAL: = 13
TERMCT = 14
UNQALPHABET: = 11
VARIABLE: = 8
X = ARRAY('0:14') #1
1: = 'LETTERS'
10: = 'BINARYOP'
11: = 'UNQALPHABET'
12: = 'DLITERAL'
13: = 'SLITERAL'
14: = 'LITERAL'
2: = 'ALPHANUM'
3: = 'NUMBERS'
4: = 'BLANKS'
5: = 'OPTBLANKS'
6: = 'REAL'
7: = 'INTEGER'
8: = 'VARIABLE'
9: = 'BINARY'
DUMP OF KEYWORDS ________________
&ABEND = 0 &ANCHOR = 0 &CODE = 0 &DUMP = 2 &ERRLIMIT = 0 &ERRTYPE = 0 &FNCLEVEL = 0 &FTRACE = 0 &FULLSCAN = 0 &INPUT = 1 &MAXLNGTH = 5000 &OUTPUT = 1 &RTNTYPE = 'FRETURN'
======================================================================================================================== &STCOUNT = 431 &STLIMIT = 50000 &STNO = 47 &TRACE = 0 &TRIM = 0
ARRAY('0:14') #1
________________
X<0> = ITEM #2 X<1> = ITEM #3 X<2> = ITEM #4 X<3> = ITEM #5 X<4> = ITEM #6 X<5> = ITEM #7 X<6> = ITEM #8 X<7> = ITEM #9 X<8> = ITEM #10 X<9> = ITEM #11 X<10> = ITEM #12 X<11> = ITEM #13 X<12> = ITEM #14 X<13> = ITEM #15 X<14> = ITEM #16
ITEM #2 _______
COUNT = 1 TOP =
ITEM #3 _______
COUNT = 3 TOP = NODE #22
ITEM #4 _______
COUNT = 5 TOP = NODE #23
ITEM #5 _______
COUNT = 4 TOP = NODE #21
ITEM #6 _______
COUNT = 9 TOP = NODE #25
ITEM #7 _______
COUNT = 10 TOP =
ITEM #8 _______
COUNT = 2 TOP = NODE #31
ITEM #9 _______
========================================================================================================================
COUNT = 6 TOP = NODE #30
ITEM #10 ________
COUNT = 14 TOP =
ITEM #11 ________
COUNT = 11 TOP = NODE #24
ITEM #12 ________
COUNT = 13 TOP =
ITEM #13 ________
COUNT = 7 TOP = NODE #27
ITEM #14 ________
COUNT = 8 TOP = NODE #29
ITEM #15 ________
COUNT = 12 TOP = NODE #28
ITEM #16 ________
COUNT = 0 TOP =
NODE #17 ________
SUC = 2 NEXT =
NODE #18 ________
SUC = 2 NEXT =
NODE #19 ________
SUC = 5 NEXT =
NODE #20 ________
SUC = 6 NEXT = NODE #18
NODE #21 ________
========================================================================================================================
SUC = 7 NEXT = NODE #20
NODE #22 ________
SUC = 8 NEXT = NODE #17
NODE #23 ________
SUC = 8 NEXT =
NODE #24 ________
SUC = 10 NEXT =
NODE #25 ________
SUC = 10 NEXT = NODE #19
NODE #26 ________
SUC = 12 NEXT =
NODE #27 ________
SUC = 13 NEXT = NODE #26
NODE #28 ________
SUC = 14 NEXT =
NODE #29 ________
SUC = 14 NEXT =
NODE #30 ________
SUC = 14 NEXT =
NODE #31 ________
SUC = 14 NEXT =
========================================================================================================================
SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 1
* .02840000
* THIS PROGRAM DEMONSTRATES THE STORAGE OF SYMBOL TABLES .02850000
* USING A TECHIQUE IN WHICH NAMES ARE STORED AS LINKED LISTS .02860000
* OF CHARACTERS. THE DATA FUNCTION IS USED TO FORM THE .02870000
* REQUIRED NODES WHICH CONTAIN APPROPRIATE POINTERS TO BE .02880000
* USED ON FAILURE OR SUCCESS OF THE CHARACTER BY CHARACTER MATCH .02890000
* .02900000
1 DATA('SYMB(CHAR,LINK,ALT,ASSOC,SUCC)') .02920000
2 INPUT(.INPUT,,72) .02930000
3 SPC = ' ::' .02940000
4 ALPH = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" .02950000
5 CLEAR HEAD = .02960000
6 SWITCH1 = .FIRST .02970000
7 X = 0 .02980000
8 READA OUTPUT = .02990000
9 READ CARD = TRIM(INPUT) :F(END1) .03000000
10 OUTPUT = CARD .03010000
11 DIFFER(CARD) :F(BADCARD) .03020000
12 CARD POS(0) '$' = :S(CONTROL) .03030000
13 CARD NOTANY(ALPH) :F(INCX) .03040000
14 BADCARD OUTPUT = ' CARD ABOVE IS ILLEGAL' :(READ) .03050000
15 INCX X = X + 1 :($SWITCH1) .03060000
16 FIRST SWITCH1 = .SEARCH .03070000
17 F1 CARD LEN(1) . CH = :F(ERR) .03080000
18 HEAD = SYMB(CH) .03090000
19 CURRENT = HEAD .03100000
20 F2 CARD LEN(1) . CH = :F(INSERT) .03110000
21 F3 SUCC(CURRENT) = SYMB(CH,CURRENT) .03120000
22 CURRENT = SUCC(CURRENT) :(F2) .03130000
23 INSERT ASSOC(CURRENT) = ASSOC(CURRENT) X "," :(READ) .03140000
24 SEARCH CARD LEN(1) . CH = :F(ERR) .03150000
25 LGT(CHAR(HEAD), CH) :S(S7) .03160000
26 IDENT(CHAR(HEAD),CH) :S(S5) .03170000
* .03180000
* FIRST CHARACTER OF HEAD IS < FIRST CHAR OF CHAR JUST READ .03190000
* IF ALT(HEAD) NULL THEN MUST EXTEND STRUCTURE .03200000
* .03210000
27 IDENT(ALT(HEAD)) :S(S3) .03220000
28 CURRENT = ALT(HEAD) .03230000
29 S1 LGT(CHAR(CURRENT),CH) :S(S6) .03240000
30 IDENT(CHAR(CURRENT),CH) :S(S4) .03250000
31 IDENT(ALT(CURRENT)) :S(S2) .03260000
32 CURRENT = ALT(CURRENT) :(S1) .03270000
* .03280000
* NEW ALTERNATIVE MUST BE INSERTED AT END .03290000
* .03300000
33 S2 ALT(CURRENT) = SYMB(CH,CURRENT) .03310000
* .03320000
* THEN REST OF WORD STRUNG OUT .03330000
* .03340000
34 CURRENT = ALT(CURRENT) :(F2) .03350000
* .03360000
* NEW ALTERNATIVE MUST BE INSERTED AT HEAD OF LIST .03370000
* .03380000
35 S3 ALT(HEAD) = SYMB(CH,HEAD) .03390000
36 CURRENT = ALT(HEAD) :(F2) .03400000
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 2
* .03420000
* CHARACTER HAS BEEN FOUND. NOW LOOK AT NEXT HCARACTER OF WORD .03430000
* .03440000
37 S4 CARD LEN(1) . CH = :F(INSERT) .03450000
* IF NO SUCCESSORS, STRING OUT REST OF WORD .03460000
* .03470000
38 IDENT(SUCC(CURRENT)) :S(F3) .03480000
* .03490000
* OTHERWISE CONTINUE EXAMINATION .03500000
* .03510000
39 CURRENT = SUCC(CURRENT) :(S1) .03520000
40 S5 CURRENT = HEAD :(S4) .03530000
* .03540000
* CHAR IS SMALLER THAN CURRENT ALTERNATIVE .03550000
* .03560000
41 S6 Y = LINK(CURRENT) .03570000
42 ALT(Y) = IDENT(ALT(Y),CURRENT) SYMB(CH,Y) :F(S6A) .03580000
43 Y = ALT(Y) :(S6B) .03590000
44 S6A SUCC(Y) = SYMB(CH,Y) .03600000
45 Y = SUCC(Y) .03610000
46 S6B ALT(Y) = CURRENT .03620000
47 LINK(CURRENT) = Y .03630000
48 CURRENT = Y :(F2) .03640000
* .03650000
* NEW ALTERNATIVE MUST BE LINKED TO HEAD, AT TOP OF LIST .03660000
* .03670000
49 S7 Y = HEAD .03680000
50 HEAD = SYMB(CH) .03690000
51 LINK(Y) = HEAD .03700000
52 ALT(HEAD) = Y .03710000
53 CURRENT = HEAD :(F2) .03720000
54 CONTROL IDENT(CARD,"*") :F(C1) .03730000
55 OUTPUT = .03740000
56 OUTPUT = ' (STRUCTURE IS CLEARED)' .03750000
57 OUTPUT = :(CLEAR) .03760000
58 C1 IDENT(CARD,'$') :F(C2) .03770000
59 OUTPUT = .03780000
60 OUTPUT = ' (PRINTOUT OF ENTIRE STRUCTURE FOLLOWS...)' .03790000
61 OUTPUT = .03800000
62 IDENT(HEAD) :S(C4) .03810000
63 HOLD = .03820000
64 START = HEAD :(LISTEM) .03830000
65 C2 IDENT(CARD) :S(BADCARD) .03840000
66 CARD NOTANY(ALPH) :S(BADCARD) .03850000
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 3
* .03870000
* HERE TO PRINT WORDS STARTING WITH SPECIFIED HEAD .03880000
* .03890000
67 OUTPUT = .03900000
68 OUTPUT = ' (PRINTOUT OF ALL WORDS BEGINNING WITH "' .03910000
+ CARD '"...)' .03920000
69 OUTPUT = .03930000
70 HOLD = CARD .03940000
71 CURRENT = HEAD .03950000
72 CARD LEN(1) . CH = .03960000
73 C3 IDENT(CHAR(CURRENT),CH) :S(NEXT) .03970000
74 CURRENT = ALT(CURRENT) .03980000
75 IDENT(CURRENT) :F(C3) .03990000
76 C4 OUTPUT = ' (NO WORDS)' :(READA) .04000000
77 NEXT CARD LEN(1) . CH = :F(SETUP) .04010000
78 CURRENT = SUCC(CURRENT) .04020000
79 IDENT(CURRENT) :S(C4)F(C3) .04030000
80 SETUP OUTPUT = DIFFER(ASSOC(CURRENT)) SPC HOLD ' ' ASSOC(CURRENT) .04040000
81 START = DIFFER(SUCC(CURRENT)) SUCC(CURRENT) :F(C4) .04050000
82 LISTEM N = 0 .04060000
83 CURRENT = START .04070000
84 L1 HOLD = HOLD CHAR(CURRENT) .04080000
85 L2 OUTPUT = DIFFER(ASSOC(CURRENT)) SPC HOLD ' ' ASSOC(CURRENT) .04090000
86 CURRENT = DIFFER(SUCC(CURRENT)) SUCC(CURRENT) :S(L1) .04100000
87 BACKUP CURRENT = DIFFER(ALT(CURRENT)) ALT(CURRENT) :F(B1) .04110000
88 N = N + 1 .04120000
89 $('STACK' N) = LINK(CURRENT) .04130000
90 HOLD LEN(1) RPOS(0) = CHAR(CURRENT) :(L2) .04140000
91 B1 Y = LINK(CURRENT) .04150000
92 IDENT(Y) :S(READA) .04160000
93 IDENT(Y,START) IDENT(ALT(Y),CURRENT) :S(READA) .04170000
94 IDENT(Y,START) IDENT(ALT(Y)) :S(READA) .04180000
95 CURRENT = Y .04190000
96 HOLD DIFFER($('STACK' N),Y) LEN(1) RPOS(0) = :S(BACKUP) .04200000
97 N = N - 1 :(B1) .04210000
98 END1 OUTPUT = .04220000
99 OUTPUT = '(ALL DATA PROCESSED)' .04230000
100 END .04240000
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 4
COMPILATION TIME 0.004 SECONDS
MEMORY USAGE (DECIMAL BYTES)
CODE: 3316
STRINGS: 420
VARIABLES: 2048
CONSTANTS: 224
TOTAL: 6008
AVAILABLE: 96097
SUCCESSFUL COMPILATION
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 5
LOC CODE SYMBOLIC
* STATEMENT NUMBER 1
0AC000 3E02 AUR SCNT,SINC
0AC002 18C8 LR FRETURN,DB1
0AC004 9845 8FF0 LM A1,A1+1,='SYMB(CHAR,LINK,ALT,ASSOC,SUCC)'
0AC008 9045 F7D0 STM A1,A1+1,TEM#1
0AC00C 4100 0001 LA R0,1
0AC010 58B0 898C L DB4,FNC.DATA
0AC014 45D0 B008 BAL RETURN,FCODE(,DB4)
* STATEMENT NUMBER 2
0AC018 3E02 AUR SCNT,SINC
0AC01A 4140 891C LA A1,INPUT
0AC01E 1B55 SR A1+1,A1+1
0AC020 5640 E03C O A1,$$MCOD
0AC024 9045 F7D0 STM A1,A1+1,TEM#1
0AC028 9242 F7C8 MVI TEM#2,NCODE
0AC02C 9845 8FE8 LM A1,A1+1,=72
0AC030 9045 F7C0 STM A1,A1+1,TEM#3
0AC034 4100 0003 LA R0,3
0AC038 58B0 892C L DB4,FNC.INPUT
0AC03C 45D0 B008 BAL RETURN,FCODE(,DB4)
* STATEMENT NUMBER 3
0AC040 3E02 AUR SCNT,SINC
0AC042 9845 8FE0 LM A1,A1+1,=' ::'
0AC046 9045 89A0 STM A1,A1+1,VAL.SPC
* STATEMENT NUMBER 4
0AC04A 3E02 AUR SCNT,SINC
0AC04C 9845 8FD8 LM A1,A1+1,='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
0AC050 9045 89C0 STM A1,A1+1,VAL.ALPH
* STATEMENT NUMBER 5
CLEAR EQU *
0AC054 3E02 AUR SCNT,SINC
0AC056 18C8 LR FRETURN,DB1
0AC058 9242 8A00 MVI VAL.HEAD,NCODE
* STATEMENT NUMBER 6
0AC05C 3E02 AUR SCNT,SINC
0AC05E 4140 8A3C LA A1,FIRST
0AC062 1B55 SR A1+1,A1+1
0AC064 5640 E03C O A1,$$MCOD
0AC068 9045 8A20 STM A1,A1+1,VAL.SWITCH1
* STATEMENT NUMBER 7
0AC06C 3E02 AUR SCNT,SINC
0AC06E 9845 8FD0 LM A1,A1+1,=0
0AC072 9045 8A60 STM A1,A1+1,VAL.X
* STATEMENT NUMBER 8
READA EQU *
0AC076 3E02 AUR SCNT,SINC
0AC078 18C8 LR FRETURN,DB1
0AC07A 4140 893C LA A1,OUTPUT
0AC07E 1B55 SR A1+1,A1+1
0AC080 5860 E02C L A2,$$NULL
0AC084 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 9
READ EQU *
0AC088 3E02 AUR SCNT,SINC
0AC08A 58C0 8B10 L FRETURN,LBL.END1
0AC08E 4140 891C LA A1,INPUT
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 6
0AC092 45D0 E25A BAL RETURN,$$READ
0AC096 9045 F7D0 STM A1,A1+1,TEM#1
0AC09A 4100 0001 LA R0,1
0AC09E 58B0 8AEC L DB4,FNC.TRIM
0AC0A2 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC0A6 9045 8AC0 STM A1,A1+1,VAL.CARD
* STATEMENT NUMBER 10
0AC0AA 3E02 AUR SCNT,SINC
0AC0AC 18C8 LR FRETURN,DB1
0AC0AE 4140 893C LA A1,OUTPUT
0AC0B2 1B55 SR A1+1,A1+1
0AC0B4 9867 8AC0 LM A2,A2+1,VAL.CARD
0AC0B8 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 11
0AC0BC 3E02 AUR SCNT,SINC
0AC0BE 58C0 8B50 L FRETURN,LBL.BADCARD
0AC0C2 9845 8AC0 LM A1,A1+1,VAL.CARD
0AC0C6 5940 E02C C A1,$$NULL
0AC0CA 05D0 BALR RETURN,0
0AC0CC 07BC BCR GE,FRETURN
* STATEMENT NUMBER 12
0AC0CE 3E02 AUR SCNT,SINC
0AC0D0 4700 000C NOP 12
0AC0D4 0520 BALR R2,0
0AC0D6 41C2 0018 LA FRETURN,L.0001
0AC0DA 4140 8ABC LA A1,CARD
0AC0DE 1B55 SR A1+1,A1+1
0AC0E0 9867 8FC0 LM A2,A2+1,CONS#1
0AC0E4 45D0 E2CC BAL RETURN,$$PTNL
0AC0E8 5810 8B90 L R1,LBL.CONTROL
0AC0EC 05D1 BALR RETURN,R1
* CODE TO COMPUTE CONS#1
0C44E6 9845 8FD0 LM A1,A1+1,=0
0C44EA 45D0 EB46 BAL RETURN,$$POSP
0C44EE 9867 8FC8 LM A2,A2+1,='$'
0C44F2 45D0 E060 BAL RETURN,$$CNC2
0C44F6 9045 8FC0 STM A1,A1+1,CONS#1
* STATEMENT NUMBER 13
0AC0EE 3E02 L.0001 AUR SCNT,SINC
0AC0F0 58C0 8BD0 L FRETURN,LBL.INCX
0AC0F4 9845 89C0 LM A1,A1+1,VAL.ALPH
0AC0F8 45D0 EC02 BAL RETURN,$$NTNP
0AC0FC 1864 LR A2,A1
0AC0FE 1875 LR A2+1,A1+1
0AC100 9845 8AC0 LM A1,A1+1,VAL.CARD
0AC104 45D0 E2DA BAL RETURN,$$PTV2
* STATEMENT NUMBER 14
BADCARD EQU *
0AC108 3E02 AUR SCNT,SINC
0AC10A 58C0 8AB0 L FRETURN,LBL.READ
0AC10E 4140 893C LA A1,OUTPUT
0AC112 1B55 SR A1+1,A1+1
0AC114 9867 8FB8 LM A2,A2+1,=' CARD ABOVE IS ILLEGAL'
0AC118 45D0 E29E BAL RETURN,$$ASSN
0AC11C 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 15
INCX EQU *
0AC11E 3E02 AUR SCNT,SINC
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 7
0AC120 0520 BALR R2,0
0AC122 45C2 0014 BAL FRETURN,L.0002
0AC126 41C0 EA4A LA FRETURN,$$FING
0AC12A 9845 8A20 LM A1,A1+1,VAL.SWITCH1
0AC12E 45D0 E1BC BAL RETURN,$$DL1N
0AC132 45D0 E1C6 BAL RETURN,$$GOTO
0AC136 9845 8A60 L.0002 LM A1,A1+1,VAL.X
0AC13A 45D0 E652 BAL RETURN,$$INCR
0AC13E 9045 8A60 STM A1,A1+1,VAL.X
0AC142 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 16
FIRST EQU *
0AC144 3E02 AUR SCNT,SINC
0AC146 18C8 LR FRETURN,DB1
0AC148 4140 8BDC LA A1,SEARCH
0AC14C 1B55 SR A1+1,A1+1
0AC14E 5640 E03C O A1,$$MCOD
0AC152 9045 8A20 STM A1,A1+1,VAL.SWITCH1
* STATEMENT NUMBER 17
F1 EQU *
0AC156 3E02 AUR SCNT,SINC
0AC158 58C0 8C70 L FRETURN,LBL.ERR
0AC15C 4140 8ABC LA A1,CARD
0AC160 1B55 SR A1+1,A1+1
0AC162 9867 8FA8 LM A2,A2+1,CONS#2
0AC166 45D0 E2CC BAL RETURN,$$PTNL
* CODE TO COMPUTE CONS#2
0C44CE 9845 8FB0 LM A1,A1+1,=1
0C44D2 45D0 EB38 BAL RETURN,$$LENP
0C44D6 4160 8C3C LA A2,CH
0C44DA 1B77 SR A2+1,A2+1
0C44DC 45D0 EAAC BAL RETURN,$$DOT2
0C44E0 9045 8FA8 STM A1,A1+1,CONS#2
* STATEMENT NUMBER 18
0AC16A 3E02 AUR SCNT,SINC
0AC16C 18C8 LR FRETURN,DB1
0AC16E 9845 8C40 LM A1,A1+1,VAL.CH
0AC172 9045 F7D0 STM A1,A1+1,TEM#1
0AC176 4100 0001 LA R0,1
0AC17A 58B0 8C8C L DB4,FNC.SYMB
0AC17E 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC182 9045 8A00 STM A1,A1+1,VAL.HEAD
* STATEMENT NUMBER 19
0AC186 3E02 AUR SCNT,SINC
0AC188 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC18C 9045 8CA0 STM A1,A1+1,VAL.CURRENT
* STATEMENT NUMBER 20
F2 EQU *
0AC190 3E02 AUR SCNT,SINC
0AC192 58C0 8CF0 L FRETURN,LBL.INSERT
0AC196 4140 8ABC LA A1,CARD
0AC19A 1B55 SR A1+1,A1+1
0AC19C 9867 8FA0 LM A2,A2+1,CONS#3
0AC1A0 45D0 E2CC BAL RETURN,$$PTNL
* CODE TO COMPUTE CONS#3
0C44B6 9845 8FB0 LM A1,A1+1,=1
0C44BA 45D0 EB38 BAL RETURN,$$LENP
0C44BE 4160 8C3C LA A2,CH
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 8
0C44C2 1B77 SR A2+1,A2+1
0C44C4 45D0 EAAC BAL RETURN,$$DOT2
0C44C8 9045 8FA0 STM A1,A1+1,CONS#3
* STATEMENT NUMBER 21
F3 EQU *
0AC1A4 3E02 AUR SCNT,SINC
0AC1A6 4700 0015 NOP 21
0AC1AA 18C8 LR FRETURN,DB1
0AC1AC 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC1B0 9045 F7D0 STM A1,A1+1,TEM#1
0AC1B4 4100 0001 LA R0,1
0AC1B8 58B0 8D2C L DB4,FNC.SUCC
0AC1BC 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC1C0 47F0 EA50 B $$FRVN
0AC1C4 9045 F7D0 STM A1,A1+1,TEM#1
0AC1C8 9845 8C40 LM A1,A1+1,VAL.CH
0AC1CC 9045 F7C8 STM A1,A1+1,TEM#2
0AC1D0 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC1D4 9045 F7C0 STM A1,A1+1,TEM#3
0AC1D8 4100 0002 LA R0,2
0AC1DC 58B0 8C8C L DB4,FNC.SYMB
0AC1E0 4110 0008 LA R1,8
0AC1E4 1BF1 SR PDR,R1
0AC1E6 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC1EA 9867 F7D0 LM A2,A2+1,TEM#1
0AC1EE 45D0 E2B8 BAL RETURN,$$RASN
* STATEMENT NUMBER 22
0AC1F2 3E02 AUR SCNT,SINC
0AC1F4 58C0 8CD0 L FRETURN,LBL.F2
0AC1F8 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC1FC 9045 F7D0 STM A1,A1+1,TEM#1
0AC200 4100 0001 LA R0,1
0AC204 58B0 8D2C L DB4,FNC.SUCC
0AC208 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC20C 9045 8CA0 STM A1,A1+1,VAL.CURRENT
0AC210 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 23
INSERT EQU *
0AC212 3E02 AUR SCNT,SINC
0AC214 58C0 8AB0 L FRETURN,LBL.READ
0AC218 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC21C 9045 F7D0 STM A1,A1+1,TEM#1
0AC220 4100 0001 LA R0,1
0AC224 58B0 8D4C L DB4,FNC.ASSOC
0AC228 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC22C 47F0 EA50 B $$FRVN
0AC230 9045 F7D0 STM A1,A1+1,TEM#1
0AC234 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC238 9045 F7C8 STM A1,A1+1,TEM#2
0AC23C 4100 0001 LA R0,1
0AC240 58B0 8D4C L DB4,FNC.ASSOC
0AC244 4110 0008 LA R1,8
0AC248 1BF1 SR PDR,R1
0AC24A 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC24E 9867 8A60 LM A2,A2+1,VAL.X
0AC252 45D0 E060 BAL RETURN,$$CNC2
0AC256 9867 8F98 LM A2,A2+1,=','
0AC25A 45D0 E060 BAL RETURN,$$CNC2
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 9
0AC25E 9867 F7D0 LM A2,A2+1,TEM#1
0AC262 45D0 E2B8 BAL RETURN,$$RASN
0AC266 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 24
SEARCH EQU *
0AC268 3E02 AUR SCNT,SINC
0AC26A 58C0 8C70 L FRETURN,LBL.ERR
0AC26E 4140 8ABC LA A1,CARD
0AC272 1B55 SR A1+1,A1+1
0AC274 9867 8F90 LM A2,A2+1,CONS#4
0AC278 45D0 E2CC BAL RETURN,$$PTNL
* CODE TO COMPUTE CONS#4
0C449E 9845 8FB0 LM A1,A1+1,=1
0C44A2 45D0 EB38 BAL RETURN,$$LENP
0C44A6 4160 8C3C LA A2,CH
0C44AA 1B77 SR A2+1,A2+1
0C44AC 45D0 EAAC BAL RETURN,$$DOT2
0C44B0 9045 8F90 STM A1,A1+1,CONS#4
* STATEMENT NUMBER 25
0AC27C 3E02 AUR SCNT,SINC
0AC27E 4700 0019 NOP 25
0AC282 0520 BALR R2,0
0AC284 41C2 0028 LA FRETURN,L.0003
0AC288 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC28C 9045 F7D0 STM A1,A1+1,TEM#1
0AC290 4100 0001 LA R0,1
0AC294 58B0 8D8C L DB4,FNC.CHAR
0AC298 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC29C 9867 8C40 LM A2,A2+1,VAL.CH
0AC2A0 45D0 E94E BAL RETURN,$$LCMP
0AC2A4 07DC BCR LE,FRETURN
0AC2A6 5810 8DB0 L R1,LBL.S7
0AC2AA 05D1 BALR RETURN,R1
* STATEMENT NUMBER 26
0AC2AC 3E02 L.0003 AUR SCNT,SINC
0AC2AE 0520 BALR R2,0
0AC2B0 41C2 0028 LA FRETURN,L.0004
0AC2B4 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC2B8 9045 F7D0 STM A1,A1+1,TEM#1
0AC2BC 4100 0001 LA R0,1
0AC2C0 58B0 8D8C L DB4,FNC.CHAR
0AC2C4 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC2C8 9867 8C40 LM A2,A2+1,VAL.CH
0AC2CC 45D0 E998 BAL RETURN,$$IDNT
0AC2D0 077C BCR NE,FRETURN
0AC2D2 5810 8DF0 L R1,LBL.S5
0AC2D6 05D1 BALR RETURN,R1
* STATEMENT NUMBER 27
0AC2D8 3E02 L.0004 AUR SCNT,SINC
0AC2DA 0520 BALR R2,0
0AC2DC 41C2 0026 LA FRETURN,L.0005
0AC2E0 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC2E4 9045 F7D0 STM A1,A1+1,TEM#1
0AC2E8 4100 0001 LA R0,1
0AC2EC 58B0 8E0C L DB4,FNC.ALT
0AC2F0 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC2F4 5940 E02C C A1,$$NULL
0AC2F8 05D0 BALR RETURN,0
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 10
0AC2FA 074C BCR LT,FRETURN
0AC2FC 5810 8E30 L R1,LBL.S3
0AC300 05D1 BALR RETURN,R1
* STATEMENT NUMBER 28
0AC302 3E02 L.0005 AUR SCNT,SINC
0AC304 18C8 LR FRETURN,DB1
0AC306 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC30A 9045 F7D0 STM A1,A1+1,TEM#1
0AC30E 4100 0001 LA R0,1
0AC312 58B0 8E0C L DB4,FNC.ALT
0AC316 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC31A 9045 8CA0 STM A1,A1+1,VAL.CURRENT
* STATEMENT NUMBER 29
S1 EQU *
0AC31E 3E02 AUR SCNT,SINC
0AC320 0520 BALR R2,0
0AC322 41C2 0028 LA FRETURN,L.0006
0AC326 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC32A 9045 F7D0 STM A1,A1+1,TEM#1
0AC32E 4100 0001 LA R0,1
0AC332 58B0 8D8C L DB4,FNC.CHAR
0AC336 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC33A 9867 8C40 LM A2,A2+1,VAL.CH
0AC33E 45D0 E94E BAL RETURN,$$LCMP
0AC342 07DC BCR LE,FRETURN
0AC344 5810 8E70 L R1,LBL.S6
0AC348 05D1 BALR RETURN,R1
* STATEMENT NUMBER 30
0AC34A 3E02 L.0006 AUR SCNT,SINC
0AC34C 4700 001E NOP 30
0AC350 0520 BALR R2,0
0AC352 41C2 0028 LA FRETURN,L.0007
0AC356 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC35A 9045 F7D0 STM A1,A1+1,TEM#1
0AC35E 4100 0001 LA R0,1
0AC362 58B0 8D8C L DB4,FNC.CHAR
0AC366 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC36A 9867 8C40 LM A2,A2+1,VAL.CH
0AC36E 45D0 E998 BAL RETURN,$$IDNT
0AC372 077C BCR NE,FRETURN
0AC374 5810 8E90 L R1,LBL.S4
0AC378 05D1 BALR RETURN,R1
* STATEMENT NUMBER 31
0AC37A 3E02 L.0007 AUR SCNT,SINC
0AC37C 0520 BALR R2,0
0AC37E 41C2 0026 LA FRETURN,L.0008
0AC382 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC386 9045 F7D0 STM A1,A1+1,TEM#1
0AC38A 4100 0001 LA R0,1
0AC38E 58B0 8E0C L DB4,FNC.ALT
0AC392 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC396 5940 E02C C A1,$$NULL
0AC39A 05D0 BALR RETURN,0
0AC39C 074C BCR LT,FRETURN
0AC39E 5810 8EB0 L R1,LBL.S2
0AC3A2 05D1 BALR RETURN,R1
* STATEMENT NUMBER 32
0AC3A4 3E02 L.0008 AUR SCNT,SINC
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 11
0AC3A6 58C0 8E50 L FRETURN,LBL.S1
0AC3AA 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC3AE 9045 F7D0 STM A1,A1+1,TEM#1
0AC3B2 4100 0001 LA R0,1
0AC3B6 58B0 8E0C L DB4,FNC.ALT
0AC3BA 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC3BE 9045 8CA0 STM A1,A1+1,VAL.CURRENT
0AC3C2 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 33
S2 EQU *
0AC3C4 3E02 AUR SCNT,SINC
0AC3C6 18C8 LR FRETURN,DB1
0AC3C8 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC3CC 9045 F7D0 STM A1,A1+1,TEM#1
0AC3D0 4100 0001 LA R0,1
0AC3D4 58B0 8E0C L DB4,FNC.ALT
0AC3D8 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC3DC 47F0 EA50 B $$FRVN
0AC3E0 9045 F7D0 STM A1,A1+1,TEM#1
0AC3E4 9845 8C40 LM A1,A1+1,VAL.CH
0AC3E8 9045 F7C8 STM A1,A1+1,TEM#2
0AC3EC 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC3F0 9045 F7C0 STM A1,A1+1,TEM#3
0AC3F4 4100 0002 LA R0,2
0AC3F8 58B0 8C8C L DB4,FNC.SYMB
0AC3FC 4110 0008 LA R1,8
0AC400 1BF1 SR PDR,R1
0AC402 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC406 9867 F7D0 LM A2,A2+1,TEM#1
0AC40A 45D0 E2B8 BAL RETURN,$$RASN
* STATEMENT NUMBER 34
0AC40E 3E02 AUR SCNT,SINC
0AC410 58C0 8CD0 L FRETURN,LBL.F2
0AC414 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC418 9045 F7D0 STM A1,A1+1,TEM#1
0AC41C 4100 0001 LA R0,1
0AC420 58B0 8E0C L DB4,FNC.ALT
0AC424 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC428 9045 8CA0 STM A1,A1+1,VAL.CURRENT
0AC42C 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 35
S3 EQU *
0AC42E 3E02 AUR SCNT,SINC
0AC430 4700 0023 NOP 35
0AC434 18C8 LR FRETURN,DB1
0AC436 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC43A 9045 F7D0 STM A1,A1+1,TEM#1
0AC43E 4100 0001 LA R0,1
0AC442 58B0 8E0C L DB4,FNC.ALT
0AC446 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC44A 47F0 EA50 B $$FRVN
0AC44E 9045 F7D0 STM A1,A1+1,TEM#1
0AC452 9845 8C40 LM A1,A1+1,VAL.CH
0AC456 9045 F7C8 STM A1,A1+1,TEM#2
0AC45A 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC45E 9045 F7C0 STM A1,A1+1,TEM#3
0AC462 4100 0002 LA R0,2
0AC466 58B0 8C8C L DB4,FNC.SYMB
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 12
0AC46A 4110 0008 LA R1,8
0AC46E 1BF1 SR PDR,R1
0AC470 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC474 9867 F7D0 LM A2,A2+1,TEM#1
0AC478 45D0 E2B8 BAL RETURN,$$RASN
* STATEMENT NUMBER 36
0AC47C 3E02 AUR SCNT,SINC
0AC47E 58C0 8CD0 L FRETURN,LBL.F2
0AC482 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC486 9045 F7D0 STM A1,A1+1,TEM#1
0AC48A 4100 0001 LA R0,1
0AC48E 58B0 8E0C L DB4,FNC.ALT
0AC492 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC496 9045 8CA0 STM A1,A1+1,VAL.CURRENT
0AC49A 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 37
S4 EQU *
0AC49C 3E02 AUR SCNT,SINC
0AC49E 58C0 8CF0 L FRETURN,LBL.INSERT
0AC4A2 4140 8ABC LA A1,CARD
0AC4A6 1B55 SR A1+1,A1+1
0AC4A8 9867 8F88 LM A2,A2+1,CONS#5
0AC4AC 45D0 E2CC BAL RETURN,$$PTNL
* CODE TO COMPUTE CONS#5
0C4486 9845 8FB0 LM A1,A1+1,=1
0C448A 45D0 EB38 BAL RETURN,$$LENP
0C448E 4160 8C3C LA A2,CH
0C4492 1B77 SR A2+1,A2+1
0C4494 45D0 EAAC BAL RETURN,$$DOT2
0C4498 9045 8F88 STM A1,A1+1,CONS#5
* STATEMENT NUMBER 38
0AC4B0 3E02 AUR SCNT,SINC
0AC4B2 0520 BALR R2,0
0AC4B4 41C2 0026 LA FRETURN,L.0009
0AC4B8 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC4BC 9045 F7D0 STM A1,A1+1,TEM#1
0AC4C0 4100 0001 LA R0,1
0AC4C4 58B0 8D2C L DB4,FNC.SUCC
0AC4C8 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC4CC 5940 E02C C A1,$$NULL
0AC4D0 05D0 BALR RETURN,0
0AC4D2 074C BCR LT,FRETURN
0AC4D4 5810 8D10 L R1,LBL.F3
0AC4D8 05D1 BALR RETURN,R1
* STATEMENT NUMBER 39
0AC4DA 3E02 L.0009 AUR SCNT,SINC
0AC4DC 58C0 8E50 L FRETURN,LBL.S1
0AC4E0 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC4E4 9045 F7D0 STM A1,A1+1,TEM#1
0AC4E8 4100 0001 LA R0,1
0AC4EC 58B0 8D2C L DB4,FNC.SUCC
0AC4F0 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC4F4 9045 8CA0 STM A1,A1+1,VAL.CURRENT
0AC4F8 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 40
S5 EQU *
0AC4FA 3E02 AUR SCNT,SINC
0AC4FC 4700 0028 NOP 40
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 13
0AC500 58C0 8E90 L FRETURN,LBL.S4
0AC504 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC508 9045 8CA0 STM A1,A1+1,VAL.CURRENT
0AC50C 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 41
S6 EQU *
0AC50E 3E02 AUR SCNT,SINC
0AC510 18C8 LR FRETURN,DB1
0AC512 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC516 9045 F7D0 STM A1,A1+1,TEM#1
0AC51A 4100 0001 LA R0,1
0AC51E 58B0 8EEC L DB4,FNC.LINK
0AC522 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC526 9045 8EC0 STM A1,A1+1,VAL.Y
* STATEMENT NUMBER 42
0AC52A 3E02 AUR SCNT,SINC
0AC52C 58C0 8F10 L FRETURN,LBL.S6A
0AC530 9845 8EC0 LM A1,A1+1,VAL.Y
0AC534 9045 F7D0 STM A1,A1+1,TEM#1
0AC538 4100 0001 LA R0,1
0AC53C 58B0 8E0C L DB4,FNC.ALT
0AC540 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC544 47F0 EA50 B $$FRVN
0AC548 9045 F7D0 STM A1,A1+1,TEM#1
0AC54C 9845 8EC0 LM A1,A1+1,VAL.Y
0AC550 9045 F7C8 STM A1,A1+1,TEM#2
0AC554 4100 0001 LA R0,1
0AC558 58B0 8E0C L DB4,FNC.ALT
0AC55C 4110 0008 LA R1,8
0AC560 1BF1 SR PDR,R1
0AC562 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC566 9867 8CA0 LM A2,A2+1,VAL.CURRENT
0AC56A 45D0 E998 BAL RETURN,$$IDNT
0AC56E 077C BCR NE,FRETURN
0AC570 9845 8C40 LM A1,A1+1,VAL.CH
0AC574 9045 F7C8 STM A1,A1+1,TEM#2
0AC578 9845 8EC0 LM A1,A1+1,VAL.Y
0AC57C 9045 F7C0 STM A1,A1+1,TEM#3
0AC580 4100 0002 LA R0,2
0AC584 58B0 8C8C L DB4,FNC.SYMB
0AC588 4110 0008 LA R1,8
0AC58C 1BF1 SR PDR,R1
0AC58E 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC592 9867 F7D0 LM A2,A2+1,TEM#1
0AC596 45D0 E2B8 BAL RETURN,$$RASN
* STATEMENT NUMBER 43
0AC59A 3E02 AUR SCNT,SINC
0AC59C 58C0 8F30 L FRETURN,LBL.S6B
0AC5A0 9845 8EC0 LM A1,A1+1,VAL.Y
0AC5A4 9045 F7D0 STM A1,A1+1,TEM#1
0AC5A8 4100 0001 LA R0,1
0AC5AC 58B0 8E0C L DB4,FNC.ALT
0AC5B0 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC5B4 9045 8EC0 STM A1,A1+1,VAL.Y
0AC5B8 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 44
S6A EQU *
0AC5BA 3E02 AUR SCNT,SINC
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 14
0AC5BC 18C8 LR FRETURN,DB1
0AC5BE 9845 8EC0 LM A1,A1+1,VAL.Y
0AC5C2 9045 F7D0 STM A1,A1+1,TEM#1
0AC5C6 4100 0001 LA R0,1
0AC5CA 58B0 8D2C L DB4,FNC.SUCC
0AC5CE 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC5D2 47F0 EA50 B $$FRVN
0AC5D6 9045 F7D0 STM A1,A1+1,TEM#1
0AC5DA 9845 8C40 LM A1,A1+1,VAL.CH
0AC5DE 9045 F7C8 STM A1,A1+1,TEM#2
0AC5E2 9845 8EC0 LM A1,A1+1,VAL.Y
0AC5E6 9045 F7C0 STM A1,A1+1,TEM#3
0AC5EA 4100 0002 LA R0,2
0AC5EE 58B0 8C8C L DB4,FNC.SYMB
0AC5F2 4110 0008 LA R1,8
0AC5F6 1BF1 SR PDR,R1
0AC5F8 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC5FC 9867 F7D0 LM A2,A2+1,TEM#1
0AC600 45D0 E2B8 BAL RETURN,$$RASN
* STATEMENT NUMBER 45
0AC604 3E02 AUR SCNT,SINC
0AC606 4700 002D NOP 45
0AC60A 9845 8EC0 LM A1,A1+1,VAL.Y
0AC60E 9045 F7D0 STM A1,A1+1,TEM#1
0AC612 4100 0001 LA R0,1
0AC616 58B0 8D2C L DB4,FNC.SUCC
0AC61A 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC61E 9045 8EC0 STM A1,A1+1,VAL.Y
* STATEMENT NUMBER 46
S6B EQU *
0AC622 3E02 AUR SCNT,SINC
0AC624 18C8 LR FRETURN,DB1
0AC626 9845 8EC0 LM A1,A1+1,VAL.Y
0AC62A 9045 F7D0 STM A1,A1+1,TEM#1
0AC62E 4100 0001 LA R0,1
0AC632 58B0 8E0C L DB4,FNC.ALT
0AC636 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC63A 47F0 EA50 B $$FRVN
0AC63E 9867 8CA0 LM A2,A2+1,VAL.CURRENT
0AC642 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 47
0AC646 3E02 AUR SCNT,SINC
0AC648 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC64C 9045 F7D0 STM A1,A1+1,TEM#1
0AC650 4100 0001 LA R0,1
0AC654 58B0 8EEC L DB4,FNC.LINK
0AC658 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC65C 47F0 EA50 B $$FRVN
0AC660 9867 8EC0 LM A2,A2+1,VAL.Y
0AC664 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 48
0AC668 3E02 AUR SCNT,SINC
0AC66A 58C0 8CD0 L FRETURN,LBL.F2
0AC66E 9845 8EC0 LM A1,A1+1,VAL.Y
0AC672 9045 8CA0 STM A1,A1+1,VAL.CURRENT
0AC676 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 49
S7 EQU *
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 15
0AC678 3E02 AUR SCNT,SINC
0AC67A 18C8 LR FRETURN,DB1
0AC67C 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC680 9045 8EC0 STM A1,A1+1,VAL.Y
* STATEMENT NUMBER 50
0AC684 3E02 AUR SCNT,SINC
0AC686 9845 8C40 LM A1,A1+1,VAL.CH
0AC68A 9045 F7D0 STM A1,A1+1,TEM#1
0AC68E 4100 0001 LA R0,1
0AC692 58B0 8C8C L DB4,FNC.SYMB
0AC696 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC69A 9045 8A00 STM A1,A1+1,VAL.HEAD
* STATEMENT NUMBER 51
0AC69E 3E02 AUR SCNT,SINC
0AC6A0 9845 8EC0 LM A1,A1+1,VAL.Y
0AC6A4 9045 F7D0 STM A1,A1+1,TEM#1
0AC6A8 4100 0001 LA R0,1
0AC6AC 58B0 8EEC L DB4,FNC.LINK
0AC6B0 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC6B4 47F0 EA50 B $$FRVN
0AC6B8 9867 8A00 LM A2,A2+1,VAL.HEAD
0AC6BC 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 52
0AC6C0 3E02 AUR SCNT,SINC
0AC6C2 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC6C6 9045 F7D0 STM A1,A1+1,TEM#1
0AC6CA 4100 0001 LA R0,1
0AC6CE 58B0 8E0C L DB4,FNC.ALT
0AC6D2 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC6D6 47F0 EA50 B $$FRVN
0AC6DA 9867 8EC0 LM A2,A2+1,VAL.Y
0AC6DE 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 53
0AC6E2 3E02 AUR SCNT,SINC
0AC6E4 4700 0035 NOP 53
0AC6E8 58C0 8CD0 L FRETURN,LBL.F2
0AC6EC 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC6F0 9045 8CA0 STM A1,A1+1,VAL.CURRENT
0AC6F4 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 54
CONTROL EQU *
0AC6F6 3E02 AUR SCNT,SINC
0AC6F8 58C0 8F50 L FRETURN,LBL.C1
0AC6FC 9845 8AC0 LM A1,A1+1,VAL.CARD
0AC700 9867 8F80 LM A2,A2+1,='*'
0AC704 45D0 E998 BAL RETURN,$$IDNT
0AC708 077C BCR NE,FRETURN
* STATEMENT NUMBER 55
0AC70A 3E02 AUR SCNT,SINC
0AC70C 18C8 LR FRETURN,DB1
0AC70E 4140 893C LA A1,OUTPUT
0AC712 1B55 SR A1+1,A1+1
0AC714 5860 E02C L A2,$$NULL
0AC718 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 56
0AC71C 3E02 AUR SCNT,SINC
0AC71E 4140 893C LA A1,OUTPUT
0AC722 1B55 SR A1+1,A1+1
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 16
0AC724 9867 8F78 LM A2,A2+1,=' (STRUCTURE IS CLEARED)'
0AC728 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 57
0AC72C 3E02 AUR SCNT,SINC
0AC72E 58C0 89F0 L FRETURN,LBL.CLEAR
0AC732 4140 893C LA A1,OUTPUT
0AC736 1B55 SR A1+1,A1+1
0AC738 5860 E02C L A2,$$NULL
0AC73C 45D0 E29E BAL RETURN,$$ASSN
0AC740 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 58
C1 EQU *
0AC742 3E02 AUR SCNT,SINC
0AC744 58C0 9014 L FRETURN,LBL.C2
0AC748 9845 8AC0 LM A1,A1+1,VAL.CARD
0AC74C 9867 8FC8 LM A2,A2+1,='$'
0AC750 45D0 E998 BAL RETURN,$$IDNT
0AC754 077C BCR NE,FRETURN
* STATEMENT NUMBER 59
0AC756 3E02 AUR SCNT,SINC
0AC758 18C8 LR FRETURN,DB1
0AC75A 4140 893C LA A1,OUTPUT
0AC75E 1B55 SR A1+1,A1+1
0AC760 5860 E02C L A2,$$NULL
0AC764 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 60
0AC768 3E02 AUR SCNT,SINC
0AC76A 4140 893C LA A1,OUTPUT
0AC76E 1B55 SR A1+1,A1+1
0AC770 9867 9FF4 LM A2,A2+1,=' (PRINTOUT OF ENTIRE STRUCTURE FOLLOWS...)'
0AC774 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 61
0AC778 3E02 AUR SCNT,SINC
0AC77A 4140 893C LA A1,OUTPUT
0AC77E 1B55 SR A1+1,A1+1
0AC780 5860 E02C L A2,$$NULL
0AC784 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 62
0AC788 3E02 AUR SCNT,SINC
0AC78A 0520 BALR R2,0
0AC78C 41C2 0016 LA FRETURN,L.0010
0AC790 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC794 5940 E02C C A1,$$NULL
0AC798 05D0 BALR RETURN,0
0AC79A 074C BCR LT,FRETURN
0AC79C 5810 9034 L R1,LBL.C4
0AC7A0 05D1 BALR RETURN,R1
* STATEMENT NUMBER 63
0AC7A2 3E02 L.0010 AUR SCNT,SINC
0AC7A4 18C8 LR FRETURN,DB1
0AC7A6 9242 9044 MVI VAL.HOLD,NCODE
* STATEMENT NUMBER 64
0AC7AA 3E02 AUR SCNT,SINC
0AC7AC 58C0 9094 L FRETURN,LBL.LISTEM
0AC7B0 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC7B4 9045 9064 STM A1,A1+1,VAL.START
0AC7B8 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 65
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 17
C2 EQU *
0AC7BA 3E02 AUR SCNT,SINC
0AC7BC 4700 0041 NOP 65
0AC7C0 0520 BALR R2,0
0AC7C2 41C2 0016 LA FRETURN,L.0011
0AC7C6 9845 8AC0 LM A1,A1+1,VAL.CARD
0AC7CA 5940 E02C C A1,$$NULL
0AC7CE 05D0 BALR RETURN,0
0AC7D0 074C BCR LT,FRETURN
0AC7D2 5810 8B50 L R1,LBL.BADCARD
0AC7D6 05D1 BALR RETURN,R1
* STATEMENT NUMBER 66
0AC7D8 3E02 L.0011 AUR SCNT,SINC
0AC7DA 0520 BALR R2,0
0AC7DC 41C2 001E LA FRETURN,L.0012
0AC7E0 9845 89C0 LM A1,A1+1,VAL.ALPH
0AC7E4 45D0 EC02 BAL RETURN,$$NTNP
0AC7E8 1864 LR A2,A1
0AC7EA 1875 LR A2+1,A1+1
0AC7EC 9845 8AC0 LM A1,A1+1,VAL.CARD
0AC7F0 45D0 E2DA BAL RETURN,$$PTV2
0AC7F4 5810 8B50 L R1,LBL.BADCARD
0AC7F8 05D1 BALR RETURN,R1
* STATEMENT NUMBER 67
0AC7FA 3E02 L.0012 AUR SCNT,SINC
0AC7FC 18C8 LR FRETURN,DB1
0AC7FE 4140 893C LA A1,OUTPUT
0AC802 1B55 SR A1+1,A1+1
0AC804 5860 E02C L A2,$$NULL
0AC808 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 68
0AC80C 3E02 AUR SCNT,SINC
0AC80E 9845 9FEC LM A1,A1+1,=' (PRINTOUT OF ALL WORDS BEGINNING WITH "'
0AC812 9867 8AC0 LM A2,A2+1,VAL.CARD
0AC816 45D0 E060 BAL RETURN,$$CNC2
0AC81A 9867 9FE4 LM A2,A2+1,='"...)'
0AC81E 45D0 E060 BAL RETURN,$$CNC2
0AC822 4160 893C LA A2,OUTPUT
0AC826 1B77 SR A2+1,A2+1
0AC828 45D0 E2B8 BAL RETURN,$$RASN
* STATEMENT NUMBER 69
0AC82C 3E02 AUR SCNT,SINC
0AC82E 4140 893C LA A1,OUTPUT
0AC832 1B55 SR A1+1,A1+1
0AC834 5860 E02C L A2,$$NULL
0AC838 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 70
0AC83C 3E02 AUR SCNT,SINC
0AC83E 9845 8AC0 LM A1,A1+1,VAL.CARD
0AC842 9045 9044 STM A1,A1+1,VAL.HOLD
* STATEMENT NUMBER 71
0AC846 3E02 AUR SCNT,SINC
0AC848 9845 8A00 LM A1,A1+1,VAL.HEAD
0AC84C 9045 8CA0 STM A1,A1+1,VAL.CURRENT
* STATEMENT NUMBER 72
0AC850 3E02 AUR SCNT,SINC
0AC852 4140 8ABC LA A1,CARD
0AC856 1B55 SR A1+1,A1+1
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 18
0AC858 9867 9FDC LM A2,A2+1,CONS#6
0AC85C 45D0 E2CC BAL RETURN,$$PTNL
* CODE TO COMPUTE CONS#6
0C446E 9845 8FB0 LM A1,A1+1,=1
0C4472 45D0 EB38 BAL RETURN,$$LENP
0C4476 4160 8C3C LA A2,CH
0C447A 1B77 SR A2+1,A2+1
0C447C 45D0 EAAC BAL RETURN,$$DOT2
0C4480 9045 9FDC STM A1,A1+1,CONS#6
* STATEMENT NUMBER 73
C3 EQU *
0AC860 3E02 AUR SCNT,SINC
0AC862 0520 BALR R2,0
0AC864 41C2 0028 LA FRETURN,L.0013
0AC868 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC86C 9045 F7D0 STM A1,A1+1,TEM#1
0AC870 4100 0001 LA R0,1
0AC874 58B0 8D8C L DB4,FNC.CHAR
0AC878 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC87C 9867 8C40 LM A2,A2+1,VAL.CH
0AC880 45D0 E998 BAL RETURN,$$IDNT
0AC884 077C BCR NE,FRETURN
0AC886 5810 90D4 L R1,LBL.NEXT
0AC88A 05D1 BALR RETURN,R1
* STATEMENT NUMBER 74
0AC88C 3E02 L.0013 AUR SCNT,SINC
0AC88E 4700 004A NOP 74
0AC892 18C8 LR FRETURN,DB1
0AC894 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC898 9045 F7D0 STM A1,A1+1,TEM#1
0AC89C 4100 0001 LA R0,1
0AC8A0 58B0 8E0C L DB4,FNC.ALT
0AC8A4 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC8A8 9045 8CA0 STM A1,A1+1,VAL.CURRENT
* STATEMENT NUMBER 75
0AC8AC 3E02 AUR SCNT,SINC
0AC8AE 58C0 90B4 L FRETURN,LBL.C3
0AC8B2 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC8B6 5940 E02C C A1,$$NULL
0AC8BA 05D0 BALR RETURN,0
0AC8BC 074C BCR LT,FRETURN
* STATEMENT NUMBER 76
C4 EQU *
0AC8BE 3E02 AUR SCNT,SINC
0AC8C0 58C0 8A90 L FRETURN,LBL.READA
0AC8C4 4140 893C LA A1,OUTPUT
0AC8C8 1B55 SR A1+1,A1+1
0AC8CA 9867 9FD4 LM A2,A2+1,=' (NO WORDS)'
0AC8CE 45D0 E29E BAL RETURN,$$ASSN
0AC8D2 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 77
NEXT EQU *
0AC8D4 3E02 AUR SCNT,SINC
0AC8D6 58C0 90F4 L FRETURN,LBL.SETUP
0AC8DA 4140 8ABC LA A1,CARD
0AC8DE 1B55 SR A1+1,A1+1
0AC8E0 9867 9FCC LM A2,A2+1,CONS#7
0AC8E4 45D0 E2CC BAL RETURN,$$PTNL
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 19
* CODE TO COMPUTE CONS#7
0C4456 9845 8FB0 LM A1,A1+1,=1
0C445A 45D0 EB38 BAL RETURN,$$LENP
0C445E 4160 8C3C LA A2,CH
0C4462 1B77 SR A2+1,A2+1
0C4464 45D0 EAAC BAL RETURN,$$DOT2
0C4468 9045 9FCC STM A1,A1+1,CONS#7
* STATEMENT NUMBER 78
0AC8E8 3E02 AUR SCNT,SINC
0AC8EA 18C8 LR FRETURN,DB1
0AC8EC 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC8F0 9045 F7D0 STM A1,A1+1,TEM#1
0AC8F4 4100 0001 LA R0,1
0AC8F8 58B0 8D2C L DB4,FNC.SUCC
0AC8FC 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC900 9045 8CA0 STM A1,A1+1,VAL.CURRENT
* STATEMENT NUMBER 79
0AC904 3E02 AUR SCNT,SINC
0AC906 58C0 90B4 L FRETURN,LBL.C3
0AC90A 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC90E 5940 E02C C A1,$$NULL
0AC912 05D0 BALR RETURN,0
0AC914 074C BCR LT,FRETURN
0AC916 5810 9034 L R1,LBL.C4
0AC91A 05D1 BALR RETURN,R1
* STATEMENT NUMBER 80
SETUP EQU *
0AC91C 3E02 AUR SCNT,SINC
0AC91E 0520 BALR R2,0
0AC920 41C2 0068 LA FRETURN,L.0014
0AC924 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC928 9045 F7D0 STM A1,A1+1,TEM#1
0AC92C 4100 0001 LA R0,1
0AC930 58B0 8D4C L DB4,FNC.ASSOC
0AC934 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC938 5940 E02C C A1,$$NULL
0AC93C 05D0 BALR RETURN,0
0AC93E 07BC BCR GE,FRETURN
0AC940 9845 89A0 LM A1,A1+1,VAL.SPC
0AC944 9867 9044 LM A2,A2+1,VAL.HOLD
0AC948 45D0 E060 BAL RETURN,$$CNC2
0AC94C 9867 9FC4 LM A2,A2+1,=' '
0AC950 45D0 E060 BAL RETURN,$$CNC2
0AC954 9045 F7D0 STM A1,A1+1,TEM#1
0AC958 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC95C 9045 F7C8 STM A1,A1+1,TEM#2
0AC960 4100 0001 LA R0,1
0AC964 58B0 8D4C L DB4,FNC.ASSOC
0AC968 4110 0008 LA R1,8
0AC96C 1BF1 SR PDR,R1
0AC96E 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC972 1864 LR A2,A1
0AC974 1875 LR A2+1,A1+1
0AC976 9845 F7D0 LM A1,A1+1,TEM#1
0AC97A 45D0 E060 BAL RETURN,$$CNC2
0AC97E 4160 893C LA A2,OUTPUT
0AC982 1B77 SR A2+1,A2+1
0AC984 45D0 E2B8 BAL RETURN,$$RASN
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 20
* STATEMENT NUMBER 81
0AC988 3E02 L.0014 AUR SCNT,SINC
0AC98A 4700 0051 NOP 81
0AC98E 58C0 9034 L FRETURN,LBL.C4
0AC992 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC996 9045 F7D0 STM A1,A1+1,TEM#1
0AC99A 4100 0001 LA R0,1
0AC99E 58B0 8D2C L DB4,FNC.SUCC
0AC9A2 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC9A6 5940 E02C C A1,$$NULL
0AC9AA 05D0 BALR RETURN,0
0AC9AC 07BC BCR GE,FRETURN
0AC9AE 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC9B2 9045 F7D0 STM A1,A1+1,TEM#1
0AC9B6 4100 0001 LA R0,1
0AC9BA 58B0 8D2C L DB4,FNC.SUCC
0AC9BE 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC9C2 9045 9064 STM A1,A1+1,VAL.START
* STATEMENT NUMBER 82
LISTEM EQU *
0AC9C6 3E02 AUR SCNT,SINC
0AC9C8 18C8 LR FRETURN,DB1
0AC9CA 9845 8FD0 LM A1,A1+1,=0
0AC9CE 9045 9104 STM A1,A1+1,VAL.N
* STATEMENT NUMBER 83
0AC9D2 3E02 AUR SCNT,SINC
0AC9D4 9845 9064 LM A1,A1+1,VAL.START
0AC9D8 9045 8CA0 STM A1,A1+1,VAL.CURRENT
* STATEMENT NUMBER 84
L1 EQU *
0AC9DC 3E02 AUR SCNT,SINC
0AC9DE 18C8 LR FRETURN,DB1
0AC9E0 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0AC9E4 9045 F7D0 STM A1,A1+1,TEM#1
0AC9E8 4100 0001 LA R0,1
0AC9EC 58B0 8D8C L DB4,FNC.CHAR
0AC9F0 45D0 B008 BAL RETURN,FCODE(,DB4)
0AC9F4 1864 LR A2,A1
0AC9F6 1875 LR A2+1,A1+1
0AC9F8 9845 9044 LM A1,A1+1,VAL.HOLD
0AC9FC 45D0 E060 BAL RETURN,$$CNC2
0ACA00 9045 9044 STM A1,A1+1,VAL.HOLD
* STATEMENT NUMBER 85
L2 EQU *
0ACA04 3E02 AUR SCNT,SINC
0ACA06 0520 BALR R2,0
0ACA08 41C2 0068 LA FRETURN,L.0015
0ACA0C 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0ACA10 9045 F7D0 STM A1,A1+1,TEM#1
0ACA14 4100 0001 LA R0,1
0ACA18 58B0 8D4C L DB4,FNC.ASSOC
0ACA1C 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACA20 5940 E02C C A1,$$NULL
0ACA24 05D0 BALR RETURN,0
0ACA26 07BC BCR GE,FRETURN
0ACA28 9845 89A0 LM A1,A1+1,VAL.SPC
0ACA2C 9867 9044 LM A2,A2+1,VAL.HOLD
0ACA30 45D0 E060 BAL RETURN,$$CNC2
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 21
0ACA34 9867 9FC4 LM A2,A2+1,=' '
0ACA38 45D0 E060 BAL RETURN,$$CNC2
0ACA3C 9045 F7D0 STM A1,A1+1,TEM#1
0ACA40 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0ACA44 9045 F7C8 STM A1,A1+1,TEM#2
0ACA48 4100 0001 LA R0,1
0ACA4C 58B0 8D4C L DB4,FNC.ASSOC
0ACA50 4110 0008 LA R1,8
0ACA54 1BF1 SR PDR,R1
0ACA56 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACA5A 1864 LR A2,A1
0ACA5C 1875 LR A2+1,A1+1
0ACA5E 9845 F7D0 LM A1,A1+1,TEM#1
0ACA62 45D0 E060 BAL RETURN,$$CNC2
0ACA66 4160 893C LA A2,OUTPUT
0ACA6A 1B77 SR A2+1,A2+1
0ACA6C 45D0 E2B8 BAL RETURN,$$RASN
* STATEMENT NUMBER 86
0ACA70 3E02 L.0015 AUR SCNT,SINC
0ACA72 4700 0056 NOP 86
0ACA76 0520 BALR R2,0
0ACA78 41C2 003E LA FRETURN,L.0016
0ACA7C 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0ACA80 9045 F7D0 STM A1,A1+1,TEM#1
0ACA84 4100 0001 LA R0,1
0ACA88 58B0 8D2C L DB4,FNC.SUCC
0ACA8C 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACA90 5940 E02C C A1,$$NULL
0ACA94 05D0 BALR RETURN,0
0ACA96 07BC BCR GE,FRETURN
0ACA98 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0ACA9C 9045 F7D0 STM A1,A1+1,TEM#1
0ACAA0 4100 0001 LA R0,1
0ACAA4 58B0 8D2C L DB4,FNC.SUCC
0ACAA8 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACAAC 9045 8CA0 STM A1,A1+1,VAL.CURRENT
0ACAB0 5810 9134 L R1,LBL.L1
0ACAB4 05D1 BALR RETURN,R1
* STATEMENT NUMBER 87
BACKUP EQU *
0ACAB6 3E02 L.0016 AUR SCNT,SINC
0ACAB8 58C0 9194 L FRETURN,LBL.B1
0ACABC 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0ACAC0 9045 F7D0 STM A1,A1+1,TEM#1
0ACAC4 4100 0001 LA R0,1
0ACAC8 58B0 8E0C L DB4,FNC.ALT
0ACACC 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACAD0 5940 E02C C A1,$$NULL
0ACAD4 05D0 BALR RETURN,0
0ACAD6 07BC BCR GE,FRETURN
0ACAD8 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0ACADC 9045 F7D0 STM A1,A1+1,TEM#1
0ACAE0 4100 0001 LA R0,1
0ACAE4 58B0 8E0C L DB4,FNC.ALT
0ACAE8 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACAEC 9045 8CA0 STM A1,A1+1,VAL.CURRENT
* STATEMENT NUMBER 88
0ACAF0 3E02 AUR SCNT,SINC
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 22
0ACAF2 18C8 LR FRETURN,DB1
0ACAF4 9845 9104 LM A1,A1+1,VAL.N
0ACAF8 45D0 E652 BAL RETURN,$$INCR
0ACAFC 9045 9104 STM A1,A1+1,VAL.N
* STATEMENT NUMBER 89
0ACB00 3E02 AUR SCNT,SINC
0ACB02 9845 9FBC LM A1,A1+1,='STACK'
0ACB06 9867 9104 LM A2,A2+1,VAL.N
0ACB0A 45D0 E060 BAL RETURN,$$CNC2
0ACB0E 45D0 E1BC BAL RETURN,$$DL1N
0ACB12 9045 F7D0 STM A1,A1+1,TEM#1
0ACB16 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0ACB1A 9045 F7C8 STM A1,A1+1,TEM#2
0ACB1E 4100 0001 LA R0,1
0ACB22 58B0 8EEC L DB4,FNC.LINK
0ACB26 4110 0008 LA R1,8
0ACB2A 1BF1 SR PDR,R1
0ACB2C 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACB30 9867 F7D0 LM A2,A2+1,TEM#1
0ACB34 45D0 E2B8 BAL RETURN,$$RASN
* STATEMENT NUMBER 90
0ACB38 3E02 AUR SCNT,SINC
0ACB3A 58C0 9154 L FRETURN,LBL.L2
0ACB3E 4140 9040 LA A1,HOLD
0ACB42 1B55 SR A1+1,A1+1
0ACB44 9867 9FB4 LM A2,A2+1,CONS#8
0ACB48 45D0 E2D0 BAL RETURN,$$PTN2
0ACB4C 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0ACB50 9045 F7D0 STM A1,A1+1,TEM#1
0ACB54 4100 0001 LA R0,1
0ACB58 58B0 8D8C L DB4,FNC.CHAR
0ACB5C 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACB60 45D0 E318 BAL RETURN,$$PATA
0ACB64 05DC BALR RETURN,FRETURN
* CODE TO COMPUTE CONS#8
0C4430 9845 8FB0 LM A1,A1+1,=1
0C4434 45D0 EB38 BAL RETURN,$$LENP
0C4438 9045 F7D0 STM A1,A1+1,TEM#1
0C443C 9845 8FD0 LM A1,A1+1,=0
0C4440 45D0 EB62 BAL RETURN,$$RPSP
0C4444 1864 LR A2,A1
0C4446 1875 LR A2+1,A1+1
0C4448 9845 F7D0 LM A1,A1+1,TEM#1
0C444C 45D0 E060 BAL RETURN,$$CNC2
0C4450 9045 9FB4 STM A1,A1+1,CONS#8
* STATEMENT NUMBER 91
B1 EQU *
0ACB66 3E02 AUR SCNT,SINC
0ACB68 4700 005B NOP 91
0ACB6C 18C8 LR FRETURN,DB1
0ACB6E 9845 8CA0 LM A1,A1+1,VAL.CURRENT
0ACB72 9045 F7D0 STM A1,A1+1,TEM#1
0ACB76 4100 0001 LA R0,1
0ACB7A 58B0 8EEC L DB4,FNC.LINK
0ACB7E 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACB82 9045 8EC0 STM A1,A1+1,VAL.Y
* STATEMENT NUMBER 92
0ACB86 3E02 AUR SCNT,SINC
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 23
0ACB88 0520 BALR R2,0
0ACB8A 41C2 0016 LA FRETURN,L.0017
0ACB8E 9845 8EC0 LM A1,A1+1,VAL.Y
0ACB92 5940 E02C C A1,$$NULL
0ACB96 05D0 BALR RETURN,0
0ACB98 074C BCR LT,FRETURN
0ACB9A 5810 8A90 L R1,LBL.READA
0ACB9E 05D1 BALR RETURN,R1
* STATEMENT NUMBER 93
0ACBA0 3E02 L.0017 AUR SCNT,SINC
0ACBA2 0520 BALR R2,0
0ACBA4 41C2 0054 LA FRETURN,L.0018
0ACBA8 9845 8EC0 LM A1,A1+1,VAL.Y
0ACBAC 9867 9064 LM A2,A2+1,VAL.START
0ACBB0 45D0 E998 BAL RETURN,$$IDNT
0ACBB4 077C BCR NE,FRETURN
0ACBB6 5840 E02C L A1,$$NULL
0ACBBA 9045 F7D0 STM A1,A1+1,TEM#1
0ACBBE 9845 8EC0 LM A1,A1+1,VAL.Y
0ACBC2 9045 F7C8 STM A1,A1+1,TEM#2
0ACBC6 4100 0001 LA R0,1
0ACBCA 58B0 8E0C L DB4,FNC.ALT
0ACBCE 4110 0008 LA R1,8
0ACBD2 1BF1 SR PDR,R1
0ACBD4 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACBD8 9867 8CA0 LM A2,A2+1,VAL.CURRENT
0ACBDC 45D0 E998 BAL RETURN,$$IDNT
0ACBE0 077C BCR NE,FRETURN
0ACBE2 5840 E02C L A1,$$NULL
0ACBE6 1864 LR A2,A1
0ACBE8 1875 LR A2+1,A1+1
0ACBEA 9845 F7D0 LM A1,A1+1,TEM#1
0ACBEE 45D0 E2DA BAL RETURN,$$PTV2
0ACBF2 5810 8A90 L R1,LBL.READA
0ACBF6 05D1 BALR RETURN,R1
* STATEMENT NUMBER 94
0ACBF8 3E02 L.0018 AUR SCNT,SINC
0ACBFA 0520 BALR R2,0
0ACBFC 41C2 0052 LA FRETURN,L.0019
0ACC00 9845 8EC0 LM A1,A1+1,VAL.Y
0ACC04 9867 9064 LM A2,A2+1,VAL.START
0ACC08 45D0 E998 BAL RETURN,$$IDNT
0ACC0C 077C BCR NE,FRETURN
0ACC0E 5840 E02C L A1,$$NULL
0ACC12 9045 F7D0 STM A1,A1+1,TEM#1
0ACC16 9845 8EC0 LM A1,A1+1,VAL.Y
0ACC1A 9045 F7C8 STM A1,A1+1,TEM#2
0ACC1E 4100 0001 LA R0,1
0ACC22 58B0 8E0C L DB4,FNC.ALT
0ACC26 4110 0008 LA R1,8
0ACC2A 1BF1 SR PDR,R1
0ACC2C 45D0 B008 BAL RETURN,FCODE(,DB4)
0ACC30 5940 E02C C A1,$$NULL
0ACC34 05D0 BALR RETURN,0
0ACC36 074C BCR LT,FRETURN
0ACC38 5840 E02C L A1,$$NULL
0ACC3C 1864 LR A2,A1
0ACC3E 1875 LR A2+1,A1+1
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 24
0ACC40 9845 F7D0 LM A1,A1+1,TEM#1
0ACC44 45D0 E2DA BAL RETURN,$$PTV2
0ACC48 5810 8A90 L R1,LBL.READA
0ACC4C 05D1 BALR RETURN,R1
* STATEMENT NUMBER 95
0ACC4E 3E02 L.0019 AUR SCNT,SINC
0ACC50 4700 005F NOP 95
0ACC54 18C8 LR FRETURN,DB1
0ACC56 9845 8EC0 LM A1,A1+1,VAL.Y
0ACC5A 9045 8CA0 STM A1,A1+1,VAL.CURRENT
* STATEMENT NUMBER 96
0ACC5E 3E02 AUR SCNT,SINC
0ACC60 0520 BALR R2,0
0ACC62 41C2 004A LA FRETURN,L.0020
0ACC66 9845 9FBC LM A1,A1+1,='STACK'
0ACC6A 9867 9104 LM A2,A2+1,VAL.N
0ACC6E 45D0 E060 BAL RETURN,$$CNC2
0ACC72 45D0 E1B2 BAL RETURN,$$DL1V
0ACC76 9867 8EC0 LM A2,A2+1,VAL.Y
0ACC7A 45D0 E998 BAL RETURN,$$IDNT
0ACC7E 078C BCR EQ,FRETURN
0ACC80 9845 9FAC LM A1,A1+1,CONS#9
0ACC84 9045 F7D0 STM A1,A1+1,TEM#1
0ACC88 9845 9FA4 LM A1,A1+1,CONS#10
0ACC8C 1864 LR A2,A1
0ACC8E 1875 LR A2+1,A1+1
0ACC90 9845 F7D0 LM A1,A1+1,TEM#1
0ACC94 45D0 E060 BAL RETURN,$$CNC2
0ACC98 1864 LR A2,A1
0ACC9A 1875 LR A2+1,A1+1
0ACC9C 4140 9040 LA A1,HOLD
0ACCA0 1B55 SR A1+1,A1+1
0ACCA2 45D0 E2CC BAL RETURN,$$PTNL
0ACCA6 5810 9174 L R1,LBL.BACKUP
0ACCAA 05D1 BALR RETURN,R1
* CODE TO COMPUTE CONS#9
0C4422 9845 8FB0 LM A1,A1+1,=1
0C4426 45D0 EB38 BAL RETURN,$$LENP
0C442A 9045 9FAC STM A1,A1+1,CONS#9
* CODE TO COMPUTE CONS#10
0C4414 9845 8FD0 LM A1,A1+1,=0
0C4418 45D0 EB62 BAL RETURN,$$RPSP
0C441C 9045 9FA4 STM A1,A1+1,CONS#10
* STATEMENT NUMBER 97
0ACCAC 3E02 L.0020 AUR SCNT,SINC
0ACCAE 58C0 9194 L FRETURN,LBL.B1
0ACCB2 9845 9104 LM A1,A1+1,VAL.N
0ACCB6 45D0 E67E BAL RETURN,$$DECR
0ACCBA 9045 9104 STM A1,A1+1,VAL.N
0ACCBE 05DC BALR RETURN,FRETURN
* STATEMENT NUMBER 98
END1 EQU *
0ACCC0 3E02 AUR SCNT,SINC
0ACCC2 18C8 LR FRETURN,DB1
0ACCC4 4140 893C LA A1,OUTPUT
0ACCC8 1B55 SR A1+1,A1+1
0ACCCA 5860 E02C L A2,$$NULL
0ACCCE 45D0 E29E BAL RETURN,$$ASSN
======================================================================================================================== SPITBOL TEST PROGRAM #7 -- SYMBOL TABLE GENERATOR PAGE 25
* STATEMENT NUMBER 99
0ACCD2 3E02 AUR SCNT,SINC
0ACCD4 4140 893C LA A1,OUTPUT
0ACCD8 1B55 SR A1+1,A1+1
0ACCDA 9867 9F9C LM A2,A2+1,='(ALL DATA PROCESSED)'
0ACCDE 45D0 E29E BAL RETURN,$$ASSN
* STATEMENT NUMBER 100
0ACCE2 3E26 AUR SINC,ZR
0ACCE4 4700 0064 NOP 100
0ACCE8 45D0 EA3C BAL RETURN,$$STOP
========================================================================================================================
ABC ABCD ABCDE BCDEF $$
(PRINTOUT OF ENTIRE STRUCTURE FOLLOWS...)
::ABC 1,
::ABCD 2,
::ABCDE 3,
::BCDEF 4,
$*
(STRUCTURE IS CLEARED)
ELASTIC HAPPILY BOX FOX CARS GAITERS ALL DUMP JUNE IN $$
(PRINTOUT OF ENTIRE STRUCTURE FOLLOWS...)
::ALL 7,
::BOX 3,
::CARS 5,
::DUMP 8,
::ELASTIC 1,
::FOX 4,
::GAITERS 6,
::HAPPILY 2,
::IN 10,
::JUNE 9,
$*
(STRUCTURE IS CLEARED)
SISTER SUSIE SELLS SEA SHELLS BY THE SEA SHORE $$
========================================================================================================================
(PRINTOUT OF ENTIRE STRUCTURE FOLLOWS...)
::BY 6,
::SEA 4,8,
::SELLS 3,
::SHELLS 5,
::SHORE 9,
::SISTER 1,
::SUSIE 2,
::THE 7,
$S
(PRINTOUT OF ALL WORDS BEGINNING WITH "S"...)
::SEA 4,8,
::SELLS 3,
::SHELLS 5,
::SHORE 9,
::SISTER 1,
::SUSIE 2,
$SH
(PRINTOUT OF ALL WORDS BEGINNING WITH "SH"...)
::SHELLS 5,
::SHORE 9,
SOME SEA SHELLS SEND SAILORS SWIMMING $$
(PRINTOUT OF ENTIRE STRUCTURE FOLLOWS...)
::BY 6,
::SAILORS 14,
::SEA 4,8,11,
::SELLS 3,
::SEND 13,
::SHELLS 5,12,
::SHORE 9,
::SISTER 1,
::SOME 10,
::SUSIE 2,
::SWIMMING 15,
::THE 7,
$S
(PRINTOUT OF ALL WORDS BEGINNING WITH "S"...)
::SAILORS 14,
::SEA 4,8,11,
::SELLS 3,
========================================================================================================================
::SEND 13,
::SHELLS 5,12,
::SHORE 9,
::SISTER 1,
::SOME 10,
::SUSIE 2,
::SWIMMING 15,
$SE
(PRINTOUT OF ALL WORDS BEGINNING WITH "SE"...)
::SEA 4,8,11,
::SELLS 3,
::SEND 13,
$*
(STRUCTURE IS CLEARED)
$$
(PRINTOUT OF ENTIRE STRUCTURE FOLLOWS...)
(NO WORDS)
CATTLE CARP CAT GORGE MONSTER MONEY CAR DOG METAL CAVE CAKE CAT $$
(PRINTOUT OF ENTIRE STRUCTURE FOLLOWS...)
::CAKE 11,
::CAR 7,
::CARP 2,
::CAT 3,12,
::CATTLE 1,
::CAVE 10,
::DOG 8,
::GORGE 4,
::METAL 9,
::MONEY 6,
::MONSTER 5,
$MON
(PRINTOUT OF ALL WORDS BEGINNING WITH "MON"...)
::MONEY 6,
========================================================================================================================
::MONSTER 5,
$M
(PRINTOUT OF ALL WORDS BEGINNING WITH "M"...)
::METAL 9,
::MONEY 6,
::MONSTER 5,
$C
(PRINTOUT OF ALL WORDS BEGINNING WITH "C"...)
::CAKE 11,
::CAR 7,
::CARP 2,
::CAT 3,12,
::CATTLE 1,
::CAVE 10,
$CA
(PRINTOUT OF ALL WORDS BEGINNING WITH "CA"...)
::CAKE 11,
::CAR 7,
::CARP 2,
::CAT 3,12,
::CATTLE 1,
::CAVE 10,
$CAT
(PRINTOUT OF ALL WORDS BEGINNING WITH "CAT"...)
::CAT 3,12,
::CATTLE 1,
$CATT
(PRINTOUT OF ALL WORDS BEGINNING WITH "CATT"...)
::CATTLE 1,
$CAX
(PRINTOUT OF ALL WORDS BEGINNING WITH "CAX"...)
(NO WORDS)
$$
(PRINTOUT OF ENTIRE STRUCTURE FOLLOWS...)
::CAKE 11,
::CAR 7,
::CARP 2,
::CAT 3,12,
::CATTLE 1,
========================================================================================================================
::CAVE 10,
::DOG 8,
::GORGE 4,
::METAL 9,
::MONEY 6,
::MONSTER 5,
(ALL DATA PROCESSED)
======================================================================================================================== NORMAL TERMINATION IN STATEMENT 99
NUMBER OF STATEMENTS EXECUTED 5003
EXECUTION TIME (SECONDS) 0.007
MSEC/STATEMENT 0.001
NUMBER OF STORAGE REGENERATIONS 0
========================================================================================================================
