***
*** WaitForLightning v1.0   Copyright © in 1993 by Daniel Frey
***

Start	move.l	4.w,a6
	lea	DosName(pc),a1
	moveq	#36,d0
	jsr	-552(a6)	; OpenLibrary
	tst.l	d0
	bne.s	DosOpen
	moveq	#20,d0
	rts
DosOpen	move.l	d0,a6
Loop	moveq	#50,d1
	jsr	-198(a6)	; Delay
	move.w	$dff00c,d0
	btst	#1,d0
	beq.s	Loop
	btst	#9,d0
	beq.s	Loop
	move.l	a6,a1
	move.l	4.w,a6
	jsr	-414(a6)	; CloseLibrary
	moveq	#0,d0
	rts

DosName	dc.b	"dos.library",0

	dc.b	"$VER: WaitForLightning 1.0 (24.1.93)",10