2020-12-03 15:02:51 +00:00
|
|
|
%target cx16
|
|
|
|
%import graphics
|
|
|
|
%import textio
|
|
|
|
%import diskio
|
2020-12-03 17:14:49 +00:00
|
|
|
%import c64colors
|
2020-12-03 15:02:51 +00:00
|
|
|
|
|
|
|
main {
|
|
|
|
const uword load_location = $4000
|
|
|
|
ubyte screen_color
|
|
|
|
|
|
|
|
sub start() {
|
|
|
|
|
|
|
|
str[] pictures = [
|
|
|
|
"i01-blubb-sphinx.bin",
|
|
|
|
"i02-bugjam-jsl.bin",
|
|
|
|
"i03-dinothawr-ar.bin",
|
|
|
|
"i04-fox-leon.bin",
|
|
|
|
"i05-hunter-agod.bin",
|
|
|
|
"i06-jazzman-jds.bin",
|
|
|
|
"i07-katakis-jegg.bin"
|
|
|
|
]
|
|
|
|
|
2020-12-03 17:14:49 +00:00
|
|
|
; set a better C64 color palette, the Cx16's default is too saturated
|
|
|
|
c64colors.set_palette_pepto()
|
2020-12-03 15:02:51 +00:00
|
|
|
graphics.enable_bitmap_mode()
|
|
|
|
repeat {
|
|
|
|
ubyte file_idx
|
|
|
|
for file_idx in 0 to len(pictures)-1 {
|
|
|
|
load_image(pictures[file_idx])
|
|
|
|
wait()
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
sub wait() {
|
|
|
|
uword jiffies = 0
|
|
|
|
c64.SETTIM(0,0,0)
|
|
|
|
|
|
|
|
while jiffies < 180 {
|
|
|
|
; read clock
|
|
|
|
%asm {{
|
|
|
|
stx P8ZP_SCRATCH_REG
|
|
|
|
jsr c64.RDTIM
|
|
|
|
sta jiffies
|
|
|
|
stx jiffies+1
|
|
|
|
ldx P8ZP_SCRATCH_REG
|
|
|
|
}}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
sub load_image(uword filenameptr) {
|
|
|
|
uword length = diskio.load(8, filenameptr, load_location)
|
|
|
|
|
|
|
|
if length != 10001 {
|
|
|
|
txt.print_uw(length)
|
|
|
|
txt.print("\nload error\n")
|
|
|
|
diskio.status(8)
|
|
|
|
exit(1)
|
|
|
|
}
|
|
|
|
convert_koalapic()
|
|
|
|
}
|
|
|
|
|
|
|
|
sub convert_koalapic() {
|
|
|
|
ubyte cy
|
2020-12-06 06:23:57 +00:00
|
|
|
ubyte @zp cx
|
|
|
|
uword @zp cy_times_forty = 0
|
|
|
|
ubyte @zp c0
|
|
|
|
ubyte @zp c1
|
|
|
|
ubyte @zp c2
|
|
|
|
ubyte @zp c3
|
2020-12-03 15:02:51 +00:00
|
|
|
uword bitmap = load_location
|
|
|
|
|
|
|
|
screen_color = @(load_location + 8000 + 1000 + 1000) & 15
|
|
|
|
|
2020-12-06 06:23:57 +00:00
|
|
|
for cy in 0 to 24*8 step 8 {
|
|
|
|
cx16.r0 = 0
|
2020-12-03 15:02:51 +00:00
|
|
|
for cx in 0 to 39 {
|
2020-12-06 06:23:57 +00:00
|
|
|
cx16.r1 = cy
|
|
|
|
repeat 8 {
|
2020-12-03 15:02:51 +00:00
|
|
|
cx16.FB_cursor_position()
|
2020-12-06 06:23:57 +00:00
|
|
|
cx16.r1 ++
|
2020-12-03 15:02:51 +00:00
|
|
|
get_4_pixels()
|
|
|
|
cx16.FB_set_pixel(c0)
|
|
|
|
cx16.FB_set_pixel(c0)
|
|
|
|
cx16.FB_set_pixel(c1)
|
|
|
|
cx16.FB_set_pixel(c1)
|
|
|
|
cx16.FB_set_pixel(c2)
|
|
|
|
cx16.FB_set_pixel(c2)
|
|
|
|
cx16.FB_set_pixel(c3)
|
|
|
|
cx16.FB_set_pixel(c3)
|
|
|
|
bitmap++
|
|
|
|
}
|
2020-12-06 06:23:57 +00:00
|
|
|
cx16.r0 += 8
|
2020-12-03 15:02:51 +00:00
|
|
|
}
|
|
|
|
cy_times_forty += 40
|
|
|
|
}
|
|
|
|
|
|
|
|
sub get_4_pixels() {
|
2020-12-06 06:23:57 +00:00
|
|
|
ubyte bm = @(bitmap)
|
|
|
|
c3 = mcol(bm)
|
|
|
|
bm >>= 2
|
|
|
|
c2 = mcol(bm)
|
|
|
|
bm >>= 2
|
|
|
|
c1 = mcol(bm)
|
|
|
|
bm >>= 2
|
|
|
|
c0 = mcol(bm)
|
2020-12-03 15:02:51 +00:00
|
|
|
|
|
|
|
sub mcol(ubyte b) -> ubyte {
|
2020-12-06 06:23:57 +00:00
|
|
|
ubyte @zp color
|
2020-12-03 15:02:51 +00:00
|
|
|
when b & 3 {
|
|
|
|
0 -> color = screen_color
|
|
|
|
1 -> color = @(load_location + 8000 + cy_times_forty + cx) >>4
|
|
|
|
2 -> color = @(load_location + 8000 + cy_times_forty + cx) & 15
|
|
|
|
else -> color = @(load_location + 8000 + 1000 + cy_times_forty + cx) & 15
|
|
|
|
}
|
|
|
|
return color
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|