2JRJ ...[??? SHORTEN SECT CENT FGN 7 DOC
 2K3B    #     [SHORTEN A CORE BLOCK QUICKLY BY A FEW WORDS  
 2KH2    #MAC  SHORTEN   
 2L2L          LDN   0  %B   
 2LG=          BXL   0  ALOGLEN(%A),M1SHORTEN
 2L^W          BXE   0  ALOGLEN(%A),M1SHORTEN
 2MFG          GEOERR   BRIEFPM,SHORTEN  
 2M^6    M1SHORTEN   
 2NDQ          STO   0  ALOGLEN(%A)  
 2NYB    #NOR