include	clib.inc

_TEXT	SEGMENT

strupr proc dist pascal public uses ds si string:dword
	lds si,string
      @@:
	mov al,[si]
	test al,al
	jz @F
	sub al,'a'
	cmp al,'Z' - 'A' + 1
	sbb al,al
	and al,'a' - 'A'
	xor [si],al
	inc si
	jmp @B
      @@:
	mov ax,word ptr string
	mov dx,word ptr string+2
	ret
strupr endp

_TEXT	ENDS

	END
