Fixed issue with nametable

2 years ago · 179da087ad
1 changed files with 5 additions and 3 deletions
--- a/src/nasu.tal
+++ b/src/nasu.tal
@ -727,13 +727,15 @@ JMP2r

@draw-nametable ( -- )

-	.nametableview/y LDZ2 .Screen/y DEO2
+	#00 .Screen/auto DEO
 	#1000
-	&ver
+	&ver ( -- )
+		( > y ) #00 OVR #30 SFT2 .nametableview/y LDZ2 ADD2 .Screen/y DEO2
 		STHk
 		.nametableview/x LDZ2 .Screen/x DEO2
 		#1000
-		&hor
+		&hor ( -- )
+			( > x ) #00 OVR #30 SFT2 .nametableview/x LDZ2 ADD2 .Screen/x DEO2
 			( id ) #00 OVR STHkr #40 SFT ADD
 			( addr* ) #0003 MUL2 ;nametable ADD2
 				LDA2k ;spritesheet ADD2 .Screen/addr DEO2