*COMDECK FDLCOM 
          LIST   -L          *CALL LDRCOM AT THIS IDENT + 1 
*CALL LDRCOM
          LIST   *
          SPACE  4,10 
****      ERROR CODES.
  
  
 ERR.AOK  EQU    0           NO ERROR 
 ERR.BLL  EQU    1           BAD LIBRARY LIST 
 ERR.UGN  EQU    2           UNKNOWN GROUP NAME 
 ERR.UCN  EQU    3           UNKNOWN CAPSULE NAME 
 ERR.BCF  EQU    4           BAD CAPSULE FORMAT 
 ERR.BPF  EQU    5           BAD PASSLOC FORMAT 
 ERR.CIM  EQU    6           CAPSULE ALREADY IN MEMORY
 ERR.COC  EQU    7           CAPSULE / OVCAP CONFUSION
 ERR.GHC  EQU    10B         GROUP HAS CAPSULES 
****
          SPACE  4,10 
*         CONSTANTS.
  
  
 RA65     EQU    65B
 RA104    EQU    104B 
          SPACE  4
*         REGISTER SAVE AREA.  MAINTAIN ORDER A0, B2, B3, X5, X0 - X4.
  
  
          USE    /FDL.COM/
 COMF     BSS    0           FWA OF COMMON AREA 
  
 DC       CON    0           DIRECTORY CHAIN
 CC       CON    **          CAPSULE CHAIN
 EA       CON    **          ENTRY ADDRESS
  
 SVA0     BSS    1           (A0) 
 SVB2     BSS    1           (B2) 
 SVB3     BSS    1           (B3) 
 SVX5     BSS    1           (X5) 
 SVX0     BSS    1           (X0) 
 SVX1     BSS    1           (X1) = GROUP NAME AND SIZE 
 SVX2     BSS    1           (X2) = CAPSULE NAME
 SVX3     BSS    1           (X3) = LIBRARY LIST POINTER
 SVX4     BSS    1           (X4) = PASSLOC LIST POINTER
 T1       CON    0           TEMPORARY STORAGE
 T2       CON    0           TEMPORARY STORAGE
 T3       CON    0           TEMPORARY STORAGE
 T4       CON    0           TEMPORARY STORAGE
 T5       CON    0           TEMPORARY STORAGE
  
 CM       BSS    3           *DBUG.CM* APLIST 
  
 COML     BSS    0           LWA+1 OF COMMON AREA 
          USE    *
