2019-02-12 20:53:57 +00:00
|
|
|
%import c64utils
|
2019-03-19 00:22:26 +00:00
|
|
|
%import c64lib
|
2019-02-02 23:14:56 +00:00
|
|
|
%zeropage basicsafe
|
2019-01-26 21:46:01 +00:00
|
|
|
|
2019-02-25 00:08:10 +00:00
|
|
|
; @todo see problem in looplabelproblem.p8
|
|
|
|
|
2019-03-19 00:22:26 +00:00
|
|
|
|
|
|
|
~ main {
|
|
|
|
|
2019-02-21 00:31:33 +00:00
|
|
|
sub start() {
|
2019-03-19 00:22:26 +00:00
|
|
|
c64utils.set_rasterirq(220) ; enable animation
|
2019-03-18 03:01:25 +00:00
|
|
|
|
2019-03-19 00:22:26 +00:00
|
|
|
uword offs=0
|
|
|
|
while(true) {
|
|
|
|
uword z=1
|
|
|
|
for ubyte x in 0 to 200 {
|
|
|
|
@(z*($0400+offs)) = lsb(offs+x)
|
|
|
|
offs += 1
|
|
|
|
if offs > 40*25
|
|
|
|
offs=0
|
|
|
|
}
|
|
|
|
}
|
2019-03-18 03:01:25 +00:00
|
|
|
}
|
2019-03-19 00:22:26 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
~ irq {
|
2019-03-18 03:01:25 +00:00
|
|
|
|
2019-03-19 00:22:26 +00:00
|
|
|
sub irq() {
|
|
|
|
c64.EXTCOL = X
|
2019-02-24 17:52:48 +00:00
|
|
|
}
|
2019-03-16 16:50:59 +00:00
|
|
|
|
2019-01-27 17:33:21 +00:00
|
|
|
}
|