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.
2024-06-11 06:29:29 +00:00 · 2020-01-06 19:44:51 -05:00 · 2020-01-06 19:44:51 -05:00 · 7336daffbf
commit 7336daffbf
parent 552603d2e0
1 changed files with 5 additions and 1 deletions
--- a/src/asm/asm.opcodes.s
+++ b/src/asm/asm.opcodes.s
@ -3941,7 +3941,11 @@ datop         rep       $30
              pla
              xba
              and       #$ff
-              jsr       :num
+]y2k          cmp       #100
+              bcc       :yy
+              sbc       #100
+              bne       ]y2k
+:yy           jsr       :num
              sta       :buffer1+7
              lda       1,s
              and       #$ff