esop

commit d7d7b60b452a44788256aa79a73969c19a58d481
parent 544bc355a5e82356f67ab06c8ed154910ae4efbe
Author: Luxferre <lux@ferre>
Date:   Fri, 29 Jul 2022 22:29:23 +0300

4x1 scanline output debugged

Diffstat:
M
tal-lib/font.tal
 | 
11
+++++------
M
web/esop-web.html
 | 
2
+-

2 files changed, 6 insertions(+), 7 deletions(-)
diff --git a/tal-lib/font.tal b/tal-lib/font.tal
@@ -1,14 +1,12 @@
 ~esop-lib.tal
 
-
 |0100
   ;on-frame SETSCRVEC
   #10 #12
 BRK
 
 @on-frame
-  #0f ROT ROT DBGSHORT ;line4 JSR2
-  DBGSHORT ( must be #10 12 )
+  #0f ;line4 JSR2
   ;&adv KP-A JMPKEY 
   ;&back KP-B JMPKEY 
   BRK
@@ -27,9 +25,9 @@ BRK
 %CHAR-TO-NF { #20 SUB ;nanofont ADD }
 
 ( 4x1 scanline output from the nibble )
-( nibble x y -- )
+( x y nibble -- x y )
 @line4
-  ROT #04 ( x y nibble counter --)
+  #04 ( x y nibble counter -- )
   &lp
     DEC ( first effective counter value is 3 )
     DUP2 ( x y nibble counter nibble counter -- )
@@ -43,7 +41,8 @@ BRK
     INC ( increment x coord )
     SWP SWP2 ( x y nibble counter -- )
     DUP ,&lp JCN
-
+  POP2 ( x y nibble counter -- x y )
+  SWP #04 SUB SWP
   JMP2r
 
 ( 4x4 sprite output from the memory )
diff --git a/web/esop-web.html b/web/esop-web.html
@@ -24,7 +24,7 @@ html, body {
     <h1>Essential Stack-Operated Phone</h1>
     <canvas id=C width=84 height=48></canvas>
     <div>
-      <input type=file id=appselect><br>
+      <input type=file id=appselect accept=".eso"><br>
       <button type=button id=apprun>Run!</button>
     </div>
     <script src=uxncore.js></script>