CHANGEFILE

(GIN Macro)

Defined in: RING-MACROS

Used in: CONTXCOD60, INCEOT865, LIBREQCA867, LOADERR70, LOADFIN860, LOADPROG865, RETURN867, SAVEFILE860, SJOPEN863

CHANGEFILE.mac.txt
 F298 ...[??? CHANGEFI SECT FILE FGN 20 DOC  
 F2F2    #   
 F2YL    # THIS MACRO CHANGES A FILE OF GIVEN LEVEL TO CURRENT ACTIVITY TO   
 F3D=    # A GIVEN LEVEL OF A SPECIFIED ACTIVITY.
 F3XW    #   
 F4CG    #MAC           CHANGEFILE   
 F4X6    #ACC  %A
 F5BQ    #SKI
 F5WB    (   
 F6B2          SMO      FX2  
 F6TL          STO   %A ACOMMUNE3
 F7*=    )   
 F7SW    #ACC  %A
 F8#G    (   
 F8S6          LDX   0  %A   
 F9?Q          SMO      FX2  
 F9RB          STO   0  ACOMMUNE3
 F=?2    )   
 F=QL    #STR           %B   
 F?==    #SKI
 F?PW    (   
 F#9G          SMO      FX2  
 F#P6          STOZ     ACOMMUNE2
 F*8Q    )   
 F*NB    #STR           %B   
 FB82    (   
 FBML          LDN   0  %B   
 FC7=          SMO      FX2  
 FCLW          STO   0  ACOMMUNE2
 FD6G    )   
 FDL6    #STR           %C   
 FF5Q    #SKI
 FFKB    (   
 FG52          SMO      FX2  
 FGJL          STOZ     ACOMMUNE1
 FH4=    )   
 FHHW    #STR           %C   
 FJ3G    (   
 FJH6          LDN   0  %C   
 FK2Q          SMO      FX2  
 FKGB          STO   0  ACOMMUNE1
 FL22    )   
 FLFL          DOWN     CHANFILE,1   
 FL^=    #NOR