data segment
alphabet db 'ABCDEFGHIJKLMNOPQRSTUVWXYZ$'
ends
stack segment
dw 128 dup(0)
ends
code segment
start:
mov ax, data
mov ds, ax
mov es, ax
lea bx, alphabet
mov al,0
xlat
mov dl,al
mov ah, 02h
int 21h
mov ah, 1
int 21h
mov ax, 4c00h
int 21h
ends
end start