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

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

**Used in:** 

<code - PMTZ.mac.txt>
 MT88    [??? PMTZ SECT DIAG FGN 104 DOC 
 MTLL    #MAC  PMTZ                         [M.C.D. MANN 
 MW54    [   
 MWHG    [   
 MW^Y    [     **********
 MXDB    [     *  PMTZ  *
 MXWS    [     **********
 MY*=    [   
 MYRN    [   
 M^=6    [     THIS MACRO IS USED BY #MAC PMT TO SET UP SUBTYPE MNEMONIC TABLES  
 M^NJ    [   
 N272    #STR  %C
 N2KD    (   
 N33W    #SKI  %C>64$64  
 N3G#    ?%C   SUBTYPE VALUE GREATER THAN 64 OR UNSET
 N3YQ    #SKI  %C>64$64  
 N4C8    #SKI
 N4TL    (   
 N5#4 ...               8H0%C              [INSERT SUBTYPE MNEMONICS 
 N5KN ...               +0   
 N5X# ...#DEF  0?=0?-2                      [MOVE TO 1ST WORD OF SUBTYPE NEMONIC 
 N68Y ...#FID  0 5 +%C                      [ENTER THE VALUE OF SUBTYPE  
 N6MB ...#DEF  0?=0?+2                      [MOVE POINTER TO LAST WORD OF THE SUB
 N75S    #STR  %D
 N7J=    #SKI  %D<1$1
 N82N    #SKI
 N88H ...(   
 N8BB ...#DEF  0?=0?-1   
 N8J9 ...                +DPMTABLEA+%D       [ENTER DISC ADDRESS OF IDENTIFIER TA
 N8Q4 ...)   
 N8Y2    )   
 N9BL    )   
 N9T=    #STR  %D
 N=?W          PMTZ  %A,%B,%E,%F,%G,%H,%I,%J 
 N=QG    #NOR
</code>