simtools/crossassemblers/macro11/object.h - emulators/simh - Rivoreo Source Code Repositories

 #ifndef OBJECT_H
 #define OBJECT_H

 /* Object file constant definitions */

 /*

 Copyright (c) 2001, Richard Krehbiel
 All rights reserved.

 Redistribution and use in source and binary forms, with or without
 modification, are permitted provided that the following conditions are
 met:

 o Redistributions of source code must retain the above copyright
   notice, this list of conditions and the following disclaimer.

 o 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.

 o Neither the name of the copyright holder nor the names of its
   contributors may be used to endorse or promote products derived from
   this software without specific prior written permission.

 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS 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 COPYRIGHT
 HOLDERS 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.

 */

 #define FBR_LEAD1 1				/* The byte value that defines the
 								   beginning of a formatted binary
 								   record */
 #define FBR_LEAD2 0				/* Followed by a 0 */
 								/* Followed by two bytes length */
 								/* Followed by (length-4) bytes data */
 								/* Followed by a 1 byte checksum */
 								/* which is the negative sum of all
 								   preceeding bytes */

 #define OBJ_GSD 01				/* GSD (Global symbol directory) */
 #define OBJ_ENDGSD 02			/* ENDGSD */
 #define OBJ_TEXT 03				/* TEXT */
 #define OBJ_RLD 04				/* RLD (Relocation directory) */
 #define OBJ_ISD 05				/* ISD (Internal symbol directory,
 								   currently unused) */
 #define OBJ_ENDMOD 06			/* ENDMOD (End of object module) */
 #define OBJ_LIBHDR 07			/* LIBHDR (Object Library header) */
 #define OBJ_LIBEND 010			/* LIBEND (Object Library header end) */

 #define GSD_MODNAME 00			/* Module name */
 #define GSD_CSECT 01			/* Control section name */
 #define GSD_ISN 02				/* Internal symbol name */
 #define GSD_XFER 03				/* Transfer address */
 #define GSD_GLOBAL 04			/* Global symbol definition/reference */
 #define GSD_PSECT 05			/* PSECT name */
 #define GSD_IDENT 06			/* IDENT */
 #define GSD_VSECT 07			/* VSECT (Virtual array declaration) */

 #define GLOBAL_WEAK 01			/* GLOBAL is weak, else strong */
 #define GLOBAL_DEF 010			/* GLOBAL is definition, else reference */
 #define GLOBAL_REL 040			/* GLOBAL is relative, else absolute */

 #define PSECT_SAV 001			/* PSECT is a root section, else overlay */
 #define PSECT_COM 004			/* PSECT is merged common area, else
 								   contatenated */
 #define PSECT_RO 020			/* PSECT is read-only, else R/W */
 #define PSECT_REL 040			/* PSECT is relative, else absolute
 								   (absolute implies PSECT_COM) */
 #define PSECT_GBL 0100			/* PSECT is overlay-global, else
 								   overlay-local */
 #define PSECT_DATA 0200			/* PSECT contains data, else instructions */

 #define RLD_INT 01				/* "Internal relocation" */
 #define RLD_GLOBAL 02			/* "Global relocation" */
 #define RLD_INT_DISP 03			/* "Internal displaced" */
 #define RLD_GLOBAL_DISP 04		/* "Global displaced" */
 #define RLD_GLOBAL_OFFSET 05	/* "Global additive" */
 #define RLD_GLOBAL_OFFSET_DISP 06 /* "Global additive displaced" */
 #define RLD_LOCDEF 07			/* "Location counter definition" */
 #define RLD_LOCMOD 010			/* "Location counter modification" */
 #define RLD_LIMITS 011			/* ".LIMIT" */
 #define RLD_PSECT 012			/* "P-sect" */
 #define RLD_PSECT_DISP 014		/* "P-sect displaced" */
 #define RLD_PSECT_OFFSET 015	/* "P-sect additive" */
 #define RLD_PSECT_OFFSET_DISP 016 /* "P-sect additive displaced" */
 #define RLD_COMPLEX 017			/* "Complex" */

 #define RLD_BYTE 0200			/* RLD modifies a byte, else a word */

 /* Note: complex relocation is not well documented (in particular, no effort
 	is made to define a section's "sector number"), but I'll just guess
 	it's a stack language. */

 #define CPLX_NOP 00				/* NOP - used for padding */
 #define CPLX_ADD 01
 #define CPLX_SUB 02
 #define CPLX_MUL 03
 #define CPLX_DIV 04
 #define CPLX_AND 05
 #define CPLX_OR 06
 #define CPLX_XOR 07
 #define CPLX_NEG 010
 #define CPLX_COM 011
 #define CPLX_STORE 012			/* Store result, terminate complex string. */
 #define CPLX_STORE_DISP 013		/* Store result PC-relative, terminate */
 #define CPLX_GLOBAL 016			/* Followed by four bytes RAD50 global name */
 #define CPLX_REL 017			/* Followed by one byte "sector
 								   number" and two bytes offset */
 #define CPLX_CONST 020			/* Followed by two bytes constant value */

 typedef struct gsd
 {
 	FILE *fp;					/* The file assigned for output */
 	char buf[122];				/* space for 15 GSD entries */
 	int offset;					/* Current buffer for GSD entries */
 } GSD;

 void gsd_init(GSD *gsd, FILE *fp);
 int gsd_flush(GSD *gsd);
 int gsd_mod(GSD *gsd, char *modname);
 int gsd_csect(GSD *gsd, char *sectname, int size);
 int gsd_intname(GSD *gsd, char *name, unsigned value);
 int gsd_xfer(GSD *gsd, char *name, unsigned value);
 int gsd_global(GSD *gsd, char *name, int flags, unsigned value);
 int gsd_psect(GSD *gsd, char *name, int flags, int size);
 int gsd_ident(GSD *gsd, char *name);
 int gsd_virt(GSD *gsd, char *name, int size);
 int gsd_end(GSD *gsd);

 typedef struct text_rld
 {
 	FILE *fp;				/* The object file, or NULL */
 	char text[128];			/* text buffer */
 	unsigned txt_addr;		/* The base text address */
 	int txt_offset;			/* Current text offset */
 	char rld[128];			/* RLD buffer */
 	int rld_offset;			/* Current RLD offset */
 } TEXT_RLD;

 void text_init(TEXT_RLD *tr, FILE *fp, unsigned addr);
 int text_flush(TEXT_RLD *tr);
 int text_word(TEXT_RLD *tr, unsigned *addr, int size, unsigned word);
 int text_internal_word(TEXT_RLD *tr, unsigned *addr, int size,
 					   unsigned word);
 int text_global_word(TEXT_RLD *tr, unsigned *addr, int size,
 					 unsigned word, char *global);
 int text_displaced_word(TEXT_RLD *tr, unsigned *addr, int size,
 						unsigned word);
 int text_global_displaced_word(TEXT_RLD *tr, unsigned *addr, int size,
 							   unsigned word, char *global);
 int text_global_offset_word(TEXT_RLD *tr, unsigned *addr, int size,
 							unsigned word, char *global);
 int text_global_displaced_offset_word(TEXT_RLD *tr, unsigned *addr,
 									  int size, unsigned word,
 									  char *global);
 int text_define_location(TEXT_RLD *tr, char *name,
 						 unsigned *addr);
 int text_modify_location(TEXT_RLD *tr, unsigned *addr);
 int text_limits(TEXT_RLD *tr, unsigned *addr);
 int text_psect_word(TEXT_RLD *tr, unsigned *addr, int size,
 					unsigned word, char *name);
 int text_psect_offset_word(TEXT_RLD *tr, unsigned *addr,
 						   int size, unsigned word, char *name);
 int text_psect_displaced_word(TEXT_RLD *tr, unsigned *addr,
 							  int size, unsigned word, char *name);
 int text_psect_displaced_offset_word(TEXT_RLD *tr, unsigned *addr,
 									 int size, unsigned word,
 									 char *name);

 typedef struct text_complex
 {
 	char accum[126];
 	int len;
 } TEXT_COMPLEX;

 void text_complex_begin(TEXT_COMPLEX *tx);
 int text_complex_add(TEXT_COMPLEX *tx);
 int text_complex_sub(TEXT_COMPLEX *tx);
 int text_complex_mul(TEXT_COMPLEX *tx);
 int text_complex_div(TEXT_COMPLEX *tx);
 int text_complex_and(TEXT_COMPLEX *tx);
 int text_complex_or(TEXT_COMPLEX *tx);
 int text_complex_xor(TEXT_COMPLEX *tx);
 int text_complex_com(TEXT_COMPLEX *tx);
 int text_complex_neg(TEXT_COMPLEX *tx);
 int text_complex_lit(TEXT_COMPLEX *tx, unsigned word);
 int text_complex_global(TEXT_COMPLEX *tx, char *name);
 int text_complex_psect(TEXT_COMPLEX *tx, unsigned sect,
 					   unsigned offset);
 int text_complex_commit(TEXT_RLD *tr, unsigned *addr,
 						int size, TEXT_COMPLEX *tx,
 						unsigned word);
 int text_complex_commit_displaced(TEXT_RLD *tr, unsigned *addr,
 								  int size, TEXT_COMPLEX *tx,
 								  unsigned word);

 int write_endmod(FILE *fp);

 #endif /* OBJECT_J */
	#ifndef OBJECT_H
	#define OBJECT_H

	/* Object file constant definitions */

	/*

	Copyright (c) 2001, Richard Krehbiel
	All rights reserved.

	Redistribution and use in source and binary forms, with or without
	modification, are permitted provided that the following conditions are
	met:

	o Redistributions of source code must retain the above copyright
	notice, this list of conditions and the following disclaimer.

	o 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.

	o Neither the name of the copyright holder nor the names of its
	contributors may be used to endorse or promote products derived from
	this software without specific prior written permission.

	THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS 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 COPYRIGHT
	HOLDERS 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.

	*/

	#define FBR_LEAD1 1 /* The byte value that defines the
	beginning of a formatted binary
	record */
	#define FBR_LEAD2 0 /* Followed by a 0 */
	/* Followed by two bytes length */
	/* Followed by (length-4) bytes data */
	/* Followed by a 1 byte checksum */
	/* which is the negative sum of all
	preceeding bytes */

	#define OBJ_GSD 01 /* GSD (Global symbol directory) */
	#define OBJ_ENDGSD 02 /* ENDGSD */
	#define OBJ_TEXT 03 /* TEXT */
	#define OBJ_RLD 04 /* RLD (Relocation directory) */
	#define OBJ_ISD 05 /* ISD (Internal symbol directory,
	currently unused) */
	#define OBJ_ENDMOD 06 /* ENDMOD (End of object module) */
	#define OBJ_LIBHDR 07 /* LIBHDR (Object Library header) */
	#define OBJ_LIBEND 010 /* LIBEND (Object Library header end) */

	#define GSD_MODNAME 00 /* Module name */
	#define GSD_CSECT 01 /* Control section name */
	#define GSD_ISN 02 /* Internal symbol name */
	#define GSD_XFER 03 /* Transfer address */
	#define GSD_GLOBAL 04 /* Global symbol definition/reference */
	#define GSD_PSECT 05 /* PSECT name */
	#define GSD_IDENT 06 /* IDENT */
	#define GSD_VSECT 07 /* VSECT (Virtual array declaration) */

	#define GLOBAL_WEAK 01 /* GLOBAL is weak, else strong */
	#define GLOBAL_DEF 010 /* GLOBAL is definition, else reference */
	#define GLOBAL_REL 040 /* GLOBAL is relative, else absolute */

	#define PSECT_SAV 001 /* PSECT is a root section, else overlay */
	#define PSECT_COM 004 /* PSECT is merged common area, else
	contatenated */
	#define PSECT_RO 020 /* PSECT is read-only, else R/W */
	#define PSECT_REL 040 /* PSECT is relative, else absolute
	(absolute implies PSECT_COM) */
	#define PSECT_GBL 0100 /* PSECT is overlay-global, else
	overlay-local */
	#define PSECT_DATA 0200 /* PSECT contains data, else instructions */

	#define RLD_INT 01 /* "Internal relocation" */
	#define RLD_GLOBAL 02 /* "Global relocation" */
	#define RLD_INT_DISP 03 /* "Internal displaced" */
	#define RLD_GLOBAL_DISP 04 /* "Global displaced" */
	#define RLD_GLOBAL_OFFSET 05 /* "Global additive" */
	#define RLD_GLOBAL_OFFSET_DISP 06 /* "Global additive displaced" */
	#define RLD_LOCDEF 07 /* "Location counter definition" */
	#define RLD_LOCMOD 010 /* "Location counter modification" */
	#define RLD_LIMITS 011 /* ".LIMIT" */
	#define RLD_PSECT 012 /* "P-sect" */
	#define RLD_PSECT_DISP 014 /* "P-sect displaced" */
	#define RLD_PSECT_OFFSET 015 /* "P-sect additive" */
	#define RLD_PSECT_OFFSET_DISP 016 /* "P-sect additive displaced" */
	#define RLD_COMPLEX 017 /* "Complex" */

	#define RLD_BYTE 0200 /* RLD modifies a byte, else a word */

	/* Note: complex relocation is not well documented (in particular, no effort
	is made to define a section's "sector number"), but I'll just guess
	it's a stack language. */

	#define CPLX_NOP 00 /* NOP - used for padding */
	#define CPLX_ADD 01
	#define CPLX_SUB 02
	#define CPLX_MUL 03
	#define CPLX_DIV 04
	#define CPLX_AND 05
	#define CPLX_OR 06
	#define CPLX_XOR 07
	#define CPLX_NEG 010
	#define CPLX_COM 011
	#define CPLX_STORE 012 /* Store result, terminate complex string. */
	#define CPLX_STORE_DISP 013 /* Store result PC-relative, terminate */
	#define CPLX_GLOBAL 016 /* Followed by four bytes RAD50 global name */
	#define CPLX_REL 017 /* Followed by one byte "sector
	number" and two bytes offset */
	#define CPLX_CONST 020 /* Followed by two bytes constant value */

	typedef struct gsd
	{
	FILE fp; / The file assigned for output */
	char buf[122]; /* space for 15 GSD entries */
	int offset; /* Current buffer for GSD entries */
	} GSD;

	void gsd_init(GSD gsd, FILE fp);
	int gsd_flush(GSD *gsd);
	int gsd_mod(GSD gsd, char modname);
	int gsd_csect(GSD gsd, char sectname, int size);
	int gsd_intname(GSD gsd, char name, unsigned value);
	int gsd_xfer(GSD gsd, char name, unsigned value);
	int gsd_global(GSD gsd, char name, int flags, unsigned value);
	int gsd_psect(GSD gsd, char name, int flags, int size);
	int gsd_ident(GSD gsd, char name);
	int gsd_virt(GSD gsd, char name, int size);
	int gsd_end(GSD *gsd);

	typedef struct text_rld
	{
	FILE fp; / The object file, or NULL */
	char text[128]; /* text buffer */
	unsigned txt_addr; /* The base text address */
	int txt_offset; /* Current text offset */
	char rld[128]; /* RLD buffer */
	int rld_offset; /* Current RLD offset */
	} TEXT_RLD;

	void text_init(TEXT_RLD tr, FILE fp, unsigned addr);
	int text_flush(TEXT_RLD *tr);
	int text_word(TEXT_RLD tr, unsigned addr, int size, unsigned word);
	int text_internal_word(TEXT_RLD tr, unsigned addr, int size,
	unsigned word);
	int text_global_word(TEXT_RLD tr, unsigned addr, int size,
	unsigned word, char *global);
	int text_displaced_word(TEXT_RLD tr, unsigned addr, int size,
	unsigned word);
	int text_global_displaced_word(TEXT_RLD tr, unsigned addr, int size,
	unsigned word, char *global);
	int text_global_offset_word(TEXT_RLD tr, unsigned addr, int size,
	unsigned word, char *global);
	int text_global_displaced_offset_word(TEXT_RLD tr, unsigned addr,
	int size, unsigned word,
	char *global);
	int text_define_location(TEXT_RLD tr, char name,
	unsigned *addr);
	int text_modify_location(TEXT_RLD tr, unsigned addr);
	int text_limits(TEXT_RLD tr, unsigned addr);
	int text_psect_word(TEXT_RLD tr, unsigned addr, int size,
	unsigned word, char *name);
	int text_psect_offset_word(TEXT_RLD tr, unsigned addr,
	int size, unsigned word, char *name);
	int text_psect_displaced_word(TEXT_RLD tr, unsigned addr,
	int size, unsigned word, char *name);
	int text_psect_displaced_offset_word(TEXT_RLD tr, unsigned addr,
	int size, unsigned word,
	char *name);

	typedef struct text_complex
	{
	char accum[126];
	int len;
	} TEXT_COMPLEX;

	void text_complex_begin(TEXT_COMPLEX *tx);
	int text_complex_add(TEXT_COMPLEX *tx);
	int text_complex_sub(TEXT_COMPLEX *tx);
	int text_complex_mul(TEXT_COMPLEX *tx);
	int text_complex_div(TEXT_COMPLEX *tx);
	int text_complex_and(TEXT_COMPLEX *tx);
	int text_complex_or(TEXT_COMPLEX *tx);
	int text_complex_xor(TEXT_COMPLEX *tx);
	int text_complex_com(TEXT_COMPLEX *tx);
	int text_complex_neg(TEXT_COMPLEX *tx);
	int text_complex_lit(TEXT_COMPLEX *tx, unsigned word);
	int text_complex_global(TEXT_COMPLEX tx, char name);
	int text_complex_psect(TEXT_COMPLEX *tx, unsigned sect,
	unsigned offset);
	int text_complex_commit(TEXT_RLD tr, unsigned addr,
	int size, TEXT_COMPLEX *tx,
	unsigned word);
	int text_complex_commit_displaced(TEXT_RLD tr, unsigned addr,
	int size, TEXT_COMPLEX *tx,
	unsigned word);

	int write_endmod(FILE *fp);

	#endif /* OBJECT_J */