;	 						    Textured Ball
;          1997.02.07 Legnica
;        Special to Mag - Glaz#1
;       Code by Kaiser/Phase Truce
;      Graphics by Caro/Phase Truce


		movem.l	d0-a6,-(sp)

		move.l	#$7fff7fff,$dff09a
		move.l	#Irq,$6c.w
		move.w	#$c020,$dff09a		; Wyîâczenie przerwaï

		Bsr	Go			; uruchomienie programu

		movem.l	(sp)+,d0-a6
		moveq	#0,d0
		rts

Irq:		move.w	#$0020,$dff09c		; Wolne przerwanie
		rte

Go:		bsr	x_Init			; Wîâczenie odpowiedniego
						; ekranu
Wait:		bsr	Raster			; zbadanie w której lini
						; jest wiâzka elektronów
		Bsr	x_Play			; uruchomienie wîaôciwego
						; programu, narzucajâcego
						; grafikë na kulë.

		btst	#6,$bfe001		; test myszy (LMB)
		bne	Wait
		rts

Raster:		move.l	$dff004,d0
		lsr.l	#8,d0
		and.w	#$1ff,d0
		cmp.w	#$40,d0
		bne	Raster
		rts


x_Init:		movem.l	d0-a6,-(sp)

		move.l	#x_Copper,$dff080	;Wîâczenie Copper Listy
		move.w	#$0000,$dff088

		move.w	#$0020,$dff096		; wyîâczeni spraitów
		move.w	#$7200,$dff100		; wîâczenie 7 bitplanów

		move.w	#$33a0,$dff08e		; wysokoôê i szerokoôê
		move.w	#$1fa0,$dff090		; ekranu
		move.w	#$0038,$dff092		; ble ble
		move.w	#$00d0,$dff094		; ble
		move.w	#$0000,$dff102		;
		move.w	#$0000,$dff104		;
		move.w	#$0000,$dff106		;
		move.w	#$00f0,$dff108		;
		move.w	#$00f0,$dff10a		; modulo Bpl. parzystych
		move.w	#$0000,$dff10c		; modulo Bpl. nieparzystych
						; 7*40-40
		move.w	#$0000,$dff1fc		; 68000

		move.w	#$0000,$dff180		; kolor tîa

		move.w	#7-1,d7			; wpisanie adresu Ekranu
		move.l	#x_Bpl,a0
		move.l	#x_Chunky,d0
x_Loop:		move.w	d0,6(a0)
		swap	d0
		move.w	d0,2(a0)
		swap	d0
		add.l	#40,d0
		add.l	#8,a0
		dbf	d7,x_Loop

		Lea	x_Kaiser,a0		; tworzenie Copper Listy
		move.w	#$0f00,d0		; (Chunky Pixle)
		move.w	#$0010,d1
		move.w	#$0001,d2
		move.w	#$0101,d3

		move.b	#$2f,d4
		move.l	#44,d7
		move.b	#6,d5

x_Lox:		move.b	d4,(a0)+
		move.b	#1,(a0)+
		move.w	#$fffe,(a0)+
		add.b	d5,d4

		move.w	#$0106,(a0)+
		move.w	#$0000,(a0)+
		move.w	#$0102,(a0)+
		move.w	#$0000,(a0)+
		move.w	#$0182,(a0)+
		move.w	d0,(a0)+
		move.w	#$0184,(a0)+
		move.w	d0,(a0)+
		move.w	#$0186,(a0)+
		move.w	d0,(a0)+
		move.w	#$0188,(a0)+
		move.w	d0,(a0)+
		move.w	#$018a,(a0)+
		move.w	d0,(a0)+
		move.w	#$018c,(a0)+
		move.w	d0,(a0)+
		move.w	#$018e,(a0)+
		move.w	d0,(a0)+
		move.w	#$0190,(a0)+
		move.w	d0,(a0)+
		move.w	#$0192,(a0)+
		move.w	d0,(a0)+
		move.w	#$0194,(a0)+
		move.w	d0,(a0)+
		move.w	#$0196,(a0)+
		move.w	d0,(a0)+
		move.w	#$0198,(a0)+
		move.w	d0,(a0)+
		move.w	#$019a,(a0)+
		move.w	d0,(a0)+
		move.w	#$019c,(a0)+
		move.w	d0,(a0)+
		move.w	#$019e,(a0)+
		move.w	d0,(a0)+
		move.w	#$01a0,(a0)+
		move.w	d0,(a0)+
		move.w	#$01a2,(a0)+
		move.w	d0,(a0)+
		move.w	#$01a4,(a0)+
		move.w	d0,(a0)+
		move.w	#$01a6,(a0)+
		move.w	d0,(a0)+
		move.w	#$01a8,(a0)+
		move.w	d0,(a0)+
		move.w	#$01aa,(a0)+
		move.w	d0,(a0)+
		move.w	#$01ac,(a0)+
		move.w	d0,(a0)+
		move.w	#$01ae,(a0)+
		move.w	d0,(a0)+
		move.w	#$01b0,(a0)+
		move.w	d0,(a0)+
		move.w	#$01b2,(a0)+
		move.w	d0,(a0)+
		move.w	#$01b4,(a0)+
		move.w	d0,(a0)+
		move.w	#$01b6,(a0)+
		move.w	d0,(a0)+
		move.w	#$01b8,(a0)+
		move.w	d0,(a0)+
		move.w	#$01ba,(a0)+
		move.w	d0,(a0)+
		move.w	#$01bc,(a0)+
		move.w	d0,(a0)+
		move.w	#$01be,(a0)+
		move.w	d0,(a0)+

		move.w	#$0106,(a0)+
		move.w	#$2000,(a0)+
		move.w	#$0180,(a0)+
		move.w	d1,(a0)+
		move.w	#$0182,(a0)+
		move.w	d1,(a0)+
		move.w	#$0184,(a0)+
		move.w	d1,(a0)+
		move.w	#$0186,(a0)+
		move.w	d1,(a0)+
		move.w	#$0188,(a0)+
		move.w	d1,(a0)+
		move.w	#$018a,(a0)+
		move.w	d1,(a0)+
		move.w	#$018c,(a0)+
		move.w	d1,(a0)+
		move.w	#$018e,(a0)+
		move.w	d1,(a0)+
		move.w	#$0190,(a0)+
		move.w	d1,(a0)+
		move.w	#$0192,(a0)+
		move.w	d1,(a0)+
		move.w	#$0194,(a0)+
		move.w	d1,(a0)+
		move.w	#$0196,(a0)+
		move.w	d1,(a0)+
		move.w	#$0198,(a0)+
		move.w	d1,(a0)+
		move.w	#$019a,(a0)+
		move.w	d1,(a0)+
		move.w	#$019c,(a0)+
		move.w	d1,(a0)+
		move.w	#$019e,(a0)+
		move.w	d1,(a0)+
		move.w	#$01a0,(a0)+
		move.w	d1,(a0)+
		move.w	#$01a2,(a0)+
		move.w	d1,(a0)+
		move.w	#$01a4,(a0)+
		move.w	d1,(a0)+
		move.w	#$01a6,(a0)+
		move.w	d1,(a0)+
		move.w	#$01a8,(a0)+
		move.w	d1,(a0)+
		move.w	#$01aa,(a0)+
		move.w	d1,(a0)+
		move.w	#$01ac,(a0)+
		move.w	d1,(a0)+
		move.w	#$01ae,