head align tool minor improvements

c64/kernal/tape/tape_head_align.s

@@ -13,8 +13,7 @@
 // XXX for Mega65 it can be done more easily, by just disabling the badlines
 
 // XXX consider "PRESS PLAY ON TAPE" before start, with option to stop
-// XXX make tape wedge (and this tool) available also without tape turbo support
-// XXX create separate configuration for tape users
+// XXX document CONFIG_TAPE_HEAD_ALIGN option
 // XXX block NMIs
 // XXX fix Mega65 build compilation issues
 

c64/kernal/tape/tape_head_align_apply_gfx.s

@@ -40,15 +40,7 @@ tape_head_align_apply_gfx:
 	and #%00000010
 	beq !+
 
-	lda #%00010000
-	ora __ha_chart + 7 + 8 * 1
-	sta __ha_chart + 7 + 8 * 1
-
-	lda #%00001000
-	ora __ha_chart + 7 + 8 * 30
-	sta __ha_chart + 7 + 8 * 30
-
-	// For normal
+	// For 'normal'
 
 	lda #%00000001
 	ora __ha_chart + 7 + 8 * 6
@@ -58,7 +50,7 @@ tape_head_align_apply_gfx:
 	ora __ha_chart + 7 + 8 * 13
 	sta __ha_chart + 7 + 8 * 13
 
-	// For turbo
+	// For 'turbo'
 
 	lda #%00010000
 	ora __ha_chart + 7 + 8 * 21

c64/kernal/tape/tape_head_align_help.s

@@ -111,23 +111,32 @@ tape_head_align_print_char:
 
 tape_head_align_help_text:
 
-	.word $2000 + (40 * 8) * 0 + 8 * 2
-	.text "ADJUST HEAD FOR MINIMUM SIGNAL NOISE"
+	// Each string consists of:
+	// - destination (start byte) address
+	// - text in screencodes
+	/ - $FF to mark end
+
+	.word $2000 + (40 * 8) * 0 + 8 * 1
+	.text "COMPUTER HAS TO TELL THE SIGNALS APART"
 	.byte $FF
 
-	.word $2000 + (40 * 8) * 4 + 8 * 2
+	.word $2000 + (40 * 8) * 3 + 8 * 6
+	.text "ALIGN HEAD FOR MINIMUM NOISE"
+	.byte $FF
+
+	.word $2000 + (40 * 8) * 6 + 8 * 2
 	.text "IF THE DECK HAS A PITCH (TAPE SPEED)"
 	.byte $FF
 
-	.word $2000 + (40 * 8) * 5 + 8 * 1
-	.text "CONTROL - USE IT TO PLACE DOTTED LINES"
+	.word $2000 + (40 * 8) * 7 + 8 * 1
+	.text "CONTROL, TWEAK IT SO THAT DOTTED LINES"
 	.byte $FF
 
-	.word $2000 + (40 * 8) * 6 + 8 * 3
-	.text "EXACTLY HALF A WAY BETWEEN SIGNALS"
+	.word $2000 + (40 * 8) * 8 + 8 * 5
+	.text "ARE HALF A WAY BETWEEN SIGNALS"
 	.byte $FF
 
-	.byte $FF
+	.byte $FF                          // end of strings
 
 
 #endif