OPT C-,D+
	MOVE.L $80,RETVAL
	MOVE.L #MAIN,$80
	TRAP #0
MAIN	MOVE #$2700,SR
	CLR.L $3F0

	MOVE.W #$2C81,$DFF08E
	MOVE.W #$26C1,$DFF090
	MOVE.W #$0081/2-8,$DFF092
	MOVE.W #$0081/2-8+(8*19),$DFF094
	MOVE.W #0,$DFF108
	MOVE.W #0,$DFF102
	MOVE.L #0,$21000
	
	LEA.L COPPER,A0
	MOVE.L A0,$DFF080
	MOVE.W $DFF088,D0
	MOVE.W #$8280,$DFF096

SCROLL 	MOVE.W $DFF01E,D0
	AND.W #$0020,D0
	BEQ SCROLL
	MOVE.W #$0020,$DFF09C
	
	LEA BEGIN,A0
	CLR.L D0
	MOVE.B #28,D0
	MOVE.W 6(A0),(STORE1)
LOOP1	ADD.L #8,A0
	MOVE.W 6(A0),-2(A0)
	DBF D0,LOOP1
	MOVE.W (STORE1),6(A0)
WAIT	BTST #$6,$BFE001
	BNE SCROLL
	MOVE.W #$0080,$DFF096
	MOVE.L #$22F8,$DFF080
	MOVE.W #$8180,$DFF096
	CLR.W $DFF088
	MOVE #$0000,SR
	MOVE.L RETVAL,$80
	CLR.L D0
	RTS
RETVAL	DC.W 0
STORE1	DC.W 0
COPPER
	DC.W $0180,$0000
BEGIN	DC.W $3201,$FF00,$0180,$010F
	DC.W $3401,$FF00,$0180,$012F
	DC.W $3501,$FF00,$0180,$013F
	DC.W $3601,$FF00,$0180,$014F
	DC.W $3701,$FF00,$0180,$015F
	DC.W $3801,$FF00,$0180,$016F
	DC.W $3901,$FF00,$0180,$017F
	DC.W $3A01,$FF00,$0180,$018F
	DC.W $3B01,$FF00,$0180,$019F
	DC.W $3C01,$FF00,$0180,$01AF
	DC.W $3D01,$FF00,$0180,$01BF
	DC.W $3E01,$FF00,$0180,$01CF
	DC.W $3F01,$FF00,$0180,$01DF
	DC.W $4001,$FF00,$0180,$01EF
	DC.W $4101,$FF00,$0180,$01EF
	DC.W $4201,$FF00,$0180,$01DF
	DC.W $4301,$FF00,$0180,$01CF
	DC.W $4401,$FF00,$0180,$01BF
	DC.W $4401,$FF00,$0180,$01BF
	DC.W $4501,$FF00,$0180,$01AF
	DC.W $4601,$FF00,$0180,$019F
	DC.W $4701,$FF00,$0180,$018F
	DC.W $4801,$FF00,$0180,$017F
	DC.W $4901,$FF00,$0180,$016F
	DC.W $4A01,$FF00,$0180,$015F
	DC.W $4B01,$FF00,$0180,$014F
	DC.W $4C01,$FF00,$0180,$013F
	DC.W $4D01,$FF00,$0180,$012F
	DC.W $4E01,$FF00,$0180,$011F
	DC.W $0180,$0000

	DC.W $00E0,$0000
	DC.W $00E2,$D3B8,$0180,$0000,$0100,$0200
	DC.W $0120,$0002,$0122,$1000,$0124,$0002,$0126,$1000
	DC.W $0128,$0002,$012A,$1000,$012C,$0002,$012E,$1000
	DC.W $0130,$0002,$0132,$1000,$0134,$0002,$0136,$1000
	DC.W $0138,$0002,$013A,$1000,$013C,$0002,$013E,$1000
	DC.W $FFFF,$FFFE