github.com/DoctorWkt.unix-jun72
1
0
Fork 0
mirror of https://github.com/DoctorWkt/unix-jun72.git synced 2026-02-14 20:07:17 +00:00
Code Issues Releases Wiki Activity
Files
ca609eba9faaccc6abf6d8db04892016147fec5b
DoctorWkt.unix-jun72/tools/apout/defines.h
warren.toomey 4d820ab2f3 Add __APPLE__ for OS X. Remove -static for OS X.
2008-05-09 14:05:29 +00:00

637 lines
16 KiB
C
Raw Blame History

/* defines.h - Definitions of things needed in all C files
*
* $Revision: 2.74 $
* $Date: 2008/05/09 14:04:41 $
*/
#include <sys/types.h>
#include <sys/param.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <signal.h>
#include <errno.h>
/* Defines for ifdef'd code -- define them in the Makefile */
/* #define DEBUG adds in debugging code */
/* #define ZERO_MEMORY zeros all of process memory before
it starts to run */
/* #define NATIVES allows native binaries and PDP-11
binaries in the filespace */
/* #define EMU211 add 2.11BSD emulation */
/* #define EMUV1 add 1st Edition emulation */
/* #define INLINE inline inlines some functions (needs gcc) */
/* Optimisation defines */
#ifndef INLINE
# define INLINE
#endif
/* Special defines to enable/disable certain
* functionality. These are added as required
* to port to new platforms. Please send in new
* defines, please!
*/
#if defined(__FreeBSD__) && __FreeBSD__ < 3
# define NO_GETPGID
#endif
#ifdef __FreeBSD__
# define Reboot(x) reboot(x)
#endif
#ifdef __linux__
# define NO_CHFLAGS
# define NO_STFLAGS
# define NO_GETPGID
# define NEED_MAP_FCNTL
# define SIGEMT 0
# ifndef SIGSYS
# define SIGSYS 0
# endif
# define OXTABS XTABS
# define VDSUSP VSUSP /* I don't think these are equivalent */
# define O_SHLOCK 0
# define O_EXLOCK 0
#endif
#if defined(__NetBSD__) || defined(__OpenBSD__)
# define Reboot(x) reboot(x,NULL)
#endif
#ifndef Reboot
# define Reboot(x) exit(0)
#endif
#if !defined(__FreeBSD__) && !defined(__NetBSD__) && \
!defined(__OpenBSD__) && !defined(__linux__) && !defined(__APPLE__)
# define NEED_INT_N
#endif
/* Type definitions for PDP data types. You may need to
* define NEED_INT_N if your system doesn't provide the
* types defined below. If you do this, the best way is
* to add some #if .. #define .. #endif lines above,
* rather then modifying the ones below. If you make
* changes to the #if's above, then I would be very
* happy to include them.
*
* Warren Toomey: wkt@tuhs.org
*/
#ifdef NEED_INT_N
typedef char int8_t;
typedef short int16_t;
typedef long int32_t;
typedef unsigned char u_int8_t;
typedef unsigned short u_int16_t;
typedef unsigned long u_int32_t;
#endif
/* Macro defines for debug output, makes
* the code look somewhat cleaner
*/
#ifdef DEBUG
# define TrapDebug(x) if (trap_debug) (void)fprintf x
# define InstDebug(x) if (inst_debug) (void)fprintf x
# define JsrDebug(x) if (jsr_debug) (void)fprintf x
# define FpDebug(x) if (fp_debug) (void)fprintf x
#else
# define TrapDebug(x)
# define InstDebug(x)
# define JsrDebug(x)
# define FpDebug(x)
#endif
/* Defines for -DSTREAM_BUFFERING */
#define NFILE 40 /* Number of file pointers we can buffer */
#define ValidFD(x) ((x>=0) && (x<NFILE))
/* Used for opening on directories */
#define TMP_PLATE "/usr/tmp/apout_dir.XXXXXX"
/* Set up prototype macro for
* both K&R and ANSI C platforms
*/
#ifdef __STDC__
#define P(s) s
#else
#define P(s) ()
#endif
typedef void (*_itab) P((void));
extern _itab itab[]; /* Instruction Table for Fast Decode. */
typedef float FLOAT; /* For now, we use floats to do FP */
/* PDP processor defines. */
#define SP 6 /* stack pointer */
#define PC 7 /* program counter */
#define CC_NBIT 010 /* Positions of the flags in the */
#define CC_ZBIT 04 /* processor status word */
#define CC_VBIT 02
#define CC_CBIT 01
#define PDP_MEM_SIZE 65536 /* Size of inst-space and data-space */
#define MAX_ARGS 200 /* Max cmd-line args per process */
/* Global variables. */
extern u_int16_t regs[8]; /* general registers */
extern u_int16_t ir; /* current instruction register */
extern int CC_N; /* The processor status word is represented */
extern int CC_Z; /* by these four values. On some */
extern int CC_V; /* architectures, you may get a performance */
extern int CC_C; /* increase by changing the size of the vars */
extern FLOAT fregs[8]; /* FP registers */
extern int FPC; /* FP Status flags */
extern int FPZ;
extern int FPN;
extern int FPV;
extern int FPMODE; /* 0 = float, 1 = doubles */
extern int INTMODE; /* 0 = integers, 1 = longs */
extern u_int16_t ea_addr; /* stored address for dest modifying insts */
extern u_int8_t *ispace, *dspace;
extern u_int16_t dwrite_base; /* Lowest addr where dspace writes can occur */
extern u_int16_t dstword; /* These globals are used in the effective */
extern u_int16_t srcword; /* address calculations, mainly to save */
extern u_int16_t tmpword; /* parameter passing overheads in */
extern u_int8_t dstbyte; /* function calls */
extern u_int8_t srcbyte;
extern u_int8_t tmpbyte;
/* The following array holds the FILE pointers
* that correspond to open file descriptors.
* Only fds which are not ttys have
* FILE * pointers
*/
extern FILE *stream[NFILE];
extern char *streammode[NFILE];
extern int sig_arrived; /* Indicates if a signal has arrived */
extern int Argc, Envc; /* Arguments passed to new process */
extern char *Argv[MAX_ARGS], *Envp[MAX_ARGS];
extern int Binary; /* Type of binary this a.out is. One of: */
#define IS_UNKNOWN 0
#define IS_V1 1
#define IS_V2 2
#define IS_V3 3
#define IS_V4 4
#define IS_V5 5
#define IS_V6 6
#define IS_V7 7
#define IS_A68 68
#define IS_29BSD 29
#define IS_211BSD 211
/* 2.11BSD overlay stuff */
extern u_int32_t ov_changes; /* Number of overlay changes */
extern u_int8_t current_ov; /* Current overlay number */
#ifdef DEBUG
/* Debugging flags */
extern int inst_debug, /* Print a line before each instruction */
trap_debug, /* Print details of each trap */
jsr_debug, /* Print out each jsr */
fp_debug; /* Print out each floating-point instruction */
extern FILE *dbg_file; /* Debugging output file */
extern char *progname; /* The program's name - used in debugging */
#endif
/* We keep a list of signals that are pending */
struct our_siglist {
int sig; /* Number of the signal */
struct our_siglist *next;
};
extern struct our_siglist *Sighead; /* Head of the list */
extern struct our_siglist *Sigtail; /* Tail of the list */
/* Inline defines. */
#define CLR_CC_V() CC_V=0
#define CLR_CC_C() CC_C=0
#define CLR_CC_Z() CC_Z=0
#define CLR_CC_N() CC_N=0
#define CLR_CC_ALL() CC_V=CC_C=CC_Z=CC_N=0
#define SET_CC_V() CC_V=1
#define SET_CC_C() CC_C=1
#define SET_CC_Z() CC_Z=1
#define SET_CC_N() CC_N=1
#define SRC_MODE (( ir & 07000 ) >> 9 )
#define SRC_REG (( ir & 0700 ) >> 6 )
#define DST_MODE (( ir & 070 ) >> 3 )
#define DST_REG ( ir & 07 )
#define LSBIT 1 /* least significant bit */
#define MPI 0077777 /* most positive integer */
#define MNI 0100000 /* most negative integer */
#define NEG_1 0177777 /* negative one */
#define SIGN 0100000 /* sign bit */
#define CARRY 0200000 /* set if carry out */
#define MPI_B 0177 /* most positive integer (byte) */
#define MNI_B 0200 /* most negative integer (byte) */
#define NEG_1_B 0377 /* negative one (byte) */
#define SIGN_B 0200 /* sign bit (byte) */
#define CARRY_B 0400 /* set if carry out (byte) */
#define LOW16( data ) (u_int16_t)(( data ) & 0177777 ) /* mask the lower 16 bits */
#define LOW8( data ) (u_int8_t)(( data ) & 0377 ) /* mask the lower 8 bits */
#define CHG_CC_N( d ) if ((d) & SIGN ) \
SET_CC_N(); \
else \
CLR_CC_N()
#define CHGB_CC_N( d ) if ((d) & SIGN_B ) \
SET_CC_N(); \
else \
CLR_CC_N()
#define CHG_CC_Z( d ) if ( d ) \
CLR_CC_Z(); \
else \
SET_CC_Z()
#define CHGB_CC_Z( d ) if ( LOW8( d )) \
CLR_CC_Z(); \
else \
SET_CC_Z()
#define CHG_CC_C( d ) if ((d) & CARRY ) \
SET_CC_C(); \
else \
CLR_CC_C()
#define CHG_CC_IC( d ) if ((d) & CARRY ) \
CLR_CC_C(); \
else \
SET_CC_C()
#define CHGB_CC_IC( d ) if ((d) & CARRY_B ) \
CLR_CC_C(); \
else \
SET_CC_C()
#define CHG_CC_V( d1, d2, d3 ) \
if ((( d1 & SIGN ) == ( d2 & SIGN )) \
&& (( d1 & SIGN ) != ( d3 & SIGN ))) \
SET_CC_V(); \
else \
CLR_CC_V()
#define CHG_CC_VC( d1, d2, d3 ) \
if ((( d1 & SIGN ) != ( d2 & SIGN )) \
&& (( d2 & SIGN ) == ( d3 & SIGN ))) \
SET_CC_V(); \
else \
CLR_CC_V()
#define CHG_CC_VS( d1, d2, d3 ) \
if ((( d1 & SIGN ) != ( d2 & SIGN )) \
&& (( d1 & SIGN ) == ( d3 & SIGN ))) \
SET_CC_V(); \
else \
CLR_CC_V()
#define CHGB_CC_V( d1, d2, d3 ) \
if ((( d1 & SIGN_B ) == ( d2 & SIGN_B )) \
&& (( d1 & SIGN_B ) != ( d3 & SIGN_B ))) \
SET_CC_V(); \
else \
CLR_CC_V()
#define CHGB_CC_VC(d1,d2,d3) \
if ((( d1 & SIGN_B ) != ( d2 & SIGN_B )) \
&& (( d2 & SIGN_B ) == ( d3 & SIGN_B ))) \
SET_CC_V(); \
else \
CLR_CC_V()
#define CHG_CC_V_XOR_C_N() \
if ((( CC_C ) && \
( CC_N )) \
|| ((!( CC_C )) && \
( ! ( CC_N )))) \
CLR_CC_V(); \
else \
SET_CC_V()
/* Macros to read and write loctions in
* main memory.
*/
extern u_int16_t *adptr;
#define copylong(to,from) \
buf = (char *) &(to); buf2 = (char *) &(from); \
buf[0]=buf2[2]; buf[1]=buf2[3]; buf[2]=buf2[0]; buf[3]=buf2[1]
#ifndef EMUV1
/* lli_word() - Load a word from the given ispace logical address. */
#define lli_word(addr, word) \
{ adptr= (u_int16_t *)&(ispace[addr]); word= *adptr; }
/* ll_word() - Load a word from the given logical address. */
#define ll_word(addr, word) \
{ adptr= (u_int16_t *)&(dspace[addr]); word= *adptr; }
/* sl_word() - Store a word at the given logical address. */
#ifdef WRITEBASE
#define sl_word(addr, word) \
{ if ((u_int16_t)addr < dwrite_base) seg_fault(); \
adptr= (u_int16_t *)&(dspace[addr]); *adptr= word; }
#else
#define sl_word(addr, word) \
{ adptr= (u_int16_t *)&(dspace[addr]); *adptr= word; }
#endif
/* lli_byte() - Load a byte from the given logical ispace address. */
#define lli_byte(addr, byte) \
byte = ispace[addr];
/* ll_byte() - Load a byte from the given logical address. */
#define ll_byte(addr, byte) \
byte = dspace[addr];
/* sl_byte() - Store a byte at the given logical address. */
#ifdef WRITEBASE
#define sl_byte(addr, byte) \
{ if (addr < dwrite_base) seg_fault(); \
dspace[addr]= byte; }
#else
#define sl_byte(addr, byte) \
{ dspace[addr]= byte; }
#endif
#else
/* These versions of the macros are required */
/* because the KE11-A module is mapped into */
/* a process' memory space in 1st Edition */
#define KE11LO 0177300
#define KE11HI 0177317
/* lli_word() - Load a word from the given ispace logical address. */
#define lli_word(addr, word) \
{ if ((Binary<IS_V3) && (addr>=KE11LO) && (addr<=KE11HI)) { \
word= kell_word(addr); \
} else { adptr= (u_int16_t *)&(ispace[addr]); word= *adptr; } \
}
/* ll_word() - Load a word from the given logical address. */
#define ll_word(addr, word) \
{ if ((Binary<IS_V3) && (addr>=KE11LO) && (addr<=KE11HI)) { \
word= kell_word(addr); \
} else { adptr= (u_int16_t *)&(dspace[addr]); word= *adptr; } \
}
/* sl_word() - Store a word at the given logical address. */
#ifdef WRITEBASE
#define sl_word(addr, word) \
{ if ((u_int16_t)addr < dwrite_base) seg_fault(); \
if ((Binary<IS_V3) && (addr>=KE11LO) && (addr<=KE11HI)) { \
kesl_word(addr, word); \
} else { adptr= (u_int16_t *)&(dspace[addr]); *adptr= word; } \
}
#else
#define sl_word(addr, word) \
{ if ((Binary<IS_V3) && (addr>=KE11LO) && (addr<=KE11HI)) { \
kesl_word(addr, word); \
} else { adptr= (u_int16_t *)&(dspace[addr]); *adptr= word; } \
}
#endif
/* lli_byte() - Load a byte from the given logical ispace address. */
#define lli_byte(addr, byte) \
byte = ispace[addr];
/* ll_byte() - Load a byte from the given logical address. */
#define ll_byte(addr, byte) \
{ if ((Binary<IS_V3) && (addr>=KE11LO) && (addr<=KE11HI)) { \
byte= kell_byte(addr); \
} else byte = dspace[addr]; \
}
/* sl_byte() - Store a byte at the given logical address. */
#ifdef WRITEBASE
#define sl_byte(addr, byte) \
{ if (addr < dwrite_base) seg_fault(); \
if ((Binary<IS_V3) && (addr>=KE11LO) && (addr<=KE11HI)) { \
kesl_byte(addr, byte); \
} else dspace[addr]= byte; \
}
#else
#define sl_byte(addr, byte) \
{ if ((Binary<IS_V3) && (addr>=KE11LO) && (addr<=KE11HI)) { \
kesl_byte(addr, byte); \
} else dspace[addr]= byte; \
}
#endif
#endif
/* Function prototypes */
/* aout.c */
int load_a_out P((const char *file, const char *origpath, int want_env))
/*@globals errno,stdout,stderr; @*/ ;
#ifdef EMU211
void do_bsd_overlay P((void));
#endif
/* branch.c */
void br P((void));
void blos P((void));
void bge P((void));
void blt P((void));
void ble P((void));
void bgt P((void));
void jmp P((void));
void jsr P((void));
void rts P((void));
void bne P((void));
void beq P((void));
void bpl P((void));
void bmi P((void));
void bhi P((void));
void bvc P((void));
void bvs P((void));
void bcc P((void));
void bcs P((void));
void scc P((void));
void ccc P((void));
void sob P((void));
void mfps P((void));
void mtps P((void));
void mfpi P((void));
void mtpi P((void));
void ash P((void));
void mul P((void));
void divide P((void));
void ashc P((void));
void xor P((void));
/* double.c */
void mov P((void));
void movsreg P((void));
void movsreg1 P((void));
void movsreg1pc P((void));
void cmp P((void));
void add P((void));
void sub P((void));
void bit P((void));
void bic P((void));
void bis P((void));
void movb P((void));
void cmpb P((void));
void bitb P((void));
void bicb P((void));
void bisb P((void));
/* cpu.c */
void run P((void));
void sim_init P((void));
void bus_error P((int));
void seg_fault P((void));
void waiti P((void));
void halt P((void));
void iot P((void));
void emt P((void));
void bpt P((void));
void fis P((void));
void illegal P((void));
void not_impl P((void));
void mark P((void));
void mfpd P((void));
void mtpd P((void));
void trap P((void));
void bad_FP_reg P((void));
void sigcatcher P((int sig));
/* ea.c */
void load_ea P((void));
void pop P((void));
void push P((void));
void loadb_dst P((void));
void loadb_src P((void));
void storeb_dst P((void));
void storeb_dst_2 P((void));
void loadp_dst P((void));
void storep_dst P((void));
void load_src P((void));
void store_dst P((void));
void load_dst P((void));
void store_dst_2 P((void));
/* fp.c */
void fpset P((void));
void ldf P((void));
void stf P((void));
void clrf P((void));
void addf P((void));
void subf P((void));
void negf P((void));
void absf P((void));
void mulf P((void));
void moddf P((void));
void divf P((void));
void cmpf P((void));
void tstf P((void));
void ldfps P((void));
void stfps P((void));
void lcdif P((void));
void stcfi P((void));
void stexp P((void));
void stcdf P((void));
void ldcdf P((void));
void stst P((void));
void ldexpp P((void));
/* itab.c */
void dositab0 P((void));
void dositab1 P((void));
/* main.c */
int main P((int argc, char **argv));
void usage P((void));
char * xlate_filename P((char *name));
void set_apout_root P((char *dirname));
/* magic.c */
int special_magic P((u_int16_t *cptr));
/* single.c */
void adc P((void));
void asl P((void));
void asr P((void));
void clr P((void));
void com P((void));
void dec P((void));
void inc P((void));
void neg P((void));
void rol P((void));
void ror P((void));
void sbc P((void));
void swabi P((void));
void sxt P((void));
void tst P((void));
void tstb P((void));
void aslb P((void));
void asrb P((void));
void clrb P((void));
void comb P((void));
void decb P((void));
void incb P((void));
void negb P((void));
void rolb P((void));
void rorb P((void));
void adcb P((void));
void sbcb P((void));
/* v6trap.c */
void v6trap P((void));
/* v7trap.c */
void v7trap P((void));
/* v1trap.c */
void v1trap P((void));
/* bsdtrap.c */
#ifdef EMU211
void bsdtrap P((void)) /*@globals errno,stdout,stderr; @*/ ;
/* bsd_ioctl.h */
int trap_ioctl P((void));
/* bsd_signal.c */
void set_bsdsig_dfl P((void));
int do_sigaction P((int sig, int a, int oa));
#endif
/* ke11a.c */
#ifdef EMUV1
int16_t kell_word P((u_int16_t addr));
void kesl_word P((u_int16_t addr, u_int16_t word));
int8_t kell_byte P((u_int16_t addr));
void kesl_byte P((u_int16_t addr, u_int8_t byte));
void set_SR P((void));
#endif
#undef P
Reference in New Issue View Git Blame Copy Permalink