assume cs:codesg, ds:datasg
datasg segment
    db "Beginner's All-purpose Symbolic Instruction Code.",0
datasg ends

codesg segment
start:
        mov ax, datasg
        mov ds, ax
        mov ax, 0B800h
        mov es, ax
        
        mov si,0
        mov dh, 4
        mov dl, 0
        mov ch, 0
        mov cl, 00000100B
        call show_str
        call letterc
        
        mov si,0
        mov dh, 5
        mov dl, 0
        mov ch, 0
        mov cl, 00000100B
        call show_str
        
        mov ax,4c00h
        int 21h
letterc:
        push si
        push cx
        dec si
     @@:inc si
        mov cl, ds:[si]
        mov ch,0
        jcxz @F
        cmp cl,'a'
        jb @B
        cmp cl,'z'
        ja @B
        and cl, 11011111B
        mov ds:[si],cl
        jmp @B
     @@:pop cx
        pop si
        ret

;;function : show a string with 0 ended at certain position and color
;;dh--line no.    dl--column no.
;;cl--color       ds:si--the beginning of the string
;;return none
show_str:
        push bx
        push di 
        push ax
        push si
        push cx  
        
        
        ;;calculate the first address of the string in video memory
        mov al, dh
        mov bl, 160
        mul bl
        mov bx, ax        
        mov ah, 0
        mov al, dl
        add bx, ax
        add bx, ax
        
@@: 
        mov cl, ds:[si]
        mov ch, 0
        jcxz @F        

        mov es:[bx], cl
        pop cx
        mov es:[bx+1], cl
        push cx
        inc si
        inc bx
        inc bx
        jmp @B
                
    @@: pop cx
        pop si
        pop ax
        pop di
        pop bx
        ret


codesg ends
end start