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

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

**Used in:** 

<code - APMP.mac.txt>
 5CB2    [??? APMP  SECT CENT FGN  DOC   
 5CTL    #MAC   APMP 
 5D*=    #STR  %A,HIPRI  
 5DSW    (   
 5F#G    !1ST PARAMETER MUST BE HIPRI OR ABSENT  
 5FS6    #EXI
 5G?Q    )   
 5GRB ...#MEN  CONSTANT  
 5H?2    #TRA  GAMR0 
 5HQL    #STR  %A
 5J==          APMPH  %A 
 5JPW    #STR  %A
 5K9G    #SKI
 5KP6          -1
 5L8Q    #TRA  GAMR0+1   
 5LNB          APMPH  %B 
 5M82          APMPH  %C 
 5MML          APMPH  %D 
 5N7= ...      APMPH  0  
 5NLW    #END
 5NND ...#MEN  FIXED 
 5NQ2 ...[ MEND FOR DME DUALS TO SET GEORGES AMR 
 5NRJ ...#TRA  BACT+ACOMMUNE1
 5NT6 ...#STR  %A
 5NWN ...      APMPH  %A 
 5NY= ...#STR  %A
 5N^S ...#SKI
 5P3B ...      -1
 5P4Y ...#END
 5P55 ...#UNS  ICTON 
 5P5= ...(   
 5P5C ...#MEN  CASCODE   
 5P5J ...#TRA  GAMREXEC+1
 5P5P ...      APMPH %B  
 5P5W ...      APMPH %C  
 5P63 ...      APMPH %D  
 5P68 ...#END
 5P6* ...)   
 5P6G    #NOR
</code>