very experimental head align tool

c64/basic/,imports.s

@@ -26,3 +26,7 @@
 #if CONFIG_SHOW_PAL_NTSC
 .label print_pal_ntsc      = KERNAL.print_pal_ntsc
 #endif
+
+#if CONFIG_HEAD_FIT_TOOL
+.label head_fit            = KERNAL.head_fit
+#endif

c64/basic/basic_main_loop.s

@@ -64,7 +64,7 @@ rsl_l1:
 
 	// Check if a wedge should take over
 
-#if CONFIG_DOS_WEDGE || CONFIG_TAPE_WEDGE
+#if CONFIG_DOS_WEDGE || CONFIG_TAPE_WEDGE || CONFIG_HEAD_FIT_TOOL
 	
 	ldx __tokenise_work1 // here is the size of input
 	
@@ -75,7 +75,7 @@ rsl_l1:
 	cmp #$40 // '@'
 	beq_far wedge_dos
 #endif
-#if CONFIG_TAPE_WEDGE
+#if CONFIG_TAPE_WEDGE || CONFIG_HEAD_FIT_TOOL
 	cmp #$1F // left arrow
 	beq_far wedge_tape
 #endif

c64/basic/wedge_tape.s

@@ -1,5 +1,5 @@
 
-#if CONFIG_TAPE_WEDGE
+#if CONFIG_TAPE_WEDGE || CONFIG_HEAD_FIT_TOOL
 
 
 // .X has to contain size of the buffer
@@ -13,6 +13,19 @@ wedge_tape:
 	bne_far do_SYNTAX_error
 
 	lda BUF+1
+
+#if CONFIG_HEAD_FIT_TOOL
+
+	cmp #$48                           // 'H'
+	beq_far head_fit
+
+#endif
+#if !CONFIG_TAPE_WEDGE
+
+	jmp do_SYNTAX_error
+
+#endif
+
 	cmp #$4C                           // 'L'
 	bne_far do_SYNTAX_error
 
@@ -31,4 +44,4 @@ wedge_tape:
 	jmp cmd_load_got_secondaryaddress
 
 
-#endif // CONFIG_TAPE_WEDGE
+#endif