more tape improvements
This commit is contained in:
1 parent
0932566594
commit
c98407bd84
6 files changed
+36
-13
No files matched your search
@@ -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
|
||||
|
||||
|
||||
@@ -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 {
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in new issue
Block a user