Fixed 12 AM/PM handling.

[cc65] / libsrc / c128 / gettime.s

diff --git a/libsrc/c128/gettime.s b/libsrc/c128/gettime.s
index b59789117442d320561b446d69f0257ae9bb2e35..81f49c640621c3845f38f0cf69cacddfc431a5e7 100644 (file)
--- a/libsrc/c128/gettime.s
+++ b/libsrc/c128/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