mirror of https://git.cro.wtf/kip.git
22 lines
545 B
Plaintext
22 lines
545 B
Plaintext
-inc "x/inc/dev.x20"
|
|
-inc "x/inc/a.x20"
|
|
-org #100
|
|
:entry
|
|
pr ^keeb-down `ivt/keeb/down mw
|
|
pr ^keeb-up `ivt/keeb/up mw
|
|
ex
|
|
;
|
|
:keeb-down pw @data/s0/keeb-down pr ^keeb-act ju ;
|
|
:keeb-up pw @data/s0/keeb-up ;
|
|
:keeb-act pw @t/puts ca `keeb ii pr ^put ca pb `nl `term/0 io ~ju ;
|
|
:ascii? du pb #80 lt sw pb #1f gt an ~ju ;
|
|
:put du pr ^ascii? ca pr ^ascii jc dr ~ju :ascii `term/0 io ; ~ju ;
|
|
:s0 -inc "x/lib/s0.x20" ;
|
|
:t -inc "x/lib/term.x20" ;
|
|
:data
|
|
:s0
|
|
:keeb-down "keyboard down: " #00 ;
|
|
:keeb-up "keyboard up: " #00 ;
|
|
;
|
|
;
|