retroforth/interfaces/image-functions.h
crc 5276c3cb79 start work on a shared set of image interaction functions
FossilOrigin-Name: b8ae988d69cd7ac9ee95b907b0deb66fc54440b691874926b9a5ea5f24716775
2019-01-15 19:02:52 +00:00

57 lines
1.4 KiB
C

/* RETRO ------------------------------------------------------
A personal, minimalistic forth
Copyright (c) 2016 - 2019 Charles Childers
---------------------------------------------------------- */
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <math.h>
#include <sys/types.h>
#ifndef IMAGEFUNCTIONS
#define IMAGEFUNCTIONS
#define TIB 1025
#define D_OFFSET_LINK 0
#define D_OFFSET_XT 1
#define D_OFFSET_CLASS 2
#define D_OFFSET_NAME 3
#define CELL int32_t
#define IMAGE_SIZE 524288 * 8
#define STACK_DEPTH 4096
#define ADDRESSES STACK_DEPTH * 3
extern CELL sp, rp, ip;
extern CELL data[STACK_DEPTH];
extern CELL address[ADDRESSES];
extern CELL memory[IMAGE_SIZE + 1];
#define TOS data[sp]
#define NOS data[sp-1]
#define TORS address[rp]
extern CELL Dictionary;
extern CELL NotFound;
extern CELL Compiler;
extern CELL interpret;
CELL stack_pop();
void stack_push(CELL value);
CELL string_inject(char *str, CELL buffer);
char *string_extract(CELL at);
CELL d_link(CELL dt);
CELL d_xt(CELL dt);
CELL d_class(CELL dt);
CELL d_name(CELL dt);
CELL d_lookup(CELL Dictionary, char *name);
CELL d_xt_for(char *Name, CELL Dictionary);
void update_rx();
void execute(CELL cell);
void ngaProcessOpcode(CELL opcode);
void ngaProcessPackedOpcodes(CELL opcode);
int ngaValidatePackedOpcodes(CELL opcode);
#endif