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

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

**Used in:** [[george:source:DUMMYB867|DUMMYB867]], [[george:source:LOADERR70|LOADERR70]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:SWITCH867|SWITCH867]]

<code - PMT.mac.txt>
 LPNG    [??? PMT SECT DIAG FGN 104 DOC  
 LQ7C    #MAC  PMT                          [M.C.D. MANN 
 LQL#    [   
 LR59    [   
 LRJ6    [     ********* 
 LS33    [     *  PMT  * 
 LSFY    [     ********* 
 LSYT    [   
 LTCQ    [   
 LTWM    [     THIS MACRO INSERTS TYPES AND SUBTYPES IN TABLES   
 LW*J    [   
 LWSF    #SKI  %A/#100>64$64 
 LX?B    ?%A   TYPE VALUE GREATER THAN 64
 LXQ?    #SKI  %A/#100<64$64 
 LY98    (   
 LYN5    #SKI  NUMBER                       [SKI IF INSERTING SUBTYPES   
 L^72    (   
 L^KX    #STR  %B,C  
 M24S    (   
 M2HP ...#TRA  %A/#100*3+INDEXPM             [GET THE ADDRESS TO INSERT TYPE NEMO
 M32L ...               8H%A                 [INSERT TYPE NEMONIC
 M3FH    #STR  %B                           [SKI IF NO 2ND PARAMETER 
 M3YD    (   
 M4C*    #STR  %C
 M4W=    (   
 M5*7                   +TRA                [IF SUBTYPES INSERT THEIR ADDRESS
 M5S4          PMCOUNT  %C,%E,%G,%I  
 M6=^ ...#FID 3 11 +3                         [UPDATE WORD COUNT OF SUBTYPE ENTRI
 M6PW ...#DEF  TRA1=TRA+3                     [UPDATE POINTER POINTING TO SUBTYPE
 M78R    #FREE TRA   
 M7MN    #DEF  TRA=TRA1  
 M86K    #FREE TRA1  
 M8KG    )   
 M94C    #STR  %C
 M9H#    #SKI                               [SKIP IF 3RD PARAMETER   
 M=29    (   
 M=F6    #SKI  %B<1$1
 M=Y3    #SKI                               [SKIP IF %B=ZERO OR IS UNSET 
 M?BY                   +%B+DPMTABLEA.2     [IF NO SUBTYPES INSERT DRUM ADDRESS  
 M?TT    )   
 M##Q    )   
 M#RM    )   
 M*=J    #STR  %B,C  
 M*PF    #SKI
 MB8B          PMCOUNT  %C,%E,%G,%I         [IF CONTINUATION MACRO   
 MBM?    )   
 MC68    #SKI  NUMBER<1$1                   [SKI IF INSERTING TYPES  
 MCK5    (   
 MD42    #STR  %C
 MDGX    (   
 MF2B          PMTZ  %A,%B,%C,%D,%E,%F,%G,%H,%I,%J   
 MFDS    #STR  %B,C  
 MFX=    (   
 MG*N ...               8H0  
 MGS6                   +0   
 MH=J    #STR  %B
 MHP2    #SKI  %B<1$1
 MJ7D    #SKI
 MJ*8 ...(   
 MJGY ...#DEF  0?=0?-1   
 MJNN ...                +DPMTABLEA+%B       [INSERT DISC ADDRESS
 MJWD ...)   
 MK4#    )   
 MKGQ    )   
 MK^8    )   
 MLCL    )   
 MLW4    #NOR
</code>