TWTRACE

(GIN Macro)
Used in: INTWIN866, RELIEF866, TWINSETA866, TWINSETD866
TWTRACE.mac.txt
 QNGW    #   
 QP2G    [???                                TWTRACE 
 QPG6    #                                   ******* 
 QP^Q    #MAC TWTRACE
 QQFB    #   
 QQ^2          STO   3  EX7  
 QRDL          CALL  3  MTW1 
 QRY=          LDX   3  EX7  
 QSCW    #OPT  MTW12=0   
 QSXG    #SKI  MTW12-1   
 QTC6    (   
 QTWQ          BRN      MTW2 
 QWBB    MTW3  STO   0  EX4  
 QWW2          STO   1  EX5  
 QX*L          STO   2  EX6  
 QXT=          HUNT     2,EWDAS,GEXD 
 QY#W          SMO      FX2  
 QYSG          LDN   0  ACOMMUNE1
 Q^#6          SMO      A1(2)
 Q^RQ          LDN   1  A1+1(2)  
 R2?B          MOVE  0  5
 R2R2          LDN   0  5
 R3=L          ADS   0  A1(2)
 R3Q=          LDX   0  ALOGLEN(2)   
 R49W          SBX   0  A1(2)
 R4PG          SBN   0  1
 R596          BNZ   0  MTW4 
 R5NQ          STOZ     A1(2)
 R68B    MTW4  LDN   0  EX4  
 R6N2          LDN   1  0
 R77L          MOVE  0  3
 R7M=          EXIT  3  0
 R86W    MTW2
 R8LG    #FRE  MTW12 
 R966    #OPT  MTW12=1   
 R9KQ    #DEF  MTW1=MTW3 
 R=5B    )   
 R=K2    #NOR