A8 more examples

examples/README.md

@@ -84,11 +84,17 @@ how to create a program made of multiple files loaded on demand
 
 * [DLI example](a8/dli_example.mfk) – simple display list and display list interrupt example
 
-* [Scroll example](a8/endless_scroll.mfk) – simple horizontal scroll example
+* [Horizontal scroll example](a8/endless_scroll.mfk) – simple horizontal scroll example
+
+* [Vertical scroll example](a8/vertical_scroll.mfk) – simple vertical scroll example
 
 * [System Off example](a8/systemoff_example.mfk) – Programming example with ROM off
 
-* [GR.8 Chessboard Benchmark](a8/gr8_chessboard_benchmark.mfk) – Chessboard drawing benchmark in GR.0
+* [GR.8 Chessboard Benchmark](a8/gr8_chessboard_benchmark.mfk) – Chessboard drawing benchmark in GR.8
+
+* [FOR Countdown Benchmark](a8/countdown_for_benchmark.mfk) – Countdown from 1,999,999 to 0 (FOR loop)
+
+* [WHILE Countdown Benchmark](a8/countdown_while_benchmark.mfk) – Countdown from 1,999,999 to 0 (WHILE loop)
 
 ## Game Boy examples
 

examples/a8/countdown_for_benchmark.mfk

@@ -0,0 +1,98 @@
+byte RTCLOK @ 0
+byte iter0B @ 1
+word iter0W @ 2
+bool run_counter @ 4
+
+byte zpr_0 @ $24, zpr_1 @ $23, zpr_2 @ $22, zpr_3 @ $21, zpr_4 @ $20
+byte zpc_0 @ $47, zpc_1 @ $46, zpc_2 @ $45, zpc_3 @ $44, zpc_4 @ $43, zpc_5 @ $42, zpc_6 @ $41
+
+const array(byte) dl align(16) = [
+  $70,$70,$70,
+  $42,$20,0,
+  $41,@word[dl.addr]
+]
+
+void system_off(){
+  asm { sei }
+  antic_nmien = 0
+  pia_portb = $fe
+  os_NMIVEC = vbi.addr
+  run_counter = false
+  antic_nmien = $40
+}
+
+asm void pause() {
+  lda RTCLOK
+  .rt_check:
+  cmp RTCLOK
+  beq .rt_check
+  rts
+}
+
+interrupt void vbi(){
+  RTCLOK += 1
+  if run_counter{
+    zpr_0 += 1
+    if zpr_0 == 10 {
+      zpr_1 += 1
+      zpr_0 = 0
+    }
+    if zpr_1 == 10 {
+      zpr_2 += 1
+      zpr_1 = 0
+    }
+    if zpr_2 == 10 {
+      zpr_3 += 1
+      zpr_2 = 0
+    }
+    if zpr_3 == 10 {
+      zpr_4 += 1
+      zpr_3 = 0
+    }
+  }
+}
+
+void copy_block(pointer src, pointer dsc, word size){
+  for iter0W,0,to,size-1{
+    dsc[iter0W] = src[iter0W]
+  }
+}
+
+void set_block(pointer from, word size, byte val){
+  for iter0W,0,to,size-1{
+    from[iter0W] = val
+  }
+}
+
+void main(){
+  copy_block($e080,$4000,80)
+  system_off()
+  set_block($20,40,255)
+  set_block($20,5,0)
+  set_block($41,7,0)
+
+  pause()
+  antic_chbase = $40
+  antic_dlist = dl.addr
+
+  run_counter = true
+
+  for zpc_6,1,downto,0{
+    for zpc_5,9,downto,0{
+      for zpc_4,9,downto,0{
+        for zpc_3,9,downto,0{
+          for zpc_2,9,downto,0{
+            for zpc_1,9,downto,0{
+              for zpc_0,9,downto,0{
+              }
+            }
+          }
+        }
+      }
+    }
+  }
+
+  run_counter = false
+
+  while true {}
+}

examples/a8/countdown_while_benchmark.mfk

@@ -0,0 +1,119 @@
+byte RTCLOK @ 0
+byte iter0B @ 1
+word iter0W @ 2
+bool run_counter @ 4
+
+byte zpr_0 @ $24, zpr_1 @ $23, zpr_2 @ $22, zpr_3 @ $21, zpr_4 @ $20
+byte zpc_0 @ $47, zpc_1 @ $46, zpc_2 @ $45, zpc_3 @ $44, zpc_4 @ $43, zpc_5 @ $42, zpc_6 @ $41
+
+const array(byte) dl align(16) = [
+  $70,$70,$70,
+  $42,$20,0,
+  $41,@word[dl.addr]
+]
+
+void system_off(){
+  asm { sei }
+  antic_nmien = 0
+  pia_portb = $fe
+  os_NMIVEC = vbi.addr
+  run_counter = false
+  antic_nmien = $40
+}
+
+asm void pause() {
+  lda RTCLOK
+  .rt_check:
+  cmp RTCLOK
+  beq .rt_check
+  rts
+}
+
+interrupt void vbi(){
+  RTCLOK += 1
+  if run_counter{
+    zpr_0 += 1
+    if zpr_0 == 10 {
+      zpr_1 += 1
+      zpr_0 = 0
+    }
+    if zpr_1 == 10 {
+      zpr_2 += 1
+      zpr_1 = 0
+    }
+    if zpr_2 == 10 {
+      zpr_3 += 1
+      zpr_2 = 0
+    }
+    if zpr_3 == 10 {
+      zpr_4 += 1
+      zpr_3 = 0
+    }
+  }
+}
+
+void copy_block(pointer src, pointer dsc, word size){
+  for iter0W,0,to,size-1{
+    dsc[iter0W] = src[iter0W]
+  }
+}
+
+void set_block(pointer from, word size, byte val){
+  for iter0W,0,to,size-1{
+    from[iter0W] = val
+  }
+}
+
+void main(){
+  copy_block($e080,$4000,80)
+  system_off()
+  set_block($20,40,255)
+  set_block($20,5,0)
+  set_block($41,7,0)
+
+  zpc_0 = 9
+  zpc_1 = 9
+  zpc_2 = 9
+  zpc_3 = 9
+  zpc_4 = 9
+  zpc_5 = 9
+  zpc_6 = 1
+
+  pause()
+  antic_chbase = $40
+  antic_dlist = dl.addr
+
+  run_counter = true
+
+  while(zpc_6 != $ff){
+    zpc_5 = 9
+    while(zpc_5 != $ff){
+      zpc_4 = 9
+      while(zpc_4 != $ff){
+        zpc_3 = 9
+        while(zpc_3 != $ff){
+          zpc_2 = 9
+          while(zpc_2 != $ff){
+            zpc_1 = 9
+            while(zpc_1 != $ff){
+              zpc_0 = 9
+              while(zpc_0 != $ff){
+                zpc_0 -= 1
+              }
+              zpc_1 -= 1
+            }
+            zpc_2 -= 1
+          }
+          zpc_3 -= 1
+        }
+        zpc_4 -= 1
+      }
+      zpc_5 -= 1
+    }
+    zpc_6 -= 1
+  }
+
+  run_counter = false
+
+  while true {}
+}

examples/a8/vertical_scroll.mfk

@@ -0,0 +1,37 @@
+const array text align(64) = "...MILLFORK RULEZ..." atariscr
+
+const array(byte) dl align(16) = [
+  $70,$70,$70,$70,
+  $67,@word[text.addr],
+  $41,@word[dl.addr]
+]
+
+noinline asm void wait(byte register(a) f) {
+  clc
+  adc os_RTCLOK.b2
+  .rt_check:
+  cmp os_RTCLOK.b2
+  bne .rt_check
+  rts
+}
+
+void main(){
+  byte i0B @ $80
+
+  i0B = $f
+  os_SDLST = dl.addr
+
+  while true {
+    while (i0B != 0){
+      i0B -= 1
+      antic_vscrol = i0B
+      wait(3)
+    }
+    wait(50)
+    while (i0B < $f){
+      i0B += 1
+      antic_vscrol = i0B
+      wait(2)
+    }
+  }
+}