#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 */