started work on integrated head align tool

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