;C 1+ n1/u1 -- n2/u2 add 1 to TOS CODEHEADER(XT_1PLUS,2,"1+") ADD #1,TOS NEXT