esop

commit 5ef288fc907e943325a34153d503cb6997e85e57
parent 5ddd2ed571b47555d08ffbe142e0237f3258b4dd
Author: Luxferre <3335173-suborg@users.noreply.gitlab.com>
Date:   Fri, 29 Jul 2022 08:24:37 +0300

PXL working

Diffstat:
A
tal-lib/esop-lib.tal
 | 
22
++++++++++++++++++++++
A
tal-lib/font.eso
 | 
0

M
tal-lib/font.tal
 | 
21
++-------------------

3 files changed, 24 insertions(+), 19 deletions(-)
diff --git a/tal-lib/esop-lib.tal b/tal-lib/esop-lib.tal
@@ -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 }
diff --git a/tal-lib/font.eso b/tal-lib/font.eso
Binary files differ.
diff --git a/tal-lib/font.tal b/tal-lib/font.tal
@@ -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