*COMDECK SYMPL
          CONTROL NOLIST;    #SYMPL#
                                   DEF SYMPLSTART #SYMPLITEM[0] # ; 
COMMON SYMPL; 
BEGIN 
  
#**********************************************************************#
#                                                                      #
#     -THESE FOLLOWING MEMBERS OF THE COMMON BLOCK /SYMPL/ ARE USED    #
#      BY INIT16                                                       #
#     -ANY CHANGE TO ANY OF THESE VARIABLES MUST BE REFLECTED IN       #
#      INIT16                                                          #
#     -ANY OTHER CHANGES TO /SYMPL/ WILL NO LONGER DISTURB INIT16      #
#      (HOORAY)                                                        #
#                                                                      #
      ITEM
CCHAR              ,#CHARACTER CURRENTLY UNDER SCAN BY PRECOGNITION    #
CSTAKP             ,#POINTER TO CURRENT CHARACTER IN PRECOGNITION STACK#
CWORDP             ;#POINTER TO CURRENT WORD OF CARD IMAGE             #
ARRAY [CSTKCP]     ;#TOKEN ANALSIS STACK                               #
      ITEM CSTAKD B(0,0,1),                                              INIT16C
           CSTAK  I(0,0,60);                                             INIT16C
#                                                                      #
#**********************************************************************#
  
                                   ARRAY ; ITEM SYMPLITEM ; 
  
#    SIMPLE   #   ITEM#S# 
AIRFLG             ,#ARRAY ITEM DECL ERROR FLAG                        #
ALOC S:QALOC       ,#NULL, ALIGN OR UNALIGN TYPE OF MIS ARRAY HEADER   # MIS
AORU B             ,#TRUE IF MIS CONTEXT, FALSE OTHERWISE              # MIS
ARAYPS             ,#TRUE IF ARRAY IS PRESET AT ALL                    #
ARG                ,#POINTER TO FIRST AVAILABLE CONSTRUCT STRING LOCN  #
BADOVL B           ,#IF FIRST OVERLAY DEC IS WRONG, SO ARE THE REST    # MIS
BLKCOM             ,#POINTER TO BALNK COMMON SECTION IF EXTANT         #
BRKLEV             ,#CURRENT PARENTHESIS/SQUARE BRACKET DEPTH          #
CCPRIM             ,#COMPILING MACHINE CODE FOR SINGLE QUOTE           #
CCQUOT             ,#COMPILING MACHINE CODE FOR DOUBLE QUOTE           #
CCSEMI             ,#FOR CHARACTER CODE FOR SEMICOLON IN COMP MACHINE  #
COMLOC             ,#LINK TO CURRENT COMMON DECLARATION                #
COMPRS B           ,#ALLOWS PRESETS IN COMMON-OTHERWISE IGNORED        #
COPLEN             ,#CHARACTER OPERAND LENGTH TEMP                     #
CURRLEV            ,#GLOBAL LEVEL FLAG                                 # MIS
DCXFLG             ,#DECLARATIVE CONTEXT FLAG                          #
DEBBRK             ,#CODE INHIBIT FLAG                                 #
DEBCOD             ,#DEBUGGING CODE ACCEPT FLAG                        #
DEBFLG             ,#DEBUGGING MODE FLAG                               #
DESFLG             ,#DESCRIPTOR CONTEXT FLAG                           #
DIVERR           I ,#ERROR IN CURRENT INTEGER                          # MIS
DMPFLG             ,#LISTS EACH PRAG FUNCTION CALLED DURING SCANS      # MIS
DRMLOC             ,#UNUSED BY 6600 VERSION                            #
DSEC               ,#FOR LINK TO CURRENT ATTRIBUTE SECTION             #
DSFTP              ,#TEMP STORAGE FOR DESFLG                           #
DUMPIL B           ,#DUMP IL FLAG---TRUE IF *=7 SELECTED               # MIS
DXFTP              ,#TEMP STORAGE FOR DCXFLG                           #
FASTLOOP B         ,#GLOBAL FAST/SLOW LOOP FLAG                        #
FILLER B           ,#TRUE IF A MIS FILLER ITEM HAS BEEN SEEN           # MIS
FOUND B            ,#TEMP USED TO FLAG SUCCESS OF SRCH CALLS           #
IMISEP             ,#NEXT AVAIL ENTRY POSITION FOR OVERLAY DECS.       # MIS
IMISFBIT           ,#NEXT AVAIL FBIT FOR OVERLAY DECS.                 # MIS
INERT B            ,#GLOBAL INERT/REATIVE FLAG  -PRESET TO REACTIVE    #
INVTYP S:QOPTYP    ,#INDUCTION VARIABLE TYPE                           #
ITMLOC             ,#LINK TO CURRENTLY DECLARED ITEM, FUNC, ETC        #
ITMTYP S:QTYPE     ,#TYPE OF CURRENT ITEM, FUNC, ETC                   #
ITMVPI             ,#PRESET VALID FLAG                                 #
LEVLOP             ,#PAREN LEVEL OF LAST BOOLEAN OPERATOR SEEN         #
LOOPCW             ,#CONTROL WORD FOR LOOP TABLE                       #
LOOPX1             ,#BUFFER NAME FOR FIRST FOR EXPRESSION (INIT)       #
LOOPX2             ,#BUFFER NAME FOR SECOND EXPRESSION THIS LOOP       #
LOOPX3             ,#BUFFER NAME FOR THIRD EXPRESSION THIS LOOP        #
MISEP              ,#NEXT AVAIL ENTRY POSITION FOR NON-OVERLAY DECS.   # MIS
MISFBIT            ,#NEXT AVAIL FBIT FOR NON-OVERLAY DECS.             # MIS
NAUP$              ,#LINK TO CONSTANT FOR NUMBER ADDR UNITS/WORD       #
NCAR               ,#NUMBER OF CHARACTERS THIS NAME OR STRING          #
NCRENT             ,#NUMBER OF CROSSREFERENCE NETRIES                  #
NPARLS             ,#CONTROL WORD FOR PAR LIST TABLE                   #
NRCNTR             ,#NUMBER OF VALID CONTROL WORDS                     #
NSEC               ,#USED FOR LINK TO NAME SECTION FOR THIS NAME       #
NXTBN              ,#NEXT ORDINAL SCOPE NUMBER TO BE ASSIGNED          #
ONE$               ,#POINTER TO CONSTANT ONE                           #
OP S: QOP          ,#TEMP FOR OPERATOR TYPE-USED IN SCAN TWO           #
OPLEV              ,#LEVEL OF CURRENT BOOLEAN OPERATOR                 #
OVLOC              ,#LINK TO MIS OVERLAID VAR., I.E., <SIZE, OVLOC>    # MIS
PCLEN              ,#LENGTH OF CURRENT PRESET CONSTANT                 #
PCTYP              ,#TYPE OF CURRENT PRESET CONSTANT                   #
PLNAM              ,#TEMP STORAGE FOR LAST NAME SEEN THIS BRKLEV       #
PLUSOK B           ,#TRUE IF A PLUS-TYPE DEC IS VALID IN THIS CONTEXT  # MIS
PRBSIZ             ,#PRESET BUFFER CONTROL WORD                        #
PRCSTR             ,#POINTS TO LIST OF CONSTANTS IN PRESET FILE        #
PRSFLG             ,#IN PRESET FLAG--CONTROLS CONSTANT POSTING         #
PSTCS              ,#NAME OF CODE BUFFER FOR PRESTATEMENT CODE         #
PSTLS              ,#BUFFER FOR LABELS FOR PRESTATEMENT CODE           #
PVDF               ,#LINK TO PRIOR VALID DECLARATION THIS NAME         #
REPLFAC            ,#REPLICATION FACTOR FOR PRESETS                    #
SCFTP              ,#TEMP STORAGE FOR SCXFLG                           #
SCOPE              ,#CURRENT SCOPE IDENTIFYING ORDINAL NUMBER          #
SCPLEV             ,#CURRENT SCOPE NEST DEPTH                          #
SCXFLG             ,#STATUS CONSTANT CONTEXT FLAG                      #
SPTRW              ,#POINTER INTO DTXT EXPANSION STACK                 #
SIZE$AU            ,#SIZE OF MIS VARIABLE, I.E., <SIZE, OVLOC>         # MIS
SSBXB              ,#BUFFER CONTAINING CODE FOR THIS SUBSCRIPT         #
STEPS              ,#NEGATIVE FOR LOOP STEP FLAG                       #
STERF              ,#ERROR FLAG--INHIBITS CODE THIS STATEMENT          #
TLD1               ,#GENERAL TEMPORARY                                 #
TLD2               ,#GENERAL TEMPORARY                                 #
TLD3               ,#GENERAL TEMPORARY                                 #
TPYA               ,#GENERAL TEMPORARY                                 #
TPYB               ,#GENERAL TEMPORARY                                 #
TPYC               ,#GENERAL TEMPORARY                                 #
TTORIGIN           ,#SYMBOL TABLE INDEX OF TEXT TABLE ORIGIN           #
WHILEX B           ,#CURRENT FOR HAS WHILE / (UNTIL OR NO TERMINATION) # MIS
WELLB B            ,#GLOBAL BADLY/WELLBEHAVED FLAG-PRESET TO BADLY     #
WDPTR              ,#CONTROL WORD TO SAVE PUSHDOWN CONTROL WD          #
ZERO$              ,#POINTER TO CONSTANT ZERO                          #
                                                 $$$$$$$$$$;
  
#    ARRAYS AND ARRAY ITEMS             # 
                                                                         MIS
ARRAY [NSCPLV];                        #SCOPE TABLE#
     ITEM FLCHED   F18,                #FLCH CHAIN HEAD#
          TMPHED L18,                  #TEMP CHAIN HEAD#
          NTEMPU   (0,18,11),          #NO. TEMPS USED# 
          NTEMPG   (0,29,11),          #NO. TEMPS GENERATED#
          ENDM     B(0,41,1);          #SCOPE CLOSED FLAG#
                                                                         MIS
ARRAY [0:NDLTR] P(1);                  #DESCRIPTOR TABLE               # MIS
  BEGIN                                                                  MIS
  ITEM DLTR          I (00,00,18);     #DESCRIPTOR LETTER NAME LINK    # MIS
  ITEM DLTT          I (00,42,18);     #DESCRIPTOR LETTER TYPE         # MIS
  END                                                                    MIS
                                                                         MIS
ARRAY [NBRKLV];                        #BRACKET LEVEL TABLE#
     ITEM LNAME    F18,                #LAST NAME THIS LEVEL# 
          BLABL    L18,                #SPANS TLABL AND FLABL#
          TLABL    (0,42,9),           #"TRUE" LABL BUFFER# 
          FLABL    (0,51,9),           #"FALSE" LABEL BUFFER# 
          LNAMW;                       # FOR CLEARING WHOLE ENTRY#
                                                                         MIS
ARRAY ZCHRB[CMPR13];                   #CHARACTER STRING BUFFER#
     ITEM CHRBUF   C(0,0,10); 
                                                                         MIS
        ARRAY [CMPR13] ; ;  #DOUBLE SIZE SINCE MACROS ARE PACKED 12#
                                                                         MIS
ARRAY [NPRLST]S;                       #TABLE USED FOR MANY THINGS# 
     ITEM 
     #PARAMETER LIST CODE PRODUCTION CONTROL# 
          PTYP     S:QPARTY 
                   (0,36,6),           #LIST TYPE#
          PPXS     F18,                #EXPRESSION BUFFER#
          PPLS     M18,                #LIST CODE TO DATE BUFFER# 
          PPNP     L18,                #NUMBER PARAMETERS#
     #SINK CODE PRODUCTION CONTROL# 
          SINKC    S:QSINK
                   (0,36,6),           #SINK TYPE#
          SINKL    F18,                #LINK TO PRIMARY NAME# 
          SINKX    M18,                #SUBSCRIPT EXPRESSION BUFFER#
          SINKB    L18,                #INDEX TO ASSOCIATED BEAD FUNC#
     #BEAD FUNCTION CODE PRODUCTION CONTROL#
          BEADC    S:QBEADC 
                   (0,36,6),           #BEAD TYPE - B OR C# 
          BEADXA   F18,                #FIRST EXPRESSION BUFFER#
          BEADXB   M18,                #SECOND EXPRESSION BUFFER# 
          BEADL    L18,                #LINK TO DATA NAME#
          BEADSX   (1,0,18),           #SUBSCRIPT EXPRESSION BUFFER#
          BEADNX   (1,42,18);          #NUMBER EXPRESSIONS TO DATE# 
                                                                         MIS
ARRAY [WMAX];                          #CODE PRODUCTION - SAVE CONTROL# 
     ITEM WD;                          #PUSHDOWN ACTIVITY TABLE#
                                                                         MIS
ARRAY [6,6];                           #TABLE OF CONVERT FUNCTIONS# 
     ITEM TCONVF; 
                                                                         MIS
ARRAY [QOP"LNO" : QOP"LQV"] P(1);      #TABLE OF LOGICAL OPERATORS#      MIS
     ITEM LOGOPR; 
                                                                         MIS
ARRAY [TOPAOP,6];                      #TABLE OF ARITH OPERATORS# 
     ITEM AOPR; 
                                                                         MIS
ARRAY [QFNBR"QFNBR$"];                 #TABLE OF INTRINSIC OPERATORS# 
     ITEM INIFT;
                                                                         MIS
ARRAY [TOPTYP];                        #THIS TABLE CONVERTS QTYPE#
     ITEM OPTYP;                       #VALUES TO QOPTYP VALUES#
                                                                         MIS
ARRAY [0:TOPTYP] P(1);                 #TABLE CLASSIFIES EACH QTYPE    # MIS
     BEGIN                             #VALUE INTO A MIS OVERLAY CLASS # MIS
     ITEM OVLAY S:QOVLAY;                                                MIS
     END                                                                 MIS
                                                                         MIS
ARRAY [LOOPCP] (2);                    #FOR LOOP CONTROL TABLE# 
     ITEM LOOPL    F18,                #LINK TO INDUCTION VARIABLE# 
          LOOPSL   M18,                #END OF LOOP BUFFER# 
          LOOPJB L18,                  #LABEL FOR TEST STATEMENT# 
          LOOPTY B(1,0,1),             #FAST / SLOW LOOP#                MIS
          LOOPER  B( 01,20,01 ),   # ERROR IN FOR STMT, SUPPRESS ENDL  #
          LOOPSS  (1,1,18),            #STEP TEMPORARY FASTLOOP LOCN   # MIS
          LOOPST(1,24,18),             #STEP CODE BUFFER #
          LOOPLL(1,42,18);             #UNTIL/WHILE CODE LABEL# 
                                                                         MIS
ARRAY ZNAMR[CMPR11];                   #NAME COLLECTION BUFFER# 
     ITEM NAMARR   C(0,0,10),          #FULL WORD#
          NAMCHR   C(0,0,IDLEN),
     #THE FOLLOWING ITEMS ARE TO PACK UP NAMES# 
           NAMC1    U(0, 0 ,6), 
           NAMC2    U(0, 6 ,6), 
           NAMC3    U(0, 12,6), 
           NAMC4    U(0, 18,6), 
           NAMC5    U(0, 24,6), 
           NAMC6    U(0, 30,6), 
           NAMC7    U(0, 36,6), 
           NAMC8    U(0, 42,6), 
           NAMC9    U(0, 48,6), 
           NAMC10   U(0, 54,6); 
                                                                         MIS
ARRAY[CMPR17];                         #POWERS OF 2 TABLE#
     ITEM POWER2; 
                                                                         MIS
ARRAY [NSSWPT];                        #STATUS SWITCH TABLE#
          BEGIN 
           ITEM SSP (0,42,18);   # STAUS SWITCH ELEMENT # 
                  # THE SWITCH TABLE IS OVERLAID (IN UPPER WORD ) 
                    BY THE MACRO PARAMETER LINK STACK - LINKS FROM
                    ON LEVEL OF MACRO CALL TO ANOTHER # 
           ITEM MACNAMED (0,18,18);   # NAME OF MACRO  #
           ITEM DTXTENTRY (0,0,18);    #SPTR OR NEXT STACK ENTRY  # 
          END 
                                                                         MIS
ARRAY [CNTRL"CNTRL$"];                 #CONTROL WORD TABLE# 
     ITEM CNTLNK; 
                                                                         MIS
ARRAY $PRB$ [PRBUP];                   #PRESET BUFFER#
     ITEM PETY     S:QPETY
                   F18,                #ENTRY TYPE# 
          PEVL     M18,                #NUMBER# 
          PELN     L18,                #LINK# 
          PEWD;                        #FULL WORD#
                                                                         MIS
ARRAY [CMPR13];                        #PRESET CONSTANT STAGE#
     ITEM PCCON,                       #CONSTANT# 
          PCCONC   C(0,0,10);          #CHARACTERS# 
  
ARRAY [0:CND"IFNQ"] P(1);              #CONDITION WORD TABLE#            MIS
     ITEM CNDLNK;                                                        MIS
                                                                         MIS
ARRAY [QATTRIBUTE"LEV3"] ;             #ATTRIBUTE WORD TABLE#            MIS
     ITEM ATTRLNK  ;
  
                                   ITEM SYMPLEND;  #FOR CLEARING# 
END  #OF COMMON BLOCK SYMPL#
          CONTROL LIST;      #SYMPL#
