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

#ivt wr 2 128 24 16 16
ivt wr 8 0 0 0

for {set i 0} { $i<24 } {incr i} {
	ivt wr 8 0 $i 0
	set a [ ivt re 40 ]
	foreach b $a {
		if { $b > 31 } {
			puts -nonewline [chr $b]
		} {
			puts -nonewline " "
		}
	}

	ivt wr 8 4 $i 0
	set a [ ivt re 40 ]
	foreach b $a {
		if { $i <= 15 } {
			if { $b > 31 } {
				puts -nonewline [chr $b]
			} {
				puts -nonewline " "
			}
		}
		if { ($i >= 16 ) && ($i <= 19) } {
			if { $b < 31 } { set $b [expr $b + 48] }
			puts -nonewline [chr $b]
		}
		if { $i >= 20 } {
			if { $b > 31 } {
				puts -nonewline [chr $b]
			} {
				puts -nonewline " "
			}
		}
		
	}
	puts ""
}

ivt wr 8 5 23 0
puts -nonewline "[ join [eval chr [ ivt re 40 ]] {} ]"

ivt wr 8 6 23 0
puts [join [eval chr [ ivt re 40 ]] {} ]
