Fixed 12 AM/PM handling.

[cc65] / libsrc / cbm510 / gettime.s

diff --git a/libsrc/cbm510/gettime.s b/libsrc/cbm510/gettime.s
index 3ad162e3ba48064eb4cce7468322deafb19ba1d3..b89b9b16b2a6c9f642fb638adaac0ed4b5a483e7 100644 (file)
--- a/libsrc/cbm510/gettime.s
+++ b/libsrc/cbm510/gettime.s
@@ -26,13 +26,18 @@
 
         ldy     #CIA::TODHR
         lda     (cia2),y
-        bpl     AM
-        and     #%01111111
         sed
+        tax                     ; Save PM flag
+        and     #%01111111
+        cmp     #$12            ; 12 AM/PM
+        bcc     @L1
+        sbc     #$12
+@L1:    inx                     ; Get PM flag
+        bpl     @L2
         clc
         adc     #$12
-        cld
-AM:     jsr     BCD2dec
+@L2:    cld
+        jsr     BCD2dec
         sta     TM + tm::tm_hour
         ldy     #CIA::TODMIN
         lda     (cia2),y