Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %include "gt.asm"
- covar
- inarea: resb 70
- woord: resb 70
- aantal: resd 1
- truaant:resd 1
- lengte: 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement