6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2026-04-20 18:16:35 +00:00
Code Issues Projects Releases Wiki Activity

Commander X16 improvements

Browse Source
This commit is contained in:
Karol Stasiak
2019-09-16 22:55:08 +02:00
parent b1e5176aff
commit 08ef0beeb7
13 changed files with 314 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/x16/balls.mfk
+3 -3
View File
@@ -33,9 +33,9 @@ void main () {
vy[i] = 1 - (rand() & 2)
}
vera_upload_large($10000, sprite_bitmap.addr, sizeof(sprite_bitmap))
vera_upload_large($40800, sprites.addr, sizeof(sprites))
vera_upload_large(VERA_SPRITES, sprites.addr, sizeof(sprites))
// enable sprites:
vera_poke($40020, 1)
vera_poke(VERA_SPRITE_CTRL, 1)
while true {
for i,0,paralleluntil,SPRITE_COUNT {
p = sprites[i].pointer
@@ -50,7 +50,7 @@ void main () {
if y == 0 { vy[i] = 1 }
if y >= 480-32 { vy[i] = 0-1 }
}
vera_upload_large($40800, sprites.addr, sizeof(sprites))
vera_upload_large(VERA_SPRITES, sprites.addr, sizeof(sprites))
}
}
examples/x16/palette.mfk
+4 -4
View File
@@ -2,12 +2,12 @@ void main() {
word i
byte hn, ln
// 256-colour text mode for layer 0
vera_poke($40000, $21)
vera_poke(VERA_LAYER_1, $21)
// 8×8 tiles, 64×64 tile map
vera_poke($40001, $35)
vera_poke(VERA_LAYER_1+1, $35)
// 2× zoom in
vera_poke($40041, $40)
vera_poke($40042, $40)
vera_poke(VERA_COMPOSER_CTRL+1, $40)
vera_poke(VERA_COMPOSER_CTRL+2, $40)
i = 0
while i < $2000 {
vera_poke(i, $A0)