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

save a byte and some cycles

This commit is contained in:
mgcaret 2020-03-09 18:17:13 -07:00
parent 8b4ab77475
commit bd5edf5372
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
asm/forth-dictionary.s
View File

@ -4585,7 +4585,8 @@ dword GNUMBER,">NUMBER"
stz XR+2
digit: lda XR ; see if no more chars left
beq done
lda [WR]
ldy XR+2
lda [WR],y
and #$FF ; enforce char from 16-bit load
cmp #'.' ; IEEE 1275-1994 requires these to be ignored
beq ignore ; when embedded in the number
@ -4611,8 +4612,7 @@ digit: lda XR ; see if no more chars left
jsr _pushay ; ( -- n ud1h*basel ud1l base )
jsr _umult ; ( -- n ud1h*basel ud1l*basel ud1l*baseh )
jsr _dplus ; ( -- ud2 )
next: jsr _incwr
dec XR
next: dec XR
inc XR+2
bra digit
done: ldy WR