; StarBurst Orignally written by someone else in C.
; ReWritten in ASM by Joshua Dinerstein on 7-29-92
; Was 1960 bytes. Now it is 80 bytes. 

ExecBase     = 4
OpenLibrary  = -552
Closelibrary = -414

Main:
	move.l  ExecBase,a6			; Load exec base 

	lea.l	DOSname(pc),a1			; Open the Dos Library
	moveq.l	#30,d0				; Only 2.0
	jsr	OpenLibrary(a6)

	movea.l	D0,A1				; Move Library base to A1
	movea.l	34(A1),A0			; Move (dl_Root) to a0
	bchg.b	#$0000,52(a0)			; Set the right bit

	jsr	Closelibrary(a6)		; Close the Dos library

	rts

DOSname		dc.b	"dos.library",0

	END