mirror of
https://github.com/marketideas/qasm.git
synced 2025-01-15 02:30:06 +00:00
fix y2k overflow.
_ReadTimeHex returns the year as an offset from 1900, so 2020 is 120, which overflows ('0' + 12 is ascii '<') subtract 100, repeatedly, until it fits in 2 digits. Should last into 2100.
This commit is contained in:
parent
552603d2e0
commit
7336daffbf
@ -3941,7 +3941,11 @@ datop rep $30
|
|||||||
pla
|
pla
|
||||||
xba
|
xba
|
||||||
and #$ff
|
and #$ff
|
||||||
jsr :num
|
]y2k cmp #100
|
||||||
|
bcc :yy
|
||||||
|
sbc #100
|
||||||
|
bne ]y2k
|
||||||
|
:yy jsr :num
|
||||||
sta :buffer1+7
|
sta :buffer1+7
|
||||||
lda 1,s
|
lda 1,s
|
||||||
and #$ff
|
and #$ff
|
||||||
|
Loading…
x
Reference in New Issue
Block a user