mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-18 11:08:26 +00:00
219 lines
6.3 KiB
Scheme
219 lines
6.3 KiB
Scheme
; Collection of macros, for GNU Binutils .cpu files. -*- Scheme -*-
|
||
;
|
||
; Copyright 2000, 2007, 2009 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.
|
||
|
||
; Enums.
|
||
|
||
; Define a normal enum without using name/value pairs.
|
||
; This is currently the same as define-full-enum but it needn't remain
|
||
; that way (it's define-full-enum that would change).
|
||
|
||
(define-pmacro (define-normal-enum name comment attrs prefix vals)
|
||
"Define a normal enum, fixed number of arguments."
|
||
(define-full-enum name comment attrs prefix vals)
|
||
)
|
||
|
||
; Define a normal insn enum.
|
||
|
||
(define-pmacro (define-normal-insn-enum name comment attrs prefix fld vals)
|
||
"Define a normal instruction opcode enum."
|
||
(define-full-insn-enum name comment attrs prefix fld vals)
|
||
)
|
||
|
||
; Instruction fields.
|
||
|
||
; Normally, fields are unsigned and have no encode/decode needs.
|
||
|
||
(define-pmacro (define-normal-ifield name comment attrs start length)
|
||
"Define a normal instruction field."
|
||
(define-full-ifield name comment attrs start length UINT #f #f)
|
||
)
|
||
|
||
; For those who don't like typing.
|
||
|
||
(define-pmacro (df name comment attrs start length mode encode decode)
|
||
"Shorthand form of normal fields requiring mode, encode/decode."
|
||
(define-full-ifield name comment attrs start length mode encode decode)
|
||
)
|
||
(define-pmacro dnf
|
||
"Shorthand form of define-normal-ifield."
|
||
define-normal-ifield
|
||
)
|
||
|
||
; Define a normal multi-ifield.
|
||
|
||
(define-pmacro (define-normal-multi-ifield name comment attrs
|
||
mode subflds insert extract)
|
||
"Define a normal multi-part instruction field."
|
||
(define-full-multi-ifield name comment attrs mode subflds insert extract)
|
||
)
|
||
|
||
; For those who don't like typing.
|
||
|
||
(define-pmacro dnmf
|
||
"Shorthand form of define-normal-multi-ifield."
|
||
define-normal-multi-ifield
|
||
)
|
||
|
||
; Simple multi-ifields: mode is UINT, default insert/extract support,
|
||
; default encode/decode support.
|
||
|
||
(define-pmacro (dsmf name comment attrs subflds)
|
||
"Define a simple multi-part instruction field."
|
||
(define-full-multi-ifield name comment attrs UINT subflds #f #f)
|
||
)
|
||
|
||
; Hardware.
|
||
|
||
; Simpler version for most hardware elements.
|
||
; Allow special assembler support specification but no semantic-name,
|
||
; getter/setter, or layout specs.
|
||
|
||
(define-pmacro (define-normal-hardware name comment attrs type
|
||
indices values handlers)
|
||
"Define a normal hardware element."
|
||
(define-full-hardware name comment attrs name type
|
||
indices values handlers () () ())
|
||
)
|
||
|
||
; For those who don't like typing.
|
||
|
||
(define-pmacro dnh
|
||
"Shorthand form of define-normal-hardware."
|
||
define-normal-hardware
|
||
)
|
||
|
||
; Simpler version of dnh that leaves out the indices, values, handlers,
|
||
; getter/setter, and layout specs.
|
||
; This is useful for 1 bit registers.
|
||
; ??? While dsh and dnh aren't that distinguishable when perusing a .cpu file,
|
||
; they both take a fixed number of positional arguments, and dsh is a proper
|
||
; subset of dnh with all arguments in the same positions, so methinks things
|
||
; are ok.
|
||
|
||
(define-pmacro (define-simple-hardware name comment attrs type)
|
||
"Define a simple hardware element (usually a scalar register)."
|
||
(define-full-hardware name comment attrs name type () () () () () ())
|
||
)
|
||
|
||
(define-pmacro dsh
|
||
"Shorthand form of define-simple-hardware."
|
||
define-simple-hardware
|
||
)
|
||
|
||
; Operands.
|
||
|
||
; Simpler version for most operands.
|
||
; Allow special assembler support specification but no handlers or
|
||
; getter/setter specs.
|
||
|
||
(define-pmacro (define-normal-operand name comment attrs type index)
|
||
"Define a normal operand."
|
||
(define-full-operand name comment attrs type DFLT index () () ())
|
||
)
|
||
|
||
; For those who don't like typing.
|
||
|
||
(define-pmacro dno
|
||
"Shorthand form of define-normal-operand."
|
||
define-normal-operand
|
||
)
|
||
|
||
; Deprecated, but still in wide use.
|
||
|
||
(define-pmacro dnop
|
||
"Shorthand form of define-normal-operand."
|
||
define-normal-operand
|
||
)
|
||
|
||
(define-pmacro (dndo x-name x-mode x-args
|
||
x-syntax x-base-ifield x-encoding x-ifield-assertion
|
||
x-getter x-setter)
|
||
"Define a normal derived operand."
|
||
(define-derived-operand
|
||
(name x-name)
|
||
(mode x-mode)
|
||
(args x-args)
|
||
(syntax x-syntax)
|
||
(base-ifield x-base-ifield)
|
||
(encoding x-encoding)
|
||
(ifield-assertion x-ifield-assertion)
|
||
(getter x-getter)
|
||
(setter x-setter)
|
||
)
|
||
)
|
||
|
||
; Instructions.
|
||
|
||
; Define an instruction object, normal version.
|
||
; At present all fields must be specified.
|
||
; Fields ifield-assertion is absent.
|
||
|
||
(define-pmacro (define-normal-insn name comment attrs syntax fmt semantics timing)
|
||
"Define a normal instruction."
|
||
(define-full-insn name comment attrs syntax fmt () semantics timing)
|
||
)
|
||
|
||
; To reduce the amount of typing.
|
||
; Note that this is the same name as the D'ni in MYST. Oooohhhh.....
|
||
; this must be the right way to go. :-)
|
||
|
||
(define-pmacro dni
|
||
"Shorthand form of define-normal-insn."
|
||
define-normal-insn
|
||
)
|
||
|
||
; Macro instructions.
|
||
|
||
; Define a macro-insn object, normal version.
|
||
; This only supports expanding to one real insn.
|
||
|
||
(define-pmacro (define-normal-macro-insn name comment attrs syntax expansion)
|
||
"Define a normal macro instruction."
|
||
(define-full-minsn name comment attrs syntax expansion)
|
||
)
|
||
|
||
; To reduce the amount of typing.
|
||
|
||
(define-pmacro dnmi
|
||
"Shorthand form of define-normal-macro-insn."
|
||
define-normal-macro-insn
|
||
)
|
||
|
||
; Modes.
|
||
; ??? Not currently available for use.
|
||
;
|
||
; Define Normal Mode
|
||
;
|
||
;(define-pmacro (define-normal-mode name comment attrs bits bytes
|
||
; non-mode-c-type printf-type sem-mode ptr-to host?)
|
||
; "Define a normal mode.\n"
|
||
; (define-full-mode name comment attrs bits bytes
|
||
; non-mode-c-type printf-type sem-mode ptr-to host?)
|
||
;)
|
||
;
|
||
; For those who don't like typing.
|
||
;(define-pmacro dnm
|
||
; "Shorthand form of define-normal-mode.\n"
|
||
; define-normal-mode
|
||
;)
|