warpcore/vm.h at main · zeroflag/warpcore · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
#ifndef VH_H
#define VM_H

#include <stdint.h>
#include <limits.h>

#define PUSH(val)   ( *sp = (val), sp++ )
#define POP         ( *(--sp) )
#define NIP         ( (*(sp-2) = *(sp-1)), sp-- )

#define RPUSH(val)  ( *rp++ = (val) )
#define RPOP        ( *(--rp) )

#define LO(val)    ((val) & 0xFF)
#define HI(val)    (((val) >> 8) & 0xFF)
#define BINARY(op)  ((*(sp-2) = *(sp-2) op *(sp-1)), sp--)
#define UBINARY(op) (*(sp-2) = (cell_t)((ucell_t)*(sp-2) op (ucell_t)*(sp-1)), sp--)
#define UNARY(operator, operand) ( *(sp-1) operator (operand) )
#define NULLARY(op) ( *(sp-1) = op *(sp-1) )
#define COMPARE(op) ( *(sp-2) = *(sp-2) op *(sp-1) ? TRUE : FALSE, sp-- )
#define JUMP_IF(cond) (ip += (cond) ? fetch_cell(ip) : (int)sizeof(cell_t))

#define SET_IP(val) (ip = (uint8_t *) (mem + (val)))
#define SET_SP(val) (sp = (cell_t *) (mem + (val)))
#define SET_RP(val) (rp = (cell_t *) (mem + (val)))

typedef int16_t cell_t;
typedef uint16_t ucell_t;

extern const cell_t MEM_SIZE;

typedef enum {
  OP_ADD   = 0x01,  // "+"
  OP_SUB   = 0x02,  // "-"
  OP_MUL   = 0x03,  // "*"
  OP_DIV   = 0x04,  // "/"
  OP_INC   = 0x05,  // "1+"
  OP_DEC   = 0x06,  // "1-"
  OP_DUP   = 0x07,  // "DUP"
  OP_DROP  = 0x08,  // "DROP"
  OP_SWAP  = 0x09,  // "SWAP"
  OP_NIP   = 0x0A,  // "NIP"
  OP_OVER  = 0x0B,  // "OVER"
  OP_ROT   = 0x0C,  // "ROT"
  OP_INV   = 0x0D,  // "INVERT"
  OP_AND   = 0x0E,  // "AND"
  OP_OR    = 0x0F,  // "OR"
  OP_XOR   = 0x10,  // "XOR"
  OP_GT    = 0x11,  // ">"
  OP_GTE   = 0x12,  // ">="
  OP_LT    = 0x13,  // "<"
  OP_LTE   = 0x14,  // "<="
  OP_EQ    = 0x15,  // "="
  OP_NEQ   = 0x16,  // "<>"
  OP_JMP   = 0x17,  // "JMP"
  OP_JZ    = 0x18,  // "JZ"
  OP_CALL  = 0x19,  // "CALL"
  OP_IN    = 0x1A,  // "IN"
  OP_OUT   = 0x1B,  // "OUT"
  OP_LIT   = 0x1C,  // "LIT"
  OP_MOD   = 0x1D,  // "%"
  OP_RET   = 0x1E,  // "EXIT"
  OP_SP    = 0x1F,  // "SP"
  OP_HLT   = 0x20,  // "HALT"
  OP_SHL   = 0x21,  // "LSHIFT"
  OP_SHR   = 0x22,  // "RSHIFT"
  OP_SAR   = 0x23,  // "ARSHIFT"
  OP_STOR  = 0x24,  // "!"
  OP_LOAD  = 0x25,  // "@"
  OP_RPUSH = 0x26,  // ">R"
  OP_RPOP  = 0x27,  // "R>"
  OP_RTOP  = 0x28,  // "R@"
  OP_DUMP  = 0x29,  // "DUMP"
  OP_ABORT = 0x2A,  // "ABORT"
} Op;

cell_t engage(uint8_t *mem,
              cell_t start_ip,
              cell_t stack,
              cell_t rstack);

void breach(char* format, ...);

#endif // VM_H