2N8Y ...[??? CHAIN SECT CENT FGN 32 DOC 
 2NDQ    [   
 2NYB    [   
 2PD2    [ENTRY SEQUENCE FOR CHAIN BLOCK ROUTINE 
 2PXL    [   
 2QC=    #MAC  CHAIN 
 2QWW    #STR  %A,1  
 2RBG          LDX   1  %A                  [ADDRESS OF BLOCK TO BE CHAINED  
 2RW6    #STR  %B,1  
 2S*Q    #SKI
 2STB    (   
 2T*2    ! %B=1 ILLEGAL FOR CHAIN
 2TSL          GEOERR   1,CHAINBWR   
 2W#=    )   
 2WRW    #STR  %B,2  
 2X?G          LDX   2  %B                  [ADDRESS OF PRECEDING BLOCK  
 2XR6          CALL  0  (GCHAN)  
 2Y=Q    #NOR