org $3000		;Beginne bei Adresse 3000
 
zahl	equ $0001		;Datenwert
ende	equ $0009		;Registerwert
 
 
	clr.l d0		;Lösche Long-Wert in Datenregister do
 
	move.l #zahl,d0		;Verschiebe 0001 als Long-Wert nach Datenregister d0
	move.l #ende,a0		;Verschiebe 0009 als Long-Wert nach Adressregister a0
 
 
loop
	add.l #1,d0		;zaehle hoch bis 9
	cmp.l d0,a0		;vergleiche ob zahl=ende
	bne loop		;Springe zu loop, so lange zahl ungleich ende
 
 
end