mirror of
https://github.com/alsa-project/alsa-tools.git
synced 2025-10-29 05:40:25 -04:00
Added as10k1 tool (EMU10K1 FX8010 DSP assembler).
This commit is contained in:
Jaroslav Kysela
parent
a4569af2bb
commit
f2d80b5b5d
28 changed files with 3523 additions and 0 deletions
280
as10k1/COPYING
Normal file
280
as10k1/COPYING
Normal file
|
|
@ -0,0 +1,280 @@
|
||||||
|
GNU GENERAL PUBLIC LICENSE
|
||||||
|
Version 2, June 1991
|
||||||
|
|
||||||
|
Copyright (C) 1989, 1991 Free Software Foundation, Inc.
|
||||||
|
675 Mass Ave, Cambridge, MA 02139, USA
|
||||||
|
Everyone is permitted to copy and distribute verbatim copies
|
||||||
|
of this license document, but changing it is not allowed.
|
||||||
|
|
||||||
|
Preamble
|
||||||
|
|
||||||
|
The licenses for most software are designed to take away your
|
||||||
|
freedom to share and change it. By contrast, the GNU General Public
|
||||||
|
License is intended to guarantee your freedom to share and change free
|
||||||
|
software--to make sure the software is free for all its users. This
|
||||||
|
General Public License applies to most of the Free Software
|
||||||
|
Foundation's software and to any other program whose authors commit to
|
||||||
|
using it. (Some other Free Software Foundation software is covered by
|
||||||
|
the GNU Library General Public License instead.) You can apply it to
|
||||||
|
your programs, too.
|
||||||
|
|
||||||
|
When we speak of free software, we are referring to freedom, not
|
||||||
|
price. Our General Public Licenses are designed to make sure that you
|
||||||
|
have the freedom to distribute copies of free software (and charge for
|
||||||
|
this service if you wish), that you receive source code or can get it
|
||||||
|
if you want it, that you can change the software or use pieces of it
|
||||||
|
in new free programs; and that you know you can do these things.
|
||||||
|
|
||||||
|
To protect your rights, we need to make restrictions that forbid
|
||||||
|
anyone to deny you these rights or to ask you to surrender the rights.
|
||||||
|
These restrictions translate to certain responsibilities for you if you
|
||||||
|
distribute copies of the software, or if you modify it.
|
||||||
|
|
||||||
|
For example, if you distribute copies of such a program, whether
|
||||||
|
gratis or for a fee, you must give the recipients all the rights that
|
||||||
|
you have. You must make sure that they, too, receive or can get the
|
||||||
|
source code. And you must show them these terms so they know their
|
||||||
|
rights.
|
||||||
|
|
||||||
|
We protect your rights with two steps: (1) copyright the software, and
|
||||||
|
(2) offer you this license which gives you legal permission to copy,
|
||||||
|
distribute and/or modify the software.
|
||||||
|
|
||||||
|
Also, for each author's protection and ours, we want to make certain
|
||||||
|
that everyone understands that there is no warranty for this free
|
||||||
|
software. If the software is modified by someone else and passed on, we
|
||||||
|
want its recipients to know that what they have is not the original, so
|
||||||
|
that any problems introduced by others will not reflect on the original
|
||||||
|
authors' reputations.
|
||||||
|
|
||||||
|
Finally, any free program is threatened constantly by software
|
||||||
|
patents. We wish to avoid the danger that redistributors of a free
|
||||||
|
program will individually obtain patent licenses, in effect making the
|
||||||
|
program proprietary. To prevent this, we have made it clear that any
|
||||||
|
patent must be licensed for everyone's free use or not licensed at all.
|
||||||
|
|
||||||
|
The precise terms and conditions for copying, distribution and
|
||||||
|
modification follow.
|
||||||
|
|
||||||
|
GNU GENERAL PUBLIC LICENSE
|
||||||
|
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
||||||
|
|
||||||
|
0. This License applies to any program or other work which contains
|
||||||
|
a notice placed by the copyright holder saying it may be distributed
|
||||||
|
under the terms of this General Public License. The "Program", below,
|
||||||
|
refers to any such program or work, and a "work based on the Program"
|
||||||
|
means either the Program or any derivative work under copyright law:
|
||||||
|
that is to say, a work containing the Program or a portion of it,
|
||||||
|
either verbatim or with modifications and/or translated into another
|
||||||
|
language. (Hereinafter, translation is included without limitation in
|
||||||
|
the term "modification".) Each licensee is addressed as "you".
|
||||||
|
|
||||||
|
Activities other than copying, distribution and modification are not
|
||||||
|
covered by this License; they are outside its scope. The act of
|
||||||
|
running the Program is not restricted, and the output from the Program
|
||||||
|
is covered only if its contents constitute a work based on the
|
||||||
|
Program (independent of having been made by running the Program).
|
||||||
|
Whether that is true depends on what the Program does.
|
||||||
|
|
||||||
|
1. You may copy and distribute verbatim copies of the Program's
|
||||||
|
source code as you receive it, in any medium, provided that you
|
||||||
|
conspicuously and appropriately publish on each copy an appropriate
|
||||||
|
copyright notice and disclaimer of warranty; keep intact all the
|
||||||
|
notices that refer to this License and to the absence of any warranty;
|
||||||
|
and give any other recipients of the Program a copy of this License
|
||||||
|
along with the Program.
|
||||||
|
|
||||||
|
You may charge a fee for the physical act of transferring a copy, and
|
||||||
|
you may at your option offer warranty protection in exchange for a fee.
|
||||||
|
|
||||||
|
2. You may modify your copy or copies of the Program or any portion
|
||||||
|
of it, thus forming a work based on the Program, and copy and
|
||||||
|
distribute such modifications or work under the terms of Section 1
|
||||||
|
above, provided that you also meet all of these conditions:
|
||||||
|
|
||||||
|
a) You must cause the modified files to carry prominent notices
|
||||||
|
stating that you changed the files and the date of any change.
|
||||||
|
|
||||||
|
b) You must cause any work that you distribute or publish, that in
|
||||||
|
whole or in part contains or is derived from the Program or any
|
||||||
|
part thereof, to be licensed as a whole at no charge to all third
|
||||||
|
parties under the terms of this License.
|
||||||
|
|
||||||
|
c) If the modified program normally reads commands interactively
|
||||||
|
when run, you must cause it, when started running for such
|
||||||
|
interactive use in the most ordinary way, to print or display an
|
||||||
|
announcement including an appropriate copyright notice and a
|
||||||
|
notice that there is no warranty (or else, saying that you provide
|
||||||
|
a warranty) and that users may redistribute the program under
|
||||||
|
these conditions, and telling the user how to view a copy of this
|
||||||
|
License. (Exception: if the Program itself is interactive but
|
||||||
|
does not normally print such an announcement, your work based on
|
||||||
|
the Program is not required to print an announcement.)
|
||||||
|
|
||||||
|
These requirements apply to the modified work as a whole. If
|
||||||
|
identifiable sections of that work are not derived from the Program,
|
||||||
|
and can be reasonably considered independent and separate works in
|
||||||
|
themselves, then this License, and its terms, do not apply to those
|
||||||
|
sections when you distribute them as separate works. But when you
|
||||||
|
distribute the same sections as part of a whole which is a work based
|
||||||
|
on the Program, the distribution of the whole must be on the terms of
|
||||||
|
this License, whose permissions for other licensees extend to the
|
||||||
|
entire whole, and thus to each and every part regardless of who wrote it.
|
||||||
|
|
||||||
|
Thus, it is not the intent of this section to claim rights or contest
|
||||||
|
your rights to work written entirely by you; rather, the intent is to
|
||||||
|
exercise the right to control the distribution of derivative or
|
||||||
|
collective works based on the Program.
|
||||||
|
|
||||||
|
In addition, mere aggregation of another work not based on the Program
|
||||||
|
with the Program (or with a work based on the Program) on a volume of
|
||||||
|
a storage or distribution medium does not bring the other work under
|
||||||
|
the scope of this License.
|
||||||
|
|
||||||
|
3. You may copy and distribute the Program (or a work based on it,
|
||||||
|
under Section 2) in object code or executable form under the terms of
|
||||||
|
Sections 1 and 2 above provided that you also do one of the following:
|
||||||
|
|
||||||
|
a) Accompany it with the complete corresponding machine-readable
|
||||||
|
source code, which must be distributed under the terms of Sections
|
||||||
|
1 and 2 above on a medium customarily used for software interchange; or,
|
||||||
|
|
||||||
|
b) Accompany it with a written offer, valid for at least three
|
||||||
|
years, to give any third party, for a charge no more than your
|
||||||
|
cost of physically performing source distribution, a complete
|
||||||
|
machine-readable copy of the corresponding source code, to be
|
||||||
|
distributed under the terms of Sections 1 and 2 above on a medium
|
||||||
|
customarily used for software interchange; or,
|
||||||
|
|
||||||
|
c) Accompany it with the information you received as to the offer
|
||||||
|
to distribute corresponding source code. (This alternative is
|
||||||
|
allowed only for noncommercial distribution and only if you
|
||||||
|
received the program in object code or executable form with such
|
||||||
|
an offer, in accord with Subsection b above.)
|
||||||
|
|
||||||
|
The source code for a work means the preferred form of the work for
|
||||||
|
making modifications to it. For an executable work, complete source
|
||||||
|
code means all the source code for all modules it contains, plus any
|
||||||
|
associated interface definition files, plus the scripts used to
|
||||||
|
control compilation and installation of the executable. However, as a
|
||||||
|
special exception, the source code distributed need not include
|
||||||
|
anything that is normally distributed (in either source or binary
|
||||||
|
form) with the major components (compiler, kernel, and so on) of the
|
||||||
|
operating system on which the executable runs, unless that component
|
||||||
|
itself accompanies the executable.
|
||||||
|
|
||||||
|
If distribution of executable or object code is made by offering
|
||||||
|
access to copy from a designated place, then offering equivalent
|
||||||
|
access to copy the source code from the same place counts as
|
||||||
|
distribution of the source code, even though third parties are not
|
||||||
|
compelled to copy the source along with the object code.
|
||||||
|
|
||||||
|
4. You may not copy, modify, sublicense, or distribute the Program
|
||||||
|
except as expressly provided under this License. Any attempt
|
||||||
|
otherwise to copy, modify, sublicense or distribute the Program is
|
||||||
|
void, and will automatically terminate your rights under this License.
|
||||||
|
However, parties who have received copies, or rights, from you under
|
||||||
|
this License will not have their licenses terminated so long as such
|
||||||
|
parties remain in full compliance.
|
||||||
|
|
||||||
|
5. You are not required to accept this License, since you have not
|
||||||
|
signed it. However, nothing else grants you permission to modify or
|
||||||
|
distribute the Program or its derivative works. These actions are
|
||||||
|
prohibited by law if you do not accept this License. Therefore, by
|
||||||
|
modifying or distributing the Program (or any work based on the
|
||||||
|
Program), you indicate your acceptance of this License to do so, and
|
||||||
|
all its terms and conditions for copying, distributing or modifying
|
||||||
|
the Program or works based on it.
|
||||||
|
|
||||||
|
6. Each time you redistribute the Program (or any work based on the
|
||||||
|
Program), the recipient automatically receives a license from the
|
||||||
|
original licensor to copy, distribute or modify the Program subject to
|
||||||
|
these terms and conditions. You may not impose any further
|
||||||
|
restrictions on the recipients' exercise of the rights granted herein.
|
||||||
|
You are not responsible for enforcing compliance by third parties to
|
||||||
|
this License.
|
||||||
|
|
||||||
|
7. If, as a consequence of a court judgment or allegation of patent
|
||||||
|
infringement or for any other reason (not limited to patent issues),
|
||||||
|
conditions are imposed on you (whether by court order, agreement or
|
||||||
|
otherwise) that contradict the conditions of this License, they do not
|
||||||
|
excuse you from the conditions of this License. If you cannot
|
||||||
|
distribute so as to satisfy simultaneously your obligations under this
|
||||||
|
License and any other pertinent obligations, then as a consequence you
|
||||||
|
may not distribute the Program at all. For example, if a patent
|
||||||
|
license would not permit royalty-free redistribution of the Program by
|
||||||
|
all those who receive copies directly or indirectly through you, then
|
||||||
|
the only way you could satisfy both it and this License would be to
|
||||||
|
refrain entirely from distribution of the Program.
|
||||||
|
|
||||||
|
If any portion of this section is held invalid or unenforceable under
|
||||||
|
any particular circumstance, the balance of the section is intended to
|
||||||
|
apply and the section as a whole is intended to apply in other
|
||||||
|
circumstances.
|
||||||
|
|
||||||
|
It is not the purpose of this section to induce you to infringe any
|
||||||
|
patents or other property right claims or to contest validity of any
|
||||||
|
such claims; this section has the sole purpose of protecting the
|
||||||
|
integrity of the free software distribution system, which is
|
||||||
|
implemented by public license practices. Many people have made
|
||||||
|
generous contributions to the wide range of software distributed
|
||||||
|
through that system in reliance on consistent application of that
|
||||||
|
system; it is up to the author/donor to decide if he or she is willing
|
||||||
|
to distribute software through any other system and a licensee cannot
|
||||||
|
impose that choice.
|
||||||
|
|
||||||
|
This section is intended to make thoroughly clear what is believed to
|
||||||
|
be a consequence of the rest of this License.
|
||||||
|
|
||||||
|
8. If the distribution and/or use of the Program is restricted in
|
||||||
|
certain countries either by patents or by copyrighted interfaces, the
|
||||||
|
original copyright holder who places the Program under this License
|
||||||
|
may add an explicit geographical distribution limitation excluding
|
||||||
|
those countries, so that distribution is permitted only in or among
|
||||||
|
countries not thus excluded. In such case, this License incorporates
|
||||||
|
the limitation as if written in the body of this License.
|
||||||
|
|
||||||
|
9. The Free Software Foundation may publish revised and/or new versions
|
||||||
|
of the General Public License from time to time. Such new versions will
|
||||||
|
be similar in spirit to the present version, but may differ in detail to
|
||||||
|
address new problems or concerns.
|
||||||
|
|
||||||
|
Each version is given a distinguishing version number. If the Program
|
||||||
|
specifies a version number of this License which applies to it and "any
|
||||||
|
later version", you have the option of following the terms and conditions
|
||||||
|
either of that version or of any later version published by the Free
|
||||||
|
Software Foundation. If the Program does not specify a version number of
|
||||||
|
this License, you may choose any version ever published by the Free Software
|
||||||
|
Foundation.
|
||||||
|
|
||||||
|
10. If you wish to incorporate parts of the Program into other free
|
||||||
|
programs whose distribution conditions are different, write to the author
|
||||||
|
to ask for permission. For software which is copyrighted by the Free
|
||||||
|
Software Foundation, write to the Free Software Foundation; we sometimes
|
||||||
|
make exceptions for this. Our decision will be guided by the two goals
|
||||||
|
of preserving the free status of all derivatives of our free software and
|
||||||
|
of promoting the sharing and reuse of software generally.
|
||||||
|
|
||||||
|
NO WARRANTY
|
||||||
|
|
||||||
|
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
|
||||||
|
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
|
||||||
|
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
|
||||||
|
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
|
||||||
|
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
||||||
|
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
|
||||||
|
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
|
||||||
|
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
|
||||||
|
REPAIR OR CORRECTION.
|
||||||
|
|
||||||
|
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
|
||||||
|
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
|
||||||
|
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
|
||||||
|
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
|
||||||
|
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
|
||||||
|
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
|
||||||
|
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
|
||||||
|
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
|
||||||
|
POSSIBILITY OF SUCH DAMAGES.
|
||||||
|
|
||||||
|
END OF TERMS AND CONDITIONS
|
||||||
10
as10k1/Makefile.am
Normal file
10
as10k1/Makefile.am
Normal file
|
|
@ -0,0 +1,10 @@
|
||||||
|
bin_PROGRAMS = as10k1
|
||||||
|
as10k1_SOURCES = as10k1.c parse.c assemble.c macro.c
|
||||||
|
EXTRA_DIST = cvscompile output.doc examples/Makefile examples/*.asm
|
||||||
|
|
||||||
|
dsp:
|
||||||
|
$(MAKE) -C examples
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -rf .deps *~
|
||||||
|
$(MAKE) -C examples clean
|
||||||
432
as10k1/README
Normal file
432
as10k1/README
Normal file
|
|
@ -0,0 +1,432 @@
|
||||||
|
|
||||||
|
AS10k1 Assembler version A0.99
|
||||||
|
------------------------------
|
||||||
|
|
||||||
|
This is an assembler for the emu10k1 DSP chip present in the creative SB
|
||||||
|
live, PCI 512, and emu APS sound cards. It is used to make audio effects such
|
||||||
|
as a flanger, chorus or reverb.
|
||||||
|
|
||||||
|
|
||||||
|
Author: Daniel Bertrand <d.bertrand@ieee.ca>
|
||||||
|
|
||||||
|
|
||||||
|
This version of the assembler was modified for the ALSA driver by
|
||||||
|
Jaroslav Kysela <perex@suse.cz>.
|
||||||
|
|
||||||
|
|
||||||
|
Usage: as10k1 <asm file> [bin output file]
|
||||||
|
------
|
||||||
|
|
||||||
|
Making binary DSP programs:
|
||||||
|
|
||||||
|
example, type:
|
||||||
|
|
||||||
|
./as10k1 chorus.asm
|
||||||
|
|
||||||
|
(it creates chorus.bin)
|
||||||
|
|
||||||
|
--
|
||||||
|
Loading Binary DSP files
|
||||||
|
|
||||||
|
|
||||||
|
<..TODO..>
|
||||||
|
|
||||||
|
|
||||||
|
Description of files included
|
||||||
|
------------------------------
|
||||||
|
|
||||||
|
Chorus.asm -- chorus effect
|
||||||
|
Flanger.asm -- flanger effect
|
||||||
|
Delay.asm -- generates Echos, this is _not_ a reverb
|
||||||
|
eq5.asm -- A 5 band Equalizer (needs a bit more work)
|
||||||
|
fir.asm -- A low pass filter (A demo of a fir filter implementation)
|
||||||
|
sine.asm -- A sinewave generator (can be useful for debuging)
|
||||||
|
vibrato.asm -- A vibrato effect (or is it a tremolo?)
|
||||||
|
vol_ctrl.asm -- provides support for the hardware volume control
|
||||||
|
emu_constants.asm -- not an effect, just contains handy constants and macros
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
===============================================================================
|
||||||
|
|
||||||
|
|
||||||
|
Programming Usage:
|
||||||
|
=================
|
||||||
|
|
||||||
|
Assembly Syntax
|
||||||
|
---------------
|
||||||
|
|
||||||
|
Assembly lines generally have four fields seperated by spaces or tabs:
|
||||||
|
|
||||||
|
|
||||||
|
Name_Field Opcode_field Operand_Field Comment_Field
|
||||||
|
---------- ------------ ------------- -------------
|
||||||
|
[symbol] [mnemonic] [operands] [text]
|
||||||
|
|
||||||
|
|
||||||
|
With this assembler, each line can have a maximum of 256 characters and each
|
||||||
|
symbol can be a maximum of 32 characters. Symbols ARE case sensitive, opcodes
|
||||||
|
ARE NOT.
|
||||||
|
|
||||||
|
OPCODES
|
||||||
|
--------
|
||||||
|
|
||||||
|
|
||||||
|
All instructions require 4 operands, they have the format
|
||||||
|
|
||||||
|
<opcode> R,A,X,Y
|
||||||
|
|
||||||
|
(note some documentation out there the call the R operand as Z and the A
|
||||||
|
operand as W).
|
||||||
|
|
||||||
|
Here are 16 opcodes.
|
||||||
|
|
||||||
|
0x0 (MACS) : R = A + (X * Y >> 31) ; saturation
|
||||||
|
0x1 (MACS1) : R = A + (-X * Y >> 31) ; saturation
|
||||||
|
0x2 (MACW) : R = A + (X * Y >> 31) ; wraparound
|
||||||
|
0x3 (MACW1) : R = A + (-X * Y >> 31) ; wraparound
|
||||||
|
0x4 (MACINTS) : R = A + X * Y ; saturation
|
||||||
|
0x5 (MACINTW) : R = A + X * Y ; wraparound (31-bit)
|
||||||
|
0x6 (ACC3) : R = A + X + Y ; saturation
|
||||||
|
0x7 (MACMV) : R = A, acc += X * Y >> 31
|
||||||
|
0x8 (ANDXOR) : R = (A & X) ^ Y
|
||||||
|
0x9 (TSTNEG) : R = (A >= Y) ? X : ~X
|
||||||
|
0xa (LIMIT) : R = (A >= Y) ? X : Y
|
||||||
|
0xb (LIMIT1): R = (A < Y) ? X : Y
|
||||||
|
0xc (LOG) : ...
|
||||||
|
0xd (EXP) : ...
|
||||||
|
0xe (INTERP) : R = A + (X * (Y - A) >> 31) ; saturation
|
||||||
|
0xf (SKIP) : R,CCR,CC_TEST,COUNT
|
||||||
|
|
||||||
|
|
||||||
|
Special note on the accumulator:
|
||||||
|
mac* instruction with ACCUM as A operand => uses Most significant 32 bits.
|
||||||
|
macint* instruction with ACCUM as A operand => uses Least significant 32 bits.
|
||||||
|
|
||||||
|
|
||||||
|
For more details on the emu10k1 see the dsp.txt file distributed with the
|
||||||
|
linux driver.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Operands
|
||||||
|
--------
|
||||||
|
|
||||||
|
Operands can be specified as either a symbol or a value. hex values are
|
||||||
|
prefixed by $, octal by @, and binary by %.
|
||||||
|
|
||||||
|
e.g.:
|
||||||
|
|
||||||
|
123 decimal value
|
||||||
|
$123 hex value
|
||||||
|
@123 octal value
|
||||||
|
%01101 binary value
|
||||||
|
|
||||||
|
The operands for emu10k1 instructions are always addresses of registers, there
|
||||||
|
are no instruction which take immediate values.
|
||||||
|
|
||||||
|
Operands currently support basic arithmetic, It does not support bedmas (or is it bodmas)
|
||||||
|
so don't try to use (). Infact don't put spaces either (for now, until I fix this).
|
||||||
|
|
||||||
|
Summary of assembler directives
|
||||||
|
-------------------------------
|
||||||
|
|
||||||
|
NAME "string" ;give a name to the patch
|
||||||
|
|
||||||
|
<symbol> IO ;defines an Input/output pair
|
||||||
|
<symbol> CONTROL <symbol> ;defines a controlable GPR
|
||||||
|
<symbol> DYNamic <number of storage spaces> ;defines a temporary GPR
|
||||||
|
<symbol> STAtic <initial value> ;defines a constant GPR /w initial value
|
||||||
|
<symbol> EQU <Value equated> ;assembly time constant
|
||||||
|
<symbol> CONstant <value> ;defines a read-only GPR
|
||||||
|
|
||||||
|
<symbol> DELAY <value> ;defines a Delay line
|
||||||
|
<symbol> TABLE <value> ;defines a lookup table
|
||||||
|
|
||||||
|
<symbol> TREAD <tram id>,<value> ;defines a tram read
|
||||||
|
<symbol> TWRITE <tram id>,<value> ;defines a tram write
|
||||||
|
|
||||||
|
|
||||||
|
INCLUDE <"file name"> ;includes an external file
|
||||||
|
|
||||||
|
FOR <variable>=<start>:<finish> ;Assembly-time 'for' statement
|
||||||
|
ENDFOR ;ends a for loop
|
||||||
|
|
||||||
|
|
||||||
|
<symbol> MACRO arg1,arg2,arg3.... ;used for define a macro
|
||||||
|
ENDM ;end a macro definition
|
||||||
|
|
||||||
|
END ;ends the code
|
||||||
|
|
||||||
|
|
||||||
|
Detailed description of directives:
|
||||||
|
----------------------------------
|
||||||
|
|
||||||
|
( <> brackets indicate required fields, [] brackets indicate optional fields)
|
||||||
|
|
||||||
|
DYNamic directive (replaces DS):
|
||||||
|
|
||||||
|
Defines a storage space from the gpr pool on the emu10k1. The
|
||||||
|
assembler maintains a pointer to the gpr registers (starting at $100). The
|
||||||
|
symbol is assigned the value of the address of the gpr pointer. The pointer is
|
||||||
|
increment by the number following the dynamic directive.
|
||||||
|
|
||||||
|
syntax:
|
||||||
|
<symbol> dynamic <number of storage spaces
|
||||||
|
|
||||||
|
or
|
||||||
|
|
||||||
|
<symbol> dyn <number of storage spaces>
|
||||||
|
|
||||||
|
--
|
||||||
|
STAtic directive (replaces DC):
|
||||||
|
|
||||||
|
Similar to dynamic, but places an initial value in the memory location.
|
||||||
|
|
||||||
|
The values specified are slightly different from operands for instructions.
|
||||||
|
The values are 32 bit signed intergers so that a maximum magnitude of 2^31 can
|
||||||
|
be stored. values can be in signed decimal, unsigned octal, binary and hex,
|
||||||
|
and in fractional decimal (values between -1 to 1) for filter coefficients.
|
||||||
|
|
||||||
|
A fractional decimal is specified using the '#' prefix and can include an
|
||||||
|
exponent. These values should be used with the fractional "mac" instructions.
|
||||||
|
|
||||||
|
NEW! fractional numbers are now handle automatically, a value between 1 and
|
||||||
|
-1 will be converted into fractional form. The old # form still works though.
|
||||||
|
(BUG:confusion occurs at 1 and -1 however, should 1 be represented as $1
|
||||||
|
or $7ffffff?, currently defaults to $1, so #1 still has some importance)
|
||||||
|
|
||||||
|
examples:
|
||||||
|
.03412
|
||||||
|
123E-3
|
||||||
|
#-0.1236
|
||||||
|
|
||||||
|
syntax:
|
||||||
|
|
||||||
|
<symbol> static <initial value>
|
||||||
|
|
||||||
|
or
|
||||||
|
|
||||||
|
<symbol> sta <initial value>
|
||||||
|
|
||||||
|
--
|
||||||
|
CONTROL
|
||||||
|
|
||||||
|
Control registers are similar to DC, but they also include a min and max value. The control register is used
|
||||||
|
by a mixer app to change values in a GPR (a volume control, for example).
|
||||||
|
|
||||||
|
syntax:
|
||||||
|
|
||||||
|
<symbol> CONTROL <initial value>,<min>,<max>
|
||||||
|
|
||||||
|
--
|
||||||
|
IO
|
||||||
|
|
||||||
|
Defines an input and an output register.
|
||||||
|
|
||||||
|
<symbol> IO
|
||||||
|
|
||||||
|
It defines two register, but they both use the symbol. The assembler handles it automagically
|
||||||
|
depending on whether you're performing a read (X, Y or Z operand) or a write (R operand) to the GPR.
|
||||||
|
|
||||||
|
-
|
||||||
|
If you insist on having two different symbols for read/write (for readability or whatever), use an EQU,
|
||||||
|
|
||||||
|
i.e.:
|
||||||
|
|
||||||
|
IN IO
|
||||||
|
OUT EQU IN
|
||||||
|
|
||||||
|
-
|
||||||
|
To force a read from the output (for whatever reason) use <symbol>.o (i.e. OUT.o)
|
||||||
|
|
||||||
|
Writing to an input is not allowed.
|
||||||
|
--
|
||||||
|
CONSTANT
|
||||||
|
|
||||||
|
defines a read-only constant GPR
|
||||||
|
|
||||||
|
When the assembler encounters a CONSTANT define, it'll try three things. First
|
||||||
|
it'll check to see if the defined constant is a hardware constant, if so
|
||||||
|
substitutes that instead. Next the assembler check to see if another constant
|
||||||
|
has alrady been declared with the same value, if so it'll substitute it. Else
|
||||||
|
it'll declare a new GPR for holding the value of the constant.
|
||||||
|
|
||||||
|
syntax:
|
||||||
|
|
||||||
|
<symbol> constant <value>
|
||||||
|
|
||||||
|
or
|
||||||
|
|
||||||
|
<symbol> con <value>
|
||||||
|
|
||||||
|
|
||||||
|
--
|
||||||
|
|
||||||
|
DELAY LINES
|
||||||
|
|
||||||
|
Delay lines are defined via three directives:
|
||||||
|
|
||||||
|
--
|
||||||
|
DELAY Directive
|
||||||
|
|
||||||
|
Define Delay, used for allocating an amount of TRAM for a delay line.
|
||||||
|
|
||||||
|
<symbol> DELAY <value>
|
||||||
|
|
||||||
|
The symbol is used to identify this delay line.The value is the amount of TRAM
|
||||||
|
allocated, it may be specified as a decimal,hex, octal, binary or time value.
|
||||||
|
|
||||||
|
The time value is prefixed with '&' and represents seconds of time.
|
||||||
|
|
||||||
|
e.g.
|
||||||
|
|
||||||
|
foo DELAY &100e-3 ;;a 100msec delay line
|
||||||
|
bar DELAY 1000 ;;a 1000 sample delay line
|
||||||
|
|
||||||
|
--
|
||||||
|
TABLE directive
|
||||||
|
|
||||||
|
Define lookup Table
|
||||||
|
|
||||||
|
same as DELAY but for lookup tables.
|
||||||
|
|
||||||
|
--
|
||||||
|
TREAD Directive
|
||||||
|
|
||||||
|
Define read: used for defining a TRAM read point
|
||||||
|
|
||||||
|
<symbol1> TREAD <symbol2>,<value>
|
||||||
|
|
||||||
|
The value represents the read point within the delay line. symbol2 defines
|
||||||
|
which delay line this read belongs to.
|
||||||
|
|
||||||
|
Symbol1 is a pointer to TRAM data register associated with this TRAM read
|
||||||
|
operation. The assembler will create <symbol1>.a which points to the TRAM
|
||||||
|
address register.
|
||||||
|
|
||||||
|
example:
|
||||||
|
|
||||||
|
fooread TREAD 100e-3,foo
|
||||||
|
macs fooread.a,one,two,three ; writes a new tram read address
|
||||||
|
macs temp,fooread,one,two ; reads the data from the delay line
|
||||||
|
|
||||||
|
--
|
||||||
|
WRITE Direcive
|
||||||
|
|
||||||
|
Define write: same as TREAD but used for writing data to a delay line.
|
||||||
|
<symbol1> TWRITE <symbol2>,<value>
|
||||||
|
|
||||||
|
--
|
||||||
|
EQU directive:
|
||||||
|
|
||||||
|
Equates a symbol to a be constant which is substituted at assembly time:
|
||||||
|
|
||||||
|
syntax:
|
||||||
|
|
||||||
|
<symbol> EQU <Value equated>
|
||||||
|
|
||||||
|
--
|
||||||
|
END directive
|
||||||
|
|
||||||
|
The END directive should be placed at the end of the assembly source file. If
|
||||||
|
the END directive is not found, a warning will be generated. All text located
|
||||||
|
after the END directive is ignored.
|
||||||
|
|
||||||
|
Syntax:
|
||||||
|
|
||||||
|
[symbol] END
|
||||||
|
|
||||||
|
--
|
||||||
|
INCLUDE Directive
|
||||||
|
|
||||||
|
The include directive is used to include external asm files into the current
|
||||||
|
asm file.
|
||||||
|
|
||||||
|
Syntax:
|
||||||
|
|
||||||
|
INCLUDE <"file name">
|
||||||
|
|
||||||
|
The file name Must be enclosed in "" or '' .
|
||||||
|
|
||||||
|
examples:
|
||||||
|
|
||||||
|
include 'qwerty.asm'
|
||||||
|
include "foobar.asm"
|
||||||
|
|
||||||
|
|
||||||
|
--
|
||||||
|
|
||||||
|
MACRO directive
|
||||||
|
|
||||||
|
Used for defining a macro
|
||||||
|
|
||||||
|
Defining Macro:
|
||||||
|
|
||||||
|
<symbol> macro arg1,arg2,arg3....
|
||||||
|
....
|
||||||
|
<opcode> arg4,arg1,arg2... ;;for example
|
||||||
|
....
|
||||||
|
....
|
||||||
|
endm
|
||||||
|
|
||||||
|
were the <symbol> used is the nmeumonic representing the macro.
|
||||||
|
|
||||||
|
arg1,arg2,arg3... can be any symbols (auto-defining and local to a macro)
|
||||||
|
as long as the symbol is not already in use outside the macro (i.e. as
|
||||||
|
a DC, DS, etc.).
|
||||||
|
|
||||||
|
There's no limit to how many arguments can be used.
|
||||||
|
|
||||||
|
|
||||||
|
Using Macro:
|
||||||
|
|
||||||
|
<macro nmeumonic> arg1,arg2,arg3....
|
||||||
|
|
||||||
|
where arg1,arg2,arg3,... are values or symbols.
|
||||||
|
|
||||||
|
--
|
||||||
|
Assembly-time For loop
|
||||||
|
|
||||||
|
|
||||||
|
usage:
|
||||||
|
|
||||||
|
For <symbol>=<start>:<stop>
|
||||||
|
...
|
||||||
|
...
|
||||||
|
macs <symbol>,....
|
||||||
|
...
|
||||||
|
endfor
|
||||||
|
|
||||||
|
<start> and <stop> must be integers
|
||||||
|
|
||||||
|
|
||||||
|
--
|
||||||
|
Handling Skips
|
||||||
|
|
||||||
|
the as10k1 assembler handles skips in a special way explained best by an example:
|
||||||
|
|
||||||
|
skip CRR,CRR,CC_test,.foo
|
||||||
|
...
|
||||||
|
...
|
||||||
|
...
|
||||||
|
.foo ...
|
||||||
|
|
||||||
|
the "." tell the assembler that the symbol is for skipping purposes, it will
|
||||||
|
automatically define a GPR when parsing the skip instruction, and when the second
|
||||||
|
.foo is encountered it will insert the number of instructions to skip. (the skip
|
||||||
|
instruction needs a GPR by design, so don't blame me for the half-assness of it).
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Features NOT YET Supported
|
||||||
|
==========================
|
||||||
|
|
||||||
|
any ideas?
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
546
as10k1/as10k1.c
Normal file
546
as10k1/as10k1.c
Normal file
|
|
@ -0,0 +1,546 @@
|
||||||
|
/***************************************************************************
|
||||||
|
as10k1.c - Main assembler routine
|
||||||
|
-------------------
|
||||||
|
Date : May 22, 2000
|
||||||
|
Copyright : (C) 2000 by Daniel Bertrand
|
||||||
|
Email : d.bertrand@ieee.ca
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
/*
|
||||||
|
* This program was changed to conform the ALSA ideas. Please,
|
||||||
|
* bug reports and all other things should be discussed on the
|
||||||
|
* <alsa-devel@alsa-project.org> mailing list.
|
||||||
|
* Jaroslav Kysela <perex@suse.cz>
|
||||||
|
*/
|
||||||
|
|
||||||
|
/***************************************************************************
|
||||||
|
* *
|
||||||
|
* 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. *
|
||||||
|
* *
|
||||||
|
***************************************************************************/
|
||||||
|
#include<stdio.h>
|
||||||
|
#include<stdlib.h>
|
||||||
|
#include<fcntl.h>
|
||||||
|
#include <sys/stat.h>
|
||||||
|
#include <unistd.h>
|
||||||
|
#include<string.h>
|
||||||
|
#include "types.h"
|
||||||
|
|
||||||
|
#include "as10k1.h"
|
||||||
|
|
||||||
|
char *ptralloc[MAXINCLUDES];
|
||||||
|
static int num_alloc;
|
||||||
|
int source_line_num=0,file_num=0;
|
||||||
|
int macro_line_num=0;
|
||||||
|
FILE *fp=NULL,*listfile;
|
||||||
|
char *input=NULL,*output=NULL,*listing=NULL,*current_line=NULL,listtemp[60];
|
||||||
|
|
||||||
|
|
||||||
|
int dbg_opt=0;
|
||||||
|
|
||||||
|
char version[]="As10k1 assembler version " VERSION;
|
||||||
|
|
||||||
|
char help[]="
|
||||||
|
Usage: as10k1 [option...] asmfile
|
||||||
|
|
||||||
|
The as10k1 assembler is for the emu10k1 dsp processor
|
||||||
|
found in Creative Lab's sblive series of sound cards.
|
||||||
|
|
||||||
|
Author: Daniel Bertrand <d.bertrand@ieee.ca>
|
||||||
|
|
||||||
|
Options:\n
|
||||||
|
-l [listfile] Specify a listing file, default is none.
|
||||||
|
-o [emu10k1 file] Specify an output file, default is based input,
|
||||||
|
Substituting .asm to .emu10k1
|
||||||
|
-d [dbg_options...] Turn on debug messages.
|
||||||
|
s prints all symbols
|
||||||
|
g prints defined gprs
|
||||||
|
t prints tram usage
|
||||||
|
i prints instructions
|
||||||
|
-h Prints this message
|
||||||
|
-v Prints version number.
|
||||||
|
|
||||||
|
This program is distributed under the GPL.
|
||||||
|
|
||||||
|
";
|
||||||
|
|
||||||
|
// cli==Command-Line Interface && !Creative Labs Inc.
|
||||||
|
|
||||||
|
void parse_cli_args(int argc, char *argv[])
|
||||||
|
{
|
||||||
|
int i,j;
|
||||||
|
for(i=1;i<argc;i++){
|
||||||
|
|
||||||
|
if(argv[i][0]=='-'){
|
||||||
|
switch(argv[i][1]){
|
||||||
|
|
||||||
|
case 'o'://specify an output file name
|
||||||
|
i++;
|
||||||
|
if((i==argc)||(argv[i][0]=='-')){
|
||||||
|
printf("Error -o option requires a destination file name\n");
|
||||||
|
exit(-1);
|
||||||
|
}
|
||||||
|
output=argv[i];
|
||||||
|
break;
|
||||||
|
case 'd': //turn on debugging messages
|
||||||
|
j=0;
|
||||||
|
i++;
|
||||||
|
printf("Debug on, Displaying:");
|
||||||
|
|
||||||
|
if((i==argc)||(argv[i][0]=='-')){
|
||||||
|
dbg_opt=dbg_opt|DBG_INSTR;//default
|
||||||
|
i--;
|
||||||
|
printf(" instructions by default\n");
|
||||||
|
goto next_cli_arg;
|
||||||
|
}
|
||||||
|
|
||||||
|
while(argv[i][j]!='\0'){
|
||||||
|
|
||||||
|
switch(argv[i][j]){
|
||||||
|
case 's':
|
||||||
|
dbg_opt=dbg_opt|DBG_SYM;
|
||||||
|
printf(" Symbols,");
|
||||||
|
break;
|
||||||
|
case 'g':
|
||||||
|
dbg_opt=dbg_opt|DBG_GPR;
|
||||||
|
printf(" GPRs,");
|
||||||
|
break;
|
||||||
|
case 't':
|
||||||
|
dbg_opt=dbg_opt|DBG_TRAM;
|
||||||
|
printf(" TRAM,");
|
||||||
|
break;
|
||||||
|
case 'i':
|
||||||
|
dbg_opt=dbg_opt|DBG_INSTR;
|
||||||
|
printf(" Instructions,");
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
printf("\b \n**Bad debug option. ");
|
||||||
|
exit(-1);
|
||||||
|
}
|
||||||
|
j++;
|
||||||
|
}
|
||||||
|
printf("\b \n");
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'l'://produce a listing file
|
||||||
|
//printf("Will save list file to %s\n", );
|
||||||
|
i++;
|
||||||
|
if((i==argc)||(argv[i][0]=='-')){
|
||||||
|
printf("Error -l option requires a destination file name\n");
|
||||||
|
exit(-1);
|
||||||
|
}
|
||||||
|
listing=argv[i];
|
||||||
|
|
||||||
|
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'h'://printf help message
|
||||||
|
|
||||||
|
default:
|
||||||
|
printf("%s",help);
|
||||||
|
|
||||||
|
case 'v':
|
||||||
|
printf("%s\n",version);
|
||||||
|
exit(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
}else{
|
||||||
|
if(input==NULL)
|
||||||
|
input=argv[i];
|
||||||
|
else{
|
||||||
|
printf("Error, only one input file can be specified");
|
||||||
|
as_exit("");
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
next_cli_arg:
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
int main( int argc, char *argv[] )
|
||||||
|
{
|
||||||
|
|
||||||
|
int i;
|
||||||
|
char filename[FILENAME_MAX];
|
||||||
|
extern int ip;
|
||||||
|
u32 val;
|
||||||
|
|
||||||
|
parse_cli_args(argc,argv);
|
||||||
|
if(input==NULL){
|
||||||
|
printf("Error, an input file must be specified\n");
|
||||||
|
exit(-1);
|
||||||
|
}
|
||||||
|
|
||||||
|
//init symbol list:
|
||||||
|
|
||||||
|
INIT_LIST_HEAD(&sym_head);
|
||||||
|
|
||||||
|
if(listing!=NULL)
|
||||||
|
if((listfile = fopen(listing, "w"))==NULL){
|
||||||
|
printf("\nError writing to file %s\n",argv[1]);
|
||||||
|
as_exit("error");
|
||||||
|
}
|
||||||
|
asm_open(input); //opens the source file and starts parsing it.
|
||||||
|
|
||||||
|
if(output==NULL){
|
||||||
|
strcpy(filename, input);
|
||||||
|
strtok(filename,".\0");
|
||||||
|
strcat(filename, ".emu10k1");
|
||||||
|
output = filename;
|
||||||
|
}
|
||||||
|
|
||||||
|
if((fp = fopen(output, "w"))==NULL){
|
||||||
|
printf("\nError writing to file %s\n",argv[1]);
|
||||||
|
as_exit("error");
|
||||||
|
}
|
||||||
|
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"Summary:\n");
|
||||||
|
/*create header*/
|
||||||
|
header();
|
||||||
|
|
||||||
|
/*output number of instructions*/
|
||||||
|
|
||||||
|
val = __cpu_to_le32(ip);
|
||||||
|
fwrite(&val,sizeof(u16),1,fp);
|
||||||
|
|
||||||
|
/* write binary code */
|
||||||
|
|
||||||
|
|
||||||
|
for (i = 0; i < ip; i++) {
|
||||||
|
val = __cpu_to_le32(dsp_code[i]);
|
||||||
|
fwrite(&val,sizeof(u32),1,fp);
|
||||||
|
//for (j = 3; j >= 0; j--)
|
||||||
|
//fprintf(fp, "%c", ((u8 *) dsp_code)[i * 4 + j]);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if(listing)
|
||||||
|
fclose(listfile);
|
||||||
|
fclose(fp);
|
||||||
|
for(i=0;i<num_alloc;i++) //free mem, is this necessary, or will the kernel free it automatically?
|
||||||
|
free(ptralloc[i]);
|
||||||
|
|
||||||
|
return 0; //that's it were done
|
||||||
|
}
|
||||||
|
|
||||||
|
/*this function is called to open a asm file and parse it using the parse function.
|
||||||
|
this function is called by the main function and also by the parse function
|
||||||
|
when it encounters an "INCLUDE" directive.
|
||||||
|
*/
|
||||||
|
|
||||||
|
void asm_open(char *name)
|
||||||
|
{
|
||||||
|
|
||||||
|
int fd,i;
|
||||||
|
int done=0;
|
||||||
|
char string[MAX_LINE_LENGTH];
|
||||||
|
struct stat st;
|
||||||
|
char *next;
|
||||||
|
int backup_line_num,backup_file_num;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
backup_line_num=source_line_num;
|
||||||
|
backup_file_num=file_num;
|
||||||
|
|
||||||
|
if( (include_depth++) > max_depth){
|
||||||
|
printf("Error: maximum recursive include depth(%d) exceeded\n",max_depth);
|
||||||
|
as_exit("");
|
||||||
|
}
|
||||||
|
buff[num_alloc].name=name;
|
||||||
|
source_line_num=0;
|
||||||
|
file_num=num_alloc;
|
||||||
|
//open the file
|
||||||
|
|
||||||
|
if ((unsigned) (fd = open(name, O_RDONLY)) > 255){
|
||||||
|
as_exit("error opening input file\n");
|
||||||
|
}
|
||||||
|
//get it's stats
|
||||||
|
if ( -1 == fstat( fd, &st)){
|
||||||
|
printf("Error occured attempting to stat %s\n", name);
|
||||||
|
as_exit("");
|
||||||
|
}
|
||||||
|
|
||||||
|
if(( ptralloc[num_alloc]=(char *) malloc(st.st_size+2) )== 0){
|
||||||
|
printf("error allocating memory for file %s\n",name);
|
||||||
|
close(fd);
|
||||||
|
as_exit("");
|
||||||
|
}else{
|
||||||
|
buff[num_alloc].mem_start=ptralloc[num_alloc];
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
i=num_alloc;
|
||||||
|
num_alloc++;
|
||||||
|
|
||||||
|
buff[i].mem_end = buff[i].mem_start+st.st_size;
|
||||||
|
|
||||||
|
read(fd, buff[i].mem_start, st.st_size);
|
||||||
|
close(fd);
|
||||||
|
|
||||||
|
#ifdef DEBUG
|
||||||
|
printf("File %s opened:\n",name);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
//
|
||||||
|
//get each line and parse it:
|
||||||
|
//
|
||||||
|
current_line=buff[i].mem_start;
|
||||||
|
source_line_num=1;
|
||||||
|
next=current_line;
|
||||||
|
while(next!=buff[i].mem_end){
|
||||||
|
while((*next!= '\n') && (next!=buff[i].mem_end) )
|
||||||
|
next++;
|
||||||
|
listtemp[0]='\0';
|
||||||
|
*next='\0';
|
||||||
|
|
||||||
|
#ifdef DEBUG
|
||||||
|
printf("%s\n",current_line);
|
||||||
|
#endif
|
||||||
|
if(strlen(current_line)>MAX_LINE_LENGTH)
|
||||||
|
as_exit("Parse error: Line exceeds allowable limit");
|
||||||
|
strcpy(&string[0],current_line);
|
||||||
|
|
||||||
|
done = parse(string,current_line);
|
||||||
|
if(listing){
|
||||||
|
if(done==1 &&include_depth!=1)
|
||||||
|
sprintf(listtemp,"Exiting included file");
|
||||||
|
if(done!=-3)
|
||||||
|
fprintf(listfile,"%-50s || %s\n",listtemp,current_line);
|
||||||
|
}
|
||||||
|
|
||||||
|
*next='\n';
|
||||||
|
|
||||||
|
if(done==1)
|
||||||
|
goto done;
|
||||||
|
|
||||||
|
if(next!=buff[i].mem_end){
|
||||||
|
source_line_num++;
|
||||||
|
next++;
|
||||||
|
}
|
||||||
|
|
||||||
|
current_line=next;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(done==0)
|
||||||
|
printf("warning no END directive at end of file %s\n",name);
|
||||||
|
done:
|
||||||
|
source_line_num=backup_line_num;
|
||||||
|
file_num=backup_file_num;
|
||||||
|
|
||||||
|
include_depth--;
|
||||||
|
|
||||||
|
|
||||||
|
#ifdef DEBUG
|
||||||
|
printf("File %s closed:\n",name);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void as_exit(const char *message)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
|
||||||
|
if(macro_line_num!=0)
|
||||||
|
fprintf(stderr, "** Error while expanding macro at line %d\n",macro_line_num);
|
||||||
|
|
||||||
|
if(source_line_num!=0)
|
||||||
|
fprintf(stderr, "** %s.\n** line number %d:\n %s\nIn file: %s\n", message, source_line_num,current_line,buff[file_num].name);
|
||||||
|
else
|
||||||
|
fprintf(stderr, "** Error with file:%s\n",buff[file_num].name);
|
||||||
|
for(i=num_alloc-1;i>=0;i--)
|
||||||
|
free(ptralloc[i]);
|
||||||
|
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
inline void output_tram_line( struct list_head *line_head, int type){
|
||||||
|
|
||||||
|
struct tram *tram_sym;
|
||||||
|
struct list_head *entry;
|
||||||
|
|
||||||
|
list_for_each(entry, line_head ){
|
||||||
|
|
||||||
|
tram_sym=list_entry(entry,struct tram,tram);
|
||||||
|
|
||||||
|
if(tram_sym->type==type){
|
||||||
|
u32 val;
|
||||||
|
//printf("table read:%s,%x\n",tram_sym->data.name,tram_sym->data.address);
|
||||||
|
tram_sym->data.address-=TRAM_ADDR_BASE;
|
||||||
|
fwrite(&(tram_sym->data.address),sizeof(u8),1,fp);
|
||||||
|
val = __cpu_to_le32(tram_sym->data.value);
|
||||||
|
fwrite(&val,sizeof(u32),1,fp);
|
||||||
|
if(listing){
|
||||||
|
if(type==TYPE_TRAM_ADDR_READ)
|
||||||
|
fprintf(listfile,"\tRead");
|
||||||
|
else
|
||||||
|
fprintf(listfile,"\tWrite");
|
||||||
|
|
||||||
|
fprintf(listfile,": 0x3%02x/0x2%02x (%s), offset 0x%07x\n",tram_sym->data.address,tram_sym->data.address,
|
||||||
|
(prev_sym((&tram_sym->list)))->data.name,tram_sym->data.value);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//creates output header
|
||||||
|
void header(void)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
struct sym *sym;
|
||||||
|
|
||||||
|
extern struct list_head sym_head;
|
||||||
|
struct list_head *entry;
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"Patch name: \"%s\"\n\n",patch_name);
|
||||||
|
|
||||||
|
//patch signature
|
||||||
|
//1234567890123456
|
||||||
|
fprintf(fp, "EMU10K1 FX8010 1");
|
||||||
|
|
||||||
|
//patchname
|
||||||
|
fwrite(patch_name,sizeof(char), PATCH_NAME_SIZE,fp);
|
||||||
|
|
||||||
|
|
||||||
|
fwrite(&gpr_input_count,sizeof(u8),1,fp);
|
||||||
|
//write ins/outs
|
||||||
|
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"*****************************GPR******************************\n");
|
||||||
|
list_for_each(entry,&sym_head){
|
||||||
|
sym=list_entry(entry,struct sym,list);
|
||||||
|
if(sym->type==GPR_TYPE_INPUT){
|
||||||
|
sym->data.address-=GPR_BASE;
|
||||||
|
fwrite(&(sym->data.address),sizeof(u8),1,fp);
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"%s IN: 0x%03x, OUT: 0x%03x\n",sym->data.name,sym->data.address+GPR_BASE,sym->data.address+GPR_BASE+1);
|
||||||
|
sym->data.address++;
|
||||||
|
fwrite(&(sym->data.address),sizeof(u8),1,fp);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* dynamic gprs */
|
||||||
|
fwrite(&gpr_dynamic_count,sizeof(u8),1,fp);
|
||||||
|
list_for_each(entry,&sym_head){
|
||||||
|
sym=list_entry(entry,struct sym,list);
|
||||||
|
if(sym->type==GPR_TYPE_DYNAMIC) {
|
||||||
|
sym->data.address-=GPR_BASE;
|
||||||
|
fwrite(&(sym->data.address),sizeof(u8),1,fp);
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"GPR Dynamic: 0x%03x(%s)\n",sym->data.address+GPR_BASE,sym->data.name);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* static gprs */
|
||||||
|
fwrite(&gpr_static_count,sizeof(u8),1,fp);
|
||||||
|
|
||||||
|
list_for_each(entry,&sym_head){
|
||||||
|
sym=list_entry(entry,struct sym,list);
|
||||||
|
if(sym->type==GPR_TYPE_STATIC){
|
||||||
|
u32 value;
|
||||||
|
sym->data.address-=GPR_BASE;
|
||||||
|
fwrite(&(sym->data.address),sizeof(u8),1,fp);
|
||||||
|
value = __cpu_to_le32(sym->data.value);
|
||||||
|
fwrite(&value,sizeof(u32),1,fp);
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"GPR Static: 0x%03x(%s), Value:0x%08x\n",sym->data.address+GPR_BASE
|
||||||
|
,sym->data.name,sym->data.value);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
/* control gprs */
|
||||||
|
fwrite(&gpr_control_count,sizeof(u8),1,fp);
|
||||||
|
|
||||||
|
|
||||||
|
list_for_each(entry,&sym_head){
|
||||||
|
sym=list_entry(entry,struct sym,list);
|
||||||
|
if(sym->type==GPR_TYPE_CONTROL){
|
||||||
|
u32 value;
|
||||||
|
sym->data.address-=GPR_BASE;
|
||||||
|
fwrite(&(sym->data.address),sizeof(u8),1,fp);
|
||||||
|
value = __cpu_to_le32(sym->data.value);
|
||||||
|
fwrite(&value,sizeof(u32),1,fp);
|
||||||
|
value = __cpu_to_le32(((struct control *)sym)->min);
|
||||||
|
fwrite(&value,sizeof(u32),1,fp);
|
||||||
|
value = __cpu_to_le32(((struct control *)sym)->max);
|
||||||
|
fwrite(&value,sizeof(u32),1,fp);
|
||||||
|
|
||||||
|
fwrite(&(sym->data.name), sizeof(char), MAX_SYM_LEN, fp);
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"GPR Control: 0x%03x(%s), value:0x%08x, Min:0x%08x, Max:0x%08x\n",sym->data.address+GPR_BASE,sym->data.name,
|
||||||
|
sym->data.value,((struct control *)sym)->min,((struct control *)sym)->max);
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*constant GPRs*/
|
||||||
|
fwrite(&gpr_constant_count,sizeof(u8),1,fp);
|
||||||
|
|
||||||
|
list_for_each(entry,&sym_head){
|
||||||
|
sym=list_entry(entry,struct sym,list);
|
||||||
|
if(sym->type==GPR_TYPE_CONSTANT){
|
||||||
|
sym->data.address-=GPR_BASE;
|
||||||
|
fwrite(&(sym->data.address),sizeof(u8),1,fp);
|
||||||
|
fwrite(&(sym->data.value),sizeof(u32),1,fp);
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"GPR Constant: 0x%03x(%s), Value:0x%08x\n",sym->data.address+0x100
|
||||||
|
,sym->data.name,sym->data.value);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"*****************************TRAM*****************************\n");
|
||||||
|
|
||||||
|
/*lookup-tables*/
|
||||||
|
fwrite(&tram_table_count,sizeof(u8),1,fp);
|
||||||
|
|
||||||
|
for(i=0;i<tram_table_count;i++){
|
||||||
|
u32 value;
|
||||||
|
value = __cpu_to_le32(tram_lookup[i].size);
|
||||||
|
fwrite(&value,sizeof(u32),1,fp);
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"Lookup-table block:%s, size:0x%08x\n",(&tram_lookup[i])->name,tram_lookup[i].size);
|
||||||
|
// read lines
|
||||||
|
fwrite(&(tram_lookup[i].read),sizeof(u8),1,fp);
|
||||||
|
output_tram_line(&(tram_lookup[i].tram),TYPE_TRAM_ADDR_READ);
|
||||||
|
//write lines
|
||||||
|
fwrite(&(tram_lookup[i].write),sizeof(u8),1,fp);
|
||||||
|
output_tram_line(&(tram_lookup[i].tram),TYPE_TRAM_ADDR_WRITE);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*Delay Lines*/
|
||||||
|
fwrite(&tram_delay_count,sizeof(u8),1,fp);
|
||||||
|
for(i=0;i<tram_delay_count;i++){
|
||||||
|
|
||||||
|
fwrite(&(tram_delay[i].size),sizeof(u32),1,fp);
|
||||||
|
if(listing)
|
||||||
|
fprintf(listfile,"Delay-line block:%s, size:0x%08x\n",tram_delay[i].name,tram_delay[i].size);
|
||||||
|
// read lines
|
||||||
|
fwrite(&(tram_delay[i].read),sizeof(u8),1,fp);
|
||||||
|
output_tram_line(&(tram_delay[i].tram),TYPE_TRAM_ADDR_READ);
|
||||||
|
|
||||||
|
//write lines
|
||||||
|
fwrite(&(tram_delay[i].write),sizeof(u8),1,fp);
|
||||||
|
output_tram_line(&(tram_delay[i].tram),TYPE_TRAM_ADDR_WRITE);
|
||||||
|
}
|
||||||
|
}
|
||||||
60
as10k1/as10k1.h
Normal file
60
as10k1/as10k1.h
Normal file
|
|
@ -0,0 +1,60 @@
|
||||||
|
/***************************************************************************
|
||||||
|
as10k1.h - description
|
||||||
|
-------------------
|
||||||
|
Date : May 25, 2000
|
||||||
|
Copyright : (C) 2000 by Daniel Bertrand
|
||||||
|
Email : d.bertrand@ieee.ca
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
/***************************************************************************
|
||||||
|
* *
|
||||||
|
* 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. *
|
||||||
|
* *
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#include"types.h"
|
||||||
|
#include"proto.h"
|
||||||
|
|
||||||
|
|
||||||
|
#define max_depth 3 //max include nesting depth
|
||||||
|
FILE *dc_fp;
|
||||||
|
int include_depth=0;
|
||||||
|
|
||||||
|
|
||||||
|
#define MAXINCLUDES 25
|
||||||
|
|
||||||
|
struct list_head sym_head;
|
||||||
|
|
||||||
|
struct alloc
|
||||||
|
{
|
||||||
|
char *mem_start;
|
||||||
|
char *mem_end;
|
||||||
|
char *name;
|
||||||
|
};
|
||||||
|
|
||||||
|
struct alloc buff[MAXINCLUDES];
|
||||||
|
u32 dsp_code[DSP_CODE_SIZE];
|
||||||
|
int ip=0;
|
||||||
|
|
||||||
|
int ds_addr=0x100; // DS start at 0x100 ( start of the general purpose registers).
|
||||||
|
int tram_addr=0; // tram data/addr read/write counter
|
||||||
|
|
||||||
|
struct delay tram_delay[MAX_TANK_ADDR];
|
||||||
|
struct lookup tram_lookup[MAX_TANK_ADDR];
|
||||||
|
|
||||||
|
int gpr_input_count=0;
|
||||||
|
int gpr_output_count=0;
|
||||||
|
int gpr_static_count=0;
|
||||||
|
int gpr_dynamic_count=0;
|
||||||
|
int gpr_control_count=0;
|
||||||
|
int tram_delay_count=0;
|
||||||
|
int tram_table_count=0;
|
||||||
|
int gpr_constant_count=0;
|
||||||
|
|
||||||
|
char patch_name[PATCH_NAME_SIZE]="NO_NAME";
|
||||||
|
int macro_depth=0;
|
||||||
|
|
||||||
|
|
||||||
438
as10k1/assemble.c
Normal file
438
as10k1/assemble.c
Normal file
|
|
@ -0,0 +1,438 @@
|
||||||
|
/***************************************************************************
|
||||||
|
assemble.c - Assembles the parsed lines
|
||||||
|
-------------------
|
||||||
|
Date : May 24 2000
|
||||||
|
Copyright : (C) 2000 by Daniel Bertrand
|
||||||
|
Email : d.bertrand@ieee.ca
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
/***************************************************************************
|
||||||
|
* *
|
||||||
|
* 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. *
|
||||||
|
* *
|
||||||
|
***************************************************************************/
|
||||||
|
#include<string.h>
|
||||||
|
#include<stdio.h>
|
||||||
|
#include<stdlib.h>
|
||||||
|
#include <ctype.h>
|
||||||
|
|
||||||
|
|
||||||
|
#include"types.h"
|
||||||
|
#include"proto.h"
|
||||||
|
|
||||||
|
extern int dbg_opt;
|
||||||
|
extern FILE *listfile;
|
||||||
|
extern char *listing;
|
||||||
|
char type_strings[GPR_TYPE_EQUATE+1][20]={
|
||||||
|
"Input",
|
||||||
|
"Output",
|
||||||
|
"Constant",
|
||||||
|
"Static",
|
||||||
|
"Dynamic",
|
||||||
|
"Control",
|
||||||
|
"Tram Data Reg",
|
||||||
|
"Tram Address/Read",
|
||||||
|
"Tram Address/Write",
|
||||||
|
"Macro arg",
|
||||||
|
"Equate"
|
||||||
|
};
|
||||||
|
|
||||||
|
void op(int op, int z,int w,int x,int y)
|
||||||
|
{
|
||||||
|
int w0, w1;
|
||||||
|
extern int dsp_code[DSP_CODE_SIZE];
|
||||||
|
extern int ip;
|
||||||
|
extern char op_codes[35][9];
|
||||||
|
extern char listtemp[60];
|
||||||
|
if (ip >= 0x200)
|
||||||
|
as_exit("to many instructions");
|
||||||
|
if (op >= 0x10 || op < 0x00)
|
||||||
|
as_exit("illegal op code");
|
||||||
|
|
||||||
|
//check if gpr is valid, optional do additional modifications
|
||||||
|
z=declared(z,1);
|
||||||
|
declared(w,2);
|
||||||
|
declared(x,3);
|
||||||
|
declared(y,4);
|
||||||
|
|
||||||
|
if ( (dbg_opt & DBG_INSTR) !=0 )
|
||||||
|
printf( "0x%03x\t%s(%d) \t0x%03x,0x%03x,0x%03x,0x%03x\n",2*ip,op_codes[op],op,z,w,x,y);
|
||||||
|
if(listing)
|
||||||
|
sprintf(listtemp, "0x%03x %-9s(%02d) 0x%03x,0x%03x,0x%03x,0x%03x",2*ip,op_codes[op],op,z,w,x,y);
|
||||||
|
|
||||||
|
w0 = (x << 10) | y;
|
||||||
|
w1 = (op << 20) | (z << 10) | w;
|
||||||
|
dsp_code[ip * 2] = w0;
|
||||||
|
dsp_code[ip * 2 + 1] = w1;
|
||||||
|
ip++;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
int declared(int operand,int i){
|
||||||
|
|
||||||
|
struct sym *sym;
|
||||||
|
extern struct list_head sym_head;
|
||||||
|
struct list_head *entry;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
if ((operand < 0x040)||(operand >= 0x400)){
|
||||||
|
printf("** Assembler Error with Operand %d:0x%x\n",i,operand);
|
||||||
|
as_exit("Operand has value out of range");
|
||||||
|
}
|
||||||
|
|
||||||
|
if((operand < 0x400) && operand >= 0x100)
|
||||||
|
{
|
||||||
|
list_for_each(entry,&sym_head){
|
||||||
|
sym=list_entry(entry,struct sym,list);
|
||||||
|
if( (sym->data.address == operand ) && sym->type!=GPR_TYPE_EQUATE){
|
||||||
|
if( ( sym->type==GPR_TYPE_CONSTANT) && (i==1) ){
|
||||||
|
printf("** Assembler Error with Operand %d:0x%x\n",i,operand);
|
||||||
|
as_exit("** Error: Destination register is a read-only constant");
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(sym->type!=GPR_TYPE_INPUT)
|
||||||
|
return(operand);
|
||||||
|
else
|
||||||
|
return( i==1? operand + 1 : operand);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
else if(operand<0x100)
|
||||||
|
return(operand);
|
||||||
|
|
||||||
|
printf("** Assembler Error with Operand %d:0x%x\n",i,operand);
|
||||||
|
as_exit("Operand address is undeclared");
|
||||||
|
return(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
//each operand will be something like : , sym1 + sym2 * sym3 ,
|
||||||
|
//we will recursively decode each symbol and perform proper operations:
|
||||||
|
int arg_decode(char *operand, int prev_val)
|
||||||
|
{
|
||||||
|
int value;
|
||||||
|
char oper='0';
|
||||||
|
|
||||||
|
|
||||||
|
//Nothing:
|
||||||
|
if(operand==NULL)
|
||||||
|
as_exit("Parse Error: missing operand(s)");
|
||||||
|
|
||||||
|
|
||||||
|
if(*operand==','||*operand=='\n'||*operand=='\0')
|
||||||
|
return(prev_val);
|
||||||
|
|
||||||
|
|
||||||
|
//skip over leading blanks(if any):
|
||||||
|
advance_over_whites(operand);
|
||||||
|
|
||||||
|
if(*operand==','||*operand=='\n' ||*operand=='\0')
|
||||||
|
return(prev_val);
|
||||||
|
|
||||||
|
//get the operator:
|
||||||
|
if(*operand=='+' || *operand=='-' || *operand=='/' || *operand== '*'){
|
||||||
|
oper=*operand;
|
||||||
|
operand++;
|
||||||
|
}
|
||||||
|
|
||||||
|
//skip over any blanks after the oper
|
||||||
|
advance_over_whites(operand);
|
||||||
|
|
||||||
|
//decode the symbol/value:
|
||||||
|
value=arg_decode2(operand);
|
||||||
|
|
||||||
|
//advance to next symbol
|
||||||
|
while( *operand!='+' && *operand!='-' && *operand!='/' && *operand!= '*' && *operand != '\0' &&*operand!=',' &&*operand!='\n')
|
||||||
|
operand++;
|
||||||
|
|
||||||
|
switch (oper){
|
||||||
|
|
||||||
|
case '+':
|
||||||
|
return(arg_decode(operand,prev_val+value));
|
||||||
|
case '-':
|
||||||
|
return(arg_decode(operand,prev_val-value));
|
||||||
|
case '/':
|
||||||
|
return(arg_decode(operand,prev_val/value));
|
||||||
|
case '*':
|
||||||
|
return(arg_decode(operand,prev_val*value));
|
||||||
|
default:
|
||||||
|
return(arg_decode(operand,value));
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
//this function does argument decoding
|
||||||
|
int arg_decode2(char *operand)
|
||||||
|
{
|
||||||
|
extern int ip,ds_addr;
|
||||||
|
extern unsigned int macro_depth;
|
||||||
|
struct sym *sym;
|
||||||
|
extern struct list_head sym_head;
|
||||||
|
struct list_head *entry;
|
||||||
|
//printf("operand:%s\n",operand);
|
||||||
|
|
||||||
|
|
||||||
|
if(operand[0]=='.' &&isalpha(operand[1])){
|
||||||
|
add_symbol(operand,GPR_TYPE_STATIC, ds_addr++, -(long)ip);
|
||||||
|
return(ds_addr-1);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// Hex
|
||||||
|
if((char)(*operand)=='$')
|
||||||
|
return((int)strtol(operand+1,NULL,16));
|
||||||
|
// Octal
|
||||||
|
if((char)(*operand)=='@')
|
||||||
|
return((int)strtol(operand+1,NULL,8));
|
||||||
|
// Binary:
|
||||||
|
if((char)(*operand)=='%')
|
||||||
|
return((int)strtol(operand+1,NULL,2));
|
||||||
|
// Decimal:
|
||||||
|
if( (operand[0] >= '0' && operand[0] <='9') ||operand[0]=='-')
|
||||||
|
return((int)strtol(operand,NULL,10));
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
//Symbol:
|
||||||
|
list_for_each(entry,&sym_head){
|
||||||
|
sym=list_entry(entry,struct sym,list);
|
||||||
|
if(symcmp(sym->data.name,operand)==0){
|
||||||
|
if(sym->type!=TYPE_MACRO_ARG)
|
||||||
|
return(sym->data.address);
|
||||||
|
else if(sym->data.value==(macro_depth))
|
||||||
|
return(sym->data.address);
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
printf("Parse error with operand: \"");
|
||||||
|
while(!symend(operand))
|
||||||
|
printf("%c",*(operand++));
|
||||||
|
printf("\"\n");
|
||||||
|
as_exit("Bad operand");
|
||||||
|
|
||||||
|
//printf("** Parse error with operand: \"%s\"\n",operand);
|
||||||
|
as_exit("\"\nOperand isn't a defined symbol or value");
|
||||||
|
return(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
#define FACTOR 0x7fffffff
|
||||||
|
#define SAMP_FREQ 48000
|
||||||
|
//used by the DC operation to get a long int:
|
||||||
|
long arg2long(char *operand){
|
||||||
|
|
||||||
|
|
||||||
|
//Nothing:
|
||||||
|
if(operand==NULL)
|
||||||
|
as_exit("Parse Error: missing operand(s)");
|
||||||
|
|
||||||
|
advance(operand);
|
||||||
|
|
||||||
|
//Fractional ( -1 <= operand <= 1 )
|
||||||
|
if(operand[0]=='#')
|
||||||
|
return((long)(atof(operand+1)*FACTOR));
|
||||||
|
// Time value
|
||||||
|
if(operand[0]=='&')
|
||||||
|
return((long)(atof(operand+1)*48000));
|
||||||
|
// Hex:
|
||||||
|
if((char)(*operand)=='$')
|
||||||
|
return(strtoul(operand+1,NULL,16));
|
||||||
|
// Binary:
|
||||||
|
if((char)(*operand)=='%')
|
||||||
|
return(strtoul(operand+1,NULL,2));
|
||||||
|
// Octal:
|
||||||
|
if((char)(*operand)=='@')
|
||||||
|
return(strtoul(operand+1,NULL,8));
|
||||||
|
// Decimal:
|
||||||
|
if( (operand[0] >= '0' && operand[0] <='9') || operand[0]=='-' || operand[0]=='.'){
|
||||||
|
if(atof(operand)<1 && atof(operand)>-1)
|
||||||
|
return((long)(atof(operand)*FACTOR));
|
||||||
|
else
|
||||||
|
return(strtol(operand,NULL,10));
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
printf("Parse error with operand:\"%s\"\n",operand);
|
||||||
|
// while(!symend(operand))
|
||||||
|
// printf("%c",*operand);
|
||||||
|
//printf("\"\n");
|
||||||
|
as_exit("Bad operand");
|
||||||
|
|
||||||
|
return(0);
|
||||||
|
}
|
||||||
|
void update_symbol(char *name,u16 type,u16 address,u32 value){
|
||||||
|
struct sym *sym;
|
||||||
|
|
||||||
|
|
||||||
|
switch(type){
|
||||||
|
|
||||||
|
case TYPE_MACRO_ARG:
|
||||||
|
|
||||||
|
if( issymbol(name,&sym) == -1 ){
|
||||||
|
add_symbol(name,type,address,value);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(sym->type!=TYPE_MACRO_ARG){
|
||||||
|
printf("Error: with argument:%s",name);
|
||||||
|
as_exit("Error:symbol is already defined");
|
||||||
|
}
|
||||||
|
sym->data.address=address;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
if( issymbol(name,&sym) == -1 ){
|
||||||
|
add_symbol(name,type,address,value);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void add_symbol(char *name, u16 type, u16 address, u32 value)
|
||||||
|
{
|
||||||
|
|
||||||
|
extern int gpr_input_count,gpr_output_count,gpr_static_count,gpr_dynamic_count,gpr_control_count,gpr_constant_count;
|
||||||
|
struct sym *sym;
|
||||||
|
struct tram *tmp_ptr;
|
||||||
|
extern struct list_head sym_head;
|
||||||
|
extern struct delay tram_delay[MAX_TANK_ADDR];
|
||||||
|
extern struct lookup tram_lookup[MAX_TANK_ADDR];
|
||||||
|
int tmp;
|
||||||
|
|
||||||
|
|
||||||
|
if(name==NULL)
|
||||||
|
as_exit("Parse Error: This directive requires a label");
|
||||||
|
|
||||||
|
if(symcmp(name,NO_SYM)!=0 &&type== GPR_TYPE_CONSTANT){
|
||||||
|
if(issymbol(name,&sym)==0){
|
||||||
|
if(sym->data.value != value)
|
||||||
|
as_exit("Error: Constant redeclared as another value");
|
||||||
|
else
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if(symcmp(name,NO_SYM)!=0 && type!=TYPE_MACRO_ARG)
|
||||||
|
{
|
||||||
|
if(issymbol(name,&sym)!=-1)
|
||||||
|
as_exit("Parse Error: Symbol is already defined");
|
||||||
|
if(ismacro(name)!=-1)
|
||||||
|
as_exit("Parse Error: Symbol is already defined as a macro");
|
||||||
|
if(isalpha(*name)==0 && name[0]!='.')
|
||||||
|
as_exit("Parse Error: Symbol must start with a alpha character (a-z)");
|
||||||
|
}
|
||||||
|
|
||||||
|
switch(type){
|
||||||
|
case GPR_TYPE_CONTROL:
|
||||||
|
sym=(struct sym *)malloc(sizeof(struct control));
|
||||||
|
list_add_tail(&sym->list, &sym_head);
|
||||||
|
break;
|
||||||
|
case TYPE_TRAM_ADDR_READ:
|
||||||
|
case TYPE_TRAM_ADDR_WRITE:
|
||||||
|
sym=(struct sym *)malloc(sizeof(struct tram));
|
||||||
|
list_add_tail(&sym->list, &sym_head);
|
||||||
|
|
||||||
|
//if ID is that of a delay:
|
||||||
|
if((tmp=((struct sym * ) sym->list.prev)->data.value)>0xff){
|
||||||
|
tmp=tmp-0x100;
|
||||||
|
list_add_tail(&(((struct tram *)sym)->tram) , &(tram_delay[tmp].tram) );
|
||||||
|
if(type== TYPE_TRAM_ADDR_READ)
|
||||||
|
tram_delay[tmp].read++;
|
||||||
|
else
|
||||||
|
tram_delay[tmp].write++;
|
||||||
|
}else{
|
||||||
|
tmp_ptr=(struct tram *)sym;
|
||||||
|
list_add_tail(&(((struct tram *)sym)->tram) , &(tram_lookup[tmp].tram) );
|
||||||
|
tmp_ptr=(struct tram *)sym;
|
||||||
|
if(type== TYPE_TRAM_ADDR_READ)
|
||||||
|
tram_lookup[tmp].read++;
|
||||||
|
else
|
||||||
|
tram_lookup[tmp].write++;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
|
||||||
|
sym=(struct sym *)malloc(sizeof(struct sym));
|
||||||
|
list_add_tail(&sym->list, &sym_head);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
symcpy(sym->data.name,name);
|
||||||
|
sym->data.address=address;
|
||||||
|
sym->type=type;
|
||||||
|
sym->data.value=value;
|
||||||
|
//GPR debugging:
|
||||||
|
if((dbg_opt&DBG_GPR) && type<=GPR_TYPE_CONTROL)
|
||||||
|
printf("GPR: %-16s 0x%03x Value=0x%08x, Type: %s\n",name,address,value,type_strings[type] );
|
||||||
|
|
||||||
|
//tram debugging:
|
||||||
|
else if((dbg_opt&DBG_TRAM && type == TYPE_TRAM_DATA))
|
||||||
|
printf("TRAM Access: %-16s",name);
|
||||||
|
else if((dbg_opt&DBG_TRAM && type == TYPE_TRAM_ADDR_WRITE))
|
||||||
|
printf(", type: Write, using 0x%03x/0x%03x, offset:0x%07x",address,address-0x100,value );
|
||||||
|
else if((dbg_opt&DBG_TRAM && type == TYPE_TRAM_ADDR_READ))
|
||||||
|
printf(", type: Read, using 0x%03x/0x%03x, offset:0x%07x",address,address-0x100,value );
|
||||||
|
//General Symbol debugging:
|
||||||
|
else if((dbg_opt&DBG_SYM )){
|
||||||
|
printf("symbol: %-16s 0x%03x Type: %s\n",name,address,type_strings[type]);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
switch(type){
|
||||||
|
case TYPE_MACRO_ARG:
|
||||||
|
return;
|
||||||
|
case GPR_TYPE_INPUT:
|
||||||
|
gpr_input_count++;
|
||||||
|
return;
|
||||||
|
case GPR_TYPE_OUTPUT:
|
||||||
|
gpr_output_count++;
|
||||||
|
return;
|
||||||
|
case GPR_TYPE_STATIC:
|
||||||
|
gpr_static_count++;
|
||||||
|
return;
|
||||||
|
case GPR_TYPE_DYNAMIC:
|
||||||
|
gpr_dynamic_count++;
|
||||||
|
return;
|
||||||
|
case GPR_TYPE_CONTROL:
|
||||||
|
gpr_control_count++;
|
||||||
|
return;
|
||||||
|
case GPR_TYPE_CONSTANT:
|
||||||
|
gpr_constant_count++;
|
||||||
|
return;
|
||||||
|
default:
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
9
as10k1/configure.in
Normal file
9
as10k1/configure.in
Normal file
|
|
@ -0,0 +1,9 @@
|
||||||
|
AC_INIT(as10k1.c)
|
||||||
|
AM_INIT_AUTOMAKE(as10k1, A0.99)
|
||||||
|
AC_PROG_CC
|
||||||
|
AC_PROG_INSTALL
|
||||||
|
AC_HEADER_STDC
|
||||||
|
CFLAGS="$CFLAGS"
|
||||||
|
LDFLAGS="$LDFLAGS"
|
||||||
|
|
||||||
|
AC_OUTPUT(Makefile)
|
||||||
24
as10k1/cvscompile
Normal file
24
as10k1/cvscompile
Normal file
|
|
@ -0,0 +1,24 @@
|
||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
if test "x$AUTOMAKE_DIR" = "x"; then
|
||||||
|
if test -d /usr/local/share/automake; then
|
||||||
|
AUTOMAKE_DIR=/usr/local/share/automake
|
||||||
|
fi
|
||||||
|
if test -d /usr/share/automake; then
|
||||||
|
AUTOMAKE_DIR="/usr/share/automake"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
for f in install-sh mkinstalldirs missing; do
|
||||||
|
cp -av $AUTOMAKE_DIR/$f .
|
||||||
|
done
|
||||||
|
|
||||||
|
aclocal $ACLOCAL_FLAGS
|
||||||
|
automake --foreign --add-missing
|
||||||
|
autoconf
|
||||||
|
export CFLAGS='-O2 -Wall -pipe -g'
|
||||||
|
echo "CFLAGS=$CFLAGS"
|
||||||
|
echo "./configure $@"
|
||||||
|
./configure $@
|
||||||
|
unset CFLAGS
|
||||||
|
make
|
||||||
11
as10k1/examples/Makefile
Normal file
11
as10k1/examples/Makefile
Normal file
|
|
@ -0,0 +1,11 @@
|
||||||
|
TARGETS = blank.emu10k1 chorus.emu10k1 delay.emu10k1 eq2.emu10k1 eq5.emu10k1 \
|
||||||
|
fir.emu10k1 flanger.emu10k1 sine.emu10k1 tremolo.emu10k1 vibrato.emu10k1 \
|
||||||
|
vol_ctrl.emu10k1
|
||||||
|
|
||||||
|
%.emu10k1: %.asm
|
||||||
|
../as10k1 $<
|
||||||
|
|
||||||
|
all: $(TARGETS)
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *~ *.emu10k1
|
||||||
3
as10k1/examples/blank.asm
Normal file
3
as10k1/examples/blank.asm
Normal file
|
|
@ -0,0 +1,3 @@
|
||||||
|
;;; A blank file for clearing programs from the emu10k1
|
||||||
|
|
||||||
|
end
|
||||||
87
as10k1/examples/chorus.asm
Normal file
87
as10k1/examples/chorus.asm
Normal file
|
|
@ -0,0 +1,87 @@
|
||||||
|
;;; Simple Chorus
|
||||||
|
;;; Author:Daniel Bertrand
|
||||||
|
;;; Date: Oct 12, 2000
|
||||||
|
|
||||||
|
;;; 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.
|
||||||
|
|
||||||
|
;;; References:
|
||||||
|
;;; http://www.harmony-central.com/Effects/Articles/Chorus
|
||||||
|
|
||||||
|
|
||||||
|
;;; speed(formerly "delta")=2*pi*freq/48000
|
||||||
|
;;; this give us our delta value for a specific freq (0.1-0.3Hz is good)
|
||||||
|
|
||||||
|
|
||||||
|
include "emu_constants.asm"
|
||||||
|
name "Chorus"
|
||||||
|
|
||||||
|
in IO
|
||||||
|
out equ in
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
speed control 4e-05 , 0 , 1e-4 ; Controls frequency (radians)
|
||||||
|
delay control &40e-3 ,&10e-3 , &80e-3; twice (2*) average delay (sec)
|
||||||
|
width control #0.3 ,0 ,0.5 ; width control
|
||||||
|
mix control #1 ,0 ,#1 ; forward mix
|
||||||
|
|
||||||
|
;; sine generator storage spaces:
|
||||||
|
sinx sta 0
|
||||||
|
cosx sta #0.5
|
||||||
|
|
||||||
|
tmp dyn
|
||||||
|
tmp2 dyn
|
||||||
|
|
||||||
|
;;; Two Delay Lines:
|
||||||
|
|
||||||
|
|
||||||
|
dly delay &80e-3 ;10msec delay line
|
||||||
|
|
||||||
|
write twrite dly,0 ; tram writes
|
||||||
|
ready tread dly,0 ; tram reads
|
||||||
|
reada tread dly,0
|
||||||
|
|
||||||
|
;;;The code:
|
||||||
|
|
||||||
|
|
||||||
|
;;; two opcode sinewave generator (I love this chip!):
|
||||||
|
macs sinx,sinx,speed,cosx
|
||||||
|
macs1 cosx,cosx,speed,sinx
|
||||||
|
|
||||||
|
;;; 0.5Asint+0.5:
|
||||||
|
macs tmp,C_2^30,sinx,width
|
||||||
|
|
||||||
|
;;; calculate address:
|
||||||
|
macs ready.a,write.a,delay,tmp
|
||||||
|
|
||||||
|
;second addresses for interpolation:
|
||||||
|
;(interesting how the emu engineers decided that $800 wasn't a needed value)
|
||||||
|
macints reada.a,ready.a,C_8,C_256
|
||||||
|
|
||||||
|
|
||||||
|
;;; Write to the delay line:
|
||||||
|
|
||||||
|
macs write,C_0,in,C_2^29
|
||||||
|
|
||||||
|
|
||||||
|
;;; output values:
|
||||||
|
;;; 0x55 is 00100000 (?)
|
||||||
|
macints tmp,C_0,reada.a,C_LSshift; get least significant part of address
|
||||||
|
|
||||||
|
interp tmp2,ready,tmp,reada ;interpolate in-between the two delay line readings
|
||||||
|
|
||||||
|
macs out,in,tmp2,mix
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
29
as10k1/examples/delay.asm
Normal file
29
as10k1/examples/delay.asm
Normal file
|
|
@ -0,0 +1,29 @@
|
||||||
|
;;; A simple delay routine
|
||||||
|
|
||||||
|
include "emu_constants.asm"
|
||||||
|
name "delay"
|
||||||
|
|
||||||
|
|
||||||
|
level control 0.5, #0 , #1
|
||||||
|
feedback control #0.3, #0 , #1
|
||||||
|
delay control &0.2, &0, &0.5
|
||||||
|
|
||||||
|
io IO
|
||||||
|
|
||||||
|
dly delay &0.5 ; 0.5 sec delay block
|
||||||
|
|
||||||
|
write twrite dly,0 ; write at 0 sec
|
||||||
|
read tread dly,&.2 ; read at 0.2 sec
|
||||||
|
|
||||||
|
|
||||||
|
acc3 read.a,delay,write.a,C_0
|
||||||
|
|
||||||
|
|
||||||
|
macs io,io,level,read
|
||||||
|
macs write,io,read,feedback
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
117
as10k1/examples/emu_constants.asm
Normal file
117
as10k1/examples/emu_constants.asm
Normal file
|
|
@ -0,0 +1,117 @@
|
||||||
|
;some hardware constants C_[n]<DecimalValue>, 'n' indicates negative value
|
||||||
|
;
|
||||||
|
;these are in 2's complement representation
|
||||||
|
|
||||||
|
C_0 equ $040 ;;00000000
|
||||||
|
C_1 equ $041 ;;00000001
|
||||||
|
C_2 equ $042 ;;00000002
|
||||||
|
C_3 equ $043 ;;00000003
|
||||||
|
C_4 equ $044 ;;00000004
|
||||||
|
C_8 equ $045 ;;00000008
|
||||||
|
C_16 equ $046 ;;00000010
|
||||||
|
C_32 equ $047 ;;00000020
|
||||||
|
C_256 equ $048 ;;00000100
|
||||||
|
C_65536 equ $049 ;;00010000
|
||||||
|
C_2^23 equ $04A ;;00080000
|
||||||
|
C_2^28 equ $04b ;;10000000
|
||||||
|
C_2^29 equ $04c ;;20000000 (C_max /4) +1
|
||||||
|
C_2^30 equ $04d ;;40000000 ( C_max / 2 ) + 1 (almost half)
|
||||||
|
C_nmax equ $04e ;;80000000 most negative number
|
||||||
|
C_max equ $04f ;;7fffffff most positive number
|
||||||
|
C_n1 equ $050 ;;ffffffff -1
|
||||||
|
C_n2 equ $051 ;;fffffffe -2
|
||||||
|
C_n2^30 equ $052 ;;c0000000 C_nmax /2
|
||||||
|
|
||||||
|
C_LSshift equ $55 ;;to left shift an address by using macsints
|
||||||
|
;;for fractional addresses
|
||||||
|
|
||||||
|
|
||||||
|
ZERO equ C_0;
|
||||||
|
ONE equ C_1;
|
||||||
|
|
||||||
|
;;; Hardware Registers:
|
||||||
|
|
||||||
|
ACCUM equ $56
|
||||||
|
CCR equ $57
|
||||||
|
NOISE1 equ $58
|
||||||
|
NOISE2 equ $59
|
||||||
|
IRQ equ $5A
|
||||||
|
DBAC equ $5B
|
||||||
|
|
||||||
|
and macro dest,srcA,srcB
|
||||||
|
andxor dest,srcA,srcB,C_0
|
||||||
|
endm
|
||||||
|
|
||||||
|
xor macro dest,srcA,srcB
|
||||||
|
andxor dest,C_n1,srcA,srcB
|
||||||
|
endm
|
||||||
|
|
||||||
|
not macro dest,src
|
||||||
|
andxor dest,src,C_n1,C_n1
|
||||||
|
endm
|
||||||
|
|
||||||
|
nand macro dest,srcA,srcB
|
||||||
|
andxor dest,srcA,srcB,C_n1
|
||||||
|
endm
|
||||||
|
|
||||||
|
or macro dest,srcA,srcB
|
||||||
|
not C_0,srcA
|
||||||
|
andxor dest,ACCUM,srcA,srcB
|
||||||
|
endm
|
||||||
|
|
||||||
|
nor macro dest,srcA,scrB
|
||||||
|
not dest,srcA
|
||||||
|
andxor dest,srcB,dest,srcA
|
||||||
|
not dest,dest
|
||||||
|
endm
|
||||||
|
|
||||||
|
|
||||||
|
neg macro dest,src
|
||||||
|
macs1 dest,C_0,C_1,C_nmax
|
||||||
|
endm
|
||||||
|
|
||||||
|
;;; branch on:
|
||||||
|
;;; ==0
|
||||||
|
beq macro count
|
||||||
|
skip CCR,CCR,C_8,count
|
||||||
|
endm
|
||||||
|
;;; !=0
|
||||||
|
bne macro count
|
||||||
|
skip CCR,CCR,C_256,count
|
||||||
|
endm
|
||||||
|
;;; <0
|
||||||
|
blt macro count
|
||||||
|
skip CCR,CCR,C_4,count
|
||||||
|
endm
|
||||||
|
;;; always branch
|
||||||
|
bra macro count
|
||||||
|
skip C_0,C_max,C_max,count
|
||||||
|
endm
|
||||||
|
;;; on saturation
|
||||||
|
bsa macro count
|
||||||
|
skip CCR,CCR,C_16,count
|
||||||
|
endm
|
||||||
|
bge macro count
|
||||||
|
C___80 con $80
|
||||||
|
skip CCR,CCR,C___80,count
|
||||||
|
endm
|
||||||
|
|
||||||
|
bgt macro count
|
||||||
|
C___180 con $180
|
||||||
|
skip CCR,CCR,C___180,count
|
||||||
|
endm
|
||||||
|
|
||||||
|
move macro dest,src
|
||||||
|
macs dest,src,C_0,C_0
|
||||||
|
endm
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
;;; usefull for testing values before a skip
|
||||||
|
test macro test
|
||||||
|
macs C_0,test,C_0,C_0
|
||||||
|
endm
|
||||||
|
|
||||||
|
cmp macro src1.scr2
|
||||||
|
macints C_0,src1,C_n1,src2
|
||||||
|
endm
|
||||||
69
as10k1/examples/eq2.asm
Normal file
69
as10k1/examples/eq2.asm
Normal file
|
|
@ -0,0 +1,69 @@
|
||||||
|
;;; Bass and Treble Effect
|
||||||
|
;;; By: Daniel Bertrand
|
||||||
|
;;; Date: Dec 19th,200
|
||||||
|
;;; License: GPL v2
|
||||||
|
;;;
|
||||||
|
name "Eq2"
|
||||||
|
include "emu_constants.asm"
|
||||||
|
|
||||||
|
;;; a and b coefs for bass:
|
||||||
|
b_b con 2.736129417e-01 5.240710533e-01 2.620355267e-01
|
||||||
|
a_b con 9.560258858e-01 -4.576868881e-01
|
||||||
|
|
||||||
|
;;; a and b coef for treble:
|
||||||
|
b_t con -4.982305773e-01 9.964611547e-01 -4.982305773e-01
|
||||||
|
a_t con 9.317583774e-01 -4.356836381e-01
|
||||||
|
|
||||||
|
scalein con 2.449e-05, 1.157407407e-04
|
||||||
|
scaleout con 128, 16192
|
||||||
|
|
||||||
|
bass control 0.25,#0,#1
|
||||||
|
treble control 0.25,#0,#1
|
||||||
|
|
||||||
|
in IO
|
||||||
|
out equ in
|
||||||
|
|
||||||
|
tmp dyn
|
||||||
|
tmpout dyn
|
||||||
|
|
||||||
|
dly_b sta 0,0
|
||||||
|
dly_t sta 0,0
|
||||||
|
|
||||||
|
|
||||||
|
;;; bass filter(iir):
|
||||||
|
|
||||||
|
macw tmp, C_0, dly_b+1, a_b+1
|
||||||
|
macw tmp, tmp, dly_b , a_b
|
||||||
|
macw tmp,tmp,in,scalein
|
||||||
|
macints tmp, C_0, tmp, C_2
|
||||||
|
|
||||||
|
macs C_0,C_0,C_0,C_0
|
||||||
|
|
||||||
|
macmv dly_b+1,dly_b, dly_b+1, b_b+2
|
||||||
|
macmv dly_b,tmp, dly_b, b_b+1
|
||||||
|
macw tmp,ACCUM, tmp, b_b
|
||||||
|
|
||||||
|
|
||||||
|
macs tmp,C_0,bass,tmp
|
||||||
|
macints tmpout,C_0,tmp,scaleout
|
||||||
|
|
||||||
|
;;; treble
|
||||||
|
|
||||||
|
|
||||||
|
macw tmp, C_0, dly_t+1, a_t+1
|
||||||
|
macw tmp, tmp, dly_t , a_t
|
||||||
|
macw tmp, tmp, in,scalein+1
|
||||||
|
macints tmp,C_0,tmp,C_2
|
||||||
|
|
||||||
|
macs C_0,C_0,C_0,C_0
|
||||||
|
|
||||||
|
macmv dly_t+1,dly_t, dly_t+1, b_t+2
|
||||||
|
macmv dly_t,tmp, dly_t, b_t+1
|
||||||
|
macw tmp,ACCUM, tmp, b_t
|
||||||
|
|
||||||
|
macs tmp,C_0,treble,tmp
|
||||||
|
macints out,tmpout,tmp,scaleout+1
|
||||||
|
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
60
as10k1/examples/eq5.asm
Normal file
60
as10k1/examples/eq5.asm
Normal file
|
|
@ -0,0 +1,60 @@
|
||||||
|
name "5 band EQ"
|
||||||
|
include "emu_constants.asm"
|
||||||
|
|
||||||
|
|
||||||
|
c0 con -0.98485626 0.98502633 0.99034926 -0.99034926
|
||||||
|
c1 con -0.95169465 0.95337028 0.93878619 -0.93878619
|
||||||
|
c2 con -0.84376963 0.85967945 0.84174451 -0.84174451
|
||||||
|
c3 con -0.47720462 0.61368058 0.73503304 -0.73503304
|
||||||
|
c4 con -0.28987550 0.11999291 0.72670869 -0.72670869
|
||||||
|
|
||||||
|
scalein sta 0.00013665 0.00134590 0.01265823 0.10000000 0.50000000
|
||||||
|
scaleout sta 420.00000000 140.00000000 50.00000000 20.00000000 10.00000000
|
||||||
|
|
||||||
|
in io
|
||||||
|
out equ in
|
||||||
|
|
||||||
|
F_100Hz control #0.2,0,#1
|
||||||
|
F_316Hz control #0.1,0,#1
|
||||||
|
F_1000Hz control #0.1,0,#1
|
||||||
|
F_3160Hz control #0.1,0,#1
|
||||||
|
F_10000Hz control #0.2,0,#1
|
||||||
|
|
||||||
|
dly0 sta 0 0
|
||||||
|
dly1 sta 0 0
|
||||||
|
dly2 sta 0 0
|
||||||
|
dly3 sta 0 0
|
||||||
|
dly4 sta 0 0
|
||||||
|
|
||||||
|
out_tmp dyn
|
||||||
|
tmp2 dyn
|
||||||
|
tmp dyn
|
||||||
|
|
||||||
|
;;; Band Pass Filter Macro:
|
||||||
|
BPF macro OUT , IN , DELAY , COEF , SCALEIN , SCALEOUT , FOO , GAIN
|
||||||
|
macs tmp,C_0,SCALEIN,IN
|
||||||
|
macs1 tmp,tmp,DELAY,FOO
|
||||||
|
macw1 tmp,tmp,DELAY,COEF
|
||||||
|
macw1 tmp,tmp,DELAY+1,COEF+1
|
||||||
|
macs tmp2,C_0,DELAY+1,COEF+3
|
||||||
|
macs DELAY+1,DELAY,C_0,C_0
|
||||||
|
macs tmp2,tmp2,tmp,COEF+2
|
||||||
|
macs DELAY,tmp,C_0,C_0
|
||||||
|
macints tmp2,C_0,tmp2,SCALEOUT
|
||||||
|
macs OUT,OUT,tmp2,GAIN
|
||||||
|
endm
|
||||||
|
|
||||||
|
|
||||||
|
macs out_tmp,C_0,C_0,C_0
|
||||||
|
BPF out_tmp,in,dly0,c0,scalein,scaleout,C_nmax,F_100Hz
|
||||||
|
BPF out_tmp,in,dly1,c1,scalein+1,scaleout+1,C_nmax,F_316Hz
|
||||||
|
BPF out_tmp,in,dly2,c2,scalein+2,scaleout+2,C_nmax,F_1000Hz
|
||||||
|
BPF out_tmp,in,dly3,c3,scalein+3,scaleout+3,C_nmax,F_3160Hz
|
||||||
|
BPF out_tmp,in,dly4,c4,scalein+4,scaleout+4,C_0,F_10000Hz
|
||||||
|
macs out,out_tmp,C_0,C_0
|
||||||
|
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
39
as10k1/examples/fir.asm
Normal file
39
as10k1/examples/fir.asm
Normal file
|
|
@ -0,0 +1,39 @@
|
||||||
|
;;; low pass filter with cut off at 0.004pi (96Hz)
|
||||||
|
name "trebass"
|
||||||
|
|
||||||
|
include "emu_constants.asm"
|
||||||
|
|
||||||
|
coef con 0.038684406 0.058115275 0.113007075 0.194116501 0.287525429 0.377072924 0.447195555 0.485671998 0.485783252 0.447503000 0.377505237 0.287987288 0.194517783 0.113292922 0.058289230 0.038818213
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
n equ 15 ; filter order
|
||||||
|
|
||||||
|
in io
|
||||||
|
out equ in
|
||||||
|
bass control 0,0,#1
|
||||||
|
delay sta 0,0,0,0,0 ,0,0,0,0,0 ,0,0,0,0,0 ,0
|
||||||
|
tmp dyn
|
||||||
|
|
||||||
|
macints delay,in,C_0,C_0
|
||||||
|
|
||||||
|
;;;our filter for the left channel
|
||||||
|
|
||||||
|
macs C_0,C_0,C_0,C_0
|
||||||
|
for i = n : 1
|
||||||
|
macmv delay+i,delay+i-1,delay+i,coef+i
|
||||||
|
endfor
|
||||||
|
|
||||||
|
macs tmp,ACCUM,delay,coef
|
||||||
|
|
||||||
|
macs1 out,in,tmp,bass
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
83
as10k1/examples/flanger.asm
Normal file
83
as10k1/examples/flanger.asm
Normal file
|
|
@ -0,0 +1,83 @@
|
||||||
|
;;; Simple mono flanger
|
||||||
|
;;; Author:Daniel Bertrand
|
||||||
|
;;; Date: May 29,2000
|
||||||
|
|
||||||
|
;;; 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.
|
||||||
|
|
||||||
|
;;; References:
|
||||||
|
;;; http://www.harmony-central.com/Effects/Articles/Flanging/
|
||||||
|
|
||||||
|
;;; speed( formerly "delta")=2*pi*freq/48000
|
||||||
|
;;; this give us our delta value for a specific freq (0.1-0.3Hz is good)
|
||||||
|
|
||||||
|
|
||||||
|
include "emu_constants.asm"
|
||||||
|
name "flanger"
|
||||||
|
|
||||||
|
in IO
|
||||||
|
out equ in
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
speed control 2e-05 , 0 , 1e-4 ; Controls frequency (radians)
|
||||||
|
delay control &7e-3 ,$1600 , 20e-3 ; twice (2*) average delay (sec)
|
||||||
|
width control #0.33 ,0 ,0.5 ; width control
|
||||||
|
forward control #1 ,0 ,#1 ; forward mix
|
||||||
|
feedback control 0.3 ,0 ,0.5 ; feedback level
|
||||||
|
|
||||||
|
;; sine generator storage spaces:
|
||||||
|
sinx sta 0
|
||||||
|
cosx sta #0.5
|
||||||
|
|
||||||
|
tmp dyn
|
||||||
|
tmp2 dyn
|
||||||
|
|
||||||
|
;;; Two Delay Lines:
|
||||||
|
|
||||||
|
|
||||||
|
dly delay &20e-3 ;20msec delay line
|
||||||
|
|
||||||
|
write twrite dly,0 ; tram writes
|
||||||
|
ready tread dly,0 ; tram reads
|
||||||
|
reada tread dly,0
|
||||||
|
|
||||||
|
;;;The code:
|
||||||
|
|
||||||
|
|
||||||
|
;;; two opcode sinewave generator (I love this chip!):
|
||||||
|
macs sinx,sinx,speed,cosx
|
||||||
|
macs1 cosx,cosx,speed,sinx
|
||||||
|
|
||||||
|
;;; 0.5Asint+0.5:
|
||||||
|
macs tmp,C_2^30,sinx,width
|
||||||
|
|
||||||
|
;;; calculate address:
|
||||||
|
macs ready.a,write.a,delay,tmp
|
||||||
|
|
||||||
|
;second addresses for interpolation:
|
||||||
|
;(interesting how the emu engineers decided that $800 wasn't a needed value)
|
||||||
|
macints reada.a,ready.a,C_8,C_256
|
||||||
|
|
||||||
|
|
||||||
|
;;; output values:
|
||||||
|
;;; 0x55 is 00100000 (?)
|
||||||
|
macints tmp,C_0,reada.a,C_LSshift; get least significant part of address
|
||||||
|
|
||||||
|
interp tmp2,ready,tmp,reada ;interpolate in-between the two delay line readings
|
||||||
|
macs out,in,tmp2,forward
|
||||||
|
|
||||||
|
|
||||||
|
;;; feedback and write to the delay line:
|
||||||
|
|
||||||
|
macs write,in,tmp2,feedback
|
||||||
|
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
29
as10k1/examples/sine.asm
Normal file
29
as10k1/examples/sine.asm
Normal file
|
|
@ -0,0 +1,29 @@
|
||||||
|
name "Sine wave Gen"
|
||||||
|
include "emu_constants.asm"
|
||||||
|
|
||||||
|
in io
|
||||||
|
out equ in
|
||||||
|
|
||||||
|
|
||||||
|
delta control $3afa691,0,$7fffffff ; controls frequency
|
||||||
|
|
||||||
|
|
||||||
|
cosx control #1,0,#1 ; amplitude of sinewave
|
||||||
|
sinx sta 0
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
macs sinx,sinx,delta,cosx
|
||||||
|
macs1 cosx,cosx,delta,sinx
|
||||||
|
macmv out,cosx,C_0,C_0
|
||||||
|
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
51
as10k1/examples/tremolo.asm
Normal file
51
as10k1/examples/tremolo.asm
Normal file
|
|
@ -0,0 +1,51 @@
|
||||||
|
;;; Tremolo Effect
|
||||||
|
;;; By: Daniel Bertrand
|
||||||
|
;;; Oct 29, 2000
|
||||||
|
|
||||||
|
include "emu_constants.asm"
|
||||||
|
name "tremolo"
|
||||||
|
|
||||||
|
in IO
|
||||||
|
out equ in
|
||||||
|
|
||||||
|
|
||||||
|
;;; sinewave generator:
|
||||||
|
delta control 10e-4,0,1e-2 ; controls frequency (2*pi*freq/48000)
|
||||||
|
cosx sta #0.5
|
||||||
|
sinx sta 0
|
||||||
|
depth control &0.001,0,&0.001
|
||||||
|
|
||||||
|
|
||||||
|
tmp dyn
|
||||||
|
|
||||||
|
delay delay &0.01
|
||||||
|
wrt twrite delay,0
|
||||||
|
rd tread delay,0
|
||||||
|
rd2 tread delay,0
|
||||||
|
c1000 sta $1000
|
||||||
|
|
||||||
|
macs wrt,in,C_0,C_0
|
||||||
|
;;; sinwave generator:
|
||||||
|
macs sinx,sinx,delta,cosx
|
||||||
|
macs1 cosx,cosx,delta,sinx
|
||||||
|
|
||||||
|
;;; calulate address = depth*sin(wt)+0.5*depth
|
||||||
|
|
||||||
|
|
||||||
|
macs tmp,c1000,depth,C_2^30
|
||||||
|
macs tmp,tmp,sinx,depth
|
||||||
|
acc3 rd.a,tmp,C_0,wrt.a
|
||||||
|
|
||||||
|
macints rd2.a,rd.a,C_8,C_256 ;;;next address
|
||||||
|
|
||||||
|
;;; get fractional address:
|
||||||
|
macints tmp,C_0,rd.a,C_LSshift
|
||||||
|
;;; linear interpolate fraction between the 2 reads
|
||||||
|
;;; output result
|
||||||
|
|
||||||
|
|
||||||
|
interp out,rd,tmp,rd2
|
||||||
|
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
31
as10k1/examples/vibrato.asm
Normal file
31
as10k1/examples/vibrato.asm
Normal file
|
|
@ -0,0 +1,31 @@
|
||||||
|
;;; written by: Daniel Bertrand <d.bertrand@ieee.ca>
|
||||||
|
|
||||||
|
include "emu_constants.asm"
|
||||||
|
name "Vibro Effect"
|
||||||
|
|
||||||
|
in io
|
||||||
|
out equ in
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;;; sinewave generator:
|
||||||
|
delta control 1.5e-3,0,1e-2 ; controls frequency (2*pi*freq/48000)
|
||||||
|
cosx sta #0.5
|
||||||
|
sinx sta 0
|
||||||
|
depth control #1,0,#1
|
||||||
|
sin2 dyn 1
|
||||||
|
|
||||||
|
|
||||||
|
macs sinx,sinx,delta,cosx
|
||||||
|
macs1 cosx,cosx,delta,sinx
|
||||||
|
;; depth control (and add 0.5 DC offset):
|
||||||
|
macs sin2,C_2^30,sinx,depth
|
||||||
|
|
||||||
|
;;; multiply signals by sinewave
|
||||||
|
macs out,C_0,in,sin2
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
13
as10k1/examples/vol_ctrl.asm
Normal file
13
as10k1/examples/vol_ctrl.asm
Normal file
|
|
@ -0,0 +1,13 @@
|
||||||
|
name "hw vol ctrl"
|
||||||
|
|
||||||
|
include "emu_constants.asm"
|
||||||
|
Vol_ctrl control #1,0,#1
|
||||||
|
|
||||||
|
in IO
|
||||||
|
out equ in
|
||||||
|
macs out,C_0,in,Vol_ctrl
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
88
as10k1/list.h
Normal file
88
as10k1/list.h
Normal file
|
|
@ -0,0 +1,88 @@
|
||||||
|
/* From linux kernel source */
|
||||||
|
|
||||||
|
|
||||||
|
#ifndef _LINUX_LIST_H
|
||||||
|
#define _LINUX_LIST_H
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Simple doubly linked list implementation.
|
||||||
|
*
|
||||||
|
* Some of the internal functions ("__xxx") are useful when
|
||||||
|
* manipulating whole lists rather than single entries, as
|
||||||
|
* sometimes we already know the next/prev entries and we can
|
||||||
|
* generate better code by using them directly rather than
|
||||||
|
* using the generic single-entry routines.
|
||||||
|
*/
|
||||||
|
|
||||||
|
struct list_head {
|
||||||
|
struct list_head *next, *prev;
|
||||||
|
};
|
||||||
|
|
||||||
|
#define LIST_HEAD(name) \
|
||||||
|
struct list_head name = { &name, &name }
|
||||||
|
|
||||||
|
#define INIT_LIST_HEAD(ptr) do { \
|
||||||
|
(ptr)->next = (ptr); (ptr)->prev = (ptr); \
|
||||||
|
} while (0)
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Insert a new entry between two known consecutive entries.
|
||||||
|
*
|
||||||
|
* This is only for internal list manipulation where we know
|
||||||
|
* the prev/next entries already!
|
||||||
|
*/
|
||||||
|
static __inline__ void __list_add(struct list_head *new, struct list_head *prev, struct list_head *next)
|
||||||
|
{
|
||||||
|
next->prev = new;
|
||||||
|
new->next = next;
|
||||||
|
new->prev = prev;
|
||||||
|
prev->next = new;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Insert a new entry after the specified head..
|
||||||
|
*/
|
||||||
|
static __inline__ void list_add(struct list_head *new, struct list_head *head)
|
||||||
|
{
|
||||||
|
__list_add(new, head, head->next);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Insert a new entry before the specified head..
|
||||||
|
*/
|
||||||
|
static __inline__ void list_add_tail(struct list_head *new, struct list_head *head)
|
||||||
|
{
|
||||||
|
__list_add(new, head->prev, head);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Delete a list entry by making the prev/next entries
|
||||||
|
* point to each other.
|
||||||
|
*
|
||||||
|
* This is only for internal list manipulation where we know
|
||||||
|
* the prev/next entries already!
|
||||||
|
*/
|
||||||
|
static __inline__ void __list_del(struct list_head *prev, struct list_head *next)
|
||||||
|
{
|
||||||
|
next->prev = prev;
|
||||||
|
prev->next = next;
|
||||||
|
}
|
||||||
|
|
||||||
|
static __inline__ void list_del(struct list_head *entry)
|
||||||
|
{
|
||||||
|
__list_del(entry->prev, entry->next);
|
||||||
|
}
|
||||||
|
|
||||||
|
static __inline__ int list_empty(struct list_head *head)
|
||||||
|
{
|
||||||
|
return head->next == head;
|
||||||
|
}
|
||||||
|
|
||||||
|
#define list_entry(ptr, type, member) \
|
||||||
|
((type *)((char *)(ptr)-(unsigned long)(&((type *)0)->member)))
|
||||||
|
|
||||||
|
#define list_for_each(pos, head) \
|
||||||
|
for (pos = (head)->next; pos != (head); pos = pos->next)
|
||||||
|
|
||||||
|
#endif
|
||||||
206
as10k1/macro.c
Normal file
206
as10k1/macro.c
Normal file
|
|
@ -0,0 +1,206 @@
|
||||||
|
/***************************************************************************
|
||||||
|
macro.c - various functions to handle macros
|
||||||
|
-------------------
|
||||||
|
Date : May 23 2000
|
||||||
|
Copyright : (C) 2000 by Daniel Bertrand
|
||||||
|
Email : d.bertrand@ieee.ca
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
/***************************************************************************
|
||||||
|
* *
|
||||||
|
* 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. *
|
||||||
|
* *
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#include<string.h>
|
||||||
|
#include<stdio.h>
|
||||||
|
#include"types.h"
|
||||||
|
#include"proto.h"
|
||||||
|
#include <ctype.h>
|
||||||
|
|
||||||
|
int macro_ctn;
|
||||||
|
struct macrdef macro[MAX_DEF_MACRO];
|
||||||
|
extern char *listing,listtemp[60];
|
||||||
|
extern FILE *listfile;
|
||||||
|
|
||||||
|
//determines if an opcode neumonic is a macro
|
||||||
|
|
||||||
|
int ismacro(char *mac)
|
||||||
|
{
|
||||||
|
|
||||||
|
int i;
|
||||||
|
|
||||||
|
for(i=0;i<macro_ctn; i++){
|
||||||
|
if(strcasecmp(macro[i].name,mac)==0){
|
||||||
|
return(i);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return(-1);
|
||||||
|
}
|
||||||
|
|
||||||
|
//defines a new macro, adds it to the macro list
|
||||||
|
void new_macro(char *symbol, char *line, char *operand)
|
||||||
|
{
|
||||||
|
extern int source_line_num;
|
||||||
|
struct sym *sym;
|
||||||
|
if(isalpha(*symbol)==0)
|
||||||
|
as_exit("Parse Error: Symbol must start with an alpha character");
|
||||||
|
|
||||||
|
if(ismacro(symbol)!=-1)
|
||||||
|
as_exit("Parsed Error: macro is already defined");
|
||||||
|
|
||||||
|
if(issymbol(symbol,&sym)!=-1)
|
||||||
|
as_exit("Parse Error: Symbol is already defined");
|
||||||
|
|
||||||
|
macro[macro_ctn].line_num=source_line_num;
|
||||||
|
macro[macro_ctn].ptr=line;
|
||||||
|
strcpy(macro[macro_ctn].name,symbol);
|
||||||
|
macro[macro_ctn].operands=operand;
|
||||||
|
macro_ctn++;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
//called from parsed() when a macro is used, stores the arguments and recursively calls the parse().
|
||||||
|
|
||||||
|
void macro_expand(int macnum,char *operand )
|
||||||
|
{
|
||||||
|
char *line,*next;
|
||||||
|
int done=0,i,old;
|
||||||
|
extern unsigned int macro_depth;
|
||||||
|
extern int macro_line_num;
|
||||||
|
char string[MAX_LINE_LENGTH];
|
||||||
|
|
||||||
|
//initialize macro use:
|
||||||
|
i=0;
|
||||||
|
|
||||||
|
if(macro_depth+1> MAX_MAC_DEPTH)
|
||||||
|
as_exit("Error exceeded maximum number of recursive macro calls");
|
||||||
|
|
||||||
|
old=macro_line_num;
|
||||||
|
macro_line_num=macro[macnum].line_num;
|
||||||
|
macro_operand(macro[macnum].operands,operand);
|
||||||
|
macro_depth++;
|
||||||
|
|
||||||
|
line=macro[macnum].ptr;
|
||||||
|
next=line;
|
||||||
|
|
||||||
|
|
||||||
|
while((*next!= '\n') ) //skip to the line after the macro definition
|
||||||
|
next++;
|
||||||
|
line=next;
|
||||||
|
|
||||||
|
|
||||||
|
//Expand the macro calling parse()
|
||||||
|
|
||||||
|
while(done!=-1)
|
||||||
|
{
|
||||||
|
|
||||||
|
while((*next!= '\n') )
|
||||||
|
next++;
|
||||||
|
|
||||||
|
*next='\0';
|
||||||
|
|
||||||
|
strcpy(&string[0],line);
|
||||||
|
listtemp[0]='\0';
|
||||||
|
done=parse(string, line);
|
||||||
|
macro_line_num++;
|
||||||
|
*next='\n';
|
||||||
|
if(listing){
|
||||||
|
if(done==1)
|
||||||
|
sprintf(listtemp,"macro expansion done");
|
||||||
|
if(done!=-3)
|
||||||
|
fprintf(listfile,"%-50s || %s\n",listtemp,line);
|
||||||
|
}
|
||||||
|
if(done==-1)
|
||||||
|
break;
|
||||||
|
next++;
|
||||||
|
line=next;
|
||||||
|
}
|
||||||
|
macro_line_num=old;
|
||||||
|
macro_depth--;
|
||||||
|
|
||||||
|
return;
|
||||||
|
|
||||||
|
}
|
||||||
|
//assigns calling arguments with defined symbols.
|
||||||
|
void macro_operand(char *symbols,char *val)
|
||||||
|
{
|
||||||
|
char tmp[MAX_LINE_LENGTH],*ptr=symbols,*sym=tmp,*next_sym=sym,*next_val=val;
|
||||||
|
extern unsigned int macro_depth;
|
||||||
|
|
||||||
|
|
||||||
|
if(symbols==NULL&&val==NULL)
|
||||||
|
return;
|
||||||
|
if(symbols==NULL||val==NULL)
|
||||||
|
as_exit("error in macro_operand, Null operand list");
|
||||||
|
|
||||||
|
|
||||||
|
while(*ptr!='\n' && *ptr!=';')
|
||||||
|
ptr++;
|
||||||
|
*ptr='\0';
|
||||||
|
|
||||||
|
strcpy(tmp,symbols);
|
||||||
|
|
||||||
|
//#ifdef DEBUG
|
||||||
|
// printf("syms:\"%s\",vals:\"%s\"\n",sym,val);
|
||||||
|
//#endif
|
||||||
|
*ptr='\n';
|
||||||
|
|
||||||
|
while(1){
|
||||||
|
|
||||||
|
//skip over blanks:
|
||||||
|
advance(next_sym);
|
||||||
|
advance(next_val);
|
||||||
|
|
||||||
|
|
||||||
|
sym = next_sym;
|
||||||
|
val = next_val;
|
||||||
|
|
||||||
|
if(*next_val=='\0' && *next_sym=='\0')
|
||||||
|
return;
|
||||||
|
if(*next_sym=='\0')
|
||||||
|
as_exit("Error, To many arguments for defined Macro");
|
||||||
|
|
||||||
|
|
||||||
|
if(*next_val=='\0')
|
||||||
|
as_exit("Error, Not enough arguments for defined macro");
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
while(*next_sym != '\0' && *next_sym!= ',' )
|
||||||
|
next_sym++;
|
||||||
|
|
||||||
|
while(*next_val != '\0' && *next_val!= ',' )
|
||||||
|
next_val++;
|
||||||
|
// printf("sym=\"%s\";val=\"%s\"(=0x%x)\n",sym, val,arg_decode(val,0) );
|
||||||
|
if( sym!=next_sym || val!=next_val ){
|
||||||
|
update_symbol(sym,TYPE_MACRO_ARG,arg_decode(val,0),macro_depth+1);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
50
as10k1/output.doc
Normal file
50
as10k1/output.doc
Normal file
|
|
@ -0,0 +1,50 @@
|
||||||
|
EMU10K1 patch binary file format (.emu10k1)
|
||||||
|
-------------------------------------------
|
||||||
|
|
||||||
|
Notice: this format is a bit different from the original as10k1 assembler.
|
||||||
|
|
||||||
|
16 bytes signature 'EMU10K1 FX8010 1' ; last number means the patch version
|
||||||
|
32 bytes name ; ASCIIZ patch name
|
||||||
|
1 byte count of input/output GPRS
|
||||||
|
? bytes input/output GPRS
|
||||||
|
1 byte count of dynamic GPRS
|
||||||
|
? bytes dynamic GPRS
|
||||||
|
1 byte count of static GPRS
|
||||||
|
? pairs
|
||||||
|
1 byte static GPRS
|
||||||
|
1 dword (little-endian, 32-bit) value
|
||||||
|
1 byte count of control GPRS
|
||||||
|
? entries
|
||||||
|
1 byte control GPRS
|
||||||
|
1 dword (little-endian, 32-bit) value
|
||||||
|
1 dword (little-endian, 32-bit) range - min
|
||||||
|
1 dword (little-endian, 32-bit) range - max
|
||||||
|
32 bytes symbol name ; ASCIIZ symbol name
|
||||||
|
1 byte count of constant GPRS
|
||||||
|
? pairs
|
||||||
|
1 byte constant GPRS
|
||||||
|
1 dword (little-endian, 32-bit) value
|
||||||
|
1 byte count of TRAM lookup tables
|
||||||
|
? entries
|
||||||
|
1 dword (little-endian, 32-bit) size
|
||||||
|
1 byte count of read lines
|
||||||
|
? pairs
|
||||||
|
1 char address of the TRAM line
|
||||||
|
1 dword (little-endian, 32-bit) size in samples
|
||||||
|
1 byte count of write lines
|
||||||
|
? pairs
|
||||||
|
1 char address of the TRAM line
|
||||||
|
1 dword (little-endian, 32-bit) size in samples
|
||||||
|
1 byte count of TRAM delay tables
|
||||||
|
? entries
|
||||||
|
1 dword (little-endian, 32-bit) size
|
||||||
|
1 byte count of read lines
|
||||||
|
? pairs
|
||||||
|
1 char address of the TRAM line
|
||||||
|
1 dword (little-endian, 32-bit) size in samples
|
||||||
|
1 byte count of write lines
|
||||||
|
? pairs
|
||||||
|
1 char address of the TRAM line
|
||||||
|
1 dword (little-endian, 32-bit) size in samples
|
||||||
|
2 word (little-endian, 16-bit), count of 64-bit instructions
|
||||||
|
? double-dwords (little-endian, 64-bit) instruction
|
||||||
463
as10k1/parse.c
Normal file
463
as10k1/parse.c
Normal file
|
|
@ -0,0 +1,463 @@
|
||||||
|
/***************************************************************************
|
||||||
|
parse.c - parses each line, stores in temp space
|
||||||
|
-------------------
|
||||||
|
Date : May 23 2000
|
||||||
|
Copyright : (C) 2000 by Daniel Bertrand
|
||||||
|
Email : d.bertrand@ieee.ca
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
/***************************************************************************
|
||||||
|
* *
|
||||||
|
* 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. *
|
||||||
|
* *
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#include<string.h>
|
||||||
|
#include<stdio.h>
|
||||||
|
#include"types.h"
|
||||||
|
#include"parse.h"
|
||||||
|
#include"proto.h"
|
||||||
|
|
||||||
|
/*
|
||||||
|
This function parses the asm file calling appropriate functions to blow up macros, include files,
|
||||||
|
define constants, keep track of equates, and handling assembler directives.
|
||||||
|
|
||||||
|
This function is called on a line by line basis.
|
||||||
|
|
||||||
|
normally returns value 0 except when "end" directive is encountered in which case it returns 1,
|
||||||
|
the "endm" directive which return -1, or the "endfor" deirective which returns -2
|
||||||
|
*/
|
||||||
|
|
||||||
|
extern char type_strings[GPR_TYPE_EQUATE+1][20];
|
||||||
|
extern int dbg_opt;
|
||||||
|
extern char *listing,listtemp[60];
|
||||||
|
extern FILE *listfile;
|
||||||
|
|
||||||
|
int parse( char line_string[MAX_LINE_LENGTH], char *line)
|
||||||
|
{
|
||||||
|
int tmp,i,arg[4];
|
||||||
|
static int defmacro=0; //set to 0 unless we're in a macro definition
|
||||||
|
int op_num;
|
||||||
|
char *leading_symbol=NULL, *op_name_ptr,*tmpc;
|
||||||
|
extern char patch_name[PATCH_NAME_SIZE];
|
||||||
|
extern int ds_addr,ip,tram_addr,tram_delay_count,tram_table_count;
|
||||||
|
extern unsigned int macro_depth;
|
||||||
|
|
||||||
|
struct sym *sym;
|
||||||
|
struct control *control;
|
||||||
|
|
||||||
|
extern struct delay tram_delay[MAX_TANK_ADDR];
|
||||||
|
extern struct lookup tram_lookup[MAX_TANK_ADDR];
|
||||||
|
|
||||||
|
|
||||||
|
if( line_string[0]=='\0' || line_string[0]==';'||line_string[0]=='%'||line_string[0]=='*')
|
||||||
|
return(0);
|
||||||
|
//remove anything after a ; if one exist
|
||||||
|
tmpc=line_string;
|
||||||
|
while( *tmpc != ';' &&*tmpc != '\0')
|
||||||
|
tmpc++;
|
||||||
|
*tmpc='\0';
|
||||||
|
|
||||||
|
//check for a leading symbol
|
||||||
|
if( line_string[0] != ' ' && line_string[0] != '\t'){
|
||||||
|
|
||||||
|
if(strlen(leading_symbol=strtok(line_string,": \t\n"))>MAX_SYM_LEN ){
|
||||||
|
printf("symbol \"%s\" is more than %d characters long\n",leading_symbol,MAX_SYM_LEN );
|
||||||
|
as_exit("Parse error");
|
||||||
|
}
|
||||||
|
|
||||||
|
//address ref for skip command:
|
||||||
|
if(*leading_symbol=='.'){
|
||||||
|
if( issymbol(leading_symbol,&sym)!=-1)
|
||||||
|
(sym->data.value)+=ip-1;
|
||||||
|
}
|
||||||
|
op_name_ptr=strtok(NULL, " \t\n");
|
||||||
|
}else{
|
||||||
|
op_name_ptr=strtok(line_string, " \t\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
if(op_name_ptr==NULL)
|
||||||
|
return(0);
|
||||||
|
|
||||||
|
|
||||||
|
//check if it a macro:
|
||||||
|
if((tmp=ismacro(op_name_ptr)) != -1 ){
|
||||||
|
if(defmacro==0)
|
||||||
|
macro_expand(tmp,strtok(NULL,""));
|
||||||
|
return(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
if( (op_num=op_decode(op_name_ptr))==-1) {
|
||||||
|
printf("**Parse Error with op code field \"%s\"\n",op_name_ptr);
|
||||||
|
as_exit("Parse Error: Bad neumonic");
|
||||||
|
}
|
||||||
|
|
||||||
|
//check to see if we're defining a macro
|
||||||
|
if(leading_symbol!=NULL && defmacro!=0 && op_num!=CON && op_num!=CONSTANT)
|
||||||
|
as_exit("Parse error: Cannot define symbols inside of a macro");
|
||||||
|
|
||||||
|
|
||||||
|
switch(op_num){
|
||||||
|
|
||||||
|
case EQU:
|
||||||
|
add_symbol(leading_symbol,GPR_TYPE_EQUATE,arg_decode(strtok(NULL, " \t\n"),0),0);
|
||||||
|
return(0);
|
||||||
|
|
||||||
|
case DS:
|
||||||
|
printf("**Assembler warning: \"DS\" will be obsoleted\n");
|
||||||
|
case DYNAMIC:
|
||||||
|
case DYN:
|
||||||
|
add_symbol(leading_symbol,GPR_TYPE_DYNAMIC,ds_addr++,0);
|
||||||
|
|
||||||
|
if( (tmpc=strtok(NULL, " \t\n"))==NULL)
|
||||||
|
tmp=0;
|
||||||
|
else if((tmp=arg_decode(tmpc,0)) <=0)
|
||||||
|
tmp=1;
|
||||||
|
for(i=1;i<tmp;i++){
|
||||||
|
add_symbol( (char *)NO_SYM ,GPR_TYPE_DYNAMIC,ds_addr++,0);
|
||||||
|
|
||||||
|
}
|
||||||
|
return(0);
|
||||||
|
case MACRO:
|
||||||
|
new_macro(leading_symbol,line,strtok(NULL, "")-line_string+line);
|
||||||
|
defmacro++;
|
||||||
|
return(0);
|
||||||
|
case DC:
|
||||||
|
printf("**Assembler warning: \"DC\" will be obsoleted\n");
|
||||||
|
case STA:
|
||||||
|
case STATIC:
|
||||||
|
tmpc = strtok(NULL, " ,\t\n") ;
|
||||||
|
|
||||||
|
if(tmpc == NULL)
|
||||||
|
as_exit("Error DC directive must contain an initial value");
|
||||||
|
while(tmpc!=NULL ){
|
||||||
|
|
||||||
|
if( tmpc[0] == '&' )
|
||||||
|
tmp=arg2long(tmpc)*0x800; //account for 11 bit shift of addresses
|
||||||
|
else
|
||||||
|
tmp=arg2long(tmpc);
|
||||||
|
|
||||||
|
add_symbol(leading_symbol,GPR_TYPE_STATIC,ds_addr++,tmp);
|
||||||
|
|
||||||
|
leading_symbol=(char *)NO_SYM;
|
||||||
|
|
||||||
|
tmpc=strtok(NULL, " ,\t");
|
||||||
|
}
|
||||||
|
return(0);
|
||||||
|
|
||||||
|
case CONSTANT:
|
||||||
|
case CON:
|
||||||
|
//declaring constants inside of a macro is legal and needed for branch macros
|
||||||
|
if(defmacro!=0)
|
||||||
|
return (0);
|
||||||
|
|
||||||
|
|
||||||
|
tmpc = strtok(NULL, " ,\t\n") ;
|
||||||
|
|
||||||
|
if(tmpc == NULL)
|
||||||
|
as_exit("Error Constant directive must contain a value");
|
||||||
|
while(tmpc!=NULL ){
|
||||||
|
|
||||||
|
if( tmpc[0] == '&' )
|
||||||
|
tmp=arg2long(tmpc)*0x800; //account for 11 bit shift of addresses
|
||||||
|
else
|
||||||
|
tmp=arg2long(tmpc);
|
||||||
|
|
||||||
|
// add_constant(leading_symbol,tmp);
|
||||||
|
|
||||||
|
add_symbol(leading_symbol,GPR_TYPE_CONSTANT,ds_addr++,tmp);
|
||||||
|
|
||||||
|
leading_symbol=(char *)NO_SYM;
|
||||||
|
|
||||||
|
tmpc=strtok(NULL, " ,\t");
|
||||||
|
}
|
||||||
|
|
||||||
|
return(0);
|
||||||
|
case IO:
|
||||||
|
add_symbol(leading_symbol,GPR_TYPE_INPUT,ds_addr++,0);
|
||||||
|
add_symbol(strcat(leading_symbol,".o"),GPR_TYPE_OUTPUT,ds_addr++,0);
|
||||||
|
return(0);
|
||||||
|
case DIN:
|
||||||
|
as_exit("DIN is obsoleted, use IO instead");
|
||||||
|
add_symbol(leading_symbol,GPR_TYPE_INPUT,ds_addr++,0);
|
||||||
|
return(0);
|
||||||
|
case DOUT:
|
||||||
|
as_exit("DOUT is obsoleted, use IO instead");
|
||||||
|
add_symbol(leading_symbol,GPR_TYPE_OUTPUT,ds_addr++,0);
|
||||||
|
return(0);
|
||||||
|
case DD:
|
||||||
|
add_symbol(leading_symbol,GPR_TYPE_EQUATE,0x100+tram_delay_count,0);
|
||||||
|
(&tram_delay[tram_delay_count])->size = arg2long( strtok(NULL, " \t\n" ) ) +1;
|
||||||
|
|
||||||
|
INIT_LIST_HEAD( &(tram_delay[tram_delay_count].tram ) );
|
||||||
|
strcpy((&tram_delay[tram_delay_count])->name,leading_symbol);
|
||||||
|
if((dbg_opt&DBG_TRAM))
|
||||||
|
printf("Delay Line: %-16s, length: 0x%05x samples,\n",(&tram_delay[tram_delay_count])->name, (&tram_delay[tram_delay_count])->size);
|
||||||
|
tram_delay_count++;
|
||||||
|
return(0);
|
||||||
|
case DT:
|
||||||
|
add_symbol(leading_symbol,GPR_TYPE_EQUATE,tram_table_count,0);
|
||||||
|
(&tram_lookup[tram_table_count])->size = arg2long( strtok(NULL, " \t\n" ) );
|
||||||
|
INIT_LIST_HEAD( &(tram_lookup[tram_table_count].tram) );
|
||||||
|
strcpy((&tram_lookup[tram_table_count])->name,leading_symbol);
|
||||||
|
|
||||||
|
if((dbg_opt&DBG_TRAM))
|
||||||
|
printf("Lookup table: %-16s, length: 0x%05x samples\n",leading_symbol, (&tram_delay[tram_delay_count])->size);
|
||||||
|
tram_table_count++;
|
||||||
|
return(0);
|
||||||
|
case DW:
|
||||||
|
//two symbols are created, "symbol" -> addr:0x2xx ; value: tram id #
|
||||||
|
// "symbol.a" -> addr:0x3xx ; value: write offset
|
||||||
|
|
||||||
|
add_symbol(leading_symbol,TYPE_TRAM_DATA,tram_addr+0x200, arg_decode(tmpc=strtok(NULL, " \t," ),0) );
|
||||||
|
add_symbol( strcat(leading_symbol,".a") ,TYPE_TRAM_ADDR_WRITE, (tram_addr++)+0x300 ,
|
||||||
|
arg2long(strtok(NULL," \t\n")));
|
||||||
|
if(dbg_opt&DBG_TRAM)
|
||||||
|
printf(", in segment: \"%s\"\n",tmpc);
|
||||||
|
|
||||||
|
return(0);
|
||||||
|
|
||||||
|
case DR:
|
||||||
|
add_symbol(leading_symbol,TYPE_TRAM_DATA,tram_addr+0x200,arg_decode(tmpc=strtok(NULL, " \t," ),0) );
|
||||||
|
add_symbol(strcat(leading_symbol,".a"),TYPE_TRAM_ADDR_READ,(tram_addr++)+0x300,
|
||||||
|
arg2long(strtok(NULL," \t\n")));
|
||||||
|
if(dbg_opt&DBG_TRAM)
|
||||||
|
printf(", in segment: \"%s\"\n",tmpc);
|
||||||
|
return(0);
|
||||||
|
case CONTROL:
|
||||||
|
if( (tmpc = strtok(NULL, "\t ,\n")) ==NULL)
|
||||||
|
as_exit("Parse Error: missing operand(s)");
|
||||||
|
|
||||||
|
if( tmpc[0] == '&' )
|
||||||
|
tmp=arg2long(tmpc)<<11; //account for 11 bit shift of addresses
|
||||||
|
else
|
||||||
|
tmp=arg2long(tmpc);
|
||||||
|
add_symbol(leading_symbol,GPR_TYPE_CONTROL,ds_addr++,tmp);
|
||||||
|
issymbol(leading_symbol,(struct sym **)(&control));
|
||||||
|
|
||||||
|
|
||||||
|
if( (tmpc = strtok(NULL, "\t ,\n") )==NULL)
|
||||||
|
as_exit("Parse Error: missing operand(s)");
|
||||||
|
|
||||||
|
|
||||||
|
if( tmpc[0] == '&' )
|
||||||
|
control->min=arg2long(tmpc)<<11; //account for 11 bit shift of addresses
|
||||||
|
else
|
||||||
|
control->min=arg2long(tmpc);
|
||||||
|
|
||||||
|
if( (tmpc = strtok(NULL, "\t ,\n")) ==NULL)
|
||||||
|
as_exit("Parse Error: missing operand(s)");
|
||||||
|
|
||||||
|
|
||||||
|
if( tmpc[0] == '&' )
|
||||||
|
control->max=arg2long(tmpc)<<11; //account for 11 bit shift of addresses
|
||||||
|
else
|
||||||
|
control->max=arg2long(tmpc);
|
||||||
|
|
||||||
|
return(0);
|
||||||
|
case ENDM:
|
||||||
|
if(defmacro==1) {
|
||||||
|
defmacro--;
|
||||||
|
return(0);
|
||||||
|
}else if(macro_depth!=0)
|
||||||
|
return(-1);
|
||||||
|
else
|
||||||
|
as_exit("Error, stray ENDM directive");
|
||||||
|
case END:
|
||||||
|
if(defmacro==1)
|
||||||
|
as_exit("Error end directive in macro definition");
|
||||||
|
return(1);
|
||||||
|
case INCLUDE:
|
||||||
|
if(defmacro==1)
|
||||||
|
as_exit("Error, cannot include file from within macro definition");
|
||||||
|
if(listing){
|
||||||
|
sprintf(listtemp,"including file");
|
||||||
|
fprintf(listfile,"%-50s || %s\n",listtemp,line);
|
||||||
|
}
|
||||||
|
asm_open(strtok(NULL, "\'\""));
|
||||||
|
|
||||||
|
return(-3);
|
||||||
|
case NAME:
|
||||||
|
advance_to_end(op_name_ptr);
|
||||||
|
op_name_ptr++;
|
||||||
|
advance_over_whites(op_name_ptr);
|
||||||
|
if(dbg_opt)
|
||||||
|
printf("Patch name:%s\n",op_name_ptr);
|
||||||
|
|
||||||
|
// printf("%s\n",op_name_ptr);
|
||||||
|
tmpc=strtok(op_name_ptr,"\"");
|
||||||
|
if(tmpc==NULL)
|
||||||
|
as_exit("Bad name string, did you remember quotes\"\"");
|
||||||
|
if(strlen(tmpc)>PATCH_NAME_SIZE)
|
||||||
|
as_exit("Error Patch name exceeds maximum allowed amount (16)");
|
||||||
|
memset(patch_name,0,PATCH_NAME_SIZE);
|
||||||
|
strcpy(patch_name,tmpc);
|
||||||
|
return(0);
|
||||||
|
case FOR:
|
||||||
|
if(listing){
|
||||||
|
sprintf(listtemp,"FOR LOOP");
|
||||||
|
fprintf(listfile,"%-50s || %s\n",listtemp,line);
|
||||||
|
}
|
||||||
|
for_handler(line,strtok(NULL,""));
|
||||||
|
|
||||||
|
return(-3);
|
||||||
|
case ENDFOR:
|
||||||
|
sprintf(listtemp,"FOR LOOP DONE");
|
||||||
|
return(-2);
|
||||||
|
default:
|
||||||
|
|
||||||
|
if(defmacro==0){
|
||||||
|
|
||||||
|
for(i=0;i<=3;i++)
|
||||||
|
arg[i]=arg_decode(strtok(NULL,","),0);
|
||||||
|
op(op_num,arg[0],arg[1],arg[2],arg[3]);
|
||||||
|
return(0);
|
||||||
|
|
||||||
|
}else
|
||||||
|
return(0);
|
||||||
|
}
|
||||||
|
return(0);
|
||||||
|
}
|
||||||
|
//assembly-time for loop handling:
|
||||||
|
void for_handler(char *begin, char *operand )
|
||||||
|
{
|
||||||
|
char *ptr,*next,*line,string[MAX_LINE_LENGTH];
|
||||||
|
int start,end,i,done;
|
||||||
|
int diff, incr=1;
|
||||||
|
struct sym *sym;
|
||||||
|
|
||||||
|
ptr=strtok(operand,"=");
|
||||||
|
|
||||||
|
start= arg_decode(strtok(NULL,":"),0);
|
||||||
|
end = arg_decode(strtok(NULL," \t"),0);
|
||||||
|
|
||||||
|
|
||||||
|
if(end>start)
|
||||||
|
diff=end-start;
|
||||||
|
else{
|
||||||
|
diff=start-end;
|
||||||
|
incr=-1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if( (issymbol(ptr,&sym))!=-1)
|
||||||
|
sym->data.address=start;
|
||||||
|
else
|
||||||
|
add_symbol(ptr,GPR_TYPE_EQUATE, start,0);
|
||||||
|
|
||||||
|
issymbol(ptr,&sym);
|
||||||
|
|
||||||
|
|
||||||
|
while(*begin!='\0')
|
||||||
|
begin++;
|
||||||
|
begin++;
|
||||||
|
|
||||||
|
for(i=0;i<diff;i++){
|
||||||
|
next=begin;
|
||||||
|
line=next;
|
||||||
|
done=0;
|
||||||
|
|
||||||
|
while(done==0)
|
||||||
|
{
|
||||||
|
while((*next!= '\n') )
|
||||||
|
next++;
|
||||||
|
listtemp[0]='\0';
|
||||||
|
*next='\0';
|
||||||
|
if(strlen(line)>MAX_LINE_LENGTH)
|
||||||
|
as_exit("Parse error: Line exceeds allowable limit");
|
||||||
|
strcpy(&string[0],line);
|
||||||
|
//printf("%s\n",string);
|
||||||
|
done=parse(string, line);
|
||||||
|
if(listing)
|
||||||
|
if(done!=-2)
|
||||||
|
fprintf(listfile,"%-50s || %s\n",listtemp,line);
|
||||||
|
*next='\n';
|
||||||
|
if(done==-2)
|
||||||
|
break;
|
||||||
|
next++;
|
||||||
|
|
||||||
|
|
||||||
|
line=next;
|
||||||
|
}
|
||||||
|
sym->data.address = start+(incr*(i+1));
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
int op_decode(char *op_name_ptr)
|
||||||
|
{
|
||||||
|
int op_num;
|
||||||
|
|
||||||
|
for(op_num=0;op_num<NUM_OPS;op_num++){
|
||||||
|
if( strcasecmp(&op_codes[op_num][0],op_name_ptr) == 0 )
|
||||||
|
return(op_num);
|
||||||
|
}
|
||||||
|
return(-1);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//check if a symbol is used and returns it's pointer value in sym
|
||||||
|
//normally returns 0, if symbol is non exitant, return -1
|
||||||
|
|
||||||
|
int issymbol(char *symbol,struct sym **sym)
|
||||||
|
{
|
||||||
|
extern unsigned int macro_depth;
|
||||||
|
extern struct list_head sym_head;
|
||||||
|
struct list_head *entry;
|
||||||
|
|
||||||
|
|
||||||
|
list_for_each(entry,&sym_head){
|
||||||
|
(*sym)=list_entry(entry,struct sym,list);
|
||||||
|
if(symcmp((char *)&(*sym)->data.name,symbol)==0){
|
||||||
|
if((*sym)->type!=TYPE_MACRO_ARG)
|
||||||
|
return(0);
|
||||||
|
else if( (*sym)->data.value==(macro_depth+1) )
|
||||||
|
return(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
return(-1);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//compares to words, the words can be terminated with a ' ', '\t', ',' or '\0'
|
||||||
|
int symcmp (char *symbol1,char *symbol2)
|
||||||
|
{
|
||||||
|
|
||||||
|
|
||||||
|
while(1){
|
||||||
|
if(*symbol1!=*symbol2)
|
||||||
|
return(-1);
|
||||||
|
symbol1++;
|
||||||
|
symbol2++;
|
||||||
|
|
||||||
|
if(symend(symbol1) && symend(symbol2))
|
||||||
|
return(0);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
//copies a symbol, symbols can be terminated with a ' ' , '\t' , ',' , '\n' , a '\0'
|
||||||
|
void symcpy (char *dest, char *source)
|
||||||
|
{ int i=0;
|
||||||
|
for(i=0;i<=MAX_SYM_LEN;i++){
|
||||||
|
if(source[i]== ' ' || source[i]=='\0' ||source[i]==',' ||source[i]=='\n' || source[i]=='\t' ) {
|
||||||
|
dest[i]='\0';
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
dest[i]=source[i];
|
||||||
|
}
|
||||||
|
as_exit("Error, Maximum symbol length exceeded");
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
115
as10k1/parse.h
Normal file
115
as10k1/parse.h
Normal file
|
|
@ -0,0 +1,115 @@
|
||||||
|
/***************************************************************************
|
||||||
|
parse.h - description
|
||||||
|
-------------------
|
||||||
|
Date : May 23 2000
|
||||||
|
Copyright : (C) 2000 by Daniel Bertrand
|
||||||
|
Email : d.bertrand@ieee.ca
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
/***************************************************************************
|
||||||
|
* *
|
||||||
|
* 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. *
|
||||||
|
* *
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
//#define NUM_OPS 17 //number of op code mneumonic and directives
|
||||||
|
|
||||||
|
|
||||||
|
enum foo {
|
||||||
|
MACS=0,
|
||||||
|
MACS1,
|
||||||
|
MACW,
|
||||||
|
MACW1,
|
||||||
|
MACINTS,
|
||||||
|
MACINTW,
|
||||||
|
ACC3,
|
||||||
|
MACMV,
|
||||||
|
ANDXOR,
|
||||||
|
TSTNEG,
|
||||||
|
LIMIT,
|
||||||
|
LIMIT1,
|
||||||
|
LOG,
|
||||||
|
EXP,
|
||||||
|
INTERP,
|
||||||
|
SKIP,
|
||||||
|
EQU,
|
||||||
|
DS,
|
||||||
|
DYNAMIC,
|
||||||
|
DYN,
|
||||||
|
MACRO,
|
||||||
|
DC,
|
||||||
|
STATIC,
|
||||||
|
STA,
|
||||||
|
DIN,
|
||||||
|
DOUT,
|
||||||
|
DD,
|
||||||
|
DT,
|
||||||
|
DW,
|
||||||
|
DR,
|
||||||
|
CONTROL,
|
||||||
|
ENDM,
|
||||||
|
END,
|
||||||
|
INCLUDE,
|
||||||
|
NAME,
|
||||||
|
FOR,
|
||||||
|
ENDFOR,
|
||||||
|
IO,
|
||||||
|
CONSTANT,
|
||||||
|
CON,
|
||||||
|
NUM_OPS
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
char op_codes[NUM_OPS+1][9]=
|
||||||
|
{
|
||||||
|
"MACS",
|
||||||
|
"MACS1",
|
||||||
|
"MACW",
|
||||||
|
"MACW1",
|
||||||
|
|
||||||
|
"MACINTS",
|
||||||
|
"MACINTW",
|
||||||
|
|
||||||
|
"ACC3",
|
||||||
|
"MACMV",
|
||||||
|
"ANDXOR",
|
||||||
|
"TSTNEG",
|
||||||
|
"LIMIT",
|
||||||
|
"LIMIT1",
|
||||||
|
"LOG",
|
||||||
|
"EXP",
|
||||||
|
"INTERP",
|
||||||
|
"SKIP",
|
||||||
|
"equ",
|
||||||
|
"ds",
|
||||||
|
"dynamic",
|
||||||
|
"dyn",
|
||||||
|
"macro",
|
||||||
|
"dc",
|
||||||
|
"static",
|
||||||
|
"sta",
|
||||||
|
"din",
|
||||||
|
"dout",
|
||||||
|
"delay",
|
||||||
|
"table",
|
||||||
|
"twrite",
|
||||||
|
"tread",
|
||||||
|
"control",
|
||||||
|
"endm",
|
||||||
|
"end",
|
||||||
|
"include",
|
||||||
|
"name",
|
||||||
|
"for",
|
||||||
|
"endfor",
|
||||||
|
"IO",
|
||||||
|
"constant",
|
||||||
|
"con",
|
||||||
|
"NotAnOp"
|
||||||
|
};
|
||||||
|
|
||||||
|
//extern int file_num,source_line_num
|
||||||
|
|
||||||
44
as10k1/proto.h
Normal file
44
as10k1/proto.h
Normal file
|
|
@ -0,0 +1,44 @@
|
||||||
|
#ifndef PROTO_H
|
||||||
|
#define PROTO_H
|
||||||
|
|
||||||
|
//as10k1.c:
|
||||||
|
|
||||||
|
void as_exit(const char *message);
|
||||||
|
void asm_open(char *name);
|
||||||
|
void header(void);
|
||||||
|
|
||||||
|
//assemble.c:
|
||||||
|
void op(int,int,int,int,int);
|
||||||
|
int arg_decode(char *operand,int prev_val);
|
||||||
|
int arg_decode2(char *operand);
|
||||||
|
int symbol2index(char *operand, int *flag);
|
||||||
|
long arg2long(char *operand);
|
||||||
|
void update_symbol(char *name,u16 type,u16 address, u32 value);
|
||||||
|
void add_symbol(char *name,u16 type,u16 address, u32 value);
|
||||||
|
int declared(int operand,int i);
|
||||||
|
//parse.c:
|
||||||
|
int parse( char line_string[MAX_LINE_LENGTH], char *line);
|
||||||
|
int op_decode(char *op_name_ptr);
|
||||||
|
void new_symbol( char *name_ptr, int constant);
|
||||||
|
void new_dc(char *symbol,long value, int addr);
|
||||||
|
int issymbol(char *symbol,struct sym **sym);
|
||||||
|
void for_handler(char *begin, char *operand );
|
||||||
|
int symcmp (char *symbol1,char *symbol2);
|
||||||
|
void symcpy (char *dest, char *source);
|
||||||
|
//macro.c
|
||||||
|
void new_macro(char *symbol, char *line, char *operands);
|
||||||
|
void macro_expand(int macnum,char * operand);
|
||||||
|
void macro_operand(char *line,char *value);
|
||||||
|
int ismacro(char *mac);
|
||||||
|
|
||||||
|
|
||||||
|
#define DSP_CODE_SIZE 0x400
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
136
as10k1/types.h
Normal file
136
as10k1/types.h
Normal file
|
|
@ -0,0 +1,136 @@
|
||||||
|
#ifndef TYPES_H
|
||||||
|
#define TYPES_H
|
||||||
|
|
||||||
|
#include "list.h"
|
||||||
|
//i'm not sure about these type definitions, especially on non-x86
|
||||||
|
#ifdef NO_LINUX //in the event this actually is used on non-linux platforms
|
||||||
|
#define u8 unsigned char
|
||||||
|
#define u16 unsigned short int
|
||||||
|
#define u32 unsigned int
|
||||||
|
#else
|
||||||
|
#include <linux/types.h>
|
||||||
|
#include <asm/byteorder.h>
|
||||||
|
#define u8 __u8
|
||||||
|
#define u16 __u16
|
||||||
|
#define u32 __u32
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define MAX_SYM_LEN 32
|
||||||
|
#define PATCH_NAME_SIZE 32
|
||||||
|
|
||||||
|
#define MAX_TANK_ADDR 0x9f //maximum number of tank address
|
||||||
|
#define MAX_LINE_LENGTH 256 //max length of a source code line
|
||||||
|
|
||||||
|
|
||||||
|
#define GPR_TYPE_INPUT 0x0
|
||||||
|
#define GPR_TYPE_OUTPUT 0x1
|
||||||
|
#define GPR_TYPE_CONSTANT 0x2
|
||||||
|
#define GPR_TYPE_STATIC 0x3
|
||||||
|
#define GPR_TYPE_DYNAMIC 0x4
|
||||||
|
#define GPR_TYPE_CONTROL 0x5
|
||||||
|
|
||||||
|
#define TYPE_TRAM_DATA 0x6
|
||||||
|
#define TYPE_TRAM_ADDR_READ 0x7
|
||||||
|
#define TYPE_TRAM_ADDR_WRITE 0x8
|
||||||
|
|
||||||
|
|
||||||
|
#define TYPE_MACRO_ARG 0x9
|
||||||
|
#define GPR_TYPE_EQUATE 0xa //just a symbol
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#define TRAM_READ 0x1
|
||||||
|
#define TRAM_WRITE 0x2
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#define DBG_SYM 1
|
||||||
|
#define DBG_GPR 2
|
||||||
|
#define DBG_TRAM 4
|
||||||
|
#define DBG_INSTR 8
|
||||||
|
|
||||||
|
|
||||||
|
struct symbol{
|
||||||
|
char name[MAX_SYM_LEN ];
|
||||||
|
u32 value; //initial value of GPR, or the value (if it's an equate);
|
||||||
|
u16 address; //address of GPR
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
struct sym{
|
||||||
|
struct list_head list;
|
||||||
|
u16 type;
|
||||||
|
struct symbol data;
|
||||||
|
};
|
||||||
|
|
||||||
|
struct control{
|
||||||
|
struct list_head list;
|
||||||
|
u16 type;
|
||||||
|
struct symbol data;
|
||||||
|
u32 max;
|
||||||
|
u32 min;
|
||||||
|
};
|
||||||
|
|
||||||
|
//all tram read/writes from a linked-list with list head in the delay/lookup-table definition block.
|
||||||
|
struct tram{
|
||||||
|
struct list_head list;
|
||||||
|
u16 type;
|
||||||
|
struct symbol data;
|
||||||
|
struct list_head tram;
|
||||||
|
};
|
||||||
|
|
||||||
|
//a delay block
|
||||||
|
struct delay{
|
||||||
|
u32 size;
|
||||||
|
u8 read;
|
||||||
|
u8 write;
|
||||||
|
struct list_head tram;
|
||||||
|
char name[MAX_SYM_LEN];
|
||||||
|
};
|
||||||
|
//a lookup-table block
|
||||||
|
struct lookup{
|
||||||
|
u32 size;
|
||||||
|
u8 read;
|
||||||
|
u8 write;
|
||||||
|
struct list_head tram;
|
||||||
|
char name[MAX_SYM_LEN];
|
||||||
|
};
|
||||||
|
|
||||||
|
struct macrdef{
|
||||||
|
char *ptr;
|
||||||
|
char name[MAX_SYM_LEN ];
|
||||||
|
char *operands;
|
||||||
|
int line_num;
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
#define NO_SYM "__NO_NAME"
|
||||||
|
|
||||||
|
|
||||||
|
#define MAX_DEF_MACRO 25
|
||||||
|
#define MAX_MAC_DEPTH 5
|
||||||
|
|
||||||
|
|
||||||
|
//some C macros:
|
||||||
|
//blank ptr:
|
||||||
|
#define blank(PTR) (*PTR==' ' || *PTR=='\t')
|
||||||
|
|
||||||
|
//value is end of a symbol:
|
||||||
|
#define symend(ptr) ( blank(ptr) || *ptr=='\0'|| *ptr==','||*ptr=='+'||*ptr=='-'||*ptr=='/'||*ptr=='*')
|
||||||
|
|
||||||
|
//used for advancing over white spaces and comma:
|
||||||
|
#define advance(ptr) while( *ptr == ' ' || *ptr== '\t' ||*ptr==',' ){ ptr++;}
|
||||||
|
//advance over white spaces only:
|
||||||
|
#define advance_over_whites(ptr) while(*ptr == ' ' || *ptr== '\t'){ptr++;}
|
||||||
|
//advances to end of symbol
|
||||||
|
#define advance_to_end(ptr) while(!symend(ptr)){ptr++;}
|
||||||
|
|
||||||
|
//"returns" pointer to the previous entry:
|
||||||
|
#define prev_sym(entry) list_entry(entry->prev,struct sym,list)
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define GPR_BASE 0x100
|
||||||
|
#define TRAM_DATA_BASE 0x200
|
||||||
|
#define TRAM_ADDR_BASE 0x300
|
||||||
Loading…
Add table
Add a link
Reference in a new issue