Code	Segment
	assume CS:Code, DS:Data, SS:Stack

Start:
	mov	ax, Code
	mov	DS, AX

	mov dx, offset menutext
	mov ah, 9
	int 21h
	int 16h
	cmp al, 'a'
	jnz Bevitel
	cmp al, 'b'
	jnz Program_Vege

	mov di, offset ertek1

    mov ax, 3
    int 10h ;cls

Bevitel:
    xor ax, ax ; mov ax, 0
    int 16h

    mov bx, ax
    mov ax, 3
    int 10h ;cls
    mov ax, bx

    ;cmp al, 27 ;ESC
    ;jz Program_Vege


    mov cx, 10 ; ("0" ... "9")
    mov ah, "0"
Vizsg:
    cmp ah, al ; leütött bill. ASCII kódja vs. "0" ... "9"
    jz Tarol
    inc ah
    loop Vizsg

    mov ah, 2
    mov bh, 0
    mov dh, 10 ;sor
    mov dl, 0 ;oszlop
    int 10h

    mov dx, offset hiba
    mov ah, 9
    int 21h

    jmp Bevitel


Tarol:
; di: 'ertek1 cimke cime'
    mov [di], al ; ertek1: "1***$"
    inc di
    mov al, "$"
    mov [di], al ; ertek1: "1$**$"

    mov ah, 2
    mov bh, 0
    mov dh, 10 ;sor
    mov dl, 0 ;oszlop
    int 10h

    mov dx, offset ertek1
    mov ah, 9
    int 21h

    mov ax, offset ertek1
    add ax, 4
    cmp ax, di
    jnz Bevitel

    ;itt folytatódik, ha már beírtunk 4 számjegyet
    mov ah, 2
    mov bh, 0
    mov dh, 10 ;sor
    mov dl, 0 ;oszlop
    int 10h

    mov dx, offset uzenet
    mov ah, 9
    int 21h


;eddig
Program_Vege:
	mov	ax, 4c00h
	int	21h
	mov ah, 10
;ide tehetjük a stringeket
ertek1: db "****$"
ertek2: db "****$"
uzenet: db "Vege a bevitelnek!$"
egy: db "Bevitel elso:$"
ketto: db "Bevitel masodik:$"
hiba: db "Nem megengedett karakter!$"
menutext: db "Elso szam modositasa 'a', masodik szam modositasa 'b', kilepes 'ECS'$"

;eddig
Code	Ends

Data	Segment

Data	Ends

Stack	Segment

Stack	Ends
	End	Start