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

tolower::
	mov	2(sp),r0

	cmp	r0,#'A
	blo	20$
	cmp	r0,#'Z
	bhi	20$
10$:
	bis	#040,r0

20$:
	rts	pc
	.end