X-Git-Url: https://git.sur5r.net/?p=c128-kasse;a=blobdiff_plain;f=src%2Fbcd2dec.s;fp=src%2Fbcd2dec.s;h=30566936d78b8b45c7ac1d73b6c012e85e570954;hp=0000000000000000000000000000000000000000;hb=2581643c3b0f4a5ff94726e4c8edc038ba26db5a;hpb=16a4613c5e7ed1ee790ad58b2dc036d03c8052b7

diff --git a/src/bcd2dec.s b/src/bcd2dec.s
new file mode 100644
index 0000000..3056693
--- /dev/null
+++ b/src/bcd2dec.s
@@ -0,0 +1,23 @@
+
+        .export   _bcd2dec
+        .importzp tmp1,tmp2
+
+.code
+
+;; Copied from [cc65]/libsrc/c128/systime.s
+
+.proc   _bcd2dec
+        tax
+        and     #%00001111
+        sta     tmp1
+        txa
+        and     #%11110000      ; *16
+        lsr                     ; *8
+        sta     tmp2
+        lsr
+        lsr                     ; *2
+        adc     tmp2            ; = *10
+        adc     tmp1
+        ldx     #0
+        rts
+.endproc