Fixed issue with filepath clearing

2 years ago · 2b9a7535a1
1 changed files with 15 additions and 0 deletions
--- a/src/nasu.tal
+++ b/src/nasu.tal
@ -1036,6 +1036,9 @@ JMP2r

 	.toolview/x1 LDZ2 #0040 ADD2 .Screen/x DEO2
 	.toolview/y1 LDZ2 INC2 .Screen/y DEO2
+	( clear )
+	DUP #00 EQU ?clear-filepath
+
 	;draw-chr/color STA
 	;filepath
 	( scroll )
@ -1045,6 +1048,18 @@ JMP2r

 JMP2r

+@clear-filepath ( color -- )
+
+	POP
+	;fill-icn .Screen/addr DEO2
+	#01 .Screen/auto DEO
+	#1300 &l ( -- )
+		#00 .Screen/sprite DEO
+		INC GTHk ?&l
+	POP2
+
+JMP2r
+
@draw-fill-fast ( width color auto addr* -- )

 	.Screen/addr DEO2