chris/open-roms
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

some more size/speed optimizations

Browse Source
This commit is contained in:
FeralChild64 committed 2020-07-19 12:34:41 +02:00
1 parent fc3a40a254
commit 46ee7e476e
5 files changed
+36 -47
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/basic/engine_editor/find_line_38K_60K.s
+4 -5
View File
@@ -19,9 +19,8 @@ find_line_from_current:
// Check if line is not empty
jsr peek_line_pointer_null_check
bcc find_line_fail
jsr is_line_pointer_null
beq find_line_fail
// Fetch the high byte of line number and compare
ldy #$03
@@ -62,8 +61,8 @@ find_line_next:
// Advance to the next line
jsr peek_line_pointer_null_check
bcc find_line_fail // branch in no more lines exist
jsr is_line_pointer_null
beq find_line_fail // branch in no more lines exist
ldy #$00
src/basic/engine_editor/find_line_46K_50K.s
+23 -7
View File
@@ -25,8 +25,8 @@ find_line_from_current:
// Check if line is not empty
jsr find_line_null_ptr_check // we can't use 'peek_line_pointer_null_check', it maps out/in the BASIC ROM
beq_16 remap_BASIC_sec_rts // search failed if there is no program
jsr find_line_null_ptr_check // we can't use 'is_line_pointer_null', it maps out/in the BASIC ROM
beq remap_BASIC_sec_rts // search failed if there is no program
// Fetch the high byte of line number and compare
@@ -35,7 +35,7 @@ find_line_from_current:
cmp LINNUM+1
beq !+
bcs_16 remap_BASIC_sec_rts // search failed if line number too high
bcs remap_BASIC_sec_rts // search failed if line number too high
bne find_line_next
!:
// Fetch the low byte of line number and compare
@@ -44,16 +44,16 @@ find_line_from_current:
lda (OLDTXT),y
cmp LINNUM+0
beq_16 remap_BASIC_clc_rts
bcs_16 remap_BASIC_sec_rts // search failed if line number too high
beq remap_BASIC_clc_rts
bcs remap_BASIC_sec_rts // search failed if line number too high
bne find_line_next
find_line_next:
// Advance to the next line
jsr find_line_null_ptr_check // we can't use 'peek_line_pointer_null_check', it maps out/in the BASIC ROM
beq_16 remap_BASIC_sec_rts // search failed if no more line exists
jsr find_line_null_ptr_check // we can't use 'is_line_pointer_null', it maps out/in the BASIC ROM
beq remap_BASIC_sec_rts // search failed if no more line exists
ldy #$00
lda (OLDTXT),y
@@ -83,4 +83,20 @@ find_line_null_ptr_check:
rts
remap_BASIC_clc_rts:
lda #$27
sta CPU_R6510
clc
rts
remap_BASIC_sec_rts:
lda #$27
sta CPU_R6510
sec
rts
#endif