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

fix #1 and #2

This commit is contained in:
mgcaret 2019-07-05 11:10:56 -07:00
parent 50ae7f1361
commit 8e2a226589
1 changed files with 10 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
asm/forth-dictionary.s
View File

@ -1374,8 +1374,9 @@ eword
; H: ( c-addr -- char ) fetch char from c-addr ; H: ( c-addr -- char ) fetch char from c-addr
dword CFETCH,"C@" dword CFETCH,"C@"
jsr _popwr jsr _popwr
ldy #$00 sep #SHORT_A
lda [WR],y lda [WR]
rep #SHORT_A
and #$00FF and #$00FF
jsr _pusha jsr _pusha
NEXT NEXT
@ -1384,23 +1385,17 @@ eword
; H: ( c-addr -- word ) fetch word from c-addr ; H: ( c-addr -- word ) fetch word from c-addr
dword WFETCH,"W@" dword WFETCH,"W@"
jsr _popwr jsr _popwr
ldy #$00 lda [WR]
lda [WR],y
jsr _pusha jsr _pusha
NEXT NEXT
eword eword
; H: ( c-addr -- n ) fetch sign-extended word from c-addr ; H: ( c-addr -- n ) fetch sign-extended word from c-addr
dword WFETCHS,"<W@" dword WFETCHS,"<W@"
jsr _popwr ENTER
ldy #$00 .dword WFETCH
lda [WR],y .dword WSX
tay EXIT
bmi :+
lda #$0000
bra done
: lda #$FFFF
done: NEXT
eword eword
.if unaligned_words .if unaligned_words
@ -1445,9 +1440,8 @@ dword CSTORE,"C!"
jsr _popwr jsr _popwr
jsr _popay jsr _popay
tya tya
ldy #$00
sep #SHORT_A sep #SHORT_A
sta [WR],y sta [WR]
rep #SHORT_A rep #SHORT_A
NEXT NEXT
eword eword
@ -1457,8 +1451,7 @@ dword WSTORE,"W!"
jsr _popwr jsr _popwr
jsr _popay jsr _popay
tya tya
ldy #$00 sta [WR]
sta [WR],y
NEXT NEXT
eword eword