cdo/wipforth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix hex number input

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-03-02 18:50:34 +00:00
parent c99430c75e
commit 22e477adf7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wipforth.wat
View File

@@ -1395,7 +1395,7 @@
;; ;;
;; DUP DUP 65 >= SWAP 90 <= AND \ Test if A-Z ;; DUP DUP 65 >= SWAP 90 <= AND \ Test if A-Z
;; 0BRANCH [60] \ Jump to invalid digit if not ;; 0BRANCH [60] \ Jump to invalid digit if not
;; 45 - \ Get digit value ;; 55 - \ Get digit value
;; ;;
;; DUP DUP 0>= SWAP BASE @ < AND \ Test if 0 <= value < BASE ;; DUP DUP 0>= SWAP BASE @ < AND \ Test if 0 <= value < BASE
;; 0BRANCH [8] \ Jump to invalid digit if not ;; 0BRANCH [8] \ Jump to invalid digit if not
@@ -1438,7 +1438,7 @@
"\b4\04\00\00" ;; 0BRANCH "\b4\04\00\00" ;; 0BRANCH
"\3c\00\00\00" ;; 60 "\3c\00\00\00" ;; 60
"\18\04\00\00" ;; LIT "\18\04\00\00" ;; LIT
"\2d\00\00\00" ;; 45 "\37\00\00\00" ;; 55
"\cc\02\00\00" ;; - "\cc\02\00\00" ;; -
"\08\02\00\00" ;; DUP "\08\02\00\00" ;; DUP
"\08\02\00\00" ;; DUP "\08\02\00\00" ;; DUP