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

**Defined in:** [[george:source:MACROS_HFD8|MACROS HFD8]]

**Used in:** [[george:source:BACKROOM865|BACKROOM865]], [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:INCDTA865|INCDTA865]], [[george:source:INCTAPES867|INCTAPES867]]

<code - BLOCKTRACE.mac.txt>
 3LPG ...[??? BLOCKTRA SECT FILE FGN 22 DOC  
 3NN2    #MAC           BLOCKTRACE   
 3NRX ...[     BLOCKTRACE       TRACES [%C] WORDS OF BLOCK %A + SOME RED TAPE
 3NXS ...[                      %B IS THE CHARACTER STRING (%A IS A I. R.)   
 3P3P ...[                      %C IS OPTIONALLY ALOGLEN(%A) 
 3P7L          STO   %A BATEMAN1 
 3PM=    #STR  %C
 3Q6W    (   
 3QLG          SMO      %C   
 3R66          LDN   0  A1-ATYPE 
 3RKQ    )   
 3S5B    #STR  %C
 3SK2    #STR
 3T4L    (   
 3TJ=          SMO      ALOGLEN(%A)  
 3W3W          LDN   0  A1-ATYPE 
 3WHG    )   
 3X36    M1BLOCKTRA  
 3XGQ          GEO   7  ATYPE(%A)
 3Y2B                   8H%B 
 3YG2          ADN   %A 1
 3Y^L          BCT   0  M1BLOCKTRA   
 3^F=          LDX   %A BATEMAN1 
 3^YW    #NOR
</code>