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

Subversion Repositories core_arm

[/] [core_arm/] [trunk/] [soft/] [cdef/] [m68k.el] - Blame information for rev 4

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 2 tarookumic
(progn
2
  (load "cdef_lib_b1")
3
  (load "cdef_lib_c1")
4
  (load "cdef_lib_g1")
5
  (load "cdef_lib_l1")
6
  (load "cdef_lib_m1")
7
  (load "cdef_lib_i1")
8
  (load "cdef_lib_h1")
9
  (load "cdef_lib_pc")
10
  (load "cdef_lib_pv")
11
)
12
 
13
(progn
14
  (if (load "cdef_lib_b1") ()(message "You have to set your elisp load-path variable, i.e: (setq load-path
15
      (append (list nil \"/home/eiselekd/vhdl_0.8/soft/cdef\") load-path)))"))
16
  (load "cdef_lib_c1")
17
  (load "cdef_lib_g1")
18
  (load "cdef_lib_l1")
19
  (load "cdef_lib_m1")
20
  (load "cdef_lib_i1")
21
  (load "cdef_lib_h1")
22
  (load "cdef_lib_pc")
23
  (load "cdef_lib_pv")
24
 
25
(setq insn-help '())
26
 
27
 
28
;;      list order   0    1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31
29
;;                  31   30   29   28   27   26   25   24   23   22   21   20   19   18   17   16   15   14   13   12   11   10   09   08   07   06   05   04   03   02   01   00
30
(setq insn_dp_i_s '( c    c    c    c    0    0    0   op1  op1  op1  op1  dps  rn   rn   rn   rn   rd   rd   rd   rd   sha  sha  sha  sha  sha  sh   sh    0   rm   rm   rm   rm  ))
31
 
32
 
33
(setq insn '(
34
  insn_dp_i_s
35
 ))
36
 
37
(setq h (create-decoder-setenc (or-insn-set insn) insn 0))
38
;(insert (print-decoder h 0))
39
;(insert (print-decoder-c-pre h))
40
;(insert (print-decoder-c-structs insn insn-help))
41
(insert (print-decoder-vhd-pre h))
42
 
43
)

powered by: WebSVN 2.1.0

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