         SYSTEM   SIG7FDP
         REF      M:LL
KEYN     DATA     X'4000000',X'F0000000'
         PZE      *14
         DATA     FN,36,KEYN
INAC     TEXTC    'FROM ACCOUNT ='
OUTAC    TEXTC    'TO ACCOUNT ='
USAC     TEXTC    'WRITE ACCOUNT ='
FILE     TEXTC    'FILENAME ='
TOPN     GEN,8,7,17 20,4,M:EI
         DATA     X'C0200001'
         DATA     TABN,TABN,FPAR
         DATA     X'1000909'
TFN      RES      9
         DATA     X'2010202'
TOAC     RES      2
NAC      DATA     4
         BOUND    8
TSICHK   TEXT     ' SI  TSI'
IAC      RES      40
DMESS    TEXTC    'TO ACCOUNT=12345678  XFROM ACCOUNT=',;
                  '12345678  XWRITE ACCOUNT='
IACM     EQU      DMESS+9
OACM     EQU      DMESS+3
OOPN     GEN,8,24 20,M:EO
         DATA     X'C0000001',ERR,ERR
         DATA     X'2000202'
OAC      RES      2
FPAR     DATA     X'1000909'
FN       RES      90
IOPN     GEN,8,24 20,M:EI
         DATA     X'C0000000',ERR,ERR
UOPN     GEN,8,24 20,M:EI
         DATA     X'C1200000',ERR,ERR,4,0
UCLS     GEN,8,24 21,M:EI
         DATA     X'102'
WRITE    GEN,8,24 17,M:EO
         DATA     X'F8000030'
         DATA     ERR,ERR,PEND,4,KEY
PEND     TEXT     '+END'
KEY      DATA     X'398967F'
ICLS     GEN,8,24 21,M:EI
         DATA     0
OCLS     GEN,8,24 21,M:EO
         DATA     X'80000000',2
MOVE     GEN,8,24 14,M:EI
         DATA     X'F8000000'
         DATA     ERR,ERR,M:EO,BUF,140
BUF      RES      35
ERRM     TEXTC    'I/O ERROR - MOVE FAILED'
TYPE     DATA     X'1000000',X'80000000',X'8000000E'
ERR      LB,10    10
         CI,10    6
         BE       *8
         LI,14    ERRM
         CAL1,2   TYPE
         LI,2     X'20'
         CH,2     M:EI
         BAZ      %+2
         CAL1,1   ICLS
         CH,2     M:EO
         BAZ      %+4
         MTW,-1   OCLS+2
         CAL1,1   OCLS
         MTW,1    OCLS+2
         B        NFN
BUSYM    TEXTC    'FILE BUSY - TRY LATER'
BUSY     LI,14    BUSYM
         CAL1,2   TYPE
         B        ERR+2
         DATA     X'6010202'
UAC      RES      2
ROOMM    TEXTC    'TOO MANY ACCOUNTS - MOVE ABORTED'
ROOM     LI,14    ROOMM
         CAL1,2   TYPE
         B        NFN
PENDM    TEXTC    'PLUS END BUILT'
ACMSG    TEXTC    'MOVED FROM XXXXXXXX'
ACM      EQU      %-2
START    LW,1     X'4F'
         LCI      2
         LM,2     1,1
         STM,2    IAC
         STM,2    OAC
         STM,2    IAC+2
         STM,2    IACM
         STM,2    OACM
         LD,2     TSICHK
         LI,1     7
TSI0     CB,2     IAC,1
         BE       STARTP-1
         LI,14    DMESS
         LI,11    X'1540'-'X '
         AWM,11   IACM+2
         AWM,11   OACM+2
TSI1     CI,3     X'BF'
         BAZ      NUS+1
         CB,3     IAC,1
         BNE      STARTP
         STB,2    IAC+2,1
         STB,2    IACM,1
         SLD,2    -8
         BDR,1    TSI1
         BDR,1    TSI0
STARTP   LI,14    OUTAC
         BAL,11   GAC
         STM,2    IAC
         STM,2    OAC
         LI,1     0
GACL     AI,1     2
         STW,1    NAC
         LI,14    INAC
         BAL,11   GAC
         STM,2    IAC,1
         CB,4     2
         BNE      GACL
NUS      LI,14    USAC
         BAL,11   GAC
         STM,2    UAC
         CB,4     2
         BNE      %+2
         CAL1,9   1
NFN      LI,14    FILE
         CAL1,2   KEYN
         MTB,-1   FN
         BEZ      NUS
         LCI      8
         LM,1     FN
         STM,1    TFN
GFP00    LI,1     0
         B        TABN1
GFP01    CAL1,1   TOPN
         LI,14    ACMSG
         CAL1,2   TYPE
         CI,1     0
         BNE      COPY
GFP      LI,14    FPAR
         LI,3     3
         LI,1     1
GFP1     LB,4     *14
         CI,4     6
         BE       GFP2
         LB,4     *14,3
         LB,5     *14,1
         BNEZ     %+4
         AW,14    4
         AI,14    1
         B        GFP1
GFP3     LW,5     =X'6010000'
         STW,5    *14
         STW,5    *14,1
GFP2     LW,5     *14,1
         CW,5     ='NONE'
         BE       GFP3
         LI,2     2
         LB,4     *14,2
         STB,4    *14,3
         MTB,2    *14,2
         MTB,2    *14,3
         STB,1    *14,1
         AI,14    1
         LCI      2
         LM,2     UAC
         STM,2    *14,4
         CI,4     38
         BGE      ROOM
         AI,4     -1
GFP4     CW,3     *14,4
         BDR,4    %+1
         BNE      %+3
         CW,2     *14,4
         BE       NFN
         BDR,4    GFP4
         AI,14    -3
         LCI      2
         LM,2     UCLS
         STM,2    *14
         CAL1,1   UOPN
         CAL1,1   *14
         B        NFN
COPY     LCI      3
         LM,1     UAC-1
         STM,1    FPAR+10
         CAL1,1   OOPN
         CAL1,1   IOPN
         CAL1,1   MOVE
         CAL1,1   ICLS
         CAL1,1   OCLS
         B        NFN
GAC      CAL1,2   KEYN
         LCI      2
         LM,2     FN
         LB,5     2
         LB,4     FN+2
         STB,4    2
         SCD,2    8
         AI,5     -9
         LI,4     ' '
         STB,4    4,5
         BIR,5    %-1
         LCI      2
         B        *11
TABN     LB,10    10
         CI,10    20
         BE       BUSY
         CI,10    3
         BNE      ERR
         AI,1     2
TABN1    LCI      2
         LM,2     IAC,1
         STM,2    TOAC
         STM,2    ACM
         CW,1     NAC
         BL       GFP01
         LCI      3
         LM,1     UAC-1
         STM,1    FPAR+10
         CAL1,1   OOPN
         CAL1,1   WRITE
         CAL1,1   OCLS
         LI,14    PENDM
         CAL1,2   TYPE
         B        NFN
M:EI     DSECT    2
         DATA     1,0,X'A000000',0,0,X'80000000',EIFLP,0
         DATA     0,0,EIKBUF,0,0,0,0,0,0,0,0,0,0,0
EIFLP    DATA     X'1000008'
         RES      8
         DATA     X'2010002'
         RES      2
EIKBUF   RES      8
M:EO     DSECT    2
         DATA     1,2**17,X'A000000',0,0,X'80000022',EOFLP,0
         DATA     0,0,EOKBUF,0,X'3000000',0,0,0,0,0,0,0,0,0
EOFLP    DATA     X'1000008'
         RES      8
         DATA     X'2000002',0,0
         DATA     X'6010026'
         RES      38
EOKBUF   RES      8
         END      START
