TABDRIVE [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** [[george:source:SJOPEN863|SJOPEN863]]

<code - TABDRIVE.mac.txt>
 435# ...[   
 43=G ...[   
 43CQ ...[??? TABDRIVE SECT FILE FGN 24 DOC  
 46T6    #MAC           TABDRIVE 
 46X* ...[TO DRIVE THROUGH A TABLE   
 46^J ...[%A  MODIFIER CONTAING INDEX VALUE  
 473R ...[%B  TABLE  
 4762 ...[%C  NO OF BITS PER TABLE ENTRY 
 4789 ...[%D  SWITCH LIST
 47=D ...[%E  TABDRIVE INVOKE IDENTIFIER 
 47#Q          ADN   %A %B   
 47SB          SMO      FX1  
 48#2          LDX   7  0(%A)
 48RL    #DEF           MTABDRIVE%E=0?   
 49?=          LDN   0  0
 49QW          SLC   70 %C   
 4==G          SMO      0
 4=Q6          BRN      %D   
 4?9Q    #DEF           MTABDRIVE0%E=0?  
 4?PB    #NOR
</code>