diff options
| author | kitty <nepeta@canaglie.net> | 2026-02-26 19:46:49 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-02-26 19:46:49 +1100 |
| commit | dd03b8ca6cdd54237b22c8e9c8e67e3323c0998f (patch) | |
| tree | 74661efe892ffc37e5531123308f7d14202275f1 | |
| parent | a779cd8b6318185015bc8ca6339ae02d37ca5b65 (diff) | |
rename 0branch to ?branch
| -rw-r--r-- | jefs.fs | 6 | ||||
| -rw-r--r-- | jefs.s | 2 |
2 files changed, 4 insertions, 4 deletions
@@ -44,11 +44,11 @@ hex : ret, c3 c, ; decimal : begin <mark ; immediate : again branch <resolve ; immediate -: until 0branch <resolve ; immediate -: if 0branch >mark ; immediate ( I: -- a ) +: until ?branch <resolve ; immediate +: if ?branch >mark ; immediate ( I: -- a ) : else branch >mark swap >resolve ; immediate : then >resolve ; immediate -: while 0branch >mark ; immediate +: while ?branch >mark ; immediate : repeat branch swap <resolve >resolve ; immediate : ?dup dup 0<> if dup then ; @@ -1065,7 +1065,7 @@ defword "branch", branch, 0 mov qword [here], r12 ret -defword "0branch", zerobranch, 0 +defword "?branch", q_branch, 0 mov r12, [here] mov r11, 0x4d08768d4d1e8b4d ; pspop r11, first bit of test r11, r11 mov qword [r12], r11 |
