add Amiga boing ball example, plus more pet syslib definitions, and pet diskio beginnings

examples/c64/boingball.p8

@@ -0,0 +1,77 @@
+%import textio
+%import floats
+%option no_sysinit
+
+main {
+    sub start() {
+        boing64()
+    }
+
+    sub boing64() {
+        txt.color(4)
+        txt.cls()
+
+        c64.EXTCOL = 12
+        c64.BGCOL0 = 12
+
+        const ubyte size = 24
+        const ubyte center = size / 2
+        const uword radius = size / 2 - 1
+        const float radius_squared = radius*radius as float
+
+        ubyte y, x
+
+        ; --- draw the purple grid ---
+        for y in 0 to 24 step 4 {
+            for x in 0 to 39 {
+                txt.setchr(x, y, 160)
+            }
+        }
+        for x in 0 to 39 step 4 {
+            for y in 0 to 24 {
+                txt.setchr(x, y, 160)
+            }
+        }
+        for y in 0 to 24
+            txt.setcc(39, y, 160, 4)
+
+        const ubyte lon_divs = 14
+        const ubyte lat_divs = 7
+        const float tilt_rads = -0.3
+
+        const float cos_a = floats.cos(tilt_rads)
+        const float sin_a = floats.sin(tilt_rads)
+
+        const float half_π = floats.π / 2.0
+
+
+        for y in 0 to size-1 {
+            for x in 0 to size-1 {
+                byte dx = (x - center) as byte
+                byte dy = (y - center) as byte
+                float rx = dx * cos_a - dy * sin_a
+                float ry = dx * sin_a + dy * cos_a
+                float dist_sq = rx*rx + ry*ry
+
+                if dist_sq <= radius_squared {
+                    float rz = sqrt(radius_squared - dist_sq)
+                    float a = ry/radius
+                    float phi = floats.atan(a / sqrt(1 - a * a))   ;  asin(ry/radius)
+                    float theta = floats.atan2(rx, rz)
+
+                    ubyte lon_idx = ((theta + floats.π) / floats.TWOPI * lon_divs) as ubyte
+                    ubyte lat_idx = ((phi + half_π) / floats.π * lat_divs + 0.5) as ubyte
+
+                    ; ubyte color = if (lon_idx + lat_idx) % 2 == 0 then 1 else 2
+                    txt.setcc(x + 8, y, 160, 1 + ((lon_idx + lat_idx) & 1))
+                }
+            }
+        }
+
+        txt.color(0)
+        txt.plot(1,1)
+        txt.print("boing!")
+
+        repeat { }
+    }
+}

examples/cx16/boingball.p8

@@ -0,0 +1,75 @@
+%import palette
+%import textio
+%import floats
+%option no_sysinit
+%zeropage basicsafe
+
+main {
+    sub start() {
+        boingx16()
+    }
+
+    sub boingx16() {
+        ; adjust purple and red
+        palette.set_color(4, $808)
+        palette.set_color(2, $e00)
+        txt.color2(4, 12)
+        txt.cls()
+
+        const ubyte size = 60
+        const ubyte center = size / 2
+        const uword radius = size / 2 - 4
+        const float radius_squared = radius*radius as float
+
+        ubyte y, x
+
+        ; --- draw the purple grid ---
+        for y in 0 to 59 step 8 {
+            for x in 0 to 79 {
+                txt.setchr(x, y, 160)
+            }
+        }
+        for x in 0 to 79 step 8 {
+            for y in 0 to 59 {
+                txt.setchr(x, y, 160)
+            }
+        }
+
+        const ubyte lon_divs = 14
+        const ubyte lat_divs = 7
+        const float tilt_rads = -0.3
+
+        const float cos_a = floats.cos(tilt_rads)
+        const float sin_a = floats.sin(tilt_rads)
+
+        const float half_π = floats.π / 2.0
+
+
+        for y in 0 to size-1 {
+            for x in 0 to size-1 {
+                byte dx = (x - center) as byte
+                byte dy = (y - center) as byte
+                float rx = dx * cos_a - dy * sin_a
+                float ry = dx * sin_a + dy * cos_a
+                float dist_sq = rx*rx + ry*ry
+
+                if dist_sq <= radius_squared {
+                    float rz = sqrt(radius_squared - dist_sq)
+                    float a = ry/radius
+                    float phi = floats.atan(a / sqrt(1 - a * a))   ;  asin(ry/radius)
+                    float theta = floats.atan2(rx, rz)
+
+                    ubyte lon_idx = ((theta + floats.π) / floats.TWOPI * lon_divs) as ubyte
+                    ubyte lat_idx = ((phi + half_π) / floats.π * lat_divs + 0.5) as ubyte
+
+                    ; ubyte color = if (lon_idx + lat_idx) % 2 == 0 then 1 else 2
+                    txt.setcc(x + 8, y, 160, 1 + ((lon_idx + lat_idx) & 1))
+                }
+            }
+        }
+
+        txt.color(0)
+        txt.plot(1,1)
+        txt.print("boing!\n")
+    }
+}

examples/test.p8

@@ -1,13 +1,24 @@
 %import textio
-%import strings
-%import floats
-%option no_sysinit
+%import diskio
 %zeropage basicsafe
 
-
 main {
-    float f1 = 3.1415927
     sub start() {
-        txt.print_f(sqrt(f1))
+        cbm.SETNAM(7, "0:blerp")
+        cbm.SETLFS(12, 8, 0)
+        void cbm.OPEN()          ; open 12,8,0,"$"
+        cbm.CLOSE(12)
+
+        txt.print(diskio.status())
+
+;
+;        void cbm.CHKIN(12)
+;
+;        while cbm.READST()==0 {
+;            cx16.r0L = cbm.CHRIN()
+;            txt.chrout(cx16.r0L)
+;        }
+;
+;        cbm.CLOSE(12)
     }
 }