SCRN=$50000




S:
	MOVE.B	#$FF,D3
	JSR	SYNC
	MOVE.B	#$38,D3
	JSR	SYNC
	MOVE.L	#COP,$DFF080
;	MOVE.W	#$0020,$DFF096
	MOVE.W	#$8200,$DFF096
	MOVE.W	#$4000,$DFF09A
BRA	GHGH
XPR:	DC.L	$20583002
	DC.L	$20603002
	DC.L	$20683002
	DC.L	$20703002
	DC.L	$20783002
	DC.L	$20803002
	DC.L	$20883002
	DC.L	$20903002


GHGH:	MOVE.L	#XPR,A0
	MOVE.L	#SPR0,A1
	MOVE.L	#COSP,A2
	MOVEQ	#7,D6

SPLP:	MOVE.L	(A0)+,(A1)
	MOVE.L	A1,D0
	MOVE.W	D0,6(A2)
	SWAP	D0
	MOVE.W	D0,2(A2)

	ADD.L	#[273*4],A1
	ADDQ.L	#8,A2
	ADDQ.L	#8,A3
	DBF	D6,SPLP

	MOVE.L	#SCRN,D0
	MOVE.W	D0,COP+6
	SWAP	D0
	MOVE.W	D0,COP+2

	MOVE.L	#$C00,D1
	MOVE.L	#SCRN,A0
GOOF:	MOVE.L	#$80000000,(A0)+
	DBF	D1,GOOF

;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ

MAIN:	MOVE.B	#$80,D3
	JSR	SYNC
	MOVE.B	#$81,D3
	JSR	SYNC

MOVE.W	#$0F8,$DFF180
	JSR	A_SPRA
MOVE.W	#$000,$DFF180

	BTST	#6,$BFE001
	BNE	MAIN
	JMP END

;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ

SYNC:	MOVE.B	$DFF006,D0
	CMP.B	D3,D0
	BNE 	SYNC
	RTS

;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ
			
END:	MOVE.L	$00000004,A6
	MOVE.L	#LIBNAMET,A1
	JSR	-408(A6)
	MOVE.L	D0,A0
	MOVE.L	38(A0),$DFF080
	MOVE.W	#$8020,$DFF096
	MOVE.W	#$C000,$DFF09A
	CLR.L	D0
	RTS
LIBNAMET:
	DC.B	'graphics.library',0
EVEN

;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ

A_SPRA:

	











;.,.,.,.,.,.,.,.,.,.,..,.,..,.,.,.,.....,.,.,.,.,.,.

K_ALKO:	CLR.L	D7	; X-D0, Y-D1, HEIGHT-$0C
	MOVE.L	D1,D2	; RES I D7!
	ADD.L	D3,D2
	ASL.L	#8,D1
	ASL.L	#8,D1
	ASL.L	#8,D1
	ROXL.B	#1,D7
	ASL.W	#8,D2
	ROXL.B	#1,D7
	LSR.W	#1,D0
	ROXL.B	#1,D7
	ASL.L	#8,D0
	ASL.L	#8,D0
	OR.L	D0,D7
	OR.L	D1,D7
	OR.L	D2,D7
	RTS


	RTS









;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ

COP:		DC.W	$00E0,$0005,$00E2,$0000
		DC.W	$0180,$0000,$0182,$00F8
		DC.W	$008E,$2081,$0090,$30C1
		DC.W	$0092,$0038,$0094,$00D0
		DC.W	$0100,$1000
		DC.W	$0108,$0000,$010A,$0000
COSP:
	DC.L	$01200000,$01220000
	DC.L	$01240000,$01260000
	DC.L	$01280000,$012A0000
	DC.L	$012C0000,$012E0000
	DC.L	$01300000,$01320000
	DC.L	$01340000,$01360000
	DC.L	$01380000,$013A0000
	DC.L	$013C0000,$013E0000

	DC.L	$FFFFFFFE





SPR0:	DC.L	0		; POS
	BLK.L	272,$FFFF0000	; DATA
SPR1:	DC.L	0		; POS
	BLK.L	272,$FFFFFFFF	; DATA
SPR2:	DC.L	0		; POS
	BLK.L	272,$FFFF0000	; DATA
SPR3:	DC.L	0		; POS
	BLK.L	272,$FFFFFFFF	; DATA
SPR4:	DC.L	0		; POS
	BLK.L	272,$FFFF0000	; DATA
SPR5:	DC.L	0		; POS
	BLK.L	272,$FFFFFFFF	; DATA
SPR6:	DC.L	0		; POS
	BLK.L	272,$FFFF0000	; DATA
SPR7:	DC.L	0		; POS
	BLK.L	272,$FFFFFFFF	; DATA
