COMTDFP 
COMMON
                                                                      # 
          CTEXT  COMTDFP - *SSDEF* CONTROL STATEMENT PARAMETERS.
                                                                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN     # COMTDFP #
  
                                                                      # 
***       COMTDFP - ADDRESSES FOR THE PROCESSED *SSDEF* PARAMETERS. 
* 
*         *COMTDFP* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE 
*         AREA TO HOLD THE *SSDEF* PROCESSED PARAMETERS.
  
  
  
  
*         ADDRESSES AND THE DEFAULT VALUES FOR THE *SSDEF*
*         CONTROL STATEMENT AND THE DIRECTIVE PARAMETERS. 
  
          USE    /TDFPCOM/
  
 FM       DATA   -1          FAMILY NAME
 SM       DATA   -1          SM NUMBER
          USE 
  
  
*         FOLLOWING ARE THE RELATIVE WORD POSITIONS OF THE PROCESSED
*         PARAMETERS.  ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN
*         THIS ORDER. 
                                                                      # 
#FM       #DEF#  FM+0        # FM$WORD #0#;  #*FM*# 
#SM       #DEF#  FM+1        # SM$WORD #1#;  #*SM*# 
                                                                      # 
          COL    12 
                                                                      # 
           DEF DFARGL      #2#;  # LENGTH OF ARGUMENT BUFFER #
  
           COMMON TDFPCOM;
  
             BEGIN  # COMMON AREA TDFPCOM # 
  
                                                                      # 
*         ARRAY TO HOLD THE PROCESSED *SSDEF* PARAMETERS. 
                                                                      # 
  
             ARRAY DFARGUMENTS [0:0] P(DFARGL); 
               BEGIN # ARRAY DFARGUMENTS #
               ITEM DARG$FM    C(FM$WORD,00,07);  # FAMILY NAME # 
               ITEM DARG$IFM   I(FM$WORD,00,60);  # INTEGER NAME #
               ITEM DARG$SM    C(SM$WORD,00,01);  # SM NUMBER # 
               ITEM DARG$ISM   I(SM$WORD,00,60);  # INTEGER SM #
               ITEM DARG$IRSM  I(SM$WORD,00,06);  # RANGE INTEGER # 
               ITEM DARG$IRSMR I(SM$WORD,06,54);  # *SM* OVERFLOW # 
               END  # ARRAY DFARGUMENT #
  
             END  # COMMON AREA TDFPCOM # 
  
           END  # COMTDFP # 
                                                                      # 
          COL    30 
          ENDX                                                        # 
                                               CONTROL LIST;
