Function pointers – initial version

include/stdlib_6502.mfk

@@ -47,4 +47,8 @@ macro asm void panic() {
     ? JSR _panic
 }
 
-array __constant8 = [8]
+const array __constant8 = [8]
+
+#if ZPREG_SIZE < 4
+const array call = [2]
+#endif

include/stdlib_i80.mfk

@@ -53,3 +53,8 @@ _lo_nibble_to_hex_lbl:
 macro asm void panic() {
     ? CALL _panic
 }
+
+noinline asm word call(word de) {
+    PUSH DE
+    RET
+}

include/zp_reg.mfk

@@ -96,3 +96,11 @@ asm word __div_u16u8u16u8() {
 }
 
 #endif
+
+#if ZPREG_SIZE >= 4
+
+noinline asm word call(word ax) {
+    JMP ((__reg + 2))
+}
+
+#endif