09d56a3f8f
aic7xxx.c: Add a function for sucking firmware out of the controller prior to reset. Remove some inline bloat from functions that should not have been inlined. During initialization, wait 1ms after the chip reset before touching any registers. You can get machine checks on certain architectures (Atari I think?) without the delay. Return CAM_REQ_CMP for external BDR requests instead of CAM_BDR_SENT. Bump some messages to bootverbose levels above 1. Don't clear any negotiated sync rate if the target rejects a WDTR message. The sync rate is only cleared if the target accepts a WDTR message. Fix a small bug in the mesgin handling code that could cause us to believe that we had recieved a message that was actually received by another target. This could only confuse us in some very rare transmission negotiation scenarios. Remove some unecessary cleanup of residual information after a residual is reported. The sequencer does this when the command is queued now.
284 lines
7.1 KiB
Plaintext
284 lines
7.1 KiB
Plaintext
%{
|
|
/*
|
|
* Lexical Analyzer for the Aic7xxx SCSI Host adapter sequencer assembler.
|
|
*
|
|
* Copyright (c) 1997-1998 Justin T. Gibbs.
|
|
* 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,
|
|
* without modification.
|
|
* 2. 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 AND CONTRIBUTORS ``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 OR CONTRIBUTORS 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.
|
|
*
|
|
* $FreeBSD$
|
|
*/
|
|
|
|
#include <sys/types.h>
|
|
|
|
#include <limits.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <sysexits.h>
|
|
#include <sys/queue.h>
|
|
|
|
#include "aicasm.h"
|
|
#include "aicasm_symbol.h"
|
|
#include "y.tab.h"
|
|
|
|
#define MAX_STR_CONST 256
|
|
char string_buf[MAX_STR_CONST];
|
|
char *string_buf_ptr;
|
|
int parren_count;
|
|
%}
|
|
|
|
PATH [-/A-Za-z0-9_.]*[./][-/A-Za-z0-9_.]*
|
|
WORD [A-Za-z_][-A-Za-z_0-9]*
|
|
SPACE [ \t]+
|
|
|
|
%x COMMENT
|
|
%x CEXPR
|
|
%x INCLUDE
|
|
|
|
%%
|
|
\n { ++yylineno; }
|
|
"/*" { BEGIN COMMENT; /* Enter comment eating state */ }
|
|
<COMMENT>"/*" { fprintf(stderr, "Warning! Comment within comment."); }
|
|
<COMMENT>\n { ++yylineno; }
|
|
<COMMENT>[^*/\n]* ;
|
|
<COMMENT>"*"+[^*/\n]* ;
|
|
<COMMENT>"/"+[^*/\n]* ;
|
|
<COMMENT>"*"+"/" { BEGIN INITIAL; }
|
|
if[ \t]*\( {
|
|
string_buf_ptr = string_buf;
|
|
parren_count = 1;
|
|
BEGIN CEXPR;
|
|
return T_IF;
|
|
}
|
|
<CEXPR>\( { *string_buf_ptr++ = '('; parren_count++; }
|
|
<CEXPR>\) {
|
|
parren_count--;
|
|
if (parren_count == 0) {
|
|
/* All done */
|
|
BEGIN INITIAL;
|
|
*string_buf_ptr = '\0';
|
|
yylval.sym = symtable_get(string_buf);
|
|
return T_CEXPR;
|
|
} else {
|
|
*string_buf_ptr++ = ')';
|
|
}
|
|
}
|
|
<CEXPR>\n { ++yylineno; }
|
|
<CEXPR>[^()\n]+ {
|
|
char *yptr = yytext;
|
|
|
|
while (*yptr != '\0')
|
|
*string_buf_ptr++ = *yptr++;
|
|
}
|
|
|
|
{SPACE} ;
|
|
|
|
/* Register/SCB/SRAM definition keywords */
|
|
register { return T_REGISTER; }
|
|
const { yylval.value = FALSE; return T_CONST; }
|
|
download { return T_DOWNLOAD; }
|
|
address { return T_ADDRESS; }
|
|
access_mode { return T_ACCESS_MODE; }
|
|
RW|RO|WO {
|
|
if (strcmp(yytext, "RW") == 0)
|
|
yylval.value = RW;
|
|
else if (strcmp(yytext, "RO") == 0)
|
|
yylval.value = RO;
|
|
else
|
|
yylval.value = WO;
|
|
return T_MODE;
|
|
}
|
|
bit { return T_BIT; }
|
|
mask { return T_MASK; }
|
|
alias { return T_ALIAS; }
|
|
size { return T_SIZE; }
|
|
scb { return T_SCB; }
|
|
scratch_ram { return T_SRAM; }
|
|
accumulator { return T_ACCUM; }
|
|
allones { return T_ALLONES; }
|
|
allzeros { return T_ALLZEROS; }
|
|
none { return T_NONE; }
|
|
sindex { return T_SINDEX; }
|
|
A { return T_A; }
|
|
|
|
/* Opcodes */
|
|
shl { return T_SHL; }
|
|
shr { return T_SHR; }
|
|
ror { return T_ROR; }
|
|
rol { return T_ROL; }
|
|
mvi { return T_MVI; }
|
|
mov { return T_MOV; }
|
|
clr { return T_CLR; }
|
|
jmp { return T_JMP; }
|
|
jc { return T_JC; }
|
|
jnc { return T_JNC; }
|
|
je { return T_JE; }
|
|
jne { return T_JNE; }
|
|
jz { return T_JZ; }
|
|
jnz { return T_JNZ; }
|
|
call { return T_CALL; }
|
|
add { return T_ADD; }
|
|
adc { return T_ADC; }
|
|
bmov { return T_BMOV; }
|
|
inc { return T_INC; }
|
|
dec { return T_DEC; }
|
|
stc { return T_STC; }
|
|
clc { return T_CLC; }
|
|
cmp { return T_CMP; }
|
|
xor { return T_XOR; }
|
|
test { return T_TEST;}
|
|
and { return T_AND; }
|
|
or { return T_OR; }
|
|
ret { return T_RET; }
|
|
nop { return T_NOP; }
|
|
else { return T_ELSE; }
|
|
|
|
/* Allowed Symbols */
|
|
[-+,:()~|&."{};<>[\]!] { return yytext[0]; }
|
|
|
|
/* Number processing */
|
|
0[0-7]* {
|
|
yylval.value = strtol(yytext, NULL, 8);
|
|
return T_NUMBER;
|
|
}
|
|
|
|
0[xX][0-9a-fA-F]+ {
|
|
yylval.value = strtoul(yytext + 2, NULL, 16);
|
|
return T_NUMBER;
|
|
}
|
|
|
|
[1-9][0-9]* {
|
|
yylval.value = strtol(yytext, NULL, 10);
|
|
return T_NUMBER;
|
|
}
|
|
|
|
/* Include Files */
|
|
#include { return T_INCLUDE; BEGIN INCLUDE;}
|
|
<INCLUDE>[<>\"] { return yytext[0]; }
|
|
<INCLUDE>{PATH} { yylval.str = strdup(yytext); return T_PATH; }
|
|
<INCLUDE>; { BEGIN INITIAL; return yytext[0]; }
|
|
<INCLUDE>. { stop("Invalid include line", EX_DATAERR); }
|
|
|
|
/* For parsing C include files with #define foo */
|
|
#define { yylval.value = TRUE; return T_CONST; }
|
|
/* Throw away macros */
|
|
#define[^\n]*[()]+[^\n]* ;
|
|
{PATH} { yylval.str = strdup(yytext); return T_PATH; }
|
|
|
|
{WORD} { yylval.sym = symtable_get(yytext); return T_SYMBOL; }
|
|
|
|
. {
|
|
char buf[255];
|
|
|
|
snprintf(buf, sizeof(buf), "Invalid character "
|
|
"'%c'", yytext[0]);
|
|
stop(buf, EX_DATAERR);
|
|
}
|
|
%%
|
|
|
|
typedef struct include {
|
|
YY_BUFFER_STATE buffer;
|
|
int lineno;
|
|
char *filename;
|
|
SLIST_ENTRY(include) links;
|
|
}include_t;
|
|
|
|
SLIST_HEAD(, include) include_stack;
|
|
|
|
void
|
|
include_file(file_name, type)
|
|
char *file_name;
|
|
include_type type;
|
|
{
|
|
FILE *newfile;
|
|
include_t *include;
|
|
|
|
newfile = NULL;
|
|
/* Try the current directory first */
|
|
if (includes_search_curdir != 0 || type == SOURCE_FILE)
|
|
newfile = fopen(file_name, "r");
|
|
|
|
if (newfile == NULL && type != SOURCE_FILE) {
|
|
path_entry_t include_dir;
|
|
for (include_dir = search_path.slh_first;
|
|
include_dir != NULL;
|
|
include_dir = include_dir->links.sle_next) {
|
|
char fullname[PATH_MAX];
|
|
|
|
if ((include_dir->quoted_includes_only == TRUE)
|
|
&& (type != QUOTED_INCLUDE))
|
|
continue;
|
|
|
|
snprintf(fullname, sizeof(fullname),
|
|
"%s/%s", include_dir->directory, file_name);
|
|
|
|
if ((newfile = fopen(fullname, "r")) != NULL)
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (newfile == NULL) {
|
|
perror(file_name);
|
|
stop("Unable to open input file", EX_SOFTWARE);
|
|
/* NOTREACHED */
|
|
}
|
|
|
|
if (type != SOURCE_FILE) {
|
|
include = (include_t *)malloc(sizeof(include_t));
|
|
if (include == NULL) {
|
|
stop("Unable to allocate include stack entry",
|
|
EX_SOFTWARE);
|
|
/* NOTREACHED */
|
|
}
|
|
include->buffer = YY_CURRENT_BUFFER;
|
|
include->lineno = yylineno;
|
|
include->filename = yyfilename;
|
|
SLIST_INSERT_HEAD(&include_stack, include, links);
|
|
}
|
|
yy_switch_to_buffer(yy_create_buffer(newfile, YY_BUF_SIZE));
|
|
yylineno = 1;
|
|
yyfilename = strdup(file_name);
|
|
}
|
|
|
|
int
|
|
yywrap()
|
|
{
|
|
include_t *include;
|
|
|
|
yy_delete_buffer(YY_CURRENT_BUFFER);
|
|
(void)fclose(yyin);
|
|
if (yyfilename != NULL)
|
|
free(yyfilename);
|
|
yyfilename = NULL;
|
|
include = include_stack.slh_first;
|
|
if (include != NULL) {
|
|
yy_switch_to_buffer(include->buffer);
|
|
yylineno = include->lineno;
|
|
yyfilename = include->filename;
|
|
SLIST_REMOVE_HEAD(&include_stack, links);
|
|
free(include);
|
|
return (0);
|
|
}
|
|
return (1);
|
|
}
|