.title	toupper	Convert lower-case alphabetic to upper-case
	.ident	/000001/
;
;+
;
; Index		Convert lower-case to upper-case
;
; Usage
;
;	toupper(c);
;	int		c;
;
; Description
;
;	If c is a lower-case alphabetic, return it's upper-case
;	equivalent.  Otherwise, return c.
;
; Bugs
;
;-
;
; Edit history
; 000001 05-Mar-80 MM	Initial edit
;
	.psect	c$code

toupper::
	mov	2(sp),r0

	cmp	r0,#'a
	blo	20$
	cmp	r0,#'z
	bhi	20$
10$:
	bic	#040,r0

20$:
	rts	pc
	.end