diff options
| author | kitty <nepeta@canaglie.net> | 2026-03-23 00:42:21 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-03-23 00:42:21 +1100 |
| commit | ccc5e9514111ecec8c045a9b78cb2052da090c95 (patch) | |
| tree | 6769e4902049b6e978703994a5ce277ed3be3721 /sanctuary.s | |
| parent | 8f76c163e577393bda45d9c98745bb4670f27f10 (diff) | |
boilerplate for create does>
Diffstat (limited to 'sanctuary.s')
| -rw-r--r-- | sanctuary.s | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/sanctuary.s b/sanctuary.s index 7c47326..8fe545d 100644 --- a/sanctuary.s +++ b/sanctuary.s @@ -1006,6 +1006,22 @@ defcode "abort", abort, 0 ret ; }}} +; these words are called from `create`d words, +; (create) expects a dummy value (used by (does>)) to skip past. +defcode "(create)", docreate, 0 + pop r11 + add r11, 8 ; skip dummy value unused by (create) + pspush r11 + ret + +defcode "(does>)", dodoes, 0 + pop r11 + mov r12, [r11] + add r11, 8 + pspush r11 + jmp r12 + ; no RET + ; TEMPORARY WONKY DEBUGGING FUNCTIONS {{{ ; .s {{{ defcode ".s", dots, 0 |