RINGFILE

(GIN Macro)

Defined in: RING-MACROS

Used in: BMINDEX866, CHANFILE8, OPENEND865, ORELEND860

RINGFILE.mac.txt

 #Y#Y ...[??? RINGFILE SECT FILE FGN 20 DOC  
 #YJQ    #MAC  RINGFILE  
 #^4B    [ THIS MACRO PUTS THE FILE ELEMENT POINTED TO IN %A INTO THE FILE RING  
 #^J2    [ OF THE CURRENT ACTIVITY AT THE TOP LEVEL AND UPDATES FGENERAL1
 *23L    #SKI  %B
 *2H=     MOD LDX 0 FILERING,%B  
 *32W    #SKI  %B
 *3GG    #SKI
 *426    (   
 *4FQ          SMO      FX2  
 *4^B          LDX   0  FILERING            [PUTS POINTER TO NEW LEVEL 1 FILE
 *5F2    )   
 *5YL     MOD STO 0 FPTRF,%A 
 *6D=          SMO      0                   [PUTS %A IN BACK POINTER OF LEVEL 1  
 *6XW          STO   %A BPTRF               [ELEMENT 
 *7CG    #SKI  %B
 *7X6     MOD LDN 0 FILERING,%B  
 *8BQ    #SKI  %B
 *8WB    #SKI
 *9B2    (   
 *9TL          SMO      FX2  
 *=*=          LDN   0  FILERING            [PUTS POINTER TO BASE OF FILE RING IN
 *=SW    )   
 *?#G      MOD STO 0 BPTRF,%A
 *?S6    #SKI  %B
 *#?Q     MOD STO %A FILERING,%B 
 *#RB    #SKI  %B
 **?2    #SKI
 **QL    (   
 *B==          SMO      FX2                 [PUTS %A IN FORWARD POINTER OF BASE  
 *BPW          STO   %A FILERING            [OF RING IN ACTIVITY BLOCK   
 *C9G    )   
 *CP6    #NOR