1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-12-26 12:29:26 +00:00
millfork/examples/a8/cmcplayer.mfk

24 lines
567 B
Plaintext
Raw Normal View History

2020-10-05 21:17:35 +00:00
const word ADDRMUS = $a000
const word ADDRPLA = $b000
asm void comm(byte register(a) a, byte register(x) x, byte register(y) y) @ ADDRPLA+3 extern
asm void takt() @ ADDRPLA+6 extern
void main(){
2020-10-05 22:51:50 +00:00
comm($70,ADDRMUS.lo,ADDRMUS.hi)
2020-10-05 21:17:35 +00:00
comm(0,0,0)
while os_CH == $ff {
if antic_vcount == $10 {
antic_wsync = $e
gtia_colbk = $e
takt()
gtia_colbk = 0
}
}
comm($40,0,0)
}
const array player @ ADDRPLA = file("data/cmc_player.rep", 6)
2020-10-05 22:39:20 +00:00
// Music by Michal Brzezicki (Caruso) - Echo
2020-10-05 21:17:35 +00:00
const array music @ ADDRMUS = file("data/echo.cmc", 6)