Assembler #9

%include "gt.asm"
         covar
a:       resd 1
hulpd:   resd 1
aantal:  resd 1
nul:     dd 0
een:     dd 1
         inleiding
         mov EAX, [nul] ; som
         mov EDX, [nul] ; aantal

begin:   inv [a]
         mov [hulpd], EAX ; waarde EAX komt in [hulpd]
         mov EAX, [a]
         cmp EAX, [nul]
         jl verder ; als getal kleiner is dan nul
         add EAX, [hulpd]
         add EDX, [een]
         jmp begin

verder:  cmp EDX, [nul]
         jle einde
         mov EAX, [hulpd]
         mov [aantal], EDX
         imul dword [een]
         idiv dword [aantal]
         mov [hulpd], EAX
         uit [hulpd]

einde:   slot