Remove GASP.
This commit is contained in:
Nick Clifton
parent
12aae7ea17
commit
fea179166e
@ -1,3 +1,22 @@
|
|||||||
|
2002-12-02 Nick Clifton <nickc@redhat.com>
|
||||||
|
|
||||||
|
* gasp.c: Delete. It has been deprecated.
|
||||||
|
* NEWS: Mention that gasp has been removed.
|
||||||
|
* Makefile.am: Remove references to gasp.
|
||||||
|
* makefile.vms: Likewise.
|
||||||
|
* mpw-make.sed: Likewise.
|
||||||
|
* Makeile.in: Regenerate.
|
||||||
|
* doc/gasp.texi: Delete.
|
||||||
|
* doc/Makefile.am: Remove references to gasp.texi.
|
||||||
|
* doc/Makefile.in: Regenerate.
|
||||||
|
* macro.c: Delete references to gasp.
|
||||||
|
Remove use of comment_char function parameter as it is no longer
|
||||||
|
needed.
|
||||||
|
* macro.h: Update prototypes to remove comment_char parameter.
|
||||||
|
Fix formatting.
|
||||||
|
* read.c (read_a_source_file, s_irp): Remove comment_char
|
||||||
|
parameter from invocation of functions in macro.c
|
||||||
|
|
||||||
2002-12-02 Hans-Peter Nilsson <hp@axis.com>
|
2002-12-02 Hans-Peter Nilsson <hp@axis.com>
|
||||||
|
|
||||||
* read.c (emit_expr) [!WORKING_DOT_WORD]: Initialize x->use_jump.
|
* read.c (emit_expr) [!WORKING_DOT_WORD]: Initialize x->use_jump.
|
||||||
|
|||||||
@ -196,7 +196,7 @@ GAS_CFILES = \
|
|||||||
symbols.c \
|
symbols.c \
|
||||||
write.c
|
write.c
|
||||||
|
|
||||||
CFILES = $(GAS_CFILES) gasp.c itbl-ops.c
|
CFILES = $(GAS_CFILES) itbl-ops.c
|
||||||
|
|
||||||
HFILES = \
|
HFILES = \
|
||||||
as.h \
|
as.h \
|
||||||
@ -447,8 +447,8 @@ po/POTFILES.in: @MAINT@ Makefile
|
|||||||
for file in $(POTFILES); do echo $$file; done | sort > tmp \
|
for file in $(POTFILES); do echo $$file; done | sort > tmp \
|
||||||
&& mv tmp $(srcdir)/po/POTFILES.in
|
&& mv tmp $(srcdir)/po/POTFILES.in
|
||||||
|
|
||||||
# Note: GASP is now deprecated and will be removed at some point in the future.
|
# Note: GASP is now deprecated and has been removed. It is still
|
||||||
# Anything that GASP could do can now be done by GAS.
|
# available in the CVS archive or older binutils releases if it is needed.
|
||||||
noinst_PROGRAMS = as-new
|
noinst_PROGRAMS = as-new
|
||||||
noinst_SCRIPTS = $(GDBINIT)
|
noinst_SCRIPTS = $(GDBINIT)
|
||||||
EXTRA_SCRIPTS = .gdbinit
|
EXTRA_SCRIPTS = .gdbinit
|
||||||
@ -512,10 +512,6 @@ $(OBJS): $(INCDIR)/bin-bugs.h $(INCDIR)/ansidecl.h $(INCDIR)/libiberty.h \
|
|||||||
as.h asintl.h bignum.h bit_fix.h config.h emul.h expr.h flonum.h \
|
as.h asintl.h bignum.h bit_fix.h config.h emul.h expr.h flonum.h \
|
||||||
frags.h hash.h listing.h obj.h read.h symbols.h tc.h write.h
|
frags.h hash.h listing.h obj.h read.h symbols.h tc.h write.h
|
||||||
|
|
||||||
gasp_new_SOURCES = gasp.c macro.c sb.c hash.c
|
|
||||||
gasp_new_LDADD = ../libiberty/libiberty.a $(INTLLIBS)
|
|
||||||
gasp_new_DEPENDENCIES = ../libiberty/libiberty.a $(INTLDEPS)
|
|
||||||
|
|
||||||
EXPECT = `if [ -f $${rootme}/../expect/expect ] ; then \
|
EXPECT = `if [ -f $${rootme}/../expect/expect ] ; then \
|
||||||
echo $${rootme}/../expect/expect ; \
|
echo $${rootme}/../expect/expect ; \
|
||||||
else echo expect ; fi`
|
else echo expect ; fi`
|
||||||
@ -648,7 +644,7 @@ itbl-parse.c itbl-parse.h: $(srcdir)/itbl-parse.y
|
|||||||
|
|
||||||
# stand-alone itbl assembler & disassembler
|
# stand-alone itbl assembler & disassembler
|
||||||
|
|
||||||
EXTRA_PROGRAMS = gasp-new itbl-test
|
EXTRA_PROGRAMS = itbl-test
|
||||||
itbl_test_SOURCES = itbl-parse.y itbl-lex.l
|
itbl_test_SOURCES = itbl-parse.y itbl-lex.l
|
||||||
itbl_test_LDADD = itbl-tops.o itbl-test.o $(GASLIBS) @LEXLIB@
|
itbl_test_LDADD = itbl-tops.o itbl-test.o $(GASLIBS) @LEXLIB@
|
||||||
|
|
||||||
@ -2369,8 +2365,6 @@ symbols.o: symbols.c $(INCDIR)/symcat.h $(INCDIR)/safe-ctype.h \
|
|||||||
$(INCDIR)/obstack.h subsegs.h struc-symbol.h
|
$(INCDIR)/obstack.h subsegs.h struc-symbol.h
|
||||||
write.o: write.c $(INCDIR)/symcat.h subsegs.h $(INCDIR)/obstack.h \
|
write.o: write.c $(INCDIR)/symcat.h subsegs.h $(INCDIR)/obstack.h \
|
||||||
output-file.h dwarf2dbg.h
|
output-file.h dwarf2dbg.h
|
||||||
gasp.o: gasp.c $(INCDIR)/getopt.h $(INCDIR)/safe-ctype.h \
|
|
||||||
sb.h macro.h $(INCDIR)/xregex.h $(INCDIR)/xregex2.h
|
|
||||||
itbl-ops.o: itbl-ops.c itbl-ops.h $(INCDIR)/symcat.h
|
itbl-ops.o: itbl-ops.c itbl-ops.h $(INCDIR)/symcat.h
|
||||||
e-crisaout.o: $(srcdir)/config/e-crisaout.c $(INCDIR)/symcat.h \
|
e-crisaout.o: $(srcdir)/config/e-crisaout.c $(INCDIR)/symcat.h \
|
||||||
emul-target.h
|
emul-target.h
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
# Makefile.in generated automatically by automake 1.4 from Makefile.am
|
# Makefile.in generated automatically by automake 1.4-p5 from Makefile.am
|
||||||
|
|
||||||
# Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc.
|
# Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc.
|
||||||
# This Makefile.in is free software; the Free Software Foundation
|
# This Makefile.in is free software; the Free Software Foundation
|
||||||
# gives unlimited permission to copy and/or distribute it,
|
# gives unlimited permission to copy and/or distribute it,
|
||||||
# with or without modifications, as long as this notice is preserved.
|
# with or without modifications, as long as this notice is preserved.
|
||||||
@ -312,7 +312,7 @@ GAS_CFILES = \
|
|||||||
write.c
|
write.c
|
||||||
|
|
||||||
|
|
||||||
CFILES = $(GAS_CFILES) gasp.c itbl-ops.c
|
CFILES = $(GAS_CFILES) itbl-ops.c
|
||||||
|
|
||||||
HFILES = \
|
HFILES = \
|
||||||
as.h \
|
as.h \
|
||||||
@ -570,8 +570,8 @@ POTFILES = $(MULTI_CFILES) $(TARGET_ENV_HFILES) $(OBJ_FORMAT_HFILES) \
|
|||||||
$(HFILES) $(CFILES) $(GAS_CFILES)
|
$(HFILES) $(CFILES) $(GAS_CFILES)
|
||||||
|
|
||||||
|
|
||||||
# Note: GASP is now deprecated and will be removed at some point in the future.
|
# Note: GASP is now deprecated and has been removed. It is still
|
||||||
# Anything that GASP could do can now be done by GAS.
|
# available in the CVS archive or older binutils releases if it is needed.
|
||||||
noinst_PROGRAMS = as-new
|
noinst_PROGRAMS = as-new
|
||||||
noinst_SCRIPTS = $(GDBINIT)
|
noinst_SCRIPTS = $(GDBINIT)
|
||||||
EXTRA_SCRIPTS = .gdbinit
|
EXTRA_SCRIPTS = .gdbinit
|
||||||
@ -621,10 +621,6 @@ as_new_DEPENDENCIES = $(TARG_CPU_O) $(OBJ_FORMAT_O) $(ATOF_TARG_O) \
|
|||||||
$(extra_objects) $(GASLIBS) $(INTLDEPS)
|
$(extra_objects) $(GASLIBS) $(INTLDEPS)
|
||||||
|
|
||||||
|
|
||||||
gasp_new_SOURCES = gasp.c macro.c sb.c hash.c
|
|
||||||
gasp_new_LDADD = ../libiberty/libiberty.a $(INTLLIBS)
|
|
||||||
gasp_new_DEPENDENCIES = ../libiberty/libiberty.a $(INTLDEPS)
|
|
||||||
|
|
||||||
EXPECT = `if [ -f $${rootme}/../expect/expect ] ; then \
|
EXPECT = `if [ -f $${rootme}/../expect/expect ] ; then \
|
||||||
echo $${rootme}/../expect/expect ; \
|
echo $${rootme}/../expect/expect ; \
|
||||||
else echo expect ; fi`
|
else echo expect ; fi`
|
||||||
@ -642,7 +638,7 @@ EXTRA_as_new_SOURCES = config/m68k-parse.y
|
|||||||
|
|
||||||
# stand-alone itbl assembler & disassembler
|
# stand-alone itbl assembler & disassembler
|
||||||
|
|
||||||
EXTRA_PROGRAMS = gasp-new itbl-test
|
EXTRA_PROGRAMS = itbl-test
|
||||||
itbl_test_SOURCES = itbl-parse.y itbl-lex.l
|
itbl_test_SOURCES = itbl-parse.y itbl-lex.l
|
||||||
itbl_test_LDADD = itbl-tops.o itbl-test.o $(GASLIBS) @LEXLIB@
|
itbl_test_LDADD = itbl-tops.o itbl-test.o $(GASLIBS) @LEXLIB@
|
||||||
|
|
||||||
@ -2380,9 +2376,6 @@ DEFS = @DEFS@ -I. -I$(srcdir) -I.
|
|||||||
CPPFLAGS = @CPPFLAGS@
|
CPPFLAGS = @CPPFLAGS@
|
||||||
LDFLAGS = @LDFLAGS@
|
LDFLAGS = @LDFLAGS@
|
||||||
LIBS = @LIBS@
|
LIBS = @LIBS@
|
||||||
gasp_new_OBJECTS = gasp.$(OBJEXT) macro.$(OBJEXT) sb.$(OBJEXT) \
|
|
||||||
hash.$(OBJEXT)
|
|
||||||
gasp_new_LDFLAGS =
|
|
||||||
itbl_test_OBJECTS = itbl-parse.$(OBJEXT) itbl-lex.$(OBJEXT)
|
itbl_test_OBJECTS = itbl-parse.$(OBJEXT) itbl-lex.$(OBJEXT)
|
||||||
itbl_test_DEPENDENCIES = itbl-tops.o itbl-test.o \
|
itbl_test_DEPENDENCIES = itbl-tops.o itbl-test.o \
|
||||||
../libiberty/libiberty.a
|
../libiberty/libiberty.a
|
||||||
@ -2414,10 +2407,10 @@ configure configure.in gdbinit.in itbl-lex.c itbl-parse.c
|
|||||||
|
|
||||||
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
|
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
|
||||||
|
|
||||||
TAR = tar
|
TAR = gtar
|
||||||
GZIP_ENV = --best
|
GZIP_ENV = --best
|
||||||
SOURCES = $(gasp_new_SOURCES) $(itbl_test_SOURCES) $(as_new_SOURCES) $(EXTRA_as_new_SOURCES)
|
SOURCES = $(itbl_test_SOURCES) $(as_new_SOURCES) $(EXTRA_as_new_SOURCES)
|
||||||
OBJECTS = $(gasp_new_OBJECTS) $(itbl_test_OBJECTS) $(as_new_OBJECTS)
|
OBJECTS = $(itbl_test_OBJECTS) $(as_new_OBJECTS)
|
||||||
|
|
||||||
all: all-redirect
|
all: all-redirect
|
||||||
.SUFFIXES:
|
.SUFFIXES:
|
||||||
@ -2520,10 +2513,6 @@ distclean-libtool:
|
|||||||
|
|
||||||
maintainer-clean-libtool:
|
maintainer-clean-libtool:
|
||||||
|
|
||||||
gasp-new$(EXEEXT): $(gasp_new_OBJECTS) $(gasp_new_DEPENDENCIES)
|
|
||||||
@rm -f gasp-new$(EXEEXT)
|
|
||||||
$(LINK) $(gasp_new_LDFLAGS) $(gasp_new_OBJECTS) $(gasp_new_LDADD) $(LIBS)
|
|
||||||
|
|
||||||
itbl-test$(EXEEXT): $(itbl_test_OBJECTS) $(itbl_test_DEPENDENCIES)
|
itbl-test$(EXEEXT): $(itbl_test_OBJECTS) $(itbl_test_DEPENDENCIES)
|
||||||
@rm -f itbl-test$(EXEEXT)
|
@rm -f itbl-test$(EXEEXT)
|
||||||
$(LINK) $(itbl_test_LDFLAGS) $(itbl_test_OBJECTS) $(itbl_test_LDADD) $(LIBS)
|
$(LINK) $(itbl_test_LDFLAGS) $(itbl_test_OBJECTS) $(itbl_test_LDADD) $(LIBS)
|
||||||
@ -2575,7 +2564,7 @@ maintainer-clean-recursive:
|
|||||||
dot_seen=no; \
|
dot_seen=no; \
|
||||||
rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \
|
rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \
|
||||||
rev="$$subdir $$rev"; \
|
rev="$$subdir $$rev"; \
|
||||||
test "$$subdir" = "." && dot_seen=yes; \
|
test "$$subdir" != "." || dot_seen=yes; \
|
||||||
done; \
|
done; \
|
||||||
test "$$dot_seen" = "no" && rev=". $$rev"; \
|
test "$$dot_seen" = "no" && rev=". $$rev"; \
|
||||||
target=`echo $@ | sed s/-recursive//`; \
|
target=`echo $@ | sed s/-recursive//`; \
|
||||||
@ -3274,8 +3263,6 @@ symbols.o: symbols.c $(INCDIR)/symcat.h $(INCDIR)/safe-ctype.h \
|
|||||||
$(INCDIR)/obstack.h subsegs.h struc-symbol.h
|
$(INCDIR)/obstack.h subsegs.h struc-symbol.h
|
||||||
write.o: write.c $(INCDIR)/symcat.h subsegs.h $(INCDIR)/obstack.h \
|
write.o: write.c $(INCDIR)/symcat.h subsegs.h $(INCDIR)/obstack.h \
|
||||||
output-file.h dwarf2dbg.h
|
output-file.h dwarf2dbg.h
|
||||||
gasp.o: gasp.c $(INCDIR)/getopt.h $(INCDIR)/safe-ctype.h \
|
|
||||||
sb.h macro.h $(INCDIR)/xregex.h $(INCDIR)/xregex2.h
|
|
||||||
itbl-ops.o: itbl-ops.c itbl-ops.h $(INCDIR)/symcat.h
|
itbl-ops.o: itbl-ops.c itbl-ops.h $(INCDIR)/symcat.h
|
||||||
e-crisaout.o: $(srcdir)/config/e-crisaout.c $(INCDIR)/symcat.h \
|
e-crisaout.o: $(srcdir)/config/e-crisaout.c $(INCDIR)/symcat.h \
|
||||||
emul-target.h
|
emul-target.h
|
||||||
|
|||||||
2
gas/NEWS
2
gas/NEWS
@ -1,5 +1,7 @@
|
|||||||
-*- text -*-
|
-*- text -*-
|
||||||
|
|
||||||
|
* GASP has now been removed.
|
||||||
|
|
||||||
* Support for Texas Instruments TMS320C4x and TMS320C3x series of
|
* Support for Texas Instruments TMS320C4x and TMS320C3x series of
|
||||||
DSP's contributed by Michael Hayes and Svein E. Seldal.
|
DSP's contributed by Michael Hayes and Svein E. Seldal.
|
||||||
|
|
||||||
|
|||||||
@ -15,8 +15,6 @@ POD2MAN = pod2man --center="GNU Development Tools" \
|
|||||||
|
|
||||||
man_MANS = as.1
|
man_MANS = as.1
|
||||||
|
|
||||||
# The gasp.texi file is now deprecated, as GASP has been deprecated.
|
|
||||||
# It will disappear in a future release.
|
|
||||||
info_TEXINFOS = as.texinfo
|
info_TEXINFOS = as.texinfo
|
||||||
|
|
||||||
asconfig.texi: $(CONFIG).texi
|
asconfig.texi: $(CONFIG).texi
|
||||||
@ -71,7 +69,7 @@ install: install-info
|
|||||||
|
|
||||||
# This one isn't ready for prime time yet. Not even a little bit.
|
# This one isn't ready for prime time yet. Not even a little bit.
|
||||||
|
|
||||||
noinst_TEXINFOS = internals.texi gasp.texi
|
noinst_TEXINFOS = internals.texi
|
||||||
|
|
||||||
DISTCLEANFILES = asconfig.texi
|
DISTCLEANFILES = asconfig.texi
|
||||||
|
|
||||||
|
|||||||
@ -133,8 +133,6 @@ POD2MAN = pod2man --center="GNU Development Tools" \
|
|||||||
|
|
||||||
man_MANS = as.1
|
man_MANS = as.1
|
||||||
|
|
||||||
# The gasp.texi file is now deprecated, as GASP has been deprecated.
|
|
||||||
# It will disappear in a future release.
|
|
||||||
info_TEXINFOS = as.texinfo
|
info_TEXINFOS = as.texinfo
|
||||||
|
|
||||||
CPU_DOCS = \
|
CPU_DOCS = \
|
||||||
@ -173,7 +171,7 @@ CPU_DOCS = \
|
|||||||
|
|
||||||
# This one isn't ready for prime time yet. Not even a little bit.
|
# This one isn't ready for prime time yet. Not even a little bit.
|
||||||
|
|
||||||
noinst_TEXINFOS = internals.texi gasp.texi
|
noinst_TEXINFOS = internals.texi
|
||||||
|
|
||||||
DISTCLEANFILES = asconfig.texi
|
DISTCLEANFILES = asconfig.texi
|
||||||
|
|
||||||
@ -195,7 +193,7 @@ DIST_COMMON = Makefile.am Makefile.in
|
|||||||
|
|
||||||
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
|
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
|
||||||
|
|
||||||
TAR = tar
|
TAR = gtar
|
||||||
GZIP_ENV = --best
|
GZIP_ENV = --best
|
||||||
all: all-redirect
|
all: all-redirect
|
||||||
.SUFFIXES:
|
.SUFFIXES:
|
||||||
|
|||||||
1456
gas/doc/gasp.texi
1456
gas/doc/gasp.texi
File diff suppressed because it is too large
Load Diff
3761
gas/gasp.c
3761
gas/gasp.c
File diff suppressed because it is too large
Load Diff
64
gas/macro.c
64
gas/macro.c
@ -1,4 +1,4 @@
|
|||||||
/* macro.c - macro support for gas and gasp
|
/* macro.c - macro support for gas
|
||||||
Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
|
Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
|
||||||
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
||||||
|
|
||||||
@ -63,7 +63,7 @@ extern void *alloca ();
|
|||||||
#include "asintl.h"
|
#include "asintl.h"
|
||||||
|
|
||||||
/* The routines in this file handle macro definition and expansion.
|
/* The routines in this file handle macro definition and expansion.
|
||||||
They are called by both gasp and gas. */
|
They are called by gas. */
|
||||||
|
|
||||||
/* Internal functions. */
|
/* Internal functions. */
|
||||||
|
|
||||||
@ -75,8 +75,8 @@ static int get_apost_token PARAMS ((int, sb *, sb *, int));
|
|||||||
static int sub_actual
|
static int sub_actual
|
||||||
PARAMS ((int, sb *, sb *, struct hash_control *, int, sb *, int));
|
PARAMS ((int, sb *, sb *, struct hash_control *, int, sb *, int));
|
||||||
static const char *macro_expand_body
|
static const char *macro_expand_body
|
||||||
PARAMS ((sb *, sb *, formal_entry *, struct hash_control *, int, int));
|
PARAMS ((sb *, sb *, formal_entry *, struct hash_control *, int));
|
||||||
static const char *macro_expand PARAMS ((int, sb *, macro_entry *, sb *, int));
|
static const char *macro_expand PARAMS ((int, sb *, macro_entry *, sb *));
|
||||||
|
|
||||||
#define ISWHITE(x) ((x) == ' ' || (x) == '\t')
|
#define ISWHITE(x) ((x) == ' ' || (x) == '\t')
|
||||||
|
|
||||||
@ -99,7 +99,7 @@ static struct hash_control *macro_hash;
|
|||||||
|
|
||||||
int macro_defined;
|
int macro_defined;
|
||||||
|
|
||||||
/* Whether we are in GASP alternate mode. */
|
/* Whether we are in alternate syntax mode. */
|
||||||
|
|
||||||
static int macro_alternate;
|
static int macro_alternate;
|
||||||
|
|
||||||
@ -653,12 +653,11 @@ sub_actual (start, in, t, formal_hash, kind, out, copyifnotthere)
|
|||||||
/* Expand the body of a macro. */
|
/* Expand the body of a macro. */
|
||||||
|
|
||||||
static const char *
|
static const char *
|
||||||
macro_expand_body (in, out, formals, formal_hash, comment_char, locals)
|
macro_expand_body (in, out, formals, formal_hash, locals)
|
||||||
sb *in;
|
sb *in;
|
||||||
sb *out;
|
sb *out;
|
||||||
formal_entry *formals;
|
formal_entry *formals;
|
||||||
struct hash_control *formal_hash;
|
struct hash_control *formal_hash;
|
||||||
int comment_char;
|
|
||||||
int locals;
|
int locals;
|
||||||
{
|
{
|
||||||
sb t;
|
sb t;
|
||||||
@ -689,14 +688,7 @@ macro_expand_body (in, out, formals, formal_hash, comment_char, locals)
|
|||||||
else if (in->ptr[src] == '\\')
|
else if (in->ptr[src] == '\\')
|
||||||
{
|
{
|
||||||
src++;
|
src++;
|
||||||
if (in->ptr[src] == comment_char && comment_char != '\0')
|
if (in->ptr[src] == '(')
|
||||||
{
|
|
||||||
/* This is a comment, just drop the rest of the line. */
|
|
||||||
while (src < in->len
|
|
||||||
&& in->ptr[src] != '\n')
|
|
||||||
src++;
|
|
||||||
}
|
|
||||||
else if (in->ptr[src] == '(')
|
|
||||||
{
|
{
|
||||||
/* Sub in till the next ')' literally. */
|
/* Sub in till the next ')' literally. */
|
||||||
src++;
|
src++;
|
||||||
@ -779,7 +771,7 @@ macro_expand_body (in, out, formals, formal_hash, comment_char, locals)
|
|||||||
formal_entry *f;
|
formal_entry *f;
|
||||||
|
|
||||||
src = sb_skip_white (src + 5, in);
|
src = sb_skip_white (src + 5, in);
|
||||||
while (in->ptr[src] != '\n' && in->ptr[src] != comment_char)
|
while (in->ptr[src] != '\n')
|
||||||
{
|
{
|
||||||
static int loccnt;
|
static int loccnt;
|
||||||
char buf[20];
|
char buf[20];
|
||||||
@ -806,17 +798,6 @@ macro_expand_body (in, out, formals, formal_hash, comment_char, locals)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else if (comment_char != '\0'
|
|
||||||
&& in->ptr[src] == comment_char
|
|
||||||
&& src + 1 < in->len
|
|
||||||
&& in->ptr[src + 1] == comment_char
|
|
||||||
&& !inquote)
|
|
||||||
{
|
|
||||||
/* Two comment chars in a row cause the rest of the line to
|
|
||||||
be dropped. */
|
|
||||||
while (src < in->len && in->ptr[src] != '\n')
|
|
||||||
src++;
|
|
||||||
}
|
|
||||||
else if (in->ptr[src] == '"'
|
else if (in->ptr[src] == '"'
|
||||||
|| (macro_mri && in->ptr[src] == '\''))
|
|| (macro_mri && in->ptr[src] == '\''))
|
||||||
{
|
{
|
||||||
@ -899,12 +880,11 @@ macro_expand_body (in, out, formals, formal_hash, comment_char, locals)
|
|||||||
body. */
|
body. */
|
||||||
|
|
||||||
static const char *
|
static const char *
|
||||||
macro_expand (idx, in, m, out, comment_char)
|
macro_expand (idx, in, m, out)
|
||||||
int idx;
|
int idx;
|
||||||
sb *in;
|
sb *in;
|
||||||
macro_entry *m;
|
macro_entry *m;
|
||||||
sb *out;
|
sb *out;
|
||||||
int comment_char;
|
|
||||||
{
|
{
|
||||||
sb t;
|
sb t;
|
||||||
formal_entry *ptr;
|
formal_entry *ptr;
|
||||||
@ -954,7 +934,7 @@ macro_expand (idx, in, m, out, comment_char)
|
|||||||
|
|
||||||
/* Peel off the actuals and store them away in the hash tables' actuals. */
|
/* Peel off the actuals and store them away in the hash tables' actuals. */
|
||||||
idx = sb_skip_white (idx, in);
|
idx = sb_skip_white (idx, in);
|
||||||
while (idx < in->len && in->ptr[idx] != comment_char)
|
while (idx < in->len)
|
||||||
{
|
{
|
||||||
int scan;
|
int scan;
|
||||||
|
|
||||||
@ -1056,8 +1036,7 @@ macro_expand (idx, in, m, out, comment_char)
|
|||||||
sb_add_string (&ptr->actual, buffer);
|
sb_add_string (&ptr->actual, buffer);
|
||||||
}
|
}
|
||||||
|
|
||||||
err = macro_expand_body (&m->sub, out, m->formals, m->formal_hash,
|
err = macro_expand_body (&m->sub, out, m->formals, m->formal_hash, 1);
|
||||||
comment_char, 1);
|
|
||||||
if (err != NULL)
|
if (err != NULL)
|
||||||
return err;
|
return err;
|
||||||
|
|
||||||
@ -1090,14 +1069,12 @@ macro_expand (idx, in, m, out, comment_char)
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* Check for a macro. If one is found, put the expansion into
|
/* Check for a macro. If one is found, put the expansion into
|
||||||
*EXPAND. COMMENT_CHAR is the comment character--this is used by
|
*EXPAND. Return 1 if a macro is found, 0 otherwise. */
|
||||||
gasp. Return 1 if a macro is found, 0 otherwise. */
|
|
||||||
|
|
||||||
int
|
int
|
||||||
check_macro (line, expand, comment_char, error, info)
|
check_macro (line, expand, error, info)
|
||||||
const char *line;
|
const char *line;
|
||||||
sb *expand;
|
sb *expand;
|
||||||
int comment_char;
|
|
||||||
const char **error;
|
const char **error;
|
||||||
macro_entry **info;
|
macro_entry **info;
|
||||||
{
|
{
|
||||||
@ -1135,7 +1112,7 @@ check_macro (line, expand, comment_char, error, info)
|
|||||||
sb_add_char (&line_sb, *s++);
|
sb_add_char (&line_sb, *s++);
|
||||||
|
|
||||||
sb_new (expand);
|
sb_new (expand);
|
||||||
*error = macro_expand (0, &line_sb, macro, expand, comment_char);
|
*error = macro_expand (0, &line_sb, macro, expand);
|
||||||
|
|
||||||
sb_kill (&line_sb);
|
sb_kill (&line_sb);
|
||||||
|
|
||||||
@ -1160,13 +1137,12 @@ delete_macro (name)
|
|||||||
success, or an error message otherwise. */
|
success, or an error message otherwise. */
|
||||||
|
|
||||||
const char *
|
const char *
|
||||||
expand_irp (irpc, idx, in, out, get_line, comment_char)
|
expand_irp (irpc, idx, in, out, get_line)
|
||||||
int irpc;
|
int irpc;
|
||||||
int idx;
|
int idx;
|
||||||
sb *in;
|
sb *in;
|
||||||
sb *out;
|
sb *out;
|
||||||
int (*get_line) PARAMS ((sb *));
|
int (*get_line) PARAMS ((sb *));
|
||||||
int comment_char;
|
|
||||||
{
|
{
|
||||||
const char *mn;
|
const char *mn;
|
||||||
sb sub;
|
sb sub;
|
||||||
@ -1204,10 +1180,10 @@ expand_irp (irpc, idx, in, out, get_line, comment_char)
|
|||||||
sb_reset (out);
|
sb_reset (out);
|
||||||
|
|
||||||
idx = sb_skip_comma (idx, in);
|
idx = sb_skip_comma (idx, in);
|
||||||
if (idx >= in->len || in->ptr[idx] == comment_char)
|
if (idx >= in->len)
|
||||||
{
|
{
|
||||||
/* Expand once with a null string. */
|
/* Expand once with a null string. */
|
||||||
err = macro_expand_body (&sub, out, &f, h, comment_char, 0);
|
err = macro_expand_body (&sub, out, &f, h, 0);
|
||||||
if (err != NULL)
|
if (err != NULL)
|
||||||
return err;
|
return err;
|
||||||
}
|
}
|
||||||
@ -1215,7 +1191,7 @@ expand_irp (irpc, idx, in, out, get_line, comment_char)
|
|||||||
{
|
{
|
||||||
if (irpc && in->ptr[idx] == '"')
|
if (irpc && in->ptr[idx] == '"')
|
||||||
++idx;
|
++idx;
|
||||||
while (idx < in->len && in->ptr[idx] != comment_char)
|
while (idx < in->len)
|
||||||
{
|
{
|
||||||
if (!irpc)
|
if (!irpc)
|
||||||
idx = get_any_string (idx, in, &f.actual, 1, 0);
|
idx = get_any_string (idx, in, &f.actual, 1, 0);
|
||||||
@ -1226,7 +1202,7 @@ expand_irp (irpc, idx, in, out, get_line, comment_char)
|
|||||||
int nxt;
|
int nxt;
|
||||||
|
|
||||||
nxt = sb_skip_white (idx + 1, in);
|
nxt = sb_skip_white (idx + 1, in);
|
||||||
if (nxt >= in->len || in->ptr[nxt] == comment_char)
|
if (nxt >= in->len)
|
||||||
{
|
{
|
||||||
idx = nxt;
|
idx = nxt;
|
||||||
break;
|
break;
|
||||||
@ -1236,7 +1212,7 @@ expand_irp (irpc, idx, in, out, get_line, comment_char)
|
|||||||
sb_add_char (&f.actual, in->ptr[idx]);
|
sb_add_char (&f.actual, in->ptr[idx]);
|
||||||
++idx;
|
++idx;
|
||||||
}
|
}
|
||||||
err = macro_expand_body (&sub, out, &f, h, comment_char, 0);
|
err = macro_expand_body (&sub, out, &f, h, 0);
|
||||||
if (err != NULL)
|
if (err != NULL)
|
||||||
return err;
|
return err;
|
||||||
if (!irpc)
|
if (!irpc)
|
||||||
|
|||||||
47
gas/macro.h
47
gas/macro.h
@ -1,5 +1,5 @@
|
|||||||
/* macro.h - header file for macro support for gas and gasp
|
/* macro.h - header file for macro support for gas
|
||||||
Copyright 1994, 1995, 1996, 1997, 1998, 2000
|
Copyright 1994, 1995, 1996, 1997, 1998, 2000, 2002
|
||||||
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
||||||
|
|
||||||
Written by Steve and Judy Chamberlain of Cygnus Support,
|
Written by Steve and Judy Chamberlain of Cygnus Support,
|
||||||
@ -37,14 +37,14 @@
|
|||||||
name and its default value. Each time the macro is expanded, the
|
name and its default value. Each time the macro is expanded, the
|
||||||
formals get the actual values attatched to them. */
|
formals get the actual values attatched to them. */
|
||||||
|
|
||||||
/* describe the formal arguments to a macro */
|
/* Describe the formal arguments to a macro. */
|
||||||
|
|
||||||
typedef struct formal_struct {
|
typedef struct formal_struct {
|
||||||
struct formal_struct *next; /* next formal in list */
|
struct formal_struct *next; /* Next formal in list. */
|
||||||
sb name; /* name of the formal */
|
sb name; /* Name of the formal. */
|
||||||
sb def; /* the default value */
|
sb def; /* The default value. */
|
||||||
sb actual; /* the actual argument (changed on each expansion) */
|
sb actual; /* The actual argument (changed on each expansion). */
|
||||||
int index; /* the index of the formal 0..formal_count-1 */
|
int index; /* The index of the formal 0..formal_count - 1. */
|
||||||
} formal_entry;
|
} formal_entry;
|
||||||
|
|
||||||
/* Other values found in the index field of a formal_entry. */
|
/* Other values found in the index field of a formal_entry. */
|
||||||
@ -52,13 +52,14 @@ typedef struct formal_struct {
|
|||||||
#define NARG_INDEX (-2)
|
#define NARG_INDEX (-2)
|
||||||
#define LOCAL_INDEX (-3)
|
#define LOCAL_INDEX (-3)
|
||||||
|
|
||||||
/* describe the macro. */
|
/* Describe the macro. */
|
||||||
|
|
||||||
typedef struct macro_struct {
|
typedef struct macro_struct
|
||||||
sb sub; /* substitution text. */
|
{
|
||||||
int formal_count; /* number of formal args. */
|
sb sub; /* Substitution text. */
|
||||||
formal_entry *formals; /* pointer to list of formal_structs */
|
int formal_count; /* Number of formal args. */
|
||||||
struct hash_control *formal_hash; /* hash table of formals. */
|
formal_entry *formals; /* Pointer to list of formal_structs. */
|
||||||
|
struct hash_control *formal_hash; /* Hash table of formals. */
|
||||||
} macro_entry;
|
} macro_entry;
|
||||||
|
|
||||||
/* Whether any macros have been defined. */
|
/* Whether any macros have been defined. */
|
||||||
@ -72,16 +73,16 @@ extern int macro_nest;
|
|||||||
extern int buffer_and_nest
|
extern int buffer_and_nest
|
||||||
PARAMS ((const char *, const char *, sb *, int (*) PARAMS ((sb *))));
|
PARAMS ((const char *, const char *, sb *, int (*) PARAMS ((sb *))));
|
||||||
extern void macro_init
|
extern void macro_init
|
||||||
PARAMS ((int alternate, int mri, int strip_at,
|
PARAMS ((int, int, int, int (*) PARAMS ((const char *, int, sb *, int *))));
|
||||||
int (*) PARAMS ((const char *, int, sb *, int *))));
|
extern void macro_mri_mode
|
||||||
extern void macro_mri_mode PARAMS ((int));
|
PARAMS ((int));
|
||||||
extern const char *define_macro
|
extern const char *define_macro
|
||||||
PARAMS ((int idx, sb *in, sb *label, int (*get_line) PARAMS ((sb *)),
|
PARAMS ((int, sb *, sb *, int (*) PARAMS ((sb *)), const char **));
|
||||||
const char **namep));
|
extern int check_macro
|
||||||
extern int check_macro PARAMS ((const char *, sb *, int, const char **,
|
PARAMS ((const char *, sb *, const char **, macro_entry **));
|
||||||
macro_entry **));
|
extern void delete_macro
|
||||||
extern void delete_macro PARAMS ((const char *));
|
PARAMS ((const char *));
|
||||||
extern const char *expand_irp
|
extern const char *expand_irp
|
||||||
PARAMS ((int, int, sb *, sb *, int (*) PARAMS ((sb *)), int));
|
PARAMS ((int, int, sb *, sb *, int (*) PARAMS ((sb *))));
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
@ -45,8 +45,6 @@ OBJS=targ-cpu.obj,obj-format.obj,atof-targ.obj,app.obj,as.obj,atof-generic.obj,\
|
|||||||
literal.obj,messages.obj,output-file.obj,read.obj,subsegs.obj,symbols.obj,\
|
literal.obj,messages.obj,output-file.obj,read.obj,subsegs.obj,symbols.obj,\
|
||||||
write.obj,listing.obj,ecoff.obj,stabs.obj,sb.obj,macro.obj,ehopt.obj
|
write.obj,listing.obj,ecoff.obj,stabs.obj,sb.obj,macro.obj,ehopt.obj
|
||||||
|
|
||||||
GASPOBJS = gasp.obj,macro.obj,sb.obj,hash.obj
|
|
||||||
|
|
||||||
LIBIBERTY = [-.libiberty]libiberty.olb
|
LIBIBERTY = [-.libiberty]libiberty.olb
|
||||||
|
|
||||||
ifeq ($(ARCH),ALPHA)
|
ifeq ($(ARCH),ALPHA)
|
||||||
@ -59,7 +57,7 @@ LIBOPCODES =
|
|||||||
BFDDEP =
|
BFDDEP =
|
||||||
endif
|
endif
|
||||||
|
|
||||||
all: config.status $(BFDDEP) as.exe gasp.exe
|
all: config.status $(BFDDEP) as.exe
|
||||||
|
|
||||||
as.exe: $(OBJS) $(LIBOPCODES) $(LIBBFD) $(LIBIBERTY)
|
as.exe: $(OBJS) $(LIBOPCODES) $(LIBBFD) $(LIBIBERTY)
|
||||||
ifeq ($(ARCH),ALPHA)
|
ifeq ($(ARCH),ALPHA)
|
||||||
@ -68,13 +66,6 @@ else
|
|||||||
link$(LFLAGS)/exe=$@ $(OBJS),$(LIBIBERTY)/lib$(LIBS)
|
link$(LFLAGS)/exe=$@ $(OBJS),$(LIBIBERTY)/lib$(LIBS)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
gasp.exe: $(GASPOBJS) $(LIBBFD) $(LIBIBERTY)
|
|
||||||
ifeq ($(ARCH),ALPHA)
|
|
||||||
link$(LFLAGS)/exe=$@ $(GASPOBJS),$(LIBBFD)/lib,$(LIBIBERTY)/lib$(LIBS)
|
|
||||||
else
|
|
||||||
link$(LFLAGS)/exe=$@ $(GASPOBJS),$(LIBIBERTY)/lib$(LIBS)
|
|
||||||
endif
|
|
||||||
|
|
||||||
config.status:
|
config.status:
|
||||||
$$ @config-gas
|
$$ @config-gas
|
||||||
|
|
||||||
@ -108,7 +99,7 @@ targ-cpu.obj: targ-cpu.c targ-cpu.h [.config]atof-vax.c
|
|||||||
gmake -f makefile.vms "CC=$(CC)"
|
gmake -f makefile.vms "CC=$(CC)"
|
||||||
$(CD) [-.gas]
|
$(CD) [-.gas]
|
||||||
|
|
||||||
install: as.exe gasp.exe
|
install: as.exe
|
||||||
$(CP) $^ GNU_ROOT\:[BIN]
|
$(CP) $^ GNU_ROOT\:[BIN]
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
|
|||||||
@ -58,18 +58,15 @@ LOCAL_LOADLIBES = \
|
|||||||
|
|
||||||
# Whack out the config.h dependency, it only causes excess rebuilds.
|
# Whack out the config.h dependency, it only causes excess rebuilds.
|
||||||
/{OBJS}/s/{OBJS} \\Option-f "{o}"config.h/{OBJS} \\Option-f/
|
/{OBJS}/s/{OBJS} \\Option-f "{o}"config.h/{OBJS} \\Option-f/
|
||||||
/gasp.c/s/gasp\.c "{o}"config.h/gasp.c/
|
|
||||||
|
|
||||||
# ALL_CFLAGS includes TDEFINES, which is not desirable at link time.
|
# ALL_CFLAGS includes TDEFINES, which is not desirable at link time.
|
||||||
/CC_LD/s/ALL_CFLAGS/CFLAGS/g
|
/CC_LD/s/ALL_CFLAGS/CFLAGS/g
|
||||||
|
|
||||||
# The resource file is called mac-as.r.
|
# The resource file is called mac-as.r.
|
||||||
/as.new.r/s/as\.new\.r/mac-as.r/
|
/as.new.r/s/as\.new\.r/mac-as.r/
|
||||||
/gasp.new.r/s/gasp\.new\.r/mac-as.r/
|
|
||||||
|
|
||||||
# ...and the PROG_NAME doesn't have a .new in it.
|
# ...and the PROG_NAME doesn't have a .new in it.
|
||||||
/PROG_NAME/s/PROG_NAME='"'as.new'"'/PROG_NAME='"'as'"'/
|
/PROG_NAME/s/PROG_NAME='"'as.new'"'/PROG_NAME='"'as'"'/
|
||||||
/PROG_NAME/s/PROG_NAME='"'gasp.new'"'/PROG_NAME='"'gasp'"'/
|
|
||||||
|
|
||||||
# Whack out recursive makes, they won't work.
|
# Whack out recursive makes, they won't work.
|
||||||
/^[ ][ ]*srcroot=/,/^[ ][ ]*(cd /d
|
/^[ ][ ]*srcroot=/,/^[ ][ ]*(cd /d
|
||||||
@ -90,7 +87,6 @@ install \\Option-f all install-only\
|
|||||||
install-only \\Option-f\
|
install-only \\Option-f\
|
||||||
NewFolderRecursive "{bindir}"\
|
NewFolderRecursive "{bindir}"\
|
||||||
Duplicate -y :as.new "{bindir}"as\
|
Duplicate -y :as.new "{bindir}"as\
|
||||||
Duplicate -y :gasp.new "{bindir}"gasp\
|
|
||||||
|
|
||||||
|
|
||||||
# Whack out config-rebuilding targets, they won't work.
|
# Whack out config-rebuilding targets, they won't work.
|
||||||
|
|||||||
@ -862,7 +862,7 @@ read_a_source_file (name)
|
|||||||
const char *err;
|
const char *err;
|
||||||
macro_entry *macro;
|
macro_entry *macro;
|
||||||
|
|
||||||
if (check_macro (s, &out, '\0', &err, ¯o))
|
if (check_macro (s, &out, &err, ¯o))
|
||||||
{
|
{
|
||||||
if (err != NULL)
|
if (err != NULL)
|
||||||
as_bad ("%s", err);
|
as_bad ("%s", err);
|
||||||
@ -1855,7 +1855,7 @@ s_irp (irpc)
|
|||||||
|
|
||||||
sb_new (&out);
|
sb_new (&out);
|
||||||
|
|
||||||
err = expand_irp (irpc, 0, &s, &out, get_line_sb, '\0');
|
err = expand_irp (irpc, 0, &s, &out, get_line_sb);
|
||||||
if (err != NULL)
|
if (err != NULL)
|
||||||
as_bad_where (file, line, "%s", err);
|
as_bad_where (file, line, "%s", err);
|
||||||
|
|
||||||
@ -2296,8 +2296,7 @@ get_line_sb (line)
|
|||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Define a macro. This is an interface to macro.c, which is shared
|
/* Define a macro. This is an interface to macro.c. */
|
||||||
between gas and gasp. */
|
|
||||||
|
|
||||||
void
|
void
|
||||||
s_macro (ignore)
|
s_macro (ignore)
|
||||||
|
|||||||
@ -1,3 +1,9 @@
|
|||||||
|
2002-12-02 Nick Clifton <nickc@redhat.com>
|
||||||
|
|
||||||
|
* gasp: Remove entire directory tree. (Gasp has been removed from
|
||||||
|
binutils).
|
||||||
|
* config/default.asp (GASP): Remove definition and initialization.
|
||||||
|
|
||||||
2002-12-01 Stephane Carrez <stcarrez@nerim.fr>
|
2002-12-01 Stephane Carrez <stcarrez@nerim.fr>
|
||||||
|
|
||||||
* gas/m68hc11/m68hc11.exp: Rename from all.exp; run the new tests.
|
* gas/m68hc11/m68hc11.exp: Rename from all.exp; run the new tests.
|
||||||
|
|||||||
@ -5,11 +5,6 @@ if ![info exists AS] then {
|
|||||||
set AS [findfile $base_dir/../as-new "../as-new" [transform as]]
|
set AS [findfile $base_dir/../as-new "../as-new" [transform as]]
|
||||||
}
|
}
|
||||||
|
|
||||||
global GASP
|
|
||||||
if ![info exists GASP] then {
|
|
||||||
set GASP [findfile $base_dir/../gasp-new "../gasp-new" [transform gasp]]
|
|
||||||
}
|
|
||||||
|
|
||||||
global ASFLAGS
|
global ASFLAGS
|
||||||
if ![info exists ASFLAGS] then {
|
if ![info exists ASFLAGS] then {
|
||||||
set ASFLAGS ""
|
set ASFLAGS ""
|
||||||
|
|||||||
@ -1,3 +0,0 @@
|
|||||||
FILE 1 FIRST LINE
|
|
||||||
.INCLUDE "INC2.H"
|
|
||||||
FILE 1 LAST LINE
|
|
||||||
@ -1,2 +0,0 @@
|
|||||||
FILE 2 FIRST LINE
|
|
||||||
FILE 2 LAST LINE
|
|
||||||
@ -1,13 +0,0 @@
|
|||||||
|
|
||||||
foo: .ASSIGNC "hello"
|
|
||||||
BAR: .ASSIGNA 12+34
|
|
||||||
|
|
||||||
\&foo'foo
|
|
||||||
\&foo\&foo\&foo
|
|
||||||
\&foo \&foo \&foo
|
|
||||||
\&BAR\&bar\&BAR
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
.END
|
|
||||||
@ -1 +0,0 @@
|
|||||||
assign.asm:8 Can't find preprocessor variable bar.
|
|
||||||
@ -1,22 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
!foo: .ASSIGNC "hello"
|
|
||||||
!BAR: .ASSIGNA 12+34
|
|
||||||
!
|
|
||||||
|
|
||||||
! \&foo'foo
|
|
||||||
hellofoo
|
|
||||||
! \&foo\&foo\&foo
|
|
||||||
hellohellohello
|
|
||||||
! \&foo \&foo \&foo
|
|
||||||
hello hello hello
|
|
||||||
! \&BAR\&bar\&BAR
|
|
||||||
4646
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
! .END
|
|
||||||
@ -1,129 +0,0 @@
|
|||||||
.AIF 1 EQ 1
|
|
||||||
OK
|
|
||||||
.AELSE
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 2
|
|
||||||
BAD
|
|
||||||
.AELSE
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 2
|
|
||||||
BAD
|
|
||||||
.AELSE
|
|
||||||
OK
|
|
||||||
.AIF 1 EQ 2
|
|
||||||
BAD
|
|
||||||
.AELSE
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 LT 2
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 2
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 NE 2
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 LE 2
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 GT 2
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 3 GE 2
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF 3 LT 2
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 3 EQ 2
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 3 NE 2
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF 3 LE 2
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 3 GT 2
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF 3 GE 2
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF "FOO" EQ "BAR"
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF "FOO" EQ "FOO"
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF "FOO" NE "BAR"
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF "FOO" EQ "FOO"
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 1
|
|
||||||
.AIF 1 EQ 1
|
|
||||||
OK
|
|
||||||
.AELSE
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 0
|
|
||||||
BAD
|
|
||||||
.AELSE
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
OK
|
|
||||||
.AELSE
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 0
|
|
||||||
BAD
|
|
||||||
.AELSE
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 1
|
|
||||||
OK
|
|
||||||
.AELSE
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 0
|
|
||||||
BAD
|
|
||||||
.AELSE
|
|
||||||
.AIF 1 EQ 1
|
|
||||||
OK
|
|
||||||
.AELSE
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 0
|
|
||||||
BAD
|
|
||||||
.AELSE
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 1
|
|
||||||
OK
|
|
||||||
.AIF 1 EQ 1
|
|
||||||
OK
|
|
||||||
.AELSE
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 0
|
|
||||||
BAD
|
|
||||||
.AELSE
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.AELSE
|
|
||||||
BAD
|
|
||||||
.AENDI
|
|
||||||
.AIF 1 EQ 0
|
|
||||||
BAD
|
|
||||||
.AELSE
|
|
||||||
OK
|
|
||||||
.AENDI
|
|
||||||
.END
|
|
||||||
@ -1,155 +0,0 @@
|
|||||||
! .AIF 1 EQ 1
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AELSE
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 2
|
|
||||||
! BAD
|
|
||||||
! .AELSE
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 2
|
|
||||||
! BAD
|
|
||||||
! .AELSE
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AIF 1 EQ 2
|
|
||||||
! BAD
|
|
||||||
! .AELSE
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 LT 2
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 2
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 NE 2
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 LE 2
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 GT 2
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 3 GE 2
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 3 LT 2
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 3 EQ 2
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 3 NE 2
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 3 LE 2
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 3 GT 2
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 3 GE 2
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF "FOO" EQ "BAR"
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF "FOO" EQ "FOO"
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF "FOO" NE "BAR"
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF "FOO" EQ "FOO"
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 1
|
|
||||||
! .AIF 1 EQ 1
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AELSE
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 0
|
|
||||||
! BAD
|
|
||||||
! .AELSE
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AELSE
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 0
|
|
||||||
! BAD
|
|
||||||
! .AELSE
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 1
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AELSE
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 0
|
|
||||||
! BAD
|
|
||||||
! .AELSE
|
|
||||||
! .AIF 1 EQ 1
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AELSE
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 0
|
|
||||||
! BAD
|
|
||||||
! .AELSE
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 1
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AIF 1 EQ 1
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AELSE
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 0
|
|
||||||
! BAD
|
|
||||||
! .AELSE
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .AELSE
|
|
||||||
! BAD
|
|
||||||
! .AENDI
|
|
||||||
! .AIF 1 EQ 0
|
|
||||||
! BAD
|
|
||||||
! .AELSE
|
|
||||||
! OK
|
|
||||||
OK
|
|
||||||
! .AENDI
|
|
||||||
! .END
|
|
||||||
@ -1,22 +0,0 @@
|
|||||||
|
|
||||||
Stuff to try and crash it
|
|
||||||
|
|
||||||
foo: .MACRO
|
|
||||||
HI
|
|
||||||
bar: .MACRO
|
|
||||||
THERE
|
|
||||||
bar
|
|
||||||
.ENDM
|
|
||||||
|
|
||||||
|
|
||||||
.ENDM
|
|
||||||
foo
|
|
||||||
foo
|
|
||||||
foo
|
|
||||||
foo
|
|
||||||
foo
|
|
||||||
bar
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -1 +0,0 @@
|
|||||||
crash.asm:18 Unreasonable expansion (-u turns off check).
|
|
||||||
File diff suppressed because it is too large
Load Diff
@ -1,13 +0,0 @@
|
|||||||
|
|
||||||
|
|
||||||
.MACRO foo a b c=a
|
|
||||||
\a \b \c \d
|
|
||||||
.ENDM
|
|
||||||
|
|
||||||
foo 1 2
|
|
||||||
foo 1 2 3 4
|
|
||||||
foo 1
|
|
||||||
foo
|
|
||||||
|
|
||||||
|
|
||||||
.END
|
|
||||||
@ -1,24 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! .MACRO foo a b c=a
|
|
||||||
! \a \b \c \d
|
|
||||||
! .ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! foo 1 2
|
|
||||||
! 1 2 a \d
|
|
||||||
1 2 a \d
|
|
||||||
! foo 1 2 3 4
|
|
||||||
! foo 1
|
|
||||||
! 1 a \d
|
|
||||||
1 a \d
|
|
||||||
! foo
|
|
||||||
! a \d
|
|
||||||
a \d
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! .END
|
|
||||||
@ -1,41 +0,0 @@
|
|||||||
|
|
||||||
foo: .ASSIGNA 1
|
|
||||||
\&foo+1
|
|
||||||
\&foo+1
|
|
||||||
foo: .ASSIGNC "foo"
|
|
||||||
\&foo+1
|
|
||||||
\&foo+1
|
|
||||||
|
|
||||||
foo: .ASSIGNA 1
|
|
||||||
\&foo+1
|
|
||||||
\&foo+1
|
|
||||||
foo: .ASSIGNC "foo"
|
|
||||||
\&foo+1
|
|
||||||
\&foo+1
|
|
||||||
|
|
||||||
foo: .ASSIGNA 1
|
|
||||||
\&foo+1
|
|
||||||
\&foo+1
|
|
||||||
foo: .ASSIGNC "foo"
|
|
||||||
\&foo+1
|
|
||||||
\&foo+1
|
|
||||||
|
|
||||||
foo: .ASSIGNA 1
|
|
||||||
\&foo+1
|
|
||||||
\&foo+1
|
|
||||||
foo: .ASSIGNC "foo"
|
|
||||||
\&foo+1
|
|
||||||
\&foo+1
|
|
||||||
|
|
||||||
foo: .ASSIGNA 1
|
|
||||||
\&foo+1
|
|
||||||
\&foo+1
|
|
||||||
foo: .ASSIGNC "foo"
|
|
||||||
\&foo+1
|
|
||||||
\&foo+1
|
|
||||||
foo
|
|
||||||
foo foo
|
|
||||||
foo foo
|
|
||||||
foo
|
|
||||||
.END
|
|
||||||
|
|
||||||
@ -1,69 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
!foo: .ASSIGNA 1
|
|
||||||
! \&foo+1
|
|
||||||
1+1
|
|
||||||
! \&foo+1
|
|
||||||
1+1
|
|
||||||
!foo: .ASSIGNC "foo"
|
|
||||||
! \&foo+1
|
|
||||||
foo+1
|
|
||||||
! \&foo+1
|
|
||||||
foo+1
|
|
||||||
!
|
|
||||||
|
|
||||||
!foo: .ASSIGNA 1
|
|
||||||
! \&foo+1
|
|
||||||
1+1
|
|
||||||
! \&foo+1
|
|
||||||
1+1
|
|
||||||
!foo: .ASSIGNC "foo"
|
|
||||||
! \&foo+1
|
|
||||||
foo+1
|
|
||||||
! \&foo+1
|
|
||||||
foo+1
|
|
||||||
!
|
|
||||||
|
|
||||||
!foo: .ASSIGNA 1
|
|
||||||
! \&foo+1
|
|
||||||
1+1
|
|
||||||
! \&foo+1
|
|
||||||
1+1
|
|
||||||
!foo: .ASSIGNC "foo"
|
|
||||||
! \&foo+1
|
|
||||||
foo+1
|
|
||||||
! \&foo+1
|
|
||||||
foo+1
|
|
||||||
!
|
|
||||||
|
|
||||||
!foo: .ASSIGNA 1
|
|
||||||
! \&foo+1
|
|
||||||
1+1
|
|
||||||
! \&foo+1
|
|
||||||
1+1
|
|
||||||
!foo: .ASSIGNC "foo"
|
|
||||||
! \&foo+1
|
|
||||||
foo+1
|
|
||||||
! \&foo+1
|
|
||||||
foo+1
|
|
||||||
!
|
|
||||||
|
|
||||||
!foo: .ASSIGNA 1
|
|
||||||
! \&foo+1
|
|
||||||
1+1
|
|
||||||
! \&foo+1
|
|
||||||
1+1
|
|
||||||
!foo: .ASSIGNC "foo"
|
|
||||||
! \&foo+1
|
|
||||||
foo+1
|
|
||||||
! \&foo+1
|
|
||||||
foo+1
|
|
||||||
! foo
|
|
||||||
foo
|
|
||||||
! foo foo
|
|
||||||
foo foo
|
|
||||||
! foo foo
|
|
||||||
foo foo
|
|
||||||
! foo
|
|
||||||
foo
|
|
||||||
! .END
|
|
||||||
@ -1,23 +0,0 @@
|
|||||||
|
|
||||||
foo .DATA 1,2,3
|
|
||||||
bar .DATA 1,2,3,4,5 ,6
|
|
||||||
.DATA.B 12345,12,2
|
|
||||||
.DATA.W 9,2,12,3,13+41,foo+9
|
|
||||||
.DATA.L 2~99
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
.DATAB 1,2,3
|
|
||||||
.DATAB 1,2,3
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
.DATAB 1,9+32
|
|
||||||
|
|
||||||
.DATAB.L 1,H'11111111
|
|
||||||
.DATAB.W 2,H'2222
|
|
||||||
.DATAB.B 3,H'333
|
|
||||||
|
|
||||||
|
|
||||||
.END
|
|
||||||
@ -1,45 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
!foo .DATA 1,2,3
|
|
||||||
foo: .long 1,2,3
|
|
||||||
!bar .DATA 1,2,3,4,5 ,6
|
|
||||||
bar: .long 1,2,3,4,5,6
|
|
||||||
! .DATA.B 12345,12,2
|
|
||||||
.byte 12345,12,2
|
|
||||||
! .DATA.W 9,2,12,3,13+41,foo+9
|
|
||||||
.short 9,2,12,3,54,foo+9
|
|
||||||
! .DATA.L 2~99
|
|
||||||
.long 97
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! .DATAB 1,2,3
|
|
||||||
.fill 1,4,2
|
|
||||||
! .DATAB 1,2,3
|
|
||||||
.fill 1,4,2
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! .DATAB 1,9+32
|
|
||||||
.fill 1,4,41
|
|
||||||
!
|
|
||||||
|
|
||||||
! .DATAB.L 1,H'11111111
|
|
||||||
.fill 1,4,286331153
|
|
||||||
! .DATAB.W 2,H'2222
|
|
||||||
.fill 2,2,8738
|
|
||||||
! .DATAB.B 3,H'333
|
|
||||||
.fill 3,1,819
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! .END
|
|
||||||
@ -1,80 +0,0 @@
|
|||||||
|
|
||||||
; test all ops
|
|
||||||
|
|
||||||
a1 .EQU 4+10
|
|
||||||
a2 .EQU 4-10
|
|
||||||
a3 .EQU 4&10
|
|
||||||
a4 .EQU 4|2
|
|
||||||
a5 .EQU 4~2
|
|
||||||
a6 .EQU 4*10
|
|
||||||
a7 .EQU 40/10
|
|
||||||
a8 .EQU +7
|
|
||||||
a9 .EQU -7
|
|
||||||
a10 .EQU ~7
|
|
||||||
|
|
||||||
|
|
||||||
a1 a2 a3 a4 a5 a6 a7 a8 a9 a10
|
|
||||||
|
|
||||||
; test the priorities
|
|
||||||
|
|
||||||
b1 .EQU 1|2~3&4+5-8*7/2
|
|
||||||
b2 .EQU (1|2~(3&(4+5-(8*(7/2)))))
|
|
||||||
b3 .EQU 10*2/3*4
|
|
||||||
b4 .EQU (((10*2)/3)*4)
|
|
||||||
b5 .EQU 10+2-3+4
|
|
||||||
b6 .EQU (((10+2)-3)+4)
|
|
||||||
|
|
||||||
b1 b2 b3 b4
|
|
||||||
|
|
||||||
; test association
|
|
||||||
|
|
||||||
c1 .EQU -~3
|
|
||||||
c2 .EQU ~-3
|
|
||||||
c3 .EQU -(~3)
|
|
||||||
c4 .EQU ~(-3)
|
|
||||||
|
|
||||||
c1 c2 c3 c4
|
|
||||||
|
|
||||||
; test rules for symbols
|
|
||||||
|
|
||||||
ok1 .EQU FOO
|
|
||||||
ok2 .EQU FOO+10
|
|
||||||
ok3 .EQU 10+FOO
|
|
||||||
ok4 .EQU FOO-10
|
|
||||||
|
|
||||||
ok1
|
|
||||||
ok2
|
|
||||||
ok3
|
|
||||||
ok4
|
|
||||||
|
|
||||||
ok5 .EQU FOO+3+4+5+6
|
|
||||||
ok6 .EQU FOO-BAR
|
|
||||||
|
|
||||||
ok5
|
|
||||||
ok6
|
|
||||||
|
|
||||||
bad1 .EQU FOO+FOO
|
|
||||||
bad2 .EQU FOO*2
|
|
||||||
bad3 .EQU FOO/2
|
|
||||||
bad4 .EQU FOO|2
|
|
||||||
bad5 .EQU FOO&2
|
|
||||||
bad6 .EQU FOO~2
|
|
||||||
bad7 .EQU FOO*2
|
|
||||||
|
|
||||||
; test spacing
|
|
||||||
|
|
||||||
space1 .EQU 1 + 2 +3+FOO + 3
|
|
||||||
space2
|
|
||||||
|
|
||||||
; from the SH manual
|
|
||||||
|
|
||||||
.DATA.L 1+(2-(3+(4-5))),1
|
|
||||||
|
|
||||||
.DATA.L -H'fffffff1+H'000000f0*H'00000010|H'000000f0&H'0000ffff,H'00000fff
|
|
||||||
|
|
||||||
.DATA.L -~-~H'0000000f,H'00
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
.END
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
exp.asm:56 can't add two relocatable expressions
|
|
||||||
exp.asm:57 the * operator cannot take non-absolute arguments.
|
|
||||||
exp.asm:58 the / operator cannot take non-absolute arguments.
|
|
||||||
exp.asm:59 the | operator cannot take non-absolute arguments.
|
|
||||||
exp.asm:60 the & operator cannot take non-absolute arguments.
|
|
||||||
exp.asm:61 the ~ operator cannot take non-absolute arguments.
|
|
||||||
exp.asm:62 the * operator cannot take non-absolute arguments.
|
|
||||||
@ -1,124 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
!; test all ops
|
|
||||||
; test all ops
|
|
||||||
!
|
|
||||||
|
|
||||||
!a1 .EQU 4+10
|
|
||||||
!a2 .EQU 4-10
|
|
||||||
!a3 .EQU 4&10
|
|
||||||
!a4 .EQU 4|2
|
|
||||||
!a5 .EQU 4~2
|
|
||||||
!a6 .EQU 4*10
|
|
||||||
!a7 .EQU 40/10
|
|
||||||
!a8 .EQU +7
|
|
||||||
!a9 .EQU -7
|
|
||||||
!a10 .EQU ~7
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! a1 a2 a3 a4 a5 a6 a7 a8 a9 a10
|
|
||||||
14 -6 0 6 6 40 4 7 -7 -8
|
|
||||||
!
|
|
||||||
|
|
||||||
!; test the priorities
|
|
||||||
; test the priorities
|
|
||||||
!
|
|
||||||
|
|
||||||
!b1 .EQU 1|2~3&4+5-8*7/2
|
|
||||||
!b2 .EQU (1|2~(3&(4+5-(8*(7/2)))))
|
|
||||||
!b3 .EQU 10*2/3*4
|
|
||||||
!b4 .EQU (((10*2)/3)*4)
|
|
||||||
!b5 .EQU 10+2-3+4
|
|
||||||
!b6 .EQU (((10+2)-3)+4)
|
|
||||||
!
|
|
||||||
|
|
||||||
! b1 b2 b3 b4
|
|
||||||
2 2 24 24
|
|
||||||
!
|
|
||||||
|
|
||||||
!; test association
|
|
||||||
; test association
|
|
||||||
!
|
|
||||||
|
|
||||||
!c1 .EQU -~3
|
|
||||||
!c2 .EQU ~-3
|
|
||||||
!c3 .EQU -(~3)
|
|
||||||
!c4 .EQU ~(-3)
|
|
||||||
!
|
|
||||||
|
|
||||||
! c1 c2 c3 c4
|
|
||||||
4 2 4 2
|
|
||||||
!
|
|
||||||
|
|
||||||
!; test rules for symbols
|
|
||||||
; test rules for symbols
|
|
||||||
!
|
|
||||||
|
|
||||||
!ok1 .EQU FOO
|
|
||||||
!ok2 .EQU FOO+10
|
|
||||||
!ok3 .EQU 10+FOO
|
|
||||||
!ok4 .EQU FOO-10
|
|
||||||
!
|
|
||||||
|
|
||||||
! ok1
|
|
||||||
FOO
|
|
||||||
! ok2
|
|
||||||
FOO+10
|
|
||||||
! ok3
|
|
||||||
FOO+10
|
|
||||||
! ok4
|
|
||||||
FOO+-10
|
|
||||||
!
|
|
||||||
|
|
||||||
!ok5 .EQU FOO+3+4+5+6
|
|
||||||
!ok6 .EQU FOO-BAR
|
|
||||||
!
|
|
||||||
|
|
||||||
! ok5
|
|
||||||
FOO+18
|
|
||||||
! ok6
|
|
||||||
FOO-FOO
|
|
||||||
!
|
|
||||||
|
|
||||||
!bad1 .EQU FOO+FOO
|
|
||||||
!bad2 .EQU FOO*2
|
|
||||||
!bad3 .EQU FOO/2
|
|
||||||
!bad4 .EQU FOO|2
|
|
||||||
!bad5 .EQU FOO&2
|
|
||||||
!bad6 .EQU FOO~2
|
|
||||||
!bad7 .EQU FOO*2
|
|
||||||
!
|
|
||||||
|
|
||||||
!; test spacing
|
|
||||||
; test spacing
|
|
||||||
!
|
|
||||||
|
|
||||||
!space1 .EQU 1 + 2 +3+FOO + 3
|
|
||||||
!space2
|
|
||||||
space2:
|
|
||||||
!
|
|
||||||
|
|
||||||
!; from the SH manual
|
|
||||||
; from the SH manual
|
|
||||||
!
|
|
||||||
|
|
||||||
! .DATA.L 1+(2-(3+(4-5))),1
|
|
||||||
.long 1,1
|
|
||||||
!
|
|
||||||
|
|
||||||
! .DATA.L -H'fffffff1+H'000000f0*H'00000010|H'000000f0&H'0000ffff,H'00000fff
|
|
||||||
.long 4095,4095
|
|
||||||
!
|
|
||||||
|
|
||||||
! .DATA.L -~-~H'0000000f,H'00
|
|
||||||
.long 17,0
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
!
|
|
||||||
|
|
||||||
! .END
|
|
||||||
@ -1,19 +0,0 @@
|
|||||||
.RADIX Q
|
|
||||||
! test floats now
|
|
||||||
.float -H'C
|
|
||||||
.float -9.0
|
|
||||||
.float 0.9
|
|
||||||
.float +0.9
|
|
||||||
.float +.9
|
|
||||||
.float -00.0009
|
|
||||||
.float -2.900
|
|
||||||
.float 1.1e+10
|
|
||||||
.float +1.1e+10
|
|
||||||
.float +1.1e-10
|
|
||||||
.float -1.1E+10
|
|
||||||
.float +1.1E+1000
|
|
||||||
.float +1.1E+0001 10
|
|
||||||
.float 11.11E-10 10
|
|
||||||
.float H'C.3
|
|
||||||
.float H'C.H'C
|
|
||||||
.END
|
|
||||||
@ -1,36 +0,0 @@
|
|||||||
!.RADIX Q
|
|
||||||
! ! test floats now
|
|
||||||
! test floats now
|
|
||||||
! .float -H'C
|
|
||||||
.float -12
|
|
||||||
! .float -9.0
|
|
||||||
.float -9.0
|
|
||||||
! .float 0.9
|
|
||||||
.float 0.9
|
|
||||||
! .float +0.9
|
|
||||||
.float +0.9
|
|
||||||
! .float +.9
|
|
||||||
.float +.9
|
|
||||||
! .float -00.0009
|
|
||||||
.float -00.0009
|
|
||||||
! .float -2.900
|
|
||||||
.float -2.900
|
|
||||||
! .float 1.1e+10
|
|
||||||
.float 1.1e+10
|
|
||||||
! .float +1.1e+10
|
|
||||||
.float +1.1e+10
|
|
||||||
! .float +1.1e-10
|
|
||||||
.float +1.1e-10
|
|
||||||
! .float -1.1E+10
|
|
||||||
.float -1.1E+10
|
|
||||||
! .float +1.1E+1000
|
|
||||||
.float +1.1E+1000
|
|
||||||
! .float +1.1E+0001 10
|
|
||||||
.float +1.1E+0001 8
|
|
||||||
! .float 11.11E-10 10
|
|
||||||
.float 11.11E-10 8
|
|
||||||
! .float H'C.3
|
|
||||||
.float 12.3
|
|
||||||
! .float H'C.H'C
|
|
||||||
.float 12.12
|
|
||||||
!.END
|
|
||||||
@ -1,40 +0,0 @@
|
|||||||
# Test gasp.
|
|
||||||
|
|
||||||
# GASP is now deprecated (and not built by default)
|
|
||||||
# so if it does not exist, do not test it.
|
|
||||||
global GASP
|
|
||||||
if {![info exists GASP] || ! [file exists $GASP] } then {
|
|
||||||
return 1
|
|
||||||
}
|
|
||||||
|
|
||||||
proc gasp_test { filename testname opt } {
|
|
||||||
global GASP
|
|
||||||
global srcdir
|
|
||||||
global host_triplet
|
|
||||||
|
|
||||||
send_log "$srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out\n"
|
|
||||||
catch "exec $srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out" errs
|
|
||||||
catch "exec diff gasp.out $filename.out" diffs
|
|
||||||
set diffs [prune_warnings $diffs]
|
|
||||||
if ![string match "" $diffs] {
|
|
||||||
send_log "$diffs\n"
|
|
||||||
verbose $diffs
|
|
||||||
fail $testname
|
|
||||||
return 0
|
|
||||||
} else {
|
|
||||||
pass $testname
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
foreach src [ lsort [ glob $srcdir/gasp/*.asm ] ] {
|
|
||||||
regsub -all ".asm" $src "" t
|
|
||||||
regsub "^.*/(\[^/\]*)$" $t "gasp \\1" testname
|
|
||||||
gasp_test $t $testname ""
|
|
||||||
}
|
|
||||||
|
|
||||||
foreach src [ lsort [ glob $srcdir/gasp/mri/*.asm ] ] {
|
|
||||||
regsub -all ".asm" $src "" t
|
|
||||||
regsub "^.*/(\[^/\]*)$" $t "gasp MRI \\1" testname
|
|
||||||
gasp_test $t $testname "-M"
|
|
||||||
}
|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
HI
|
|
||||||
.INCLUDE "INC1.H"
|
|
||||||
THERE
|
|
||||||
.END
|
|
||||||
@ -1,15 +0,0 @@
|
|||||||
! HI
|
|
||||||
HI
|
|
||||||
! .INCLUDE "INC1.H"
|
|
||||||
!FILE 1 FIRST LINE
|
|
||||||
FILE: 1 FIRST LINE
|
|
||||||
! .INCLUDE "INC2.H"
|
|
||||||
! FILE 2 FIRST LINE
|
|
||||||
FILE 2 FIRST LINE
|
|
||||||
! FILE 2 LAST LINE
|
|
||||||
FILE 2 LAST LINE
|
|
||||||
!FILE 1 LAST LINE
|
|
||||||
FILE: 1 LAST LINE
|
|
||||||
! THERE
|
|
||||||
THERE
|
|
||||||
! .END
|
|
||||||
@ -1,15 +0,0 @@
|
|||||||
|
|
||||||
|
|
||||||
.HEADING " ""QUOTE"" "
|
|
||||||
.PAGE
|
|
||||||
.PRINT LIST
|
|
||||||
foo
|
|
||||||
.PRINT NOLIST
|
|
||||||
foo
|
|
||||||
|
|
||||||
|
|
||||||
.FORM LIN=12
|
|
||||||
.FORM COL=90
|
|
||||||
.FORM LIN=123 COL=23
|
|
||||||
|
|
||||||
.END
|
|
||||||
@ -1,28 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! .HEADING " ""QUOTE"" "
|
|
||||||
.title " "QUOTE" "
|
|
||||||
! .PAGE
|
|
||||||
.eject
|
|
||||||
! .PRINT LIST
|
|
||||||
.list
|
|
||||||
! foo
|
|
||||||
foo
|
|
||||||
! .PRINT NOLIST
|
|
||||||
.nolist
|
|
||||||
! foo
|
|
||||||
foo
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! .FORM LIN=12
|
|
||||||
.psize 12,132
|
|
||||||
! .FORM COL=90
|
|
||||||
.psize 60,90
|
|
||||||
! .FORM LIN=123 COL=23
|
|
||||||
.psize 123,23
|
|
||||||
!
|
|
||||||
! .END
|
|
||||||
@ -1,102 +0,0 @@
|
|||||||
.MACRO SUM FROM=0, TO=9
|
|
||||||
; \FROM \TO
|
|
||||||
MOV R\FROM,R10
|
|
||||||
COUNT .ASSIGNA \FROM+1
|
|
||||||
.AWHILE \&COUNT LE \TO
|
|
||||||
MOV R\&COUNT,R10
|
|
||||||
COUNT .ASSIGNA \&COUNT+1
|
|
||||||
.AENDW
|
|
||||||
.ENDM
|
|
||||||
|
|
||||||
SUM 0,5
|
|
||||||
SUM TO=5
|
|
||||||
SUM FROM=2, TO=5
|
|
||||||
|
|
||||||
|
|
||||||
; hi this is a comment
|
|
||||||
.MACRO BACK_SLASH_SET
|
|
||||||
\(MOV #"\",R0)
|
|
||||||
.ENDM
|
|
||||||
BACK_SLASH_SET
|
|
||||||
.MACRO COMM
|
|
||||||
bar ; this comment will get copied out
|
|
||||||
foo \; this one will get dropped
|
|
||||||
.ENDM
|
|
||||||
COMM
|
|
||||||
BACK_SLASH_SET
|
|
||||||
.MACRO PLUS2
|
|
||||||
ADD #1,R\&V1
|
|
||||||
.SDATA "\&V'1"
|
|
||||||
.ENDM
|
|
||||||
V .ASSIGNC "R"
|
|
||||||
V1 .ASSIGNA 1
|
|
||||||
PLUS2
|
|
||||||
.MACRO PLUS1 P,P1
|
|
||||||
ADD #1,\P1
|
|
||||||
.SDATA "\P'1"
|
|
||||||
.ENDM
|
|
||||||
PLUS1 R,R1
|
|
||||||
|
|
||||||
.MACRO SUM P1
|
|
||||||
MOV R0,R10
|
|
||||||
ADD R1,R10
|
|
||||||
ADD R2,R10
|
|
||||||
\P1
|
|
||||||
ADD R3,R10
|
|
||||||
.ENDM
|
|
||||||
|
|
||||||
SUM .EXITM
|
|
||||||
|
|
||||||
.MACRO foo bar=a default=b
|
|
||||||
\bar
|
|
||||||
\default
|
|
||||||
bar
|
|
||||||
default
|
|
||||||
.ENDM
|
|
||||||
foo default=dog bar=cat
|
|
||||||
foo X Y
|
|
||||||
foo
|
|
||||||
foo bar=cat default=dog
|
|
||||||
|
|
||||||
|
|
||||||
.MACRO foo bar
|
|
||||||
HI
|
|
||||||
HI \bar
|
|
||||||
HI
|
|
||||||
.ENDM
|
|
||||||
|
|
||||||
foo 1
|
|
||||||
foo 123
|
|
||||||
foo 1 2 3 4
|
|
||||||
foo
|
|
||||||
|
|
||||||
|
|
||||||
.MACRO PUSH Rn
|
|
||||||
MOV.L \Rn,@-r15
|
|
||||||
.ENDM
|
|
||||||
PUSH R0
|
|
||||||
PUSH R1
|
|
||||||
|
|
||||||
|
|
||||||
.MACRO RES_STR STR, Rn
|
|
||||||
MOV.L #str\@,\Rn
|
|
||||||
BRA end_str\@
|
|
||||||
NOP
|
|
||||||
str\@ .SDATA "\STR"
|
|
||||||
.ALIGN 2
|
|
||||||
end_str\@
|
|
||||||
.ENDM
|
|
||||||
|
|
||||||
RES_STR "ONE",R0
|
|
||||||
RES_STR "TWO",R1
|
|
||||||
RES_STR "THREE",R2
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
RES_STR STR=donkey Rn=R1
|
|
||||||
RES_STR donkey,R1
|
|
||||||
RES_STR donkey Rn=R1
|
|
||||||
.END
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -1,382 +0,0 @@
|
|||||||
! .MACRO SUM FROM=0, TO=9
|
|
||||||
! ; \FROM \TO
|
|
||||||
! MOV R\FROM,R10
|
|
||||||
!COUNT .ASSIGNA \FROM+1
|
|
||||||
! .AWHILE \&COUNT LE \TO
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! .ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! SUM 0,5
|
|
||||||
! ; 0 5
|
|
||||||
; 0 5
|
|
||||||
! MOV R0,R10
|
|
||||||
MOV R0,R10
|
|
||||||
!COUNT .ASSIGNA 0+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R1,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R2,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R3,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R4,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R5,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! SUM TO=5
|
|
||||||
! ; 0 5
|
|
||||||
; 0 5
|
|
||||||
! MOV R0,R10
|
|
||||||
MOV R0,R10
|
|
||||||
!COUNT .ASSIGNA 0+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R1,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R2,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R3,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R4,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R5,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! SUM FROM=2, TO=5
|
|
||||||
! ; 2 5
|
|
||||||
; 2 5
|
|
||||||
! MOV R2,R10
|
|
||||||
MOV R2,R10
|
|
||||||
!COUNT .ASSIGNA 2+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R3,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R4,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
MOV R5,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AWHILE \&COUNT LE 5
|
|
||||||
! MOV R\&COUNT,R10
|
|
||||||
!COUNT .ASSIGNA \&COUNT+1
|
|
||||||
! .AENDW
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!; hi this is a comment
|
|
||||||
; hi this is a comment
|
|
||||||
! .MACRO BACK_SLASH_SET
|
|
||||||
! \(MOV #"\",R0)
|
|
||||||
! .ENDM
|
|
||||||
! BACK_SLASH_SET
|
|
||||||
! MOV #"\",R0
|
|
||||||
MOV #"\",R0
|
|
||||||
! .MACRO COMM
|
|
||||||
! bar ; this comment will get copied out
|
|
||||||
! foo \; this one will get dropped
|
|
||||||
! .ENDM
|
|
||||||
! COMM
|
|
||||||
! bar ; this comment will get copied out
|
|
||||||
bar ; this comment will get copied out
|
|
||||||
! foo \; this one will get dropped
|
|
||||||
foo \; this one will get dropped
|
|
||||||
! BACK_SLASH_SET
|
|
||||||
! MOV #"\",R0
|
|
||||||
MOV #"\",R0
|
|
||||||
! .MACRO PLUS2
|
|
||||||
! ADD #1,R\&V1
|
|
||||||
! .SDATA "\&V'1"
|
|
||||||
! .ENDM
|
|
||||||
!V .ASSIGNC "R"
|
|
||||||
!V1 .ASSIGNA 1
|
|
||||||
! PLUS2
|
|
||||||
! ADD #1,R\&V1
|
|
||||||
ADD #1,R1
|
|
||||||
! .SDATA "\&V'1"
|
|
||||||
.byte 82,49
|
|
||||||
! .MACRO PLUS1 P,P1
|
|
||||||
! ADD #1,\P1
|
|
||||||
! .SDATA "\P'1"
|
|
||||||
! .ENDM
|
|
||||||
! PLUS1 R,R1
|
|
||||||
! ADD #1,R1
|
|
||||||
ADD #1,R1
|
|
||||||
! .SDATA "R1"
|
|
||||||
.byte 82,49
|
|
||||||
!
|
|
||||||
|
|
||||||
! .MACRO SUM P1
|
|
||||||
! MOV R0,R10
|
|
||||||
! ADD R1,R10
|
|
||||||
! ADD R2,R10
|
|
||||||
! \P1
|
|
||||||
! ADD R3,R10
|
|
||||||
! .ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! SUM .EXITM
|
|
||||||
! MOV R0,R10
|
|
||||||
MOV R0,R10
|
|
||||||
! ADD R1,R10
|
|
||||||
ADD R1,R10
|
|
||||||
! ADD R2,R10
|
|
||||||
ADD R2,R10
|
|
||||||
! .EXITM
|
|
||||||
!
|
|
||||||
|
|
||||||
! .MACRO foo bar=a default=b
|
|
||||||
! \bar
|
|
||||||
! \default
|
|
||||||
! bar
|
|
||||||
! default
|
|
||||||
! .ENDM
|
|
||||||
! foo default=dog bar=cat
|
|
||||||
! cat
|
|
||||||
cat
|
|
||||||
! dog
|
|
||||||
dog
|
|
||||||
! bar
|
|
||||||
bar
|
|
||||||
! default
|
|
||||||
default
|
|
||||||
! foo X Y
|
|
||||||
! X
|
|
||||||
X
|
|
||||||
! Y
|
|
||||||
Y
|
|
||||||
! bar
|
|
||||||
bar
|
|
||||||
! default
|
|
||||||
default
|
|
||||||
! foo
|
|
||||||
! a
|
|
||||||
a
|
|
||||||
! b
|
|
||||||
b
|
|
||||||
! bar
|
|
||||||
bar
|
|
||||||
! default
|
|
||||||
default
|
|
||||||
! foo bar=cat default=dog
|
|
||||||
! cat
|
|
||||||
cat
|
|
||||||
! dog
|
|
||||||
dog
|
|
||||||
! bar
|
|
||||||
bar
|
|
||||||
! default
|
|
||||||
default
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! .MACRO foo bar
|
|
||||||
! HI
|
|
||||||
! HI \bar
|
|
||||||
! HI
|
|
||||||
! .ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! foo 1
|
|
||||||
! HI
|
|
||||||
HI
|
|
||||||
! HI 1
|
|
||||||
HI 1
|
|
||||||
! HI
|
|
||||||
HI
|
|
||||||
! foo 123
|
|
||||||
! HI
|
|
||||||
HI
|
|
||||||
! HI 123
|
|
||||||
HI 123
|
|
||||||
! HI
|
|
||||||
HI
|
|
||||||
! foo 1 2 3 4
|
|
||||||
! foo
|
|
||||||
! HI
|
|
||||||
HI
|
|
||||||
! HI
|
|
||||||
HI
|
|
||||||
! HI
|
|
||||||
HI
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
! .MACRO PUSH Rn
|
|
||||||
! MOV.L \Rn,@-r15
|
|
||||||
! .ENDM
|
|
||||||
! PUSH R0
|
|
||||||
! MOV.L R0,@-r15
|
|
||||||
MOV.L R0,@-r15
|
|
||||||
! PUSH R1
|
|
||||||
! MOV.L R1,@-r15
|
|
||||||
MOV.L R1,@-r15
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! .MACRO RES_STR STR, Rn
|
|
||||||
! MOV.L #str\@,\Rn
|
|
||||||
! BRA end_str\@
|
|
||||||
! NOP
|
|
||||||
!str\@ .SDATA "\STR"
|
|
||||||
! .ALIGN 2
|
|
||||||
!end_str\@
|
|
||||||
! .ENDM
|
|
||||||
!
|
|
||||||
! RES_STR "ONE",R0
|
|
||||||
! MOV.L #str18,R0
|
|
||||||
MOV.L #str18,R0
|
|
||||||
! BRA end_str18
|
|
||||||
BRA end_str18
|
|
||||||
! NOP
|
|
||||||
NOP
|
|
||||||
!str18 .SDATA "ONE"
|
|
||||||
str18: .byte 79,78,69
|
|
||||||
! .ALIGN 2
|
|
||||||
.align 2
|
|
||||||
!end_str18
|
|
||||||
end_str18:
|
|
||||||
! RES_STR "TWO",R1
|
|
||||||
! MOV.L #str19,R1
|
|
||||||
MOV.L #str19,R1
|
|
||||||
! BRA end_str19
|
|
||||||
BRA end_str19
|
|
||||||
! NOP
|
|
||||||
NOP
|
|
||||||
!str19 .SDATA "TWO"
|
|
||||||
str19: .byte 84,87,79
|
|
||||||
! .ALIGN 2
|
|
||||||
.align 2
|
|
||||||
!end_str19
|
|
||||||
end_str19:
|
|
||||||
! RES_STR "THREE",R2
|
|
||||||
! MOV.L #str20,R2
|
|
||||||
MOV.L #str20,R2
|
|
||||||
! BRA end_str20
|
|
||||||
BRA end_str20
|
|
||||||
! NOP
|
|
||||||
NOP
|
|
||||||
!str20 .SDATA "THREE"
|
|
||||||
str20: .byte 84,72,82,69,69
|
|
||||||
! .ALIGN 2
|
|
||||||
.align 2
|
|
||||||
!end_str20
|
|
||||||
end_str20:
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! RES_STR STR=donkey Rn=R1
|
|
||||||
! MOV.L #str21,R1
|
|
||||||
MOV.L #str21,R1
|
|
||||||
! BRA end_str21
|
|
||||||
BRA end_str21
|
|
||||||
! NOP
|
|
||||||
NOP
|
|
||||||
!str21 .SDATA "donkey"
|
|
||||||
str21: .byte 100,111,110,107,101,121
|
|
||||||
! .ALIGN 2
|
|
||||||
.align 2
|
|
||||||
!end_str21
|
|
||||||
end_str21:
|
|
||||||
! RES_STR donkey,R1
|
|
||||||
! MOV.L #str22,R1
|
|
||||||
MOV.L #str22,R1
|
|
||||||
! BRA end_str22
|
|
||||||
BRA end_str22
|
|
||||||
! NOP
|
|
||||||
NOP
|
|
||||||
!str22 .SDATA "donkey"
|
|
||||||
str22: .byte 100,111,110,107,101,121
|
|
||||||
! .ALIGN 2
|
|
||||||
.align 2
|
|
||||||
!end_str22
|
|
||||||
end_str22:
|
|
||||||
! RES_STR donkey Rn=R1
|
|
||||||
! MOV.L #str23,R1
|
|
||||||
MOV.L #str23,R1
|
|
||||||
! BRA end_str23
|
|
||||||
BRA end_str23
|
|
||||||
! NOP
|
|
||||||
NOP
|
|
||||||
!str23 .SDATA "donkey"
|
|
||||||
str23: .byte 100,111,110,107,101,121
|
|
||||||
! .ALIGN 2
|
|
||||||
.align 2
|
|
||||||
!end_str23
|
|
||||||
end_str23:
|
|
||||||
! .END
|
|
||||||
@ -1,47 +0,0 @@
|
|||||||
|
|
||||||
.MACRO HI
|
|
||||||
A
|
|
||||||
\! this is hidden
|
|
||||||
B
|
|
||||||
! this is not
|
|
||||||
C
|
|
||||||
.ENDM
|
|
||||||
Hello
|
|
||||||
HI
|
|
||||||
Emily
|
|
||||||
|
|
||||||
|
|
||||||
H'0f
|
|
||||||
200+H'0F
|
|
||||||
|
|
||||||
XX .ASSIGNA Q'100
|
|
||||||
! Definition:
|
|
||||||
.MACRO GET X=100,Y,Z
|
|
||||||
MOV #\X+H'0F,@B
|
|
||||||
\Y
|
|
||||||
\Z JMP @MAIN
|
|
||||||
L\@ ADD #1,@HL
|
|
||||||
MOV #0,@C \! Clear C
|
|
||||||
ADD #2,@C
|
|
||||||
ADD #\&XX, @C
|
|
||||||
.ENDM
|
|
||||||
|
|
||||||
NOP
|
|
||||||
|
|
||||||
!Call:
|
|
||||||
GET 200,"ADD #1,@B", ENTRY
|
|
||||||
.END
|
|
||||||
|
|
||||||
; Definition:
|
|
||||||
|
|
||||||
|
|
||||||
NOP
|
|
||||||
|
|
||||||
;Call:
|
|
||||||
MOV #200+0F,@B
|
|
||||||
ADD #1,@B
|
|
||||||
ENTRY: JMP @MAIN
|
|
||||||
L00000: ADD #1,@HL
|
|
||||||
MOV #0,@C
|
|
||||||
ADD #2,@C
|
|
||||||
ADD #0, @C
|
|
||||||
@ -1,68 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
! .MACRO HI
|
|
||||||
! A
|
|
||||||
! \! this is hidden
|
|
||||||
! B
|
|
||||||
! ! this is not
|
|
||||||
! C
|
|
||||||
! .ENDM
|
|
||||||
! Hello
|
|
||||||
Hello
|
|
||||||
! HI
|
|
||||||
! A
|
|
||||||
A
|
|
||||||
!
|
|
||||||
! B
|
|
||||||
B
|
|
||||||
! ! this is not
|
|
||||||
! this is not
|
|
||||||
! C
|
|
||||||
C
|
|
||||||
! Emily
|
|
||||||
Emily
|
|
||||||
!
|
|
||||||
!
|
|
||||||
|
|
||||||
! H'0f
|
|
||||||
15
|
|
||||||
! 200+H'0F
|
|
||||||
200+15
|
|
||||||
!
|
|
||||||
|
|
||||||
!XX .ASSIGNA Q'100
|
|
||||||
!! Definition:
|
|
||||||
! Definition:
|
|
||||||
! .MACRO GET X=100,Y,Z
|
|
||||||
! MOV #\X+H'0F,@B
|
|
||||||
! \Y
|
|
||||||
!\Z JMP @MAIN
|
|
||||||
!L\@ ADD #1,@HL
|
|
||||||
! MOV #0,@C \! Clear C
|
|
||||||
! ADD #2,@C
|
|
||||||
! ADD #\&XX, @C
|
|
||||||
! .ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! NOP
|
|
||||||
NOP
|
|
||||||
!
|
|
||||||
|
|
||||||
!!Call:
|
|
||||||
!Call:
|
|
||||||
! GET 200,"ADD #1,@B", ENTRY
|
|
||||||
! MOV #200+H'0F,@B
|
|
||||||
MOV #200+15,@B
|
|
||||||
! ADD #1,@B
|
|
||||||
ADD #1,@B
|
|
||||||
!ENTRY JMP @MAIN
|
|
||||||
ENTRY: JMP @MAIN
|
|
||||||
!L1 ADD #1,@HL
|
|
||||||
L1: ADD #1,@HL
|
|
||||||
! MOV #0,@C
|
|
||||||
MOV #0,@C
|
|
||||||
! ADD #2,@C
|
|
||||||
ADD #2,@C
|
|
||||||
! ADD #\&XX, @C
|
|
||||||
ADD #64, @C
|
|
||||||
! .END
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
embed macro label
|
|
||||||
addr&&label dc.l label
|
|
||||||
endm
|
|
||||||
|
|
||||||
embed foo
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
;embed macro label
|
|
||||||
;addr&&label dc.l label
|
|
||||||
; endm
|
|
||||||
;
|
|
||||||
|
|
||||||
; embed foo
|
|
||||||
;addrfoo dc.l foo
|
|
||||||
addrfoo: dc.l foo
|
|
||||||
;
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
exists macro arg1,arg2
|
|
||||||
ifne ==arg2
|
|
||||||
move arg1,arg2
|
|
||||||
elsec
|
|
||||||
push arg1
|
|
||||||
endc
|
|
||||||
endm
|
|
||||||
|
|
||||||
exists foo,bar
|
|
||||||
exists foo
|
|
||||||
@ -1,24 +0,0 @@
|
|||||||
;exists macro arg1,arg2
|
|
||||||
; ifne ==arg2
|
|
||||||
; move arg1,arg2
|
|
||||||
; elsec
|
|
||||||
; push arg1
|
|
||||||
; endc
|
|
||||||
; endm
|
|
||||||
;
|
|
||||||
|
|
||||||
; exists foo,bar
|
|
||||||
; ifne -1
|
|
||||||
; move foo,bar
|
|
||||||
move foo,bar
|
|
||||||
; elsec
|
|
||||||
; push foo
|
|
||||||
; endc
|
|
||||||
; exists foo
|
|
||||||
; ifne 0
|
|
||||||
; move foo,
|
|
||||||
; elsec
|
|
||||||
; push foo
|
|
||||||
push foo
|
|
||||||
; endc
|
|
||||||
;
|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
irp param,arg1,arg2,arg3
|
|
||||||
dc.l param
|
|
||||||
endr
|
|
||||||
end quit
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
; irp param,arg1,arg2,arg3
|
|
||||||
; dc.l param
|
|
||||||
; endr
|
|
||||||
dc.l arg1
|
|
||||||
dc.l arg2
|
|
||||||
dc.l arg3
|
|
||||||
; end quit
|
|
||||||
end quit
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
irpc dummy,1234
|
|
||||||
dc.l dummy
|
|
||||||
endr
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
; irpc dummy,1234
|
|
||||||
; dc.l dummy
|
|
||||||
; endr
|
|
||||||
dc.l 1
|
|
||||||
dc.l 2
|
|
||||||
dc.l 3
|
|
||||||
dc.l 4
|
|
||||||
;
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
get macro arg1,arg2,arg3
|
|
||||||
dc.l arg1
|
|
||||||
arg2
|
|
||||||
arg3 dc.l \4
|
|
||||||
move.\0 d0,d1
|
|
||||||
endm
|
|
||||||
|
|
||||||
get.b 1,<dc.l 2>,label,four
|
|
||||||
@ -1,18 +0,0 @@
|
|||||||
;get macro arg1,arg2,arg3
|
|
||||||
; dc.l arg1
|
|
||||||
; arg2
|
|
||||||
;arg3 dc.l \4
|
|
||||||
; move.\0 d0,d1
|
|
||||||
; endm
|
|
||||||
;
|
|
||||||
|
|
||||||
; get.b 1,<dc.l 2>,label,four
|
|
||||||
; dc.l 1
|
|
||||||
dc.l 1
|
|
||||||
; dc.l 2
|
|
||||||
dc.l 2
|
|
||||||
;label dc.l four
|
|
||||||
label: dc.l four
|
|
||||||
; move.b d0,d1
|
|
||||||
move.b d0,d1
|
|
||||||
;
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
loop macro arg1,arg2,arg3
|
|
||||||
dc.l NARG
|
|
||||||
ifne NARG
|
|
||||||
dc.l arg1
|
|
||||||
loop arg2,arg3
|
|
||||||
endc
|
|
||||||
endm
|
|
||||||
|
|
||||||
loop 1,2,3
|
|
||||||
@ -1,38 +0,0 @@
|
|||||||
;loop macro arg1,arg2,arg3
|
|
||||||
; dc.l NARG
|
|
||||||
; ifne NARG
|
|
||||||
; dc.l arg1
|
|
||||||
; loop arg2,arg3
|
|
||||||
; endc
|
|
||||||
; endm
|
|
||||||
;
|
|
||||||
|
|
||||||
; loop 1,2,3
|
|
||||||
; dc.l 3
|
|
||||||
dc.l 3
|
|
||||||
; ifne 3
|
|
||||||
; dc.l 1
|
|
||||||
dc.l 1
|
|
||||||
; loop 2,3
|
|
||||||
; dc.l 2
|
|
||||||
dc.l 2
|
|
||||||
; ifne 2
|
|
||||||
; dc.l 2
|
|
||||||
dc.l 2
|
|
||||||
; loop 3,
|
|
||||||
; dc.l 1
|
|
||||||
dc.l 1
|
|
||||||
; ifne 1
|
|
||||||
; dc.l 3
|
|
||||||
dc.l 3
|
|
||||||
; loop ,
|
|
||||||
; dc.l 0
|
|
||||||
dc.l 0
|
|
||||||
; ifne 0
|
|
||||||
; dc.l
|
|
||||||
; loop ,
|
|
||||||
; endc
|
|
||||||
; endc
|
|
||||||
; endc
|
|
||||||
; endc
|
|
||||||
;
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
rept 3
|
|
||||||
dc.l 1
|
|
||||||
endr
|
|
||||||
@ -1,16 +0,0 @@
|
|||||||
; rept 3
|
|
||||||
; dc.l 1
|
|
||||||
; endr
|
|
||||||
; dc.l 1
|
|
||||||
dc.l 1
|
|
||||||
; REPT 2
|
|
||||||
; dc.l 1
|
|
||||||
; ENDR
|
|
||||||
; dc.l 1
|
|
||||||
dc.l 1
|
|
||||||
; REPT 1
|
|
||||||
; dc.l 1
|
|
||||||
; ENDR
|
|
||||||
; dc.l 1
|
|
||||||
dc.l 1
|
|
||||||
;
|
|
||||||
@ -1,20 +0,0 @@
|
|||||||
|
|
||||||
.ALTERNATE
|
|
||||||
|
|
||||||
alloc MACRO val1,val2
|
|
||||||
DB val1
|
|
||||||
DB val2
|
|
||||||
ENDM
|
|
||||||
|
|
||||||
alloc "that's" 'show biz'
|
|
||||||
alloc 0,1
|
|
||||||
alloc 0 1
|
|
||||||
alloc 0 1
|
|
||||||
alloc ,1
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -1 +0,0 @@
|
|||||||
END missing from end of file.
|
|
||||||
@ -1,49 +0,0 @@
|
|||||||
!
|
|
||||||
! .ALTERNATE
|
|
||||||
!
|
|
||||||
|
|
||||||
!alloc MACRO val1,val2
|
|
||||||
! DB val1
|
|
||||||
! DB val2
|
|
||||||
! ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! alloc "that's" 'show biz'
|
|
||||||
! DB "that's"
|
|
||||||
.byte 116,104,97,116,39,115
|
|
||||||
! DB "show biz"
|
|
||||||
.byte 115,104,111,119,32,98,105,122
|
|
||||||
! alloc 0,1
|
|
||||||
! DB 0
|
|
||||||
.byte 0
|
|
||||||
! DB 1
|
|
||||||
.byte 1
|
|
||||||
! alloc 0 1
|
|
||||||
! DB 0
|
|
||||||
.byte 0
|
|
||||||
! DB 1
|
|
||||||
.byte 1
|
|
||||||
! alloc 0 1
|
|
||||||
! DB 0
|
|
||||||
.byte 0
|
|
||||||
! DB 1
|
|
||||||
.byte 1
|
|
||||||
! alloc ,1
|
|
||||||
! DB
|
|
||||||
.byte
|
|
||||||
! DB 1
|
|
||||||
.byte 1
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
@ -1,28 +0,0 @@
|
|||||||
|
|
||||||
|
|
||||||
.ALTERNATE
|
|
||||||
|
|
||||||
! ok
|
|
||||||
!! also ok
|
|
||||||
|
|
||||||
foo MACRO
|
|
||||||
! you can see me
|
|
||||||
!! but not me
|
|
||||||
! you can see me
|
|
||||||
!! but not me
|
|
||||||
but this "SHOULD !!BE OK"
|
|
||||||
ENDM
|
|
||||||
|
|
||||||
foo
|
|
||||||
|
|
||||||
|
|
||||||
define MACRO val1,val2
|
|
||||||
DB val1 ! this comment will show up
|
|
||||||
DB val2 !! this on won't
|
|
||||||
ENDM
|
|
||||||
|
|
||||||
define 0,1
|
|
||||||
|
|
||||||
|
|
||||||
END
|
|
||||||
|
|
||||||
@ -1,51 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! .ALTERNATE
|
|
||||||
!
|
|
||||||
|
|
||||||
! ! ok
|
|
||||||
! ok
|
|
||||||
! !! also ok
|
|
||||||
!! also ok
|
|
||||||
!
|
|
||||||
|
|
||||||
!foo MACRO
|
|
||||||
! ! you can see me
|
|
||||||
! !! but not me
|
|
||||||
! ! you can see me
|
|
||||||
! !! but not me
|
|
||||||
! but this "SHOULD !!BE OK"
|
|
||||||
! ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! foo
|
|
||||||
! ! you can see me
|
|
||||||
! you can see me
|
|
||||||
!
|
|
||||||
! ! you can see me
|
|
||||||
! you can see me
|
|
||||||
!
|
|
||||||
! but this "SHOULD !!BE OK"
|
|
||||||
but this "SHOULD !!BE OK"
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!define MACRO val1,val2
|
|
||||||
! DB val1 ! this comment will show up
|
|
||||||
! DB val2 !! this on won't
|
|
||||||
! ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! define 0,1
|
|
||||||
! DB 0 ! this comment will show up
|
|
||||||
.byte 0! this comment will show up
|
|
||||||
! DB 1
|
|
||||||
.byte 1
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! END
|
|
||||||
@ -1,30 +0,0 @@
|
|||||||
.ALTERNATE
|
|
||||||
|
|
||||||
foo MACRO string
|
|
||||||
LOCAL lab1, lab2
|
|
||||||
lab1: DATA.L lab2
|
|
||||||
lab2: SDATA string
|
|
||||||
ENDM
|
|
||||||
|
|
||||||
foo "An example"
|
|
||||||
foo "using LOCAL"
|
|
||||||
|
|
||||||
! test of LOCAL directive
|
|
||||||
|
|
||||||
chk_err MACRO limit
|
|
||||||
LOCAL skip !! frob
|
|
||||||
LOCAL zap,dog,barf
|
|
||||||
barf: cmp ax,limit !! check value against
|
|
||||||
!! limit
|
|
||||||
jle skip !! skip call if OK
|
|
||||||
skip: call error
|
|
||||||
foo dog
|
|
||||||
zap dog
|
|
||||||
nop
|
|
||||||
ENDM
|
|
||||||
|
|
||||||
chk_err 5
|
|
||||||
chk_err 10
|
|
||||||
|
|
||||||
|
|
||||||
END
|
|
||||||
@ -1,86 +0,0 @@
|
|||||||
! .ALTERNATE
|
|
||||||
!
|
|
||||||
|
|
||||||
!foo MACRO string
|
|
||||||
! LOCAL lab1, lab2
|
|
||||||
!lab1: DATA.L lab2
|
|
||||||
!lab2: SDATA string
|
|
||||||
! ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! foo "An example"
|
|
||||||
!
|
|
||||||
!LL0001: DATA.L LL0002
|
|
||||||
LL0001: .long LL0002
|
|
||||||
!LL0002: SDATA "An example"
|
|
||||||
LL0002: .byte 65,110,32,101,120,97,109,112,108,101
|
|
||||||
! foo "using LOCAL"
|
|
||||||
!
|
|
||||||
!LL0003: DATA.L LL0004
|
|
||||||
LL0003: .long LL0004
|
|
||||||
!LL0004: SDATA "using LOCAL"
|
|
||||||
LL0004: .byte 117,115,105,110,103,32,76,79,67,65,76
|
|
||||||
!
|
|
||||||
|
|
||||||
!! test of LOCAL directive
|
|
||||||
! test of LOCAL directive
|
|
||||||
!
|
|
||||||
|
|
||||||
!chk_err MACRO limit
|
|
||||||
! LOCAL skip !! frob
|
|
||||||
! LOCAL zap,dog,barf
|
|
||||||
!barf: cmp ax,limit !! check value against
|
|
||||||
! !! limit
|
|
||||||
! jle skip !! skip call if OK
|
|
||||||
!skip: call error
|
|
||||||
! foo dog
|
|
||||||
! zap dog
|
|
||||||
! nop
|
|
||||||
! ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! chk_err 5
|
|
||||||
!
|
|
||||||
!
|
|
||||||
!LL0008: cmp ax,5
|
|
||||||
LL0008: cmp ax,5
|
|
||||||
!
|
|
||||||
! jle LL0005
|
|
||||||
jle LL0005
|
|
||||||
!LL0005: call error
|
|
||||||
LL0005: call error
|
|
||||||
! foo LL0007
|
|
||||||
!
|
|
||||||
!LL0009: DATA.L LL000a
|
|
||||||
LL0009: .long LL000a
|
|
||||||
!LL000a: SDATA LL0007
|
|
||||||
LL000a: .byte 76,76,48,48,48,55
|
|
||||||
! LL0006 LL0007
|
|
||||||
LL0006 LL0007
|
|
||||||
! nop
|
|
||||||
nop
|
|
||||||
! chk_err 10
|
|
||||||
!
|
|
||||||
!
|
|
||||||
!LL000e: cmp ax,10
|
|
||||||
LL000e: cmp ax,10
|
|
||||||
!
|
|
||||||
! jle LL000b
|
|
||||||
jle LL000b
|
|
||||||
!LL000b: call error
|
|
||||||
LL000b: call error
|
|
||||||
! foo LL000d
|
|
||||||
!
|
|
||||||
!LL000f: DATA.L LL0010
|
|
||||||
LL000f: .long LL0010
|
|
||||||
!LL0010: SDATA LL000d
|
|
||||||
LL0010: .byte 76,76,48,48,48,100
|
|
||||||
! LL000c LL000d
|
|
||||||
LL000c LL000d
|
|
||||||
! nop
|
|
||||||
nop
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! END
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
.ALTERNATE
|
|
||||||
! test of macro substitution around &s
|
|
||||||
|
|
||||||
|
|
||||||
foo MACRO a,b
|
|
||||||
x&a&b
|
|
||||||
ENDM
|
|
||||||
|
|
||||||
foo 3 2
|
|
||||||
END
|
|
||||||
@ -1,16 +0,0 @@
|
|||||||
! .ALTERNATE
|
|
||||||
!! test of macro substitution around &s
|
|
||||||
! test of macro substitution around &s
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!foo MACRO a,b
|
|
||||||
! x&a&b
|
|
||||||
! ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! foo 3 2
|
|
||||||
! x32
|
|
||||||
x32
|
|
||||||
! END
|
|
||||||
@ -1,15 +0,0 @@
|
|||||||
! test of literal text operator
|
|
||||||
.ALTERNATE
|
|
||||||
foop MACRO str1,str2
|
|
||||||
SDATA "str1"
|
|
||||||
SDATA str2
|
|
||||||
ENDM
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
foop this< is a <string> with angle brackets>
|
|
||||||
foop this< is a string with spaces>
|
|
||||||
foop this < is a string with a !>>
|
|
||||||
|
|
||||||
|
|
||||||
END
|
|
||||||
@ -1,32 +0,0 @@
|
|||||||
!! test of literal text operator
|
|
||||||
! test of literal text operator
|
|
||||||
! .ALTERNATE
|
|
||||||
!foop MACRO str1,str2
|
|
||||||
! SDATA "str1"
|
|
||||||
! SDATA str2
|
|
||||||
! ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
! foop this< is a <string> with angle brackets>
|
|
||||||
! SDATA "this"
|
|
||||||
.byte 116,104,105,115
|
|
||||||
! SDATA " is a <string> with angle brackets"
|
|
||||||
.byte 32,105,115,32,97,32,60,115,116,114,105,110,103,62,32,119,105,116,104,32,97,110,103,108,101,32,98,114,97,99,107,101,116,115
|
|
||||||
! foop this< is a string with spaces>
|
|
||||||
! SDATA "this"
|
|
||||||
.byte 116,104,105,115
|
|
||||||
! SDATA " is a string with spaces"
|
|
||||||
.byte 32,105,115,32,97,32,115,116,114,105,110,103,32,119,105,116,104,32,115,112,97,99,101,115
|
|
||||||
! foop this < is a string with a !>>
|
|
||||||
! SDATA "this"
|
|
||||||
.byte 116,104,105,115
|
|
||||||
! SDATA " is a string with a >"
|
|
||||||
.byte 32,105,115,32,97,32,115,116,114,105,110,103,32,119,105,116,104,32,97,32,62
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! END
|
|
||||||
@ -1,21 +0,0 @@
|
|||||||
.ALTERNATE
|
|
||||||
! test of expression operator
|
|
||||||
define MACRO val, string
|
|
||||||
SDATA val
|
|
||||||
SDATA string
|
|
||||||
ENDM
|
|
||||||
define "1","99%of100" ! notice % within string
|
|
||||||
define %1 + 2, "=3"
|
|
||||||
|
|
||||||
|
|
||||||
define % 1 + 2 %3+4
|
|
||||||
|
|
||||||
define %3*4-2 <=10>
|
|
||||||
|
|
||||||
define %3*4-2 5
|
|
||||||
|
|
||||||
define %1 + 2,<is equal to %1 + 2, right?>
|
|
||||||
|
|
||||||
! has no effect
|
|
||||||
|
|
||||||
end
|
|
||||||
@ -1,54 +0,0 @@
|
|||||||
! .ALTERNATE
|
|
||||||
!! test of expression operator
|
|
||||||
! test of expression operator
|
|
||||||
!define MACRO val, string
|
|
||||||
! SDATA val
|
|
||||||
! SDATA string
|
|
||||||
! ENDM
|
|
||||||
! define "1","99%of100" ! notice % within string
|
|
||||||
! SDATA "1"
|
|
||||||
.byte 49
|
|
||||||
! SDATA "99%of100"
|
|
||||||
.byte 57,57,37,111,102,49,48,48
|
|
||||||
! define %1 + 2, "=3"
|
|
||||||
! SDATA 3
|
|
||||||
.byte 51
|
|
||||||
! SDATA "=3"
|
|
||||||
.byte 61,51
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! define % 1 + 2 %3+4
|
|
||||||
! SDATA 3
|
|
||||||
.byte 51
|
|
||||||
! SDATA 7
|
|
||||||
.byte 55
|
|
||||||
!
|
|
||||||
|
|
||||||
! define %3*4-2 <=10>
|
|
||||||
! SDATA 10
|
|
||||||
.byte 49,48
|
|
||||||
! SDATA "=10"
|
|
||||||
.byte 61,49,48
|
|
||||||
!
|
|
||||||
|
|
||||||
! define %3*4-2 5
|
|
||||||
! SDATA 10
|
|
||||||
.byte 49,48
|
|
||||||
! SDATA 5
|
|
||||||
.byte 53
|
|
||||||
!
|
|
||||||
|
|
||||||
! define %1 + 2,<is equal to %1 + 2, right?>
|
|
||||||
! SDATA 3
|
|
||||||
.byte 51
|
|
||||||
! SDATA "is equal to %1 + 2, right?"
|
|
||||||
.byte 105,115,32,101,113,117,97,108,32,116,111,32,37,49,32,43,32,50,44,32,114,105,103,104,116,63
|
|
||||||
!
|
|
||||||
|
|
||||||
! ! has no effect
|
|
||||||
! has no effect
|
|
||||||
!
|
|
||||||
|
|
||||||
! end
|
|
||||||
@ -1,12 +0,0 @@
|
|||||||
.ALTERNATE
|
|
||||||
! test of string operators
|
|
||||||
define MACRO str1,str2
|
|
||||||
SDATA str1
|
|
||||||
SDATA "str2"
|
|
||||||
ENDM
|
|
||||||
define one" way to get "spaces,0
|
|
||||||
define "lot's! of <special>,chars%", 0
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -1 +0,0 @@
|
|||||||
END missing from end of file.
|
|
||||||
@ -1,26 +0,0 @@
|
|||||||
! .ALTERNATE
|
|
||||||
!! test of string operators
|
|
||||||
! test of string operators
|
|
||||||
!define MACRO str1,str2
|
|
||||||
! SDATA str1
|
|
||||||
! SDATA "str2"
|
|
||||||
!ENDM
|
|
||||||
! define one" way to get "spaces,0
|
|
||||||
! SDATA one" way to get "spaces
|
|
||||||
.byte 111,110,101,34,32,119,97,121,32,116,111,32,103,101,116,32,34,115,112,97,99,101,115
|
|
||||||
! SDATA "0"
|
|
||||||
.byte 48
|
|
||||||
! define "lot's! of <special>,chars%", 0
|
|
||||||
! SDATA "lot's of <special>,chars%"
|
|
||||||
.byte 108,111,116,39,115,32,111,102,32,60,115,112,101,99,105,97,108,62,44,99,104,97,114,115,37
|
|
||||||
! SDATA "0"
|
|
||||||
.byte 48
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
@ -1,18 +0,0 @@
|
|||||||
|
|
||||||
.ALTERNATE
|
|
||||||
SDATA %1+2+3
|
|
||||||
SDATA "5"
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
MACRO foo
|
|
||||||
SDATA "HI" !! this will go
|
|
||||||
SDATA "THERE ! this will stay
|
|
||||||
ENDM
|
|
||||||
|
|
||||||
foo
|
|
||||||
|
|
||||||
|
|
||||||
SDATA <!<this is <a wacky> example!>!!>
|
|
||||||
SDATA "<this is <a wacky> example>!"
|
|
||||||
END
|
|
||||||
@ -1,33 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
! .ALTERNATE
|
|
||||||
! SDATA %1+2+3
|
|
||||||
.byte 37,49,43,50,43,51,32
|
|
||||||
! SDATA "5"
|
|
||||||
.byte 53
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! MACRO foo
|
|
||||||
! SDATA "HI" !! this will go
|
|
||||||
! SDATA "THERE ! this will stay
|
|
||||||
! ENDM
|
|
||||||
!
|
|
||||||
|
|
||||||
! foo
|
|
||||||
! SDATA "HI"
|
|
||||||
.byte 72,73
|
|
||||||
! SDATA "THERE ! this will stay
|
|
||||||
.byte 84,72,69,82,69,9,32,116,104,105,115,32,119,105,108,108,32,115,116,97,121
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
! SDATA <!<this is <a wacky> example!>!!>
|
|
||||||
.byte 60,116,104,105,115,32,105,115,32,60,97,32,119,97,99,107,121,62,32,101,120,97,109,112,108,101,62,33
|
|
||||||
! SDATA "<this is <a wacky> example>!"
|
|
||||||
.byte 60,116,104,105,115,32,105,115,32,60,97,32,119,97,99,107,121,62,32,101,120,97,109,112,108,101,62,34
|
|
||||||
! END
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
|
|
||||||
.sdata "v1.0000"
|
|
||||||
.end
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
! .sdata "v1.0000"
|
|
||||||
.byte 118,49,46,48,48,48,48
|
|
||||||
! .end
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
|
|
||||||
|
|
||||||
foo .REG (r1)
|
|
||||||
add foo,foo
|
|
||||||
|
|
||||||
bar .reg (r2)
|
|
||||||
add bar,foo
|
|
||||||
|
|
||||||
.END
|
|
||||||
@ -1,15 +0,0 @@
|
|||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
|
|
||||||
!foo .REG (r1)
|
|
||||||
! add foo,foo
|
|
||||||
add r1,r1
|
|
||||||
!
|
|
||||||
|
|
||||||
!bar .reg (r2)
|
|
||||||
! add bar,foo
|
|
||||||
add r2,r1
|
|
||||||
!
|
|
||||||
|
|
||||||
! .END
|
|
||||||
@ -1,13 +0,0 @@
|
|||||||
.AREPEAT 5
|
|
||||||
FIVE
|
|
||||||
.AREPEAT 2
|
|
||||||
TWO
|
|
||||||
.AENDR
|
|
||||||
.AREPEAT 3
|
|
||||||
THREE
|
|
||||||
.AREPEAT 2
|
|
||||||
TWO
|
|
||||||
.AENDR
|
|
||||||
.AENDR
|
|
||||||
.AENDR
|
|
||||||
.END
|
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user