; Ein kleiner Screenhack von der Disk MACRO-PD-SOFT # 9
; plus flackern der Power-LED a la GURU!

        XDEF    Start

count   EQU     10              ; jedes 10. Bildschirmflackern
                                ; LED 1x an oder aus (sonst zu hektisch!)

Start:  MOVE.L  #count,zahl     ; Zähler setzen
        CLR.L   D4              ; D4 ist der An/Aus-Switch für LED
        MOVEQ   #01,D4          ; D4 = 1 => LED aus
Start2  MOVE.L	#1,$00DFF02C    ; Vert. Rasterstrahlpos. high bit
	JSR	flimmer         ; Go Bildschirmflackern
	BTST	#6,$00BFE001    ; CIAA, LMB pressed?
	BNE	Start2
	BCLR    #1,$BFE001      ; LED wieder an und exit
	RTS

flimmer	MOVE.L	#$00004E20,D0   ; Geschw. d. Bildschirmflackerns
wait	NOP                     ; warten
	DBRA	D0,wait
	SUB.L   #1,zahl         ; Zähler um 1 verringern
	BEQ     led             ; = 0 => LED flackern
	RTS

led     MOVE.L  #count,zahl     ; Zähler neu laden
        CMPI.B  #0,D4           ; D4 = 1 => LED aus
        BNE     led2            ; D4 = 0 => LED an
        MOVEQ   #1,D4           ; D4 := 1 => nächstes mal LED aus
        BCLR    #1,$BFE001      ; LED an
        RTS

led2    BSET    #1,$BFE001      ; LED aus
	MOVEQ   #0,D4           ; D4 := 0 => nächstes mal LED an
        RTS

zahl    DC.L    0

	CNOP    2,0