@@ -1,3 +1,4 @@
+# $Header$
d=../..
l=$d/lib
h=$d/h
@@ -18,6 +18,10 @@
*
*/
+#ifndef NORCSID
+static char rcs_id[] = "$Header$" ;
+#endif
+
/*
** Main routine of EM1-assembler/loader
@@ -5,6 +5,8 @@
#include "../../h/arch.h"
#include "../../h/local.h"
+#define RCS_ASS "$Header$"
* compile time options
@@ -19,6 +19,11 @@
#include "assex.h"
#include "ip_spec.h"
+static char rcs_ip[] = RCS_IP ;
short opt_line ; /* max_line_no - # lines removed from end
after perfoming exc's.
Used to estimate the distance in # of
@@ -17,6 +17,11 @@
#include "ass00.h"
** Make scans to do final assignment of instruction sizes & formats
** to those not already done. assign final values to labels
@@ -19,6 +19,10 @@
** Pass 5 of EM1 assembler/loader
** Fix reloc tables
#ifdef DUMP
static char *typestr[] =
{"missing","const","procname","glosym","locsym","glosym+off","pseudo"};
** utilities of EM1-assembler/loader
#include "../../h/em_path.h"
* this file contains several library routines.
@@ -21,6 +21,10 @@
#include "../../h/em_pseu.h"
#include "../../h/em_ptyp.h"
* read compact code and fill in tables
@@ -31,6 +31,10 @@
#ifdef MEMUSE
static unsigned m_used = 0 ;
static unsigned m_free = 0 ;
@@ -1,5 +1,12 @@
+static char rcs_ass[]= RCS_ASS ;
+static char rcs_ex[] = RCS_EX ;
* global data
@@ -2,6 +2,8 @@
+#define RCS_EX "$Header$"
extern int wordsize;
extern int ptrsize;
extern cons_t maxadr;
#define COPYFINAL 1
#define COPYTEMP 0
@@ -1,5 +1,7 @@
/* Contents of flags used when describing interpreter opcodes */
+#define RCS_IP "$Header$"
#define OPTYPE 07 /* type field in flag */
#define OPMINI 0 /* m MINI */
@@ -20,6 +20,10 @@
#include "../../h/em_spec.h"
#include "../../h/em_flag.h"
/* This program reads the human readable interpreter specification
and produces a efficient machine representation that can be
translated by a C-compiler.