empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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 "time.inc"
.include "c128.inc" .include "c128.inc"
.include "get_tv.inc"
.constructor initsystime .constructor initsystime
.importzp tmp1, tmp2 .importzp tmp1, tmp2
.import _get_tv
;---------------------------------------------------------------------------- ;----------------------------------------------------------------------------
@ -66,7 +68,13 @@ BCD2dec:tax
lda CIA1_TOD10 lda CIA1_TOD10
sta 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 .endproc

13
libsrc/c64/systime.s
View file

@ -11,9 +11,11 @@
.include "time.inc" .include "time.inc"
.include "c64.inc" .include "c64.inc"
.include "get_tv.inc"
.constructor initsystime .constructor initsystime
.importzp tmp1, tmp2 .importzp tmp1, tmp2
.import _get_tv, _get_ostype
;---------------------------------------------------------------------------- ;----------------------------------------------------------------------------
@ -66,7 +68,16 @@ BCD2dec:tax
lda CIA1_TOD10 lda CIA1_TOD10
sta 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 .endproc