Mercurial > hg > index.cgi
changeset 111:b10f6c8979a5
Remove unneeded integer divide by 10 routine
author | William Astle <lost@l-w.ca> |
---|---|
date | Tue, 26 Dec 2023 21:44:10 -0700 |
parents | 00c8df0b61f5 |
children | 98b0646360e1 |
files | src/int.s |
diffstat | 1 files changed, 0 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/int.s Mon Dec 25 22:37:55 2023 -0700 +++ b/src/int.s Tue Dec 26 21:44:10 2023 -0700 @@ -328,12 +328,6 @@ stb fpaextra rts ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -; Integer divide (X) by 10 *in place* -int32_const10 fqb 10 ; integer constant 10 -int32_div10 ldu #int32_const10 ; point to integer constant 10 - leay ,x ; point to output location - ; fall through to integer division -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 32 bit division, integer only, truncate fraction without rounding. Note that there is exactly one case where integer ; division can overflow: dividing -0x80000000 by -1 which yields 0x80000000. All other cases reduce the magnitude. int32_div ldd val.int+2,x ; copy left operand to temporary