Return to udiv.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / lib / libc / tahoe / gen

Power 6/32 Unix version 1.2b

.globl	udiv			#  unsigned divide
.text				#  4(fp) = dividend
udiv:.word	0xC		#  8(fp) = divisor
bitl	$-2147483648,8(fp)	#  if (divisor & 0x80000000){
jeql	L16			  
cmpl	8(fp),4(fp)		#  if (divisor > dividend )
jlequ	L17
clrl	r0			#      return(0);
ret#1
L17:				#  else
movl	$1,r0			#      return(1);}
ret#1
L16:
clrl	r0			#  return(dividend/divisor);
movl	4(fp),r1
ediv	8(fp),r0,r2,r3
movl	r2,r0
ret#1

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.