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

x/dev.inc

This commit is contained in:
Kitty-Cricket Piapiac 2023-03-21 14:16:52 -07:00
parent f4b062cfc6
commit 1a804c0cba
4 changed files with 27 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
x/dev.inc Normal file
View File

@ -0,0 +1,12 @@
{device macro defs}
!term:0 pb #0 ;
!term:1 pb #1 ;
!disk:size pb #2 ;
!disk:seek pb #3 ;
!disk:read pb #4 ;
!disp:pos pb #5 ;
!disp:blt pb #6 ;
!disp:out pb #7 ;
!mouse:pos pb #8 ;
!mouse:but pb #9 ;

25
x/display.kmm
View File

@ -1,22 +1,17 @@
!t:1 pb #00 ;
!t:2 pb #01 ;
!d:pos pb #05 ;
!d:blt pb #06 ;
!d:out pb #07 ;
-inc "x/dev.inc"
-org #100
:entry
pw @box1bpp `d:blt io
pw #00100010 `d:pos io
ph #0f01 `d:out io
pw @box1bpp `disp:blt io
pw #00100010 `disp:pos io
ph #0f01 `disp:out io
pw @box2bpp `d:blt io
pw #00180018 `d:pos io
pw #00fff002 `d:out io
pw @box2bpp `disp:blt io
pw #00180018 `disp:pos io
pw #00fff002 `disp:out io
pw @box4bpp `d:blt io
pw #00200020 `d:pos io
ph #0f03 `d:out io
pw @box4bpp `disp:blt io
pw #00200020 `disp:pos io
ph #0f03 `disp:out io
ex
:box1bpp

9
x/hello.kmm
View File

@ -1,7 +1,4 @@
{ this file displays all the capabilities of kipas (but not of the kip machine) }
{ macro definitions }
!term pb #0 ;
-inc "x/dev.inc"
!inc pb #1 ad ; { this is not the case of labels, which can be }
!nl #0a ; { referenced before they are defined }
@ -13,10 +10,10 @@
:loop
du fb
du no pw @end jc { `@end` is a 32-bit reference to `:end` below }
`term io `inc { `term literally includes `pb #0` from earlier }
`term:0 io `inc { `term literally includes `pb #0` from dev.inc }
pw @loop ju
:end
dd dd
ex
:hello "hello, world" `nl #00
:hello "hello, world!" `nl #00

11
x/vsync.kmm
View File

@ -1,11 +1,4 @@
!term:0 pb #0 ;
!term:1 pb #1 ;
!disp:pos pb #5 ;
!disp:blt pb #6 ;
!disp:out pb #7 ;
!mous:pos pb #8 ;
!mous:but pb #9 ;
-inc "x/dev.inc"
!vsync pb #0 ;
!ret mr ju ;
@ -22,7 +15,7 @@
pw @data:2b:cursor `disp:blt io
pw @cursormove:pos fw `disp:pos io
pw #00fff072 `disp:out io
`mous:pos ii du `disp:pos io pw @cursormove:pos mw
`mouse:pos ii du `disp:pos io pw @cursormove:pos mw
pw #00f25032 `disp:out io
`ret
:cursormove:pos #00000000