王爽汇编语言 实验11

assume cs:codesg

datasg segment
	string db "Beginner's All-purpose Symbolic Instruction Code.",0
	lengthofchr = $-string-1
datasg ends

codesg segment
start:
	mov ax,datasg
	mov ds,ax
	mov si,0
	call letterc
	mov ax,4c00h
	int 21h

letterc:
		mov cx,lengthofchr
    s:
		mov al,ds:[si]
		cmp al,61h
		ja s1
		jmp ok

        s1:
			cmp al,7ah
			jb s2
			jmp ok

        s2:
			sub al,20h

        ok:
			mov byte ptr ds:[si],al
			inc si
	loop s
	
ret

codesg ends

end start

实验结果：