FILENUMB

(GIN Macro)

Defined in: RING-MACROS

Used in: APPEND864, BMQUEST866, CHANFILE8, CLOSEDIR867, COPYA867, CREALEX864, DELETE864, FILEMAP, OFFREL867, OPENWAIT867, PERFCHAP866, PERUSFIL84, READFILE84, REWRITE864, SAVEJOB865, STEP864

FILENUMB.mac.txt

 87^Y ...[??? FILENUMB SECT FILE FGN 20 DOC  
 889Q    #MAC  FILENUMB  
 88PB    [     PUTS NO. OF FILES OPEN IN %A  
 8992    [     ACT-POINTED TO BY %B, DEFAULT FX2 
 89NL    #ACC  %A
 8=8=    (   
 8=MW     LDN 0 1
 8?7G     STOZ %A
 8?M6    )   
 8#6Q    #ACC  %A
 8#LB    #SKI
 8*62          LDN   %A 0
 8*KL    #STR  %B
 8B5=     MOD LDN 2 FILERING,%B  
 8BJW    #STR  %B
 8C4G    #SKI
 8CJ6    (   
 8D3Q     SMO FX2
 8DHB     LDN 2 FILERING 
 8F32    )   
 8FGL     LDX 1 2
 8G2=    M1FILENUMB  
 8GFW     LDX 1 FPTRF(1) 
 8G^G     BXE 1 2,M2FILENUMB 
 8HF6    #ACC  %A
 8HYQ     ADS 0 %A   
 8JDB    #ACC  %A
 8JY2    #SKI
 8KCL          ADN   %A 1
 8KX=     BRN M1FILENUMB 
 8LBW    M2FILENUMB  
 8LWG     LDX 1 FX1  
 8MB6     LDX 2 FX2  
 8MTQ    #NOR