diff options
| author | kitty <nepeta@canaglie.net> | 2026-03-20 01:20:19 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-03-20 01:20:19 +1100 |
| commit | 3e8972d7ce7859234d13be9e1949295901ac4806 (patch) | |
| tree | c33d1759fc1b360ab8efbef0c1a588d2a3ecea95 /sanctuary.s | |
| parent | a654a2e0418b0f143cb4d6c55776c844e7254e22 (diff) | |
char, immediate, and ( bracket comments )
Diffstat (limited to 'sanctuary.s')
| -rw-r--r-- | sanctuary.s | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/sanctuary.s b/sanctuary.s index 1b9fd0f..6e5707a 100644 --- a/sanctuary.s +++ b/sanctuary.s @@ -484,6 +484,24 @@ defcode "smudge", smudge, 0 mov byte [r12], r13b ret +defcode "immediate", immediate, 0 + mov r12, [latest] + add r12, 8 + mov r13b, [r12] + mov r14b, immediate_mask + or r13b, r14b + mov byte [r12], r13b + ret + +defcode "char", char, 0 + call parse_name + call drop + pspop r12 + xor r11, r11 + mov r11b, [r12] + pspush r11 + ret + ; number {{{ defcode "number", number, 0 ; ( c-addr u -- ?n flag ) pspop r11 ; u |