the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
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 jsr pushax
lda CIA1_TODHR lda CIA1_TODHR
bpl AM
and #%01111111
sed sed
tax ; Save PM flag
and #%01111111
cmp #$12 ; 12 AM/PM
bcc @L1
sbc #$12
@L1: inx ; Get PM flag
bpl @L2
clc clc
adc #$12 adc #$12
cld @L2: cld
AM: jsr BCD2dec jsr BCD2dec
sta TM + tm::tm_hour sta TM + tm::tm_hour
lda CIA1_TODMIN lda CIA1_TODMIN
jsr BCD2dec jsr BCD2dec

13
libsrc/c64/gettime.s
View File

@@ -24,13 +24,18 @@
jsr pushax jsr pushax
lda CIA1_TODHR lda CIA1_TODHR
bpl AM
and #%01111111
sed sed
tax ; Save PM flag
and #%01111111
cmp #$12 ; 12 AM/PM
bcc @L1
sbc #$12
@L1: inx ; Get PM flag
bpl @L2
clc clc
adc #$12 adc #$12
cld @L2: cld
AM: jsr BCD2dec jsr BCD2dec
sta TM + tm::tm_hour sta TM + tm::tm_hour
lda CIA1_TODMIN lda CIA1_TODMIN
jsr BCD2dec jsr BCD2dec

13
libsrc/cbm510/gettime.s
View File

@@ -26,13 +26,18 @@
ldy #CIA::TODHR ldy #CIA::TODHR
lda (cia2),y lda (cia2),y
bpl AM
and #%01111111
sed sed
tax ; Save PM flag
and #%01111111
cmp #$12 ; 12 AM/PM
bcc @L1
sbc #$12
@L1: inx ; Get PM flag
bpl @L2
clc clc
adc #$12 adc #$12
cld @L2: cld
AM: jsr BCD2dec jsr BCD2dec
sta TM + tm::tm_hour sta TM + tm::tm_hour
ldy #CIA::TODMIN ldy #CIA::TODMIN
lda (cia2),y lda (cia2),y

13
libsrc/cbm610/gettime.s
View File

@@ -26,13 +26,18 @@
ldy #CIA::TODHR ldy #CIA::TODHR
lda (cia),y lda (cia),y
bpl AM
and #%01111111
sed sed
tax ; Save PM flag
and #%01111111
cmp #$12 ; 12 AM/PM
bcc @L1
sbc #$12
@L1: inx ; Get PM flag
bpl @L2
clc clc
adc #$12 adc #$12
cld @L2: cld
AM: jsr BCD2dec jsr BCD2dec
sta TM + tm::tm_hour sta TM + tm::tm_hour
ldy #CIA::TODMIN ldy #CIA::TODMIN
lda (cia),y lda (cia),y