allow lowercase hex as an address for commands (DW, LAB, etc)

2024-06-02 06:41:32 +00:00 · 2021-03-20 14:23:18 -04:00 · 2021-03-20 14:23:18 -04:00 · a14d53b0ed
commit a14d53b0ed
parent 3713b4bfdd
1 changed files with 18 additions and 15 deletions
--- a/tfbd/TEXT.S
+++ b/tfbd/TEXT.S
@ -1031,26 +1031,29 @@ L030683  PHP
         TCD
         LDA   [$00]
         AND   #$007F
-         CMP   #$0030
-         BCC   L0306A6
-         CMP   #$0047
-         BCS   L0306A6
-         CMP   #$003A
-         BCC   L0306AD
-         CMP   #$0041
-         BCS   L0306B3
-L0306A6  LDA   #$0000
+
+         CMP   #'0'
+         BCC   :err
+         CMP   #'9'+1
+         BCC   :digit
+
+         CMP   #'A'
+         BCC   :err
+         AND   #$df	; uppercase it
+         CMP   #'F'+1
+         BCC   :alpha
+:err     LDA   #$0000
         PLD
         PLP
         SEC
         RTL

-L0306AD  SEC
-         SBC   #$0030
-         BRA   L0306B7
-L0306B3  SEC
-         SBC   #$0037
-L0306B7  INC   $00
+:digit   SEC
+         SBC   #'0'
+         BRA   :return
+:alpha   SEC
+         SBC   #'A'-10
+:return  INC   $00
         PLD
         PLP
         CLC