6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2025-01-03 04:32:21 +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 ldb #8
stb ,-s stb ,-s
clrb clrb
__divmod_u8u8u8u8_loop: .__divmod_u8u8u8u8_loop:
asla asla
rolb rolb
cmpb 2,s cmpb 2,s
blo __divmod_u8u8u8u8_skip blo .__divmod_u8u8u8u8_skip
subb 2,s subb 2,s
inca inca
__divmod_u8u8u8u8_skip: .__divmod_u8u8u8u8_skip:
dec ,s dec ,s
bne __divmod_u8u8u8u8_loop bne .__divmod_u8u8u8u8_loop
stb 2,s stb 2,s
leas 1,s leas 1,s
puls pc,b,cc puls pc,b,cc
@ -53,18 +53,18 @@ noinline asm word __divmod_u16u16u16u16(word register(x) p, word register(d) q)
pshs b pshs b
clrb clrb
clra clra
__divmod_u16u16u16u16_loop: .__divmod_u16u16u16u16_loop:
asl 5,s asl 5,s
rol 4,s rol 4,s
rolb rolb
rola rola
cmpd 2,s cmpd 2,s
blo __divmod_u16u16u16u16_skip blo .__divmod_u16u16u16u16_skip
subd 2,s subd 2,s
inc 5,s inc 5,s
__divmod_u16u16u16u16_skip: .__divmod_u16u16u16u16_skip:
dec ,s dec ,s
bne __divmod_u16u16u16u16_loop bne .__divmod_u16u16u16u16_loop
std 2,s std 2,s
leas 1,s leas 1,s
puls pc,x,d,cc puls pc,x,d,cc