RINGTWO

(GIN Macro)

Defined in: COREMACROS

Used in: ATTACHC867, CIMOP867, CONMXA85, CONMXB8, GETNO865, IPBCCD867, IPCGEO8, ONLINCL864, PCTBEGIN863, SCAN865, SENTINEL8, TWINSET866, TWINSETB866, TWINSETD866

RINGTWO.mac.txt
 DX?D ...[??? RINGTWO SECT CENT FGN 32 DOC   
 DXH=    #   
 DY2W    # THIS MACRO RINGS TOGETHER TWO NULL ELEMENTS   
 DYGG    #   
 D^26    #MAC  RINGTWO   
 D^FQ          LDN   0  %A   
 D^^B          STO   0  FPTR+%B  
 F2F2          STO   0  BPTR+%B  
 F2YL          LDN   0  %B   
 F3D=          STO   0  FPTR+%A  
 F3XW          STO   0  BPTR+%A  
 F4CG    #NOR