Ultrix-3.1/src/libc/sysV/_toupper.s

Compare this file to the similar file:
Show the results in this format: 

/	SCCSID: @(#)_toupper.s	3.0	4/22/86
/
//////////////////////////////////////////////////////////////////////
/   Copyright (c) Digital Equipment Corporation 1984, 1985, 1986.    /
/   All Rights Reserved. 					     /
/   Reference "/usr/src/COPYRIGHT" for applicable restrictions.      /
//////////////////////////////////////////////////////////////////////
/
/ Based on:	(System V) 	1.3
/ C library -- toupper
/
/	This routine is a fast machine language version of the
/	following C routine:
/
/		int toupper (c)
/			register int c;
/		{
/			if (c >= 'a' && c <= 'z')
/				c += 'A' - 'a';
/			return c;
/		}
/
	.globl	_toupper

_toupper:
/	MCOUNT
	mov	2(sp),r0	/ pick up the argument
	cmp	$'a,r0		/ Is it too low?
	jgt	1f		/  ...yes
	cmp	$'z,r0		/ Too high?
	jlt	1f		/  ...yes
	add	$'A-'a,r0	/ Make it upper case
1:
	rts	pc		/ Return