; IQ2000-only CPU description. -*- Scheme -*- ; ; Copyright 2000, 2001, 2002, 2004 Free Software Foundation, Inc. ; ; Contributed by Red Hat Inc; developed under contract from Vitesse. ; ; 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 2 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. (dni andoui "and upper ones immediate" (MACH2000 USES-RS USES-RT) "andoui $rt,$rs,$hi16" (+ OP_ANDOUI rs rt hi16) (set rt (and rs (or (sll hi16 16) #xFFFF))) ()) (dni andoui2 "and upper ones immediate" (ALIAS NO-DIS MACH2000 USES-RS USES-RT) "andoui ${rt-rs},$hi16" (+ OP_ANDOUI rt-rs hi16) (set rt-rs (and rt-rs (or (sll hi16 16) #xFFFF))) ()) (dni orui2 "or upper immediate" (ALIAS NO-DIS MACH2000 USES-RS USES-RT) "orui ${rt-rs},$hi16" (+ OP_ORUI rt-rs hi16) (set rt-rs (or rt-rs (sll hi16 16))) ()) (dni orui "or upper immediate" (MACH2000 USES-RS USES-RT) "orui $rt,$rs,$hi16" (+ OP_ORUI rs rt hi16) (set rt (or rs (sll hi16 16))) ()) (dni bgtz "branch if greater than zero" (MACH2000 USES-RS) "bgtz $rs,$offset" (+ OP_BGTZ rs (f-rt 0) offset) (if (gt rs 0) (delay 1 (set pc offset))) ()) (dni bgtzl "branch if greater than zero likely" (MACH2000 USES-RS) "bgtzl $rs,$offset" (+ OP_BGTZL rs (f-rt 0) offset) (if (gt rs 0) (delay 1 (set pc offset)) (skip 1)) ()) (dni blez "branch if less than or equal to zero" (MACH2000 USES-RS) "blez $rs,$offset" (+ OP_BLEZ rs (f-rt 0) offset) (if (le rs 0) (delay 1 (set pc offset))) ()) (dni blezl "branch if less than or equal to zero likely" (MACH2000 USES-RS) "blezl $rs,$offset" (+ OP_BLEZL rs (f-rt 0) offset) (if (le rs 0) (delay 1 (set pc offset)) (skip 1)) ()) (dni mrgb "merge bytes" (MACH2000 USES-RD USES-RS USES-RT) "mrgb $rd,$rs,$rt,$mask" (+ OP_SPECIAL rs rt rd (f-10 0) mask FUNC_MRGB) (sequence ((SI temp)) (if (bitclear? mask 0) (set temp (and rs #xFF)) (set temp (and rt #xFF))) (if (bitclear? mask 1) (set temp (or temp (and rs #xFF00))) (set temp (or temp (and rt #xFF00)))) (if (bitclear? mask 2) (set temp (or temp (and rs #xFF0000))) (set temp (or temp (and rt #xFF0000)))) (if (bitclear? mask 3) (set temp (or temp (and rs #xFF000000))) (set temp (or temp (and rt #xFF000000)))) (set rd temp)) ()) (dni mrgb2 "merge bytes" (ALIAS NO-DIS MACH2000 USES-RD USES-RS USES-RT) "mrgb ${rd-rs},$rt,$mask" (+ OP_SPECIAL rt rd-rs (f-10 0) mask FUNC_MRGB) (sequence ((SI temp)) (if (bitclear? mask 0) (set temp (and rd-rs #xFF)) (set temp (and rt #xFF))) (if (bitclear? mask 1) (set temp (or temp (and rd-rs #xFF00))) (set temp (or temp (and rt #xFF00)))) (if (bitclear? mask 2) (set temp (or temp (and rd-rs #xFF0000))) (set temp (or temp (and rt #xFF0000)))) (if (bitclear? mask 3) (set temp (or temp (and rd-rs #xFF000000))) (set temp (or temp (and rt #xFF000000)))) (set rd-rs temp)) ()) ; NOTE: None of these instructions' semantics are specified, so they ; will not work in a simulator. ; ; Architectural and coprocessor instructions. ; BREAK and SYSCALL are implemented with escape hatches to the C ; code. These are used by the test suite to indicate pass/failures. (dni bctxt "branch and switch context" (MACH2000 DELAY-SLOT COND-CTI USES-RS) "bctxt $rs,$offset" (+ OP_REGIMM rs (f-rt 6) offset) (unimp bctxt) ()) (dni bc0f "branch if copro 0 condition false" (MACH2000 DELAY-SLOT COND-CTI) "bc0f $offset" (+ OP_COP0 (f-rs 8) (f-rt 0) offset) (unimp bc0f) ()) (dni bc0fl "branch if copro 0 condition false likely" (MACH2000 DELAY-SLOT COND-CTI SKIP-CTI) "bc0fl $offset" (+ OP_COP0 (f-rs 8) (f-rt 2) offset) (unimp bc0fl) ()) (dni bc3f "branch if copro 3 condition false" (MACH2000 DELAY-SLOT COND-CTI) "bc3f $offset" (+ OP_COP3 (f-rs 8) (f-rt 0) offset) (unimp bc3f) ()) (dni bc3fl "branch if copro 3 condition false likely" (MACH2000 DELAY-SLOT COND-CTI SKIP-CTI) "bc3fl $offset" (+ OP_COP3 (f-rs 8) (f-rt 2) offset) (unimp bc3fl) ()) (dni bc0t "branch if copro 0 condition true" (MACH2000 DELAY-SLOT COND-CTI) "bc0t $offset" (+ OP_COP0 (f-rs 8) (f-rt 1) offset) (unimp bc0t) ()) (dni bc0tl "branch if copro 0 condition true likely" (MACH2000 DELAY-SLOT COND-CTI SKIP-CTI) "bc0tl $offset" (+ OP_COP0 (f-rs 8) (f-rt 3) offset) (unimp bc0tl) ()) (dni bc3t "branch if copro 3 condition true" (MACH2000 DELAY-SLOT COND-CTI) "bc3t $offset" (+ OP_COP3 (f-rs 8) (f-rt 1) offset) (unimp bc3t) ()) (dni bc3tl "branch if copro 3 condition true likely" (MACH2000 DELAY-SLOT COND-CTI SKIP-CTI) "bc3tl $offset" (+ OP_COP3 (f-rs 8) (f-rt 3) offset) (unimp bc3tl) ()) ; Note that we don't set the USES-RD or USES-RT attributes for many of the following ; instructions, as it's the COP register that's being specified. (dni cfc0 "control from coprocessor 0" (MACH2000 LOAD-DELAY USES-RT) "cfc0 $rt,$rd" (+ OP_COP0 (f-rs 2) rt rd (f-10-11 0)) (unimp cfc0) ()) (dni cfc1 "control from coprocessor 1" (MACH2000 LOAD-DELAY USES-RT) "cfc1 $rt,$rd" (+ OP_COP1 (f-rs 2) rt rd (f-10-11 0)) (unimp cfc1) ()) (dni cfc2 "control from coprocessor 2" (MACH2000 LOAD-DELAY USES-RT YIELD-INSN) "cfc2 $rt,$rd" (+ OP_COP2 (f-rs 2) rt rd (f-10-11 0)) (unimp cfc2) ()) (dni cfc3 "control from coprocessor 3" (MACH2000 LOAD-DELAY USES-RT YIELD-INSN) "cfc3 $rt,$rd" (+ OP_COP3 (f-rs 2) rt rd (f-10-11 0)) (unimp cfc3) ()) ; COPz instructions are an instruction form, not real instructions ; with associated assembly mnemonics. Therefore, they are omitted ; from the ISA description. (dni chkhdr "check header" (MACH2000 LOAD-DELAY USES-RD YIELD-INSN) "chkhdr $rd,$rt" (+ OP_COP3 (f-rs 9) rt rd (f-shamt 0) (f-func 0)) (unimp chkhdr) ()) (dni ctc0 "control to coprocessor 0" (MACH2000 USES-RT) "ctc0 $rt,$rd" (+ OP_COP0 (f-rs 6) rt rd (f-10-11 0)) (unimp ctc0) ()) (dni ctc1 "control to coprocessor 1" (MACH2000 USES-RT) "ctc1 $rt,$rd" (+ OP_COP1 (f-rs 6) rt rd (f-10-11 0)) (unimp ctc1) ()) (dni ctc2 "control to coprocessor 2" (MACH2000 USES-RT) "ctc2 $rt,$rd" (+ OP_COP2 (f-rs 6) rt rd (f-10-11 0)) (unimp ctc2) ()) (dni ctc3 "control to coprocessor 3" (MACH2000 USES-RT) "ctc3 $rt,$rd" (+ OP_COP3 (f-rs 6) rt rd (f-10-11 0)) (unimp ctc3) ()) (dni jcr "jump context register" (MACH2000 DELAY-SLOT UNCOND-CTI USES-RS) "jcr $rs" (+ OP_SPECIAL rs (f-rt 0) (f-rd 0) (f-shamt 0) FUNC_JCR) (unimp jcr) ()) (dni luc32 "lookup chain 32 bits" (MACH2000 USES-RD USES-RT YIELD-INSN) "luc32 $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 3)) (unimp luc32) ()) (dni luc32l "lookup chain 32 bits and lock" (MACH2000 USES-RD USES-RT YIELD-INSN) "luc32l $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 7)) (unimp luc32l) ()) (dni luc64 "lookup chain 64 bits" (MACH2000 USES-RD USES-RT YIELD-INSN) "luc64 $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 11)) (unimp luc64) ()) (dni luc64l "lookup chain 64 bits and lock" (MACH2000 USES-RD USES-RT YIELD-INSN) "luc64l $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 15)) (unimp luc64l) ()) (dni luk "lookup key" (MACH2000 USES-RD USES-RT) "luk $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 8)) (unimp luk) ()) (dni lulck "lookup lock" (MACH2000 USES-RT YIELD-INSN) "lulck $rt" (+ OP_COP2 (f-rs 1) rt (f-rd 0) (f-shamt 0) (f-func 4)) (unimp lulck) ()) (dni lum32 "lookup match 32 bits" (MACH2000 USES-RD USES-RT YIELD-INSN) "lum32 $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 2)) (unimp lum32) ()) (dni lum32l "lookup match 32 bits and lock" (MACH2000 USES-RD USES-RT YIELD-INSN) "lum32l $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 6)) (unimp lum32l) ()) (dni lum64 "lookup match 64 bits" (MACH2000 USES-RD USES-RT YIELD-INSN) "lum64 $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 10)) (unimp lum64) ()) (dni lum64l "lookup match 64 bits and lock" (MACH2000 USES-RD USES-RT YIELD-INSN) "lum64l $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 14)) (unimp lum64l) ()) (dni lur "lookup read" (MACH2000 USES-RD USES-RT YIELD-INSN) "lur $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 1)) (unimp lur) ()) (dni lurl "lookup read and lock" (MACH2000 USES-RD USES-RT YIELD-INSN) "lurl $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 5)) (unimp lurl) ()) (dni luulck "lookup unlock" (MACH2000 USES-RT YIELD-INSN) "luulck $rt" (+ OP_COP2 (f-rs 1) rt (f-rd 0) (f-shamt 0) (f-func 0)) (unimp luulck) ()) (dni mfc0 "move from coprocessor 0" (MACH2000 LOAD-DELAY USES-RT) "mfc0 $rt,$rd" (+ OP_COP0 (f-rs 0) rt rd (f-10-11 0)) (unimp mfc0) ()) (dni mfc1 "move from coprocessor 1" (MACH2000 LOAD-DELAY USES-RT) "mfc1 $rt,$rd" (+ OP_COP1 (f-rs 0) rt rd (f-10-11 0)) (unimp mfc1) ()) (dni mfc2 "move from coprocessor 2" (MACH2000 LOAD-DELAY USES-RT YIELD-INSN) "mfc2 $rt,$rd" (+ OP_COP2 (f-rs 0) rt rd (f-10-11 0)) (unimp mfc2) ()) (dni mfc3 "move from coprocessor 3" (MACH2000 LOAD-DELAY USES-RT YIELD-INSN) "mfc3 $rt,$rd" (+ OP_COP3 (f-rs 0) rt rd (f-10-11 0)) (unimp mfc3) ()) (dni mtc0 "move to coprocessor 0" (MACH2000 USES-RT) "mtc0 $rt,$rd" (+ OP_COP0 (f-rs 4) rt rd (f-10-11 0)) (unimp mtc0) ()) (dni mtc1 "move to coprocessor 1" (MACH2000 USES-RT) "mtc1 $rt,$rd" (+ OP_COP1 (f-rs 4) rt rd (f-10-11 0)) (unimp mtc1) ()) (dni mtc2 "move to coprocessor 2" (MACH2000 USES-RT) "mtc2 $rt,$rd" (+ OP_COP2 (f-rs 4) rt rd (f-10-11 0)) (unimp mtc2) ()) (dni mtc3 "move to coprocessor 3" (MACH2000 USES-RT) "mtc3 $rt,$rd" (+ OP_COP3 (f-rs 4) rt rd (f-10-11 0)) (unimp mtc3) ()) (dni pkrl "pkrl" (MACH2000 USES-RD USES-RT YIELD-INSN) "pkrl $rd,$rt" (+ OP_COP3 (f-rs 1) rt rd (f-shamt 0) (f-func 7)) (unimp pkrl) ()) (dni pkrlr1 "pkrlr1" (MACH2000 USES-RT YIELD-INSN) "pkrlr1 $rt,$_index,$count" (+ OP_COP3 (f-rs 29) rt count _index) (unimp pkrlr1) ()) (dni pkrlr30 "pkrlr30" (MACH2000 USES-RT YIELD-INSN) "pkrlr30 $rt,$_index,$count" (+ OP_COP3 (f-rs 31) rt count _index) (unimp pkrlr30) ()) (dni rb "dma read bytes" (MACH2000 USES-RD USES-RT YIELD-INSN) "rb $rd,$rt" (+ OP_COP3 (f-rs 1) rt rd (f-shamt 0) (f-func 4)) (unimp rb) ()) (dni rbr1 "dma read bytes using r1" (MACH2000 USES-RT YIELD-INSN) "rbr1 $rt,$_index,$count" (+ OP_COP3 (f-rs 24) rt count _index) (unimp rbr1) ()) (dni rbr30 "dma read bytes using r30" (MACH2000 USES-RT YIELD-INSN) "rbr30 $rt,$_index,$count" (+ OP_COP3 (f-rs 26) rt count _index) (unimp rbr30) ()) (dni rfe "restore from exception" (MACH2000) "rfe" (+ OP_COP0 (f-25 1) (f-24-19 0) (f-func 16)) (unimp rfe) ()) (dni rx "dma read word64s" (MACH2000 USES-RD USES-RT YIELD-INSN) "rx $rd,$rt" (+ OP_COP3 (f-rs 1) rt rd (f-shamt 0) (f-func 6)) (unimp rx) ()) (dni rxr1 "dma read word64s using r1" (MACH2000 USES-RT YIELD-INSN) "rxr1 $rt,$_index,$count" (+ OP_COP3 (f-rs 28) rt count _index) (unimp rxr1) ()) (dni rxr30 "dma read word 64s using r30" (MACH2000 USES-RT YIELD-INSN) "rxr30 $rt,$_index,$count" (+ OP_COP3 (f-rs 30) rt count _index) (unimp rxr30) ()) (dni sleep "sleep" (MACH2000 YIELD-INSN) "sleep" (+ OP_SPECIAL execode FUNC_SLEEP) (unimp sleep) ()) (dni srrd "sram read" (MACH2000 USES-RT YIELD-INSN) "srrd $rt" (+ OP_COP2 (f-rs 1) rt (f-rd 0) (f-shamt 0) (f-func 16)) (unimp srrd) ()) (dni srrdl "sram read and lock" (MACH2000 USES-RT YIELD-INSN) "srrdl $rt" (+ OP_COP2 (f-rs 1) rt (f-rd 0) (f-shamt 0) (f-func 20)) (unimp srrdl) ()) (dni srulck "sram unlock" (MACH2000 USES-RT YIELD-INSN) "srulck $rt" (+ OP_COP2 (f-rs 1) rt (f-rd 0) (f-shamt 0) (f-func 22)) (unimp srulck) ()) (dni srwr "sram write" (MACH2000 USES-RD USES-RT YIELD-INSN) "srwr $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 17)) (unimp srwr) ()) (dni srwru "sram write and unlock" (MACH2000 USES-RD USES-RT YIELD-INSN) "srwru $rt,$rd" (+ OP_COP2 (f-rs 1) rt rd (f-shamt 0) (f-func 21)) (unimp srwru) ()) (dni trapqfl "yield if dma queue full" (MACH2000 YIELD-INSN) "trapqfl" (+ OP_COP3 (f-rs 1) (f-rt 0) (f-rd 0) (f-shamt 0) (f-func 8)) (unimp trapqfl) ()) (dni trapqne "yield if dma queue not empty" (MACH2000 YIELD-INSN) "trapqne" (+ OP_COP3 (f-rs 1) (f-rt 0) (f-rd 0) (f-shamt 0) (f-func 9)) (unimp trapqne) ()) (dni traprel "traprel" (MACH2000 USES-RT YIELD-INSN) "traprel $rt" (+ OP_COP3 (f-rs 1) rt (f-rd 0) (f-shamt 0) (f-func 10)) (unimp traprel) ()) (dni wb "dma write bytes" (MACH2000 USES-RD USES-RT YIELD-INSN) "wb $rd,$rt" (+ OP_COP3 (f-rs 1) rt rd (f-shamt 0) (f-func 0)) (unimp wb) ()) (dni wbu "dma write bytes and unlock" (MACH2000 USES-RD USES-RT YIELD-INSN) "wbu $rd,$rt" (+ OP_COP3 (f-rs 1) rt rd (f-shamt 0) (f-func 1)) (unimp wbu) ()) (dni wbr1 "dma write bytes using r1" (MACH2000 USES-RT YIELD-INSN) "wbr1 $rt,$_index,$count" (+ OP_COP3 (f-rs 16) rt count _index) (unimp wbr1) ()) (dni wbr1u "dma write bytes using r1 and unlock" (MACH2000 USES-RT YIELD-INSN) "wbr1u $rt,$_index,$count" (+ OP_COP3 (f-rs 17) rt count _index) (unimp wbr1u) ()) (dni wbr30 "dma write bytes using r30" (MACH2000 USES-RT YIELD-INSN) "wbr30 $rt,$_index,$count" (+ OP_COP3 (f-rs 18) rt count _index) (unimp wbr30) ()) (dni wbr30u "dma write bytes using r30 and unlock" (MACH2000 USES-RT YIELD-INSN) "wbr30u $rt,$_index,$count" (+ OP_COP3 (f-rs 19) rt count _index) (unimp wbr30u) ()) (dni wx "dma write word64s" (MACH2000 USES-RD USES-RT YIELD-INSN) "wx $rd,$rt" (+ OP_COP3 (f-rs 1) rt rd (f-shamt 0) (f-func 2)) (unimp wx) ()) (dni wxu "dma write word64s and unlock" (MACH2000 USES-RD USES-RT YIELD-INSN) "wxu $rd,$rt" (+ OP_COP3 (f-rs 1) rt rd (f-shamt 0) (f-func 3)) (unimp wxu) ()) (dni wxr1 "dma write word64s using r1" (MACH2000 USES-RT YIELD-INSN) "wxr1 $rt,$_index,$count" (+ OP_COP3 (f-rs 20) rt count _index) (unimp wxr1) ()) (dni wxr1u "dma write word64s using r1 and unlock" (MACH2000 USES-RT YIELD-INSN) "wxr1u $rt,$_index,$count" (+ OP_COP3 (f-rs 21) rt count _index) (unimp wxr1u) ()) (dni wxr30 "dma write word64s using r30" (MACH2000 USES-RT YIELD-INSN) "wxr30 $rt,$_index,$count" (+ OP_COP3 (f-rs 22) rt count _index) (unimp wxr30) ()) (dni wxr30u "dma write word64s using r30 and unlock" (MACH2000 USES-RT YIELD-INSN) "wxr30u $rt,$_index,$count" (+ OP_COP3 (f-rs 23) rt count _index) (unimp wxr30u) ()) ; Load/Store instructions. (dni ldw "load double word" (MACH2000 EVEN-REG-NUM LOAD-DELAY USES-RT) "ldw $rt,$lo16($base)" (+ OP_LDW base rt lo16) (sequence ((SI addr)) (set addr (and (add base lo16) (inv 3))) (set (reg h-gr (add (ifield f-rt) 1)) (mem SI addr)) (set rt (mem SI (add addr 4)))) ()) (dni sdw "store double word" (MACH2000 EVEN-REG-NUM USES-RT) "sdw $rt,$lo16($base)" (+ OP_SDW base rt lo16) (sequence ((SI addr)) (set addr (and (add base lo16) (inv 3))) (set (mem SI (add addr 4)) rt) (set (mem SI addr) (reg h-gr (add (ifield f-rt) 1)))) ()) ; Jump instructions (dni j "jump" (MACH2000) "j $jmptarg" (+ OP_J (f-rsrvd 0) jmptarg) (delay 1 (set pc jmptarg)) ()) (dni jal "jump and link" (MACH2000 USES-R31) "jal $jmptarg" (+ OP_JAL (f-rsrvd 0) jmptarg) (delay 1 (sequence () (set (reg h-gr 31) (add pc 8)) (set pc jmptarg))) ()) (dni bmb "branch if matching byte-lane" (MACH2000 USES-RS USES-RT) "bmb $rs,$rt,$offset" (+ OP_BMB rs rt offset) (sequence ((BI branch?)) (set branch? 0) (if (eq (and rs #xFF) (and rt #xFF)) (set branch? 1)) (if (eq (and rs #xFF00) (and rt #xFF00)) (set branch? 1)) (if (eq (and rs #xFF0000) (and rt #xFF0000)) (set branch? 1)) (if (eq (and rs #xFF000000) (and rt #xFF000000)) (set branch? 1)) (if branch? (delay 1 (set pc offset)))) ()) ; Macros (dnmi ldw-base-0 "load double word - implied base 0" (MACH2000 EVEN-REG-NUM LOAD-DELAY USES-RT USES-RS NO-DIS) "ldw $rt,$lo16" (emit ldw rt lo16 (base 0)) ) (dnmi sdw-base-0 "store double word - implied base 0" (MACH2000 EVEN-REG-NUM USES-RT NO-DIS) "sdw $rt,$lo16" (emit sdw rt lo16 (base 0)) )