| code-address! n xt -- new code_address_store |
code-address! n xt -- new code_address_store |
| ""Creates a code field with code address c_addr at xt"" |
""Creates a code field with code address c_addr at xt"" |
| MAKE_CF(xt, symbols[CF(n)]); |
MAKE_CF(xt, symbols[CF(n)]); |
| |
CACHE_FLUSH(xt,PFA(0)); |
| |
|
| does-code! a_addr xt -- new does_code_store |
does-code! a_addr xt -- new does_code_store |
| ""creates a code field at xt for a defining-word-defined word; a_addr |
""creates a code field at xt for a defining-word-defined word; a_addr |
| is the start of the Forth code after DOES>"" |
is the start of the Forth code after DOES>"" |
| MAKE_DOES_CF(xt, a_addr); |
MAKE_DOES_CF(xt, a_addr); |
| |
CACHE_FLUSH(xt,PFA(0)); |
| |
|
| does-handler! a_addr -- new does_jump_store |
does-handler! a_addr -- new does_jump_store |
| ""creates a DOES>-handler at address a_addr. a_addr usually points |
""creates a DOES>-handler at address a_addr. a_addr usually points |
| just behind a DOES>."" |
just behind a DOES>."" |
| MAKE_DOES_HANDLER(a_addr); |
MAKE_DOES_HANDLER(a_addr); |
| |
CACHE_FLUSH(a_addr,DOES_HANDLER_SIZE); |
| |
|
| /does-handler -- n new slash_does_handler |
/does-handler -- n new slash_does_handler |
| ""the size of a does-handler (includes possible padding)"" |
""the size of a does-handler (includes possible padding)"" |
