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

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

**Used in:** [[george:source:BACKROOM865|BACKROOM865]], [[george:source:BSTS867|BSTS867]], [[george:source:GETNO865|GETNO865]]

<code - COOR2P.mac.txt>
 5LSQ ...[??? COOR2P SECT CENT FGN   DOC 
 5LT4 ...#MAC  COOR2P
 5LTB ...      LDX   2  FX2  
 5LTN ...      LDCH  0  ACRIT(2) 
 5LW2 ...      SLL   0  12   
 5LW# ...      ORS   0  ACRIT(2) 
 5LWL ...      LDN   0  3
 5LWY ...      DCH   0  ACRIT(2) 
 5LX= ...      COOR2   %A,%B 
 5LXJ ...      LDX   0  ACRIT(2) 
 5LXW ...      ANDX  0  HALFTOP  
 5LY8 ...      ERS   0  ACRIT(2) 
 5LYG ...      SLL   0  6
 5LYS ...      ORS   0  ACRIT(2) 
 5L^6 ...#NOR
</code>