removed 'branch out of range' warnings
This commit is contained in:
1 parent
a4114dd0d1
commit
e0bbee443b
8 files changed
+76
-43
No files matched your search
@@ -30,8 +30,9 @@ basic_execute_statement:
|
||||
|
||||
;; Check for RUN/STOP
|
||||
lda STKEY
|
||||
bpl basic_do_break
|
||||
|
||||
bmi +
|
||||
jmp basic_do_break
|
||||
*
|
||||
;; Skip over any white space and :
|
||||
ldy #0
|
||||
ldx #<basic_current_statement_ptr
|
||||
|
||||
@@ -66,7 +66,9 @@ got_filename:
|
||||
|
||||
jsr basic_parse_line_number
|
||||
lda basic_line_number+1
|
||||
bne do_ILLEGAL_QUANTITY_error
|
||||
beq +
|
||||
jmp do_ILLEGAL_QUANTITY_error
|
||||
*
|
||||
lda basic_line_number+0
|
||||
sta current_device_number
|
||||
|
||||
|
||||
+17
-9
@@ -17,11 +17,13 @@ wedge_dos:
|
||||
;; Check if user asked for a status
|
||||
ldy #$00
|
||||
lda (basic_current_statement_ptr), y
|
||||
beq wedge_dos_status
|
||||
|
||||
bne +
|
||||
jmp wedge_dos_status ; XXX try to optimize this, perhaps move 'wedge_dos_status' above?
|
||||
*
|
||||
;; Check if asked for a directory
|
||||
cmp #$24
|
||||
beq wedge_dos_directory
|
||||
bne +
|
||||
jmp wedge_dos_directory
|
||||
*
|
||||
;; Check if asked to change drive number, or if it is a regular command
|
||||
cmp #$30
|
||||
@@ -42,8 +44,9 @@ wedge_dos_command:
|
||||
|
||||
jsr JSETNAM
|
||||
jsr JOPEN
|
||||
bcs wedge_dos_basic_error
|
||||
|
||||
bcc +
|
||||
jmp wedge_dos_basic_error ; XXX combine with other such jumps
|
||||
*
|
||||
;; Retrieve status, print it if not OK
|
||||
jsr JCLALL
|
||||
jsr wedge_dos_status_get
|
||||
@@ -83,12 +86,16 @@ wedge_dos_status_get:
|
||||
lda #$00 ; empty file name
|
||||
jsr JSETNAM
|
||||
jsr JOPEN
|
||||
bcs wedge_dos_basic_error
|
||||
bcc +
|
||||
jmp wedge_dos_basic_error ; XXX combine with other such jumps
|
||||
*
|
||||
|
||||
;; Set channel for input
|
||||
ldx #$0F
|
||||
jsr JCHKIN
|
||||
bcs wedge_dos_basic_error
|
||||
bcc +
|
||||
jmp wedge_dos_basic_error ; XXX combine with other such jumps
|
||||
*
|
||||
|
||||
ldy #$00
|
||||
*
|
||||
@@ -99,7 +106,9 @@ wedge_dos_status_get:
|
||||
;; Print out everything retrieved from the drive
|
||||
bne +
|
||||
jsr JCHRIN
|
||||
bcs wedge_dos_basic_error
|
||||
bcc wedge_dos_x1
|
||||
jmp wedge_dos_basic_error ; XXX try to optimize this
|
||||
wedge_dos_x1:
|
||||
sta BUF, y
|
||||
iny
|
||||
jmp -
|
||||
@@ -129,7 +138,6 @@ wedge_dos_directory:
|
||||
|
||||
;; First change the secondary address to the one suitable for
|
||||
;; directory loading
|
||||
;; XXX
|
||||
lda #$00 ; logical device number
|
||||
ldx current_device_number
|
||||
ldy #$60
|
||||
|
||||
Reference in new issue
Block a user