; Turbo Assembler 
; javitott szam.asm; decimalis szam bekerese billentyuzetrol, es kiirasa kepernyore
; procedurak kozotti adatatvitel a tarolo valtozoval tortenik


 p1 segment
    assume cs:p1,ds:p1
    push cs
    pop ds

   call init
   call soremeles	
   call kiir

   mov ah,4ch
   int 21h


soremeles proc
      push ax
      push bx
      push cx
      push dx
	mov dx,0	
      mov ah,2
	mov dl,13	
	int 21h
      mov ah,2
	mov dl,10	
	int 21h

     pop dx
     pop cx
     pop bx
     pop ax
     ret
soremeles endp

 init proc
      push ax
      push bx
      push cx
      push dx
     xor bx,bx
     mov cx,5
 beker: mov ah,8
        int 21h
        cmp al,13
        je vege
        cmp al,'0'
        jb beker
        cmp al,'9'
       ; jbe szamol
        ja beker
        sub al,'0'
       cmp bx,6553
       jb szamol
       ja vege
       cmp al,5
       ja beker
szamol:push ax
       add al,'0'
       mov ah,2
       mov dl,al
       int 21h
       mov ax,bx
       mov bx,10
       mul bx
       mov bx,ax
       pop ax	
       xor ah,ah
       add bx,ax
       loop beker

vege:  mov tarolo,bx
     pop dx
     pop cx
     pop bx
     pop ax
     ret
init endp

kiir proc
     push ax
     push bx
     push cx
     push dx
   ;mov tarolo,546
    mov bx,tarolo
    mov cx,1
ir: xor dx,dx
    push cx
    mov ax,bx
    mov cx,10
    div cx
    mov bx,ax
   add dx,'0'
   pop cx
   push dx
   cmp bx,0
   je end
   add cx,1
   jmp ir
end:
    mov ah,2
    pop dx
    int 21h
    loop end
    pop dx
    pop cx
    pop bx
    pop ax
    ret
kiir endp

   tarolo dw 1 dup(0)

p1 ends
	end