assume cs:codesg
datasg segment
db "Beginner's All-purpose Symbolic Instruction Code.",0
datasg ends
codesg segment
begin:
mov ax,datasg
mov ds,ax
mov si,0
call letterc
mov ax,4c00h
int 21h
ok:
ret
letterc:
mov al,[si]
cmp al,0h
je ok
cmp al,61h
jb skip
cmp al,7Bh
ja skip
and al,11011111b
mov [si],al
skip:
inc si
jmp near ptr letterc
codesg ends
end begin |
