From 8b8a94e2e73c04048c1b71ba8d4ea39ba4ad311f Mon Sep 17 00:00:00 2001
From: "Matthias@Dell" <matthiasqui@protonmail.com>
Date: Sun, 10 Dec 2023 12:10:55 +0100
Subject: [PATCH] wip char_to_hex

---
 spicode.s65 | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/spicode.s65 b/spicode.s65
index ba1bb66..0a9da16 100644
--- a/spicode.s65
+++ b/spicode.s65
@@ -34,9 +34,11 @@ CODE_START:
 
 fmt_idx = $30
 out_idx = $31
+fmt_digit = $32
 .proc strf
     stz out_idx
     stz fmt_idx
+    stz fmt_digit
     ldx #0  ; index of format args
 @loop:
     ldy fmt_idx
@@ -57,9 +59,31 @@ out_idx = $31
         lda (ARG0),y  ; next char
         beq @null
         ; formats
+        cmp #'9'
+        ble @percent_number  ; numbers < letters
         cmp #'x'
         beq @format_hex1
         bra @normal_char
+@percent_number:
+            cmp #'1'
+            blt @normal_char  ; NaN or zero
+            ; todo covert from char
+            jsr hex_char_to_int  ; only 0-9 supported
+            ; A is now number of digits to convert
+            sta fmt_digit
+            iny
+            sty fmt_idx
+            lda (ARG0),y  ; next char
+            beq @null
+            cmp #'x'
+            beq @format_hexN 
+            bra @normal_char
+
+@format_hexN:
+                lda fmt_digit
+                jsr int_to_hex_str
+                bra @format_return
+
 @format_hex1:   ; 1 byte hex -> 2 chars
             lda ARG4,x
             phx
@@ -112,6 +136,17 @@ out_idx = $31
     rts
 .endproc
 
+; todo error handling
+.proc hex_char_to_int
+    cmp #'A'
+    bge @char
+    sbc #'0'
+    rts
+@char:
+    sbc #('A' - $A)
+    rts
+.endproc
+
 
 ;********************************************************************************
 ; @function Convert any int into hex