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