.model small
.386
.stack
.data
data1 dw 1234h,0ef78h
data2 db 16dup(?),0dh,0ah,'$'
data3 db 'my data:',0dh,0ah,'$'
tab db '0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,'
.code
.startup
mov si,offset date1
asd: mov cx,2
mov AL,[SI]
INC SI
call abc
loop asd
.exit
abc proc
push ax
mov cl,4
shr al,cl
and al,0fh
mov bx,offset tab
xlat
mov al,dl
mov ah,2
int 21h
pop ax
and al,ofh
xlat
mov bl,al
mov ah,2
int 21h
abc endp
.exit
end