64 	TOS += d;  in add()
74 	TOS -= d;  in subtract()
84 	TOS *= d;  in multiply()
167 	TOS &= d;  in and()
177 	TOS |= d;  in or()
187 	TOS ^= d;  in xor()
194 	TOS = ~TOS;  in invert()
204 	TOS = TOS << d;  in lshift()
214 	TOS = ((ufstack_t)TOS) >> d;  in rshift()
224 	TOS = ((s_lforth_t)TOS) >> d;  in rshifta()
231 	TOS = -TOS;  in negate()
238 	if (TOS < 0) TOS = -TOS;  in f_abs()
248 	if (d < TOS)	TOS = d;  in f_min()
258 	if (d > TOS)	TOS = d;  in f_max()
289 #define	COMPARE(cmp, rhs)	((((s_lforth_t)TOS) cmp((s_lforth_t)(rhs))) ? \
291 #define	UCOMPARE(cmp, rhs) 	((((u_lforth_t)TOS) cmp((u_lforth_t)(rhs))) ? \
304 	TOS = COMPARE(EQUALS, 0);  in zero_equals()
311 	TOS = COMPARE(NOTEQUALS, 0);  in zero_not_equals()
318 	TOS = COMPARE(LESSTHAN, 0);  in zero_less()
325 	TOS = COMPARE(LESSEQUALS, 0);  in zero_less_equals()
332 	TOS = COMPARE(GREATERTHAN, 0);  in zero_greater()
339 	TOS = COMPARE(GREATEREQUALS, 0);  in zero_greater_equals()
349 	TOS = COMPARE(LESSTHAN, d);  in less()
359 	TOS = COMPARE(GREATERTHAN, d);  in greater()
369 	TOS = COMPARE(EQUALS, d);  in equals()
379 	TOS = COMPARE(NOTEQUALS, d);  in not_equals()
390 	TOS = UCOMPARE(GREATERTHAN, d);  in unsign_greater()
400 	TOS = UCOMPARE(LESSEQUALS, d);  in unsign_less_equals()
410 	TOS = UCOMPARE(LESSTHAN, d);  in unsign_less()
420 	TOS = UCOMPARE(GREATEREQUALS, d);  in unsign_greater_equals()
430 	TOS = COMPARE(GREATEREQUALS, d);  in greater_equals()
440 	TOS = COMPARE(LESSEQUALS, d);  in less_equals()
451 	TOS = (((u_lforth_t)TOS >= lo) && ((u_lforth_t)TOS <= hi) ? -1 : 0);  in between()
462 	TOS = ((((u_lforth_t)TOS >= lo) && ((u_lforth_t)TOS < hi)) ? -1 : 0);  in within()
669 	TOS = toupper(TOS);  in upper_case()
676 	TOS = tolower(TOS);  in lower_case()
689 	str = (char *)TOS;  in pack_str()
690 	TOS = (fstack_t)buf;  in pack_str()
701 	len = (uchar_t *)TOS;  in count_str()
702 	TOS += 1;  in count_str()
710 	TOS = (fstack_t)(((acf_t)TOS)+1);  in to_body()
717 	TOS = (fstack_t)(((acf_t)TOS)-1);  in to_acf()
1110 	if (is_digit(TOS, base, &value))  in digit()
1113 		TOS = value;  in digit()
1143 	hi = TOS;  in fc_bounds()
1145 	TOS = lo;  in fc_bounds()
1160 	a = (TOS & (sizeof (lforth_t) - 1));  in aligned()
1162 		TOS += (sizeof (lforth_t) - a);  in aligned()
1211 	d = TOS;  in f_dup()
1245 	DS[-1] = TOS;  in rot()
1246 	TOS    = d;  in rot()
1255 	d = TOS;  in minus_rot()
1256 	TOS    = DS[-1];  in minus_rot()
1267 	d = TOS;  in tuck()
1286 	d = TOS;  in qdup()
1328 	TOS = d;  in roll()
1343 	DS[2] = TOS;  in two_dup()
1368 	DS[-2] = TOS;  in two_swap()
1370 	TOS    = b;  in two_swap()
1384 	DS[-2] = TOS;  in two_rot()
1386 	TOS    = b;  in two_rot()
1393 	TOS = TOS >> 1;  in two_slash()
1400 	TOS = (ufstack_t)((ufstack_t)TOS) >> 1;  in utwo_slash()
1407 	TOS = (ufstack_t)((ufstack_t)TOS) << 1;  in two_times()
1441 	TOS += d * sizeof (char);  in ca_plus()
1451 	TOS += d * sizeof (wforth_t);  in wa_plus()
1461 	TOS += d * sizeof (lforth_t);  in la_plus()
1471 	TOS += d * sizeof (fstack_t);  in na_plus()
1478 	TOS += sizeof (char);  in char_plus()
1485 	TOS += sizeof (wforth_t);  in wa1_plus()
1492 	TOS += sizeof (lforth_t);  in la1_plus()
1499 	TOS += sizeof (fstack_t);  in cell_plus()
1512 	TOS *= sizeof (wforth_t);  in slash_w_times()
1519 	TOS *= sizeof (lforth_t);  in slash_l_times()
1526 	TOS *= sizeof (fstack_t);  in cells()
1553 	TOS = *((variable_t *)TOS);  in fetch()
1560 	TOS = *((lforth_t *)TOS);  in lfetch()
1567 	TOS = *((wforth_t *)TOS);  in wfetch()
1574 	TOS = *((s_wforth_t *)TOS);  in swfetch()
1581 	TOS = *((uchar_t *)TOS);  in cfetch()
1793 	if (d == TOS) {  in do_bofbranch()
2221 	while (TOS) {  in interpret()
2224 		if (TOS) {  in interpret()
2230 			flags = LINK_TO_FLAGS(ACF_TO_LINK(TOS));  in interpret()