diff options
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 |