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
========================================================================================================================