#!../../bin/tclish
# set up I2C device:
i2c i
i adr 34

# init chip
#i wr 0 0 16 
#i wr 0 0 16 128
#    | |  |   +-- Do hamming checking
#    | |  +------ Enable expt. packet reception
#    | +--------- std. init
#    +----------- Start with reg. 0

# search for page 800
#i wr 2 [expr 128 + 0] 24 16 16


i wr 8 4 23 0
puts " --- Packet 8/30/1 ---"
set a [i re 40]
puts $a
puts "[eval chr $a]"

i wr 8 5 23 0
puts " --- Packet 8/30/2 ---"
puts [i re 40 ]

i wr 8 6 23 0
puts " --- Packet 8/30/3 ---"
puts [i re 40 ]
puts " "

i wr 84 15 0
puts " --- Packet 28 -------"
puts [i re 40 ]
puts " "

i wr 84 20 0
puts " --- Packet 24 -------"
puts [i re 40 ]
puts " "

i wr 84 21 0
puts " --- Packet 25 -------"
puts [i re 40 ]
puts " "
