63 	d = POP(DS);  in add()
73 	d = POP(DS);  in subtract()
83 	d = POP(DS);  in multiply()
94 	d = POP(DS);  in slash_mod()
95 	o = t = POP(DS);  in slash_mod()
122 	PUSH(DS, rem);  in slash_mod()
123 	PUSH(DS, t);  in slash_mod()
135 	u2 = POP(DS);  in uslash_mod()
136 	u1 = POP(DS);  in uslash_mod()
140 	PUSH(DS, u1 % u2);  in uslash_mod()
141 	PUSH(DS, u1 / u2);  in uslash_mod()
166 	d = POP(DS);  in and()
176 	d = POP(DS);  in or()
186 	d = POP(DS);  in xor()
203 	d = POP(DS);  in lshift()
213 	d = POP(DS);  in rshift()
223 	d = POP(DS);  in rshifta()
247 	d = POP(DS);  in f_min()
257 	d = POP(DS);  in f_max()
265 	PUSH(RS, POP(DS));  in to_r()
272 	PUSH(DS, POP(RS));  in from_r()
279 	PUSH(DS, *RS);  in rfetch()
348 	d = POP(DS);  in less()
358 	d = POP(DS);  in greater()
368 	d = POP(DS);  in equals()
378 	d = POP(DS);  in not_equals()
389 	d = POP(DS);  in unsign_greater()
399 	d = POP(DS);  in unsign_less_equals()
409 	d = POP(DS);  in unsign_less()
419 	d = POP(DS);  in unsign_greater_equals()
429 	d = POP(DS);  in greater_equals()
439 	d = POP(DS);  in less_equals()
449 	hi = (u_lforth_t)POP(DS);  in between()
450 	lo = (u_lforth_t)POP(DS);  in between()
460 	hi = (u_lforth_t)POP(DS);  in within()
461 	lo = (u_lforth_t)POP(DS);  in within()
468 	PUSH(DS, *IP);  in do_literal()
537 	d.l_lf = POP(DS);  in lwsplit()
539 		PUSH(DS, d.l_wf[(FW_PER_FL - 1) - i]);  in lwsplit()
553 		d.l_wf[i] = POP(DS);  in wljoin()
554 	PUSH(DS, d.l_lf);  in wljoin()
567 	d.l_lf = POP(DS);  in lwflip()
570 	PUSH(DS, c.l_lf);  in lwflip()
583 	d.l_lf = POP(DS);  in lbsplit()
585 		PUSH(DS, d.l_bytes[(sizeof (lforth_t) - 1) - i]);  in lbsplit()
599 		d.l_bytes[i] = POP(DS);  in bljoin()
600 	PUSH(DS, (fstack_t)d.l_lf);  in bljoin()
613 	d.l_lf = POP(DS);  in lbflip()
616 	PUSH(DS, c.l_lf);  in lbflip()
629 	d.w_wf = POP(DS);  in wbsplit()
631 		PUSH(DS, d.w_bytes[(sizeof (wforth_t) - 1) - i]);  in wbsplit()
645 		d.w_bytes[i] = POP(DS);  in bwjoin()
646 	PUSH(DS, d.w_wf);  in bwjoin()
659 	d.w_wf = POP(DS);  in wbflip()
662 	PUSH(DS, c.w_wf);  in wbflip()
687 	buf = (char *)POP(DS);  in pack_str()
688 	len = (size_t)POP(DS);  in pack_str()
703 	PUSH(DS, *len);  in count_str()
740 	u1 = POP(DS);  in um_multiply()
741 	u2 = POP(DS);  in um_multiply()
756 	u = (uint32_t)POP(DS);  in um_slash_mod()
760 	PUSH(DS, urem);  in um_slash_mod()
761 	PUSH(DS, uquot);  in um_slash_mod()
840 	PUSH(DS, (fstack_t)HERE);  in comma()
850 	PUSH(DS, (fstack_t)HERE);  in lcomma()
860 	PUSH(DS, (fstack_t)HERE);  in wcomma()
870 	PUSH(DS, (fstack_t)HERE);  in ccomma()
889 	PUSH(DS, (fstack_t)HERE);  in compile_comma()
901 	addr = POP(DS);  in unaligned_lfetch()
903 		PUSH(DS, addr);  in unaligned_lfetch()
917 	addr = POP(DS);  in unaligned_lstore()
920 		PUSH(DS, addr);  in unaligned_lstore()
932 	addr = POP(DS);  in unaligned_wfetch()
934 		PUSH(DS, addr);  in unaligned_wfetch()
948 	addr = POP(DS);  in unaligned_wstore()
951 		PUSH(DS, addr);  in unaligned_wstore()
966 	len = POP(DS);  in lbflips()
967 	addr = POP(DS);  in lbflips()
970 		PUSH(DS, addr);  in lbflips()
973 		PUSH(DS, addr);  in lbflips()
988 	len = POP(DS);  in wbflips()
989 	addr = POP(DS);  in wbflips()
992 		PUSH(DS, addr);  in wbflips()
995 		PUSH(DS, addr);  in wbflips()
1010 	len = POP(DS);  in lwflips()
1011 	addr = POP(DS);  in lwflips()
1014 		PUSH(DS, addr);  in lwflips()
1017 		PUSH(DS, addr);  in lwflips()
1025 	PUSH(DS, (fstack_t)&env->num_base);  in base()
1037 	PUSH(DS, (fstack_t)&env->state);  in state()
1094 		PUSH(DS, -1);  in dollar_number()
1097 		PUSH(DS, value);  in dollar_number()
1098 		PUSH(DS, 0);  in dollar_number()
1109 	base = POP(DS);  in digit()
1111 		PUSH(DS, 0);  in digit()
1114 		PUSH(DS, -1);  in digit()
1121 	PUSH(DS, ' ');  in space()
1127 	PUSH(DS, '\b');  in backspace()
1133 	PUSH(DS, '\a');  in bell()
1142 	lo = DS[-1];  in fc_bounds()
1144 	DS[-1] = lo+hi;  in fc_bounds()
1151 	PUSH(DS, (fstack_t)HERE);  in here()
1195 	PUSH(DS, (fstack_t)WA);  in do_create()
1202 	(void) POP(DS);  in drop()
1212 	PUSH(DS, d);  in f_dup()
1221 	d = DS[-1];  in over()
1222 	PUSH(DS, d);  in over()
1231 	d = DS[-1];  in swap()
1232 	DS[-1] = DS[0];  in swap()
1233 	DS[0]  = d;  in swap()
1243 	d = DS[-2];  in rot()
1244 	DS[-2] = DS[-1];  in rot()
1245 	DS[-1] = TOS;  in rot()
1256 	TOS    = DS[-1];  in minus_rot()
1257 	DS[-1] = DS[-2];  in minus_rot()
1258 	DS[-2] = d;  in minus_rot()
1269 	PUSH(DS, d);  in tuck()
1288 		PUSH(DS, d);  in qdup()
1296 	d =  DS - env->ds0;  in depth()
1297 	PUSH(DS, d);  in depth()
1306 	p = POP(DS);  in pick()
1309 	p = DS[-p];  in pick()
1310 	PUSH(DS, p);  in pick()
1319 	r = POP(DS);  in roll()
1323 	d = DS[-r];  in roll()
1325 		DS[-r] = DS[ -(r-1) ];  in roll()
1335 	DS -= 2;  in two_drop()
1342 	DS[1] = DS[-1];  in two_dup()
1343 	DS[2] = TOS;  in two_dup()
1344 	DS += 2;  in two_dup()
1353 	a = DS[-3];  in two_over()
1354 	b = DS[-2];  in two_over()
1355 	PUSH(DS, a);  in two_over()
1356 	PUSH(DS, b);  in two_over()
1365 	a = DS[-3];  in two_swap()
1366 	b = DS[-2];  in two_swap()
1367 	DS[-3] = DS[-1];  in two_swap()
1368 	DS[-2] = TOS;  in two_swap()
1369 	DS[-1] = a;  in two_swap()
1379 	a = DS[-5];  in two_rot()
1380 	b = DS[-4];  in two_rot()
1381 	DS[-5] = DS[-3];  in two_rot()
1382 	DS[-4] = DS[-2];  in two_rot()
1383 	DS[-3] = DS[-1];  in two_rot()
1384 	DS[-2] = TOS;  in two_rot()
1385 	DS[-1] = a;  in two_rot()
1413 	PUSH(DS, sizeof (char));  in slash_c()
1419 	PUSH(DS, sizeof (wforth_t));  in slash_w()
1425 	PUSH(DS, sizeof (lforth_t));  in slash_l()
1431 	PUSH(DS, sizeof (fstack_t));  in slash_n()
1440 	d = POP(DS);  in ca_plus()
1450 	d = POP(DS);  in wa_plus()
1460 	d = POP(DS);  in la_plus()
1470 	d = POP(DS);  in na_plus()
1535 	d = (variable_t *)POP(DS);  in do_on()
1545 	d = (variable_t *)POP(DS);  in do_off()
1590 	dptr = (variable_t *)POP(DS);  in store()
1591 	*dptr = POP(DS);  in store()
1600 	dptr = (variable_t *)POP(DS);  in addstore()
1601 	*dptr = POP(DS) + *dptr;  in addstore()
1610 	dptr = (lforth_t *)POP(DS);  in lstore()
1611 	*dptr = (lforth_t)POP(DS);  in lstore()
1620 	dptr = (wforth_t *)POP(DS);  in wstore()
1621 	*dptr = (wforth_t)POP(DS);  in wstore()
1630 	dptr = (uchar_t *)POP(DS);  in cstore()
1631 	*dptr = (uchar_t)POP(DS);  in cstore()
1640 	d = (variable_t *)POP(DS);  in two_fetch()
1641 	PUSH(DS, (fstack_t)(d + 1));  in two_fetch()
1643 	PUSH(DS, (fstack_t)d);  in two_fetch()
1653 	d = (variable_t *)POP(DS);  in two_store()
1654 	PUSH(DS, (fstack_t)d);  in two_store()
1656 	PUSH(DS, (fstack_t)(d + 1));  in two_store()
1670 	len  = (size_t)POP(DS);  in fc_move()
1671 	dest = (void *)POP(DS);  in fc_move()
1672 	src  = (void *)POP(DS);  in fc_move()
1685 	val  = (uchar_t)POP(DS);  in fc_fill()
1686 	len  = (size_t)POP(DS);  in fc_fill()
1687 	dest = (void *)POP(DS);  in fc_fill()
1699 	len  = (size_t)POP(DS);  in fc_comp()
1700 	str1 = (char *)POP(DS);  in fc_comp()
1701 	str2 = (char *)POP(DS);  in fc_comp()
1707 	PUSH(DS, res);  in fc_comp()
1726 	PUSH(DS, (fstack_t)HERE);  in bmark()
1742 		PUSH(DS, d);  in temporary_execute()
1757 	token_t *prev = (token_t *)POP(DS);  in bresolve()
1778 	flag = POP(DS);  in do_bqbranch()
1792 	d = POP(DS);  in do_bofbranch()
1794 		(void) POP(DS);  in do_bofbranch()
1841 	d = POP(DS);  in do_bploop()
1893 	lo = POP(DS);  in do_bdo()
1894 	hi = POP(DS);  in do_bdo()
1907 	lo = POP(DS);  in do_bqdo()
1908 	hi = POP(DS);  in do_bqdo()
1947 	PUSH(DS, i);  in loop_i()
1957 	PUSH(DS, j);  in loop_j()
1979 		PUSH(DS, 0);  in push_string()
1980 		PUSH(DS, 0);  in push_string()
1992 	PUSH(DS, (fstack_t)dest);  in push_string()
1993 	PUSH(DS, len);  in push_string()
2054 	PUSH(DS, (fstack_t)&env->current);  in do_current()
2061 	PUSH(DS, (fstack_t)&CONTEXT);  in do_context()
2120 	len = POP(DS);  in compile_string()
2121 	str = (uchar_t *)POP(DS);  in compile_string()
2159 	PUSH(DS, 0);  in do_vocab()
2179 	voc = (token_t *)POP(DS);  in voc_find()
2204 		PUSH(DS, (fstack_t)env->order[i]);  in dollar_find()
2209 		PUSH(DS, (fstack_t)acf);  in dollar_find()
2210 		PUSH(DS, TRUE);  in dollar_find()
2212 		PUSH(DS, FALSE);  in dollar_find()
2243 			bad = POP(DS);  in interpret()
2268 	eval_bufp->maxlen = POP(DS);  in evaluate()
2269 	eval_bufp->buffer = (char *)POP(DS);  in evaluate()
2304 		PUSH(DS, offset);  in make_common_access()
2307 			*dptr++ = MYSELF->data[INIT_DATA][offset++] = POP(DS);  in make_common_access()
2322 	PUSH(DS, (variable_t)(*WA));  in do_constant()
2342 	defer_xt = (acf_t)POP(DS);  in behavior()
2349 	PUSH(DS, *((variable_t *)defer_xt));  in behavior()
2399 	new->ds		= DS-1;  in catch()
2406 	PUSH(DS, new->code);  in catch()
2439 		DS		= efp->ds;  in throw_from_fclib()
2453 	t = POP(DS);  in throw()