LOWCORE 
          IDENT    SNOBOLX                                              *******      1
          LCC      OVERLAY(SNOBOLX,0,0)                                 *******      2
          SPACE    14                                                   LOWCORE      3
****************************************                                LOWCORE      4
*                                      *                                LOWCORE      5
*                                      *                                LOWCORE      6
*                                      *                                LOWCORE      7
*                                      *                                LOWCORE      8
*                                      *                                LOWCORE      9
*                                      *                                LOWCORE     10
*                                      *                                LOWCORE     11
*                                      *                                LOWCORE     12
*                                      *                                LOWCORE     13
*      CAL-6000 SNOBOL4 COMPILER       *                                LOWCORE     14
*             DEVELOPED BY             *                                LOWCORE     15
*   CHARLES SIMONYI AND PAUL MCJONES   *                                LOWCORE     16
*        BERKELEY, 1968 - 1969         *                                LOWCORE     17
*                                      *                                LOWCORE     18
*                                      *                                LOWCORE     19
*                                      *                                LOWCORE     20
*                                      *                                LOWCORE     21
*                                      *                                LOWCORE     22
*                                      *                                LOWCORE     23
*                                      *                                LOWCORE     24
*                                      *                                LOWCORE     25
*                                      *                                LOWCORE     26
****************************************                                LOWCORE     27
         TITLE       CAL-6000  S N O B O L                              LOWCORE     28
         TITLE ASSEMBLI PARAMETERS, WORKING STORAGE                     LOWCORE     29
STAKSP   EQU   70                  . SPACE ALLOCATED FOR P2-P3 STACKS   LOWCORE     30
BGP3STK   BSSZ     STAKSP                                               *******      3
HASHLN    =        139/2+1                                              *******      4
HASHTBL   BSSZ     HASHLN                                               *******      5
BGP2STK   =        HASHTBL                                              *******      6
HASHLWD  DATA  139.0               . NUMBER OF HASH TABLE ENTRIES       LOWCORE     37
VERSION.  DATA   10H OCT03$73                                           LOWCORE     38
LSCOUNT   DATA      0                                                   LOWCORE     39
*                                                                       LOWCORE     40
*                                                                       LOWCORE     41
*        WORKING STORAGE USED BOTH DURING COMPILATION AND EXECUTION     LOWCORE     42
*                                                                       LOWCORE     43
FIELDLN  DATA  0                   . FIELDLENGTH                        LOWCORE     44
 MAXLS   EQU   FIELDLN             . UPPER LIMIT FOR LIST STORAGE       LOWCORE     45
 MAXHS   DATA  0                   . UPPER LIMIT FOR HEAP STORAGE       LOWCORE     46
 MINHS   DATA  0                   . LOWER LIM FOR HS                   LOWCORE     47
MAXSTAK  DATA  0                   . -UPPER LIMIT FOR STACK             LOWCORE     48
FHBLRP   DATA  0                   . FREE HB LIST ROVING POINTER        LOWCORE     49
 MINSTAK DATA  0                   . LOWER LIMIT FOR STACK              LOWCORE     50
NXTWRD   DATA  -1                  . COMPILER SOURCE MEDIUM DESCR.      LOWCORE     51
FRSTWRD  DATA  0                   .                                    LOWCORE     52
INFAIL   DATA  0                   . SIGN BIT - SIGNAL ERROR ON FAILURE LOWCORE     53
 CODLIST DATA  0                   . CHAIN OF CODTYP HEAP BLOCK         LOWCORE     54
 FILLIST DATA  0                   . CHAIN OF FILTYP HB-S               LOWCORE     55
OUTSTRM  DATA  0                   . POINTS TO STANDARD OUTPUT FILE     LOWCORE     56
BUFFSIZ  DATA  257                 . SIZE OF I/O BUFFER PROPER          LOWCORE     57
*                                                                       LOWCORE     58
*        SOME KEYWORDS                                                  LOWCORE     59
*                                                                       LOWCORE     60
FLDLM    DATA  40000B              . (DEFAULT) LIMIT FOR FIELDLN        LOWCORE     61
MXLNGTH  DATA  377776B             . MAXIMUM STRING LENGTH              LOWCORE     62
STCOUNT  DATA 1                                                         LOWCORE     63
STLIM    DATA  1000000             . LIMIT FOR STATEMENT (RULE) COUNT   LOWCORE     64
ANCHOR   DATA  0                   . NOTZERO INDICATES ANCHORED SEARCH  LOWCORE     65
*                                                                       LOWCORE     66
FREQWD   DATA  0                   . FREQUENCY OF SELF-CHECKING         LOWCORE     67
INTRPT   DATA  0                   . INTERRUPT IF LT STCOUNT            LOWCORE     68
 STATWD  DATA  0                   . ACTION AFTER INTERRUPT, MAY CONTAINLOWCORE     69
HBCSTAT   DATA   0           . HEAP BLOCK COMPACTION STATUS WORD        LOWCORE     70
 STATHBC EQU   1                   . DO HEAP STORAGE COMPACTION         LOWCORE     71
 STATSC  EQU   2                   . SELF CHECK                         LOWCORE     72
STATTRC  EQU   20B                 . TURN ON TRACE                      LOWCORE     73
*  OTHER  STATWD  BITS ARE USED TO TURN ON  TRACE  SELECTIVELY:         LOWCORE     74
STATPST  EQU   4                   . TRACE POST                         LOWCORE     75
STATCMP  EQU   10B                 . TRACE COMPILER                     LOWCORE     76
*                                                                       LOWCORE     77
*        WORKING STORAGE USED ONLY DURING COMPILATION                   LOWCORE     78
*                                                                       LOWCORE     79
TEMPBASE EQU   *                                                        LOWCORE     80
INSTRM   DATA  0                   . POINTS TO STANDARD INPUT FILE      LOWCORE     81
ARROWD   DATA  0                   . ERROR FLAG FOR CURRENT LINE        LOWCORE     82
 MAXSTAT DATA  0                   . POINTS TO THE LAST HB COMPILED     LOWCORE     83
LBLLINK  DATA  0                   . CHAIN OF LABELS                    LOWCORE     84
VARLINK  DATA  0                   . CHAIN OF VARIABLES                 LOWCORE     85
TESTCND  DATA  0                   . USED IN P3                         LOWCORE     86
TSTPMOP  DATA  0                   . USED IN P2                         LOWCORE     87
PRGBASE  DATA  0                   .                                    LOWCORE     88
COMPB7   DATA  0                                                        LOWCORE     89
P1ERFLG  DATA  -1                                                       LOWCORE     90
P0STWD   VFD   12/2000B+0,30/0,18/=XNEWUNIT . PASS0: COLUMN NO., STATE  LOWCORE     91
P1LTFLG  DATA  0                   . USED BY PASS1-PASS0 TO SUPPRESS BLKLOWCORE     92
CURWD    DATA  0                   . CURRENT WORD OF CHARS FOR PASS1    LOWCORE     93
P1TEMP1  DATA  0                   . USED DURING CALLS TO PASSES 0 AND 2LOWCORE     94
P1TEMP2  DATA  0                   . USED DURING CALLS TO PASS 0 ONLY   LOWCORE     95
P1TEMP3  DATA  0                   . USED DURING CALLS TO PASS 0 ONLY   LOWCORE     96
LC       DATA  0                                                        LOWCORE     97
PAGENO   DATA  1                                                        LOWCORE     98
P1MAX    DATA  0                                                        LOWCORE     99
RULENO   DATA  1                                                        LOWCORE    100
P4SVX4   EQU   P1TEMP3                                                  LOWCORE    101
P4SVB5   EQU   P1MAX                                                    LOWCORE    102
         TITLE TEMPORARIES USED ONLY AT RUN-TIME                        LOWCORE    103
         MACRO TEMP,PARAM                                               LOWCORE    104
CCXXCC   SET   CCXXCC+1                                                 LOWCORE    105
PARAM    EQU   TEMPBASE+CCXXCC                                          LOWCORE    106
         ENDM                                                           LOWCORE    107
*                                                                       LOWCORE    108
CCXXCC   SET   -1                  . INITIALIZE TEMP COUNTER            LOWCORE    109
*                                                                       LOWCORE    110
PIX      TEMP                                                           LOWCORE    111
SIX      TEMP                                                           LOWCORE    112
PIB      TEMP                                                           LOWCORE    113
LENFAIL  TEMP                                                           LOWCORE    114
SBASE    TEMP                                                           LOWCORE    115
TEMPDOL  TEMP                                                           LOWCORE    116
TEMPDOL1 TEMP                      . REFERRED TO AS TEMPDOL+1           LOWCORE    117
SLENGTH  TEMP                                                           LOWCORE    118
PCHAIN   TEMP                                                           LOWCORE    119
PMASX6   TEMP                                                           LOWCORE    120
PMASX0   TEMP                                                           LOWCORE    121
PMASX3   TEMP                                                           LOWCORE    122
PMASX2   TEMP                                                           LOWCORE    123
PMASX4   TEMP                                                           LOWCORE    124
PMASB1   TEMP                                                           LOWCORE    125
PMASB2   TEMP                                                           LOWCORE    126
PMASB4   TEMP                                                           LOWCORE    127
CALLB5P  TEMP                      . USED IN CALL                       LOWCORE    128
DATAWD   TEMP                      . USED IN DATA                       LOWCORE    129
PMA5     TEMP                                                           LOWCORE    130
SPOS     TEMP                                                           LOWCORE    131
DTYPWD    TEMP                                                          LOWCORE    132
UA        TEMP      . RETURN - PM CHEK INFO                             LOWCORE    133
ISVB1     TEMP                     . SAVE B1 IF INTERRUPT               LOWCORE    134
ISVX5     TEMP                     . SAVE X5 IF INTERRUPT               LOWCORE    135
*                                                                       LOWCORE    136
*  THE FOLLOWING LOCATIONS ARE USED BY THE SELF CHECK PROGRAM:          LOWCORE    137
*                                                                       LOWCORE    138
VIPTR    TEMP                      . POINTS TO THE CURRENT SVD IN HS    LOWCORE    139
VLASTB   TEMP                      . POINTS TO THE CURRENT HEAP BLOCK   LOWCORE    140
VNWLS    TEMP                      . NUMBER OF WORDS IN LS              LOWCORE    141
VNCODB   TEMP                      . NUMBER OF CODTYP BLOCKS            LOWCORE    142
VNFHB    TEMP                      . NUMBER OF FREE HEAP BLOCKS         LOWCORE    143
VNFILB   TEMP                      . NUMBER OF FILTYP BLOCKS            LOWCORE    144
*                                                                       LOWCORE    145
*  MAKE SURE ENOUGH TEMP SPACE IS ALLOCATED.                            LOWCORE    146
*                                                                       LOWCORE    147
         IFGE  TEMPBASE+CCXXCC,*                                        LOWCORE    148
         BSSZ  TEMPBASE+CCXXCC-*                                        LOWCORE    149
         ENDIF                                                          LOWCORE    150
*                                                                       LOWCORE    151
MSGSTAT  EQU   PMASX3              . USED BY RTERROR                    LOWCORE    152
*                                                                       LOWCORE    153
PMSTX3   EQU   PMASX3                                                   LOWCORE    154
PMSTB1   EQU   PMASB1                                                   LOWCORE    155
PMSTB3   EQU   PMASB2                                                   LOWCORE    156
PMSTB4   EQU   PMASB4                                                   LOWCORE    157
PMFA0    EQU   PMASX3                                                   LOWCORE    158
PMFX4    EQU   PMASB1                                                   LOWCORE    159
PMFA4    EQU   PMASB2                                                   LOWCORE    160
QARSV    EQU   PMASX3                                                   LOWCORE    161
QIOSV    EQU   PMASX3                                                   LOWCORE    162
QDEFSV1  EQU   PMASX3                                                   LOWCORE    163
QDEFSV2  EQU   PMASB1                                                   LOWCORE    164
QDEFSV3  EQU   PMASB2                                                   LOWCORE    165
QFRZSV   EQU   PMASB1              . MUST NOT EQUAL DATWD=TODWD=PMASX3  LOWCORE    166
QEQSV    EQU   PMASX3                                                   LOWCORE    167
QDATSV1   EQU      PMASX3                                               LOWCORE    168
*                                                                       LOWCORE    169
*                                                                       LOWCORE    170
         ENTRY BGP3STK,BGP2STK                                          LOWCORE    171
         ENTRY HASHLWD,HASHLN,HASHTBL                                   LOWCORE    172
         ENTRY CODLIST,FILLIST,FHBLRP                                   LOWCORE    173
         ENTRY FIELDLN,MAXLS,MAXHS,MINHS                                LOWCORE    174
         ENTRY MAXSTAK,MINSTAK                                          LOWCORE    175
         ENTRY FREQWD                                                   LOWCORE    176
         ENTRY NXTWRD,FRSTWRD                                           LOWCORE    177
         ENTRY INFAIL                                                   LOWCORE    178
         ENTRY CODLIST,FILLIST                                          LOWCORE    179
         ENTRY INSTRM,OUTSTRM,BUFFSIZ                                   LOWCORE    180
         ENTRY FLDLM,MXLNGTH,STCOUNT,STLIM,ANCHOR                       LOWCORE    181
         ENTRY INTRPT,STATWD,STATHBC,STATSC                             LOWCORE    182
         ENTRY STATTRC                                                  LOWCORE    183
          ENTRY     HBCSTAT                                             LOWCORE    184
         ENTRY STATPST,STATCMP                                          LOWCORE    185
         ENTRY ARROWD,MAXSTAT,LBLLINK,VARLINK                           LOWCORE    186
         ENTRY TESTCND,TSTPMOP,PRGBASE                                  LOWCORE    187
         ENTRY COMPB7,P1ERFLG,LC,PAGENO,RULENO                          LOWCORE    188
         ENTRY P1MAX,P1TEMP1,P1TEMP2,P1TEMP3,P4SVX4,P4SVB5              LOWCORE    189
         ENTRY CURWD,P1LTFLG,P0STWD                                     LOWCORE    190
         ENTRY PIX,SIX,PIB,LENFAIL,SBASE                                LOWCORE    191
         ENTRY TEMPDOL,SLENGTH,PCHAIN                                   LOWCORE    192
         ENTRY PMASX6,PMASX0,PMASX3,PMASX2,PMASX4                       LOWCORE    193
         ENTRY VIPTR,VLASTB,VNWLS,VNCODB,VNFHB,VNFILB                   LOWCORE    194
         ENTRY PMASB1,PMASB2,PMASB4                                     LOWCORE    195
         ENTRY CALLB5P,DATAWD,PMA5,SPOS,DTYPWD,UA                       LOWCORE    196
         ENTRY MSGSTAT                                                  LOWCORE    197
         ENTRY PMSTX3,PMSTB1,PMSTB3,PMSTB4                              LOWCORE    198
         ENTRY PMFA0,PMFX4,PMFA4                                        LOWCORE    199
         ENTRY QARSV,QIOSV,QDEFSV1,QDEFSV2,QDEFSV3                      LOWCORE    200
         ENTRY QFRZSV,QEQSV,QDATSV1                                     LOWCORE    201
          ENTRY     ISVB1,ISVX5                                         LOWCORE    202
          ENTRY     LSCOUNT                                             LOWCORE    203
*                                                                       LOWCORE    204
*                                                                       LOWCORE    205
         END                                                            LOWCORE    206