sseg    segment para public 'stack'
        db 64 dup ('stack---')
sseg ends
cseg    segment para public 'code'
        assume cs:cseg,ss,sseg
        page 
example proc far
        push ds 
        push 0
        mov  dl,'A'
        mov  cx,26
loop1:
        call  write_char
        inc dl
        loop loop1
ret
example endp 
write_char proc near
        mov ah,02
        int 21h
        ret
write_char endp
cseg  ends
end example