PXL working

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 }

tal-lib/font.tal

@@ -1,21 +1,4 @@
-( ESOP stdlib )
+~esop-lib.tal
-
-|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 }
 
 ( 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