summaryrefslogtreecommitdiff
path: root/newlib/libc/machine/w65/sdivhi3.s
diff options
context:
space:
mode:
Diffstat (limited to 'newlib/libc/machine/w65/sdivhi3.s')
-rw-r--r--newlib/libc/machine/w65/sdivhi3.s35
1 files changed, 35 insertions, 0 deletions
diff --git a/newlib/libc/machine/w65/sdivhi3.s b/newlib/libc/machine/w65/sdivhi3.s
new file mode 100644
index 00000000000..7958f11e777
--- /dev/null
+++ b/newlib/libc/machine/w65/sdivhi3.s
@@ -0,0 +1,35 @@
+ .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