SWITRACE

(GIN Macro)

Used in: CLOSEMT867, GETON867, LABEL866, LIBCOM867, LIBLOAD867, LIBLOADB867, LIBREQC867, LIBSEC867, MODE866, MODEA65, OLMTC85, REDONMT867, TAPEWAIT65, UNLOAD7, UNLOADMT867

SWITRACE.mac.txt

 93#Y ...[??? SWITRACE SECT FILE FGN 4 DOC   
 93JQ    #MAC  SWITRACE  
 944B          TRACE    %A,%B
 94J2    #SKI  GSWITRAC  
 953L    (   
 95H=          STO   1  GEN0 
 962W          CALL  1  M6SWI
 96GG    #OPT  M0SWITRAC=1   
 9726    #SKI  M0SWITRAC 
 97FQ    (   
 97^B          BRN      M1SWITRAC
 98F2    SUBSWIT 
 98YL          STO   0  GEN1 
 99D=          STO   1  GEN2 
 99XW          BSOFF    GSWITBIT,M3SWI   
 9=CG          SBN   1  3
 9=X6          LDX   0  0(1) 
 9?BQ          SMO      FX1  
 9?WB          ANDX  0  M4SWI
 9#B2          SMO      FX1  
 9#TL          ORX   0  M5SWI
 9**=          SMO      FX1  
 9*SW          STO   0  M2SWI
 9B#G          LDX   0  1
 9BS6          SBN   0  2
 9C?Q          SMO      FX1  
 9CRB          LDN   1  M2SWI+1  
 9D?2          MOVE  0  2
 9DQL          LDX   0  GEN1 
 9F==          LDX   1  GEN0 
 9FPW    M2SWI +0
 9G9G          +0
 9GP6          +0
 9H8Q          BRN      (GEN2)   
 9HNB    M3SWI LDX   0  GEN1 
 9J82          LDX   1  GEN0 
 9JML          BRN      (GEN2)   
 9K7=    M4SWI #37777
 9KLW    M5SWI #77740000 
 9L6G    M1SWITRAC   
 9LL6    #DEF  M6SWI=SUBSWIT 
 9M5Q    )   
 9MKB    #FREE M0SWITRAC 
 9N52    #DEF  M0SWITRAC=0   
 9NJL    )   
 9P4=    #NOR