*DECK S$ULOAD 
          IDENT  S$ULOAD
          TITLE  S$ULOAD - UNLOAD A CAPSULE 
          COMMENT  UNLOAD A CAPSULE 
          SPACE  4
          LIST   F
**        S$ULOAD  - UNLOAD A CAPSULE 
* 
*     CALLING SEQUENCE- 
*         S$ULOAD("<NAME>") ; 
* 
*     DOES- 
*         UNLOADS CAPSULE NAMED <NAME>
* 
          ENTRY S$ULOAD 
 S$ULOAD  SUBR               ENTRY/EXIT WORD
  
*     WRITE DYNAMIC MEMORY MAP
  
          IFMAP              IF DYNAMIC MEMORY MAP WANTED,
            SX6    A1          SAVE ADDRESS OF ACTUAL PARAMETER LIST
            SA6    SAVEA1 
            SA1    =0          POINT TO ZERO-WORD APLIST TERMINATOR 
            CALL   MAP         WRITE MAP TO SPYLIST 
            SA1    SAVEA1      RESTORE ADDRESS OF ACTUAL PARAMETER LIST 
            SA1    X1 
            ENDIF 
  
*     NOTE ELAPSED TIME AND CP TIME   (OPTION)
  
          IFPERFM              IF PERF MEASUREMENT WANTED 
            SX6    X1          SAVE ORIGINAL VALUE OF X1 FOR LATER
            SA6    SAVEX1 
            SX6    3           CODE FOR STARTING TO UNLOAD A CAPSULE
            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 PERF MEASUREMENT WANTED 
            SX6    4           CODE FOR FINISHING UNLOADING A CAPSULE 
            SA1    SAVEX1      X1 = ADDRESS OF (10H_CAPSULE-NAME) 
            CALL   S$P         WRITE INFO TO *ZZZZZ3U*, *ZZZZZ3V* 
            ENDIF 
  
*     EXIT FROM S$ULOAD 
  
          EXIT
          SPACE  4
          IFPERFM              IF PERF MEASUREMENT WANTED 
 SAVEX1   BSS    1           ORIGINAL VALUE OF X1 
          ENDIF 
  
          IFMAP              IF DYNAMIC MEMORY MAP WANTED,
 SAVEA1     BSS    1           ADDRESS OF ACTUAL PARAMETER LIST 
            ENDIF 
  
*CALL CAPLIB
          SPACE  4
          END 
