(launcher.tal) Resizes on launch

projects/software/launcher.tal

@@ -64,6 +64,10 @@
 	;on-button .Controller/vector DEO2
 	;on-mouse .Mouse/vector DEO2
 
+	( resize )
+	#0200 .Screen/width DEO2
+	#0140 .Screen/height DEO2
+
 	( asma debugger )
 	#0d ;asma/log-level STA
 
@@ -476,12 +480,6 @@ JMP2r
 
 JMP2r
 
-@scat ( src* dst* -- )
-
-	DUP2 ,slen JSR ++ ,scpy JSR
-
-JMP2r
-
 @scmp ( a* b* -- flag )
 
 	STH2
@@ -498,6 +496,26 @@ JMP2r
 
 RTN
 
+@scat ( src* dst* -- )
+
+	DUP2 ,slen JSR ADD2 ,scpy JSR
+
+JMP2r
+
+@slen ( str* -- len* )
+
+	DUP2 ,scap JSR SWP2 SUB2
+
+JMP2r
+
+@scap ( str* -- end* )
+
+	LDAk #00 NEQ JMP JMP2r
+	&while
+		INC2 LDAk ,&while JCN
+
+JMP2r
+
 @scpy ( src* dst* -- )
 	
 	STH2
@@ -509,19 +527,6 @@ RTN
 
 JMP2r
 
-@scap ( str* -- str-end* )
-
-	( clamp ) LDAk #00 ! JMP RTN
-	&while INC2 LDAk ,&while JCN
-
-RTN
-
-@slen ( str* -- len* )
-
-	DUP2 ,scap JSR SWP2 --
-
-JMP2r
-
 @pointer-icn
 	80c0 e0f0 f8e0 1000
 @hand-icn
@@ -558,10 +563,10 @@ JMP2r
 
 ~projects/library/check-rom.tal
 ~projects/library/load-rom.tal
-
 ~projects/assets/mascot0cx0c.tal
 ~projects/assets/msx01x02.tal
 
+( directory memory )
 @dir
 	&path ". $1
 	&length $2