6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-04-06 20:37:16 +00:00
Code Issues Projects Releases Wiki Activity

Added patches to make systime work correctly with the different video systems

Browse Source 
(Stefan Haubenthal).


git-svn-id: svn://svn.cc65.org/cc65/trunk@4624 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2010-03-19 20:46:56 +00:00
parent 21c38fa7db
commit 09adce2fec
2 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libsrc/c128/systime.s
View File

@ -11,9 +11,11 @@
.include "time.inc"
.include "c128.inc"
.include "get_tv.inc"
.constructor initsystime
.importzp tmp1, tmp2
.import _get_tv
;----------------------------------------------------------------------------
@ -66,7 +68,13 @@ BCD2dec:tax
lda CIA1_TOD10
sta CIA1_TOD10
rts
jsr _get_tv
cmp #TV::PAL
bne @60Hz
lda CIA1_CRA
ora #$80
sta CIA1_CRA
@60Hz: rts
.endproc

13
libsrc/c64/systime.s
View File

@ -11,9 +11,11 @@
.include "time.inc"
.include "c64.inc"
.include "get_tv.inc"
.constructor initsystime
.importzp tmp1, tmp2
.import _get_tv, _get_ostype
;----------------------------------------------------------------------------
@ -66,7 +68,16 @@ BCD2dec:tax
lda CIA1_TOD10
sta CIA1_TOD10
rts
jsr _get_tv
cmp #TV::PAL
bne @60Hz
jsr _get_ostype
cmp #$43
beq @60Hz
lda CIA1_CRA
ora #$80
sta CIA1_CRA
@60Hz: rts
.endproc