mirror of
https://github.com/irmen/prog8.git
synced 2024-09-07 19:54:26 +00:00
41 lines
736 B
Plaintext
41 lines
736 B
Plaintext
|
%import c64utils
|
||
|
|
||
|
|
||
|
~ main {
|
||
|
|
||
|
sub start() {
|
||
|
c64.SCROLY &= %11101111 ; blank screen
|
||
|
c64utils.set_rasterirq_excl(40)
|
||
|
|
||
|
dontstop:
|
||
|
goto dontstop
|
||
|
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
~ irq {
|
||
|
|
||
|
const ubyte barheight = 4
|
||
|
ubyte[13] colors = [6,2,4,5,15,7,1,13,3,12,8,11,9]
|
||
|
ubyte color =0
|
||
|
ubyte ypos = 0
|
||
|
|
||
|
sub irq() {
|
||
|
ubyte rasterpos=c64.RASTER
|
||
|
A=c64.SP0X ; delay for align
|
||
|
A=c64.SP0X ; delay for align
|
||
|
if color!=len(colors) {
|
||
|
c64.EXTCOL = colors[color]
|
||
|
c64.RASTER = rasterpos+barheight
|
||
|
color++
|
||
|
}
|
||
|
else {
|
||
|
ypos+=2
|
||
|
c64.EXTCOL = 0
|
||
|
c64.RASTER=sin8u(ypos)/2+40
|
||
|
color=0
|
||
|
}
|
||
|
}
|
||
|
}
|