EXTRACT_SHORT
return (EXTRACT_SHORT(cp));
A = EXTRACT_SHORT(&p[k]);
A = EXTRACT_SHORT(&p[k]);
return (EXTRACT_SHORT(cp));
A = EXTRACT_SHORT(&p[k]);
A = EXTRACT_SHORT(&p[k]);