Из 10-ой в 2-ую систему на TASM

[Alter]

Как можно в Ассемблере перевести десятичное число в двоичное, и вывести результат на экран. Нужно продложить программу.
Можно ли как короче написать перевод с выводом, если нет, можно и обычным способом.
Посмотрите...
Может кто знает как это сделать.
___________________________________ ______________________________
Нужно доделать именно на TASM.

[B_N]

Было:

assume cs:mycode, ds:mydate, ss:mystack
mycode  segment para 
start:  push  ds     
        xor   ax,ax  
        push  ax
        mov   ax,seg mydate
        mov   ds,ax
        mov   ax, x  ; ax := 5
	mov   bx, y  ; bx := 4
        add   ax, bx ; ax := ax + bx  
        mov   z,ax   ; z := ax  // Ax = 9
         ; НАЧАЛО перевода числа из Z в Двоичную систему

         ; КОНЕЦ перевода числа из Z в Двоичную систему
        retf         
mycode  ends

mydate    segment para
x       dw   5
y       dw   4
z       dw   ?
mydate  ends

mystack segment para stack 'stack'
        dw 100 dup (?) ; резервируется место для стека.
mystack ends

        end start

Стало:

assume cs:mycode, ds:mydate, ss:mystack
mycode  segment para 
start:  
		push  ds     


        xor   ax,ax  
        push  ax
        mov   ax,seg mydate
        mov   ds,ax
        mov   ax, x  ; ax := 5
		mov   bx, y  ; bx := 4     
        add   ax, bx ; ax := ax + bx  
        mov   z,ax   ; z := ax  // Ax = 9
         ; НАЧАЛО перевода числа из Z в Двоичную систему

		pushf
		push	di
		push	ax
		push	bx
		push	es
		
		mov		ax, ds
		mov		es,	ax

		std
		lea		di, String
		add		di, 9
		mov		ax, '$'
		stosb

		mov		bx, z
l1:
		mov		ax, bx
		and		ax, 1
		add		al, '0'
		stosb
		shr		bx, 1
		jnz		l1
		
		mov		dx, di
		inc		dx
		mov		ax, 0900h
		int		21h		

		pop		es
		pop		bx
		pop		ax
		pop		di
		popf


         ; КОНЕЦ перевода числа из Z в Двоичную систему

        retf         
mycode  ends
;
mydate    segment para
x       dw   5
y       dw   4
z       dw   ?

String	db 10 dup (0)
mydate  ends

mystack segment para stack 'stack'
        dw 100 dup (?) ; резервируется место для стека.
mystack ends

        end start