. . 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