RING2CHK

(GIN Macro)

Defined in: COREMACROS

Used in: ATTACHB866, IDFPER867, IPBINB867, IPBSCAN867, MOPCOM867, ONLINCL864

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