From d021cf7a2007cf3ba903e742d00f8c005cbac8ae Mon Sep 17 00:00:00 2001
From: Romain Dolbeau <romain@dolbeau.org>
Date: Sun, 9 Oct 2022 12:44:34 +0200
Subject: [PATCH] missing files?

---
 .../goblin_jareth_define.fth                  | 73 +++++++++++++++++++
 .../goblin_jareth_init.fth                    |  8 ++
 2 files changed, 81 insertions(+)
 create mode 100644 sbus-to-ztex-gateware-migen/goblin_jareth_define.fth
 create mode 100644 sbus-to-ztex-gateware-migen/goblin_jareth_init.fth

diff --git a/sbus-to-ztex-gateware-migen/goblin_jareth_define.fth b/sbus-to-ztex-gateware-migen/goblin_jareth_define.fth
new file mode 100644
index 0000000..8c6c948
--- /dev/null
+++ b/sbus-to-ztex-gateware-migen/goblin_jareth_define.fth
@@ -0,0 +1,73 @@
+\ various register support functions
+: gar! ( val off -- )
+  goblin_accel-virt + l!
+;
+
+\ 0: status
+
+: cmd-gar! ( val -- )
+  h# 4 gar!
+;
+
+\ 8: r5_cmd
+
+\ c: resv0
+
+: width_gar! ( val -- )
+  h# 10 gar!
+;
+
+: height_gar! ( val -- )
+  h# 14 gar!
+;
+
+\ 18: fg_color
+
+\ 1c: resv2
+
+: srcx_gar! ( val -- )
+  h# 20 gar!
+;
+
+: srcy_gar! ( val -- )
+  h# 24 gar!
+;
+
+: dstx_gar! ( val -- )
+  h# 28 gar!
+;
+
+: dsty_gar! ( val -- )
+  h# 2c gar!
+;
+
+: srcstride_gar! ( val -- )
+  h# 30 gar!
+;
+
+: dststride_gar! ( val -- )
+  h# 34 gar!
+;
+
+\ 38: src_ptr
+\ 3c: dst_ptr
+
+: gar@ ( off -- val )
+  goblin_accel-virt + l@
+;
+
+: status-gar@ ( val -- )
+  0 gar@
+;
+
+\ busy-wait on running in status
+: jareth-busy-wait ( -- )
+    begin
+        status-gar@
+        h# 1 \ 1 << WORK_IN_PROGRESS_BIT
+        and 
+        0=
+	until
+;
+
+h# 8f80000 constant fb-base
diff --git a/sbus-to-ztex-gateware-migen/goblin_jareth_init.fth b/sbus-to-ztex-gateware-migen/goblin_jareth_init.fth
new file mode 100644
index 0000000..758ef14
--- /dev/null
+++ b/sbus-to-ztex-gateware-migen/goblin_jareth_init.fth
@@ -0,0 +1,8 @@
+: jareth-blit ( cx0 cy0 cx1 cy1 cx2 cy2 cx3 cy3 -- )
+  \ TODO
+	jareth-busy-wait
+;
+
+: jareth-init
+  
+;