%include "gt.asm"
covar
inarea: resb 70
woord:  resb 70
aantal: resd 1
inleiding
        sub eax, eax
        sub ebx, ebx
        sub ecx, ecx
        sub edx, edx
        sub esi, esi
        sub edi, edi
        openin
        cld
        lees

        mov ecx, 70
        mov esi, inarea
        mov edi, woord  ;eerste woord word onthouden
        rep movsb

        sub edi, edi

nextln: lees    ;volgende lijn
        cmp eax, 0
        je eof

        sub edi, edi
        sub eax, eax
back:
        mov al, [inarea+edi]    ;voeg een letter van het eerste woord toe aan al
        cmp al, [woord+edi]     ;vergelijk het letter in al met een letter van het volgende woord
        jne noteq               ;springt als het niet gelijk is

        add edi, 1
        cmp edi, 70
        jne verd                ;als de laatste char niet bereikt is
        mov ebx, 1
        add [aantal], ebx       ;laatste char bereikt, het woord komt voor in het tekst dus voeg 1 toe
        jmp next


verd:   jmp back                ;lees volgende char

next:
noteq:  jmp nextln



eof:
        uit [aantal]
slot