started work on integrated head align tool

c64/basic/,imports.s

@@ -50,3 +50,7 @@
 #if CONFIG_SHOW_PAL_NTSC
 .label print_pal_ntsc      = KERNAL().print_pal_ntsc
 #endif
+
+#if CONFIG_TAPE_HEAD_ALIGN
+.label tape_head_align     = KERNAL().tape_head_align
+#endif

c64/basic/commands/cmd_load.s

@@ -22,25 +22,9 @@ cmd_load:
 
 	// Check for the file name
 	jsr basic_end_of_statement_check
-	bcc !+
+	bcc cmd_load_fetch_filename
 
-#if CONFIG_TAPE_NORMAL || CONFIG_TAPE_TURBO
-
-	// No file name given, just load the first file from tape
-
-	ldx #$00
-	stx SA                             // secondary address
-#if CONFIG_TAPE_NORMAL
-	inx                                // 1 - for normal tape format
-#else
-	ldx #$07                           // 7 - for turbo tape format
-#endif
-	stx FA                             // device number
-	bne cmd_load_got_secondaryaddress  // branch always
-
-#else
-
-	// Without tape support, try to load the first file from disk
+	// Try to load the first file from disk
 
 	lda #$01                           // name length
 	ldx #<cmd_load_default_filename
@@ -52,9 +36,8 @@ cmd_load_default_filename:
 
 	.text "*"
 
-#endif
+cmd_load_fetch_filename:
 
-!:
 	jsr basic_fetch_and_consume_character
 	cmp #$22
 	beq !+

c64/basic/wedge_tape.s

@@ -17,8 +17,20 @@ wedge_tape:
 	bne_16 do_SYNTAX_error
 
 	lda BUF+1
+
 	cmp #$4C                           // 'L'
-	bne_16 do_SYNTAX_error
+	beq wedge_arrow_L
+
+#if CONFIG_TAPE_HEAD_ALIGN
+
+	cmp #$48                           // 'H'
+	beq wedge_arrow_H
+
+#endif
+
+	jmp do_SYNTAX_error
+
+wedge_arrow_L:
 
 	// Execute 'arrow + L'
 	
@@ -34,5 +46,14 @@ wedge_tape:
 
 	jmp cmd_load_got_secondaryaddress
 
+#if CONFIG_TAPE_HEAD_ALIGN
+
+wedge_arrow_H:
+
+	jsr tape_head_align
+	jmp basic_main_loop
+
+#endif
+
 
 #endif // CONFIG_TAPE_WEDGE