asswembly rák 2

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

Start:
    mov ax, Code
    mov DS, AX

    xor ax, ax ;0. időpillanat
    push ax

Kesleltet:
    xor ax, ax ;történt e bill leütés
    mov ah, 01h
    int 16h

    jz nincsbill ;ha nem akkor zero flag

    mov  ah, 00h ;ha igen akkor lekérjük melyik
    int 16h
    cmp al, 27
    jz Program_Vege

nincsbill:
    xor ah, ah
    int 1ah ;rendszeridő lekérése

    pop cx ;t0 lekérése
    push cx ;vissza is rakjuk

    push dx
    sub dx, cx ; delta t

    mov ax, 9 ;1 mp késleltetés beállítása
    cmp dx, ax ;delta t és az elvárt idő összehasonlítása
    pop ax
    jc kesleltet

    pop cx
    push ax

Vizsgal:

    mov di, offset szamlalo_egy
    mov cl, [di]
    mov [di], cl

    cmp cl, "9"
    jz TizesNovel

    mov di, offset szamlalo_egy
    mov cl, [di]
    inc cl
    mov [di], cl



    ;mov dx, offset torles
    ;mov ah, 09h
    ;int 21h

Kiir:
    ;mov ax, 03h ;kép törlés
    ;int 10h

    mov dx, offset szamlalo_tiz
    mov ah, 09h
    int 21h

    mov dx, offset szamlalo_egy
    mov ah, 09h
    int 21h

    mov bx, di ; dx koord
    mov dh, bl ;di alsó bájt
    mov bx, 0 ; oszlop koord
    mov dl, 0
    xor bh, bh
    mov ah, 02h
    int 10h

    mov dx, offset torles
    mov ah, 09h
    int 21h

    jmp Kesleltet

TizesNovel:
    mov di, offset szamlalo_tiz
    mov cl, [di]
    inc cl
    mov [di], cl

    cmp cl, "9"
    jnc lenullaz

    mov di, offset szamlalo_egy
    mov cl, [di]
    mov cl, "0"
    mov [di], cl

    jmp Kiir

lenullaz:
    mov di, offset szamlalo_tiz
    mov cl, [di]
    mov cl, "0"
    mov [di], cl

    mov di, offset szamlalo_egy
    mov cl, [di]
    mov cl, "0"
    mov [di], cl

    jmp Kiir

Program_Vege:
    mov ax, 4c00h
    int 21h

szamlalo_tiz:
    db"7$"

szamlalo_egy:
    db"0$"

torles:
    db"  $"


Code    Ends

Data    Segment

Data    Ends

Stack   Segment

Stack   Ends
    End Start