Lines Matching defs:env
39 fc_reg_read(fcode_env_t *env, char *service, fstack_t virt, int *errp)
45 forth_abort(env, "fc_reg_read: bad mcookie: 0x%x\n", virt);
52 error = fc_run_priv(env->private, service, nin, 1, virtaddr, &data);
57 forth_abort(env, "fc_read_reg: ERROR: cookie: %llx"
64 fc_reg_write(fcode_env_t *env, char *service, fstack_t virt, fc_cell_t data,
71 forth_abort(env, "fc_reg_write: bad mcookie: 0x%x\n", virt);
78 error = fc_run_priv(env->private, service, nin, 0, virtaddr, data);
83 forth_abort(env, "fc_write_reg: ERROR: cookie: %llx"
89 check_address_abuse(fcode_env_t *env, fstack_t addr, char *type,
96 (*alt)(env);
103 rlfetch(fcode_env_t *env)
107 CHECK_DEPTH(env, 1, "rl@");
109 if (!check_address_abuse(env, p, "rl@", 1, lfetch))
110 TOS = (lforth_t)fc_reg_read(env, "rl@", p, NULL);
114 rlstore(fcode_env_t *env)
118 CHECK_DEPTH(env, 2, "rl!");
120 if (!check_address_abuse(env, p, "rl!", 1, lstore)) {
123 fc_reg_write(env, "rl!", p, d, NULL);
128 rwfetch(fcode_env_t *env)
132 CHECK_DEPTH(env, 1, "rw@");
134 if (!check_address_abuse(env, p, "rw@", 1, wfetch))
135 TOS = (wforth_t)fc_reg_read(env, "rw@", p, NULL);
139 rwstore(fcode_env_t *env)
143 CHECK_DEPTH(env, 2, "rw!");
145 if (!check_address_abuse(env, p, "rw!", 1, wstore)) {
148 fc_reg_write(env, "rw!", p, d, NULL);
153 rbfetch(fcode_env_t *env)
157 CHECK_DEPTH(env, 1, "rb@");
159 if (!check_address_abuse(env, p, "rb@", 1, cfetch)) {
160 TOS = (uchar_t)fc_reg_read(env, "rb@", p, NULL);
165 rbstore(fcode_env_t *env)
169 CHECK_DEPTH(env, 2, "rb!");
171 if (!check_address_abuse(env, p, "rb!", 1, cstore)) {
174 fc_reg_write(env, "rb!", p, d, NULL);
182 rxfetch(fcode_env_t *env)
187 CHECK_DEPTH(env, 1, "rx@");
189 if (!check_address_abuse(env, p, "rx@", 1, xfetch)) {
191 push_xforth(env, (xforth_t)fc_reg_read(env, "rx@", p, NULL));
199 rxstore(fcode_env_t *env)
204 CHECK_DEPTH(env, 2, "rx!");
206 if (!check_address_abuse(env, p, "rx!", 1, xstore)) {
208 d = pop_xforth(env);
209 fc_reg_write(env, "rx!", p, d, NULL);
214 lpeek(fcode_env_t *env)
220 CHECK_DEPTH(env, 1, "lpeek");
222 r = (lforth_t)fc_reg_read(env, "rl@", p, &error);
232 lpoke(fcode_env_t *env)
237 CHECK_DEPTH(env, 2, "lpoke");
240 fc_reg_write(env, "rl!", p, d, &error);
245 wpeek(fcode_env_t *env)
251 CHECK_DEPTH(env, 1, "wpeek");
253 r = (wforth_t)fc_reg_read(env, "rw@", p, &error);
263 wpoke(fcode_env_t *env)
268 CHECK_DEPTH(env, 2, "wpoke");
271 fc_reg_write(env, "rw!", p, d, &error);
276 cpeek(fcode_env_t *env)
282 CHECK_DEPTH(env, 1, "cpeek");
284 r = (uchar_t)fc_reg_read(env, "rb@", p, &error);
294 cpoke(fcode_env_t *env)
299 CHECK_DEPTH(env, 2, "cpoke");
302 fc_reg_write(env, "rb!", p, d, &error);
310 fcd_cfetch(fcode_env_t *env)
314 CHECK_DEPTH(env, 1, "c@");
315 if (!check_address_abuse(env, addr, "c@", 0, rbfetch))
316 cfetch(env);
323 fcd_cstore(fcode_env_t *env)
327 CHECK_DEPTH(env, 2, "c!");
328 if (!check_address_abuse(env, addr, "c!", 0, rbstore))
329 cstore(env);
336 fcd_wfetch(fcode_env_t *env)
340 CHECK_DEPTH(env, 1, "w@");
341 if (!check_address_abuse(env, addr, "w@", 0, rwfetch))
342 wfetch(env);
349 fcd_wstore(fcode_env_t *env)
353 CHECK_DEPTH(env, 2, "w!");
354 if (!check_address_abuse(env, addr, "w!", 0, rwstore))
355 wstore(env);
362 fcd_lfetch(fcode_env_t *env)
366 CHECK_DEPTH(env, 1, "l@");
367 if (!check_address_abuse(env, addr, "l@", 0, rlfetch))
368 lfetch(env);
375 fcd_lstore(fcode_env_t *env)
379 CHECK_DEPTH(env, 2, "l!");
380 if (!check_address_abuse(env, addr, "l!", 0, rlstore))
381 lstore(env);
388 fcd_xfetch(fcode_env_t *env)
392 CHECK_DEPTH(env, 1, "x@");
393 if (!check_address_abuse(env, addr, "x@", 0, rxfetch))
394 xfetch(env);
401 fcd_xstore(fcode_env_t *env)
405 CHECK_DEPTH(env, 2, "x!");
406 if (!check_address_abuse(env, addr, "x!", 0, rxstore))
407 xstore(env);
414 fcd_move(fcode_env_t *env)
419 CHECK_DEPTH(env, 3, "move");
425 fcd_cfetch(env);
427 fcd_cstore(env);
432 fcd_comp(fcode_env_t *env)
437 CHECK_DEPTH(env, 3, "comp");
443 fcd_cfetch(env);
446 fcd_cfetch(env);
461 get_eeprom_value(fcode_env_t *env, char *name)
479 local_mac_address(fcode_env_t *env)
484 mac_str = get_eeprom_value(env, "local-mac-address?");
507 push_mac_address(fcode_env_t *env)
517 local_ether_addr(fcode_env_t *env)
523 error = fc_run_priv(env->private, "local-ether-addr", 0, 2, &mac_add[0],
537 mac_address(fcode_env_t *env)
542 push_mac_address(env);
550 local_mac_address(env);
553 push_a_string(env, "local-mac-address");
554 get_inherited_prop(env);
558 two_drop(env);
560 local_ether_addr(env);
570 set_diagnostic_mode(fcode_env_t *env)
579 push_diagnostic_mode(fcode_env_t *env)
588 diagnostic_mode(fcode_env_t *env)
594 diag_str = get_eeprom_value(env, "diag-switch?");
600 set_diagnostic_mode(env);
603 push_diagnostic_mode(env);
616 fcode_env_t *env = initial_env;
620 ASSERT(env);