more tape improvements

This commit is contained in:
FeralChild64 committed 2020-10-22 19:39:11 +02:00
1 parent 0932566594
commit c98407bd84
6 files changed
+36 -13

No files matched your search

+14 -1
View File
@@ -28,6 +28,10 @@ wedge_tape:
beq wedge_arrow_H
}
; FALLTROUGH
wedge_tape_syntax_error:
jmp do_SYNTAX_error
!ifdef CONFIG_TAPE_HEAD_ALIGN {
@@ -39,7 +43,16 @@ wedge_arrow_H:
jsr fetch_character_skip_spaces
cmp #$00
+bne do_SYNTAX_error
beq wedge_arrow_H_or_HF
cmp #$46 ; 'F'
bne wedge_tape_syntax_error
jsr fetch_character_skip_spaces
cmp #$00
bne wedge_tape_syntax_error
wedge_arrow_H_or_HF:
jsr tape_head_align
+5 -3
View File
@@ -19,7 +19,7 @@
!ifdef HAS_TAPE {
!addr __MSG_KERNAL_PRESS_PLAY = __msg_kernalplay - __msg_kernal_first
!addr __MSG_KERNAL_FOUND = __msg_kernalfound - __msg_kernal_first
!addr __MSG_KERNAL_OK = __msg_kernalok - __msg_kernal_first
!addr __MSG_KERNAL_OK_SEARCH = __msg_kernaloksearch - __msg_kernal_first
}
!ifdef CONFIG_PANIC_SCREEN {
@@ -69,9 +69,11 @@ __msg_kernalfound:
!pet "found"
!byte $80 + $20 ; end of string mark + space
__msg_kernalok:
__msg_kernaloksearch:
!pet "ok"
!byte $80 + $0D ; end of string mark + return
!byte $0D, $0D
!pet "searchin"
!byte $80 + $47 ; end of string mark + 'G'
}
!ifdef CONFIG_PANIC_SCREEN {
+1 -1
View File
@@ -40,7 +40,7 @@
;; #ALIAS# print_return = KERNAL_0.proxy_K1_print_return
;; #ALIAS# __MSG_KERNAL_PRESS_PLAY = KERNAL_0.__MSG_KERNAL_PRESS_PLAY
;; #ALIAS# __MSG_KERNAL_OK = KERNAL_0.__MSG_KERNAL_OK
;; #ALIAS# __MSG_KERNAL_OK_SEARCH = KERNAL_0.__MSG_KERNAL_OK_SEARCH
;; #ALIAS# __MSG_KERNAL_FOUND = KERNAL_0.__MSG_KERNAL_FOUND
;; #ALIAS# tape_normal_byte_store = KERNAL_0.tape_normal_byte_store
+1 -1
View File
@@ -70,7 +70,7 @@
;; #ALIAS# print_return = KERNAL_0.proxy_K1_print_return
;; #ALIAS# __MSG_KERNAL_PRESS_PLAY = KERNAL_0.__MSG_KERNAL_PRESS_PLAY
;; #ALIAS# __MSG_KERNAL_OK = KERNAL_0.__MSG_KERNAL_OK
;; #ALIAS# __MSG_KERNAL_OK_SEARCH = KERNAL_0.__MSG_KERNAL_OK_SEARCH
;; #ALIAS# __MSG_KERNAL_FOUND = KERNAL_0.__MSG_KERNAL_FOUND
;; #ALIAS# tape_normal_byte_store = KERNAL_0.tape_normal_byte_store
+1 -1
View File
@@ -116,7 +116,7 @@ tape_prepare_reading:
; Display confirmation
ldx #__MSG_KERNAL_OK
ldx #__MSG_KERNAL_OK_SEARCH
jsr print_kernal_message
; Prepare for reading