1988-06-22 16:57:09 +00:00
|
|
|
/*
|
|
|
|
Definitions of the externs in global.h.
|
|
|
|
Could be generated.
|
|
|
|
*/
|
|
|
|
|
1994-06-24 11:31:16 +00:00
|
|
|
/* $Id$ */
|
1988-06-22 16:57:09 +00:00
|
|
|
|
|
|
|
#include "global.h"
|
|
|
|
|
|
|
|
|
|
|
|
/******** EM Machine capacity parameters ********/
|
|
|
|
|
2019-02-10 13:09:52 +00:00
|
|
|
size wsize = 0;
|
|
|
|
size dwsize = 0;
|
|
|
|
size psize = 0;
|
|
|
|
long i_minsw = 0;
|
|
|
|
long i_maxsw = 0;
|
|
|
|
unsigned long i_maxuw = 0;
|
|
|
|
long min_off = 0;
|
|
|
|
long max_off = 0;
|
|
|
|
ptr max_addr = 0;
|
|
|
|
size wsizem1 = 0;
|
1988-06-22 16:57:09 +00:00
|
|
|
|
|
|
|
|
|
|
|
/******** EM program parameters ********/
|
|
|
|
|
2019-02-10 13:09:52 +00:00
|
|
|
ptr ML = 0;
|
|
|
|
ptr HB = 0;
|
|
|
|
ptr DB = 0;
|
|
|
|
long NProc = 0;
|
|
|
|
long PreIgnMask = 0;
|
1988-06-22 16:57:09 +00:00
|
|
|
|
|
|
|
|
|
|
|
/******** EM machine registers ********/
|
|
|
|
|
|
|
|
|
2019-02-10 13:09:52 +00:00
|
|
|
long PI = 0;
|
|
|
|
ptr PC = 0;
|
1988-06-22 16:57:09 +00:00
|
|
|
|
2019-02-10 13:09:52 +00:00
|
|
|
ptr HP = 0;
|
|
|
|
ptr SP = 0;
|
|
|
|
ptr LB = 0;
|
|
|
|
ptr AB = 0;
|
1988-06-22 16:57:09 +00:00
|
|
|
|
2019-02-10 13:09:52 +00:00
|
|
|
long ES = 0;
|
|
|
|
int ES_def = 0;
|
1988-06-22 16:57:09 +00:00
|
|
|
|
2019-02-10 13:09:52 +00:00
|
|
|
int OnTrap = 0;
|
|
|
|
long IgnMask = 0;
|
|
|
|
long TrapPI = 0;
|
1988-06-22 16:57:09 +00:00
|
|
|
|
2019-02-10 13:09:52 +00:00
|
|
|
char *FRA = NULL;
|
|
|
|
size FRALimit = 0;
|
|
|
|
size FRASize = 0;
|
|
|
|
int FRA_def = 0;
|
1988-06-22 16:57:09 +00:00
|
|
|
|
|
|
|
|
|
|
|
/******** The EM Machine Memory ********/
|
|
|
|
|
2019-02-10 13:09:52 +00:00
|
|
|
char *text = NULL;
|
1988-06-22 16:57:09 +00:00
|
|
|
|
2019-02-10 13:09:52 +00:00
|
|
|
char *data = NULL;
|
|
|
|
ptr HL = 0;
|
1988-06-22 16:57:09 +00:00
|
|
|
|
2019-02-10 13:09:52 +00:00
|
|
|
char *stack = NULL;
|
|
|
|
char *stackML = NULL;
|
|
|
|
ptr SL = 0;
|
1988-06-22 16:57:09 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|