汇编语言 实验11 编写子程序

assume cs:codesg

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

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

letterc:  mov al,ds:[si]
          cmp al,0
          je endletterc
          cmp al,97
          jb s
          cmp al,122
          ja s
          and al,11011111B
          mov ds:[si],al
       s: inc si
          loop  letterc
endletterc:    ret

codesg ends

end start