mirror of https://github.com/mgcaret/of816.git
save a byte and some cycles
This commit is contained in:
parent
8b4ab77475
commit
bd5edf5372
|
@ -4585,7 +4585,8 @@ dword GNUMBER,">NUMBER"
|
||||||
stz XR+2
|
stz XR+2
|
||||||
digit: lda XR ; see if no more chars left
|
digit: lda XR ; see if no more chars left
|
||||||
beq done
|
beq done
|
||||||
lda [WR]
|
ldy XR+2
|
||||||
|
lda [WR],y
|
||||||
and #$FF ; enforce char from 16-bit load
|
and #$FF ; enforce char from 16-bit load
|
||||||
cmp #'.' ; IEEE 1275-1994 requires these to be ignored
|
cmp #'.' ; IEEE 1275-1994 requires these to be ignored
|
||||||
beq ignore ; when embedded in the number
|
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 _pushay ; ( -- n ud1h*basel ud1l base )
|
||||||
jsr _umult ; ( -- n ud1h*basel ud1l*basel ud1l*baseh )
|
jsr _umult ; ( -- n ud1h*basel ud1l*basel ud1l*baseh )
|
||||||
jsr _dplus ; ( -- ud2 )
|
jsr _dplus ; ( -- ud2 )
|
||||||
next: jsr _incwr
|
next: dec XR
|
||||||
dec XR
|
|
||||||
inc XR+2
|
inc XR+2
|
||||||
bra digit
|
bra digit
|
||||||
done: ldy WR
|
done: ldy WR
|
||||||
|
|
Loading…
Reference in New Issue