find_a.asm

%include "gt.asm"
covar
    inarea: resb 70
    counter: dd 0
    a: resd 1
    b: resd 1
    i: resd 1
inleiding
    openin
    lees
    mov ecx, 69
check:
    mov al, 'a'
    mov bl, [inarea + ecx]
    cmp al, bl
    je is_a
after_a:
    sub ecx, 1
    cmp ecx, 0
    jl eof
    jmp check

is_a:
    mov eax, [counter]
    add eax, 1
    mov [counter], eax
    jmp after_a

eof:
    uit [counter]
slot