Draw chr global

4 years ago · f7fbb2ef32
2 changed files with 14 additions and 8 deletions
--- a/src/manifest.tal
+++ b/src/manifest.tal
@ -315,19 +315,12 @@ JMP2r
@draw-str ( str* -- nextstr* )

 	&while
-		LDAk ,draw-chr JSR
+		LDAk ;draw-chr JSR2
 		INC2 LDAk ,&while JCN
 	INC2

 JMP2r

-@draw-chr ( char -- )
-
-	#20 SUB #00 SWP #30 SFT2 ;font ADD2 &raw .Screen/addr DEO2
-	[ LIT &color 01 ] .Screen/sprite DEO
-
-JMP2r
-
 ( theme )

@load-theme ( -- )
--- a/src/nasu.tal
+++ b/src/nasu.tal
@ -1056,6 +1056,19 @@ JMP2r

 JMP2r

+@draw-chr ( char -- )
+
+	#20 SUB #00 SWP #30 SFT2 ;font ADD2 &raw .Screen/addr DEO2
+	[ LIT &color 01 ] .Screen/sprite DEO
+
+JMP2r
+
+@get-strw ( str* -- width* )
+
+	;slen JSR2 #30 SFT2
+
+JMP2r
+
 ( file )

@file-new ( -- )