*COMDECK  COMDREG  - REGISTER INFORMATION.
                              # REGISTER INFORMATION #
  
     STATUS  RK                    # REGISTER KIND OF VALUE # 
               NUL,                     # REGISTER NOT IN USE # 
               LIT,                     # LITERAL ADDRESS # 
               CON,                     # KNOWN CONSTANT VALUE #
               SRA,                     # SOURCE RECORD ADDRESS # 
               SRW,                     # SOURCE RECORD WORD #
               TRA,                     # TARGET RECORD ADDRESS # 
               TRW,                     # TARGET RECORD WORD #
               SYM,                     # SYMBOL ADDRESS #
               VAL,                     # SYMBOL VALUE #
               EXT,                     # EXTERNAL SYMBOL ADDRESS # 
               EXV ;                    # EXTERNAL SYMBOL VALUE # 
  
     XREF BEGIN 
          ARRAY REGS [0:7] P (4) ; # REGISTER ASSOCIATES #
               BEGIN
               ITEM REGA   U  (0, 0,WL) ; # ADDRESS (A) REGISTERS # 
               ITEM KINDA S:RK(0, 0, 5) ;    # KIND OF VALUE #
               ITEM LOCKA  B  (0, 5, 1) ;    # LOCKED REGISTER FLAG # 
               ITEM WORDA  I  (0,24,18) ;    # WORD OFFSET #
               ITEM ITEMA  I  (0,42,18) ;    # ITEM POINTER # 
  
               ITEM REGB   U  (1, 0,WL) ; # INDEX (B) REGISTERS # 
               ITEM KINDB S:RK(1, 0, 5) ;    # KIND OF VALUE #
               ITEM LOCKB  B  (1, 5, 1) ;    # LOCKED REGISTER FLAG # 
               ITEM WORDB  I  (1,24,18) ;    # WORD OFFSET #
               ITEM ITEMB  I  (1,42,18) ;    # ITEM POINTER # 
  
               ITEM REGX   U  (2, 0,WL) ; # OPERAND (X) REGISTERS # 
               ITEM KINDX S:RK(2, 0, 5) ;    # KIND OF VALUE #
               ITEM LOCKX  B  (2, 5, 1) ;    # LOCKED REGISTER FLAG # 
               ITEM FBITX  I  (2, 6,18) ;    # BIT POS IN REG BIT 0 # 
               ITEM WORDX  I  (2,24,18) ;    # WORD OFFSET #
               ITEM ITEMX  I  (2,42,18) ;    # ITEM POINTER # 
                                          # USED IFF KINDX[I] = S"CON" #
               ITEM VALCX  C  (3, 0,WC) ;    # VALUE AS CHARACTER # 
               ITEM VALRX  R  (3, 0,WL) ;    # VALUE AS REAL #
               ITEM VALUX  U  (3, 0,WL) ;    # VALUE AS INTEGER # 
               END
          ITEM CFRN I ;            # CURRENT FETCH REGISTER NO. (1-5) # 
          ITEM CSRN I ;            # CURRENT STORE REGISTER NO. (6-7) # 
          ITEM CSRA I ;            # CORRENT STORE REGISTER ADDRESS # 
          ITEM CSRI ;              # CURRENT STORE REGISTER ITEM PTR #
          END 
