mirror of https://git.sr.ht/~rabbits/uxn
55 lines
1.4 KiB
C
55 lines
1.4 KiB
C
/*
|
|
Copyright (c) 2021 Devine Lu Linvega
|
|
|
|
Permission to use, copy, modify, and distribute this software for any
|
|
purpose with or without fee is hereby granted, provided that the above
|
|
copyright notice and this permission notice appear in all copies.
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
WITH REGARD TO THIS SOFTWARE.
|
|
*/
|
|
|
|
typedef unsigned char Uint8;
|
|
typedef signed char Sint8;
|
|
typedef unsigned short Uint16;
|
|
typedef signed short Sint16;
|
|
typedef unsigned int Uint32;
|
|
|
|
#define PAGE_PROGRAM 0x0100
|
|
#define VISOR_DEV 0xfa00
|
|
#define VISOR_WST 0xfb00
|
|
#define VISOR_RST 0xfc00
|
|
#define PAGE_DEV 0xfd00
|
|
#define PAGE_WST 0xfe00
|
|
#define PAGE_RST 0xff00
|
|
|
|
/* clang-format off */
|
|
|
|
#define DEVPEEK16(o, x) { (o) = (d->dat[(x)] << 8) + d->dat[(x) + 1]; }
|
|
#define DEVPOKE16(x, y) { d->dat[(x)] = (y) >> 8; d->dat[(x) + 1] = (y); }
|
|
#define GETVECTOR(d) ((d)->dat[0] << 8 | (d)->dat[1])
|
|
|
|
/* clang-format on */
|
|
|
|
typedef struct {
|
|
Uint8 ptr, dat[255];
|
|
} Stack;
|
|
|
|
typedef struct Device {
|
|
struct Uxn *u;
|
|
Uint8 *dat, *mem;
|
|
Uint8 (*dei)(struct Device *d, Uint8);
|
|
void (*deo)(struct Device *d, Uint8);
|
|
} Device;
|
|
|
|
typedef struct Uxn {
|
|
Uint8 *ram, *devpage;
|
|
Stack *wst, *rst;
|
|
Device dev[16];
|
|
} Uxn;
|
|
|
|
int uxn_boot(Uxn *u, Uint8 *ram, Uint8 *devpage, Stack *wst, Stack *rst);
|
|
int uxn_eval(Uxn *u, Uint16 pc);
|
|
int uxn_halt(Uxn *u, Uint8 error, Uint16 addr);
|
|
Device *uxn_port(Uxn *u, Uint8 id, Uint8 (*deifn)(Device *, Uint8), void (*deofn)(Device *, Uint8));
|