optimizing koalaviewer

docs/source/todo.rst

@@ -2,6 +2,7 @@
 TODO
 ====
 
+- use 'stz' more on cx16 when setting variables to zero or clearing a word's msb etc.
 - see if we can group some errors together for instance the (now single) errors about unidentified symbols
 - Cx16 target: support full-screen 640x480 and 320x240 graphics? That requires our own custom graphics routines though to draw lines.
 - make it possible to use cpu opcodes such as 'nop' as variable names by prefixing all asm vars with something such as '_'

examples/cx16/imgviewer/koalaviewer.p8

@@ -61,24 +61,24 @@ main {
     }
 
     sub convert_koalapic() {
-        ubyte cx
         ubyte cy
-        uword cy_times_forty = 0
-        ubyte bb
-        ubyte c0
-        ubyte c1
-        ubyte c2
-        ubyte c3
+        ubyte @zp cx
+        uword @zp cy_times_forty = 0
+        ubyte @zp c0
+        ubyte @zp c1
+        ubyte @zp c2
+        ubyte @zp c3
         uword bitmap = load_location
 
         screen_color = @(load_location + 8000 + 1000 + 1000) & 15
 
-        for cy in 0 to 24 {
+        for cy in 0 to 24*8 step 8 {
+            cx16.r0 = 0
             for cx in 0 to 39 {
-                for bb in 0 to 7 {
-                    cx16.r0 = cx * $0008
-                    cx16.r1 = cy * 8 + bb
+                cx16.r1 = cy
+                repeat 8 {
                     cx16.FB_cursor_position()
+                    cx16.r1 ++
                     get_4_pixels()
                     cx16.FB_set_pixel(c0)
                     cx16.FB_set_pixel(c0)
@@ -90,18 +90,23 @@ main {
                     cx16.FB_set_pixel(c3)
                     bitmap++
                 }
+                cx16.r0 += 8
             }
             cy_times_forty += 40
         }
 
         sub get_4_pixels() {
-            c0 = mcol(@(bitmap)>>6)
-            c1 = mcol(@(bitmap)>>4)
-            c2 = mcol(@(bitmap)>>2)
-            c3 = mcol(@(bitmap))
+            ubyte  bm = @(bitmap)
+            c3 = mcol(bm)
+            bm >>= 2
+            c2 = mcol(bm)
+            bm >>= 2
+            c1 = mcol(bm)
+            bm >>= 2
+            c0 = mcol(bm)
 
             sub mcol(ubyte b) -> ubyte {
-                ubyte color
+                ubyte @zp color
                 when b & 3 {
                     0 -> color = screen_color
                     1 -> color = @(load_location + 8000 + cy_times_forty + cx) >>4

examples/test.p8

@@ -5,18 +5,16 @@
 
 main {
     sub start() {
-        txt.fill_screen('.',2)
+        uword uw
+        ubyte ub1
+        ubyte ub2
 
-        repeat {
-        }
-    }
+        uw = ub1 as uword + ub2     ; fairly ok asm  (TODO make it use stz on cx16)
+        ub1++
+        uw = ub1 + ub2          ; TODO horrible asm using the eval stack... fix
 
-    sub delay () {
-        ubyte tt
-        repeat 55 {
-            repeat 255 {
-                tt++
-            }
-        }
+        uw *= 8     ; TODO is using a loop... unroll somewhat
+
+        txt.print("hello\n")
     }
 }