; *******   CODED BY XENON OF TTST *******
;
; This is the seka-source-code for the starry-sky !
; you can load the sprite-file after sprite0 
; ( of course first delete the sprite exsample !)
; assemble it and start it with "j run"
; ok thatīs all ! enjoy !
; and donīt forget to greet THE TOP SECRET TEAM
; contact us: write to :        TTST (donīt write this line)
;				PLK 029919 C
;				4500 OSNABRÜCK
;				WEST GERMANY

execbase        = 4
Forbid          = -132
Permit          = -138
OpenLibrary     = -408
CloseLibrary    = -414

run:

	lea	$70000,a0
clr_loop:
	clr.l	(a0)+
	cmp.l	#$72800,a0
	bne.s	clr_loop

	move.l	#sprite0,d0
	move.w	d0,sp2
	swap	d0
	move.w	d0,sp1

	move.l	execbase,a6
	jsr	Forbid(a6)
	lea	gfxname,a1
	jsr	OpenLibrary(a6)
	move.l	d0,gfxbase
	move.l	#copperlist,$dff080
	clr.w	$dff088
	move.l	$6c,old_int+2
	move.l	#interrupt,$6c

wait:
	btst	#6,$bfe001
	bne.s	wait
	
	move.l	old_int+2,$6c
	move.l	gfxbase,a1
	move.l	38(a1),$dff080
	clr.w	$dff088
	move.l	execbase,a6
	move.l	gfxbase,a1
	jsr	CloseLibrary(a6)
	jsr	Permit(a6)
	moveq	#0,d0
	rts

interrupt:
	movem.l	d0-d7/a0-a6,-(sp)
	
	lea	sprite0+1,a0
	moveq	#sprite0_end-sprite0-4/8-1,d1
	moveq	#1,d2
stars_loop:
	cmp.b	#$d9,(a0)
	bne.s	stars_weiter1
	move.b	#$3f,(a0)	
	bra.s	stars_no_add	
stars_weiter1:
	add.b	d2,(a0)
stars_no_add:
	addq.l	#1,d2
	cmp.b	#4,d2
	bne.s	stars_weiter2
	moveq	#1,d2
stars_weiter2:
	addq.l	#8,a0
	dbra	d1,stars_loop
stars_end:
	movem.l	(sp)+,a0-a6/d0-d7		
old_int:
	jmp	0

gfxname:	dc.b	"graphics.library",0
even
gfxbase:	dc.l	0

copperlist:
	dc.w	$008e,$2981,$0090,$29c1,$0092,$0038,$0094,$00d0
	dc.w	$0100,$1200,$00e0,$0007,$00e2,$0000
	dc.w	$01a2,$0555,$01a4,$0aaa,$01a6,$0fff
	dc.w	$0120
sp1:	dc.w	$0000,$0122
sp2:	dc.w	$0000,$0124,$0000,$0126,$0000
	dc.w	$0128,$0000,$012A,$0000,$012C,$0000,$012E,$0000
	dc.w	$0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000
	dc.w	$0138,$0000,$013A,$0000,$013C,$0000,$013E,$0000
	dc.w	$ffff,$fffe

sprite0:
	dc.l	$2A692B00,$80000000,$2CD32D00,$00008000
	dc.l	$2EFE2F00,$80008000,$30603100,$80000000
	dc.l	$32493300,$00008000,$34663500,$80008000
	dc.l	$369F3700,$80000000,$38C43900,$00008000
	dc.l	$3A413B00,$80008000,$3C603D00,$80000000
	dc.l	$3EC23F00,$00008000,$40574100,$80008000
	dc.l	$42C44300,$80000000,$44614500,$00008000
	dc.l	$46524700,$80008000,$484E4900,$80000000
	dc.l	$4A6E4B00,$00008000,$4C0D4D00,$80008000
	dc.l	$4E894F00,$80000000,$50A15100,$00008000
	dc.l	$52665300,$80008000,$54D05500,$80000000
	dc.l	$56565700,$00008000,$585C5900,$80008000
	dc.l	$5AD05B00,$80000000,$5C895D00,$00008000
	dc.l	$5E715F00,$80008000,$60886100,$80000000
	dc.l	$629D6300,$00008000,$646B6500,$80008000
	dc.l	$66A86700,$80000000,$68746900,$00008000
	dc.l	$6AB46B00,$80008000,$6CCC6D00,$80000000
	dc.l	$6E616F00,$00008000,$70677100,$80008000
	dc.l	$72497300,$80000000,$74457500,$00008000
	dc.l	$76E97700,$80008000,$78787900,$80000000
	dc.l	$7AD77B00,$00008000,$7CCE7D00,$80008000
	dc.l	$7E7A7F00,$80000000,$80348100,$00008000
	dc.l	$821C8300,$80008000,$84458500,$80000000
	dc.l	$86A48700,$00008000,$88C68900,$80008000
	dc.l	$8A548B00,$80000000,$8C568D00,$00008000
	dc.l	$8E6E8F00,$80008000,$908B9100,$80000000
	dc.l	$92129300,$00008000,$94529500,$80008000
	dc.l	$965A9700,$80000000,$98729900,$00008000
	dc.l	$9A609B00,$80008000,$9C769D00,$80000000
	dc.l	$9E5F9F00,$00008000,$A06BA100,$80008000
	dc.l	$A29EA300,$80000000,$A4BFA500,$00008000
	dc.l	$A65EA700,$80008000,$A8A1A900,$80000000
	dc.l	$AAADAB00,$00008000,$AC65AD00,$80008000
	dc.l	$AE5EAF00,$80000000,$B034B100,$00008000
	dc.l	$B241B300,$80008000,$B483B500,$80000000
	dc.l	$B69BB700,$00008000,$B886B900,$80008000
	dc.l	$BAB2BB00,$80000000,$BC43BD00,$00008000
	dc.l	$BE1ABF00,$80008000,$C068C100,$80000000
	dc.l	$C2FAC300,$00008000,$C407C500,$80008000
	dc.l	$C68BC700,$80000000,$C840C900,$00008000
	dc.l	$CA6DCB00,$80008000,$CC45CD00,$80000000
	dc.l	$CE0ECF00,$00008000,$D0E7D100,$80008000
	dc.l	$D287D300,$80000000,$D410D500,$00008000
	dc.l	$D617D700,$80008000,$D85AD900,$80000000
	dc.l	$DA1EDB00,$00008000,$DCACDD00,$80008000
	dc.l	$DE6DDF00,$80000000,$E014E100,$00008000
	dc.l	$E277E300,$80008000,$E4C7E500,$80000000
	dc.l	$E6DEE700,$00008000,$E8B8E900,$80008000
	dc.l	$EAB9EB00,$80000000,$EC36ED00,$00008000
	dc.l	$EE71EF00,$80008000,$F07FF100,$80000000
	dc.l	$F2C4F300,$00008000,$F407F500,$80008000
	dc.l	$F6AAF700,$80000000,$F828F900,$00008000
	dc.l	$FA70FB00,$80008000,$FC4DFD00,$80000000
	dc.l	$FED7FF00,$00008000,$00C40106,$80008000
	dc.l	$028C0306,$80000000,$04CC0506,$00008000
	dc.l	$06E00706,$80008000,$08D50906,$80000000
	dc.l	$0A060B06,$00008000,$0C290D06,$80008000
	dc.l	$0E8B0F06,$80000000,$10AF1106,$00008000
	dc.l	$12ED1306,$80008000,$14561506,$80000000
	dc.l	$164F1706,$00008000,$188D1906,$80008000
	dc.l	$1A7C1B06,$80000000,$1CA11D06,$00008000
	dc.l	$1ED21F06,$80008000,$20D22106,$80000000
	dc.l	$22C22306,$00008000,$24B32506,$80008000
	dc.l	$00000000  ; Stars made with the TTST-STAR-ED !
sprite0_end: