empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed 12 AM/PM handling.

Browse source 
Midnight is 12 AM and noon is 12 PM (see https://en.wikipedia.org/wiki/12-hour_clock). Therefore we need to subtract 12 hours in exactly those two hours.
This commit is contained in:
Oliver Schmidt 2018-08-18 00:13:38 +02:00
parent e549e23a87
commit cb7ec508f6
4 changed files with 36 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
libsrc/c128/gettime.s
View file

@ -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

13
libsrc/c64/gettime.s
View file

@ -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

13
libsrc/cbm510/gettime.s
View file

@ -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

13
libsrc/cbm610/gettime.s
View file

@ -26,13 +26,18 @@
ldy #CIA::TODHR
lda (cia),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 (cia),y