Fixed 12 AM/PM handling.

[cc65] / libsrc / c64 / gettime.s

diff --git a/libsrc/c64/gettime.s b/libsrc/c64/gettime.s
index 61c5115ae25bdc18be1b2957dd7a8fffa67a7d8a..8973e0e33fe89e3362c3dcd2a877d10c040b0dab 100644 (file)
--- a/libsrc/c64/gettime.s
+++ b/libsrc/c64/gettime.s
@@ -24,13 +24,18 @@
         jsr     pushax
 
         lda     CIA1_TODHR
-        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
         lda     CIA1_TODMIN
         jsr     BCD2dec