OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib-1.10.0/] [newlib/] [libc/] [machine/] [w65/] [sdivhi3.s] - Rev 1773

Go to most recent revision | Compare with Previous | Blame | View Log

	.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
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.