;Dieses Programm zeigt so ungefaehr die Idee von NTSC,liefert zwar bessere
;Resultate (noch weniger Flimmern),ist aber nicht mehr multitaskingfaehig.
;Dieser Algorithmus kann leicht in Spiele,Demos,DiaShows(!) etc. eingebaut
;werden.Wer den Antiflimmereffekt verbessert,sollte mir bitte schreiben.

	Disable      = -120
	Enable       = -126
start:	
	move.l	#$20ffff,d0
wait:	subq.l	#1,d0			;Grauenhafte Warteschleife
	bne.S	wait			;Bitte NIE selbst benutzen!!!

	move.l	4.w,a6
	jsr	Disable(a6)

loop:	move.l	$dff004,d2
	lsr.l	#8,d2
	cmp.w	#100,d2
	bne.S	loop

	move.l	$dff004,d2
	and.l	#$80000000,d2
	beq	Short
	bra	Long

mouse:	btst	#6,$bfe001
	bne	loop
	jsr	Enable(a6)
	moveq	#0,d0
	rts

;--------------
Short:	move.l	$dff004,d0
	lsr.l	#8,d0
	cmp.w	#260,d0
	bne.S	Short
	move.w	#20,d0
so_l1:	subq.w	#1,d0
	bne.S	so_l1
	move.l	#$136ff,$dff02a
	;move.w	#0,$dff038		;????
	bra	mouse

Long:	move.l	$dff004,d0
	lsr.l	#8,d0
	cmp.w	#261,d0
	bne.S	Long
	move.w	#20,d0
lo_l1:	subq.w	#1,d0
	bne.S	lo_l1
	move.l	#$800137ff,$dff02a
	;move.w	#0,$dff03a
	bra	mouse