mirror of
https://github.com/open-simh/simtools.git
synced 2026-01-25 19:56:30 +00:00
Import J Hoppe's 20090427 release from http://retrocmp.com/tools/macro-11-on-windows
This commit is contained in:
Sergey Svishchev
380
object.h
380
object.h
@@ -38,71 +38,73 @@ 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 */
|
||||
#include <stdio.h>
|
||||
|
||||
#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 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 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 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 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 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 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 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 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 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_BYTE 0200 /* RLD modifies a byte, else a word */
|
||||
#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. */
|
||||
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_NOP 00 /* NOP - used for padding */
|
||||
#define CPLX_ADD 01
|
||||
#define CPLX_SUB 02
|
||||
#define CPLX_MUL 03
|
||||
@@ -112,99 +114,197 @@ DAMAGE.
|
||||
#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 */
|
||||
#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 */
|
||||
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);
|
||||
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 */
|
||||
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);
|
||||
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;
|
||||
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);
|
||||
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);
|
||||
int write_endmod(
|
||||
FILE *fp);
|
||||
|
||||
#endif /* OBJECT_J */
|
||||
|
||||
Reference in New Issue
Block a user