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

**Defined in:** [[george:source:PMACS|PMACS]]

**Used in:** 

<code - PMTRACE.mac.txt>
 77TP    [??? PMTRACE SECT DIAG FGN 104 DOC  
 78#S    #MAC  PMTRACE                      [M.C.D. MANN 
 78RX    [   
 79?2    [   
 79Q5    [     ************* 
 7=98    [     *  PMTRACE  * 
 7=N?    [     ************* 
 7?7B    [   
 7?LF    [   
 7#5J    [            ALL ACCUMULATORS ARE PRESERVED BY THIS MACRO   
 7#JM    [   
 7*3Q    [            %A GIVES AN 8H STRING TO BE PRINTED BESIDE THE FIRST   
 7*GT    [               WORD OF THE TRACE   
 7*^Y    [   
 7BF3    [            %B GIVES THE UNMODIFIED ADDRESS OF A WORD HOLDING  
 7BY6    [               THE MODIFIED START ADDRESS OF THE AREA  
 7CC9    [               TO BE TRACED
 7CW#    [   
 7D*C    [            %C GIVES THE UNMODIFIED ADDRESS OF A WORD  
 7DSG    [               HOLDING THE COUNT OF WORDS TO BE TRACED 
 7F?K    [   
 7FQN    [            %D GIVES THE MODIFIER ACCUMULATOR IN USE BY THIS   
 7G9R    [               SEGMENT, IT CONTAINS THE CORE ADDRESS OF THE BASE   
 7GNW    [               OF THIS SEGMENT 
 7H7^    [   
 7HM4    [   
 7J67    [            ON FIRST CALL TO THIS MACRO INSIDE A SEGMENT,  
 7JK=    [               A SUBROUTINE IS GENERATED.  
 7K4*    [   
 7KHD    [            ON EVERY CALL TO THIS MACRO, CALLS TO THIS SUBROUTINE ARE  
 7L2H    [               MADE
 7LFL    [   
 7LYP    [   
 7MCS    #OPT MTRACEX=1  
 7MWX          STO   7  MTRACE(%D)   
 7NB2          CALL  7  MTRACE+2 
 7NT5                   8H%A 
 7P#8          LDX   0  %B(%D)   
 7PR?          LDX   7  %C(%D)   
 7Q=B    #SKI  MTRACEX   
 7QPF    (   
 7R8J          BRN      M
 7RMM    MLINK          +0   
 7S6Q    M4             +4   
 7SKT    MM             +0,+0
 7T4Y          STO   7  MLINK(%D)
 7TJ3          STO   0  MM+1(%D) 
 7W36          LDN   0  M1(%D)   
 7WG9          MOVE  7  2
 7W^#          SMO      MLINK(%D)
 7XDC          OBEY     3
 7XY6          BZE   7  M5   
 7YBH          SMO      MLINK(%D)
 7YSY          OBEY     2
 7^?*          SMO      0
 7^PQ          GEO   7  0
 8287    M1             8H   
 82LJ    M2    BCT   7  M3   
 834^    M5    LDX   7  MM(%D)   
 83HB          LDX   0  MM+1(%D) 
 83^R          SMO      M4(%D)   
 84D8          BRN      (MLINK)  
 84WK    M3    ADN   0  1
 85*2          SMO      0
 85RC          GEO   7  0
 869S                   8H   
 86N9          BRN      M2   
 876L    M   
 87K3    #ALT MTRACEX=0  
 883D    #DEF MTRACE=MM  
 88FT    )   
 88Y=    #NOR
</code>