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

x/use relative refs

This commit is contained in:
Kitty-Cricket Piapiac 2023-04-03 01:34:36 -07:00
parent 07a7728b01
commit c5882969bc
4 changed files with 15 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
x/keeb.kmm
View File

@ -2,18 +2,15 @@
-inc "x/inc/a.kmm"
-org #100
:entry
pw @ivt/keeb-down `ivt/keeb/down mw
pw @ivt/keeb-up `ivt/keeb/up mw
pr ^keeb-down `ivt/keeb/down mw
pr ^keeb-up `ivt/keeb/up mw
ex
;
:ivt
:keeb-down pw @data/s0/keeb-down pw @t/puts ca `keeb ii pw @key/put ca pb `nl `term/0 io ~ju ;
:keeb-up pw @data/s0/keeb-up pw @t/puts ca `keeb ii pw @key/put ca pb `nl `term/0 io ~ju ;
;
:key
:ascii? du pb #80 lt sw pb #1f gt an ~ju ;
:put du pw @ascii? ca pw @ascii jc dr ~ju :ascii `term/0 io ; ~ju ;
;
: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.kmm" ;
:t -inc "x/lib/term.kmm" ;
:data

6
x/lib/graphics.kmm
View File

@ -1,7 +1,5 @@
{:putc {xy c-- sw `disp/pos io pw @data/full `disp/blt io ph #ff71 `disp/out io pb #08 mu pw @data/font/Corsivo ad `disp/blt io `disp/out io ~ju ;
}
:putc {xy c--} pw @data/full `disp/blt io sw `disp/pos io ph #ff71 `disp/out io
pb #08 mu pw @data/font/Corsivo ad `disp/blt io ph #ff31 `disp/out io ~ju ;
:putcx {c--} pw @x sw ov fw sw pw @putc ca du fh pb #08 ad sw mh ~ju :x #0000 ; :y #0000 ; ;
:puts {xy *s--} sw pw @putcx/x mw pw @putcx pw @s0/for ca ~ju ;
:putcx {c--} pr ^x sw ov fw sw pr ^putc ca du fh pb #08 ad sw mh ~ju :x #0000 ; :y #0000 ; ;
:puts {xy *s--} sw pw @putcx/x mw pr ^putcx pw @s0/for ca ~ju ;
:data :full #ffffffff #ffffffff ; :font -inc "x/inc/corsivo.kmm" ; ;

2
x/lib/s0.kmm
View File

@ -1 +1 @@
:for {*s *f--} ss :loop du fb du no pw @end jc ~du ~ss ca `+1 pw @loop ju ; :end dr dr ~dr ; ~ju ;
:for {*s *f--} ss :loop du fb du no pr ^end jc ~du ~ss ca `+1 pr ^loop ju ; :end dr dr ~dr ; ~ju ;

10
x/vsync.kmm
View File

@ -1,18 +1,18 @@
-inc "x/inc/dev.kmm"
-org #0100
:entry
pw @cursormove `ivt/disp/vsync mw
pr ^cursormove `ivt/disp/vsync mw
ex
;
:cursormove
pw @data/2b/cursor `disp/blt io
pw @pos fw `disp/pos io
pw @data/cursor `disp/blt io
pr ^pos fw `disp/pos io
pw #00ffff72 `disp/out io
`mouse/pos ii du `disp/pos io pw @pos mw
`mouse/pos ii du `disp/pos io pr ^pos mw
pw #00f25032 `disp/out io
~ju
:pos #00000000 ;
;
:data
:2b :cursor #f000ec00 #eb00eac0 #eaf0eec0 #ffc0c3c0 ; ;
:cursor #f000ec00 #eb00eac0 #eaf0eec0 #ffc0c3c0 ;
;