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

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

**Used in:** [[george:source:PMACT867|PMACT867]], [[george:source:PMCHAINS864|PMCHAINS864]], [[george:source:PMCHECK867|PMCHECK867]], [[george:source:PMCRABS860|PMCRABS860]], [[george:source:PMDR864|PMDR864]], [[george:source:PMDUMP85|PMDUMP85]], [[george:source:PMFILE860|PMFILE860]], [[george:source:PMFIXSTO84|PMFIXSTO84]], [[george:source:PMSUMA867|PMSUMA867]], [[george:source:PMWHATA866|PMWHATA866]]

<code - PMDLGET.mac.txt>
 89BM    [??? PMDLGET SECT DIAG FGN 104 DOC  
 89T4    #MAC  PMDLGET                      [M.C.D. MANN 
 8=?F    [   
 8=PW    [   
 8?8?    [     ************* 
 8?LN    [     *  PMDLGET  * 
 8#55    [     ************* 
 8#HG    [   
 8#^X    [   
 8*D#    [        OBTAINS D AND OR L VALUES OF A PM SEGMENT  
 8*WP    [   
 8B*6    [   
 8BRH    [        %A  SEGMENT NAME   
 8C9Y    [        %B  ACCUMULATOR TO CONTAIN D VALUE 
 8CN*    [        %C  ACCUMULATOR TO CONTAIN L VALUE 
 8D6Q    [   
 8DK7    [        ONLY  %B AND %C ARE CHANGED
 8F3J    [   
 8FF^    [   
 8FYB    #STR %A 
 8GBR    #STR
 8GT8    ! SEGMENT NAME OMITTED  
 8H?K    #STR %A 
 8HQ2    (   
 8J8C    #STR %B 
 8JLS    (   
 8K59    #ACC %B 
 8KHL    ! %B IS NOT AN ACCUMULATOR  
 8L23    #ACC  %B
 8LDD    #SKI
 8LWT    (   
 8M*=          SMO       FXPMFXNT
 8MRM          LDX   %B J%A  
 8N=4          SLL  %B 9 
 8NNF          SRL  %B 2 
 8P6W    )   
 8PK?    )   
 8Q3N    #STR  %C
 8QG5    (   
 8QYG    #ACC  %C
 8RBX    ! %C IS NOT AN ACCUMULATOR  
 8RT#    #ACC %C 
 8S?P    #SKI
 8SQ6    (   
 8T9L          SMO      FXPMFXNT 
 8TP=          LDX   %C  J%A 
 8W8W          SRL   %C  15  
 8WNG          SLL   %C  2   
 8X86    )   
 8XMQ    )   
 8Y7B    )   
 8YM2    #STR  %B%C  
 8^6L    #STR
 8^L=    ! NO SECOND OR THIRD PARAMETER  
 925W    #NOR
</code>