*COMDECK REGTABL                                                         REGTABL
          CONTROL  NOLIST;   #REGTABL#
  
          DEF  DEFINE #DEF#;
*CALL REGDEFS 
          COMMON  REGTABL;
              BEGIN 
              ARRAY [0:RG$LIM] S(RG$SIZE);
                  BEGIN 
                  ITEM  REGGROUP       RG$GROUP;
                  ITEM  REGWORD0       RG$WORD0;
                  ITEM  REGGATOM1      RG$GATOM1; 
                  ITEM  REGGCODE       RG$GCODE;
                  ITEM  REGLATADDR     RG$LATADR; 
                  ITEM  REGGPTR        RG$GPTR; 
                  ITEM  REGGSCODE      RG$GSCODE; 
                  ITEM  REGGATOM2      RG$GATOM2; 
                  ITEM  REGGCODETWO    RG$GCODE2; 
                  ITEM  REGGPTRTWO     RG$GPTR2;
                  ITEM  REGGSCODETWO   RG$SCODE2; 
                  ITEM  REGDNATADDR    RG$DNATADDR; 
                  ITEM  REGFNATADDR    RG$FNATADDR; 
                  ITEM  REGPNATADDR    RG$PNATADDR; 
                  ITEM  REGWORD2       RG$WORD2;
                  ITEM  REGSUBSC       RG$SUBSC;
                  ITEM  REGLITFLAG     RG$LITFLG; 
                  ITEM  REGLITSGN      RG$LITSGN; 
                  ITEM  REGLITIMM      RG$LITIMM; 
                  ITEM  REGLITLEN      RG$LITLEN; 
                  ITEM  REGLITPLT      RG$LITPLT; 
                  ITEM  REGWORDINDX    RG$WORDINDX; 
              ITEM  REGWORD3       RG$WORD3;
                  ITEM  REGLEVEL       RG$LEVEL;
          ITEM  REGSYNC  RG$SYNC; 
                  ITEM  REGAUXTADDR    RG$AXADDR; 
                  ITEM  REGSIGNBIT   RG$SGNBIT; 
                  ITEM  REGNUMLEN    RG$NUMLEN; 
                  ITEM  REGPOINT     RG$POINT;
                  ITEM  REGTYPE      RG$TYPE; 
                  ITEM  REGITMLEN    RG$ITMLEN; 
                  ITEM  REGTREG      RG$TREG; 
                  ITEM  REGCHARPOS   RG$CHRPOS; 
                  ITEM  REGJUST      RG$JUST; 
                  ITEM  REGWORD4     RG$WORD4;
                  END 
              END  #REGTABL#
  
          CONTROL  LIST;     #REGTABL#
