6502
/
of816
mirror of https://github.com/mgcaret/of816.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

a few small optimizations

This commit is contained in:
mgcaret 2020-05-02 01:46:16 -07:00
parent f13459e452
commit 0c0674cec3
2 changed files with 8 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
asm/forth-dictionary.s
View File

@ -1709,9 +1709,7 @@ hword RPICK,"RPICK"
ldy #$02 ldy #$02
lda [WR],y lda [WR],y
pha pha
dey lda [WR]
dey
lda [WR],y
tay tay
pla pla
NEXT NEXT

26
asm/interpreter.s
View File

@ -495,9 +495,7 @@ docmp: cmp STK_TOP
pushv2: ldy #$02 pushv2: ldy #$02
lda [WR],y ; high word lda [WR],y ; high word
pha ; save for now pha ; save for now
dey lda [WR] ; low word
dey
lda [WR],y ; low word
tay tay
pla pla
PUSHNEXT PUSHNEXT
@ -516,13 +514,11 @@ pushv2: ldy #$02
and #$FF and #$FF
adc #$00 adc #$00
sta WR+2 sta WR+2
ldy #$00 lda [WR] ; low word
lda [WR],y ; low word
clc clc
adc STACKBASE+0,x adc STACKBASE+0,x
sta STACKBASE+0,x sta STACKBASE+0,x
iny ldy #$02
iny
lda [WR],y ; low word lda [WR],y ; low word
adc STACKBASE+0,x adc STACKBASE+0,x
sta STACKBASE+0,x sta STACKBASE+0,x
@ -590,9 +586,7 @@ pushv2: ldy #$02
sep #SHORT_A sep #SHORT_A
pha ; bank byte on stack pha ; bank byte on stack
rep #SHORT_A rep #SHORT_A
dey lda [WR] ; low word
dey
lda [WR],y ; low word
pha ; address on stack pha ; address on stack
rtl ; really a jump rtl ; really a jump
.endproc .endproc
@ -614,9 +608,7 @@ pushv2: ldy #$02
sep #SHORT_A sep #SHORT_A
pha ; bank byte on stack pha ; bank byte on stack
rep #SHORT_A rep #SHORT_A
dey lda [WR] ; low word
dey
lda [WR],y ; low word
pha ; RTS address on stack pha ; RTS address on stack
jsr _popay jsr _popay
rts ; really a jump rts ; really a jump
@ -744,9 +736,7 @@ done: rts
ldy #$02 ldy #$02
lda [WR],y lda [WR],y
pha pha
dey lda [WR]
dey
lda [WR],y
tay tay
pla pla
rts rts
@ -757,10 +747,8 @@ done: rts
phy phy
ldy #$02 ldy #$02
sta [WR],y sta [WR],y
dey
dey
pla pla
sta [WR],y sta [WR]
rts rts
.endproc .endproc