*COMDECK PPCOMMON2
          CONTROL  NOLIST;   #PPCOMMON2#
         CONTROL EJECT; 
         COMMON PPSTORAGE;
         BEGIN
         ITEM  LEFTCOUNT     I; 
         ITEM  NESTEDIF      I; 
         ITEM  D$            I; 
         ITEM  DMAX$         I; 
         ITEM  C2            C(20); 
         ITEM  CHARTEMP      C(7);
         ITEM  FIX1          I; 
         ITEM  FIX2          I; 
         ITEM  FIX3          I; 
         ITEM  FIX4          I; 
         ITEM  REG1          I; 
         ITEM  REG2          I; 
         ITEM  REG3          I; 
         ITEM  REG4          I; 
         ITEM  REG5          I; 
         ITEM  REG6          I; 
         ITEM  REG7          I; 
         ITEM  REG8          I; 
         ITEM  REG9          I; 
         ITEM  REG10         I; 
         ITEM  TEMP          I; 
         ITEM  TEMP1         I; 
         ITEM  TEMP2         I; 
         ITEM  I             I; 
         ITEM  J             I; 
         ITEM  K             I; 
         ITEM  PDADDRESS     I; 
         ITEM  UBRAUXPTR     I; 
         ITEM  FROZENGTEXT   I; 
         ITEM  ANDADDRESS    I; 
         ITEM  ORADDRESS     I; 
         ITEM  ENDADDRESS    I; 
         ITEM  TEMPADDRESS   I; 
         ITEM  PERIODFLAG    I; 
         ITEM  NSFLAG        I; 
         ITEM  GOFLAG        I; 
         ITEM  CLASSFLAG     I; 
         ITEM  RELNOTFLAG    I; 
         ITEM  SUBJECTFLAG   I; 
         ITEM  NEGATION      I; 
         ITEM  PN            I; 
         ITEM  P             I; 
         ITEM  Z             I; 
         ITEM  SS            I; 
         ITEM  S$            I; 
         ITEM  FL            I; 
         ITEM  SLENGTH       I; 
         ITEM  OLENGTH       I; 
         ITEM  CONTYPE       I; 
         ITEM  LINE1         I; 
         ITEM  COLUMN1       I; 
         ITEM  SUBSCRIPT$    I; 
         ITEM  SUBSREQUIRED  I; 
         ITEM  SUBSSOFAR     I; 
         ITEM  TABLENAME     I; 
         ITEM  TABLELINE     I; 
         ITEM  TABLECOLUMN   I; 
         ITEM  INDEXFLAG     I; 
         ITEM  SUBSCRIPTFLG  I; 
         ITEM  CONDTYPE      U; 
         ITEM  TEMPATOM      U; 
         ITEM  OPERAND1      U; 
         ITEM  OPERAND2      U; 
         ITEM  SPACING       U; 
         ITEM  RHSLITERAL    I; 
         ITEM  BIT16         U; 
         ITEM  UBR$RD$DNAT   I; 
         ITEM  ACCEPTSWITCH  I; 
         ITEM  DISPLAYLEN    I; 
         ITEM  DISPLAYSWTCH  I; 
         ITEM  IOPERANDSIZE  I; 
         ITEM  ITALLYCOUNT   I; 
         ITEM  IPOINTER0     I; 
         ITEM  IPOINTER1     I; 
         ITEM  IREPCOUNT     I; 
         ITEM  SCLAUSECOUNT  I; 
         ITEM  ULASTDELIMIT  I; 
         ITEM  UBRTYPE       I; 
         ITEM  SRTEMP        I; 
         ITEM  SRSUBJECT1    I; 
         ITEM  SRSUBJECT2    I; 
         ITEM  SRDELIMITER   I; 
         ITEM  SRSUBDEPTH    I; 
         ITEM  SRSTATUS      I; 
         ITEM  SRAUTOVARY    I; 
         ITEM  SRLENGTH      I; 
         ITEM  SRADDRESS     I; 
         ITEM  SRENDADDRESS  I; 
         ITEM  SRUPPER       I; 
         ITEM  SRLOWER       I; 
         ITEM  SRMIDPOINT    I; 
         ITEM  SRDELETEFLAG  I; 
         ITEM  SROBJECT      I; 
         ITEM  MOSTMINORS    I; 
         ITEM  SRMOSTMINOR   I; 
         ITEM  INITLATTEMP   I; 
         ITEM  LSW           I; 
         ITEM  INCOMPATIBLE  I; 
         ITEM  REPTYPE       I; 
         ITEM  IMPSTATFLG    I; 
         ITEM  READINTOFLAG  I; 
         ITEM  READNEXTFLAG  I; 
         ITEM  PERFMRETURN   I; 
         ITEM  PERFMPATCH    I; 
         ITEM  SUPPRESSDNAT  I; 
         ITEM  PERFMABORT    I; 
         ITEM  REFCOUNTINDX  I; 
         ITEM  RPATCH        I; 
         ITEM  SIZEPATCH     I; 
         ITEM  OVERFLOWLBL   I; 
         ITEM  VERBLINE      I; 
         ITEM  VERBCOLUMN    I; 
         ITEM  OLDPARSTATUS  I; 
         ITEM  BRTBLCOUNT    I; 
         ITEM  PN1           I; 
         ITEM  DEPENDCOUNT   I; 
         ITEM  PARAMCOUNT    I; 
         ITEM  PARAMPATCH    I; 
         ITEM  ENTRYLABEL    I; 
         ITEM  BRTBLPTR      I; 
         ITEM  SPBTLENGTH    I; 
         ITEM  PAIRCOUNT     I; 
         ITEM  UBRRDCDIPTR   I; 
         ITEM  ICOMPOSITE    I; 
         ITEM  FCOMPOSITE    I; 
         ITEM  ICOMPOSITE2   I; 
         ITEM  FCOMPOSITE2   I; 
         ITEM  SENDREFINDX   I; 
         ITEM  RECREFINDX    I; 
         ITEM  DPROCEND      I; 
         ITEM  DLATSPACE     I; 
         ITEM  DLATSPROGRAM  I; 
         ITEM  DLATFTHROUGH  I; 
         ITEM  DLATUSEPROC   I; 
         ITEM  DLATPLOOP     I; 
         ITEM  DLATSORTINP   I; 
         ITEM  DLATSORTOUT   I; 
         ITEM  DLATMERGEOUT  I; 
         ITEM  DPATCH        I; 
         ITEM  PERFORMENTRY  I; 
         ITEM  VERBCODE      I; 
         ITEM  BYTEOFFSET    I; 
         ITEM  CURRNTOFFSET  I; 
         ITEM  MAXOFFSET     I; 
         ITEM  BASEOFFSET    I; 
         ITEM  LATTEMP       I; 
         ITEM  PLTPTR        I; 
         ITEM  DNATLENGTH    I; 
         ITEM  AUXTLENGTH    I; 
         ITEM  PNATLENGTH    I; 
         ITEM  LATLENGTH     I; 
         ITEM  LASTSDEF      I; 
         ITEM  LASTPNDEF     I; 
         ITEM  RFTLENGTH     I; 
         ITEM  DS            I; 
         ITEM  $DUMMY$       I; 
         ITEM  ADR           I; 
         ITEM  DEBUGMODE     I; 
         ITEM  PATCH         I; 
         ITEM  DSBASE        U; 
         ITEM  CSTDEBUGSW    U; 
         ITEM  CSTUNUSEDLEN  I; 
         ITEM  CSTUSEDPTR    U; 
         ITEM  CSTUNUSEDPTR  U; 
         ITEM  CSTLSTUNUSED  U; 
         ITEM  CSTMAXNUM     U; 
         ITEM  CSTCURRENT    U; 
         ITEM  CSTPREVIOUS   U; 
         ITEM  PREVCALCSS$   U; 
         ITEM  JUSTCALCSS$   U; 
         ITEM  RECFIELD      U; 
         ITEM  RFLINE        U; 
         ITEM  RFCOLUMN      U; 
         ITEM  RFLINEFLAG    U; 
         ITEM  RFLINAGEFLAG  U; 
         ITEM  CONDDEPTH     U; 
         ITEM  MNUM          U; 
         ITEM  PREVMNUM      U; 
         ITEM  REFINDEX      U; 
         ITEM  PREVREFINDEX  U; 
         ITEM  SSSWITCH      U; 
         ITEM  SSTYPE        U; 
         ITEM  RELINDEXFLAG  U; 
         ITEM  LITVALUE      I; 
         ITEM  P00           I; 
         ITEM  P01           I; 
         ITEM  P02           I; 
         ITEM  VP            U; 
         ITEM  FROMINDEX     U; 
         ITEM  VARYINDEX     U; 
         ITEM  PREVCOND      U; 
         ITEM  KEY1          I; 
         ITEM  KEY2          I; 
         ITEM  NOOVRFLOWP    I; 
         ITEM  EOPPERFORM    I; 
         ITEM  FILEADDRESS   I; 
         ITEM  ANS           I; 
         ITEM  SFLIT         U; 
         ITEM  FIRSTTIME     U; 
         ITEM  FORMAT        I; 
         ITEM  SUBVERB       I; 
         ITEM  WR$REC        I; 
         ITEM  WR$F          I; 
         ITEM  READL1        I; 
         ITEM  READSTATUS    I; 
         ITEM  READCOND      I; 
         ITEM  PASSDA        I; 
         ITEM  PASSMODE      I; 
         ITEM  DELEM         U; 
         ITEM  DSCOUNT       I; 
         ITEM  SUBMNEM       I; 
         ITEM  REFCTPTR      I; 
         ITEM  SEGMENT       I; 
         ITEM  PREVIOUSLINE  I; 
         ITEM  PARAGLINE     I; 
         ITEM  ALTEREDCHAIN  I; 
         ITEM  MBACHAIN      I; 
         ITEM  BYPASS        I; 
         ITEM  CDMPVC        I; 
         ITEM  LITERAL1      I; 
         ITEM  MODELITERAL   I; 
         ITEM  ACMODE        I; 
         ITEM  ACKEY         I; 
         ITEM  CDMPVCSTRING  C(7) = "C.DMPVC";
         ITEM  LASTCALC      I; 
         ITEM  RELLIST       I; 
         ITEM  TEMP$1        I; 
         ITEM  TEMP$2        I; 
         ITEM  IMPFLG        I; 
         ITEM  VERB$LINE     I; 
         ITEM  VERB$COL      I; 
         ITEM  NEXT$SENTNC   I; 
         ITEM  NSADDRESS     I; 
         ITEM  SAVE$ADDRESS  I; 
         ITEM  DSS$STK$PTR   I; 
         ITEM  SRCH$STK$PTR  I; 
         ITEM  MNUMBER       I; 
         ITEM  MD            I; 
         ITEM  MAXMD         I; 
         ITEM  MGROUPNUMBER  I; 
         ITEM  RMOPERAND1    I; 
         ITEM  RMPRESENT     I; 
         ITEM  BL            I; 
         ITEM  INITSNUMBER   I; 
         ITEM  IGROUPNUMBER  I; 
         ITEM  MAXILX        I; 
         ITEM  CNSOFAR       I; 
         ITEM  MAXPDUSINGID  I; 
         ITEM  CSTLENGTH; 
  
         BASED ARRAY MSTACK [1:10] S(7);
         BEGIN
         ITEM  MODIFIER      U(00,00,60); 
         ITEM  RMTABLENAME   U(01,00,60); 
         ITEM  RMTABLELINE   I(02,00,60); 
         ITEM  RMTABLECOL    I(03,00,60); 
         ITEM  BACKPOINTER   U(04,00,60); 
         ITEM  COUNTINDEX    U(05,00,60); 
         ITEM  SNUMBER       U(06,00,60); 
         END
  
         BASED ARRAY ISTACK [0:0] S(4); 
         BEGIN
         ITEM  INITTEMP      U(00,00,30); 
         ITEM  INITMAX       U(00,30,30); 
         ITEM  INITINCR      U(01,00,30); 
         ITEM  INITBRANCH    U(01,30,30); 
         ITEM  INITNULL      U(02,00,30); 
         ITEM  INITVAR       U(02,30,30); 
         ITEM  INITLEVEL     U(03,00,15); 
         ITEM  INITREFCOUNT  U(03,15,15); 
         ITEM  INITSSNUM     U(03,30,15); 
         ITEM  INITMNUMBER   U(03,45,15); 
         END
  
         ARRAY SFRFKEYSTR [0:4];
         ITEM SFRFKEY U = [ 
  
         X"00 00 00 00 00 00 00 0", 
         X"00 00 00 00 00 00 00 0", 
         X"00 90 90 8F 00 00 92 0", 
         X"90 90 8F 9E 93 92 90 0", 
         X"90 8F 00 00 00 00 00 0"];
  
         ARRAY               [0:48] S(1); 
               BEGIN ITEM 
               PREVCALCSS    U(0,0,15), 
               JUSTCALCSS    U(0,15,15),
               JUSTCALCREFC  U(0,30,15),
               NEWINDEX      U(0,45,15) = [49(0)];
               END
         BASED ARRAY CST [0:0] S(2);
               BEGIN ITEM 
               CSTVARIABLE   U(0,0,18), 
               CSTMNEMONIC1  U(0,0,18), 
               CSTOCCLEN     U(0,18,24),
               CSTMNEMONIC2  U(0,18,24),
               CSTTYPE       U(0,42,18),
               CSTVITALINFO  U(0,0,60), 
               CSTCALCDEPTH  U(1,0,12), 
               CSTDELDEPTH   U(1,12,12),
               CSTREFCTPTR   U(1,24,18),
               CSTLINK       U(1,42,18),
               CSTMOREINFO   U(1,0,60); 
               END
  
         ARRAY NUMSTR [0:2];
         ITEM NUMSTRI U = [ 
  
         X"00 B5 B5 00 00 00 00 0", 
         X"00 00 00 00 00 00 00 0", 
         X"B6 B6 00 00 B6 B6 00 0"];
  
         ARRAY ALPSTR [0:2];
         ITEM ALPSTRI U = [ 
  
         X"00 00 00 00 00 00 00 0", 
         X"B7 00 B7 B7 B7 B7 B7 0", 
         X"B6 B6 00 00 B6 B6 00 0"];
  
         ARRAY KEYSTR [0:2];
         ITEM KEYSTRI U = [ 
  
         X"00 03 03 03 03 00 03 0", 
         X"00 03 07 07 07 07 07 0", 
         X"09 08 01 01 00 00 00 0"];
  
         ARRAY SIGNSTR [0:1]; 
         ITEM SIGNSTRI U = [
  
         X"00 BF C0 C1 00 C0 C0 0", 
          X"00 C2 C3 C0 00 A5 00 0"]; 
  
         ARRAY NONDATAERR [0:0];
         ITEM NONDATAERRI U = 
  
         [X"BA BB BC BD BE 5E B8 0"]; 
  
         ARRAY RSTRING [0:20];
         ITEM RSTRI U = [ 
         X"00 00 00 00 00 F8 F7 0", 
         X"F6 F5 00 C4 6B 00 F9 0", 
         X"00 00 F9 F9 C5 F3 F2 0", 
         X"F9 F4 70 00 00 00 00 0", 
         X"00 F1 F0 EF EE 00 C6 0", 
         X"72 00 00 00 00 00 00 0", 
         X"00 00 ED 00 00 73 00 0", 
         X"F9 00 00 F9 F9 00 00 0", 
         X"EC F9 00 7A F8 F9 F1 0", 
         X"00 F9 F9 00 00 EB F9 0", 
         X"00 7B F7 C5 F0 00 00 0", 
         X"00 00 00 EA 00 00 83 0", 
         X"F6 F3 EF 00 00 00 00 0", 
         X"00 00 00 00 A0 F5 F2 0", 
         X"EE ED EC EB EA 00 00 0", 
         X"EC C7 A1 00 F9 00 00 0", 
         X"F9 F9 00 00 EC F9 00 0", 
         X"00 C4 F4 C6 00 00 00 0", 
         X"00 00 C7 00 00 A2 6B 0", 
         X"70 72 73 7A 7B 83 A0 0", 
         X"A1 00 A2 00 00 00 00 0"];
  
         ARRAY CLASSSTR [0:2];
         ITEM CLASSSTRI U = [ 
  
         X"00 02 02 03 03 00 03 0", 
         X"04 03 01 01 01 01 00 0", 
         X"01 01 03 03 00 00 00 0"];
  
         ARRAY [1:4] S(1);
         ITEM INITIALIZE U; 
  
         ARRAY [1:4] S(1);
         ITEM INCREMENT U;
  
         ARRAY [1:4] S(1);
         ITEM CONDITION U;
  
         # THE NORMAL MOVE STRING MATRIX #
# 
  
                           RECEIVING DATA ITEM
  
                        G    A    AN   ANE  NE   N    B 
         G              0    0    0    0    0    0    0 
         A              0    0    0    0    1B   27   30
         AN             0    0    0    0    0    0    0 
         ANE            0    0    0    0    32   36   31
         NE             0    38   0    0    39   3C   3F
         INTEGER N      0    3D   0    0    0    0    40
         OTHER N        0    3D   4C   4D   0    0    40
         INTEGER LIT    0    59   0    0    0    0    49
         NUMERIC LIT    0    59   5D   5F   0    0    49
         ZERO           0    60   0    0    0    0    0 
         SPACE          0    0    0    0    61   62   4B
         OTHER FIGCON   0    0    0    0    0    0    0 
         QLIT           0    0    0    0    0    0    0 
         BOOLEAN        0    63   0    0    64   65   0 
# 
  
         ARRAY MOVESTRING [13]; 
         ITEM MOVESTRI U = [
  
         X"00 00 00 00 00 00 00 0", 
         X"00 00 00 00 1B 27 30 0", 
         X"00 00 00 00 00 00 00 0", 
         X"00 00 00 00 32 36 31 0", 
         X"00 38 00 00 39 3C 3F 0", 
         X"00 3D 00 00 00 00 40 0", 
         X"00 3D 4C 4D 00 00 40 0", 
         X"00 59 00 00 00 00 49 0", 
         X"00 59 5D 5F 00 00 49 0", 
         X"00 60 00 00 00 00 00 0", 
         X"00 00 00 00 61 62 4B 0", 
         X"00 00 00 00 00 00 00 0", 
         X"00 00 00 00 00 00 00 0", 
         X"00 63 00 00 64 65 00 0"];
  
         # THE SECONDARY STORAGE MOVE STRING MATRIX # 
# 
  
                           RECEIVING DATA ITEM
  
                        G    A    AN   ANE  NE   N    B 
         G              0    44   0    44   44   44   44
         A              44   44   44   44   44   44   44
         AN             0    44   0    44   44   44   44
         ANE            44   44   44   44   44   44   44
         NE             44   44   44   44   44   44   44
         INTEGER N      44   44   44   44   44   44   44
         OTHER N        44   44   44   44   44   44   44
         INTEGER LIT    44   44   44   44   44   44   44
         NUMERIC LIT    44   44   44   44   44   44   44
         ZERO           0    44   0    44   44   44   44
         SPACE          0    44   0    44   44   44   44
         OTHER FIGCON   0    44   0    44   44   44   44
         QLIT           0    44   0    44   44   44   44
         BOOLEAN        44   44   44   44   44   44   44
# 
         ARRAY SSMOVESTRING [13]; 
         ITEM SSDUMMY U = [ 
  
         X"00 44 00 44 44 44 44 0", 
         X"44 44 44 44 44 44 44 0", 
         X"00 44 00 44 44 44 44 0", 
         X"44 44 44 44 44 44 44 0", 
         X"44 44 44 44 44 44 44 0", 
         X"44 44 44 44 44 44 44 0", 
         X"44 44 44 44 44 44 44 0", 
         X"44 44 44 44 44 44 44 0", 
         X"44 44 44 44 44 44 44 0", 
         X"00 44 00 44 44 44 44 0", 
         X"00 44 00 44 44 44 44 0", 
         X"00 44 00 44 44 44 44 0", 
         X"00 44 00 44 44 44 44 0", 
         X"44 44 44 44 44 44 44 0"];
  
         BASED ARRAY MST [0]; 
         ITEM MSTDUMMY; 
  
  
         ARRAY [0:9] S(1);
         ITEM SEARCHSTACK U;
  
         ARRAY [0:1] S(1);
         ITEM CORRLEVEL I;
  
         ARRAY [0:5] S(1);
         ITEM WORD U; 
  
         ARRAY [0:3] S(1);
         BEGIN
         ITEM  SUBSTYPE      U(00,01,03); 
         ITEM  SUBSADR       U(00,04,15); 
         ITEM  LITSIGN       U(00,19,03); 
         ITEM  LITADR        U(00,22,15); 
         END
  
  
         END #PPSTORAGE#
          CONTROL  LIST;     #PPCOMMON2#
