*COMDECK REGDEFS
          DEFINE  RG$LIM#49#; 
          DEFINE  RG$SIZE#5#; 
          DEF  RG$GROUP#C(0,0,40)#; 
          DEF  RG$WORD0#I(0,0,60)#; 
          DEF  RG$GATOM1#U(0,0,30)#;
          DEF  RG$GCODE#U(0,0,6)#;
          DEF  RG$LATADR#U(0,6,15)#;
          DEF  RG$GPTR#U(0,6,15)#;
          DEF  RG$GSCODE#U(0,21,9)#;
          DEF  RG$GATOM2#U(0,30,30)#; 
          DEF    RG$GCODE2#U(0,30,6)#;
          DEF    RG$GPTR2#U(0,36,15)#;
          DEF    RG$SCODE2#U(0,51,9)#;
          DEF  RG$DNATADDR#I(1,0,60)#;
          DEF  RG$FNATADDR#I(1,0,60)#;
          DEF  RG$PNATADDR#I(1,0,60)#;
          DEF  RG$WORD2#I(2,0,60)#; 
          DEF  RG$SUBSC#U(2,0,8)#;
          DEF  RG$LITFLG#U(2,8,1)#; 
          DEF  RG$LITSGN#U(2,9,1)#; 
          DEF  RG$LITIMM#U(2,10,1)#;
          DEF  RG$LITLEN#U(2,11,10)#; 
          DEF  RG$LITPLT#U(2,21,18)#; 
          DEF  RG$WORDINDX#I(2,42,18)#; 
          DEF  RG$WORD3#U(3,0,60)#; 
          DEF  RG$LEVEL#U(3,0,7)#;
          DEF    RG$SYNC#U(3,7,1)#; 
          DEF  RG$AXADDR#U(3,42,18)#; 
          DEF  RG$SGNBIT#U(4,0,1)#; 
          DEF  RG$NUMLEN#U(4,1,7)#; 
          DEF  RG$POINT#I(4,8,8)#;
          DEF  RG$TYPE#U(4,16,5)#;
          DEF  RG$ITMLEN#U(4,21,17)#; 
          DEF  RG$TREG#U(4,38,17)#; 
          DEF  RG$CHRPOS#U(4,55,4)#;
          DEF  RG$JUST#U(4,59,1)#;
          DEF  RG$WORD4#U(4,0,60)#; 
