Version 1 of Bwise, a serial port tcl script and a Xilinx demo board

Updated 2005-10-27 16:23:56

started by Theo Verelst

Modern computers (except very rare quantum and analog ones) all work on the basis og binary logic, so lets see if with modern tachnology we can program some decent lofical circuitsm ion this case with the help of tcl, and bwise.

http://82.170.247.158/Wiki/logic1.gif

http://82.170.247.158/Wiki/logic2.gif

http://82.170.247.158/Wiki/xilledson.jpg

 set fh [open COM1: RDWR]
 fconfigure $fh -blocking 0 -mode 115200,n,8,1 -translation binary -buffering full
 fileevent $fh readable {
    set w [read $fh] ;
    foreach c [split $w {}] {binary scan $c H* a; set v $a}
 }
 proc w h {
    global fh
    puts -nonewline $fh [binary format H* $h] ; flush $fh
 }

 fileevent stdin readable { w [gets  stdin]; }
 while {1} {
    vwait v
    flush $fh
    puts -nonewline $v
    flush stdout
 }

http://82.170.247.158/Wiki/logic3.gif

  o <= "0000000" & (i(1) or i(0));

 00
 0001
 0102
 0103
 0100
 00