luxferre/esop
1
0
Fork 0
Code Actions Activity

PXL working

Browse Source
This commit is contained in:
Luxferre
2022-07-29 08:24:37 +03:00
parent 5ddd2ed571
commit 5ef288fc90
3 changed files with 24 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tal-lib/esop-lib.tal
+22
View File
@@ -0,0 +1,22 @@
( ESOP stdlib, macro part )
|00 @Control [ &framevec $2 &io $2 &random $1 &status $1 &sound $1 &syscall $1 ]
( control block macros )
%SETSCRVEC { .Control/framevec DEO2 }
%INKEY { .Control/io DEI2 }
%PXL { .Control/io DEO2 }
%RND { .Control/random DEI }
%STACKTRACE { #ff .Control/random DEO }
%DEVSTAT { .Control/status DEI }
%SND { .Control/sound DEO }
%SYS { .Control/syscall DEO }
( some syscall macros )
%HLT { #1f SYS }
%DBG { #20 SYS SYS }
( byte to short )
%BTS { #00 SWP }
tal-lib/font.eso
BIN
View File
Binary file not shown.
tal-lib/font.tal
+2 -19
View File
@@ -1,21 +1,4 @@
( ESOP stdlib )
|00 @Control [ &framevec $2 &io $2 &random $1 &status $1 &sound $1 &syscall $1 ]
( byte to short )
( x -- 00 x )
%BTS { #00 SWP }
( screen is #54 x #30 )
%SETSCRVEC { .Control/framevec DEO2 }
%RND { .Control/random DEI }
%STACKTRACE { #ff .Control/random DEO }
%SYS { .Control/syscall DEO }
%INKEY { .Control/io DEI2 }
%PXL { .Control/io DEO2 }
%DBG { #20 SYS SYS }
%SND { .Control/sound DEO }
~esop-lib.tal
( subtract #20 from the ASCII code and you get the offset from the nanofont label )
%CHAR-TO-NF { #20 SUB ;nanofont ADD }
@@ -26,7 +9,7 @@
BRK
@on-frame
DUP2 INC PXL
INC DUP2 PXL
BRK
@putc