Számláló/időzítővel

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, 18 ;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

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

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

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

    jmp Kesleltet


Program_Vege:
    mov ax, 4c00h
    int 21h

Szamlalo:
    db"0$"


Code    Ends

Data    Segment

Data    Ends

Stack   Segment

Stack   Ends
    End Start