ORG	$40000
LOAD	$40000


SCRN=	$58000
MULTAB=	$43000	; $0200
VSIN=	$44000
COORD=	$48000
ACIDO=	$4F000

S:

	MOVE.B	#$FF,D3
	JSR	SYNC
	MOVE.B	#$38,D3
	JSR	SYNC
	MOVE.L	#COP,$DFF080
	MOVE.W	#$0020,$DFF096
	MOVE.W	#$8000,$DFF096


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

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

	BSR	IRQINIT



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

MAIN:	MOVE.B	#$40,D3
	JSR	SYNC


MOVE.W	#$400,$DFF180
	BSR	A_STAR
MOVE.W	#$000,$DFF180

	BTST	#6,$BFE001
	BNE	MAIN
	BRA END

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

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

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

;İİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİİ
OLDIRQ:	DC.L	0
OLDENA:	DC.W	0

IRQINIT:
	MOVE.L	$6C.W,OLDIRQ
	MOVE.W	$DFF01C,OLDENA
	OR.W	#$8000,OLDENA
	MOVE.W	#$7FFF,$DFF09A
	MOVE.L	#MYINT,$6C.W
	MOVE.W	#$C020,$DFF09A
	RTS
ENDIRQ:	MOVE.W	#$7FFF,$DFF09A
	MOVE.L	OLDIRQ,$6C.W
	MOVE.W	OLDENA,$DFF09A
RTS:	RTS



;IRQIRQIRQIRQIRQIRQIRQIRQIRQIRQIRQIRQIRQIRQIRQIRQIRQIRQ

MYINT:
	MOVEM.L	D0-D7/A0-A6,-(A7)

Q_OUT:	MOVE.W	#$0020,$DFF09C		;IRQREQ
	MOVEM.L	(A7)+,D0-D7/A0-A6
	RTE


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

A_STAR:




	RTS


;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


COP:	DC.W	$2007,$FFFE
INS:	DC.L	$00E00005,$00E20000
	DC.L	$00E40005,$00E60000
	DC.L	$018208CF,$01840000,$018606AD
	DC.W	$008E,$2071,$0090,$30D1
	DC.W	$0092,$0030,$0094,$00f0
	DC.W	$0100,$1000
	DC.W	$0108,$0000,$010A,$0000
	DC.L	$FFFFFFFE

