1	.global	___sdivhi3
2
3___sdivhi3:
4	lda	<r4
5	ldx	<r5
6
7	ldy	#0		!flag positive result
8	rol	a
9	ror	a
10	bpl	L10
11
12	iny			!flag negative result
13	eor	#0xFFFF
14	inc	a
15
16L10:	pha
17	txa
18	bpl	L20
19
20	dey			!flag negative/positive result
21	eor	#0xFFFF
22	inc	a
23	tax
24
25L20:	pla
26	phy
27	jsr	>udv
28	ply
29	beq	Lend		!if positive result
30
31	eor	#0xFFFF		!negate result
32	inc	a
33
34Lend:	sta	<r0
35	rtl
36