From fbd75700d593fea3b96ff026f93919890e9eef14 Mon Sep 17 00:00:00 2001
From: Kistaro Windrider <kistaro@gmail.com>
Date: Sun, 3 Aug 2025 15:19:27 -0700
Subject: [PATCH] Implement fixed length arrays

---
 splubp.p8 | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/splubp.p8 b/splubp.p8
index ace9cd5..68b6d26 100644
--- a/splubp.p8
+++ b/splubp.p8
@@ -195,6 +195,14 @@ function splubp:write_shr(n)
  self:wnx(n)
 end
 
+function splubp:write_a(tbl)
+ self:write_c(#tbl)
+ local rpt = self.cri
+ for item in all(tbl) do
+  self.cri = rpt
+  self:wnx(item)
+ end
+end
 -->8
 -- loader
 
@@ -217,3 +225,12 @@ function splubp:shr()
  local amt = self:op()
  return self:rnx() >>> amt
 end
+
+function splubp:a()
+ local ret,rpt = {},self.cri
+ for i = 1,self:c() do
+  self.cri=rpt
+  add(ret, self:rnx())
+ end
+ return ret
+end