FILEAUTW

(GIN Macro)

Used in: APPEND864, CLOSEDIR867, COMPRESS864, DELETE864, DROBJ864, EDOBJ864, MTCODE864, MTOBJ864, PERUSFIL84, RAND864, READFILE84, REWRITE864

FILEAUTW.mac.txt

 7G2S ...[??? FILEAUTW SECT FILE FGN 11 DOC  
 7G=L    #MAC  FILEAUTW  
 7G#3 ...#   
 7G*D ...#STR  %B
 7GBT ...#DEF  M2FILEAUTW = BSET+BOBJ&(%B)   
 7GD= ...#OPT  M2FILEAUTW = 0
 7GFM ...#   
 7GH4 ...#STR  NOCHECK,%G
 7GJF ...#DEF  M3FILEAUTW = 0
 7GKW ...#OPT  M3FILEAUTW = 1
 7GM? ...#   
 7GNN ...#DEF  M4FILEAUTW = M2FILEAUTW^M3FILEAUTW<1$1
 7GQ5 ...#   
 7GRG ...#   
 7GSX ...      FILEA    %A,%C,%D 
 7GWN ...      SMO      FX2  
 7GYX ...      LDX   2  FPTR                [X2-> BUFFER 
 7G^L ...#SKI  M4FILEAUTW
 7H2* ...(   
 7H36 ...      CHECKBL  1,2,M1FILEAUTW   
 7H5* ...      DOWN     READFAIL,5          [GO TO GEOERR
 7H7J ...M1FILEAUTW  
 7H8P ...)   
 7H9W    #STR  %C
 7HPG    #SKI
 7J96          WRITEAUT %B,BSBS,,GEN1,GEN2,%E,%F 
 7JNQ    #STR  %C
 7K8B          WRITEAUT %B,%C,,GEN1,GEN2,%E,%F   
 7KD8 ...#FRE  M2FILEAUTW,M3FILEAUTW,M4FILEAUTW  
 7KN2    #NOR