Apple-2gs-SW/ORCALib
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCALib.git synced 2024-05-28 15:41:29 +00:00
Code Issues Projects Releases Wiki Activity

Handle out-of-range months in mktime() input.

Browse Source
This commit is contained in:
Stephen Heumann 2022-12-29 23:50:01 -06:00
parent f15caf8096
commit 32c5fd94a1
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
time.asm
View File

@ -32,7 +32,7 @@ TimeCommon privdata
; ;
; For conversion to/from seconds since 13 Nov 1969 ; For conversion to/from seconds since 13 Nov 1969
; ;
year ds 4 year 0..99 year ds 4 year (years since 1900)
month ds 4 month 0..11 month ds 4 month 0..11
day ds 4 day 1..31 day ds 4 day 1..31
hour ds 4 hour 0..23 hour ds 4 hour 0..23
@ -234,6 +234,8 @@ mk1 inx
* Outputs: * Outputs:
* count - seconds since 13 Nov 1969 (signed 64-bit value) * count - seconds since 13 Nov 1969 (signed 64-bit value)
* *
* Note: Input values outside their normal ranges are allowed.
*
**************************************************************** ****************************************************************
* *
factor private factor private
@ -247,9 +249,6 @@ factor private
bpl lb0 bpl lb0
dec year+2 dec year+2
lb0 stz month+2 lb0 stz month+2
lda month
bpl lb0a
dec month+2
lb0a stz day+2 lb0a stz day+2
lda day lda day
bpl lb0b bpl lb0b
@ -267,9 +266,25 @@ lb0d stz second+2
bpl lb0e bpl lb0e
dec second+2 dec second+2
; ;
; adjust for out-of-range month values
;
lb0e lda month
bpl lb0f
clc
adc #12
sta month
dec4 year
bra lb0e
lb0f sec
sbc #12
bmi lb0x
sta month
inc4 year
bra lb0e
;
; compute the # of days since 13 Nov 1969 ; compute the # of days since 13 Nov 1969
; ;
lb0e mul4 year,#365,count count := 365*year + day + 31*month lb0x mul4 year,#365,count count := 365*year + day + 31*month
add4 count,day add4 count,day
mul4 month,#31,t1 mul4 month,#31,t1
add4 count,t1 add4 count,t1