.title	cupper
;+
;	character function cupper(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	cupper	^m<>
	movzbl	@x(ap),r0		; fetch character
	cmpb	r0,#leta		; >= a?
	blss	10$			; NO
	cmpb	r0,#letz		; <= z?
	bgtr	10$			; NO
	subl2	#dif,r0			; make it upper case
10$:
	ret
	.end