6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2024-05-31 18:41:30 +00:00
Code Issues Projects Releases Wiki Activity

Use local labels in m6809_math

Browse Source
This commit is contained in:
Karol Stasiak 2021-02-26 23:05:29 +01:00
parent 22bd6ac443
commit f01879e4a3
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
include/m6809/m6809_math.mfk
View File

@ -31,16 +31,16 @@ noinline asm word __divmod_u8u8u8u8(word register(a) p, word register(b) q) {
ldb #8
stb ,-s
clrb
__divmod_u8u8u8u8_loop:
.__divmod_u8u8u8u8_loop:
asla
rolb
cmpb 2,s
blo __divmod_u8u8u8u8_skip
blo .__divmod_u8u8u8u8_skip
subb 2,s
inca
__divmod_u8u8u8u8_skip:
.__divmod_u8u8u8u8_skip:
dec ,s
bne __divmod_u8u8u8u8_loop
bne .__divmod_u8u8u8u8_loop
stb 2,s
leas 1,s
puls pc,b,cc
@ -53,18 +53,18 @@ noinline asm word __divmod_u16u16u16u16(word register(x) p, word register(d) q)
pshs b
clrb
clra
__divmod_u16u16u16u16_loop:
.__divmod_u16u16u16u16_loop:
asl 5,s
rol 4,s
rolb
rola
cmpd 2,s
blo __divmod_u16u16u16u16_skip
blo .__divmod_u16u16u16u16_skip
subd 2,s
inc 5,s
__divmod_u16u16u16u16_skip:
.__divmod_u16u16u16u16_skip:
dec ,s
bne __divmod_u16u16u16u16_loop
bne .__divmod_u16u16u16u16_loop
std 2,s
leas 1,s
puls pc,x,d,cc