开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > VHDL/FPGA/Verilog > 查看源码
write2file.do
资源名称：8051的内核(vhdl).zip　[点击查看]
上传用户：sztwq510
上传日期：2007-04-20
资源大小：209k
文件大小：4k
源码类别：

VHDL/FPGA/Verilog

开发平台：

Matlab

write2file.do：源码内容
  1. set filenr [open regs.log w]
  2. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/s_r0_b0]
  3. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/s_r1_b0]
  4. for {set x 2} {$x<8} {incr x} {
  5.   puts $filenr [examine /i_mc8051_top/i_mc8051_ram/gpram($x)]}
  6. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/s_r0_b1]
  7. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/s_r1_b1]
  8. for {set x 10} {$x<16} {incr x} {
  9.   puts $filenr [examine /i_mc8051_top/i_mc8051_ram/gpram($x)]}
  10. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/s_r0_b2]
  11. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/s_r1_b2]
  12. for {set x 18} {$x<24} {incr x} {
  13.   puts $filenr [examine /i_mc8051_top/i_mc8051_ram/gpram($x)]}
  14. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/s_r0_b3]
  15. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/s_r1_b3]
  16. for {set x 26} {$x<32} {incr x} {
  17.   puts $filenr [examine /i_mc8051_top/i_mc8051_ram/gpram($x)]}
  18. for {set x 0} {$x<16} {incr x} {
  19.   puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/gprbit($x)]}
  20. for {set x 48} {$x<128} {incr x} {
  21.   puts $filenr [examine /i_mc8051_top/i_mc8051_ram/gpram($x)]}
  22. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/p0]
  23. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/sp]
  24. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/dpl]
  25. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/dph]
  26. for {set x 0} {$x<3} {incr x} {
  27.   puts $filenr 00000000}
  28. puts $filenr 0000[examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/pcon]
  29. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/tcon(0)]
  30. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/tmod(0)]
  31. set murli ""
  32. for {set x 0} {$x<8} {incr x} {
  33.   set murli [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/all_tl0_i($x)]$murli}
  34. puts $filenr $murli
  35. set murli ""
  36. for {set x 0} {$x<8} {incr x} {
  37.   set murli [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/all_tl1_i($x)]$murli}
  38. puts $filenr $murli
  39. set murli ""
  40. for {set x 0} {$x<8} {incr x} {
  41.   set murli [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/all_th0_i($x)]$murli}
  42. puts $filenr $murli
  43. set murli ""
  44. for {set x 0} {$x<8} {incr x} {
  45.   set murli [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/all_th1_i($x)]$murli}
  46. puts $filenr $murli
  47. for {set x 0} {$x<2} {incr x} {
  48.   puts $filenr 00000000}
  49. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/p1]
  50. for {set x 0} {$x<7} {incr x} {
  51.   puts $filenr 00000000}
  52. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/scon(0)]
  53. set murli ""
  54. for {set x 0} {$x<8} {incr x} {
  55.   set murli [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/all_sbuf_i($x)]$murli}
  56. puts $filenr $murli
  57. for {set x 0} {$x<6} {incr x} {
  58.   puts $filenr 00000000}
  59. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/p2]
  60. for {set x 0} {$x<7} {incr x} {
  61.   puts $filenr 00000000}
  62. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/ie]
  63. for {set x 0} {$x<7} {incr x} {
  64.   puts $filenr 00000000}
  65. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/p3]
  66. for {set x 0} {$x<7} {incr x} {
  67.   puts $filenr 00000000}
  68. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/ip]
  69. for {set x 0} {$x<23} {incr x} {
  70.   puts $filenr 00000000}
  71. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/psw]
  72. for {set x 0} {$x<15} {incr x} {
  73.   puts $filenr 00000000}
  74. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/acc]
  75. for {set x 0} {$x<15} {incr x} {
  76.   puts $filenr 00000000}
  77. puts $filenr [examine /i_mc8051_top/i_mc8051_core/i_mc8051_control/i_control_mem/b]
  78. for {set x 0} {$x<15} {incr x} {
  79.   puts $filenr 00000000}
  80. close $filenr