6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2024-06-12 06:29:34 +00:00
Code Issues Projects Releases Wiki Activity

A8 horizontal stars done on one missile

Browse Source
This commit is contained in:
zbyti 2020-09-22 19:34:29 +02:00
parent 9f40fc5066
commit 86ae6de325
2 changed files with 28 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/README.md
View File

@ -88,15 +88,17 @@ how to create a program made of multiple files loaded on demand
* [Vertical scroll example](a8/vertical_scroll.mfk) – simple vertical scroll example
* [System Off example](a8/systemoff_example.mfk) – Programming example with ROM off
* [Horizontal stars example](a8/horizontal_stars.mfk) – horizontal stars done on one missile
* [GR.8 Chessboard Benchmark](a8/gr8_chessboard_benchmark.mfk) – Chessboard drawing benchmark in GR.8
* [System Off example](a8/systemoff_example.mfk) – programming with ROM off
* [FOR Countdown Benchmark](a8/countdown_for_benchmark.mfk) – Countdown from 1,999,999 to 0 (FOR loop)
* [GR.8 Chessboard Benchmark](a8/gr8_chessboard_benchmark.mfk) – chessboard drawing benchmark in GR.8
* [WHILE Countdown Benchmark](a8/countdown_while_benchmark.mfk) – Countdown from 1,999,999 to 0 (WHILE loop)
* [FOR Countdown Benchmark](a8/countdown_for_benchmark.mfk) – countdown from 1,999,999 to 0 (FOR loop)
* [Sieve of Eratosthenes (1899) Benchmark](a8/sieve1899.mfk) – Sieve of Eratosthenes, 1899 primes algorithm
* [WHILE Countdown Benchmark](a8/countdown_while_benchmark.mfk) – countdown from 1,999,999 to 0 (WHILE loop)
* [Sieve of Eratosthenes (1899) Benchmark](a8/sieve1899.mfk) – sieve of Eratosthenes, 1899 primes algorithm
* [Monte Carlo PI estimation Benchmark](a8/montecarlo_pi_benchmark.mfk) – measures the efficiency of multiplication

21
examples/a8/horizontal_stars.mfk Normal file
View File

@ -0,0 +1,21 @@
void main(){
array(byte) stars[256] align(fast)
byte i
os_PCOLR0 = $e
gtia_grafm = $e
for i:stars {
stars[i] = pokey_random
}
while true {
if antic_vcount == 0 {
for i:stars {
antic_wsync = 1
gtia_hposm0 = stars[i]
stars[i] += 1
}
}
}
}