Subversion Repositories tms1000

# This file is part of TMS1000 CPU

# 

# tms1000.tcl -  Run script and GUI frontend of the TMS1000

#                processor based calculator

#

# Written By -  Nand Gates (2021)

#

# This program is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by the

# Free Software Foundation; either version 2, or (at your option) any

# later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# In other words, you are welcome to use, share and improve this program.

# You are forbidden to forbid anyone else to use, share and improve

# what you give them.   Help stamp out software-hoarding!

proc start_running {} {

  global clock_running

  if { $clock_running == 0 } {

    set clock_running 1

    run_clock

  }

}

proc run_clock {} {

 global clock_running clk_count

 if { $clock_running == 1 } {

     paint_displays

     after 20 run_clock

 }

# changed to 50 for demo

}

proc paint_displays {} {

    update_display .topwindow.disp.display_1 [ run_command examine_display_1 ]

    update_display .topwindow.disp.display_2 [ run_command examine_display_2 ]

    update_display .topwindow.disp.display_3 [ run_command examine_display_3 ]

    update_display .topwindow.disp.display_4 [ run_command examine_display_4 ]

    update_display .topwindow.disp.display_5 [ run_command examine_display_5 ]

    update_display .topwindow.disp.display_6 [ run_command examine_display_6 ]

}

proc CreateWindow. {args} {

  # Window manager configurations

  destroy     .topwindow

  toplevel    .topwindow -width 700 -height 350

  wm title .topwindow "Calculator Simulator"

  wm protocol .topwindow WM_DELETE_WINDOW close_window

#  wm geometry .topwindow 80000+100+100

#  Create_Menubar  .topwindow menubar 

  set height 20

  frame .topwindow.disp -width 640 -height 120 -borderwidth 4

  pack .topwindow.disp -side top

# create the sevensegment displays

  create_display .topwindow.disp.display_1

  create_display .topwindow.disp.display_2

  create_display .topwindow.disp.display_3

  create_display .topwindow.disp.display_4

  create_display .topwindow.disp.display_5

  create_display .topwindow.disp.display_6

  place  .topwindow.disp.display_6  -relx 0.1

  place  .topwindow.disp.display_5  -relx 0.2

  place  .topwindow.disp.display_4  -relx 0.3

  place  .topwindow.disp.display_3  -relx 0.4

  place  .topwindow.disp.display_2  -relx 0.5

  place  .topwindow.disp.display_1  -relx 0.6

  frame .topwindow.keyboard -width 450 -height 800 -borderwidth 4

  pack .topwindow.keyboard -side top

  # build widget .pb1

  button .topwindow.keyboard.pb1   -background {#AEAEB2B2C3C3} -font {Helvetica 10} \

    -foreground {#000000000000}     -text {Start}

  button .topwindow.keyboard.exit \

    -background {#AEAEB2B2C3C3}    -font {Helvetica 10} \

    -foreground {#000000000000}    -text {exit} -command {run_command exit}

   bind .topwindow.keyboard.pb1    <Button>        { run_command pb1pressed  }

   bind .topwindow.keyboard.pb1    <ButtonRelease> { run_command pb1released  }

  button .topwindow.keyboard.num0 -text 0 -font {Helvetica 14}

  button .topwindow.keyboard.num1 -text 1 -font {Helvetica 14}

  button .topwindow.keyboard.num2 -text 2 -font {Helvetica 14}

  button .topwindow.keyboard.num3 -text 3 -font {Helvetica 14}

  button .topwindow.keyboard.num4 -text 4 -font {Helvetica 14}

  button .topwindow.keyboard.num5 -text 5 -font {Helvetica 14}

  button .topwindow.keyboard.num6 -text 6 -font {Helvetica 14}

  button .topwindow.keyboard.num7 -text 7 -font {Helvetica 14}

  button .topwindow.keyboard.num8 -text 8 -font {Helvetica 14}

  button .topwindow.keyboard.num9 -text 9 -font {Helvetica 14}

  button .topwindow.keyboard.add  -text {+}    -font {Helvetica 14}

  button .topwindow.keyboard.sub  -text {-}    -font {Helvetica 14}

  button .topwindow.keyboard.mul  -text {*}    -font {Helvetica 14}

  button .topwindow.keyboard.div  -text {/}    -font {Helvetica 14}

  button .topwindow.keyboard.clr  -text {C}    -font {Helvetica 14}

  button .topwindow.keyboard.clk  -text {CLK}  -font {Helvetica 14}

  button .topwindow.keyboard.ent  -text {ENT}  -font {Helvetica 14}

  grid .topwindow.keyboard.num0 .topwindow.keyboard.num1 .topwindow.keyboard.num2 .topwindow.keyboard.add -row 1 -ipadx 20 -ipady 10

  grid .topwindow.keyboard.num3 .topwindow.keyboard.num4 .topwindow.keyboard.num5 .topwindow.keyboard.sub -row 2 -ipadx 20 -ipady 10

  grid .topwindow.keyboard.num6 .topwindow.keyboard.num7 .topwindow.keyboard.num8 .topwindow.keyboard.mul -row 3 -ipadx 20 -ipady 10

  grid .topwindow.keyboard.num9 .topwindow.keyboard.clr  .topwindow.keyboard.ent  .topwindow.keyboard.div -row 4 -ipadx 20 -ipady 10

  grid .topwindow.keyboard.clk .topwindow.keyboard.pb1 .topwindow.keyboard.exit -row 5 -ipadx 20 -ipady 10

  bind .topwindow.keyboard.num0 <Button> { run_command num0pressed  }

  bind .topwindow.keyboard.num0 <ButtonRelease> { run_command num0released  }

  bind .topwindow.keyboard.num1 <Button> { run_command num1pressed  }

  bind .topwindow.keyboard.num1 <ButtonRelease> { run_command num1released  }

  bind .topwindow.keyboard.num2 <Button> { run_command num2pressed  }

  bind .topwindow.keyboard.num2 <ButtonRelease> { run_command num2released  }

  bind .topwindow.keyboard.num3 <Button> { run_command num3pressed  }

  bind .topwindow.keyboard.num3 <ButtonRelease> { run_command num3released  }

  bind .topwindow.keyboard.num4 <Button> { run_command num4pressed  }

  bind .topwindow.keyboard.num4 <ButtonRelease> { run_command num4released  }

  bind .topwindow.keyboard.num5 <Button> { run_command num5pressed  }

  bind .topwindow.keyboard.num5 <ButtonRelease> { run_command num5released  }

  bind .topwindow.keyboard.num6 <Button> { run_command num6pressed  }

  bind .topwindow.keyboard.num6 <ButtonRelease> { run_command num6released  }

  bind .topwindow.keyboard.num7 <Button> { run_command num7pressed  }

  bind .topwindow.keyboard.num7 <ButtonRelease> { run_command num7released  }

  bind .topwindow.keyboard.num8 <Button> { run_command num8pressed  }

  bind .topwindow.keyboard.num8 <ButtonRelease> { run_command num8released  }

  bind .topwindow.keyboard.num9 <Button> { run_command num9pressed  }

  bind .topwindow.keyboard.num9 <ButtonRelease> { run_command num9released  }

  bind .topwindow.keyboard.add  <Button> { run_command addpressed  }

  bind .topwindow.keyboard.add  <ButtonRelease> { run_command addreleased  }

  bind .topwindow.keyboard.sub  <Button> { run_command subpressed  }

  bind .topwindow.keyboard.sub  <ButtonRelease> { run_command subreleased  }

  bind .topwindow.keyboard.mul  <Button> { run_command mulpressed  }

  bind .topwindow.keyboard.mul  <ButtonRelease> { run_command mulreleased  }

  bind .topwindow.keyboard.div  <Button> { run_command divpressed  }

  bind .topwindow.keyboard.div  <ButtonRelease> { run_command divreleased  }

  bind .topwindow.keyboard.clr  <Button> { run_command clrpressed  }

  bind .topwindow.keyboard.clr  <ButtonRelease> { run_command clrreleased  }

  bind .topwindow.keyboard.clk   <Button> { run_command clkpressed  }

  bind .topwindow.keyboard.clk   <ButtonRelease> { run_command clkreleased  }

  bind .topwindow.keyboard.ent   <Button> { run_command entpressed  }

  bind .topwindow.keyboard.ent   <ButtonRelease> { run_command entreleased  }

# paint_displays

}

proc Create_Menubar { toplevel menubar } {

        global tk_version

        if { $tk_version >= 8.0 } {

                menu $menubar -type menubar

                $toplevel configure -menu $menubar

        } else {

                frame $menubar -borderwidth 1 -relief raised

                pack $menubar -side top -fill x -expand true

        }

}

proc Create_Menu { menubar basename text mnemonic } {

#       global

}

proc close_window {} {

  global clock_running

  set clock_running 0

  after 100 {

        quit -sim; noview wave

        destroy .topwindow

  }

}

proc create_display { display_widget } {

# a black canvas with seven different rectangles to form an 8

  canvas $display_widget -bg #000000 -width 80 -height 120

   $display_widget create poly 30 20 35 15 65 15 69 19 63 25 35 25 -fill IndianRed -tag  segment0

   $display_widget create poly 70 21 74 25 71 55 66 59 61 53 64 26 -fill IndianRed -tag  segment1

   $display_widget create poly 66 61 69 64 66 95 62 99 56 94 59 66 -fill IndianRed -tag  segment2

   $display_widget create poly 60 101 56 105 25 105 21 101 27 95 54 95 -fill IndianRed -tag segment3

   $display_widget create poly 19 99 16 96 19 65 24 61 29 66 26 94 -fill IndianRed -tag  segment4

   $display_widget create poly 25 59 21 55 24 25 28 21 34 26 31 54 -fill IndianRed -tag  segment5

   $display_widget create poly 27 60 31 65 58 65 64 60 60 55 32 55 -fill IndianRed -tag  segment6

   $display_widget create poly 70 95 80 95 78 105 68 105 -fill IndianRed -tag segment7

}

proc update_display { display_widget pattern } {

  global colours

  foreach bit { 0 1 2 3 4 5 6 7} {

      $display_widget itemconfigure segment$bit -fill [lindex $colours [string index $pattern $bit]]

  }

}

proc run_command {command {param 0} } {

global tb clock_running

set tb tms1000_tb

set sec 1ns

switch $command {

        exit  { close_window }

        pb1pressed {            start_running           }

        pb1released {           force /$tb/reset_n      1'b1    }

        pb2pressed {            force /$tb/reset_n 1'b0 }

        pb2released {           after 100 force /$tb/reset_n 1'b1 }

        clock0          { force /$tb/clk  1'b0  }

        clock1          { force /$tb/clk  1'b1  }

        examine_display_1       { examine -value -radix bin /$tb/d0 }

        examine_display_2       { examine -value -radix bin /$tb/d1 }

        examine_display_3       { examine -value -radix bin /$tb/d2 }

        examine_display_4       { examine -value -radix bin /$tb/d3 }

        examine_display_5       { examine -value -radix bin /$tb/d4 }

        examine_display_6       { examine -value -radix bin /$tb/d5 }

        num0pressed   { force /$tb/key0 1'b1 }

        num0released  { force /$tb/key0 1'b0 }

        num1pressed   { force /$tb/key1 1'b1 }

        num1released  { force /$tb/key1 1'b0 }

        num2pressed   { force /$tb/key2 1'b1 }

        num2released  { force /$tb/key2 1'b0 }

        num3pressed   { force /$tb/key3 1'b1 }

        num3released  { force /$tb/key3 1'b0 }

        num4pressed   { force /$tb/key4 1'b1 }

        num4released  { force /$tb/key4 1'b0 }

        num5pressed   { force /$tb/key5 1'b1 }

        num5released  { force /$tb/key5 1'b0 }

        num6pressed   { force /$tb/key6 1'b1 }

        num6released  { force /$tb/key6 1'b0 }

        num7pressed   { force /$tb/key7 1'b1 }

        num7released  { force /$tb/key7 1'b0 }

        num8pressed   { force /$tb/key8 1'b1 }

        num8released  { force /$tb/key8 1'b0 }

        num9pressed   { force /$tb/key9 1'b1 }

        num9released  { force /$tb/key9 1'b0 }

        addpressed   { force /$tb/keyplus 1'b1 }

        addreleased  { force /$tb/keyplus 1'b0 }

        subpressed   { force /$tb/keyminus 1'b1 }

        subreleased  { force /$tb/keyminus 1'b0 }

        mulpressed   { force /$tb/keymul 1'b1 }

        mulreleased  { force /$tb/keymul 1'b0 }

        divpressed   { force /$tb/keydiv 1'b1 }

        divreleased  { force /$tb/keydiv 1'b0 }

        clrpressed   { force /$tb/keyc 1'b1 }

        clrreleased  { force /$tb/keyc 1'b0 }

        clkpressed    { force /$tb/keyclk 1'b1 }

        clkreleased   { force /$tb/keyclk 1'b0 }

        entpressed    { force /$tb/keyent 1'b1 }

        entreleased   { force /$tb/keyent 1'b0 }

        run100          { run $sec }

        default { puts " This option $command not enabled " }

        }

### display_l and pb2_pressed to be made options... 

# commands for dip3 to dip8 can also be added in the above switch

}

proc initialize {} {

    global tb

    set tb tms1000_tb

    if { [file exists work]== 0} {

    vlib work

        }

    #vmap work work

    vlog +acc tms1000.v tms1000_tb.v

    vsim +acc work.tms1000_tb

    CreateWindow.

    view wave

    onerror {resume}

    quietly WaveActivateNextPane {} 0

    add wave -noupdate -format Logic /$tb/clk

    add wave -noupdate -format Logic /$tb/reset_n

    add wave -noupdate -format Literal -radix hexadecimal /$tb/q

    add wave -noupdate -format Literal -radix hexadecimal /$tb/k

    add wave -noupdate -format Literal -radix hexadecimal /$tb/r

    add wave -noupdate -format Literal -radix hexadecimal /$tb/tms1000/ram/Xreg_0

    add wave -noupdate -format Literal -radix hexadecimal /$tb/tms1000/ram/Xreg_1

    add wave -noupdate -format Literal -radix hexadecimal /$tb/tms1000/ram/Xreg_2

    add wave -noupdate -format Literal -radix hexadecimal /$tb/tms1000/ram/Xreg_3

    add wave -noupdate -format Literal -radix hexadecimal /$tb/count

    add wave -noupdate -format Logic  /$tb/clk_60

    add wave -noupdate -format Literal -radix hexadecimal /$tb/d0

    add wave -noupdate -format Literal -radix hexadecimal /$tb/d1

    add wave -noupdate -format Literal -radix hexadecimal /$tb/d2

    add wave -noupdate -format Literal -radix hexadecimal /$tb/d3

    add wave -noupdate -format Literal -radix hexadecimal /$tb/d4

    add wave -noupdate -format Literal -radix hexadecimal /$tb/d5

    add wave -noupdate -format Literal -radix hexadecimal /$tb/d6

    add wave -noupdate -format Literal -radix hexadecimal /$tb/d7

    add wave -noupdate -format Literal -radix hexadecimal /$tb/d8

    run -all

#    paint_displays

}

set clock_running 0

set clk_count 0

set colours {#330000 #cc0000}

initialize

#uncomment this next line to start the right display with a value; 

#update_display .topwindow.display_r 0111101