
; Listing27b3.s
; zuerst Diskettenlaufwerk Laufwerk 0 - Motor an
; danach alle Lauferksmotor aus
; danach zurück zum normalen 'Laufwerksklicken'
; WinUAE Sound 
; Floppy Drive Sound Emulation

; https://eab.abime.net/showthread.php?t=84507

start:
	move.l	4.w,a6			; Execbase in a6
	jsr	-$78(a6)			; disable

	lea    $bfd100,a0		; CIA-B PRB
	or.b   #$08,(a0)		; %0000.1000 - Laufwerk 0 anwählen
							; Motor-on Bit ist aktiv
	and.b  #$00,(a0)		; %0000.0000 - Laufwerk 0 hi-low-Wechsel
	or.b   #$08,(a0)		; %0000.1000 - Laufwerk 0 low-hi-Wechsel

Mouse:	
	btst	#6,$bfe001
	bne.s	Mouse

; alle Motore aus

	or.b   #$f8,(a0)		; %1111.1000 - alle Antriebe anwählen
							; mit high-low-Wechsel wird Motorbit gespeichert
	and.b  #$87,(a0)		; %1000.0111 - MOTOR-off-Bit setzen und Antriebe abwählen	
	or.b   #$78,(a0)		; %0111.1000 - alle Antriebe wieder abwählen.
	
Mouse2:
	btst	#2,$dff016		; rechte Maustaste gedrückt?
	bne.s	Mouse2
	

	move.l	4.w,a6			; Execbase in a6
	jsr	-$7e(a6)			; enable

	rts

	end


