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

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

**Used in:** [[george:source:ATTACHB866|ATTACHB866]], [[george:source:IDFPER867|IDFPER867]], [[george:source:IPBINB867|IPBINB867]], [[george:source:IPBSCAN867|IPBSCAN867]], [[george:source:MOPCOM867|MOPCOM867]], [[george:source:ONLINCL864|ONLINCL864]]

<code - RING2CHK.mac.txt>
 F4CT ...[??? RING2CHK TO REPLACE RINGTWO
 F4D8 ...#MAC RING2CHK   
 F4DH ...   LDN  0  %A   
 F4DW ...   BXE  0  BPTR+%A,M1RING2CHK   
 F4F9 ...   LDX  0  BPTR+%A  
 F4FJ ...   BNZ  0  M3RING2CHK   
 F4FX ...M1RING2CHK  
 F4G= ...   LDN  0  %B   
 F4GK ...   BXE  0  BPTR+%B,M2RING2CHK   
 F4GY ...   LDX  0  BPTR+%B  
 F4H? ...   BZE  0  M2RING2CHK   
 F4HL ...M3RING2CHK  
 F4H^ ...   GEOERR  1,RINGED!!   
 F4J# ...M2RING2CHK  
 F4JM ...   LDN  0  %A   
 F4K2 ...   STO  0  FPTR+%B  
 F4K* ...   STO  0  BPTR+%B  
 F4KN ...   LDN  0  %B   
 F4L3 ...   STO  0  FPTR+%A  
 F4LB ...   STO  0  BPTR+%A  
 F4LP ...#NOR
</code>