*COMDECK  UDTBLD
 UDTBLD   CTEXT  UDTBLD - USE/DEF TABLE FORMAT DEFINITIONS
  
**        UA. - FORMAT OF USE/DEF INDEX TABLE DURING CHAINING PHASE 
  
          DESCRIBE UA.,60 
          DEFINE 5
 CR       DEFINE 1
 HL       DEFINE 18          HASH LINK
 CA       DEFINE 18          BIAS ( IF CR " 0, THEN CA = -0 ) 
 IH       DEFINE 18          BASE ( SYMBOL ORDINAL )
  
 CAIH     DEQU   IH,36
 UD       SPACE  2
**        UD. - FORMAT OF USE/DEF TABLE AFTER CHAINING
* 
*         ENTRY  0 - SPOIL ENTRY ( NO OPTIMIZATION POSSIBLE ) 
*                1 - LOAD ONLY VARIABLES ( A0+K ) 
* 
*         WORD 2 = 12/P(BITN),30/,18/WI ( WORD INDEX )
  
          DESCRIBE UD.,60 
 DEFR     DEFINE 1           DEFINED IN REGION
 DEF      DEFINE 1           IH/CA DEFINED IN BLOCK 
 DBU      DEFINE 1           DEFINITION BEFORE USE
 USE      DEFINE 1           USE
 ^RD      DEFINE 1           NOT RECURSIVELY DEFINED
 IST      DEFINE 1           INTERFERING STORE ( RJX, ETC. )
  
 STC      DEFINE 9           STORE COUNT
 RF       DEFINE 1           SHORT USAGE IN A LOOP
 FP       DEFINE 1           IH/CA IS A F.P.
          DEFINE P.FP-P.COM-1 
 COM      DEFINE 1           IH/CA IS IN COMMON 
          DEFINE 5-P.FP+P.COM 
 BMI      DEFINE 18          INDEX TO BASE MEMBER ( CM " 0 )
 CM       DEFINE 1           CLASS MEMBER ( NON BASE MEMBER OF EQV CLASS )
 CR       DEFINE 1           CLASS REPRESENTATIVE 
 ECL      DEFINE 18          EQUIV CHAIN LINK ( TO NEXT ON CHAIN )
  
 DEFB     DEQU   DEF,2       DEF BITS ( REGION AND BLOCK )
 MV       DEQU   USE,3       MARKED VARIABLE ( USE, DBU, DEF )
 CB       DEQU   CR,2        CLASS BITS 
 SMS      DEQU   STC,2       STORE MOTION SPOIL FOR VARS DEF IN INNERLP 
 R2       SPACE  2
**        R2. - FORMAT OF *R2* WORD OF *BOS* OF BLOCK WRITTEN TO MASS 
*                STORAGE
  
          DESCRIBE R2.,60 
 UXR      DEFINE 1           =1 IF USER EXT REFS IN BLOCK 
          DEFINE 17 
 MRA      DEFINE 24          MACHINE REGISTERS AVAIL
 TXTL     DEFINE 18          *TXT* LENGTH OF BLOCK
  
          ENDX
