
; Original
; Datei: main.s

Waitmouse:					; diese LABEL steht als Referenzpunkt für das bne
	bsr changecolor			; in Routine ausgelagert	
	btst	#6,$bfe001		; linke Maustaste gedrückt?
	bne.s	Waitmouse		; wenn nicht, kehre zu Waitmouse zurück
							; und wiederhole
	rts						; Ende, steig aus

changecolor:
	move.w	$dff006,$dff180	; gib den Wert von $dff006 in $dff180
							; also von VHPOSR in COLOR00
	rts

	END