luxferre/esop
1
0
Fork 0
Code Actions Activity

fixed inkey bytes

Browse Source
This commit is contained in:
Luxferre
2022-07-29 09:07:05 +03:00
parent 91919c03e8
commit 6cd8c459bb
3 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tal-lib/esop-lib.tal
+1 -1
View File
@@ -41,7 +41,7 @@
( jump to label or subroutine if a particular key is pressed ) ( jump to label or subroutine if a particular key is pressed )
( label* keymask* -- ) ( label* keymask* -- )
%JMPKEY { DBGSHORT INKEY AND2 SWP2 JCN2 } %JMPKEY { INKEY AND2 SWP2 JCN2 }
%JSRKEY { INKEY AND2 SWP2 JSR2 } %JSRKEY { INKEY AND2 SWP2 JSR2 }
( misc macros ) ( misc macros )
tal-lib/font.tal
+2 -1
View File
@@ -9,10 +9,11 @@
BRK BRK
@on-frame @on-frame
DUP2 PXL
,&adv KP-A JMPKEY ,&adv KP-A JMPKEY
BRK BRK
&adv &adv
INC DUP2 PXL INC
BRK BRK
@putc @putc
web/esop-ext.js
+1 -1
View File
@@ -111,7 +111,7 @@ function ESOPExtensions() {
var k = e.key var k = e.key
if(k in livemap) { if(k in livemap) {
var keyval = livemap[k], var keyval = livemap[k],
portnum = keyval>7 ? 3 : 2, portnum = keyval>7 ? 2 : 3,
bitmask = 1<<(keyval&7) bitmask = 1<<(keyval&7)
vm.setdev(portnum, vm.getdev(portnum) | bitmask) vm.setdev(portnum, vm.getdev(portnum) | bitmask)
} }