mirror of
https://github.com/open-simh/simtools.git
synced 2026-01-23 19:07:19 +00:00
f75f5e1242
Also, to make Kermit sources work, only increase the local symbol block counter if there actually was a local symbol used in the block. This way, conditional inclusions (which include source text only in the first pass) will have less potential for de-synchronisation between the passes. After all, if the generated internal local symbol names do not match, phase errors will result (showing themselves as strange label redefinition problems).
99 lines
3.6 KiB
C
99 lines
3.6 KiB
C
|
|
#define ASSEMBLE_GLOBALS__C
|
|
|
|
|
|
#include "assemble_globals.h" /* own definitions */
|
|
|
|
#include "object.h"
|
|
|
|
|
|
/* GLOBAL VARIABLES */
|
|
int pass = 0; /* The current assembly pass. 0 = first pass */
|
|
int stmtno = 0; /* The current source line number */
|
|
int radix = 8; /* The current input conversion radix */
|
|
|
|
|
|
int lsb = 0; /* The current local symbol section identifier */
|
|
int lsb_used = 0; /* Whether there was a local symbol using this lsb */
|
|
int next_lsb = 0; /* The number of the next local symbol block */
|
|
int last_macro_lsb = 0; /* The last block in which a macro
|
|
automatic label was created */
|
|
|
|
int last_locsym = 32768; /* The last local symbol number generated */
|
|
|
|
|
|
int enabl_debug = 0; /* Whether assembler debugging is enabled */
|
|
|
|
int enabl_ama = 0; /* When set, chooses absolute (037) versus
|
|
PC-relative */
|
|
/* (067) addressing mode */
|
|
int enabl_lsb = 0; /* When set, stops non-local symbol
|
|
definitions from delimiting local
|
|
symbol sections. */
|
|
|
|
int enabl_gbl = 1; /* Implicit definition of global symbols */
|
|
|
|
|
|
int suppressed = 0; /* Assembly suppressed by failed conditional */
|
|
|
|
|
|
MLB *mlbs[MAX_MLBS]; /* macro libraries specified on the
|
|
command line */
|
|
int nr_mlbs = 0; /* Number of macro libraries */
|
|
|
|
COND conds[MAX_CONDS]; /* Stack of recent conditions */
|
|
int last_cond; /* 0 means no stacked cond. */
|
|
|
|
SECTION *sect_stack[SECT_STACK_SIZE]; /* 32 saved sections */
|
|
int sect_sp; /* Stack pointer */
|
|
|
|
char *module_name = NULL; /* The module name (taken from the 'TITLE'); */
|
|
|
|
char *ident = NULL; /* .IDENT name */
|
|
|
|
EX_TREE *xfer_address = NULL; /* The transfer address */
|
|
|
|
SYMBOL *current_pc; /* The current program counter */
|
|
|
|
unsigned last_dot_addr; /* Last coded PC... */
|
|
SECTION *last_dot_section; /* ...and it's program section */
|
|
|
|
/* The following are dummy psects for symbols which have meaning to
|
|
the assembler: */
|
|
|
|
SECTION register_section = {
|
|
"", SECTION_REGISTER, 0, 0
|
|
}; /* the section containing the registers */
|
|
|
|
SECTION pseudo_section = {
|
|
"", SECTION_PSEUDO, 0, 0
|
|
}; /* the section containing the
|
|
pseudo-operations */
|
|
|
|
SECTION instruction_section = {
|
|
". ABS.", SECTION_INSTRUCTION, 0, 0
|
|
}; /* the section containing instructions */
|
|
|
|
SECTION macro_section = {
|
|
"", SECTION_SYSTEM, 0, 0, 0
|
|
}; /* Section for macros */
|
|
|
|
/* These are real psects that get written out to the object file */
|
|
|
|
SECTION absolute_section = {
|
|
". ABS.", SECTION_SYSTEM, PSECT_GBL | PSECT_COM, 0, 0, 0
|
|
}; /* The default
|
|
absolute section */
|
|
|
|
SECTION blank_section = {
|
|
"", SECTION_SYSTEM, PSECT_REL, 0, 0, 1
|
|
}; /* The default relocatable section */
|
|
|
|
SECTION *sections[256] = {
|
|
/* Array of sections in the order they were
|
|
defined */
|
|
&absolute_section, &blank_section,
|
|
};
|
|
|
|
int sector = 2; /* number of such sections */
|