2018-10-16 00:26:35 +00:00
|
|
|
%import c64utils
|
2018-08-16 21:10:28 +00:00
|
|
|
|
2018-10-16 00:26:35 +00:00
|
|
|
~ main $c800 {
|
2018-10-01 18:05:32 +00:00
|
|
|
|
2018-10-15 23:24:40 +00:00
|
|
|
|
2018-10-16 00:26:35 +00:00
|
|
|
sub start() {
|
2018-10-07 23:20:53 +00:00
|
|
|
|
2018-10-16 00:26:35 +00:00
|
|
|
const ubyte screen_color = 9
|
|
|
|
const ubyte border_color = 2
|
|
|
|
const ubyte cursor_color = 7
|
|
|
|
memory ubyte screen = $d021
|
|
|
|
memory ubyte border = $d020
|
|
|
|
memory ubyte cursor = 646
|
2018-10-07 19:20:04 +00:00
|
|
|
|
2018-10-16 00:26:35 +00:00
|
|
|
screen = screen_color
|
|
|
|
border = border_color
|
|
|
|
cursor = cursor_color
|
2018-10-15 00:49:59 +00:00
|
|
|
return
|
2018-10-15 23:24:40 +00:00
|
|
|
}
|
|
|
|
|
2018-08-12 21:09:59 +00:00
|
|
|
}
|
2018-10-13 14:09:10 +00:00
|
|
|
|
2018-10-16 00:26:35 +00:00
|
|
|
~ block2 $c000 {
|
|
|
|
return
|
2018-10-13 14:09:10 +00:00
|
|
|
}
|
2018-10-16 00:26:35 +00:00
|
|
|
|