summaryrefslogtreecommitdiffstats
path: root/binutils-2.17/cpu/iq2000m.cpu
diff options
context:
space:
mode:
Diffstat (limited to 'binutils-2.17/cpu/iq2000m.cpu')
-rw-r--r--binutils-2.17/cpu/iq2000m.cpu630
1 files changed, 0 insertions, 630 deletions
diff --git a/binutils-2.17/cpu/iq2000m.cpu b/binutils-2.17/cpu/iq2000m.cpu
deleted file mode 100644
index 3feb97b5..00000000
--- a/binutils-2.17/cpu/iq2000m.cpu
+++ /dev/null
@@ -1,630 +0,0 @@
-; 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))
-)
-
-
-
-
-
-
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-19 02:33:35 +0000