libc/newlib/libc/machine/w65/sdivhi3.S

36 lines
364 B
ArmAsm
Executable File

.global ___sdivhi3
___sdivhi3:
lda <r4
ldx <r5
ldy #0 !flag positive result
rol a
ror a
bpl L10
iny !flag negative result
eor #0xFFFF
inc a
L10: pha
txa
bpl L20
dey !flag negative/positive result
eor #0xFFFF
inc a
tax
L20: pla
phy
jsr >udv
ply
beq Lend !if positive result
eor #0xFFFF !negate result
inc a
Lend: sta <r0
rtl