'THIS PROGRAM WRITES THE EYEBOT EYE & ASCII GRAPHICS TO THE I2C EEPROM 

'0000 - 03FF	Configuration & menu data
'0400 - 07FF	Eye graphic
'0800 - 7FFF	spare 30K bytes


start:
		let dirsc = %11100001
		let pins = 0
		let infra = 0
		high portc 0 			'latch enable
		low  portc 0 			'latch disable (stop all motors)
		high portc 5			'ce    disable
		low  portc 7			'wr    enable

	i2cslave %10100000, i2cfast, i2cword

	pause 3000

	writei2c $400,($00,$00,$00,$00,$B7,$70,$1C,$00,$00,$00,$00,$00,$00,$00,$00,$00)
pause 100
	writei2c $410,($00,$00,$00,$17,$FF,$FF,$F8,$00,$00,$00,$00,$00,$00,$00,$00,$00)
pause 100
	writei2c $420,($00,$00,$01,$7F,$FF,$FF,$87,$C0,$00,$00,$00,$00,$00,$00,$00,$00)
pause 100
	writei2c $430,($00,$00,$17,$3F,$7F,$B9,$FF,$FF,$80,$00,$00,$00,$00,$00,$00,$00)
pause 100
	writei2c $440,($00,$00,$FC,$FD,$BC,$DF,$FF,$D7,$FE,$00,$00,$00,$00,$00,$00,$00)
pause 100
	writei2c $450,($00,$01,$E9,$DB,$37,$6C,$CF,$3F,$8F,$F8,$00,$00,$00,$00,$00,$00)
pause 100
	writei2c $460,($00,$03,$D3,$E4,$C0,$B2,$13,$8F,$F8,$0F,$F8,$00,$00,$00,$00,$00)
pause 100
	writei2c $470,($00,$0F,$A7,$8B,$03,$4C,$6C,$70,$7F,$FD,$C0,$00,$00,$00,$00,$00)
pause 100
	writei2c $480,($00,$3F,$03,$00,$00,$00,$01,$87,$FF,$FF,$C0,$00,$00,$00,$00,$00)
pause 100
	writei2c $490,($00,$50,$84,$00,$00,$00,$00,$17,$CF,$81,$FC,$00,$00,$00,$00,$00)
pause 100
	writei2c $4A0,($01,$ED,$00,$00,$00,$00,$00,$30,$39,$F8,$FE,$00,$00,$00,$00,$00)
pause 100
	writei2c $4B0,($01,$C0,$00,$00,$00,$00,$00,$01,$CF,$DF,$FF,$E0,$00,$00,$00,$00)
pause 100
	writei2c $4C0,($07,$80,$00,$00,$00,$00,$30,$07,$FB,$E0,$03,$FC,$80,$00,$00,$00)
pause 100
	writei2c $4D0,($0E,$00,$00,$FC,$00,$00,$50,$01,$80,$3F,$FF,$07,$82,$00,$00,$00)
pause 100
	writei2c $4E0,($0C,$00,$01,$FC,$00,$00,$A0,$0C,$00,$01,$FF,$FF,$8E,$00,$00,$00)
pause 100
	writei2c $4F0,($38,$00,$0F,$FC,$00,$01,$20,$1C,$00,$07,$FF,$F0,$7D,$00,$00,$00)

pause 1000
		high portc 7			'wr    disable

		sound 5,(60,32)

		low  portc 7			'wr    enable

	writei2c $500,($40,$00,$1F,$B0,$00,$02,$40,$7C,$00,$00,$3F,$FC,$0C,$36,$60,$00)
pause 100
	writei2c $510,($00,$00,$3E,$20,$00,$06,$86,$78,$00,$00,$3F,$EF,$E1,$DF,$C0,$00)
pause 100
	writei2c $520,($00,$00,$38,$00,$00,$05,$0F,$A0,$00,$00,$01,$FF,$FF,$FB,$06,$00)
pause 100
	writei2c $530,($00,$00,$70,$00,$00,$7A,$5B,$60,$00,$00,$01,$FF,$FC,$DC,$39,$00)
pause 100
	writei2c $540,($00,$00,$60,$30,$88,$BC,$DB,$40,$00,$00,$00,$1F,$FF,$F8,$E7,$40)
pause 100
	writei2c $550,($00,$00,$1F,$E1,$9B,$69,$F7,$C8,$00,$00,$00,$07,$FE,$7F,$FE,$C8)
pause 100
	writei2c $560,($00,$00,$01,$C3,$34,$99,$A6,$F0,$00,$00,$00,$00,$7E,$FF,$FF,$F4)
pause 100
	writei2c $570,($00,$00,$0E,$07,$67,$11,$E7,$E0,$00,$00,$00,$00,$0F,$DF,$7D,$AA)
pause 100
	writei2c $580,($00,$00,$18,$06,$6F,$3F,$38,$C0,$00,$00,$00,$00,$01,$FF,$7E,$98)
pause 100
	writei2c $590,($00,$00,$70,$35,$BF,$CC,$10,$00,$00,$00,$00,$00,$0E,$7F,$FB,$40)
pause 100
	writei2c $5A0,($00,$00,$C0,$67,$47,$80,$00,$00,$7F,$80,$00,$00,$00,$17,$DC,$00)
pause 100
	writei2c $5B0,($00,$21,$81,$C6,$A0,$00,$00,$00,$00,$07,$C0,$00,$00,$1F,$C0,$00)
pause 100
	writei2c $5C0,($00,$01,$87,$C0,$C0,$00,$02,$00,$00,$00,$1C,$00,$07,$F7,$00,$00)
pause 100
	writei2c $5D0,($00,$21,$FE,$01,$C0,$00,$70,$03,$FF,$E3,$01,$80,$1F,$80,$00,$00)
pause 100
	writei2c $5E0,($00,$1C,$FC,$01,$80,$01,$80,$1D,$98,$0E,$E0,$10,$07,$FC,$00,$00)
pause 100
	writei2c $5F0,($00,$20,$00,$03,$00,$1C,$13,$FF,$C8,$03,$98,$04,$03,$F8,$00,$00)

pause 1000
		high portc 7			'wr    disable

		sound 5,(70,32)

		low  portc 7			'wr    enable

	writei2c $600,($00,$20,$00,$02,$03,$C4,$9F,$FF,$F1,$0F,$FB,$01,$81,$E0,$00,$00)
pause 100
	writei2c $610,($00,$3F,$00,$00,$1C,$10,$FF,$E3,$F9,$06,$7E,$E0,$40,$00,$00,$00)
pause 100
	writei2c $620,($00,$1F,$00,$00,$E4,$A7,$FF,$E6,$78,$00,$E1,$F0,$30,$00,$00,$00)
pause 100
	writei2c $630,($00,$0F,$C8,$1F,$DF,$3D,$FF,$FC,$7E,$01,$E0,$7C,$0C,$00,$00,$00)
pause 100
	writei2c $640,($00,$02,$23,$E3,$FB,$FF,$FF,$F8,$7A,$00,$20,$1A,$07,$C0,$00,$00)
pause 100
	writei2c $650,($00,$00,$18,$00,$E7,$FE,$7F,$FC,$7E,$E0,$20,$0D,$83,$F0,$00,$00)
pause 100
	writei2c $660,($00,$00,$00,$07,$FF,$BF,$FF,$FF,$FE,$80,$60,$02,$C0,$1F,$F8,$00)
pause 100
	writei2c $670,($00,$02,$08,$1F,$67,$D3,$FF,$FF,$FE,$20,$E0,$01,$A1,$C5,$C0,$00)
pause 100
	writei2c $680,($00,$00,$83,$1D,$87,$F7,$BF,$FF,$FE,$00,$20,$00,$51,$80,$00,$00)
pause 100
	writei2c $690,($00,$00,$63,$FE,$04,$19,$FF,$FD,$FC,$01,$C0,$00,$29,$00,$00,$00)
pause 100
	writei2c $6A0,($00,$02,$1C,$78,$03,$47,$BF,$FF,$BD,$00,$40,$00,$10,$00,$00,$00)
pause 100
	writei2c $6B0,($00,$00,$9F,$A0,$03,$19,$FF,$FF,$BB,$00,$C0,$00,$10,$00,$00,$00)
pause 100
	writei2c $6C0,($00,$00,$FF,$40,$03,$E3,$7F,$7B,$B2,$03,$80,$00,$28,$00,$00,$00)
pause 100
	writei2c $6D0,($00,$0F,$0F,$A0,$00,$CC,$6B,$DF,$C1,$03,$80,$00,$14,$00,$00,$00)
pause 100
	writei2c $6E0,($00,$60,$0C,$80,$00,$F0,$8C,$7C,$21,$07,$00,$00,$32,$00,$00,$00)
pause 100
	writei2c $6F0,($00,$1F,$F0,$C0,$00,$61,$10,$00,$21,$06,$00,$00,$63,$00,$00,$00)

pause 1000
		high portc 7			'wr    disable

		sound 5,(80,32)

		low  portc 7			'wr    enable

	writei2c $700,($00,$3F,$C3,$E8,$00,$32,$20,$20,$10,$14,$00,$00,$A9,$80,$00,$00)
pause 100
	writei2c $710,($00,$0F,$69,$F4,$00,$1C,$40,$20,$00,$38,$00,$01,$80,$80,$00,$00)
pause 100
	writei2c $720,($00,$01,$FE,$B4,$00,$1C,$40,$00,$00,$50,$00,$03,$87,$40,$00,$00)
pause 100
	writei2c $730,($00,$00,$6F,$7C,$00,$06,$80,$00,$07,$60,$00,$03,$6C,$80,$00,$00)
pause 100
	writei2c $740,($00,$00,$1E,$CF,$80,$03,$10,$00,$11,$80,$00,$05,$83,$80,$00,$00)
pause 100
	writei2c $750,($00,$00,$0B,$77,$80,$00,$C9,$00,$63,$00,$00,$0A,$00,$00,$00,$00)
pause 100
	writei2c $760,($00,$00,$01,$8C,$E0,$00,$21,$D0,$18,$00,$00,$0C,$00,$00,$00,$00)
pause 100
	writei2c $770,($00,$00,$00,$A3,$3C,$00,$1C,$01,$E0,$00,$00,$10,$00,$00,$00,$00)
pause 100
	writei2c $780,($00,$00,$00,$14,$63,$C0,$00,$40,$00,$00,$00,$80,$00,$00,$00,$00)
pause 100
	writei2c $790,($00,$00,$00,$01,$1F,$70,$00,$00,$00,$00,$03,$00,$00,$00,$00,$00)
pause 100
	writei2c $7A0,($00,$00,$00,$00,$40,$E7,$80,$00,$00,$00,$0C,$00,$00,$00,$00,$00)
pause 100
	writei2c $7B0,($00,$00,$00,$00,$00,$1E,$78,$00,$00,$00,$60,$00,$00,$00,$00,$00)
pause 100
	writei2c $7C0,($00,$00,$00,$00,$00,$01,$C7,$00,$00,$1F,$80,$00,$00,$00,$00,$00)
pause 100
	writei2c $7D0,($00,$00,$00,$00,$00,$00,$3E,$7F,$FB,$FC,$00,$00,$00,$00,$00,$00)
pause 100
	writei2c $7E0,($00,$00,$00,$00,$00,$00,$03,$F8,$07,$C0,$00,$00,$00,$00,$00,$00)
pause 100
	writei2c $7F0,($00,$00,$00,$00,$00,$00,$00,$1F,$F0,$00,$00,$00,$00,$00,$00,$00)

pause 1000


		high portc 7			'wr    disable

		sound 5,(90,20,00,20,104,32)

		low  portc 7			'wr    enable

	end