public up
extrn user:byte
code1 segment
up proc far	;小寫改爲大寫
	mov si,offset user
	add si,2

l0:	cmp byte ptr[si],'$'
	je l3
	cmp byte ptr[si],'z'
	jbe l1
	inc si
	jmp l0
l1:
	cmp byte ptr[si],'a'
	jnl l2
	inc si
	jmp l0
l2:
	sub byte ptr[si],20h
	inc si
	jmp l0
l3:
	ret
up endp
code1 ends
end