*DECK S$ULODS 
          IDENT  S$ULODS
          TITLE  S$ULODS -  UNLOAD CAPSULE FROM STATIC LOAD 
          COMMENT  UNLOAD CAPSULE FROM STATIC LOAD
          SPACE  4
**        S$ULODS -  UNLOAD CAPSULE FROM STATIC LOAD
* 
*     CALLING SEQUENCE- 
*         S$ULODS("<NAME>");
* 
*     DOES- 
*         UNLOADS CAPSULE NAMED <NAME>
* 
  
  
          ENTRY  S$ULODS
 S$ULODS  SUBR               ENTRY/EXIT WORD
  
*     NOTE ELAPSED TIME AND CP TIME   (OPTION)
  
          IFPERFM              IF PERF MEASUREMENT WANTED 
            SX6    X1          SAVE ORIGINAL X1 
            SA6    SAVEX1 
            SX6    3           CODE FOR STARTING TO UNLOAD A CAPSULE
                               X1 = ADDRESS OF (10H_CAPSULE-NAME) 
            CALL   S$P         WRITE INFO TO *ZZZZZ3U*, *ZZZZZ3V* 
           *SAVES  AX1
            ENDIF 
  
*CALL ZFN 
*     UNLOAD THE CAPSULE
  
          SA1    GROUP       42/0L_GROUP-NAME, 18/GROUP-SIZE
*                     X2 HAS 42/0L_CAPSULE-NAME, 18/0 
          SX4    S$PASS      ADDRESS OF LIST OF ADDRESSES OF PASSLOCS 
          CALL   FDL.ULC     UNLOAD THE S$MAIN CAPSULE
  
*     NOTE ELAPSED TIME AND CP TIME   (OPTION)
  
          IFPERFM            IF PERFORMANCE MEASUREMENT WANTED, 
            SX6    4           CODE FOR FINISHING UNLOADING A CAPSULE 
            SA1    SAVEX1      X1 = (10H_CAPSULE-NAME)
            CALL   S$P         WRITE INFO TO *ZZZZZ3U*, *ZZZZZ3V* 
            ENDIF 
  
*     EXIT FROM S$ULODS 
  
          EXIT
          SPACE  4
          IFPERFM              IF PERF MEASUREMENT WANTED 
 SAVEX1   BSS    1           ORIGINAL VALUE OF X1 
          ENDIF 
*CALL CAPLIB
          SPACE  4
          END 
