;##################################################################################################
;#	
;# Author: BLA573®
;# Date: 2004.09.14
;# Version: 1.6
;# Desc.: LCD ekraniukas 160x64 dpi, bipolar'inio žingsninio variklio valdymas,
;# 	6 kanalų garso reguliavimas per ADC.
;#
;# PORTA:
;#  ADC įėjimas:
;# 0 - ADC			;Analoginis įėjimas garso padėties skaičiavimui
;#  Stepperio draiverio sąsaja:
;# 1 - I1				;L6219 I1	- Pirmos apvijos srovė (%)
;# 2 - Ph1			;L6219 Phase1 - Pirmos apvijos fazė
;# 3 - Ph2			;L6219 Phase2 - Antros apvijos fazė
;# 4 - I1				;L6219 I2 - Antros apvijos srovė (%)
;#  6 kanalų garso reguliavimo sąsaja:
;# 5 - Vol_SDI			;AD5206 SDI - Kanalų ir jų lygių informacja
;# 6 - Vol_CLK			;AD5206 CLK - Informacijos bitų skaitiklis
;# 7 - Vol_CS			;AD5206 CS - "Chip Select" informacijos siuntimas
;#
;# PORTB:
;#  Laikinas žingsninio variklio valdymas:
;# 0 - Vol_down			;Paspaudus mygtuką gaunamas loginis 0
;# 1 - Vol_mute			;Paspaudus mygtuką gaunamas loginis 0
;# 2 - Vol_up			;Paspaudus mygtuką gaunamas loginis 0
;#
;# PORTC:
;#  LCD sąsaja:
;# 0 - DATAclk			;LCD DATA Clock
;# 1 - Refresh			;LCD Refresh
;# 2 - LINEclk			;LCD Line Clock
;# 3 - Display			;LCD Display Enable
;# 4 - DATA_4			;LCD DATA_4
;# 5 - DATA_3			;LCD DATA_3
;# 6 - DATA_2			;LCD DATA_2
;# 7 - DATA_1			;LCD DATA_1
;#
;##################################################################################################
;Nurodomas procesorius, nustatomos konstantos ir kintamieji
.nolist
.include	"m32def.inc"
.list

.EQU	DATAclk	=0
.EQU	Refresh	=1
.EQU	LINEclk	=2
.EQU	Display	=3
.EQU	DATA_1	=7
.EQU	DATA_2	=6
.EQU	DATA_3	=5
.EQU	DATA_4	=4

.EQU	Vol	=PortA
.EQU	LCD	=PortC
.EQU	SDI	=5
.EQU	CLK	=6
.EQU	CS	=7

;Darbiniams registrams priskiriami pavadinimai
.DEF	Temp1	=r16
.DEF	StepData	=r17
.DEF	Step	=r18
.DEF	Chan	=r19
.DEF	Chans	=r20
;.DEF	LineByte	=r22
.DEF	Line	=r23
.DEF	LCDport	=r24
.DEF	Temp2	=r25
.DEF	Setings	=r26

;##################################################################################################
;Paruošiami portai
.CSEG
.ORG	$0000			;Pradžios adresas
	rjmp	Start
Start:	LDI	Temp1,LOW(RAMEND)	;Set stack pointer low byte
	OUT	SPL,Temp1
	LDI	Temp1,HIGH(RAMEND)	;Set stack pointer high byte
	OUT	SPH,Temp1

	LDI	Temp1,0b11111110	;Pirmas bitas įėjimas
	OUT	DdrA,Temp1	;Nustatomos PortA kryptys - pirmas bitas įėjimas, likę - išėjimai

	LDI	Temp1,0b11111000	;Pirmi trys bitai įėjimai
	OUT	DdrB,Temp1	;Nustatomos PortB kryptys - pirmi trys bitai įėjimai, likę - išėjimai

	LDI	Temp1,0b11111111	;Visi bitai išėjimai
	OUT	DdrC,Temp1	;Nustatomos PortC kryptys - visi bitai išėjimai
	OUT	DdrD,Temp1	;Nustatomos PortD kryptys - visi bitai išėjimai

	RCALL	PHoff

	LDI	Temp1,0b01100000
	OUT	Admux,Temp1	;REFS1	REFS0	ADLAR	MUX4	MUX3	MUX2	MUX1	MUX0

	LDI	Temp1,0b11000111
	OUT	Adcsr,Temp1	;ADEN	ADSC	ADATE	ADIF	ADIE	ADPS2	ADPS1	ADPS0

	LDI	Temp1,0b10000000
	OUT	Acsr,Temp1	;ACD	ACBG	ACO	ACI	ACIE	ACIC	ACIS1	ACIS0

	LDI	Temp1,0b00000000  
	OUT	Sfior,Temp1	;ADTS2  	ADTS1  	ADTS0  	----	ACME  	PUD	PSR2	PSR10

	SBI	Vol,CS		;Išjungiamas AD5206 kodo kodavimas
	
	SBI	LCD,DATAclk	;2 Išjungiamas LCD DATAclk
	LDI	Setings,0b00000010	;1 Ištrinamas LCD Setings registas
	CLR	Line		;1 Nurodoma pirma LCD eilutė
	CLR	Temp1		;1
	
;##################################################################################################
;Programos pradžia
Program:	RCALL	LCDcode		;2 Siunčiamas LCD kodas
	RCALL	AD5206		;2 Siunčiamas garso kodas
	RCALL	AD5206		;2 Siunčiamas garso kodas
	RCALL	AD5206		;2 Siunčiamas garso kodas
	RJMP	Program		;2 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;Main
CWif:	SBIS	PinB,2
	RCALL	CW
	RCALL	AD5206		;x32
	SBIS	PinB,2
	RJMP	CWif
	RCALL	PHoff

CCWif:	SBIS	PinB,0
	RCALL	CCW
	RCALL	AD5206		;x32
	SBIS	PinB,0
	RJMP	CCWif
	RCALL	PHoff

	RJMP	CWif

;##################################################################################################
;LCD DATA siuntimas
LCDcode:	CLR	LCDport		;1 Išvalomas LCD porto registras
	CPI	Line,64		;1 Tikrinama ar peržengta eilučių riba
	BRNE	Line0		;1/2
	LDI	Temp2,0b0010	;1 Refresh adresas
	EOR	Setings,Temp2	;1 Invertuojamas Refresh bitas
	LDI	Line,0		;1 Eilutė=0

Line0:	CPI	Line,0		;1 Patikrinama ar eilutė pirma
	BRNE	Line1		;1/2 Jei ne pirma, nesiunčiami pirmos eilutės atpažinimo kodai

	LDI	ZH,HIGH(Picture*2)	;1 Viršutinis duomenų lentelės adresas nukopijuojamas į viršutinį Z registrą
	LDI	ZL,LOW(Picture*2)	;1 Apatinis duomenų lentelės adresas nukopijuojamas į apatinį Z registrą

Line1:	CPI	Line,1		;1 Patikrinama ar eilutė pirma
	BRNE	LCDlines		;1/2 Jei ne pirma, nesiunčiami pirmos eilutės atpažinimo kodai

	SBR	Setings,0b1000	;1 Įjungiamas Display

LCDlines:	SBR	LCDport,0b0100	;1 Įjungiamas LineClk
	OUT	LCD,LCDport	;1 Siunčiamas startinis bitas

	LDI	Temp2,20		;1 Nurodomas horizontalių baitų skaičius kartojimui

LCDsend:	LPM	LCDport,Z		;3 Tentelės baitas nukopijuojamas

	CBR	LCDport,0b0101	;1 Išjungiami LINEclk ir DATAclk
	BST	Setings,Refresh	;1
	BLD	LCDport,Refresh	;1 Nustatomas Refresh
	BST	Setings,Display	;1
	BLD	LCDport,Display	;1 Nustatomas Display
	OUT	LCD,LCDport	;1 Siunčiamas kodas į LCD
	LPM	LCDport,Z		;3 Lentelės baitas nukopijuojamas
	SWAP	LCDport		;1 Bitai sukeičiami vietomis
	CBR	LCDport,0b0101	;1 Išjungiami LINEclk ir DATAclk	
	SBI	LCD,DATAclk	;2 Įjungiamas bito nuskaitymas (DATAclk)

	ADIW	ZL,1		;2 Prie Picture lentelės adreso pridedamas vienetas

	BST	Setings,Refresh	;1
	BLD	LCDport,Refresh	;1 Nustatomas Refresh
	BST	Setings,Display	;1
	BLD	LCDport,Display	;1 Nustatomas Display
	OUT	LCD,LCDport	;1 Siunčiamas kodas į LCD

	SBI	LCD,DATAclk	;2 Įjungiamas bito nuskaitymas (DATAclk)

	DEC	Temp2		;1 Įjungiamas sekantis horizontalios eilutės baitas
	BRNE	LCDsend		;2/1 Siunčiamas sekantis baitas jei nebaigtas eilutės siuntimas

	INC	Line		;1 Padidinamas eilutės numeris
	CBR	Setings,0b1000	;1 Išjungiamas Display

	RET			;4
	
;##################################################################################################
;Reguliuojamas garsas
AD5206:	LDI	Chan,5		;1
	LDI	Chans,6		;1
	BRBC	ADSC,ADCget	;1/2
	RJMP	ADCwait		;2

ADCget:	IN	Temp1,ADCH	;1
	OUT	PortD,Temp1	;1
	SBI	ADCSR,ADSC	;2
	RJMP	ADCback		;2

ADCwait:	NOP			;1
	NOP			;1
	NOP			;1
	NOP			;1
	NOP			;1

ADCback:	CBI	Vol,CLK		;2 AD5206 Clock=O
;	CLR	Temp		
;Siunčiamas kanalo kodas
	SBRC	Chan,0		;1/2
	SBI	Vol,SDI		;2
	SBRS	Chan,0		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CS		;2 Įjungiamas AD5206 Kodavimas
	SBI	Vol,CLK		;2 AD5206 Clock=I

	SBRC	Chan,0		;1/2
	SBI	Vol,SDI		;2
	SBRS	Chan,0		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CLK		;2 AD5206 Clock=O
	NOP			;1
	SBI	Vol,CLK		;2 AD5206 Clock=1
	
	SBRC	Chan,0		;1/2
	SBI	Vol,SDI		;2
	SBRS	Chan,0		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CLK		;2 AD5206 Clock=O
	NOP			;1
	SBI	Vol,CLK		;2 AD5206 Clock=1

;Siunčiamas garso lygio kodas
	SBRC	Temp1,7		;1/2
	SBI	Vol,SDI		;2
	SBRS	Temp1,7		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CLK		;2 AD5206 Clock=O
	NOP			;1
	SBI	Vol,CLK		;2 AD5206 Clock=1

	SBRC	Temp1,6		;1/2
	SBI	Vol,SDI		;2
	SBRS	Temp1,6		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CLK		;2 AD5206 Clock=O
	NOP			;1
	SBI	Vol,CLK		;2 AD5206 Clock=1
	
	SBRC	Temp1,5		;1/2
	SBI	Vol,SDI		;2
	SBRS	Temp1,5		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CLK		;2 AD5206 Clock=O
	NOP			;1
	SBI	Vol,CLK		;2 AD5206 Clock=1
	
	SBRC	Temp1,4		;1/2
	SBI	Vol,SDI		;2
	SBRS	Temp1,4		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CLK		;2 AD5206 Clock=O
	NOP			;1
	SBI	Vol,CLK		;2 AD5206 Clock=1
	
	SBRC	Temp1,3		;1/2
	SBI	Vol,SDI		;2
	SBRS	Temp1,3		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CLK		;2 AD5206 Clock=O
	NOP			;1
	SBI	Vol,CLK		;2 AD5206 Clock=1
	
	SBRC	Temp1,2		;1/2
	SBI	Vol,SDI		;2
	SBRS	Temp1,2		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CLK		;AD5206 Clock=O
	NOP			;1
	SBI	Vol,CLK		;2 AD5206 Clock=1
	
	SBRC	Temp1,1		;1/2
	SBI	Vol,SDI		;2
	SBRS	Temp1,1		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CLK		;2 AD5206 Clock=O
	NOP			;1
	SBI	Vol,CLK		;2 AD5206 Clock=1
	
	SBRC	Temp1,0		;1/2
	SBI	Vol,SDI		;2
	SBRS	Temp1,0		;2/1
	CBI	Vol,SDI		;2
	CBI	Vol,CLK		;2 AD5206 Clock=O
	NOP			;1
	SBI	Vol,CLK		;2 AD5206 Clock=1

;Baigiamas kodo siuntimas
	NOP			;1
	NOP			;1

	CBI	Vol,SDI		;2 Siunčiamas O kodas
	CBI	Vol,CLK		;2 AD5206 Clock=1
	SBI	Vol,CS		;2 Išjungiamas AD5206 kodavimas

	DEC	Chan		;1 Perjungiamas kitas kanalas
	NOP			;1
	NOP			;1
	DEC	Chans		;1
	
	BREQ	Sub1		;1/2
	RJMP	ADCback		;2
Sub1:	RET			;4


CW:	INC	Step
	MOV	Temp1,Step
	SUBI	Temp1,9
	BREQ	Step1CW
	RJMP	StepCW
Step1CW:	LDI	Step,1
StepCW:	LDI	ZH,HIGH(Steps*2)	;Viršutinis duomenų lentelės adresas nukopijuojamas į viršutinį Z registrą
	LDI	ZL,LOW(Steps*2)	;Apatinis duomenų lentelės adresas nukopijuojamas į apatinį Z registrą
	ADD	ZL,Step
	SUBI	ZL,1
	LPM	StepData,Z
	OUT	Vol,StepData
	RET

CCW:	DEC	Step
	NOP
	NOP
	BREQ	Step1CCW
	RJMP	StepCCW
Step1CCW:	LDI	Step,8
StepCCW:	LDI	ZH,HIGH(Steps*2)	;Viršutinis duomenų lentelės adresas nukopijuojamas į viršutinį Z registrą
	LDI	ZL,LOW(Steps*2)	;Apatinis duomenų lentelės adresas nukopijuojamas į apatinį Z registrą
	ADD	ZL,Step
	SUBI	ZL,1
	LPM	StepData,Z
	OUT	Vol,StepData
	RET

;##################################################################################################
;Išjungiamos variklio fazės
PHoff:	LDI	Temp1,0b10010010	; Siunčiamas variklio fazių išjungimo signalas
	OUT	PORTA,Temp1
	RET

;##################################################################################################
;Žingsnių kodas
Steps:	.DB	$0A,$0C,$1C,$04,$06,$00,$10,$08

;##################################################################################################
;Vaizdo kodas
.ORG	$3D70
Picture:	.DB	$00,$7f,$fc,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0f,$e0,$00
	.DB	$00,$7f,$ff,$c0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3f,$f8,$00
	.DB	$00,$7f,$ff,$e0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$78,$3c,$00
	.DB	$00,$7f,$ff,$f8,$00,$00,$00,$00,$00,$03,$00,$00,$00,$00,$00,$00,$00,$e0,$0e,$00
	.DB	$00,$1f,$cf,$f8,$00,$00,$00,$00,$00,$03,$00,$00,$00,$00,$00,$00,$01,$c0,$07,$00
	.DB	$00,$1f,$c3,$fc,$00,$00,$00,$00,$00,$07,$ff,$c0,$00,$00,$00,$00,$01,$8f,$c3,$00
	.DB	$00,$1f,$c1,$fe,$00,$00,$00,$00,$00,$07,$ff,$c0,$00,$00,$00,$00,$03,$8f,$e3,$80
	.DB	$00,$1f,$c1,$fe,$00,$00,$00,$00,$00,$07,$ff,$e0,$00,$00,$00,$00,$03,$0c,$61,$80
	.DB	$00,$1f,$c0,$ff,$00,$00,$00,$00,$00,$07,$ff,$e0,$00,$00,$00,$00,$03,$0c,$61,$80
	.DB	$00,$1f,$c0,$ff,$00,$3f,$00,$ff,$df,$87,$ff,$c0,$07,$e0,$01,$03,$e3,$0f,$c1,$80
	.DB	$00,$1f,$c0,$ff,$00,$7f,$80,$ff,$df,$8f,$ff,$c0,$0f,$f0,$03,$c7,$e3,$0f,$81,$80
	.DB	$00,$1f,$c0,$7f,$80,$ff,$c0,$ff,$df,$8f,$03,$80,$1f,$f8,$07,$c7,$e3,$0c,$c1,$80
	.DB	$00,$1f,$c0,$7f,$81,$ff,$e0,$ff,$df,$8e,$07,$80,$3f,$fc,$0f,$ef,$e3,$8c,$c3,$80
	.DB	$00,$1f,$c0,$7f,$83,$e7,$f0,$3f,$87,$00,$07,$00,$7c,$fe,$1f,$ef,$e1,$8c,$63,$00
	.DB	$00,$1f,$c0,$7f,$83,$c3,$f0,$3f,$8e,$00,$0f,$00,$78,$7e,$3f,$ff,$c1,$c0,$07,$00
	.DB	$00,$1f,$c0,$7f,$87,$c1,$f8,$1f,$ce,$00,$0f,$00,$f8,$3f,$1f,$ff,$c0,$e0,$0e,$00
	.DB	$00,$1f,$c0,$7f,$87,$c1,$f8,$1f,$dc,$00,$1e,$00,$f8,$3f,$03,$fc,$40,$78,$3c,$00
	.DB	$00,$1f,$c0,$7f,$87,$c1,$f8,$0f,$fc,$00,$1e,$00,$f8,$3f,$03,$f8,$00,$3f,$f8,$00
	.DB	$00,$1f,$c0,$7f,$8f,$c3,$f8,$0f,$f8,$00,$3e,$01,$f8,$7f,$03,$f8,$00,$0f,$e0,$00
	.DB	$00,$1f,$c0,$7f,$8f,$cf,$f0,$0f,$f8,$00,$3e,$01,$f9,$fe,$03,$f8,$00,$00,$00,$00
	.DB	$00,$1f,$c0,$7f,$8f,$ff,$c0,$07,$f0,$00,$7c,$01,$ff,$f8,$03,$f8,$00,$00,$00,$00
	.DB	$00,$1f,$c0,$7f,$8f,$ff,$00,$07,$f0,$00,$7c,$01,$ff,$e0,$03,$f8,$00,$00,$00,$00
	.DB	$00,$1f,$c0,$7f,$8f,$fc,$00,$07,$f8,$00,$7c,$01,$ff,$80,$03,$f8,$00,$00,$00,$00
	.DB	$00,$1f,$c0,$ff,$0f,$e0,$00,$0f,$f8,$00,$fc,$01,$fc,$00,$03,$f8,$00,$00,$00,$00
	.DB	$00,$1f,$c0,$ff,$0f,$e0,$00,$0d,$fc,$00,$fc,$01,$fc,$00,$03,$f8,$00,$00,$00,$00
	.DB	$00,$1f,$c0,$ff,$0f,$f0,$00,$1d,$fc,$00,$fc,$01,$fe,$00,$03,$f8,$00,$00,$00,$00
	.DB	$00,$1f,$c1,$fe,$0f,$f0,$18,$38,$fe,$00,$f8,$01,$fe,$03,$03,$f8,$00,$00,$00,$00
	.DB	$00,$1f,$c1,$fe,$07,$fc,$78,$38,$fe,$00,$f8,$00,$ff,$8f,$03,$f8,$00,$00,$00,$00
	.DB	$00,$1f,$c3,$fc,$07,$ff,$f8,$78,$7f,$01,$f8,$00,$ff,$ff,$03,$f8,$00,$00,$00,$00
	.DB	$00,$1f,$cf,$f8,$03,$ff,$f0,$70,$7f,$01,$f8,$00,$7f,$fe,$03,$f8,$00,$00,$00,$00
	.DB	$00,$7f,$ff,$f8,$03,$ff,$e1,$fc,$ff,$c1,$f8,$00,$7f,$fc,$0f,$fe,$00,$00,$00,$00
	.DB	$00,$7f,$ff,$e0,$01,$ff,$c1,$fc,$ff,$c1,$f8,$00,$3f,$f8,$0f,$fe,$00,$00,$00,$00
	.DB	$00,$7f,$ff,$c0,$00,$ff,$81,$fc,$ff,$c1,$f8,$00,$1f,$f0,$0f,$fe,$00,$00,$00,$00
	.DB	$00,$7f,$fc,$00,$00,$3e,$01,$fc,$ff,$c1,$f8,$00,$07,$c0,$0f,$fe,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$00,$01,$00,$00,$00,$00,$00,$04,$00,$00,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$00,$01,$00,$00,$10,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$00,$02,$00,$00,$10,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$01,$c2,$1c,$1e,$79,$67,$0b,$84,$3c,$70,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$02,$22,$22,$21,$21,$88,$8c,$44,$42,$88,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$04,$22,$42,$41,$21,$10,$88,$44,$82,$80,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$07,$e2,$7e,$40,$21,$10,$88,$44,$80,$60,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$04,$02,$40,$40,$41,$10,$90,$48,$80,$10,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$04,$04,$40,$42,$42,$10,$90,$88,$85,$08,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$04,$24,$42,$42,$42,$11,$10,$88,$84,$88,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$03,$c4,$3c,$3c,$72,$0e,$10,$88,$78,$70,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.DB	$0f,$c0,$00,$11,$00,$00,$00,$00,$f8,$20,$00,$00,$00,$00,$04,$40,$00,$00,$00,$00
	.DB	$08,$20,$00,$10,$00,$20,$00,$01,$04,$20,$00,$10,$00,$00,$00,$40,$00,$00,$00,$00
	.DB	$08,$10,$00,$10,$00,$20,$00,$02,$02,$20,$00,$10,$00,$00,$00,$40,$00,$00,$00,$00
	.DB	$08,$13,$c1,$d1,$1e,$79,$e1,$e4,$75,$2e,$0e,$3c,$b9,$87,$84,$40,$30,$70,$b9,$80
	.DB	$08,$24,$22,$31,$21,$22,$12,$14,$8d,$31,$11,$10,$c6,$48,$44,$40,$48,$88,$c6,$40
	.DB	$0f,$c0,$24,$11,$20,$20,$12,$04,$89,$21,$20,$90,$84,$40,$44,$40,$85,$04,$84,$40
	.DB	$08,$43,$e4,$11,$1c,$21,$f1,$c4,$89,$21,$20,$90,$84,$47,$c4,$40,$81,$04,$84,$40
	.DB	$08,$24,$24,$11,$02,$22,$10,$24,$8a,$21,$20,$90,$84,$48,$44,$40,$81,$04,$84,$40
	.DB	$08,$24,$24,$11,$01,$22,$10,$12,$76,$21,$20,$90,$84,$48,$44,$40,$85,$04,$84,$40
	.DB	$08,$24,$62,$31,$21,$22,$32,$11,$00,$21,$11,$10,$84,$48,$c4,$40,$48,$88,$84,$40
	.DB	$08,$13,$a1,$d1,$1e,$1d,$d1,$e0,$fe,$21,$0e,$0e,$84,$47,$44,$44,$30,$70,$84,$40
	.DB	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.DB	$1f,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$f0
	.DB	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.DB	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00