Subversion Repositories tms1000

# This file is part of TMS1000 CPU

# 

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

#                processor based calculator SR-16

#

# 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 ]

    update_display .topwindow.disp.display_7 [ run_command examine_display_7 ]

    update_display .topwindow.disp.display_8 [ run_command examine_display_8 ]

    update_display .topwindow.disp.display_9 [ run_command examine_display_9 ]

    update_display .topwindow.disp.display_10 [ run_command examine_display_10 ]

    update_display .topwindow.disp.display_11 [ run_command examine_display_11 ]

    # update_display .topwindow.disp.display_12 [ run_command examine_display_12 ]

    # update_display .topwindow.disp.display_13 [ run_command examine_display_13 ]

}

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 880 -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

  create_display .topwindow.disp.display_7

  create_display .topwindow.disp.display_8

  create_display .topwindow.disp.display_9

  create_display .topwindow.disp.display_10

  create_display .topwindow.disp.display_11

  # create_display .topwindow.disp.display_12

  # create_display .topwindow.disp.display_13

  # place  .topwindow.disp.display_13  -relx 0.0

  # place  .topwindow.disp.display_12  -relx 0.07

  place  .topwindow.disp.display_11  -relx 0.14

  place  .topwindow.disp.display_10  -relx 0.21

  place  .topwindow.disp.display_9  -relx 0.28

  place  .topwindow.disp.display_8  -relx 0.35

  place  .topwindow.disp.display_7  -relx 0.42

  place  .topwindow.disp.display_6  -relx 0.49

  place  .topwindow.disp.display_5  -relx 0.56

  place  .topwindow.disp.display_4  -relx 0.63

  place  .topwindow.disp.display_3  -relx 0.70

  place  .topwindow.disp.display_2  -relx 0.77

  place  .topwindow.disp.display_1  -relx 0.84

  set kbd .topwindow.keyboard

  frame $kbd -width 450 -height 800 -borderwidth 4

  pack $kbd -side top

  # build widget .pb1

  button $kbd.pb1   -background {#AEAEB2B2C3C3} -font {Helvetica 10} \

    -foreground {#000000000000}     -text {Start}

  button $kbd.exit \

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

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

   bind $kbd.pb1    <Button>        { run_command pb1pressed  }

   bind $kbd.pb1    <ButtonRelease> { run_command pb1released  }

  button $kbd.num0 -text 0 -font {Helvetica 14}

  button $kbd.num1 -text 1 -font {Helvetica 14}

  button $kbd.num2 -text 2 -font {Helvetica 14}

  button $kbd.num3 -text 3 -font {Helvetica 14}

  button $kbd.num4 -text 4 -font {Helvetica 14}

  button $kbd.num5 -text 5 -font {Helvetica 14}

  button $kbd.num6 -text 6 -font {Helvetica 14}

  button $kbd.num7 -text 7 -font {Helvetica 14}

  button $kbd.num8 -text 8 -font {Helvetica 14}

  button $kbd.num9 -text 9 -font {Helvetica 14}

  button $kbd.add  -text {+}    -font {Helvetica 14}

  button $kbd.sub  -text {-}    -font {Helvetica 14}

  button $kbd.mul  -text {*}    -font {Helvetica 14}

  button $kbd.div  -text {/}    -font {Helvetica 14}

  button $kbd.c    -text {C}    -font {Helvetica 14}

  button $kbd.ce   -text {CE}   -font {Helvetica 14}

  button $kbd.eq   -text {=}    -font {Helvetica 14}

  button $kbd.sum  -text {SUM}    -font {Helvetica 14}

  button $kbd.1byx -text {1/x}    -font {Helvetica 14}

  button $kbd.x2   -text {x2}    -font {Helvetica 14}

  button $kbd.10x  -text {10x}    -font {Helvetica 14}

  button $kbd.sqrt -text {sqrt}    -font {Helvetica 14}

  button $kbd.log  -text {log}   -font {Helvetica 14}

  button $kbd.rcl  -text {RCL}    -font {Helvetica 14}

  button $kbd.plmi -text {+/-}    -font {Helvetica 14}

  button $kbd.dp   -text {.}    -font {Helvetica 14}

  button $kbd.ee   -text {ee}    -font {Helvetica 14}

  button $kbd.sto  -text {STO}    -font {Helvetica 14}

  button $kbd.yx   -text {yx}    -font {Helvetica 14}

  button $kbd.ex   -text {EX}   -font {Helvetica 14}

  button $kbd.lnx  -text {lnx}   -font {Helvetica 14}

   grid $kbd.ce $kbd.1byx $kbd.x2 $kbd.sqrt $kbd.c -row 1 -ipadx 20 -ipady 10

   grid $kbd.lnx $kbd.ex $kbd.log $kbd.10x $kbd.yx -row 2 -ipadx 20 -ipady 10

   grid $kbd.sto $kbd.rcl $kbd.sum $kbd.ee $kbd.div -row 3 -ipadx 20 -ipady 10

   grid $kbd.num7 $kbd.num8 $kbd.num9 $kbd.mul -row 4 -ipadx 20 -ipady 10

   grid $kbd.num4 $kbd.num5 $kbd.num6 $kbd.sub -row 5 -ipadx 20 -ipady 10

   grid $kbd.num1 $kbd.num2 $kbd.num3 $kbd.add -row 6 -ipadx 20 -ipady 10

   grid $kbd.num0 $kbd.dp $kbd.plmi $kbd.eq -row 7 -ipadx 20 -ipady 10

   grid  $kbd.pb1 $kbd.exit -row 8 -ipadx 20 -ipady 10

  bind $kbd.num0 <Button> { run_command num0pressed  }

  bind $kbd.num0 <ButtonRelease> { run_command num0released  }

  bind $kbd.num1 <Button> { run_command num1pressed  }

  bind $kbd.num1 <ButtonRelease> { run_command num1released  }

  bind $kbd.num2 <Button> { run_command num2pressed  }

  bind $kbd.num2 <ButtonRelease> { run_command num2released  }

  bind $kbd.num3 <Button> { run_command num3pressed  }

  bind $kbd.num3 <ButtonRelease> { run_command num3released  }

  bind $kbd.num4 <Button> { run_command num4pressed  }

  bind $kbd.num4 <ButtonRelease> { run_command num4released  }

  bind $kbd.num5 <Button> { run_command num5pressed  }

  bind $kbd.num5 <ButtonRelease> { run_command num5released  }

  bind $kbd.num6 <Button> { run_command num6pressed  }

  bind $kbd.num6 <ButtonRelease> { run_command num6released  }

  bind $kbd.num7 <Button> { run_command num7pressed  }

  bind $kbd.num7 <ButtonRelease> { run_command num7released  }

  bind $kbd.num8 <Button> { run_command num8pressed  }

  bind $kbd.num8 <ButtonRelease> { run_command num8released  }

  bind $kbd.num9 <Button> { run_command num9pressed  }

  bind $kbd.num9 <ButtonRelease> { run_command num9released  }

  bind $kbd.add  <Button> { run_command addpressed  }

  bind $kbd.add  <ButtonRelease> { run_command addreleased  }

  bind $kbd.sub  <Button> { run_command subpressed  }

  bind $kbd.sub  <ButtonRelease> { run_command subreleased  }

  bind $kbd.mul  <Button> { run_command mulpressed  }

  bind $kbd.mul  <ButtonRelease> { run_command mulreleased  }

  bind $kbd.div  <Button> { run_command divpressed  }

  bind $kbd.div  <ButtonRelease> { run_command divreleased  }

  bind $kbd.c    <Button> { run_command cpressed  }

  bind $kbd.c    <ButtonRelease> { run_command creleased  }

  bind $kbd.ce   <Button> { run_command cepressed  }

  bind $kbd.ce   <ButtonRelease> { run_command cereleased  }

  bind $kbd.eq   <Button> { run_command eqpressed  }

  bind $kbd.eq   <ButtonRelease> { run_command eqreleased  }

   bind $kbd.sum  <Button> { run_command sumpressed  }

   bind $kbd.sum  <ButtonRelease> { run_command sumreleased  }

   bind $kbd.1byx <Button> { run_command 1byxpressed  }

   bind $kbd.1byx <ButtonRelease> { run_command 1byxreleased  }

   bind $kbd.x2   <Button> { run_command x2pressed  }

   bind $kbd.x2   <ButtonRelease> { run_command x2released  }

   bind $kbd.10x  <Button> { run_command 10xpressed  }

   bind $kbd.10x  <ButtonRelease> { run_command 10xreleased  }

   bind $kbd.sqrt <Button> { run_command sqrtpressed  }

   bind $kbd.sqrt <ButtonRelease> { run_command sqrtreleased  }

   bind $kbd.log  <Button> { run_command logpressed  }

   bind $kbd.log  <ButtonRelease> { run_command logreleased  }

   bind $kbd.rcl  <Button> { run_command rclpressed  }

   bind $kbd.rcl  <ButtonRelease> { run_command rclreleased  }

   bind $kbd.plmi <Button> { run_command plmipressed  }

   bind $kbd.plmi <ButtonRelease> { run_command plmireleased  }

   bind $kbd.dp   <Button> { run_command dppressed  }

   bind $kbd.dp   <ButtonRelease> { run_command dpreleased  }

   bind $kbd.ee   <Button> { run_command eepressed  }

   bind $kbd.ee   <ButtonRelease> { run_command eereleased  }

   bind $kbd.sto  <Button> { run_command stopressed  }

   bind $kbd.sto  <ButtonRelease> { run_command storeleased  }

   bind $kbd.yx   <Button> { run_command yxpressed  }

   bind $kbd.yx   <ButtonRelease> { run_command yxreleased  }

   bind $kbd.ex   <Button> { run_command expressed  }

   bind $kbd.ex   <ButtonRelease> { run_command exreleased  }

   bind $kbd.lnx  <Button> { run_command lnxpressed  }

   bind $kbd.lnx  <ButtonRelease> { run_command lnxreleased  }

# 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 [expr 7 - $bit]]]

      $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 }

        examine_display_7       { examine -value -radix bin /$tb/d6 }

        examine_display_8       { examine -value -radix bin /$tb/d7 }

        examine_display_9       { examine -value -radix bin /$tb/d8 }

        examine_display_10      { examine -value -radix bin /$tb/d9 }

        examine_display_11      { examine -value -radix bin /$tb/d10 }

        # examine_display_12    { examine -value -radix bin /$tb/d11 }

        # examine_display_13    { examine -value -radix bin /$tb/d12 }

        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 }

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

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

        cepressed    { force /$tb/keyce 1'b1 }

        cereleased   { force /$tb/keyce 1'b0 }

        eqpressed    { force /$tb/keyeq 1'b1 }

        eqreleased   { force /$tb/keyeq 1'b0 }

        sumpressed    { force /$tb/keysum 1'b1 }

        sumreleased   { force /$tb/keysum 1'b0 }

        1byxpressed   { force /$tb/key1byx 1'b1 }

        1byxreleased  { force /$tb/key1byx 1'b0 }

        x2pressed     { force /$tb/keyx2 1'b1 }

        x2released    { force /$tb/keyx2 1'b0 }

        10xpressed    { force /$tb/key10x 1'b1 }

        10xreleased   { force /$tb/key10x 1'b0 }

        sqrtpressed   { force /$tb/keysqrt 1'b1 }

        sqrtreleased  { force /$tb/keysqrt 1'b0 }

        logpressed    { force /$tb/keylog 1'b1 }

        logreleased   { force /$tb/keylog 1'b0 }

        rclpressed    { force /$tb/keyrcl 1'b1 }

        rclreleased   { force /$tb/keyrcl 1'b0 }

        plmipressed   { force /$tb/keyplmi 1'b1 }

        plmireleased  { force /$tb/keyplmi 1'b0 }

        dppressed     { force /$tb/keydp 1'b1 }

        dpreleased    { force /$tb/keydp 1'b0 }

        eepressed     { force /$tb/keyee 1'b1 }

        eereleased    { force /$tb/keyee 1'b0 }

        stopressed    { force /$tb/keysto 1'b1 }

        storeleased   { force /$tb/keysto 1'b0 }

        yxpressed     { force /$tb/keyyx 1'b1 }

        yxreleased    { force /$tb/keyyx 1'b0 }

        expressed     { force /$tb/keyex 1'b1 }

        exreleased    { force /$tb/keyex 1'b0 }

        lnxpressed    { force /$tb/keylnx 1'b1 }

        lnxreleased   { force /$tb/keylnx 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]} {

        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