dosseg
.model small
.stack
.data
string	db	'A' ; Equals to 65 in Ascii I think
ten	dw	10
.code

printNum proc ; Using recursion
        xor dx, dx
        cmp ax, 0
        jz sium
        div ten
        push dx
        call printNum
        pop dx
        add dl, '0'
        call printTav
        sium: ret
printNum endp

printTav proc
        push ax
        mov ah, 2
        int 21h
        pop ax
        ret
printTav endp

	start:
		mov ax, @data
		mov ds, ax
		xor ax, ax
		mov al, string
		call printNum
		
		mov ah, 4ch
		int 21h
	end start