/*
|
/*
|
* machine independent definitions and global variables
|
* machine independent definitions and global variables
|
*/
|
*/
|
|
|
#define YES 1
|
#define YES 1
|
#define NO 0
|
#define NO 0
|
#define ERR (-1)
|
#define ERR (-1)
|
|
|
#define MAXBUF 128
|
#define MAXBUF 128
|
#define MAXOP 10 /* longest mnemonic */
|
#define MAXOP 10 /* longest mnemonic */
|
#define MAXLAB 16
|
#define MAXLAB 16
|
#define E_LIMIT 32
|
#define E_LIMIT 32
|
#define P_LIMIT 64
|
#define P_LIMIT 64
|
#define MAXINCFILES 30 /* nestinf levels for INCLUDE files at one time */
|
#define MAXINCFILES 30 /* nestinf levels for INCLUDE files at one time */
|
/* ver TER_2.0 6/17/89 */
|
/* ver TER_2.0 6/17/89 */
|
#define MAXIFD 30 /* max nesting levels for IFD/IFND statements */
|
#define MAXIFD 30 /* max nesting levels for IFD/IFND statements */
|
/* ver TER_2.0 2 Jul 89 */
|
/* ver TER_2.0 2 Jul 89 */
|
#define IF_FALSE 0 /* tokens for IfMachine (conditional assembly) */
|
#define IF_FALSE 0 /* tokens for IfMachine (conditional assembly) */
|
#define IF_TRUE 1 /* added ver TER_2.0 27Jun89 */
|
#define IF_TRUE 1 /* added ver TER_2.0 27Jun89 */
|
#define IF_ELSE 2
|
#define IF_ELSE 2
|
#define IF_ENDIF 3
|
#define IF_ENDIF 3
|
#define IF_NORMAL 4
|
#define IF_NORMAL 4
|
#define IF_END 5
|
#define IF_END 5
|
#define IF_EOF 6 /* end tokens */
|
#define IF_EOF 6 /* end tokens */
|
|
|
/* Character Constants */
|
/* Character Constants */
|
#define NEWLINE '\n'
|
#define NEWLINE '\n'
|
#define CR 0x0D /* <CR> or ^M ver TER_1.1 June 3, 1989 */
|
#define CR 0x0D /* <CR> or ^M ver TER_1.1 June 3, 1989 */
|
#define TAB '\t'
|
#define TAB '\t'
|
#define BLANK ' '
|
#define BLANK ' '
|
#define EOS '\0'
|
#define EOS '\0'
|
|
|
/* Opcode Classes */
|
/* Opcode Classes */
|
#define INH 0 /* Inherent */
|
#define INH 0 /* Inherent */
|
#define GEN 1 /* General Addressing */
|
#define GEN 1 /* General Addressing */
|
#define IMM 2 /* Immediate only */
|
#define IMM 2 /* Immediate only */
|
#define REL 3 /* Short Relative */
|
#define REL 3 /* Short Relative */
|
#define P2REL 4 /* Long Relative */
|
#define P2REL 4 /* Long Relative */
|
#define P1REL 5 /* Long Relative (LBRA and LBSR)*/
|
#define P1REL 5 /* Long Relative (LBRA and LBSR)*/
|
#define NOIMM 6 /* General except for Immediate */
|
#define NOIMM 6 /* General except for Immediate */
|
#define P2GEN 7 /* Page 2 General */
|
#define P2GEN 7 /* Page 2 General */
|
#define P3GEN 8 /* Page 3 General */
|
#define P3GEN 8 /* Page 3 General */
|
#define RTOR 9 /* Register To Register */
|
#define RTOR 9 /* Register To Register */
|
#define INDEXED 10 /* Indexed only */
|
#define INDEXED 10 /* Indexed only */
|
#define RLIST 11 /* Register List */
|
#define RLIST 11 /* Register List */
|
#define P2NOIMM 12 /* Page 2 No Immediate */
|
#define P2NOIMM 12 /* Page 2 No Immediate */
|
#define P2INH 13 /* Page 2 Inherent */
|
#define P2INH 13 /* Page 2 Inherent */
|
#define P3INH 14 /* Page 3 Inherent */
|
#define P3INH 14 /* Page 3 Inherent */
|
#define GRP2 15 /* Group 2 (Read/Modify/Write) */
|
#define GRP2 15 /* Group 2 (Read/Modify/Write) */
|
#define LONGIMM 16 /* Immediate mode takes 2 bytes */
|
#define LONGIMM 16 /* Immediate mode takes 2 bytes */
|
#define BTB 17 /* Bit test and branch */
|
#define BTB 17 /* Bit test and branch */
|
#define SETCLR 18 /* Bit set or clear */
|
#define SETCLR 18 /* Bit set or clear */
|
#define CPD 19 /* compare d 6811 */
|
#define CPD 19 /* compare d 6811 */
|
#define XLIMM 20 /* LONGIMM for X 6811 */
|
#define XLIMM 20 /* LONGIMM for X 6811 */
|
#define XNOIMM 21 /* NOIMM for X 6811 */
|
#define XNOIMM 21 /* NOIMM for X 6811 */
|
#define YLIMM 22 /* LONGIMM for Y 6811 */
|
#define YLIMM 22 /* LONGIMM for Y 6811 */
|
#define YNOIMM 23 /* NOIMM for Y 6811 */
|
#define YNOIMM 23 /* NOIMM for Y 6811 */
|
#define FAKE 24 /* convenience mnemonics 6804 */
|
#define FAKE 24 /* convenience mnemonics 6804 */
|
#define APOST 25 /* A accum after opcode 6804 */
|
#define APOST 25 /* A accum after opcode 6804 */
|
#define BPM 26 /* branch reg plus/minus 6804 */
|
#define BPM 26 /* branch reg plus/minus 6804 */
|
#define CLRX 27 /* mvi x,0 6804 */
|
#define CLRX 27 /* mvi x,0 6804 */
|
#define CLRY 28 /* mvi y,0 6804 */
|
#define CLRY 28 /* mvi y,0 6804 */
|
#define LDX 29 /* mvi x,expr 6804 */
|
#define LDX 29 /* mvi x,expr 6804 */
|
#define LDY 30 /* mvi y,expr 6804 */
|
#define LDY 30 /* mvi y,expr 6804 */
|
#define MVI 31 /* mvi 6804 */
|
#define MVI 31 /* mvi 6804 */
|
#define EXT 32 /* extended 6804 */
|
#define EXT 32 /* extended 6804 */
|
#define BIT 33 /* bit manipulation 6301 */
|
#define BIT 33 /* bit manipulation 6301 */
|
#define SYS 34 /* syscalls (really swi) */
|
#define SYS 34 /* syscalls (really swi) */
|
#define PSEUDO 35 /* Pseudo ops */
|
#define PSEUDO 35 /* Pseudo ops */
|
|
|
/* global variables */
|
/* global variables */
|
int Line_num =0; /* current line number */
|
int Line_num =0; /* current line number */
|
int Err_count =0; /* total number of errors */
|
int Err_count =0; /* total number of errors */
|
char Line[MAXBUF] = {0}; /* input line buffer */
|
char Line[MAXBUF] = {0}; /* input line buffer */
|
char Label[MAXLAB] = {0}; /* label on current line */
|
char Label[MAXLAB] = {0}; /* label on current line */
|
char Op[MAXOP] = {0}; /* opcode mnemonic on current line */
|
char Op[MAXOP] = {0}; /* opcode mnemonic on current line */
|
char Operand[MAXBUF] = {0}; /* remainder of line after op */
|
char Operand[MAXBUF] = {0}; /* remainder of line after op */
|
/* (up to ';' rel TER_2.0) */
|
/* (up to ';' rel TER_2.0) */
|
char *Optr =0; /* pointer into current Operand field */
|
char *Optr =0; /* pointer into current Operand field */
|
int Result =0; /* result of expression evaluation */
|
int Result =0; /* result of expression evaluation */
|
int Force_word =0; /* Result should be a word when set */
|
int Force_word =0; /* Result should be a word when set */
|
int Force_byte =0; /* Result should be a byte when set */
|
int Force_byte =0; /* Result should be a byte when set */
|
int Pc =0; /* Program Counter */
|
int Pc =0; /* Program Counter */
|
int Old_pc =0; /* Program Counter at beginning */
|
int Old_pc =0; /* Program Counter at beginning */
|
|
|
int Last_sym =0; /* result of last lookup */
|
int Last_sym =0; /* result of last lookup */
|
|
|
int Pass =0; /* Current pass # */
|
int Pass =0; /* Current pass # */
|
int N_files =0; /* Number of files to assemble */
|
int N_files =0; /* Number of files to assemble */
|
FILE *Fd =0; /* Current input file structure */
|
FILE *Fd =0; /* Current input file structure */
|
int Cfn =0; /* Current file number 1...n */
|
int Cfn =0; /* Current file number 1...n */
|
int Ffn =0; /* forward ref file # */
|
int Ffn =0; /* forward ref file # */
|
int F_ref =0; /* next line with forward ref */
|
int F_ref =0; /* next line with forward ref */
|
char **Argv =0; /* pointer to file names */
|
char **Argv =0; /* pointer to file names */
|
|
|
int E_total =0; /* total # bytes for one line */
|
int E_total =0; /* total # bytes for one line */
|
int E_bytes[E_LIMIT] = {0}; /* Emitted held bytes */
|
int E_bytes[E_LIMIT] = {0}; /* Emitted held bytes */
|
int E_pc =0; /* Pc at beginning of collection*/
|
int E_pc =0; /* Pc at beginning of collection*/
|
|
|
int Lflag = 0; /* listing flag 0=nolist, 1=list*/
|
int Lflag = 0; /* listing flag 0=nolist, 1=list*/
|
|
|
int P_force = 0; /* force listing line to include Old_pc */
|
int P_force = 0; /* force listing line to include Old_pc */
|
int P_total =0; /* current number of bytes collected */
|
int P_total =0; /* current number of bytes collected */
|
int P_bytes[P_LIMIT] = {0}; /* Bytes collected for listing */
|
int P_bytes[P_LIMIT] = {0}; /* Bytes collected for listing */
|
|
|
int Cflag = 0; /* cycle count flag */
|
int Cflag = 0; /* cycle count flag */
|
int Cycles = 0; /* # of cycles per instruction */
|
int Cycles = 0; /* # of cycles per instruction */
|
long Ctotal = 0; /* # of cycles seen so far */
|
long Ctotal = 0; /* # of cycles seen so far */
|
int Sflag = 0; /* symbol table flag, 0=no symbol */
|
int Sflag = 0; /* symbol table flag, 0=no symbol */
|
int N_page = 0; /* new page flag */
|
int N_page = 0; /* new page flag */
|
int Page_num = 2; /* page number */
|
int Page_num = 2; /* page number */
|
int CREflag = 0; /* cross reference table flag */
|
int CREflag = 0; /* cross reference table flag */
|
int CRflag = 0; /* flag to add <CR><LF> to S record */
|
int CRflag = 0; /* flag to add <CR><LF> to S record */
|
/* added ver TER_1.1 June 3, 1989 */
|
/* added ver TER_1.1 June 3, 1989 */
|
int nfFlag = 1; /* if=1 number INCLUDE files separate */
|
int nfFlag = 1; /* if=1 number INCLUDE files separate */
|
/* ver TER_2.0 June 17, 1989 */
|
/* ver TER_2.0 June 17, 1989 */
|
int FdCount = 0; /* INCLUDE files "stack" pointer */
|
int FdCount = 0; /* INCLUDE files "stack" pointer */
|
/* ver TER_2.0 June 17, 1989 */
|
/* ver TER_2.0 June 17, 1989 */
|
char InclFName[MAXBUF]={0}; /* current INCLUDE file name */
|
char InclFName[MAXBUF]={0}; /* current INCLUDE file name */
|
int F_total = 0; /* total bytes emitted in S file */
|
int F_total = 0; /* total bytes emitted in S file */
|
/* ver (TER) 2.02 19 Jun 89 */
|
/* ver (TER) 2.02 19 Jun 89 */
|
int Page_lines = 0; /* total lines this page */
|
int Page_lines = 0; /* total lines this page */
|
/* ver (TER) 2.02 19 Jun 89 */
|
/* ver (TER) 2.02 19 Jun 89 */
|
int Pflag50 = 0; /* if 1 then form feed every 50 lines */
|
int Pflag50 = 0; /* if 1 then form feed every 50 lines */
|
/* ver (TER) 2.02 19 Jun 89 */
|
/* ver (TER) 2.02 19 Jun 89 */
|
int Pflag75 = 0; /* if 1 then form feed every 75 lines */
|
int Pflag75 = 0; /* if 1 then form feed every 75 lines */
|
/* ver (DWC) 2.10 8 Oct 2001 */
|
/* ver (DWC) 2.10 8 Oct 2001 */
|
int PC_Save[4] = {0,0,0,0}; /* saved contents of CODE,DATA,BSS,AUTO PCs */
|
int PC_Save[4] = {0,0,0,0}; /* saved contents of CODE,DATA,BSS,AUTO PCs */
|
/* ver TER_2.09 25 July 89 */
|
/* ver TER_2.09 25 July 89 */
|
int PC_ptr = 0; /* index or pointer to current PC */
|
int PC_ptr = 0; /* index or pointer to current PC */
|
/* initialized to CODE ver TER_2.09 25 July 89 */
|
/* initialized to CODE ver TER_2.09 25 July 89 */
|
|
|
struct link { /* linked list to hold line numbers */
|
struct link { /* linked list to hold line numbers */
|
int L_num; /* line number */
|
int L_num; /* line number */
|
struct link *next; /* pointer to next node */
|
struct link *next; /* pointer to next node */
|
};
|
};
|
|
|
struct nlist { /* basic symbol table entry */
|
struct nlist { /* basic symbol table entry */
|
char *name;
|
char *name;
|
int def; /* value of symbol, assigned by user */
|
int def; /* value of symbol, assigned by user */
|
int def2; /* value assign by assembler, e.g. defined this pass? */
|
int def2; /* value assign by assembler, e.g. defined this pass? */
|
/* added ver TER_2.0 4 Jul 89 */
|
/* added ver TER_2.0 4 Jul 89 */
|
struct nlist *Lnext ; /* left node of the tree leaf */
|
struct nlist *Lnext ; /* left node of the tree leaf */
|
struct nlist *Rnext; /* right node of the tree leaf */
|
struct nlist *Rnext; /* right node of the tree leaf */
|
struct link *L_list; /* pointer to linked list of line numbers */
|
struct link *L_list; /* pointer to linked list of line numbers */
|
};
|
};
|
|
|
struct oper { /* an entry in the mnemonic table */
|
struct oper { /* an entry in the mnemonic table */
|
char *mnemonic; /* its name */
|
char *mnemonic; /* its name */
|
char class; /* its class */
|
char class; /* its class */
|
int opcode; /* its base opcode */
|
int opcode; /* its base opcode */
|
char cycles; /* its base # of cycles */
|
char cycles; /* its base # of cycles */
|
};
|
};
|
|
|
struct nlist *root; /* root node of the tree */
|
struct nlist *root; /* root node of the tree */
|
|
|
FILE *Objfil =0; /* object file's file descriptor*/
|
FILE *Objfil =0; /* object file's file descriptor*/
|
char Obj_name[] = {" "};
|
char Obj_name[] = {" "};
|
|
|
struct InclFile { /* The INCLUDE files nesting "stack" */
|
struct InclFile { /* The INCLUDE files nesting "stack" */
|
/* added ver TER_2.0 6/17/89 */
|
/* added ver TER_2.0 6/17/89 */
|
FILE *fp; /* saved file pointer (next level up) */
|
FILE *fp; /* saved file pointer (next level up) */
|
int line_num; /* saved line number count */
|
int line_num; /* saved line number count */
|
char *name; /* saved file name */
|
char *name; /* saved file name */
|
};
|
};
|
|
|
struct InclFile InclFiles[MAXINCFILES]; /* the nesting stack itself */
|
struct InclFile InclFiles[MAXINCFILES]; /* the nesting stack itself */
|
|
|
No newline at end of file
|
No newline at end of file
|
|
/* defined in doXX.c */
|
|
void do_op(int opcode,int class);
|
|
|
|
/* defined in symtab.c */
|
|
struct nlist * lookup(char *name);
|
|
|
|
/* defined in util.c */
|
|
void pouterror();
|
|
void f_record();
|
|
void NewPage();
|
|
|
No newline at end of file
|
No newline at end of file
|