OpenCores
URL https://opencores.org/ocsvn/sockit_owm/sockit_owm/trunk

Subversion Repositories sockit_owm

[/] [sockit_owm/] [trunk/] [sockit_owm_hw.tcl] - Diff between revs 2 and 3

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 2 Rev 3
Line 1... Line 1...
# sockit_owm
###############################################################################
# Iztok Jeras 2010.06.13.18:29:39
#                                                                             #
# 1-wire (onewire) master
#  Minimalistic 1-wire (onewire) master with Avalon MM bus interface          #
 
#                                                                             #
 
#  Copyright (C) 2010  Iztok Jeras                                            #
 
#                                                                             #
 
###############################################################################
 
#                                                                             #
 
#  This script is free hardware: you can redistribute it and/or modify        #
 
#  it under the terms of the GNU Lesser General Public License                #
 
#  as published by the Free Software Foundation, either                       #
 
#  version 3 of the License, or (at your option) any later version.           #
 
#                                                                             #
 
#  This RTL 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.                               #
 
#                                                                             #
 
#  You should have received a copy of the GNU General Public License          #
 
#  along with this program.  If not, see <http:#www.gnu.org/licenses/>.       #
 
#                                                                             #
 
###############################################################################
 
 
# request TCL package from ACDS 9.1
# request TCL package from Altera tools version 10.0
package require -exact sopc 9.1
package require -exact sopc 10.0
 
 
# module sockit_owm
# module sockit_owm
set_module_property DESCRIPTION "1-wire (onewire) master"
 
set_module_property NAME sockit_owm
set_module_property NAME sockit_owm
set_module_property VERSION 1.1
set_module_property VERSION      1.3
set_module_property INTERNAL false
 
set_module_property GROUP "Interface Protocols/Serial"
set_module_property GROUP "Interface Protocols/Serial"
 
set_module_property DISPLAY_NAME "1-wire (onewire) master"
 
set_module_property DESCRIPTION  "1-wire (onewire) master"
set_module_property AUTHOR "Iztok Jeras"
set_module_property AUTHOR "Iztok Jeras"
set_module_property DISPLAY_NAME "1-wire (onewire)"
 
set_module_property TOP_LEVEL_HDL_FILE sockit_owm.v
set_module_property TOP_LEVEL_HDL_FILE sockit_owm.v
set_module_property TOP_LEVEL_HDL_MODULE sockit_owm
set_module_property TOP_LEVEL_HDL_MODULE sockit_owm
set_module_property INSTANTIATE_IN_SYSTEM_MODULE true
set_module_property INSTANTIATE_IN_SYSTEM_MODULE true
set_module_property EDITABLE true
set_module_property EDITABLE true
set_module_property ANALYZE_HDL TRUE
 
 
 
 
# callbacks
set_module_property  VALIDATION_CALLBACK  validation_callback
set_module_property  VALIDATION_CALLBACK  validation_callback
set_module_property ELABORATION_CALLBACK elaboration_callback
set_module_property ELABORATION_CALLBACK elaboration_callback
 
 
# TODO add_documentation_link
# documentation links and files
 
add_documentation_link WEBLINK https://github.com/jeras/sockit_owm
 
add_documentation_link WEBLINK http://opencores.org/project,sockit_owm
 
add_documentation_link DATASHEET doc/sockit_owm.pdf
 
 
# RTL files
# RTL files
add_file sockit_owm.v {SYNTHESIS SIMULATION}
add_file hdl/sockit_owm.v {SYNTHESIS SIMULATION}
 
 
# parameters
# parameters
 
add_parameter OVD_E BOOLEAN
 
set_parameter_property OVD_E DESCRIPTION "Implementation of overdrive enable, disabling it can spare a small amount of logic."
 
set_parameter_property OVD_E DEFAULT_VALUE 1
 
set_parameter_property OVD_E UNITS None
 
set_parameter_property OVD_E AFFECTS_GENERATION false
 
set_parameter_property OVD_E HDL_PARAMETER true
 
 
 
add_parameter CDR_E BOOLEAN
 
set_parameter_property CDR_E DESCRIPTION "Implementation of clock divider ratio registers, disabling it can spare a small amount of logic."
 
set_parameter_property CDR_E DEFAULT_VALUE 0
 
set_parameter_property CDR_E UNITS None
 
set_parameter_property CDR_E AFFECTS_GENERATION false
 
set_parameter_property CDR_E HDL_PARAMETER true
 
 
add_parameter BDW INTEGER
add_parameter BDW INTEGER
set_parameter_property BDW DESCRIPTION "CPU interface data bus width"
set_parameter_property BDW DESCRIPTION "CPU interface data bus width"
#set_parameter_property BDW DISPLAY_NAME BDW
set_parameter_property BDW VISIBLE false
set_parameter_property BDW DISPLAY_HINT "radio"
 
set_parameter_property BDW DEFAULT_VALUE 32
set_parameter_property BDW DEFAULT_VALUE 32
set_parameter_property BDW ALLOWED_RANGES {8 32}
set_parameter_property BDW ALLOWED_RANGES {8 32}
set_parameter_property BDW UNITS bits
set_parameter_property BDW UNITS bits
set_parameter_property BDW ENABLED false
set_parameter_property BDW ENABLED false
set_parameter_property BDW AFFECTS_GENERATION false
set_parameter_property BDW AFFECTS_GENERATION false
set_parameter_property BDW HDL_PARAMETER true
set_parameter_property BDW HDL_PARAMETER true
 
 
add_parameter OVD_E BOOLEAN
add_parameter BAW INTEGER
set_parameter_property OVD_E DESCRIPTION "Implementation of overdrive enable, disabling it can spare a small amount of logic."
set_parameter_property BAW DESCRIPTION "CPU interface address bus width"
#set_parameter_property OVD_E DISPLAY_NAME OVD_E
set_parameter_property BAW VISIBLE false
set_parameter_property OVD_E DEFAULT_VALUE 1
set_parameter_property BAW DEFAULT_VALUE 1
set_parameter_property OVD_E UNITS None
set_parameter_property BAW ALLOWED_RANGES {1 2}
set_parameter_property OVD_E AFFECTS_GENERATION false
set_parameter_property BAW UNITS bits
set_parameter_property OVD_E HDL_PARAMETER true
set_parameter_property BAW ENABLED false
 
set_parameter_property BAW AFFECTS_GENERATION false
 
set_parameter_property BAW HDL_PARAMETER true
 
 
add_parameter OWN INTEGER
add_parameter OWN INTEGER
set_parameter_property OWN DESCRIPTION "Nummber of 1-wire channels"
set_parameter_property OWN DESCRIPTION "Nummber of 1-wire channels"
#set_parameter_property OWN DISPLAY_NAME OWN
#set_parameter_property OWN DISPLAY_NAME OWN
#set_parameter_property BTP_N DISPLAY_HINT "drop-down"
 
set_parameter_property OWN DEFAULT_VALUE 1
set_parameter_property OWN DEFAULT_VALUE 1
set_parameter_property OWN ALLOWED_RANGES {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16}
set_parameter_property OWN ALLOWED_RANGES {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16}
set_parameter_property OWN AFFECTS_GENERATION false
set_parameter_property OWN AFFECTS_GENERATION false
set_parameter_property OWN AFFECTS_ELABORATION true
set_parameter_property OWN AFFECTS_ELABORATION true
set_parameter_property OWN HDL_PARAMETER true
set_parameter_property OWN HDL_PARAMETER true
Line 79... Line 115...
set_parameter_property F_CLK SYSTEM_INFO {CLOCK_RATE clock_reset}
set_parameter_property F_CLK SYSTEM_INFO {CLOCK_RATE clock_reset}
set_parameter_property F_CLK DISPLAY_NAME F_CLK
set_parameter_property F_CLK DISPLAY_NAME F_CLK
set_parameter_property F_CLK DESCRIPTION "System clock frequency"
set_parameter_property F_CLK DESCRIPTION "System clock frequency"
set_parameter_property F_CLK UNITS megahertz
set_parameter_property F_CLK UNITS megahertz
 
 
add_parameter CDR_N POSITIVE
add_parameter CDR_N NATURAL
set_parameter_property CDR_N DERIVED true
set_parameter_property CDR_N DERIVED true
set_parameter_property CDR_N DESCRIPTION "Clock divider ratio for normal mode"
set_parameter_property CDR_N DESCRIPTION "Clock divider ratio for normal mode"
set_parameter_property CDR_N DISPLAY_NAME CDR_N
set_parameter_property CDR_N DISPLAY_NAME CDR_N
set_parameter_property CDR_N DEFAULT_VALUE 5
set_parameter_property CDR_N DEFAULT_VALUE 5
set_parameter_property CDR_N AFFECTS_GENERATION false
set_parameter_property CDR_N AFFECTS_GENERATION false
set_parameter_property CDR_N HDL_PARAMETER true
set_parameter_property CDR_N HDL_PARAMETER true
 
 
add_parameter CDR_O POSITIVE
add_parameter CDR_O NATURAL
set_parameter_property CDR_O DERIVED true
set_parameter_property CDR_O DERIVED true
set_parameter_property CDR_O DESCRIPTION "Clock divider ratio for overdrive mode"
set_parameter_property CDR_O DESCRIPTION "Clock divider ratio for overdrive mode"
set_parameter_property CDR_O DISPLAY_NAME CDR_O
set_parameter_property CDR_O DISPLAY_NAME CDR_O
set_parameter_property CDR_O DEFAULT_VALUE 1
set_parameter_property CDR_O DEFAULT_VALUE 1
set_parameter_property CDR_O AFFECTS_GENERATION false
set_parameter_property CDR_O AFFECTS_GENERATION false
Line 131... Line 167...
set_interface_property s1 writeWaitTime 0
set_interface_property s1 writeWaitTime 0
 
 
set_interface_property s1 ASSOCIATED_CLOCK clock_reset
set_interface_property s1 ASSOCIATED_CLOCK clock_reset
set_interface_property s1 ENABLED true
set_interface_property s1 ENABLED true
 
 
add_interface_port s1 bus_read read Input 1
add_interface_port s1 bus_ren read      Input  1
add_interface_port s1 bus_write write Input 1
add_interface_port s1 bus_wen write     Input  1
add_interface_port s1 bus_writedata writedata Input BDW
add_interface_port s1 bus_adr address   Input  BAW
add_interface_port s1 bus_readdata readdata Output BDW
add_interface_port s1 bus_wdt writedata Input  BDW
 
add_interface_port s1 bus_rdt readdata  Output BDW
 
 
# connection point irq
# connection point irq
add_interface irq interrupt end
add_interface irq interrupt end
set_interface_property irq associatedClock clock_reset
set_interface_property irq associatedClock clock_reset
set_interface_property irq associatedAddressablePoint s1
set_interface_property irq associatedAddressablePoint s1
 
 
set_interface_property irq ASSOCIATED_CLOCK clock_reset
set_interface_property irq ASSOCIATED_CLOCK clock_reset
set_interface_property irq ENABLED true
set_interface_property irq ENABLED true
 
 
add_interface_port irq bus_interrupt irq Output 1
add_interface_port irq bus_irq irq Output 1
 
 
# connection point conduit
# connection point conduit
add_interface ext conduit end
add_interface ext conduit end
 
 
set_interface_property ext ENABLED true
set_interface_property ext ENABLED true
 
 
add_interface_port ext onewire_p export Output 1
add_interface_port ext owr_p export Output OWN
add_interface_port ext onewire_e export Output 1
add_interface_port ext owr_e export Output OWN
add_interface_port ext onewire_i export Input  1
add_interface_port ext owr_i export Input  OWN
 
 
proc validation_callback {} {
proc validation_callback {} {
  # check if overdrive is enabled
  # check if overdrive is enabled
  set ovd [get_parameter_value OVD_E]
  set ovd_e [get_parameter_value OVD_E]
  # get clock frequency in Hz
  # get clock frequency in Hz
  set f [get_parameter_value F_CLK]
  set f [get_parameter_value F_CLK]
  # get base time periods
  # get base time periods
  set btp_n [get_parameter_value BTP_N]
  set btp_n [get_parameter_value BTP_N]
  set btp_o [get_parameter_value BTP_O]
  set btp_o [get_parameter_value BTP_O]
  # disable editing od dividers
  # enable/disable editing of overdrive divider
  set_parameter_property BTP_O ENABLED [expr {$ovd ? "true" : "false"}]
  set_parameter_property BTP_O ENABLED [expr {$ovd_e ? "true" : "false"}]
  # compute normal mode divider
  # compute normal mode divider
  if {$btp_n=="5.0"} {
  if {$btp_n=="5.0"} {
    set d_n [expr {$f/200000}]
    set d_n [expr {$f/200000}]
    set t_n [expr {1000000.0/($f/$d_n)}]
    set t_n [expr {1000000.0/($f/$d_n)}]
    set e_n [expr {$t_n/5.0-1}]
    set e_n [expr {$t_n/5.0-1}]
Line 176... Line 213...
    set d_n [expr {$f/133333}]
    set d_n [expr {$f/133333}]
    set t_n [expr {1000000.0/($f/$d_n)}]
    set t_n [expr {1000000.0/($f/$d_n)}]
    set e_n [expr {$t_n/7.5-1}]
    set e_n [expr {$t_n/7.5-1}]
  } elseif {$btp_n=="6.0"} {
  } elseif {$btp_n=="6.0"} {
    set d_n [expr {$f/133333}]
    set d_n [expr {$f/133333}]
    set t_n [expr {1000000.0/($f/$d_n)}]
    set t_n [expr {$d_n*1000000.0/$f}]
    if {(6.0<=$t_n) && ($t_n<=7.5)} {
    if {$t_n>7.5} {
      set e_n 0.0
      set e_n [expr {$t_n/7.5-1}]
    } else {
    } elseif {6.0>$t_n} {
      set e_n [expr {$t_n/6.0-1}]
      set e_n [expr {$t_n/6.0-1}]
 
    } else {
 
      set e_n 0.0
    }
    }
  }
  }
  # compute overdrive mode divider
  # compute overdrive mode divider
  if {$btp_o=="1.0"} {
  if {$btp_o=="1.0"} {
    set d_o [expr {$f/1000000}]
    set d_o [expr {$f/1000000}]
    set t_o [expr {1000000.0/($f/$d_o)}]
    set t_o [expr {1000000.0/($f/$d_o)}]
    set e_o [expr {$t_o/1.0-1}]
    set e_o [expr {$t_o/1.0-1}]
  } elseif {$btp_o=="0.5"} {
  } elseif {$btp_o=="0.5"} {
    set d_o [expr {$f/1500000}]
    set d_o [expr {$f/1500000}]
    set t_o [expr {1000000.0/($f/$d_o)}]
    set t_o [expr {$d_o*1000000.0/$f}]
    if {(0.5<=$t_o) && ($t_o<=(2.0/3))} {
    if {$t_o>(2.0/3)} {
      set e_o 0.0
      set e_o [expr {$t_o/(2.0/3)-1}]
    } else {
    } elseif {0.5>$t_o} {
      set e_o [expr {$t_o/0.5-1}]
      set e_o [expr {$t_o/0.5-1}]
 
    } else {
 
      set e_o 0.0
    }
    }
  }
  }
  # set divider values
  # set divider values
             set_parameter_value CDR_N $d_n
               set_parameter_value CDR_N [expr {$d_n-1}]
  if {$ovd} {set_parameter_value CDR_O $d_o}
  if {$ovd_e} {set_parameter_value CDR_O [expr {$d_o-1}]}
  # report BTP values and relative errors
  # report BTP values and relative errors
  send_message info "BTP_N (normal    mode 'base time period') is [format %.2f $t_n], relative error is [format %.1f [expr {$e_n*100}]]%."
  send_message info "BTP_N (normal    mode 'base time period') is [format %.2f $t_n], relative error is [format %.1f [expr {$e_n*100}]]%."
  send_message info "BTP_O (overdrive mode 'base time period') is [format %.2f $t_o], relative error is [format %.1f [expr {$e_o*100}]]%."
  send_message info "BTP_O (overdrive mode 'base time period') is [format %.2f $t_o], relative error is [format %.1f [expr {$e_o*100}]]%."
  # repport validatio errors if relative error are outside accepted bounds (2%)
  # repport validatio errors if relative error are outside accepted bounds (2%)
  if {abs($e_n)>0.02} {send_message error "BTP_N is outside accepted bounds (relative error > 2%). Use a different 'base time period' or system frequency."}
  if {abs($e_n)>0.02} {send_message error "BTP_N is outside accepted bounds (relative error > 2%). Use a different 'base time period' or system frequency."}
Line 211... Line 252...
}
}
 
 
proc elaboration_callback {} {
proc elaboration_callback {} {
  # add software defines
  # add software defines
  set_module_assignment embeddedsw.CMacro.OWN          [get_parameter_value OWN  ]
  set_module_assignment embeddedsw.CMacro.OWN          [get_parameter_value OWN  ]
 
  set_module_assignment embeddedsw.CMacro.CDR_E [expr {[get_parameter_value CDR_E]?1:0}]
  set_module_assignment embeddedsw.CMacro.OVD_E [expr {[get_parameter_value OVD_E]?1:0}]
  set_module_assignment embeddedsw.CMacro.OVD_E [expr {[get_parameter_value OVD_E]?1:0}]
  set_module_assignment embeddedsw.CMacro.BTP_N        [get_parameter_value BTP_N]
 
  set_module_assignment embeddedsw.CMacro.BTP_O        [get_parameter_value BTP_O]
 
}
 
 
 
 No newline at end of file
 No newline at end of file
 
  set_module_assignment embeddedsw.CMacro.BTP_N      \"[get_parameter_value BTP_N]\"
 
  set_module_assignment embeddedsw.CMacro.BTP_O      \"[get_parameter_value BTP_O]\"
 
  set_module_assignment embeddedsw.CMacro.CDR_N        [get_parameter_value CDR_N]
 
  set_module_assignment embeddedsw.CMacro.CDR_O        [get_parameter_value CDR_O]
 
  # get clock frequency in Hz
 
  set f     [get_parameter_value F_CLK]
 
  # get base time period
 
  set btp_n [get_parameter_value BTP_N]
 
  # get clock divider ratio
 
  set cdr_n [get_parameter_value CDR_N]
 
  # compute delay time in seconds [s]
 
  if {$btp_n=="5.0"} {
 
    set t_dly [expr {200.*($cdr_n+1)/$f}]
 
  } elseif {$btp_n=="7.5"} {
 
    set t_dly [expr {128.*($cdr_n+1)/$f}]
 
  } elseif {$btp_n=="6.0"} {
 
    set t_dly [expr {160.*($cdr_n+1)/$f}]
 
  }
 
  # give the software a u16.16 representation of delay frequency in kilo hertz [kHz]
 
  set_module_assignment embeddedsw.CMacro.F_DLY [format %.0f [expr {pow(2,16) / (1000*$t_dly)}]]
 
}
 
 
 No newline at end of file
 No newline at end of file

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.