fixed inkey bytes

2022-07-29 09:07:05 +03:00
parent 91919c03e8
commit 6cd8c459bb
3 changed files with 4 additions and 3 deletions
@@ -41,7 +41,7 @@

 ( jump to label or subroutine if a particular key is pressed )
 ( label* keymask* -- )
-%JMPKEY { DBGSHORT INKEY AND2 SWP2 JCN2 }
+%JMPKEY { INKEY AND2 SWP2 JCN2 }
 %JSRKEY { INKEY AND2 SWP2 JSR2 }

 ( misc macros )
@@ -9,10 +9,11 @@
 BRK

@on-frame
+  DUP2 PXL
  ,&adv KP-A JMPKEY 
  BRK
  &adv
-    INC DUP2 PXL
+    INC
 BRK

@putc
@@ -111,7 +111,7 @@ function ESOPExtensions() {
      var k = e.key
      if(k in livemap) {
        var keyval = livemap[k],
-            portnum = keyval>7 ? 3 : 2,
+            portnum = keyval>7 ? 2 : 3,
            bitmask = 1<<(keyval&7)
        vm.setdev(portnum, vm.getdev(portnum) | bitmask)
      }