Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2026-04-20 11:17:01 +00:00
Code Issues Projects Releases Wiki Activity

cx16: add support for VIA timer IRQ in the irq routines

Browse Source
This commit is contained in:
Irmen de Jong
2025-12-22 21:13:31 +01:00
parent 1682400988
commit 3000c399bd
4 changed files with 90 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/test.p8
+16 -117
View File
@@ -1,129 +1,28 @@
%import textio
%zeropage basicsafe
%option no_sysinit
; C64: 160, 220, 164
; C128: 167, 229, 171
main {
uword timercounter
sub start() {
ubyte char=0
ubyte x,y
str name = sc:"irmen"
long setcc_time, setchr_time, setclr_time
cx16.enable_irq_handlers(true)
cx16.set_timer1_irq_handler(&timerhandler)
cx16.set_timer1(1000*8, true) ; timer irq every 1000 milliseconds (assuming 8mhz clock rate)
for x in 0 to 4
txt.setcc(x+20, 19, name[x], x)
txt.print("9 0 18 1 13 2 5 3 14 4\n")
for x in 0 to 4 {
txt.print_ub(txt.getchr(x+20, 19))
txt.spc()
txt.print_ub(txt.getclr(x+20, 19) & 15)
txt.spc()
}
sys.wait(200)
cbm.SETTIML(0)
setchr()
setchr_time = cbm.RDTIML()
sys.wait(60)
txt.cls()
char = 0
cbm.SETTIML(0)
setcc()
setcc_time = cbm.RDTIML()
sys.wait(60)
cbm.SETTIM(0,0,0)
setclr()
setclr_time = cbm.RDTIML()
sys.wait(60)
txt.cls()
txt.print("setchr: ")
txt.print_l(setchr_time)
txt.print("\n setcc: ")
txt.print_l(setcc_time)
txt.print("\nsetclr: ")
txt.print_l(setclr_time)
txt.nl()
repeat {}
sub setchr() {
repeat 30 {
ubyte left = 0
ubyte top = 0
ubyte right = txt.width()-1
ubyte bottom = txt.height()-1
while top<bottom {
for x in left to right
txt.setchr(x,top,char)
for y in top to bottom
txt.setchr(right,y,char)
for x in right downto left
txt.setchr(x,bottom,char)
for y in bottom downto top
txt.setchr(left,y,char)
char++
left++
top++
right--
bottom--
}
}
while timercounter <= 10000 {
sys.waitvsync()
txt.home()
txt.print("via timer counter: ")
txt.print_uw(timercounter)
}
sub setcc() {
repeat 30 {
ubyte left = 0
ubyte top = 0
ubyte right = txt.width()-1
ubyte bottom = txt.height()-1
cx16.disable_irq_handlers()
}
while top<bottom {
for x in left to right
txt.setcc(x,top,char,5)
for y in top to bottom
txt.setcc(right,y,char,3)
for x in right downto left
txt.setcc(x,bottom,char,7)
for y in bottom downto top
txt.setcc(left,y,char,4)
char++
left++
top++
right--
bottom--
}
}
}
sub setclr() {
repeat 30 {
ubyte left = 0
ubyte top = 0
ubyte right = txt.width()-1
ubyte bottom = txt.height()-1
while top<bottom {
for x in left to right
txt.setclr(x,top,char)
for y in top to bottom
txt.setclr(right,y,char)
for x in right downto left
txt.setclr(x,bottom,char)
for y in bottom downto top
txt.setclr(left,y,char)
char++
left++
top++
right--
bottom--
}
}
}
sub timerhandler() -> bool {
timercounter++
return false
}
}