.
.         SWAP COMMAND ACTIVITY
.
.
.         (C)  Copyright 1972-1978  John Walker
.
.         This software is in the public domain
.
          AXR$
          DEFUNCT$
          FANG
          PURE      CODE
.
SWAP*     LA        A0,CDBPC,X8         LOAD PARAMETER ADDRESS
          LX        X9,PBVAL,A0         LOAD FDT ADDRESS
          LA        A0,FDTYPE,X9        LOAD FILE TYPE
          JNTAPE    A0,MSSWAP           CANNOT SWAP MASS STORAGE FILE
          LA,U      A0,TMULTI           LOAD MULTI-REEL TYPE
          SA        A0,FDTYPE,X9        SET THIS IS A MULTI-REEL FILE
          TSWAP$    FDIN,X9             SWAP TO NEXT REEL
          COMPLETE  .                   COMPLETE THE OPERATION
.
MSSWAP    R$DIT     .                   SET UP EDITOR
          E$MSG     SWAPMS              EDIT ERROR MESSAGE
          LA,U      A0,,X9              LOAD FDT ADDRESS
          LMJ       X11,FIST            APPEND FILE AND STATEMENT
          ZAP       .                   ROADBLOCK THE FILE
          COMPLETE  .                   FINISH UP
.
          PURE      DATA
SWAPMS    'UNABLE TO SWAP REELS ON MASS STORAGE !'
          END