remove unused version of ncr53cxxx.c

ok deraadt@ miod@

1 files changed, 0 insertions, 1165 deletions

diff --git a/sys/dev/microcode/ncr53cxxx/ncr53cxxx.c b/sys/dev/microcode/ncr53cxxx/ncr53cxxx.c
deleted file mode 100644
index 0926a84ff85..00000000000
--- a/sys/dev/microcode/ncr53cxxx/ncr53cxxx.c
+++ /dev/null
@@ -1,1165 +0,0 @@
-/*	$OpenBSD: ncr53cxxx.c,v 1.4 2003/04/06 18:54:20 ho Exp $	*/
-
-/*
- * Copyright (c) 1995 Michael L. Hitch
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- *    notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- *    notice, this list of conditions and the following disclaimer in the
- *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *      This product includes software developed by Michael L. Hitch.
- * 4. The name of the author may not be used to endorse or promote products
- *    derived from this software without specific prior written permission
- *
- * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
- * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
- * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
- * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
- * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
- * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
- * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
- * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
- * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-
-/*	scc.c	- SCSI SCRIPTS Compiler		*/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-#ifndef AMIGA
-#define strcmpi	strcasecmp
-#endif
-
-#define	MAXTOKENS	16
-#define	MAXINST		1024
-#define	MAXSYMBOLS	128
-
-struct {
-	long	type;
-	char	*name;
-} tokens[MAXTOKENS];
-int	ntokens;
-int	tokenix;
-
-void	f_proc (void);
-void	f_pass (void);
-void	f_list (void);		/* ENTRY, EXTERNAL label list */
-void	f_define (void);	/* ABSOLUTE, RELATIVE label list */
-void	f_move (void);
-void	f_jump (void);
-void	f_call (void);
-void	f_return (void);
-void	f_int (void);
-void	f_select (void);
-void	f_reselect (void);
-void	f_wait (void);
-void	f_disconnect (void);
-void	f_set (void);
-void	f_clear (void);
-void	f_arch (void);
-
-struct {
-	char	*name;
-	void	(*func)(void);
-} directives[] = {
-	"PROC",		f_proc,
-	"PASS",		f_pass,
-	"ENTRY",	f_list,
-	"ABSOLUTE",	f_define,
-	"EXTERN",	f_list,
-	"EXTERNAL",	f_list,
-	"RELATIVE",	f_define,
-	"MOVE",		f_move,
-	"JUMP",		f_jump,
-	"CALL",		f_call,
-	"RETURN",	f_return,
-	"INT",		f_int,
-	"SELECT",	f_select,
-	"RESELECT",	f_reselect,
-	"WAIT",		f_wait,
-	"DISCONNECT",	f_disconnect,
-	"SET",		f_set,
-	"CLEAR",	f_clear,
-	"ARCH",		f_arch,
-	NULL};
-
-unsigned long script[MAXINST];
-int	dsps;
-char	*script_name = "SCRIPT";
-unsigned long	inst0, inst1, inst2;
-unsigned long	ninsts;
-unsigned long	npatches;
-
-struct patchlist {
-	struct patchlist *next;
-	unsigned	offset;
-};
-
-#define	S_LABEL		0x0000
-#define	S_ABSOLUTE	0x0001
-#define	S_RELATIVE	0x0002
-#define	S_EXTERNAL	0x0003
-#define	F_DEFINED	0x0001
-#define	F_ENTRY		0x0002
-struct {
-	short	type;
-	short	flags;
-	unsigned long value;
-	struct patchlist *patchlist;
-	char	*name;
-} symbols[MAXSYMBOLS];
-int nsymbols;
-
-char	*stypes[] = {"Label", "Absolute", "Relative", "External"};
-
-char	*phases[] = {
-	"data_out", "data_in", "cmd", "status",
-	"res4", "res5", "msg_out", "msg_in"
-};
-
-char	*regs710[] = {
-	"scntl0",	"scntl1",	"sdid",		"sien",
-	"scid",		"sxfer",	"sodl",		"socl",
-	"sfbr",		"sidl",		"sbdl",		"sbcl",
-	"dstat",	"sstat0",	"sstat1",	"sstat2",
-	"dsa0",		"dsa1",		"dsa2",		"dsa3",
-	"ctest0",	"ctest1",	"ctest2",	"ctest3",
-	"ctest4",	"ctest5",	"ctest6",	"ctest7",
-	"temp0",	"temp1",	"temp2",	"temp3",
-	"dfifo",	"istat",	"ctest8",	"lcrc",
-	"dbc0",		"dbc1",		"dbc2",		"dcmd",
-	"dnad0",	"dnad1",	"dnad2",	"dnad3",
-	"dsp0",		"dsp1",		"dsp2",		"dsp3",
-	"dsps0",	"dsps1",	"dsps2",	"dsps3",
-	"scratch0",	"scratch1",	"scratch2",	"scratch3",
-	"dmode",	"dien",		"dwt",		"dcntl",
-	"addr0",	"addr1",	"addr2",	"addr3"
-};
-
-char	*regs720[] = {
-	"scntl0",	"scntl1",	"scntl2",	"scntl3",
-	"scid",		"sxfer",	"sdid",		"gpreg",
-	"sfbr",		"socl",		"ssid",		"sbcl",
-	"dstat",	"sstat0",	"sstat1",	"sstat2",
-	"dsa0",		"dsa1",		"dsa2",		"dsa3",
-	"istat",	"",		"",		"",
-	"ctest0",	"ctest1",	"ctest2",	"ctest3",
-	"temp0",	"temp1",	"temp2",	"temp3",
-	"dfifo",	"ctest4",	"ctest5",	"ctest6",
-	"dbc0",		"dbc1",		"dbc2",		"dcmd",
-	"dnad0",	"dnad1",	"dnad2",	"dnad3",
-	"dsp0",		"dsp1",		"dsp2",		"dsp3",
-	"dsps0",	"dsps1",	"dsps2",	"dsps3",
-	"scratcha0",	"scratcha1",	"scratcha2",	"scratcha3",
-	"dmode",	"dien",		"dwt",		"dcntl",
-	"addr0",	"addr1",	"addr2",	"addr3",
-	"sien0",	"sien1",	"sist0",	"sist1",
-	"slpar",	"swide",	"macntl",	"gpcntl",
-	"stime0",	"stime1",	"respid0",	"respid1",
-	"stest0",	"stest1",	"stest2",	"stest3",
-	"sidl0",	"sidl1",	"",		"",
-	"sodl0",	"sodl1",	"",		"",
-	"sbdl0",	"sbdl1",	"",		"",
-	"scratchb0",	"scratchb1",	"scratchb2",	"scratchb3",
-};
-
-int	lineno;
-int	err_listed;
-int	arch;
-
-char	inbuf[128];
-
-char	*sourcefile;
-char	*outputfile;
-char	*listfile;
-char	*errorfile;
-
-FILE	*infp;
-FILE	*outfp;
-FILE	*listfp;
-FILE	*errfp;
-
-void	parse (void);
-void	process (void);
-void	emit_symbols (void);
-void	list_symbols (void);
-void	errout (char *);
-void	define_symbol (char *, unsigned long, short, short);
-void	close_script (void);
-void	new_script (char *);
-void	store_inst (void);
-int	expression (int *);
-int	evaluate (int);
-int	number (char *);
-int	lookup (char *);
-int	reserved (char *, int);
-int	CheckPhase (int);
-int	CheckRegister (int);
-void	transfer (int, int);
-void	select_reselect (int);
-void	set_clear (unsigned long);
-void	block_move (void);
-void	register_write (void);
-void	memory_to_memory (void);
-void	error_line(void);
-char	*makefn(char *, char *);
-void	usage(void);
-
-main (int argc, char *argv[])
-{
-	int	i;
-
-	if (argc < 2 || argv[1][0] == '-')
-		usage();
-	sourcefile = argv[1];
-	infp = fopen (sourcefile, "r");
-	if (infp == NULL) {
-		perror ("open source");
-		fprintf (stderr, "scc: error opening source file %s\n", argv[1]);
-		exit (1);
-	}
-	/*
-	 * process options
-	 * -l [listfile]
-	 * -o [outputfile]
-	 * -z [debugfile]
-	 * -e [errorfile]
-	 * -a arch
-	 * -v
-	 * -u
-	 */
-	for (i = 2; i < argc; ++i) {
-		if (argv[i][0] != '-')
-			usage();
-		switch (argv[i][1]) {
-		case 'o':
-			if (i + 1 >= argc || argv[i + 1][0] == '-')
-				outputfile = makefn (sourcefile, "out");
-			else {
-				outputfile = argv[i + 1];
-				++i;
-			}
-			break;
-		case 'l':
-			if (i + 1 >= argc || argv[i + 1][0] == '-')
-				listfile = makefn (sourcefile, "lis");
-			else {
-				listfile = argv[i + 1];
-				++i;
-			}
-			break;
-		case 'e':
-			if (i + 1 >= argc || argv[i + 1][0] == '-')
-				errorfile = makefn (sourcefile, "err");
-			else {
-				errorfile = argv[i + 1];
-				++i;
-			}
-			break;
-		case 'a':
-			if (i + 1 == argc)
-				usage();
-			arch = 0;
-			arch = atoi(argv[i +1]);
-			if(arch != 720 && arch != 710) {
-				fprintf(stderr,"%s: bad arch '%s'\n",
-					argv[0], argv[i +1]);
-				exit(1);
-			}
-			++i;
-			break;
-		default:
-			fprintf (stderr, "scc: unrecognized option '%c'\n",
-			    argv[i][1]);
-			usage();
-		}
-	}
-	if (outputfile)
-		outfp = fopen (outputfile, "w");
-	if (listfile)
-		listfp = fopen (listfile, "w");
-	if (errorfile)
-		errfp = fopen (errorfile, "w");
-	else
-		errfp = stderr;
-
-	while (fgets (inbuf, sizeof (inbuf), infp)) {
-		++lineno;
-		if (listfp)
-			fprintf (listfp, "%3d:  %s", lineno, inbuf);
-		err_listed = 0;
-		parse ();
-		if (ntokens) {
-#ifdef DUMP_TOKENS
-			int	i;
-
-			fprintf (listfp, "      %d tokens\n", ntokens);
-			for (i = 0; i < ntokens; ++i) {
-				fprintf (listfp, "      %d: ", i);
-				if (tokens[i].type)
-					fprintf (listfp,"'%c'\n", tokens[i].type);
-				else
-					fprintf (listfp, "%s\n", tokens[i].name);
-			}
-#endif
-			if (ntokens >= 2 && tokens[0].type == 0 &&
-			    tokens[1].type == ':') {
-			    	define_symbol (tokens[0].name, dsps, S_LABEL, F_DEFINED);
-				tokenix += 2;
-			}
-			if (tokenix < ntokens)
-				process ();
-		}
-
-	}
-	close_script ();
-	emit_symbols ();
-	if (outfp) {
-		fprintf (outfp, "\nunsigned long INSTRUCTIONS = 0x%08x;\n", ninsts);
-		fprintf (outfp, "unsigned long PATCHES = 0x%08x;\n", npatches);
-	}
-	list_symbols ();
-}
-
-void emit_symbols ()
-{
-	int	i;
-	struct	patchlist *p;
-
-	if (nsymbols == 0 || outfp == NULL)
-		return;
-
-	for (i = 0; i < nsymbols; ++i) {
-		char	*code;
-		if (symbols[i].type == S_ABSOLUTE)
-			code = "A_";
-		else if (symbols[i].type == S_RELATIVE)
-			code = "R_";
-		else if (symbols[i].type == S_EXTERNAL)
-			code = "E_";
-		else if (symbols[i].flags & F_ENTRY)
-			code = "Ent_";
-		else
-			continue;
-		fprintf (outfp, "#define\t%s%s\t0x%08x\n", code, symbols[i].name,
-			symbols[i].value);
-		if (symbols[i].flags & F_ENTRY || symbols[i].patchlist == NULL)
-			continue;
-		fprintf (outfp, "unsigned long %s%s_Used[] = {\n", code, symbols[i].name);
-#if 1
-		p = symbols[i].patchlist;
-		while (p) {
-			fprintf (outfp, "\t%08x,\n", p->offset / 4);
-			p = p->next;
-		}
-#endif
-		fprintf (outfp, "};\n\n");
-	}
-	/* patches ? */
-}
-
-void list_symbols ()
-{
-	int	i;
-
-	if (nsymbols == 0 || listfp == NULL)
-		return;
-	fprintf (listfp, "\n\nValue     Type     Symbol\n");
-	for (i = 0; i < nsymbols; ++i) {
-		fprintf (listfp, "%08x: %-8s %s\n", symbols[i].value,
-			stypes[symbols[i].type], symbols[i].name);
-	}
-}
-
-void errout (char *text)
-{
-	error_line();
-	fprintf (errfp, "*** %s ***\n", text);
-}
-
-void parse ()
-{
-	char *p = inbuf;
-	char c;
-	char string[64];
-	char *s;
-	size_t len; 
-
-	ntokens = tokenix = 0;
-	while (1) {
-		while ((c = *p++) && c != '\n' && c <= ' ' || c == '\t')
-			;
-		if (c == '\n' || c == 0 || c == ';')
-			break;
-		if (ntokens >= MAXTOKENS) {
-			errout ("Token table full");
-			break;
-		}
-		if ((c >= '0' && c <= '9') || (c >= 'a' && c <= 'z') ||
-		    (c >= 'A' && c <= 'Z') || c == '$' || c == '_') {
-		    	s = string;
-		    	*s++ = c;
-		    	while (((c = *p) >= '0' && c <= '9') ||
-		    	    (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') ||
-		    	    c == '_' || c == '$') {
-		    	    	*s++ = *p++;
-		    	}
-		    	*s = 0;
-			len = strlen (string) + 1; 
-		    	tokens[ntokens].name = malloc (len);
-		    	strlcpy (tokens[ntokens].name, string, len);
-		    	tokens[ntokens].type = 0;
-		}
-		else {
-			tokens[ntokens].type = c;
-		}
-		++ntokens;
-	}
-	return;
-}
-
-void	process ()
-{
-	int	i;
-
-	if (tokens[tokenix].type) {
-		error_line();
-		fprintf (errfp, "Error: expected directive, found '%c'\n",
-			tokens[tokenix].type);
-		return;
-	}
-	for (i = 0; directives[i].name; ++i) {
-		if (strcmpi (directives[i].name, tokens[tokenix].name) == 0)
-			break;
-	}
-	if (directives[i].name == NULL) {
-		error_line();
-		fprintf (errfp, "Error: expected directive, found \"%s\"\n",
-			tokens[tokenix].name);
-		return;
-	}
-	if (directives[i].func == NULL) {
-		error_line();
-		fprintf (errfp, "No function for directive \"%s\"\n", tokens[tokenix].name);
-	} else {
-#if 0
-		fprintf (listfp, "Processing directive \"%s\"\n", directives[i].name);
-#endif
-		++tokenix;
-		(*directives[i].func) ();
-	}
-}
-
-void define_symbol (char *name, unsigned long value, short type, short flags)
-{
-	int	i;
-	struct patchlist *p;
-	size_t	len;
-
-	for (i = 0; i < nsymbols; ++i) {
-		if (symbols[i].type == type && strcmp (symbols[i].name, name) == 0) {
-			if (symbols[i].flags & F_DEFINED) {
-				error_line();
-				fprintf (errfp, "*** Symbol \"%s\" multiply defined\n",
-					name);
-			} else {
-				symbols[i].flags |= flags;
-				symbols[i].value = value;
-				p = symbols[i].patchlist;
-				while (p) {
-					if (p->offset > dsps)
-						errout ("Whoops\007");
-					else
-						script[p->offset / 4] = dsps - p->offset - 4;
-					p = p->next;
-				}
-			}
-			return;
-		}
-	}
-	if (nsymbols >= MAXSYMBOLS) {
-		errout ("Symbol table full");
-		return;
-	}
-	symbols[nsymbols].type = type;
-	symbols[nsymbols].flags = flags;
-	symbols[nsymbols].value = value;
-	symbols[nsymbols].patchlist = NULL;
-	len = strlen (name) + 1; 
-	symbols[nsymbols].name = malloc (len);
-	strlcpy (symbols[nsymbols].name, name, len);
-	++nsymbols;
-}
-
-void close_script ()
-{
-	int	i;
-
-	if (dsps == 0)
-		return;
-	if (outfp) {
-		fprintf (outfp, "unsigned long %s[] = {\n", script_name);
-		for (i = 0; i < dsps / 4; i += 2) {
-			fprintf (outfp, "\t0x%08x, 0x%08x", script[i],
-				script[i + 1]);
-			/* check for memory move instruction */
-			if (script[i] >> 30 == 3)
-				fprintf (outfp, ", 0x%08x,", script[i + 2]);
-			else
-				if ((i + 2) <= dsps / 4) fprintf (outfp, ",\t\t");
-			fprintf (outfp, "\t/* %03x - %3d */\n", i * 4, i * 4);
-			if (script[i] >> 30 == 3)
-				++i;
-		}
-		fprintf (outfp, "};\n\n");
-	}
-	dsps = 0;
-}
-
-void new_script (char *name)
-{
-	size_t len = strlen (name) + 1;
-
-	close_script ();
-	script_name = malloc (len);
-	strlcpy (script_name, name, len);
-}
-
-int	reserved (char *string, int t)
-{
-	if (tokens[t].type == 0 && strcmpi (tokens[t].name, string) == 0)
-		return (1);
-	return (0);
-}
-
-int	CheckPhase (int t)
-{
-	int	i;
-
-	for (i = 0; i < 8; ++i) {
-		if (reserved (phases[i], t)) {
-			inst0 |= i << 24;
-			return (1);
-		}
-	}
-	return (0);
-}
-
-int	CheckRegister (int t)
-{
-	int	i;
-
-	if(arch == 710) {
-		for (i = 0; i < 64; ++i)
-			if (reserved (regs710[i], t))
-				return i;
-	}
-	else if (arch == 720) {
-		for (i = 0; i < 96; ++i)
-			if (reserved (regs720[i], t))
-				return i;
-	}
-	else {
-		errout("'ARCH' statement missing");
-	}
-	return (-1);
-}
-
-int	expression (int *t)
-{
-	int	value;
-	int	i = *t;
-
-	value = evaluate (i++);
-	while (i < ntokens) {
-		if (tokens[i].type == '+')
-			value += evaluate (i + 1);
-		else if (tokens[i].type == '-')
-			value -= evaluate (i + 1);
-		else
-			errout ("Unknown identifier");
-		i += 2;
-	}
-	*t = i;
-	return (value);
-}
-
-int	evaluate (t)
-{
-	int	value;
-	char	*name;
-
-	if (tokens[t].type) {
-		errout ("Expected an identifier");
-		return (0);
-	}
-	name = tokens[t].name;
-	if (*name >= '0' && *name <= '9')
-		value = number (name);
-	else
-		value = lookup (name);
-	return (value);
-}
-
-int	number (char *s)
-{
-	int	value;
-	int	n;
-	int	radix;
-
-	radix = 10;
-	if (*s == '0') {
-		++s;
-		radix = 8;
-		switch (*s) {
-		case 'x':
-		case 'X':
-			radix = 16;
-			break;
-		case 'b':
-		case 'B':
-			radix = 2;
-		}
-		if (radix != 8)
-			++s;
-	}
-	value = 0;
-	while (*s) {
-		n = *s++;
-		if (n >= '0' && n <= '9')
-			n -= '0';
-		else if (n >= 'a' && n <= 'f')
-			n -= 'a' - 10;
-		else if (n >= 'A' && n <= 'F')
-			n -= 'A' - 10;
-		else {
-			error_line();
-			fprintf (errfp, "*** Expected digit\n", n = 0);
-		}
-		if (n >= radix)
-			errout ("Expected digit");
-		else
-			value = value * radix + n;
-	}
-	return (value);
-}
-
-int	lookup (char *name)
-{
-	int	i;
-	struct patchlist *p;
-	size_t	len;
-
-	for (i = 0; i < nsymbols; ++i) {
-		if (strcmp (name, symbols[i].name) == 0) {
-			if ((symbols[i].flags & F_DEFINED) == 0) {
-				p = (struct patchlist *) &symbols[i].patchlist;
-				while (p->next)
-					p = p->next;
-				p->next = (struct patchlist *) malloc (sizeof (struct patchlist));
-				p = p->next;
-				p->next = NULL;
-				p->offset = dsps + 4;
-			}
-			return ((int) symbols[i].value);
-		}
-	}
-	if (nsymbols >= MAXSYMBOLS) {
-		errout ("Symbol table full");
-		return (0);
-	}
-	symbols[nsymbols].type = S_LABEL;	/* assume forward reference */
-	symbols[nsymbols].flags = 0;
-	symbols[nsymbols].value = 0;
-	p = (struct patchlist *) malloc (sizeof (struct patchlist));
-	symbols[nsymbols].patchlist = p;
-	p->next = NULL;
-	p->offset = dsps + 4;
-	len = strlen (name) + 1;
-	symbols[nsymbols].name = malloc (len);
-	strlcpy (symbols[nsymbols].name, name, len);
-	++nsymbols;
-	return (0);
-}
-
-void	f_arch (void)
-{
-	int i, archsave;
-
-	i = tokenix;
-
-	archsave = arch;
-	arch = 0;
-	arch = atoi(tokens[i].name);
-	if( arch != 710 && arch != 720) {
-		errout("Unrecognized ARCH");
-		arch = archsave;
-	}
-}
-
-void	f_proc (void)
-{
-	if (tokens[tokenix].type != 0 || tokens[tokenix + 1].type != ':')
-		errout ("Invalid PROC statement");
-	else
-		new_script (tokens[tokenix].name);
-}
-
-void	f_pass (void)
-{
-	errout ("PASS option not implemented");
-}
-
-/*
- *	f_list:  process list of symbols for the ENTRY and EXTERNAL directive
- */
-
-void	f_list (void)
-{
-	int	i;
-	short	type;
-	short	flags;
-
-	type = strcmpi (tokens[tokenix-1].name, "ENTRY") ? S_EXTERNAL : S_LABEL;
-	flags = type == S_LABEL ? F_ENTRY : 0;
-	for (i = tokenix; i < ntokens; ++i) {
-		if (tokens[i].type != 0) {
-			errout ("Expected an identifier");
-			return;
-		}
-		define_symbol (tokens[i].name, 0, type, flags);
-		if (i + 1 < ntokens) {
-			if (tokens[++i].type == ',')
-				continue;
-			errout ("Expected a separator");
-			return;
-		}
-	}
-}
-
-/*
- *	f_define:	process list of definitions for ABSOLUTE and RELATIVE directive
- */
-
-void	f_define (void)
-{
-	int	i;
-	char	*name;
-	unsigned long value;
-	int	type;
-
-	type = strcmpi (tokens[tokenix-1].name, "ABSOLUTE") ? S_RELATIVE : S_ABSOLUTE;
-	i = tokenix;
-	while (i < ntokens) {
-		if (tokens[i].type) {
-			errout ("Expected an identifier");
-			return;
-		}
-		if (tokens[i + 1].type != '=') {
-			errout ("Expected a separator");
-			return;
-		}
-		name = tokens[i].name;
-		i += 2;
-		value = expression (&i);
-		define_symbol (name, value, type, F_DEFINED);
-	}
-}
-
-void	store_inst ()
-{
-	int	i = dsps / 4;
-	int	l = 8;
-
-	if ((inst0 & 0xc0000000) == 0xc0000000)
-		l = 12;			/* Memory to memory move is 12 bytes */
-	if ((dsps + l) / 4 > MAXINST) {
-		errout ("Instruction table overflow");
-		return;
-	}
-	script[i++] = inst0;
-	script[i++] = inst1;
-	if (l == 12)
-		script[i] = inst2;
-	if (listfp) {
-		fprintf (listfp, "\t%04x: %08x %08x", dsps, inst0, inst1);
-		if (l == 12)
-			fprintf (listfp, " %08x", inst2);
-		fprintf (listfp, "\n");
-	}
-	dsps += l;
-	inst0 = inst1 = inst2 = 0;
-	++ninsts;
-}
-
-void	f_move (void)
-{
-	if (reserved ("memory", tokenix))
-		memory_to_memory ();
-	else if (reserved ("from", tokenix) || tokens[tokenix+1].type == ',')
-		block_move ();
-	else
-		register_write ();
-	store_inst ();
-}
-
-void	f_jump (void)
-{
-	transfer (0x80000000, 0);
-}
-
-void	f_call (void)
-{
-	transfer (0x88000000, 0);
-}
-
-void	f_return (void)
-{
-	transfer (0x90000000, 1);
-}
-
-void	f_int (void)
-{
-	transfer (0x98000000, 2);
-}
-
-void	f_select (void)
-{
-	int	t = tokenix;
-
-	if (reserved ("atn", t)) {
-		inst0 = 0x01000000;
-		++t;
-	}
-	select_reselect (t);
-}
-
-void	f_reselect (void)
-{
-	select_reselect (tokenix);
-}
-
-void	f_wait (void)
-{
-	int	i = tokenix;
-
-	inst1 = 0;
-	if (reserved ("disconnect", i)) {
-		inst0 = 0x48000000;
-	}
-	else {
-		if (reserved ("reselect", i))
-			inst0 = 0x50000000;
-		else if (reserved ("select", i))
-			inst0 = 0x50000000;
-		else
-			errout ("Expected SELECT or RESELECT");
-		++i;
-		if (reserved ("rel", i)) {
-			i += 2;
-			inst1 = evaluate (i) - dsps - 8;
-			inst0 |= 0x04000000;
-		}
-		else
-			inst1 = evaluate (i);
-	}
-	store_inst ();
-}
-
-void	f_disconnect (void)
-{
-	inst0 = 0x48000000;
-	store_inst ();
-}
-
-void	f_set (void)
-{
-	set_clear (0x58000000);
-}
-
-void	f_clear (void)
-{
-	set_clear (0x60000000);
-}
-
-void	transfer (int word0, int type)
-{
-	int	i;
-
-	i = tokenix;
-	inst0 = word0;
-	if (type == 0 && reserved ("rel", i)) {
-		inst1 = evaluate (i + 2) - dsps - 8;
-		i += 3;
-		inst0 |= 0x00800000;
-	}
-	else if (type != 1) {
-		inst1 = evaluate (i);
-	}
-	++i;
-	if (i >= ntokens) {
-		inst0 |= 0x00080000;
-		store_inst ();
-		return;
-	}
-	if (tokens[i].type != ',')
-		errout ("Expected a separator, ',' assumed");
-	else
-		++i;
-	if (reserved("when", i))
-		inst0 |= 0x00010000;
-	else if (reserved ("if", i) == 0) {
-		errout ("Expected a reserved word");
-		store_inst ();
-		return;
-	}
-	if (reserved ("not", ++i))
-		++i;
-	else
-		inst0 |= 0x00080000;
-	if (reserved ("atn", i)) {
-		inst0 |= 0x00020000;
-		++i;
-	} else if (CheckPhase (i)) {
-		inst0 |= 0x00020000;
-		++i;
-	}
-	if (i < ntokens && tokens[i].type != ',') {
-		if (inst0 & 0x00020000) {
-			if (inst0 & 0x00080000 && reserved ("and", i)) {
-				++i;
-			}
-			else if ((inst0 & 0x00080000) == 0 && reserved ("or", i)) {
-				++i;
-			}
-			else
-				errout ("Expected a reserved word");
-		}
-		inst0 |= 0x00040000 + (evaluate (i++) & 0xff);
-	}
-	if (i < ntokens) {
-		if (tokens[i].type == ',')
-			++i;
-		else
-			errout ("Expected a separator, ',' assumed");
-		if (reserved ("and", i) && reserved ("mask", i + 1))
-			inst0 |= ((evaluate (i + 2) & 0xff) << 8);
-		else
-			errout ("Expected , AND MASK");
-	}
-	store_inst ();
-}
-
-void 	select_reselect (int t)
-{
-	inst0 |= 0x40000000;		/* ATN may be set from SELECT */
-	if (reserved ("from", t)) {
-		++t;
-		inst0 |= 0x02000000 | evaluate (t++);
-	}
-	else
-		inst0 |= (evaluate (t++) & 0xff) << 16;
-	if (tokens[t++].type == ',') {
-		if (reserved ("rel", t)) {
-			inst0 |= 0x04000000;
-			inst1 = evaluate (t + 2) - dsps - 8;
-		}
-		else
-			inst1 = evaluate (t);
-	}
-	else
-		errout ("Expected separator");
-	store_inst ();
-}
-
-void	set_clear (unsigned long code)
-{
-	int	i = tokenix;
-	short	need_and = 0;
-
-	inst0 = code;
-	while (i < ntokens) {
-		if (need_and) {
-			if (reserved ("and", i))
-				++i;
-			else
-				errout ("Expected AND");
-		}
-		if (reserved ("atn", i)) {
-			inst0 |= 0x0008;
-			++i;
-		}
-		else if (reserved ("ack", i)) {
-			inst0 |= 0x0040;
-			++i;
-		}
-		else if (reserved ("target", i)) {
-			inst0 |= 0x0200;
-			++i;
-		}
-		else
-			errout ("Expected ATN, ACK, or TARGET");
-		need_and = 1;
-	}
-	store_inst ();
-}
-
-void	block_move ()
-{
-	int	t;
-
-	if (reserved ("from", tokenix)) {
-		inst1 = evaluate (tokenix+1);
-		inst0 |= 0x10000000 | inst1;	/*** ??? to match Zeus script */
-		tokenix += 2;
-	}
-	else {
-		inst0 |= evaluate (tokenix++);	/* count */
-		tokenix++;			/* skip ',' */
-		if (reserved ("ptr", tokenix)) {
-			++ tokenix;
-			inst0 |= 0x20000000;
-		}
-		inst1 = evaluate (tokenix++);	/* address */
-	}
-	if (tokens[tokenix].type != ',')
-		errout ("Expected separator");
-	if (reserved ("when", tokenix + 1)) {
-		inst0 |= 0x08000000;
-		CheckPhase (tokenix + 2);
-	}
-	else if (reserved ("with", tokenix + 1)) {
-		CheckPhase (tokenix + 2);
-	}
-	else
-		errout ("Expected WITH or WHEN");
-}
-
-void	register_write ()
-{
-	/*
-	 * MOVE reg/data8 TO reg			register write
-	 * MOVE reg <op> data8 TO reg			register write
-	 */
-	int	op;
-	int	reg;
-	int	data;
-
-	if (reserved ("to", tokenix+1))
-		op = 0;
-	else if (tokens[tokenix+1].type == '|')
-		op = 1;
-	else if (tokens[tokenix+1].type == '&')
-		op = 2;
-	else if (tokens[tokenix+1].type == '+')
-		op = 3;
-	else if (tokens[tokenix+1].type == '-')
-		op = 4;
-	else
-		errout ("Unknown register operator");
-	if (op && reserved ("to", tokenix+3) == 0)
-		errout ("Register command expected TO");
-	reg = CheckRegister (tokenix);
-	if (reg < 0) {			/* Not register, must be data */
-		data = evaluate (tokenix);
-		if (op)
-			errout ("Register operator not move");
-		reg = CheckRegister (tokenix+2);
-		if (reg < 0)
-			errout ("Expected register");
-		inst0 = 0x78000000 | (data << 8) | reg;
-#if 0
-fprintf (listfp, "Move data to register: %02x %d\n", data, reg);
-#endif
-	}
-	else if (op) {			/* A register read/write operator */
-		data = evaluate (tokenix+2);
-		if (op == 4) {
-			data = -data;
-			op = 3;
-		}
-		inst0 = (data & 0xff) << 8;
-		data = CheckRegister (tokenix+4);
-		if (data < 0)
-			errout ("Expected register");
-		if (reg != data && reg != 8 && data != 8)
-			errout ("One register MUST be SBFR");
-		if (reg == data) {	/* A register read/modify/write */
-#if 0
-fprintf (listfp, "Read/modify register: %02x %d %d\n", inst0 >> 8, op, reg);
-#endif
-			inst0 |= 0x78000000 | (op << 25) | (reg << 16);
-		}
-		else {			/* A move to/from SFBR */
-			if (reg == 8) {	/* MOVE SFBR <> TO reg */
-#if 0
-fprintf (listfp, "Move SFBR to register: %02x %d %d\n", inst0 >> 8, op, data);
-#endif
-				inst0 |= 0x68000000 | (op << 25) | (data << 16);
-			}
-			else {
-#if 0
-fprintf (listfp, "Move register to SFBR: %02x %d %d\n", inst0 >> 8, op, reg);
-#endif
-				inst0 |= 0x70000000 | (op << 25) | (reg << 16);
-			}
-		}
-	}
-	else {				/* register to register */
-		data = CheckRegister (tokenix+2);
-		if (reg == 8)		/* move SFBR to reg */
-			inst0 = 0x6a000000 | (data << 16);
-		else if (data == 8)	/* move reg to SFBR */
-			inst0 = 0x72000000 | (reg << 16);
-		else
-			errout ("One register must be SFBR");
-	}
-}
-
-void	memory_to_memory ()
-{
-	inst0 = 0xc0000000 + evaluate (tokenix+1);
-	inst1 = evaluate (tokenix+3);
-	inst2 = evaluate (tokenix+5);
-}
-
-void	error_line()
-{
-	if (errfp != listfp && errfp && err_listed == 0) {
-		fprintf (errfp, "%3d:  %s", lineno, inbuf);
-		err_listed = 1;
-	}
-}
-
-char *	makefn (base, sub)
-	char *base;
-	char *sub;
-{
-	char *fn;
-	size_t len = strlen (base) + strlen (sub) + 2; 
-
-	fn = malloc (len);
-	strlcpy (fn, base, len);
-	base = strrchr(fn, '.');
-	if (base)
-		*base = 0;
-	strlcat (fn, ".", len);
-	strlcat (fn, sub, len);
-	return (fn);
-}
-
-void	usage()
-{
-	fprintf (stderr, "usage: scc sourcfile [options]\n");
-	exit(1);
-}