'THIS PROGRAM WRITES THE  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 $000,($80,$00,$00,$42,$10,$00,$43,$0A,$00,$24,$00,$00,$98,$00,$00,$00)	'set graphics mode
pause 100
	writei2c $010,($81,$00,$00,$40,$10,$00,$41,$00,$00,$22,$00,$00,$A0,$97,$00,$00)	'set text mode
pause 100
	writei2c $020,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")	'display scratch pad
pause 100
	writei2c $030,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $040,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $050,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $060,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $070,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $080,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $090,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $0A0,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $0B0,("H","O","U","R"," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $0C0,("D","A","Y"," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $0D0,("D","A","T","E"," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $0E0,("M","O","N","T","H"," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $0F0,("Y","E","A","R"," "," "," "," "," "," "," "," "," "," "," "," ")

pause 1000
		high portc 7			'wr    disable

		sound 5,(60,32)

		low  portc 7			'wr    enable

 
	writei2c $100,(">","B","i","O","S"," ","J","R"," ","3",".","1"," ","M","1","<")'MAIN SCREEN
pause 100
	writei2c $110,("-","-","-","-","-","-","-","-","-","-","-","-","-","-","-","-")
pause 100
	writei2c $120,("4","M","H","z"," ","3","2","K","F"," ","2","K"," ","R","O","M")
pause 100
	writei2c $130,(" "," "," "," "," "," "," "," "," "," "," "," "," ","R","T","C")
pause 100
	writei2c $140,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $150,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $160,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $170,("<","I",">"," ","H","R","D"," ","U","S","R"," ","D","E","M","O")'1st MAIN


pause 100
	writei2c $180,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")'INFO
pause 100
	writei2c $190,(" ","D","e","s","i","g","n","e","d"," ","b","y"," "," "," "," ")
pause 100
	writei2c $1A0,("I","v","a","n"," ","N","e","u","b","r","o","n","n","e","r"," ")
pause 100
	writei2c $1B0,("T","h","o","m","a","s"," ","B","r","a","u","n","l"," "," "," ")
pause 100
	writei2c $1C0,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $1D0,("T","i","m","e"," "," "," "," "," ",":"," "," ",":"," "," "," ")
pause 100
	writei2c $1E0,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $1F0,(" "," "," "," "," "," "," "," "," "," "," "," "," ","E","N","D")

pause 1000
		high portc 7			'wr    disable

		sound 5,(70,32)

		low  portc 7			'wr    enable


	writei2c $200,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")'HRD
pause 100
	writei2c $210,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $220,("S","E","T"," ","H","D","T"," "," ","I","O"," "," ","E","N","D")'2nd HRD


pause 100
	writei2c $230,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")'HDT
pause 100
	writei2c $240,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $250,("S","E","R","V"," ","M","O","T"," ","S","N","D"," ","E","N","D")'3rd HDT
pause 100


pause 100
	writei2c $260,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")'IO
pause 100
	writei2c $270,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $280,("D","I","N"," "," ","I","R"," "," ","A","D","C"," ","E","N","D")'3rd IO
pause 100


pause 100
	writei2c $290,("D","1"," ","t","o"," ","D","5"," "," "," "," "," "," "," "," ")'DIN
pause 100
	writei2c $2A0,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $2B0,(" "," "," "," "," "," "," "," "," "," "," "," "," ","E","N","D")


pause 100
	writei2c $2C0,("I","N","F","R","A","R","E","D"," "," "," "," "," "," "," "," ")'IR
pause 100
	writei2c $2D0,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $2E0,(" "," "," "," "," "," "," "," "," "," "," "," "," ","E","N","D")
pause 100
	writei2c $2F0,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")

pause 1000
		high portc 7			'wr    disable

		sound 5,(80,32)

		low  portc 7			'wr    enable


	writei2c $300,("S","E","R","V","O"," "," "," ","1"," "," "," "," "," "," "," ")
pause 100
	writei2c $310,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $320,(" ","+"," "," "," ","-"," "," ","N","E","X","T"," ","E","N","D")'4th SER


pause 100 
	writei2c $330,("M","O","T","O","R"," "," "," ","A"," "," "," "," "," "," "," ")
pause 100
	writei2c $340,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $350,(" ","+"," "," "," ","-"," "," ","N","E","X","T"," ","E","N","D")'4th MOT


pause 100
	writei2c $360,("A","D","C"," ","I","N"," "," ","0"," "," "," "," "," "," "," ")
pause 100
	writei2c $370,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $380,("K","E","Y","-","T","S","T"," ","N","E","X","T"," ","E","N","D")'4th ADC


pause 100
	writei2c $390,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $3A0,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100				
	writei2c $3B0,("S","E","R"," "," ","R","M","T"," ","C","L","K"," ","E","N","D")'3rd SET


pause 100
	writei2c $3C0,("M","I","N","U","T","E"," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $3D0,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
pause 100
	writei2c $3E0,(" ","+"," "," "," ","-"," "," ","N","E","X","T"," ","E","N","D")'4th CLOCK

pause 100
	writei2c $3F0,(" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")

pause 1000

snd:
		high portc 7			'wr    disable

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

		low  portc 7			'wr    enable

	end