kcp
/
kip
mirror of https://git.cro.wtf/kip.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

x/keeb.kmm:update after new-isa

This commit is contained in:
Kitty-Cricket Piapiac 2023-03-27 19:45:24 -07:00
parent 9c0258e9ff
commit 94226f86f7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
x/keeb.kmm
View File

@ -1,7 +1,7 @@
-inc "x/dev.inc"
!+1 pb #1 ad ;
!nl #0a ;
!ret mr ju ;
!ret ~ju ;
-org #100
:entry
@ -25,10 +25,10 @@
;
:key
:ascii? du pb #80 lt sw pb #1f gt an `ret ;
:put du pw @ascii? ca pw @ascii jc dd `ret :ascii `term:0 io ; `ret ;
:put du pw @ascii? ca pw @ascii jc dr `ret :ascii `term:0 io ; `ret ;
;
:s0
:put du fb du no pw @end jc `term:0 io `+1 pw @put ju :end dd dd ; `ret ;
:put du fb du no pw @end jc `term:0 io `+1 pw @put ju :end dr dr ; `ret ;
;
:data
:keeb-down "keyboard down: " #00 ;