Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-26 05:29:15 +00:00
Code Issues Projects Releases Wiki Activity

cx16 avoid ram bank issue with RDTIM in sys.wait() and c64.RDTIM16()

Browse Source
This commit is contained in:
Irmen de Jong 2023-05-21 15:03:33 +02:00
parent 125ce3240f
commit c69c17de42
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/res/prog8lib/cx16/syslib.p8
View File

@ -70,7 +70,9 @@ asmsub RDTIM16() -> uword @AY {
; -- like RDTIM() but only returning the lower 16 bits in AY for convenience ; -- like RDTIM() but only returning the lower 16 bits in AY for convenience
%asm {{ %asm {{
phx phx
sei
jsr c64.RDTIM jsr c64.RDTIM
cli
pha pha
txa txa
tay tay
@ -936,9 +938,13 @@ _loop lda P8ZP_SCRATCH_W1
plx plx
rts rts
+ jsr c64.RDTIM + sei
jsr c64.RDTIM
cli
sta P8ZP_SCRATCH_B1 sta P8ZP_SCRATCH_B1
- jsr c64.RDTIM - sei
jsr c64.RDTIM
cli
cmp P8ZP_SCRATCH_B1 cmp P8ZP_SCRATCH_B1
beq - beq -

2
examples/test.p8
View File

@ -9,7 +9,7 @@ main {
ubyte pos ubyte pos
for pos in 0 to 7 { for pos in 0 to 7 {
pokew(table + 64 + pos*2, ($000a-pos)*200) ; TODO FIX WRONG CODE pokew(table + 64 + pos*2, ($000a-pos)*200)
} }
for pos in 0 to 7 { for pos in 0 to 7 {