assume cs:code
data segment
db "Beginner's All-purpose Symbolic Instruction Code.",0
data ends
code segment
begin:
mov ax,data
mov ds,ax
mov si,0
call letterc
mov ax,4c00h
int 21h
letterc:
mov al,ds:[si]
cmp al,60h
jna judend
sub al,20h
mov ds:[si],al
goon:
inc si
jmp near ptr letterc
judend:
je close
jmp near ptr goon
close:
ret
code ends
end begin |