Elke waarde in 24C16 eeprom is 8

Device 16F628A
Config WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF, HS_OSC
ALL_DIGITAL true
XTAL 20

		Dim W0	As	Word                    		' Address
		Dim B1	As	Byte                    		' Data 1
		Dim B2	As	Byte                    		' Data 2

       
        For W0 = 0 To 15                			' Loop 16 times
        	B1 = W0 + 10           					' B1 is data for SEEPROM
        	BusOut $A0,W0,[B1]    					' Write each location
        	DelayMS 5                				' Delay 5ms after each write
        Next

loop:   Cls
		For W0 = 0 To 15 Step 2         			' Loop 8 times
        	BusIn $A1,W0,[B1,B2]  					' Read 2 locations in a row
        	Print At 1,1,Dec W0,": ",Dec B1," ",Dec B2," "  	' Display 2 locations
        	DelayMS 1000
        Next

        GoTo loop