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

direct memory access and sprite fixes

Browse Source
This commit is contained in:
Irmen de Jong 2018-12-31 04:53:50 +01:00
parent a319e6f9ec
commit 7b41a4b5fa
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/examples/sprites.p8
View File

@ -64,20 +64,20 @@
~ irq { ~ irq {
; @todo no longer auto-set this as irq handler. instead, add builtins functions activate_irqvec() / restore_irqvec() ; @todo no longer auto-set this as irq handler. instead, add builtins functions activate_irqvec() / restore_irqvec()
sub irq() { sub irq() {
;return ; @todo return statements in the irqhandler should not do rts, but instead jmp c64.IRQDFRT ;return ; @todo return statements in the irqhandler should not do rts, but instead jmp c64.IRQDFRT (RETURNFROMIRQ)
; @todo also when including this return, the jmp c64.IRQDFRT at the end gets omitted.....:( ; @todo also when including this return, the jmp c64.IRQDFRT at the end gets omitted.....:(
c64.EXTCOL++ c64.EXTCOL++
for ubyte i in 0 to 7 { for ubyte i in 0 to 7 {
@(main.SP0Y+i+i)-- ; float up @(main.SP0Y+i*2)-- ; float up
; horizontal wobble effect ; horizontal wobble effect
ubyte r = rnd() ubyte r = rnd()
if r>208 if r>208
@(main.SP0X+i+i)++ @(main.SP0X+i*2)++
else { else {
; @todo if-else if -else syntax without curly braces ; @todo if-else if -else syntax without curly braces
if r<48 if r<48
@(main.SP0X+i+i)-- @(main.SP0X+i*2)--
} }
} }
c64.EXTCOL-- c64.EXTCOL--