ADDRELT

(GIN Macro)

Defined in: COREMACROS

Used in: GETNO865, IPBCCD867, ONLINCL864

ADDRELT.mac.txt

 C#2S ...[??? ADDRELT SECT CENT FGN 32 DOC   
 C#=L    #   
 C#Q=    # THIS INITIALISES THE NEW ELEMENT, SPACE HAVING BEEN PROVIDED BY ALTLEN
 C*9W    # ARINGNO IS UPDATED AND THE ELEMENT ENRINGED AS SPECIFIED  
 C*PG    #   
 CB96    #MAC  ADDRELT   
 CBNQ    #STR  %A,1  
 CC8B          LDX   1  %A                  [BLOCK ADDR  
 CCN2          STO   1  GEN0 
 CD7L    #STR  2,%B  
 CDM=    (   
 CF6W    #STR  NULL,%B   
 CFLG          LDX   2  %B   
 CG66    )   
 CGKQ          LDN   0  1
 CH5B          ADS   0  ARINGNO(1)          [INDICATE EXTRA ELEMENT  
 CHK2          LDX   0  ARINGNO(1)   
 CJ4L          SRL   0  15   
 CJJ=          SMO      ALOGLEN(1)   
 CK3W          ADN   1  A1   
 CKHG          SBX   1  0                   [X1 NOW = NEW ELEMENT
 CL36    #STR  NULL,%B   
 CLGQ    (   
 CM2B          LDX   0  FPTR(2)             [ENRING  
 CMG2          STO   0  FPTR(1)  
 CM^L          STO   2  BPTR(1)  
 CNF=          STO   1  FPTR(2)  
 CNYW          SMO      0
 CPDG          STO   1  BPTR 
 CPY6    )   
 CQCQ    #STR  NULL,%B   
 CQXB    #SKI
 CRC2          STOZ     BPTR(1)             [SET ELEMENT NULL
 CRWL          LDX   2  1
 CSB=          SBX   1  GEN0 
 CSTW          NGS   1  BSTART(2)
 CT*G          LDX   1  FX1  
 CTT6          LDX   2  FX2  
 CW#Q    #NOR