mirror of
https://github.com/KarolS/millfork.git
synced 2025-01-14 01:29:57 +00:00
25 lines
528 B
Plaintext
25 lines
528 B
Plaintext
|
void main() {
|
|||
|
|
word i
|
|||
|
|
byte hn, ln
|
|||
|
|
// 256-colour text mode for layer 0
|
|||
|
|
vera_poke($40000, $21)
|
|||
|
|
// 8×8 tiles, 64×64 tile map
|
|||
|
|
vera_poke($40001, $35)
|
|||
|
|
// 2× zoom in
|
|||
|
|
vera_poke($40041, $40)
|
|||
|
|
vera_poke($40042, $40)
|
|||
|
|
i = 0
|
|||
|
|
while i < $2000 {
|
|||
|
|
vera_poke(i, $A0)
|
|||
|
|
if i.lo & $7f < 64 {
|
|||
|
|
ln = lo(i>>1) & $1f
|
|||
|
|
hn = lo(i>>2) & $e0
|
|||
|
|
vera_poke(i+1, hn | ln)
|
|||
|
|
} else {
|
|||
|
|
vera_poke(i+1, 0)
|
|||
|
|
}
|
|||
|
|
i += 2
|
|||
|
|
}
|
|||
|
|
while true {}
|
|||
|
|
}
|