.title	clower
;+
;	character function clower(x)
;-
x=4
biga=65
bigz=90
leta=97
letz=122
dif=leta-biga
	.psect	st_pure_code	rel,con,lcl,exe,nowrt,rd,pic,shr,usr,novec,long
	.entry	clower	^m<>
	movzbl	@x(ap),r0		; fetch character
	cmpb	r0,#biga		; >= A?
	blss	10$			; NO
	cmpb	r0,#bigz		; <= Z?
	bgtr	10$			; NO
	addl2	#dif,r0			; make it lower case
10$:
	ret
	.end