;C 1- n1/u1 -- n2/u2 subtract 1 from TOS CODEHEADER(XT_1MINUS,2,"1-") SUB #1,TOS NEXT