org	$40000
load	$40000

SCRN=	$50000
FONTR=	$42000
VSIN=	$44000
COORD=	$48000
ACIDO=	$4FB00

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.W	#$4000,$DFF09A


	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	#$00000000,(A0)+
	DBF	D1,GOOF

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

MAIN:	MOVE.B	#$FF,D3
	JSR	SYNC
	MOVE.B	#$38,D3
	JSR	SYNC

	MOVE.W	#$303E,$DFF02C

MOVE.L	D0,A5
	JSR	A_FLIP

	BTST	#6,$BFE001
	BNE	MAIN
	BRA 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_DONK:	DC.W	7
A_TABB:	DC.L	A_TABL
A_TABL:
DC.B	'HEJSAN ALLA GLADA BARN!    ',$FF
EVEN



A_FLIP:	BTST	#14,$DFF002
	BNE.S	A_FLIP
	MOVE.L	#SCRN+20+40,$DFF050
	MOVE.L	#SCRN+20,$DFF054
	MOVE.L	#$09F00000,$DFF040
	MOVE.L	#$00260026,$DFF064
	MOVE.L	#$FFFFFFFF,$DFF044
	MOVE.W	#[290*$40]+1,$DFF058



	SUBQ.W	#1,A_DONK
	BMI	A_SCRL
	RTS
A_SCRL:	AND.W	#$0007,A_DONK

	MOVE.L	A_TABB,A0
	MOVE.B	(A0)+,D0
	CMP.B	#$FF,D0
	BEQ	A_REZT
	AND.L	#$3F,D0
	SUBQ.B	#1,D0
	MOVE.L	A0,A_TABB

;	ASL.W	#1,D0
	ADD.L	#FONTR,D0
	MOVE.L	D0,A0
	MOVE.L	#SCRN+20+[281*40],A1

	MOVEQ	#10,D7
A_LOP:	MOVE.B	(A0),(A1)
	ADD.W	#40,A0
	ADD.W	#40,A1
	DBF	D7,A_LOP
	RTS

A_REZT:	MOVE.L	#A_TABL,A_TABB
	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




	DC.L	$FFFFFFFE

