;APRES ASSEMBLAGE
;POUR CHARGER LES DATAS TAPEZ:
;
;RI		RETURN
;PIC_RAW	RETURN
;IMAGE		RETURN
;
;PUIS TAPEZ
;G BEGIN	RETURN RETURN
;
;SUPPRIMEZ LES LIGNES SUIVANTES SI VOTRE VERSION DU SEKA
;NE COMPORTE PAS LA COMMANDE Y

>EXTERN "PIC_RAW",IMAGE

ORG $30000	;EMPLACEMENT EN MEMOIRE
LOAD $30000	;DE NOTRE PROGRAMME

BEGIN:
JMP START
;=====================================================================
EXECBASE=4
OPENLIBRARY=-408
CLOSELIBRARY=-414
SUPERSTATE=-150
USERSTATE=-156	
FORBID=-132
PERMIT=-138
ADDINTSERVER=-168
REMINTSERVER=-174
Open=-30
Close=-36
Read=-42

;=====================================================================
BLTCON0=$DFF040		
BLTCON1=$DFF042
BLTAFWM=$DFF044
BLTALWM=$DFF046
BLTCPTH=$DFF048
BLTCPTL=$DFF04A
BLTBPTH=$DFF04C
BLTBPTL=$DFF04E
BLTAPTH=$DFF050
BLTAPTL=$DFF052
BLTDPTH=$DFF054
BLTDPTL=$DFF056
BLTSIZE=$DFF058
BLTCMOD=$DFF060
BLTBMOD=$DFF062
BLTAMOD=$DFF064
BLTDMOD=$DFF066
BLTCDAT=$DFF070
BLTBDAT=$DFF072
BLTADAT=$DFF074
DMACONR=$DFF002
clavier=$bfec01
;==================================
IMAGE=$6C000

FINDATA=IMAGE+[40*256*4]
;==================================
START:    
MOVEM.L D0-D7/A0-A6,-(A7)	;SAUVE REGISTRES
MOVE.L EXECBASE,A6		;CHARGE ADRESSE EXECBASE DANS A6
JSR FORBID(A6)    		;SAUTE SOUS PROGRAMME: INTERDIT MULTITACHE
JSR OPENLIB  			;SAUTE SOUS PROGRAMME: OUVERTURE LIBRAIRIES

BSR.L INIT_COP			;CALCUL DE LA COPPER LIST

BSR.L SETCOPPER			;SAUTE SOUS PROGRAMME: MET EN PLACE LISTE COPPER
BSR.s NEWIRQ3			;SAUTE SOUS PROGRAMME: MET EN PLACE ROUTINE D'INTERRRUPTION

WAIT:
CMP.B #$E0,$DFF006		;ATTENDANT 200 IEME LIGNE RASTER
BNE.S WAIT			;SINON RETOURNE A WAIT


BTST	#6,$BFE001		;ATTENDANT PRESSION SUR BOUTON GAUCHE SOURIS
BNE.S	WAIT			;SINON RETOURNE A WAIT
 				;SI OUI  FIN
END: 				;FIN:	
BSR.s STOPIRQ3        		;SAUTE SOUS PROGRAMME: STOPPE INTERRUPTION
BSR.L CLRCOPPER       		;SAUTE SOUS PROGRAMME: RESTAURE ANCIENNE LISTE COPPER
BSR.L CLOSELIB        		;SAUTE SOUS PROGRAMME: FERME LIBRAIRIES 
MOVE.L EXECBASE,A6		;CHARGE ADRESSE EXECBASE DANS A6
JSR PERMIT(A6)      		;AUTORISE MULTITACHE
                      
MOVEM.L (A7)+,D0-D7/A0-A6	;RESTAURE REGISTRES
RTS
;========================
NEWIRQ3:			;MET EN PLACE NOTRE ROUTINE 
MOVE.L	EXECBASE,A6		;D'INTERRUPTION
lea	irqstr,a1
move.l	#5,d0
jsr	addintserver(a6)
move.l	d0,irq
beq.s	irqerror
rts
irqerror:
rts
;==========================
STOPIRQ3:			;RESTAURE ANCIENNE ROUTINE
movem.l	a0-a6/d0-d7,-(sp)	;D'INTERRUPTION
	tst.l	irq
	beq.s	irqoff1
	move.l	execbase,a6
	lea	irqstr,a1
	move.l	#32,d0
	jsr	remintserver(a6)
irqoff1:movem.l	(sp)+,a0-a6/d0-d7
	rts
irqstr:
	dc.l	0,0
	dc.b	2,-127
	dc.l	0,irqdat,interrupt
irqdat:	dc.l	0,0,0,0
irq:	dc.l	0
;============================
interrupt:			;NOTRE ROUTINE D'INTERRUPTION	
movem.l	a0-a6/d0-d7,-(sp)


	BSR.L	PLASMA		;VA A LA ROUTINE DE PLASMA

	
movem.l	(sp)+,a0-a6/d0-d7
rts
;============================
OPENLIB:  			;OUVERTURE DE LA LIBRAIRIE GRAPHIQUE
move.l execbase,a6      	;MET ADRESSE EXECBASE DANS A6
lea gfxname,a1			;MET NOM DE LA LIBRAIRIE DANS A1
move.l #$0,d0           	;MET 0 DANS D0
jsr openlibrary(a6)		;OUVRE LIBRAIRIE
tst d0				;TESTE D0
beq.s error			;SI = A 0   VA A ERROR = SORTIE
move.l d0,gfxbase       	;SI NON, MET ADRESSE D0 DANS GFXBASE
add.l #$32,d0			;AJOUTE $32 A CETTE ADRESSE
move.l d0,coppertr      	;MET D0=ADRESSE ACTUELLE LISTE COPPER
rts				;DANS COPPERTR
even
gfxname: dc.b 'graphics.library',0 	;NOM DE LA LIBRAIRIE
even
gfxbase: dc.l 0				;POINTEUR POUR LA GRAPHICS LIBRARY
coppertr: dc.l 0			;POINTEUR POUR ADRESSE LISTE COPPER
;====================
CLOSELIB: 			;FERMETURE LIBRAIRIE
move.l execbase,a6      	;MET ADRESSE EXECBASE DANS A6
move.l gfxbase,a1		;MET NOM DE LA LIBRAIRIE DANS A1
jsr closelibrary(a6)		;FERME LIBRAIRIE
rts
;====================
ERROR:				;SI ERREUR
illegal				;SORTIE
rts
;====================
SETCOPPER:			;MET EN PLACE NOTRE LISTE COPPER
move.l coppertr,a0		;MET ADRESSE ACTUEL COPPER DANS A0
move.l (a0),oldcopper		;MET CONTENU DANS OLDCOPPER
move.l #newcopper,(a0)		;MET NOTRE LISTE COPPER DANS A0
move.w #$81c0,$dff096		;ACTIVE LISTE COPPER
rts		
oldcopper: dc.l 0
;====================
CLRCOPPER:			;RESTAURE ANCIENNE LISTE COPPER
move.l coppertr,a0		;MET ANCIENNE ADRESSE DANS A0
move.l oldcopper,(a0)		;MET CONTENU DANS A0
move.w #$80a0,$dff096		;REACTIVE ANCIENNE COPPER
rts
;====================

INIT_COP:

MOVE.L	#COP_LISTE,A1		; DEBUT DE LA COP DE COULEUR
MOVE.L	#$1801FFFE,D1		; VALEUR DU WAIT DANS D1
MOVE.L	#$1801FFFE,D5		; VALEUR DU WAIT DANS D1
MOVE.L	#$01860000,D2		; VALEUR DE LA COULEUR EN D2
MOVE.W	#49,D3			; NOMBRE DE COULEUR PAR LIGNE-1
MOVE.W	#309,D4			; NOMBRE DE LIGNE
MOVE.L	#SIN_HOR,A2		; POINTE A2 SUR TABLE SIUNS HORIZONTAUX

DEB_INIT:
MOVE.L	D5,(A1)+		; WAIT
INIT_COUL:
MOVE.L	D2,(A1)+		; ON PLACE 50 COULEUR
DBF	D3,INIT_COUL
MOVE.W	#49,D3
ADD.L	#$01000000,D1		; LIGNE SUIVANTE

MOVE.L	(A2)+,D5
BTST	#0,D5
BEQ	OKETTE
ADD.L	#1,D5
OKETTE:
SWAP	D5
ADD.L	D1,D5

DBF	D4,DEB_INIT

MOVE.L	#DATA_COUL,A1
MOVE.L	#COUL,A2
MOVE.W	#9,D1
MOVE.W	#49,D2
MOVE.W	#175,D3

DEB_COUL:
MOVE.W	(A2),(A1)+
DBF	D2,DEB_COUL
ADD.L	#2,A2
MOVE.W	#49,D2
DBF	D3,DEB_COUL
MOVE.W	#175,D3
MOVE.L	#COUL,A2
DBF	D1,DEB_COUL
RTS

;============================
OP:	DC.W 0
SIN_HOR:
	DC.L	$00000019,$0000001A,$0000001C,$0000001D
	DC.L	$0000001F,$00000020,$00000021,$00000023
	DC.L	$00000024,$00000026,$00000027,$00000028
	DC.L	$00000029,$0000002A,$0000002B,$0000002C
	DC.L	$0000002D,$0000002E,$0000002F,$0000002F
	DC.L	$00000030,$00000030,$00000031,$00000031
	DC.L	$00000031,$00000031,$00000031,$00000031
	DC.L	$00000031,$00000031,$00000031,$00000030
	DC.L	$00000030,$0000002F,$0000002E,$0000002E
	DC.L	$0000002D,$0000002C,$0000002B,$0000002A
	DC.L	$00000029,$00000027,$00000026,$00000025
	DC.L	$00000024,$00000022,$00000021,$0000001F
	DC.L	$0000001E,$0000001C,$0000001B,$00000019
	DC.L	$00000019,$00000017,$00000016,$00000014
	DC.L	$00000013,$00000011,$00000010,$0000000E
	DC.L	$0000000D,$0000000C,$0000000B,$00000009
	DC.L	$00000008,$00000007,$00000006,$00000005
	DC.L	$00000004,$00000004,$00000003,$00000002
	DC.L	$00000002,$00000001,$00000001,$00000001
	DC.L	$00000001,$00000001,$00000001,$00000001
	DC.L	$00000001,$00000001,$00000002,$00000002
	DC.L	$00000003,$00000003,$00000004,$00000005
	DC.L	$00000006,$00000007,$00000008,$00000009
	DC.L	$0000000A,$0000000B,$0000000C,$0000000E
	DC.L	$0000000F,$00000011,$00000012,$00000013
	DC.L	$00000015,$00000016,$00000018,$00000019
	DC.L	$0000001A,$0000001C,$0000001D,$0000001F
	DC.L	$00000020,$00000021,$00000023,$00000024
	DC.L	$00000026,$00000027,$00000028,$00000029
	DC.L	$0000002A,$0000002B,$0000002C,$0000002D
	DC.L	$0000002E,$0000002F,$0000002F,$00000030
	DC.L	$00000030,$00000031,$00000031,$00000031
	DC.L	$00000031,$00000031,$00000031,$00000031
	DC.L	$00000031,$00000031,$00000030,$00000030
	DC.L	$0000002F,$0000002E,$0000002E,$0000002D
	DC.L	$0000002C,$0000002B,$0000002A,$00000029
	DC.L	$00000027,$00000026,$00000025,$00000024
	DC.L	$00000022,$00000021,$0000001F,$0000001E
	DC.L	$0000001C,$0000001B,$00000019,$00000019
	DC.L	$00000017,$00000016,$00000014,$00000013
	DC.L	$00000011,$00000010,$0000000E,$0000000D
	DC.L	$0000000C,$0000000B,$00000009,$00000008
	DC.L	$00000007,$00000006,$00000005,$00000004
	DC.L	$00000004,$00000003,$00000002,$00000002
	DC.L	$00000001,$00000001,$00000001,$00000001
	DC.L	$00000001,$00000001,$00000001,$00000001
	DC.L	$00000001,$00000002,$00000002,$00000003
	DC.L	$00000003,$00000004,$00000005,$00000006
	DC.L	$00000007,$00000008,$00000009,$0000000A
	DC.L	$0000000B,$0000000C,$0000000E,$0000000F
	DC.L	$00000011,$00000012,$00000013,$00000015
	DC.L	$00000016,$00000018,$00000019,$0000001A
	DC.L	$0000001C,$0000001D,$0000001F,$00000020
	DC.L	$00000021,$00000023,$00000024,$00000026
	DC.L	$00000027,$00000028,$00000029,$0000002A
	DC.L	$0000002B,$0000002C,$0000002D,$0000002E
	DC.L	$0000002F,$0000002F,$00000030,$00000030
	DC.L	$00000031,$00000031,$00000031,$00000031
	DC.L	$00000031,$00000031,$00000031,$00000031
	DC.L	$00000031,$00000030,$00000030,$0000002F
	DC.L	$0000002E,$0000002E,$0000002D,$0000002C
	DC.L	$0000002B,$0000002A,$00000029,$00000027
	DC.L	$00000026,$00000025,$00000024,$00000022
	DC.L	$00000021,$0000001F,$0000001E,$0000001C
	DC.L	$0000001B,$00000019,$00000019,$00000017
	DC.L	$00000016,$00000014,$00000013,$00000011
	DC.L	$00000010,$0000000E,$0000000D,$0000000C
	DC.L	$0000000B,$00000009,$00000008,$00000007
	DC.L	$00000006,$00000005,$00000004,$00000004
	DC.L	$00000003,$00000002,$00000002,$00000001
	DC.L	$00000001,$00000001,$00000001,$00000001
	DC.L	$00000001,$00000001,$00000001,$00000001
	DC.L	$00000002,$00000002,$00000003,$00000003
	DC.L	$00000004,$00000005,$00000006,$00000007
	DC.L	$00000008,$00000009,$0000000A,$0000000B
	DC.L	$0000000C,$0000000E,$0000000F,$00000011
	DC.L	$00000012,$00000013,$00000015,$00000016
	DC.L	$00000018,$00000019
;============================

PLASMA:
MOVE.L	#COP_LISTE+6,A1		; ADRESSE D'ARRIVEE
MOVE.L	PT_SINUS,A2		; POINTEUR SUR LA TABLE SINUS
MOVE.L	#DATA_COUL,A3		; POINTEUR SUR L'ADRESSE DE DEPART

ADD.L	PT_COUL,A3
ADD.L	#50*2*2,PT_COUL
CMP.L	#2*880*50,PT_COUL
BNE	PAS_DE_PROB
MOVE.W	#$FFFF,ESSAI
MOVE.L	#0,PT_COUL
PAS_DE_PROB:

MOVE.W	#49,D1			; NOMBRE D'OPERATION BLITTER

MOVE.W	#98,$DFF064		; MODULO A [50-1]*2 = 98
MOVE.W	#202,$DFF066		; MODULO D [102-1]*2 = 202
MOVE.W	#$09F0,$DFF040		; D = A
MOVE.W	#$0,$DFF042
MOVE.W	#$FFFF,$DFF044
MOVE.W	#$FFFF,$DFF046


BLIT:
MOVE.L	A3,A4
MOVE.W	(A2),D2
DIVU	DIVISE,D2
MULU	#50,D2
ADD.L	D2,A4

ATTENTE:
BTST	#14,$DFF002
BNE 	ATTENTE

MOVE.L	A1,$DFF054		; ARRIVEE
MOVE.L	A4,$DFF050		; DEPART

MOVE.W	#$4D81,$DFF058		; 100 LIGNES DE 1 MOT

ADDQ.L	#2,A3			; COULEUR SUIV
ADDQ.L	#4,A1			; COULEUR SUIV	
ADDQ.L	#2,A2			; SINUS SUIV

DBF	D1,BLIT


ADD.L	#2,PT_SINUS
CMP.L	#SIN_FIN,PT_SINUS
BNE	OK
MOVE.L	#DATA_SIN,PT_SINUS
OK:
RTS

;============================

PT_SINUS:	DC.L DATA_SIN
PT_COUL:	DC.L 0
ESSAI:		DC.W 0
DIVISE:		DC.W 8
PT_DIV:		DC.W 1
;====================
			;NOTRE LISTE COPPER
NEWCOPPER:   
	DC.W	$008E,$2881	;DIMENSIONS DE L'ECRAN
	DC.W	$0090,$28C1	;256 LIGNES + 35 LIGNES = 291 LIGNES

	DC.W	$0092,$0038,$0094,$00D0
	
	DC.W	$0100,$4200

	DC.W $E0,IMAGE+[40*256*0]/65536
	DC.W $E2,IMAGE+[40*256*0]&65535
	DC.W $E4,IMAGE+[40*256*1]/65536
	DC.W $E6,IMAGE+[40*256*1]&65535
	DC.W $E8,IMAGE+[40*256*2]/65536
	DC.W $EA,IMAGE+[40*256*2]&65535
	DC.W $EC,IMAGE+[40*256*3]/65536
	DC.W $EE,IMAGE+[40*256*3]&65535


	DC.W	$0102,$0000

	;PRIORITE DES PLANS ET SPRITES - INUTILISE ICI

	DC.W 	$0104,$0000

	;MODULOS DES PLANS

	DC.W	$0108,0		;MODULOS PLANS PAIRS
	DC.W 	$010A,0		;MODULOS PLANS IMPAIRS

	;COULEURS DE NOTRE IMAGE

	DC.W	$0180,$0000
	DC.W	$0182,$07AB
	DC.W	$0184,$0ACD
	DC.W	$0186,$0FFF
	DC.W	$0188,$0689
	DC.W	$018A,$0467
	DC.W	$018C,$0245
	DC.W	$018E,$0134
	DC.W	$0190,$0006
	DC.W	$0192,$0005
	DC.W	$0194,$0004
	DC.W	$0196,$0003
	DC.W	$0198,$0FFF
	DC.W	$019A,$00CC
	DC.W	$019C,$006F
	DC.W	$019E,$000A

	;POINTEURS DES SPRITES - MIS A 0 SI PAS DE SPRITES

	DC.W	$0120,$0000,$0122,$0000

COP_LISTE:
	BLK.L	[1+50]*310
FIN_LISTE:
DC.W	$0180,$0000	

DC.L $FFFFFFFE ;FIN LISTE COPPER
EVEN

COUL:
 dc.w $0F01,$0F01,$0F02,$0F02,$0F03,$0F03,$0F04,$0F04,$0F05
 dc.w $0F05,$0F06,$0F06,$0F07,$0F07,$0F08,$0F08,$0F09,$0F09,$0F0A
 dc.w $0F0A,$0F0B,$0F0B,$0F0C,$0F0C,$0F0D,$0F0D,$0F0E,$0F0E,$0F0F
 dc.w $0F0F,$0E0F,$0E0F,$0D0F,$0D0F,$0C0F,$0C0F,$0B0F,$0B0F,$0A0F
 dc.w $0A0F,$090F,$090F,$080F,$080F,$070F,$070F,$060F,$060F,$050F
 dc.w $050F,$040F,$040F,$030F,$030F,$020F,$020F,$010F,$010F,$000F
 dc.w $000F,$001F,$001F,$002F,$002F,$003F,$003F,$004F,$004F,$005F
 dc.w $005F,$006F,$006F,$007F,$007F,$008F,$008F,$009F,$009F,$00AF
 dc.w $00AF,$00BF,$00BF,$00CF,$00CF,$00DF,$00DF,$00EF,$00EF,$00FF
 dc.w $00FF,$00FE,$00FE,$00FD,$00FD,$00FC,$00FC,$00FB,$00FB,$00FA
 dc.w $00FA,$00F9,$00F9,$00F8,$00F8,$00F7,$00F7,$00F6,$00F6,$00F5
 dc.w $00F5,$00F4,$00F4,$00F3,$00F3,$00F2,$00F2,$00F1,$00F1,$00F0
 dc.w $00F0,$01F0,$01F0,$02F0,$02F0,$03F0,$03F0,$04F0,$04F0,$05F0
 dc.w $05F0,$06F0,$06F0,$07F0,$07F0,$08F0,$08F0,$09F0,$09F0,$0AF0
 dc.w $0AF0,$0BF0,$0BF0,$0CF0,$0CF0,$0DF0,$0DF0,$0EF0,$0EF0,$0FF0
 dc.w $0FF0,$0FE0,$0FE0,$0FD0,$0FD0,$0FC0,$0FC0,$0FB0,$0FB0,$0FA0
 dc.w $0FA0,$0F90,$0F90,$0F80,$0F80,$0F70,$0F70,$0F60,$0F60,$0F50
 dc.w $0F50,$0F40,$0F40,$0F30,$0F30,$0F20,$0F20,$0F10,$0F10

DATA_COUL:
	BLK.W	50*1760,0

DATA_SIN:
	DC.W	$0200,$022C,$0259,$0284,$02AF,$02D8,$0300,$0326
	DC.W	$0349,$036A,$0389,$03A4,$03BC,$03D0,$03E1,$03EF
	DC.W	$03F8,$03FE,$03FF,$03FD,$03F7,$03ED,$03E0,$03CE
	DC.W	$03B9,$03A1,$0386,$0367,$0346,$0322,$02FC,$02D4
	DC.W	$02AB,$0280,$0254,$0228,$01FC,$01CF,$01A3,$0177
	DC.W	$014D,$0124,$00FC,$00D6,$00B3,$0093,$0075,$005A
	DC.W	$0042,$002E,$001D,$0010,$0007,$0002,$0001,$0003
	DC.W	$000A,$0014,$0022,$0034,$0049,$0061,$007D,$009C
	DC.W	$00BE,$00E1,$0108,$0130,$0159,$0184,$01B0,$01DD
	DC.W	$0208,$0235,$0261,$028D,$02B7,$02E1,$0308,$032D
	DC.W	$0350,$0371,$038E,$03A9,$03C0,$03D4,$03E4,$03F1
	DC.W	$03FA,$03FE,$03FF,$03FC,$03F6,$03EB,$03DC,$03CA
	DC.W	$03B5,$039C,$0380,$0361,$033F,$031B,$02F4,$02CC
	DC.W	$02A2,$0277,$024B,$021F,$01F3,$01C6,$019A,$016F
	DC.W	$0144,$011B,$00F4,$00CF,$00AC,$008C,$006F,$0055
	DC.W	$003E,$002A,$001A,$000E,$0006,$0001,$0001,$0004
	DC.W	$000B,$0016,$0025,$0038,$004E,$0067,$0083,$00A3
	DC.W	$00C5,$00E9,$0110,$0138,$0162,$018D,$01B9,$01E6
	DC.W	$0211,$023E,$026A,$0296,$02C0,$02E9,$030F,$0334
	DC.W	$0357,$0377,$0394,$03AE,$03C4,$03D7,$03E7,$03F3
	DC.W	$03FB,$03FF,$03FF,$03FB,$03F4,$03E8,$03D9,$03C6
	DC.W	$03B0,$0396,$037A,$035A,$0338,$0313,$02ED,$02C4
	DC.W	$029A,$026F,$0243,$0216,$01EA,$01BE,$0191,$0166
	DC.W	$013C,$0113,$00ED,$00C8,$00A6,$0086,$006A,$0050
	DC.W	$003A,$0027,$0018,$000C,$0005,$0001,$0001,$0005
	DC.W	$000D,$0019,$0029,$003C,$0052,$006C,$0089,$00A9
	DC.W	$00CC,$00F0,$0117,$0140,$016A,$0196,$01C2,$01EF
SIN_FIN:
	DC.W	$021A,$0247,$0273,$029E,$02C8,$02F0,$0317,$033B
	DC.W	$035D,$037D,$0399,$03B2,$03C8,$03DB,$03EA,$03F5
	DC.W	$03FC,$03FF,$03FF,$03FA,$03F2,$03E6,$03D6,$03C2
	DC.W	$03AB,$0391,$0374,$0354,$0331,$030C,$02E5,$02BC
	DC.W	$0291,$0266,$023A,$020D,$01E1,$01B5,$0189,$015E
	DC.W	$0134,$010C,$00E5,$00C1,$009F,$0080,$0064,$004B
	DC.W	$0036,$0024,$0015,$000A,$0004,$0001,$0002,$0006
	DC.W	$000F,$001C,$002C,$0040,$0057,$0072,$008F,$00B0
	DC.W	$00D3,$00F8,$011F,$0148,$0173,$019F,$01CB,$01F8
	DC.W	$0223,$0250,$027C,$02A7,$02D0,$02F8,$031E,$0342
	DC.W	$0364,$0383,$039E,$03B7,$03CC,$03DE,$03EC,$03F6
	DC.W	$03FD,$03FF,$03FE,$03F9,$03F0,$03E3,$03D2,$03BE
	DC.W	$03A6,$038B,$036E,$034D,$032A,$0304,$02DD,$02B3
	DC.W	$0289,$025D,$0231,$0204,$01D8,$01AC,$0180,$0155
	DC.W	$012C,$0104,$00DE,$00BA,$0099,$007A,$005F,$0047
	DC.W	$0032,$0020,$0013,$0009,$0003,$0001,$0002,$0008
	DC.W	$0011,$001F,$0030,$0044,$005C,$0077,$0096,$00B7
	DC.W	$00DA,$0100,$0128,$0151,$017C,$01A7,$01D4
FINDEMO: