; Toshiba MeP Media Engine architecture description.  -*- Scheme -*-
; Copyright (C) 2001, 2002 Red Hat, Inc.
; This file is part of CGEN.
; See file COPYING.CGEN for details.

; 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)))
     ())