print numbers on the screen.(show_str and dtoc function)

;show_str, dtoc functions.
;by:double; date:2009-09-20; ver:0.1
assume cs:codesg,ss:stacksg,ds:datasg

datasg segment
dw 123,12666,1,8,3,38,339,284,374,11124
db 12 dup (0)
datasg ends

stacksg segment
dw 32 dup (0)
stacksg ends

codesg segment
start:
mov ax,stacksg
mov ss,ax
mov sp,64

mov ax,datasg
mov ds,ax

mov di,0
mov si,20
mov cx,10
mov bh,10
;bh row number
mov bl,8
;bl col number

s:      mov ax,ds:[di]
call dtoc
;push cx
;mov cl,00001010b
;mov ch,0
call show_str
;pop cx
add di,2
add bh,1
loop s

mov ax,4c00h
int 21h
dtoc:
push si
push bx
push cx
push bp
push dx
mov bx,0
mov bp,0ah
s1:
mov dx,0
div bp
add dl,30h
push dx
inc bx
mov cx,ax
jcxz ok
jmp short s1
ok:
mov cx,bx
s2:
pop dx
mov ds:[si],dl
inc si
loop s2
mov byte ptr ds:[si],0

pop dx
pop bp
pop cx
pop bx
pop si
ret
show_str:
push ax
push bx
push es
push si
push di
push cx
push dx
mov di,0
mov ax,0b800h
mov es,ax
mov al,0a0h
mov ah,0
mul bh
mov dx,ax
mov al,2
mov ah,0
mul bl
add dx,ax
mov bx,dx
s3:      mov cl,ds:[si]
mov ch,0
jcxz ok1
mov es:[bx+di],cl
inc di
;mov es:[bx+di],dl
mov byte ptr es:[bx+di],00001010b
inc di
inc si
jmp short s3
ok1:
pop dx
pop cx
pop di
pop si
pop es
pop bx
pop ax
ret

codesg ends

end start