From 22e477adf7233f46fe20c70a60261b7ae5a7c833 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Mon, 2 Mar 2026 18:50:34 +0000
Subject: [PATCH] Fix hex number input

---
 wipforth.wat | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/wipforth.wat b/wipforth.wat
index c0d48d1..20ad8e0 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1395,7 +1395,7 @@
  ;;
  ;;   DUP DUP 65 >= SWAP 90 <= AND  \ Test if A-Z
  ;;   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
  ;;   0BRANCH [8]                   \ Jump to invalid digit if not
@@ -1438,7 +1438,7 @@
        "\b4\04\00\00"  ;; 0BRANCH
        "\3c\00\00\00"  ;; 60
        "\18\04\00\00"  ;; LIT
-       "\2d\00\00\00"  ;; 45
+       "\37\00\00\00"  ;; 55
        "\cc\02\00\00"  ;; -
        "\08\02\00\00"  ;; DUP
        "\08\02\00\00"  ;; DUP