Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-12-25 23:29:55 +00:00
Code Issues Projects Releases Wiki Activity

irq-safe irqd handling for RDTIM16

Browse Source
This commit is contained in:
Irmen de Jong 2023-05-22 20:36:33 +02:00
parent 8e5c67b4b2
commit b5255444cd
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -70,9 +70,10 @@ 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
php
sei sei
jsr c64.RDTIM jsr c64.RDTIM
cli plp
pha pha
txa txa
tay tay
@ -927,6 +928,7 @@ sys {
asmsub wait(uword jiffies @AY) { asmsub wait(uword jiffies @AY) {
; --- wait approximately the given number of jiffies (1/60th seconds) (N or N+1) ; --- wait approximately the given number of jiffies (1/60th seconds) (N or N+1)
; note: the system irq handler has to be active for this to work as it depends on the system jiffy clock ; note: the system irq handler has to be active for this to work as it depends on the system jiffy clock
; note: this routine cannot be used from inside a irq handler
%asm {{ %asm {{
phx phx
sta P8ZP_SCRATCH_W1 sta P8ZP_SCRATCH_W1