continue fixing inputs

tal-lib/esop-lib.tal

@@ -7,6 +7,7 @@
 %SETSCRVEC { .Control/framevec DEO2 }
 %INKEY { .Control/io DEI2 }
 %PXL { .Control/io DEO2 }
+%PXLk { .Control/io DEO2k }
 %RND { .Control/random DEI }
 %STACKTRACE { #ff .Control/random DEO }
 %DEVSTAT { .Control/status DEI }
@@ -16,8 +17,11 @@
 ( some syscall macros )
 
 %HLT { #1f SYS }
+( val -- )
 %DBG { #20 SYS SYS }
+( val -- val )
 %DBGBYTE { DUP DBG }
+( val* -- val* )
 %DBGSHORT { DUP2 SWP DBG DBG }
 
 ( input helper macros )
@@ -41,7 +45,7 @@
 
 ( jump to label or subroutine if a particular key is pressed )
 ( label* keymask* -- )
-%JMPKEY { INKEY AND2 SWP2 JCN2 }
+%JMPKEY { INKEY AND2 ORA DBGBYTE ROT ROT JCN2 }
 %JSRKEY { INKEY AND2 SWP2 JSR2 }
 
 ( misc macros )
@@ -49,3 +53,6 @@
 ( byte to short )
 %BTS { #00 SWP }
 
+( decrement )
+%DEC { #01 SUB }
+