; Starscroll av Johan Sanneblad 90-02-05

	Section	gurka,code_c

;----------------------------------------------------------------
	move.w	#$4000,$dff09a
	or.b	#%10000000,$bfd100
	and.b	#%10000111,$bfd100

	move.w	#$01a0,$dff096
	move.w	#$2200,$dff100
	move.w	#$0000,$dff102
	move.w	#$003f,$dff104
	move.w	#$0,$dff108
	move.w	#$0,$dff10a
	move.w	#$2c81,$dff08e
	move.w	#$ffc1,$dff090
	move.w	#$38c1,$dff090
	move.w	#$0038,$dff092
	move.w	#$00d0,$dff094
;----------------------------------------------------------------
Start:	lea.l	stars,a1			; My ONLY sprite
	lea.l	copper,a2
	move.l	a1,d1
	move.w	d1,6(a2)
	swap	d1
	move.w	d1,2(a2)	
	lea.l	blank,a1			; Other 7 are BLACK!!!
	lea.l	copper,a2
	move.l	a1,d1				; Here's the address
	addq.l	#8,d1
	add.l	#10,a2
	moveq	#6,d0
molop:	swap	d1
	move.w	d1,(a2)
	addq.l	#4,a2
	swap	d1
	move.w	d1,(a2)
	addq.l	#4,a2
	addq.l	#8,d1
	dbra	d0,molop
	lea.l	screen,a1			; Fixa farger,OBS! 2 Btpl
	lea.l	btplcop,a2
	move.l	a1,d1
	addq.l	#2,a2
	moveq	#1,d0
rutt:	swap	d1
	move.w	d1,(a2)
	addq.l	#4,a2
	swap	d1
	move.w	d1,(a2)
	addq.l	#4,a2
	add.l	#10240,d1
	dbra	d0,rutt

	lea.l	copper,a1				; Starting copper
	move.l	a1,$dff080
	move.w	$dff088,d0
	move.w	#$081a0,$dff096
;----------------------------------------------------------------
Loop:	bsr	wait
	bsr	movestars

	btst	#6,$bfe001
	bne	loop
;----------------------------------------------------------------
Quit:	move.w	#$0080,$dff096
	move.l	$04,a6
	move.l	156(a6),a5
	move.l	38(a5),$dff080
	move.w	#$8080,$dff096
	move.w	#$c000,$dff09a
	rts
;----------------------------------------------------------------
Wait:	move.l	$dff004,d2			; Check raster
	asr.l	#8,d2
	and.l	#$1ff,d2
	cmp.w	#300,d2
	bne	wait
	rts
;----------------------------------------------------------------
Movestars:
	lea.l	stars,a1			; Star-address
	clr.l	d1
	move.l	Antalplan,d2
	add.l	#1,a1
	move.b	(a1),d1
	move.l	#125,d0					; 126 stars
Moveit:	cmp.b	#$2c,d1
	bhi	notend
	move.b	#$df,d1
Notend:	cmp.l	#0,d2
	bne	choklad
	move.l	Antalplan,d2
Choklad:sub.b	d2,d1					; Move star
	move.b	d1,(a1)
	add.l	#8,a1
	clr.l	d1
	move.b	(a1),d1
	sub.b	#1,d2
	dbra	d0,moveit
	rts
;----------------------------------------------------------------
Copper:	dc.w	$0120,$0000
	dc.w	$0122,$0000
	dc.w	$0124,$0000
	dc.w	$0126,$0000
	dc.w	$0128,$0000
	dc.w	$012a,$0000
	dc.w	$012c,$0000
	dc.w	$012e,$0000
	dc.w	$0130,$0000
	dc.w	$0132,$0000
	dc.w	$0134,$0000
	dc.w	$0136,$0000
	dc.w	$0138,$0000
	dc.w	$013a,$0000
	dc.w	$013c,$0000
	dc.w	$013e,$0000
	dc.w	$2c01,$fffe
	dc.w	$0100,$2200
Btplcop:dc.w	$00e0,$0000
	dc.w	$00e2,$0000
	dc.w	$00e4,$0000
	dc.w	$00e6,$0000
	dc.w	$0180,$0000
	dc.w	$01a2,$0fff
	dc.w	$01a4,$0999
	dc.w	$01a6,$0555
	dc.w	$ffdf,$fffe
	dc.w	$2c01,$fffe
	dc.w	$0100,$0200
	dc.w	$ffff,$fffe
;-----------------------------------------------------------------
		;VsHsVe    Data     (Vs=Vert.start, Hs=Horis. start)
Stars:	dc.l	$2AAC2B00,$80000000,$2C952D00,$00008000
	dc.l	$2ED22F00,$80008000,$30563100,$80000000
	dc.l	$32833300,$00008000,$34B03500,$80008000
	dc.l	$36603700,$80000000,$38493900,$00008000
	dc.l	$3A943B00,$80008000,$3C4D3D00,$80000000
	dc.l	$3E6B3F00,$00008000,$40824100,$80008000
	dc.l	$42C04300,$80000000,$44BB4500,$00008000
	dc.l	$460A4700,$80008000,$48604900,$80000000
	dc.l	$4AFC4B00,$00008000,$4C734D00,$80008000
	dc.l	$4E924F00,$80000000,$50EC5100,$00008000
	dc.l	$52F05300,$80008000,$544E5500,$80000000
	dc.l	$56655700,$00008000,$586C5900,$80008000
	dc.l	$5ABF5B00,$80000000,$5CBD5D00,$00008000
	dc.l	$5E3B5F00,$80008000,$609E6100,$80000000
	dc.l	$62D76300,$00008000,$645C6500,$80008000
	dc.l	$66AE6700,$80000000,$68066900,$00008000
	dc.l	$6AB86B00,$80008000,$6CCC6D00,$80000000
	dc.l	$6EEC6F00,$00008000,$700E7100,$80008000
	dc.l	$72BF7300,$80000000,$74B57500,$00008000
	dc.l	$761F7700,$80008000,$787B7900,$80000000
	dc.l	$7AFC7B00,$00008000,$7C4F7D00,$80008000
	dc.l	$7EAA7F00,$80000000,$801E8100,$00008000
	dc.l	$82638300,$80008000,$845D8500,$80000000
	dc.l	$86A58700,$00008000,$88A68900,$80008000
	dc.l	$8A7B8B00,$80000000,$8C738D00,$00008000
	dc.l	$8E778F00,$80008000,$92909300,$80000000
	dc.l	$94949500,$00008000,$96979700,$80008000
	dc.l	$98799900,$80000000,$9AB59B00,$00008000
	dc.l	$9C679D00,$80008000,$9ECC9F00,$80000000
	dc.l	$A06BA100,$00008000,$A256A300,$80008000
	dc.l	$A490A500,$80000000,$A67DA700,$00008000
	dc.l	$A814A900,$80008000,$AAAAAB00,$80000000
	dc.l	$ACB8AD00,$00008000,$AE6DAF00,$80008000
	dc.l	$B04BB100,$80000000,$B2D0B300,$00008000
	dc.l	$B495B500,$80008000,$B665B700,$80000000
	dc.l	$B8A7B900,$00008000,$BA41BB00,$80008000
	dc.l	$BCBFBD00,$80000000,$BEBCBF00,$00008000
	dc.l	$C08BC100,$80008000,$C295C300,$80000000
	dc.l	$C493C500,$00008000,$C691C700,$80008000
	dc.l	$C888C900,$80000000,$CAA2CB00,$00008000
	dc.l	$CCC7CD00,$80008000,$CEB0CF00,$80000000
	dc.l	$D036D100,$00008000,$D27CD300,$80008000
	dc.l	$D4C4D500,$80000000,$D6D8D700,$00008000
	dc.l	$D8B2D900,$80008000,$DAA2DB00,$80000000
	dc.l	$DCD1DD00,$00008000,$DE49DF00,$80008000
	dc.l	$E0BEE100,$80000000,$E26FE300,$00008000
	dc.l	$E48BE500,$80008000,$E64CE700,$80000000
	dc.l	$E85DE900,$00008000,$EA25EB00,$80008000
	dc.l	$EC7FED00,$80000000,$EECDEF00,$00008000
	dc.l	$F058F100,$80008000,$F25AF300,$80000000
	dc.l	$F406F500,$00008000,$F614F700,$80008000
	dc.l	$F8C8F900,$80000000,$FA4BFB00,$00008000
	dc.l	$FC0AFD00,$80008000,$FE9EFF00,$80000000
	dc.l	$00280106,$00008000,$02790306,$80008000
	dc.l	$04420506,$80000000,$068D0706,$00008000
	dc.l	$08070906,$80008000,$0A7B0B06,$80000000
	dc.l	$0CF00D06,$00008000,$0ED60F06,$80008000
	dc.l	$10A71106,$80000000,$12C11306,$00008000
	dc.l	$14561506,$80008000,$164B1706,$80000000
	dc.l	$18661906,$00008000,$1A8E1B06,$80008000
	dc.l	$1C7F1D06,$80000000,$1EA31F06,$00008000
	dc.l	$20BF2106,$80008000,$22D32306,$80000000
	dc.l	$244D2506,$00008000,$26612706,$80008000

blank:	dc.l	$00000000

Screen:	ds.b	20480	; Har kan man ladda in en bild med 2 bitplan.
			; (Varfor skriver jag så nar jag trots allt
Antalplan:dc.l	3	; inte amnar sprida mina sourcekodes???)