draw-str working

tal-lib/esop-lib-subs.tal

@@ -64,10 +64,18 @@
   SWP #04 ADD SWP
   JMP2r
 
-@draw-str ( s* -> )
-  &loop LDAk #00 EQU ,&eof JCN ( did we reach \0 ? )
-  LDAk ;putc JSR2 INC2 ,&loop JMP    ( no so emit a char and repeat )
-  &eof POP2 JMP2r     ( yes so return )
+@draw-str ( x y s* -- x y )
+  &loop
+    LDAk ( x y s* c -- )
+    #00 EQU ,&eof JCN ( eof on #00 )
+    ( x y s* -- )
+    LDAk ( x y s* c -- )
+    ROT ROT ( x y c s* -- )
+    STH2 ( x y c -- )
+    ;putc JSR2 ( x y -- ) 
+    STH2r ( x y s* )
+  INC2 ,&loop JMP
+  &eof POP2 JMP2r
 
 ( nanofont glyphs for ESOP, courtesy of Michaelangel007 )