;C 2* x1 -- x2 arithmetic left shift CODEHEADER(XT_2STAR,2,"2*") ADD TOS,TOS NEXT