Revert "very experimental head align tool"
This reverts commit 7227370907.
This commit is contained in:
1 parent
7227370907
commit
f16aaf015a
15 files changed
+41
-359
No files matched your search
@@ -26,7 +26,3 @@
|
||||
#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
|
||||
@@ -64,7 +64,7 @@ rsl_l1:
|
||||
|
||||
// Check if a wedge should take over
|
||||
|
||||
#if CONFIG_DOS_WEDGE || CONFIG_TAPE_WEDGE || CONFIG_HEAD_FIT_TOOL
|
||||
#if CONFIG_DOS_WEDGE || CONFIG_TAPE_WEDGE
|
||||
|
||||
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 || CONFIG_HEAD_FIT_TOOL
|
||||
#if CONFIG_TAPE_WEDGE
|
||||
cmp #$1F // left arrow
|
||||
beq_far wedge_tape
|
||||
#endif
|
||||
|
||||
+2
-15
@@ -1,5 +1,5 @@
|
||||
|
||||
#if CONFIG_TAPE_WEDGE || CONFIG_HEAD_FIT_TOOL
|
||||
#if CONFIG_TAPE_WEDGE
|
||||
|
||||
|
||||
// .X has to contain size of the buffer
|
||||
@@ -13,19 +13,6 @@ 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
|
||||
|
||||
@@ -44,4 +31,4 @@ wedge_tape:
|
||||
jmp cmd_load_got_secondaryaddress
|
||||
|
||||
|
||||
#endif
|
||||
#endif // CONFIG_TAPE_WEDGE
|
||||
Reference in new issue
Block a user