TAPEOPEN

(GIN Macro)
Used in: DTSTART867, NEWOWN865, NEWPW867, RENAMDIR, SCHEDMTA860, SCHEDMTX867
TAPEOPEN.mac.txt
 3R*Y ...[??? TAPEOPEN SECT FILE FGN 4 DOC   
 3RKQ    #MAC  TAPEOPEN  
 3S5B    #STR           %B,0 
 3SK2          LDX   0  %B   
 3T4L          LDX   2  FX2  
 3TJ=          STO   0  ACOMMUNE3(2) 
 3W3W    #STR           %C   
 3WHG    (   
 3X36    #STR           %C,READ  
 3XGQ    (   
 3Y2B    #STR           %C,WRITE 
 3YG2    !              %C SHOULD BE 'READ', 'WRITE' OR OMITTED  
 3Y^L    )   
 3^F=    )   
 3^YW    #STR           %C,READ  
 42DG    #STR
 42Y6    (   
 43CQ          STOZ     ACOMMUNE4(2) 
 43XB          LDN   0  1
 44C2          STO   0  ACOMMUNE5(2) 
 44WL    )   
 45B=    #STR           %C,WRITE 
 45TW    #STR
 46*G    (   
 46T6          LDN   0  1
 47#Q          STO   0  ACOMMUNE4(2) 
 47SB          STO   0  ACOMMUNE5(2) 
 48#2    )   
 48RL    #STR           %C   
 49?=    #STR
 49QW    (   
 4==G          STOZ     ACOMMUNE4(2) 
 4=Q6          STOZ     ACOMMUNE5(2) 
 4?9Q    )   
 4?PB          BRN      M2TAPEOP 
 4#92 ...M0TAPEOP       +A%C+A%D+A%E+A%F+A%G+A%H+A%I+A%J+A%K 
 4#NL ...M1TAPEOP       +E%C+E%D+E%E+E%F+E%G+E%H+E%I+E%J+A%K 
 4*8=    M2TAPEOP
 4*MW          LDX   1  FX1  
 4B7G          ADN   1  M0TAPEOP 
 4BM6          ADN   2  ACOMMUNE1
 4C6Q          MOVE  1  2
 4CLB          DOWN     LIBSEC,4 
 4D62          BRN      %A   
 4DKL    #NOR