; euklidischer Divisionsalgorithmus:

goto :begin

:rest    
; innerhalb von Subroutinen gilt: Stack-Nr := Stack-Nr. +1
; da EIP auf den Stack gepushed wurde
lade 8 ; a / b
mul* 7 ; *b
sub- 6 ; -a
mul* 3 ; abs bzw. *-1
stor 8 ; erg
ret

:begin
print a:
read 0 ; a
print b:
read 1 ; b
data -1
stor 2 ; 1

:continue
lade 0
div/ 1 ; a / b
stor 7 ; a / b

lade 0
stor 5 ; a
lade 1
stor 6 ; b
gosub :rest

go.0 :ende

lade 7 ; rest
stor 1 ; b := rest

goto :continue

:ende
writ 1 ; erg := b
end.