45 	token_t bi_ptr;
50 struct bitab *lookup_builtin(token_t);
157 	if ((acf_t)_ALIGN(acf, token_t) != acf) {  in paren_debug()
162 	if (*acf != (token_t)(&do_colon)) {  in paren_debug()
197 order_to_dict_list(fcode_env_t *env, token_t *order[])  in order_to_dict_list()
209 	for (j = 0; j < norder && order[j] != (token_t *)&env->forth_voc_link;  in order_to_dict_list()
213 		order[norder++] = (token_t *)&env->forth_voc_link;  in order_to_dict_list()
222 	token_t *order[MAX_ORDER+1];  in search_all_dictionaries()
224 	token_t *dptr;  in search_all_dictionaries()
229 		for (dptr = (token_t *)(*dptr); dptr;  in search_all_dictionaries()
230 		    dptr = (token_t *)(*dptr))  in search_all_dictionaries()
247 get_name_or_acf(token_t *dptr)  in get_name_or_acf()
260 	token_t *dptr;  in output_acf_name()
285 	token_t *dptr;  in dot_debug()
400 token_t debug_low[MAX_DEBUG_STACK], debug_high[MAX_DEBUG_STACK];
412 token_t
416 		if (*acf == (token_t)(&semi_ptr))  in find_semi_in_colon_def()
417 			return ((token_t)acf);  in find_semi_in_colon_def()
429 		debug_low[top] = (token_t)WA;  in check_for_debug_entry()
430 		if (*WA == (token_t)(&do_colon)) {  in check_for_debug_entry()
450 		} else if ((token_t)IP >= debug_low[top] &&  in check_for_debug_exit()
451 		    (token_t)IP <= debug_high[top]) {  in check_for_debug_exit()
465 		if ((token_t)(IP - 1) == debug_high[top]) {  in check_semi_debug_exit()
499 	token_t *link;  in unbug()
568 	token_t *dptr;  in check_vitals()
605 		if (*(env->table[i].apf) != (token_t)(&f_error)) {  in dump_table()
871 		if ((bip = lookup_builtin((token_t)acf)) != NULL)  in acf_to_name()
890 	if (*acf == (token_t)(&do_colon)) {  in within_word()
894 		} while (*acf++ != (token_t)(&semi_ptr));  in within_word()
910 	if ((acf_t)_ALIGN(acf, token_t) == acf && within_dictionary(env, acf)) {  in acf_backup_search()
912 			if (*nacf == (token_t)(&do_colon) ||  in acf_backup_search()
913 			    *nacf == (token_t)(&semi_ptr))  in acf_backup_search()
915 		if (nacf >= (acf_t)env->base && *nacf == (token_t)(&do_colon) &&  in acf_backup_search()
1107 	(token_t)(&quote_ptr),			"\"",		BI_QUOTE,
1108 	(token_t)(&blit_ptr),			"blit",		BI_BLIT,
1109 	(token_t)(&do_bdo_ptr),			"do",		BI_BDO,
1110 	(token_t)(&do_bqdo_ptr),		"?do",		BI_QDO,
1111 	(token_t)(&bbranch_ptrs[0]),		"br",		BI_BR,
1112 	(token_t)(&bbranch_ptrs[1]),		"qbr",		BI_QBR,
1113 	(token_t)(&bbranch_ptrs[2]),		"bof",		BI_BOF,
1114 	(token_t)(&do_loop_ptr),		"loop",		BI_LOOP,
1115 	(token_t)(&do_ploop_ptr),		"+loop",	BI_PLOOP,
1116 	(token_t)(&to_ptr),			"to",		BI_NOOP,
1117 	(token_t)(&semi_ptr),			";",		BI_SEMI,
1118 	(token_t)(&do_colon),			":",		BI_COLON,
1119 	(token_t)(&tlit_ptr),			"[']",		BI_NOOP,
1120 	(token_t)(&do_leave_ptr),		"leave",	BI_NOTYET,
1121 	(token_t)(&create_ptr),			"create",	BI_NOTYET,
1122 	(token_t)(&does_ptr),			"does>",	BI_NOTYET,
1123 	(token_t)(&value_defines[0][0]),	"a.@",		BI_NOTYET,
1124 	(token_t)(&value_defines[0][1]),	"a.!",		BI_NOTYET,
1125 	(token_t)(&value_defines[0][2]),	"a.nop",	BI_NOTYET,
1126 	(token_t)(&value_defines[1][0]),	"a.i@",		BI_NOTYET,
1127 	(token_t)(&value_defines[1][1]),	"a.i!",		BI_NOTYET,
1128 	(token_t)(&value_defines[1][2]),	"a.iad",	BI_NOTYET,
1129 	(token_t)(&value_defines[2][0]),	"a.defer",	BI_NOTYET,
1130 	(token_t)(&value_defines[2][1]),	"a.@",		BI_NOTYET,
1131 	(token_t)(&value_defines[2][2]),	"a.nop",	BI_NOTYET,
1132 	(token_t)(&value_defines[3][0]),	"a.defexec",	BI_NOTYET,
1133 	(token_t)(&value_defines[3][1]),	"a.iset",	BI_NOTYET,
1134 	(token_t)(&value_defines[3][2]),	"a.iad",	BI_NOTYET,
1135 	(token_t)(&value_defines[4][0]),	"a.binit",	BI_NOTYET,
1136 	(token_t)(&value_defines[4][1]),	"a.2drop",	BI_NOTYET,
1137 	(token_t)(&value_defines[4][2]),	"a.nop",	BI_NOTYET,
1138 	(token_t)(&value_defines[5][0]),	"a.ibinit",	BI_NOTYET,
1139 	(token_t)(&value_defines[5][1]),	"a.2drop",	BI_NOTYET,
1140 	(token_t)(&value_defines[5][2]),	"a.iad",	BI_NOTYET,
1145 lookup_builtin(token_t builtin)  in lookup_builtin()
1161 	token_t brtab[30], thentab[30], brstk[30];  in paren_see()
1166 	token_t last_lit = 0, case_lit = 0, endof_loc = 0, endcase_loc = 0;  in paren_see()
1170 		if (bip = lookup_builtin((token_t)acf))  in paren_see()
1184 				    thentab[nthentab-1] == (token_t)acf;  in paren_see()
1196 					if ((token_t)acf == brtab[i]) {  in paren_see()
1203 				if (case_lit == (token_t)acf) {  in paren_see()
1208 				if (endof_loc == (token_t)acf) {  in paren_see()
1213 				if (endcase_loc == (token_t)acf) {  in paren_see()
1219 			if ((bip = lookup_builtin((token_t)*acf)) == 0) {  in paren_see()
1220 				last_lit = (token_t)acf;  in paren_see()
1252 				for (; ((token_t)(p)) & (sizeof (token_t) - 1);  in paren_see()
1279 					if (*acf < (token_t)acf) {  in paren_see()
1300 					if (*acf < (token_t)acf) {  in paren_see()
1302 						brtab[nbrtab++] = (token_t)acf;  in paren_see()
1314 					if (*acf < (token_t)acf) {  in paren_see()
1340 				} else if (*acf < (token_t)acf) {  in paren_see()
1342 					brtab[nbrtab++] = (token_t)acf;  in paren_see()
1395 	token_t *dptr = ACF_TO_LINK(acf);  in do_dot_calls()
1396 	token_t *wptr = acf;  in do_dot_calls()
1398 	if (*wptr == (token_t)(&do_colon)) {  in do_dot_calls()
1402 		} while (*wptr++ != (token_t)(&semi_ptr));  in do_dot_calls()
1405 	else if (wptr == (token_t *)cacf)  in do_dot_calls()