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

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

**Used in:** [[george:source:GSCANTRA|GSCANTRA]], [[george:source:PMACT867|PMACT867]], [[george:source:PMBRKCHS84|PMBRKCHS84]], [[george:source:PMBUFFS84|PMBUFFS84]], [[george:source:PMCHAINS864|PMCHAINS864]], [[george:source:PMCHAP867|PMCHAP867]], [[george:source:PMCHECK867|PMCHECK867]], [[george:source:PMCRABS860|PMCRABS860]], [[george:source:PMDUMP85|PMDUMP85]], [[george:source:PMDUMPDA85|PMDUMPDA85]], [[george:source:PMDUMPMT85|PMDUMPMT85]], [[george:source:PMFILE860|PMFILE860]], [[george:source:PMFIXSTO84|PMFIXSTO84]], [[george:source:PMFSB84|PMFSB84]], [[george:source:PMJOBS866|PMJOBS866]], [[george:source:PMOBJIII860|PMOBJIII860]], [[george:source:PMSUMA867|PMSUMA867]], [[george:source:PMWHATA866|PMWHATA866]], [[george:source:SETJD867|SETJD867]]

<code - PMOVE.mac.txt>
 6JX=    [??? PMOVE SECT DIAG FGN 104 DOC
 6KBC    #MAC  PMOVE                        [M.C.D. MANN 
 6KTJ    [   
 6L#P    [   
 6LRW    [     ***********   
 6M?3    [     *  PMOVE  *   
 6MQ8    [     ***********   
 6N9*    [   
 6NNG    [   
 6P7M    [                   MACRO TO SET UP PARAMETERS FOR, AND ENTER   
 6PLS    [                   ROUTINE TO READ DOWN PM OVERLAYS
 6Q5^    [   
 6QK6    [                   OPTIONALLY SEGMENTS CONTAINING CODE MAY BE  
 6R4?    [                   IMMEDIATELY ENTERED 
 6RHD    [   
 6S2K    [                   %A = SEGMENT NAME   
 6SFQ    [   
 6SYX    [                   %B = POINTER TO START ADDRESS IN CORE   
 6TD4    [   
 6TX9    [                   %C = £ IN K£PM***** 
 6WBB    [   
 6WTH    [   
 6X#N    [              %D = FXPM?   
 6XRT    [   
 6Y?2          LDX   5  %B   
 6YQ7 ...#STR  %A,PMINPRIN   
 6^9#    #SKI
 6^NF          STO   5  FXINPRIN 
 727L    #STR  %D
 72LR           STO   5  FXPM%D  
 735Y          LDN   1  J%A  
 73KW    #STR  %C
 744^    (   
 74J4          LDN   7  K%C%A
 7537          CALL  6  (JSEGREAD2)  
 75G=    )   
 75^*    #STR  %C
 76DD    #SKI
 76XH          CALL  7  (JSEGREAD)   
 77BL    #NOR
</code>