crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

nga-c-wip: start work on setting up a single struct to hold the system state (#67)

Browse source 
FossilOrigin-Name: ca0e3ee3d97c7188edbb9ef4a86ede7ae2cc141d5d8ed20c33c9ca7a0f400c02
This commit is contained in:
crc 2021-06-11 19:51:42 +00:00
parent ac848b05f5
commit e8d09ec1ec
1 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
vm/nga-c/retro-wip.c
View file

@ -83,6 +83,28 @@
#include "image.c"
typedef void (*Handler)(void);
/* Issue 66 ----------- */
struct Nga {
CELL sp, rp, ip; /* Stack & instruction pointers */
CELL data[STACK_DEPTH]; /* The data stack */
CELL address[ADDRESSES]; /* The address stack */
CELL memory[IMAGE_SIZE]; /* RAM */
char code_start[33], code_end[33], test_start[33], test_end[33];
Handler DeviceHandlers[MAX_DEVICES];
Handler QueryHandlers[MAX_DEVICES];
Handler Bindings[1000];
char string_data[8192];
char **sys_argv;
int sys_argc;
char scripting_sources[64][8192];
int current_source;
int perform_abort;
};
/* Function Prototypes ----------------------------------------------- */
CELL stack_pop();
void stack_push(CELL value);
@ -159,7 +181,6 @@ int devices; /* The number of I/O devices */
char code_start[33], code_end[33], test_start[33], test_end[33];
/* Populate The I/O Device Tables ------------------------------------ */
typedef void (*Handler)(void);
Handler IO_deviceHandlers[MAX_DEVICES];
Handler IO_queryHandlers[MAX_DEVICES];