kod segment
  assume cs:kod,ds:adat,ss:verem

;eljárás ami kiír egyetlen betűt. a betű kódját al-ben
;várja
betukiir proc             ;al ben a kiirandó betű
  mov     ah, 14   ;BIOS rutin paramétere
  int     10h      ;10h megszakítás hívása
  ret              ;visszatérés
betukiir endp

;eljárás, ami kiír egy számot decimális alakban
;a számot ax regiszterben várja
szamkiir proc
  mov bx, 10d    ;számrendszer alapja
  mov cx, 0      ;verembe tett számok számlálója
k1:
  cmp ax, 0      ;addig osztunk amíg nulla nem lesz
  je  v1         ;ha nulla ugrik
  mov dx, 0      ;a kov ut. dx:ax-et osztja!
  div bx         ;osztás bx
  push dx        ;maradek a verembe
  inc cx
  jmp k1
v1:
  jcxz cxnulla   ;ugrik, ha nem tettünk semmit a verembe
k2:
  pop ax         ;kiveszünk egy értéket a veremből
  add al, '0'    ;hozzáadjuk a '0' ASCII kódját
  call betukiir  ;kiírjuk a számot (mint betűt)
  loop k2        ;jöhet a következő
  jmp v2
cxnulla:
  mov al, '0'    ;ha ax-ben 0 volt, 
  call betukiir  ;írjunk ki egy 0-t
v2:
  ret
szamkiir endp



start:
  mov ax,adat   ;ds betoltese
  mov ds,ax     ;ds beallitasa

  mov ax, 0d
  call szamkiir
  
  
  mov ah,4ch    ;kilepes
  mov al,00h    ;visszateresi kod
  int 21h       ;dos megszakitás
kod ends

adat  segment
adat  ends

verem segment stack
  db  1024  dup (1)
verem ends

end     start