From 91919c03e8d2dc86c9068a795a73b03483ec9e4a Mon Sep 17 00:00:00 2001
From: Luxferre <3335173-suborg@users.noreply.gitlab.com>
Date: Fri, 29 Jul 2022 08:53:50 +0300
Subject: [PATCH] input debugging start

---
 tal-lib/esop-lib.tal | 29 +++++++++++++++++++++++++++++
 tal-lib/font.tal     |  7 +++++--
 2 files changed, 34 insertions(+), 2 deletions(-)

diff --git a/tal-lib/esop-lib.tal b/tal-lib/esop-lib.tal
index 5ffd759..eef2b03 100644
--- a/tal-lib/esop-lib.tal
+++ b/tal-lib/esop-lib.tal
@@ -17,6 +17,35 @@
 
 %HLT { #1f SYS }
 %DBG { #20 SYS SYS }
+%DBGBYTE { DUP DBG }
+%DBGSHORT { DUP2 SWP DBG DBG }
+
+( input helper macros )
+
+%KP-0 { #0001 }
+%KP-1 { #0002 }
+%KP-2 { #0004 }
+%KP-3 { #0008 }
+%KP-4 { #0010 }
+%KP-5 { #0020 }
+%KP-6 { #0040 }
+%KP-7 { #0080 }
+%KP-8 { #0100 }
+%KP-9 { #0200 }
+%KP-A { #0400 }
+%KP-B { #0800 }
+%KP-C { #1000 }
+%KP-D { #2000 }
+%KP-STAR { #4000 }
+%KP-HASH { #8000 }
+
+( jump to label or subroutine if a particular key is pressed )
+( label* keymask* -- )
+%JMPKEY { DBGSHORT INKEY AND2 SWP2 JCN2 }
+%JSRKEY { INKEY AND2 SWP2 JSR2 }
+
+( misc macros )
 
 ( byte to short )
 %BTS { #00 SWP }
+
diff --git a/tal-lib/font.tal b/tal-lib/font.tal
index 9067e07..c2507f5 100644
--- a/tal-lib/font.tal
+++ b/tal-lib/font.tal
@@ -6,10 +6,13 @@
 |0100
   ;on-frame SETSCRVEC
   #10 #12
-  BRK
+BRK
 
 @on-frame
-  INC DUP2 PXL
+  ,&adv KP-A JMPKEY 
+  BRK
+  &adv
+    INC DUP2 PXL
 BRK
 
 @putc