STEPWRITE

(GIN Macro)

Used in: BMAPTWO860, BMSJRNL866, CLOSEALT864, DEAD867, DICTWELL867, FHOBJBL860, INCCHECK860, INCEND865, INCRV850, INCTAPES867, LISTEND867, LISTFIND867, LISTPROC867, NEWA867, REGEN865, RENAMAG864, RENAMDIR, SYSPROP867, TAPERING867, WLE862, WLF862

STEPWRITE.mac.txt

 8^BD ...[??? STEPWRIT SECT FILE FGN 19 DOC  
 8^L=    #MAC  STEPWRITE 
 925W    #STR  %A
 92KG    #SKI
 9356          TOPFCA   2
 93JQ    #STR  %A
 944B    (   
 94J2 ...      LOADNUM  3,%A 
 953L          LDX   2  FX2  
 95H=          FFCA  
 962W    )   
 96GG          PSTAC    1,2  
 9726          BFCBX    1,1  
 97FQ          JBC      M2STEPWRITE,2,BAMCLEAN  [J IF NOT OPEN IN CLEAN MODE 
 97^B          GEOERR   1,CANTSTWR   
 98F2    M2STEPWRITE 
 98YL          JBC      M1STEPWRITE,1,BFCARE    [J IF NOT CAREFUL
 99D=          LDX   2  FREADBLOCK(2)
 99XW          SBN   2  FBLKS-1  
 9=CG          MAPBCH   2,1  
 9=X6          BNZ   0  M1STEPWRITE         [J.IF BLK ALREADY SUBBED 
 9?BQ          SUBSTITUTE %A 
 9?WB    M1STEPWRITE 
 9#B2          STEPAGAIN %A  
 9#TL          STEPREWRITE %A
 9**=    #NOR