org 256 

DIGITS	equ 832

	mov di,sp
	mov bx,1000h
	mov cx,DIGITS
fill	push bx
	loop fill

	std
	inc cx
	mov al,'>'
again	int 29h
	push di
nibble	stosw
	mov al,10
	mul byte[di]
	add al,dl
	div bh
	xchg ax,dx
	mov al,dh
	loop nibble
	pop di
	mov ah,8
	int 21h
	mov dl,al
	sub al,'0'
	cmp al,10
	mov cx,DIGITS+1
	xchg ax,dx
	jc again

	mov al,'='
print	int 29h
	pop ax
	add al,90h
	daa
	adc al,40h
	daa
	loop print
	int 20h