1 dcl tedpromote_ entry ( /* get a larger data buffer */ 2 ptr, /* -> buffer to promote */ 3 fixed bin (21) /* amount not fitting */ 4 ); 5