FSHTABLE [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: FSHTABLE)}}
====== FSHTABLE ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_SHFS|MACROS SHFS]]

**Used in:** 

<code - FSHTABLE.mac.txt>
 6#7W    [???  FSHTABLE SECT FILE FGN 1 DOC  
 6#MG    #MAC  FSHTABLE  
 6*76    #STR  MOVEAREA,%A   
 6*LQ    #STR
 6B6B    (   
 6BL2    #UNS  MTABY 
 6C5L    (   
 6CK=    #SKI  %C>127-127
 6D4W    !     PARAMETER C IS OUT OF RANGE   
 6DJG    #SKI  %C>127-127
 6F46    #SKI
 6FHQ    (   
 6G3B          %C:%B 
 6GH2    #DEF  21?=21?+1 
 6H2L    #DEF  22?=22?+%C
 6HG=    )   
 6H^W    )   
 6JFG    #UNS  MTABY 
 6J^6    #SKI
 6KDQ    !     PREVIOUS 'BLOCKTYPE' FAILED/MISSING   
 6KYB    #EXI
 6LD2    )   
 6LXL    #STR  MASKAREA,%A   
 6MC=    #STR
 6MWW    (   
 6NBG    #UNS  MTABY 
 6NW6    (   
 6P*Q    #SKI  %C>127-127
 6PTB    !     PARAMETER C IS OUT OF RANGE   
 6Q*2    #SKI  %C>127-127
 6QSL    #SKI
 6R#=    (   
 6RRW          #200+%C:%B
 6S?G    #DEF  21?=21?+1 
 6SR6    #DEF  22?=22?+1 
 6T=Q    )   
 6TQB    )   
 6W=2    #UNS  MTABY 
 6WPL    #SKI
 6X9=    !     PREVIOUS 'BLOCKTYPE' FAILED/MISSING   
 6XNW    #EXI
 6Y8G    )   
 6YN6    #STR  BLOCKTYPE,%A  
 6^7Q    #STR
 6^MB    (   
 7272    #UNS  MTABX 
 72LL    (   
 736=    #FRE  MTABY 
 73KW    #SKI  %B>3-3
 745G    !     PARAMETER B IS OUT OF RANGE   
 74K6    #SKI  %B>3-3
 754Q    #SKI
 75JB    (   
 7642          #400+%B:0 
 76HL    #DEF  21?=21?+1 
 773=    #DEF  MTABY=1   
 77GW    )   
 782G    #EXI
 78G6    )   
 78^Q    #UNS  MTABX 
 79FB    #SKI
 79^2    !     PREVIOUS 'NEWENTRY' FAILED/MISSING
 7=DL    #EXI
 7=Y=    )   
 7?CW    #STR  NEWENTRY,%A   
 7?XG    #STR
 7#C6    (   
 7#WQ    #UNS  MTABX 
 7*BB    (   
 7*W2    #DEF  20?=20?+21?   
 7B*L    #DEF  23?=0?
 7BT=    #TRA  MTABX 
 7C#W          +21?  
 7CSG    #TRA  MTABX+2   
 7D#6          +22?  
 7DRQ    #UNS  MTABZ 
 7F?B    #DEF  TABASELEN=22? 
 7FR2    #FRE  MTABZ 
 7G=L    #TRA  23?   
 7GQ=    #FRE  MTABX 
 7H9W    )   
 7HPG    #DEF  21?=3 
 7J96    #DEF  22?=0 
 7JNQ    #UNS  TABASELEN 
 7K8B    #DEF  22?=+TABASELEN
 7KN2    #DEF  MTABX=0?  
 7L7L          +0
 7LM=    #STR  %B
 7M6W    (   
 7MLG    #HAL  %C+%B,0   
 7N66          +0
 7NKQ    )   
 7P5B    #STR  %B
 7PK2    #STR
 7Q4L    (   
 7QJ=    #UNS  TABASELEN 
 7R3W    !     BASIC ENTRY ALREADY COMPILED  
 7RHG          +0,+0 
 7S36    #DEF  MTABZ=1   
 7SGQ    )   
 7T2B    #FRE  MTABY 
 7TG2    #EXI
 7T^L    )   
 7WF=    #STR  INITIALISE,%A 
 7WYW    #STR
 7XDG    (   
 7XY6    #FRE  TABLEN,TABLE,TABASELEN,MTABX,MTABY,MTABZ  
 7YCQ    #DEF  20?=0 
 7YXB    #DEF  21?=3 
 7^C2    #DEF  22?=0 
 7^WL    #DEF  TABLEN=0? 
 82B=          +0
 82TW    #DEF  TABLE=0?  
 83*G    #EXI
 83T6    )   
 84#Q    #STR  ENDTABLE,%A   
 84SB    #STR
 85#2    (   
 85RL    #DEF  23?=0?
 86?=    #UNS  MTABX 
 86QW    (   
 87=G    #DEF  20?=20?+21?   
 87Q6    #TRA  MTABX 
 889Q          +21?  
 88PB    #TRA  MTABX+2   
 8992          +22?  
 89NL    )   
 8=8=    #TRA  TABLEN
 8=MW          +20?  
 8?7G    #TRA  23?   
 8?M6    #FRE  MTABX,MTABY   
 8#6Q    )   
 8#LB    #NOR
</code>