input debugging start

2022-07-29 08:53:50 +03:00
parent 7c97d60ed8
commit 91919c03e8
2 changed files with 34 additions and 2 deletions
@@ -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 }
+
@@ -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