(boot.tal) Fixed issue with empty folders

projects/software/boot.tal

@@ -189,6 +189,10 @@ RTN
 	DUP .browser/last LDZ ! ,&has-changed JCN
 		POP RTN
 		&has-changed
+	( beyond )
+	DUP ;dir/lines LDA < ,&valid JCN
+		POP RTN
+		&valid
 
 	#00 ;draw-browser JSR2
 	DUP .browser/sel STZ
@@ -263,6 +267,9 @@ RTN
 
 @draw-browser ( mask -- )
 
+	( when empty )
+	;dir/lines LDA #01 = ;draw-browser-empty JCN2
+
 	STH
 
 	( draw hand )
@@ -273,18 +280,32 @@ RTN
 	( draw files )
 	LINES-COUNT #00
 	&loop
+		( reached end )
+		DUP INC ;dir/lines LDA > ,&end JCN
+		( has file )
 		.browser/x LDZ2 .Screen/x DEO2
 		DUP TOS 10** .browser/y LDZ2 ++ .Screen/y DEO2
 		DUP .browser/scroll LDZ + ;get-entry JSR2 
 			DUP2 ;get-type JSR2 ;draw-type JSR2
 			#01 STHkr * ;draw-str JSR2
 		INC GTHk ,&loop JCN
+		&end
 	POP2
 
 	POPr
 
 RTN
 
+@draw-browser-empty ( mask -- )
+
+	POP
+	.browser/x LDZ2 .Screen/x DEO2
+	.browser/y LDZ2 .Screen/y DEO2
+	;&empty-txt #01 ;draw-str JSR2
+
+RTN
+	&empty-txt "Empty 20 "Folder $1
+
 @get-type ( line* -- type )
 
 	;scap JSR2 #0004 -- ;&rom-ext ;scmp JSR2