{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: TABULATE)}}
====== TABULATE ======
(GIN Macro)

**Defined in:** [[george:source:CLOSE-MACROS|CLOSE-MACROS]]

**Used in:** [[george:source:DEAD867|DEAD867]], [[george:source:DIRENT867|DIRENT867]], [[george:source:ERASE867|ERASE867]], [[george:source:FHOBJDIR860|FHOBJDIR860]], [[george:source:GETDIR860|GETDIR860]], [[george:source:GETDIRX860|GETDIRX860]], [[george:source:INCCHECK860|INCCHECK860]], [[george:source:LIBLOAD867|LIBLOAD867]], [[george:source:RENAMDIR|RENAMDIR]], [[george:source:RENAMEMT867|RENAMEMT867]], [[george:source:RETURN867|RETURN867]], [[george:source:TRAPGO864|TRAPGO864]], [[george:source:USERLIB867|USERLIB867]], [[george:source:USEROPEN867|USEROPEN867]]

<code - TABULATE.mac.txt>
 9^64 ...[??? TABULATE SECT FILE FGN 11 DOC  
 9^*W    #MAC  TABULATE  
 9^TG          REWIND
 =2*6          MHUNT    1,FILE,FTAB  
 =2SQ    #STR  %B
 =3#B    (   
 =3S2          LOADNUM  0,%B*2   
 =4?L          ADS   0  FTREAD(1)
 =4R=    )   
 =5=W          ADX   1  FTREAD(1)
 =5QG          LDX   0  A1+2(1)  
 =6=6          TOPFCA2  2
 =6PQ          STO   0  FREADBLOCK(2)
 =79B          LDX   0  A1+3(1)  
 =7P2          STO   0  FREADWORD(2) 
 =88L          LDX   2  FX2  
 =8N=          LDX   1  FX1  
 =97W    #NOR
</code>