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

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

**Used in:** [[george:source:CLOSEIPB864|CLOSEIPB864]], [[george:source:IPBPM84|IPBPM84]], [[george:source:MOPPM84|MOPPM84]], [[george:source:PMACT867|PMACT867]], [[george:source:PMBDTS863|PMBDTS863]], [[george:source:PMBUFFS84|PMBUFFS84]], [[george:source:PMCHAINS864|PMCHAINS864]], [[george:source:PMCHAP867|PMCHAP867]], [[george:source:PMCHECK867|PMCHECK867]], [[george:source:PMCRABS860|PMCRABS860]], [[george:source:PMFS85|PMFS85]], [[george:source:PMFSB84|PMFSB84]], [[george:source:PMJOBS866|PMJOBS866]], [[george:source:PMJOURNL866|PMJOURNL866]], [[george:source:PMOBJIII860|PMOBJIII860]], [[george:source:PMSUMA867|PMSUMA867]]

<code - PMCORES.mac.txt>
 5B9=    [??? PMCORES SECT DIAG FGN 104 DOC  
 5BNL    #MAC  PMCORES                      [M.C.D. MANN 
 5C82    [   
 5CMB    [   
 5D6Q    [     ************* 
 5DL6    [     *  PMCORES  * 
 5F5G    [     ************* 
 5FJW    [   
 5G4=    [   
 5GHL    [     MACRO USED IN PM ROUTINES TO TEST IF A GIVEN ADDRESS  
 5H32    [     FALLS WITHIN GEORGE'S CORE AREA   
 5HGB    [     %A=ACCUMULATOR CONTAINING ADDRESS 
 5H^Q    [     %B=ADDRESS TO JUMP TO IF ADDRESS IN %A IS OUTSIDE G'S CORE
 5JF6    [     %C=ADDRESS TO JUMP TO IF ADDRESS IN %A IS INSIDE G'S CORE 
 5JYG    [   
 5KCW          TXL   %A CORES
 5KX=    #SKI  G4<1$1
 5LBL    (   
 5LW2    #STR  %C
 5M*B          BCS   %C  
 5MSQ    #STR  %B
 5N#6          BCC   %B  
 5NRG    )   
 5P=W    #SKI  G4
 5PQ=    (   
 5Q9L    #STR  %B
 5QP2          BCC   %B  
 5R8B    #STR  %B
 5RMQ    #SKI
 5S76          BCC   M   
 5SLG          TXL   %A K30+K39  
 5T5W    #STR  %C
 5TK=          BCC   %C  
 5W4L    #STR  %C
 5WJ2    #SKI
 5X3B          BCC   M   
 5XGQ          TXL   %A JK402
 5Y26    #STR  %B
 5YFG          BCC   %B  
 5YYW    #STR  %B
 5^D=    #SKI
 5^XL          BCC   M   
 62CB          TXL   %A K30+K402 
 62WH    #STR  %C
 63*N          BCC   %C  
 63ST    #STR  %C
 64#2    #SKI
 64R7          BCC   M   
 65=#          TXL   %A K30+K401 
 65PF    #STR  %C
 668L          BCS   %C  
 66MR    #STR  %B
 676Y          BCC   %B  
 67L5    M   
 685=    )   
 68JC    #NOR
</code>