Subversion Repositories open8_urisc

; Toshiba MeP Media Engine architecture description.  -*- Scheme -*-

; Copyright 2011 Free Software Foundation, Inc.

;

; Contributed by Red Hat Inc;

;

; This file is part of the GNU Binutils.

;

; 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 3 of the License, 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.

;

; You should have received a copy of the GNU General Public License

; along with this program; if not, write to the Free Software

; Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,

; MA 02110-1301, USA.

; This file provides sample definitions for the UCI and DSP

; instructions.  It is incorporated into the overall description by

; including it from a top-level file that includes all of the required

; option files.

; UCI option.

(define-pmacro mep-ext1-isa () (ISA ext_core1))

; uci instructions for ELFextension test

; uci.elfext.1    $simm16

; 1111_IIII_0000_0010 0001_iiii_iiii_iiii

; simm16 = I[4:7]||i[20:31]

; uci.elfext.2    $uimm16

; 1111_IIII_0000_0010 0010_iiii_iiii_iiii

; uimm16 = I[4:7]||i[20:31]

; define simm16

(df f-uci_elfext_1-hi  "uci_elfext_1 simm16 hi 4s7"   (mep-ext1-isa)  4  4  INT #f #f)

(df f-uci_elfext_1-lo  "uci_elfext_1 simm16 lo 20s31" (mep-ext1-isa) 20 12 UINT #f #f)

(define-multi-ifield

  (name f-uci_elfext_1)

  (comment "16-bits uci_elfext_ signed constant")

  (attrs mep-ext1-isa)

  (mode INT)

  (subfields f-uci_elfext_1-hi f-uci_elfext_1-lo)

  (insert (sequence ()

                    (set (ifield f-uci_elfext_1-hi) (srl (ifield f-uci_elfext_1) 12))

                    (set (ifield f-uci_elfext_1-lo) (and (ifield f-uci_elfext_1) #xfff))))

  (extract (set (ifield f-uci_elfext_1)

                (or (sll (ifield f-uci_elfext_1-hi) 12)

                    (ifield f-uci_elfext_1-lo))))

  )

(dpop uci_elfext_1simm16    "signed imm (16 bits)"  (mep-ext1-isa) h-sint  f-uci_elfext_1  "signed16")

; define uimm16

(df f-uci_elfext_2-hi  "uci_elfext_2 uimm16 hi 4u7"   (mep-ext1-isa)  4  4 UINT #f #f)

(df f-uci_elfext_2-lo  "uci_elfext_2 uimm16 lo 20u31" (mep-ext1-isa) 20 12 UINT #f #f)

(define-multi-ifield

  (name f-uci_elfext_2)

  (comment "16-bits uci_elfext_ unsigned constant")

  (attrs mep-ext1-isa)

  (mode UINT)

  (subfields f-uci_elfext_2-hi f-uci_elfext_2-lo)

  (insert (sequence ()

                    (set (ifield f-uci_elfext_2-hi) (srl (ifield f-uci_elfext_2) 12))

                    (set (ifield f-uci_elfext_2-lo) (and (ifield f-uci_elfext_2) #xfff))))

  (extract (set (ifield f-uci_elfext_2)

                (or (sll (ifield f-uci_elfext_2-hi) 12)

                    (ifield f-uci_elfext_2-lo))))

  )

(dpop uci_elfext_2uimm16    "unsigned imm (16 bits)"  (mep-ext1-isa) h-uint  f-uci_elfext_2  "unsigned16")

; define sub-opcode

(df f-uci_elfext-sub  "sub-opcode for uci_elfext instructions"  (mep-ext1-isa) 16 4 UINT #f #f)

; define instruction

(dni uci.elfext.1 "uci_elfext instruction 1" (OPTIONAL_UCI_INSN VOLATILE mep-ext1-isa)

         "uci.elfext.1 $uci_elfext_1simm16"

         (+ MAJ_15 (f-rm 0) (f-sub4 2) (f-uci_elfext-sub 1) uci_elfext_1simm16)

         (c-call "check_option_uci" pc)

         ()

         )

; define instruction

(dni uci.elfext.2 "uci_elfext instruction 1" (OPTIONAL_UCI_INSN VOLATILE mep-ext1-isa)

         "uci.elfext.2 $uci_elfext_2uimm16"

         (+ MAJ_15 (f-rm 0) (f-sub4 2) (f-uci_elfext-sub 2) uci_elfext_2uimm16)

         (c-call "check_option_uci" pc)

         ()

         )

;; some general samples

; UCI option.

(dni uci "user defined instruction" (OPTIONAL_UCI_INSN mep-ext1-isa)

     "uci $rn,$rm,$code16"

     (+ MAJ_15 rn rm (f-sub4 2) code16)

     (sequence ()

               (c-call "check_option_uci" pc)

               (unimp "uci"))

     ())

; DSP option.

(dni dsp "dsp instruction" (OPTIONAL_DSP_INSN mep-ext1-isa)

     "dsp $rn,$rm,$code16"

     (+ MAJ_15 rn rm (f-sub4 0) code16)

     (sequence ()

               (c-call "check_option_dsp" pc)

               (set pc (c-call USI "dsp_exception" pc)))

     ())