removed 'branch out of range' warnings

This commit is contained in:
FeralChild64 committed 2019-09-02 20:56:37 +02:00
1 parent a4114dd0d1
commit e0bbee443b
8 files changed
+76 -43

No files matched your search

+3 -2
View File
@@ -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
+3 -1
View File
@@ -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
View File
@@ -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