changeset 2331:f500831f7fb4

Fix missing init in fake TMSS
author Michael Pavone <pavone@retrodev.com>
date Wed, 23 Aug 2023 22:20:48 -0700
parents 959a3e9aaac5
children 7518db62d232
files tmss.s68
diffstat 1 files changed, 28 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/tmss.s68	Wed Aug 23 22:09:35 2023 -0700
+++ b/tmss.s68	Wed Aug 23 22:20:48 2023 -0700
@@ -95,7 +95,7 @@
 	dc.b "                "
 	dc.b "                "
 	dc.b "JUE             "
-	
+
 frame_counter equ $FFFF8000
 ram_code equ $FFFF8002
 
@@ -118,13 +118,25 @@
 	move.w #$8D00, (a1) ;hscroll table at 0
 	move.w #$8F02, (a1) ;autoinc 2
 	move.w #$9011, (a1) ;64x64 scroll size
+
+	moveq.l #0, d0
+	;init palette
 	move.l #$C0000000, (a1)
-	move.w #$000, (a0)
+	move.w d0, (a0)
 	move.w #$EEE, (a0)
 
 	;clear scroll table
 	move.l #$40000000, (a1)
-	move.l #0, (a0)
+	move.l d0, (a0)
+
+	;clear vsram
+	move.l #$40000010, (a1)
+	move.l d0, (a0)
+
+	;clear SAT
+	move.l #$40000003, (a1)
+	move.l d0, (a0)
+	move.l d0, (a0)
 
 	;load tiles
 	move.l #$44000000, (a1)
@@ -144,7 +156,7 @@
 	move.l #$45960002, d7
 	move.l d7, (a1)
 	move.l #$800000, d6
-	
+
 	lea ram_code_src(pc), a6
 	lea ram_code.w, a5
 	moveq #(font-ram_code_src)/2-1, d0
@@ -174,15 +186,16 @@
 	move.b d0, (a4)
 	lea good(pc), a6
 	bsr.s print_string
-	
-	add.l d6, d7
-	move.l d7, (a1)
-	bsr.s print_string
-	
+
 	add.l d6, d7
 	move.l d7, (a1)
 	bsr.s print_string
 
+	add.l d6, d7
+	move.l d7, (a1)
+	bsr.s print_string
+
+	move.w #0, frame_counter.w
 	move.w #$8164, (a1)
 	move #$2500, SR
 wait:
@@ -195,20 +208,20 @@
 	move.w #$8104, (a1)
 	move.l d0, (a3)
 	jmp (a6)
-	
+
 is_bad:
 	move.b d0, (a4)
 	lea bad(pc), a6
 	bsr.s print_string
-	
+
 	add.l d6, d7
 	move.l d7, (a1)
 	bsr.s print_string
-	
+
 	add.l d6, d7
 	move.l d7, (a1)
 	bsr.s print_string
-	
+
 	move.w #$8144, (a1)
 forever:
 	bra.s forever
@@ -234,12 +247,12 @@
 	bra .loop
 .end
 	rts
-	
+
 good:
 	dc.b "  BLASTEM THINKS", 0
 	dc.b "  THAT THIS CART", 0
 	dc.b " TASTES DELICIOUS!", 0
-	
+
 bad:
 	dc.b "  *sniff* *sniff*", 0
 	dc.b " something doesn't", 0