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

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

**Used in:** [[george:source:BMSTREAM853|BMSTREAM853]], [[george:source:ERASEA867|ERASEA867]], [[george:source:LISTRING864|LISTRING864]]

<code - QKTABSET.mac.txt>
 9F2D ...[??? QKTABSET SECT FILE FGN 11 DOC  
 9F==    #   
 9GX3 ...#MAC  QKTABSET  
 9GX5 ...[   
 9GX7 ...[  TH QKTABSET AND QKTABULATE MACROS PRIVIDE AN EFFICIENT TAB SYSTEM
 9GX9 ...[  FOR THE SIMPLE CASE WHEN ALL THAT IS NEEDED IS TO SAVE THE POSN  
 9GX? ...[  OF A FILE. THE FORMAT IS 
 9GX* ...[    PARAM A - A POINTER TO THE FCA OF THE FILE 
 9GXC ...[    PARAM B - A WORD IN WHICH FREADWORD CAN BE STORED(OR RESTORED FROM)
 9GXF ...[    PARAM C - DITTO FREADBLOCK 
 9GXH ...[   
 9GXN ...      MOD   LDX   0  FREADWORD,%A   
 9GY* ...      STO   0  %B   
 9G^2 ...      MOD   LDX   0  FREADBLOCK,%A  
 9G^M ...      STO   0  %C   
 9H2# ...#NOR
</code>