.model small

.data
  rad dw 0010h
  result db 0ah,0dh,?,?,?,?,"$"

.code
  mov ax,@data
  mov ds,ax
  mov ax,rad
  mul rad
  mov bx,0003h
  mul bx

;dsplay module

mov bx,offset convert
call bx
lea dx,result
mov ah,09h
int 21h
mov ah,4ch
int 21h
.exit

convert proc near
mov bx,ax
and ah,0f0h
mov cl,04h
ror ah,cl
add ah,30h
mov [result+2],ah

mov ah,bh
and ah,0fh
add ah,30h
mov [result+3],ah

mov al,bl
and al,0f0h
ror al,cl
add al,30h
mov [result+4],al

mov ah,bl
and ah,0fh
add ah,30h
mov [result+5],ah

ret
convert endp
end