Home Explore Help
Sign In
RISCI_ATOM
/
Stage0
mirror of https://git.savannah.gnu.org/git/stage0.git
1
0
Fork 0
Files Issues 0 Wiki
Tree: f32aefd0e3
Branches Tags
Stage0
/
vm.h

vm.h 13 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307 
  1. /* Copyright (C) 2016 Jeremiah Orians
    2. 

  2.  * This file is part of stage0.
    3. 

  3.  *
    4. 

  4.  * stage0 is free software: you can redistribute it and/or modify
    5. 

  5.  * it under the terms of the GNU General Public License as published by
    6. 

  6.  * the Free Software Foundation, either version 3 of the License, or
    7. 

  7.  * (at your option) any later version.
    8. 

  8.  *
    9. 

  9.  * stage0 is distributed in the hope that it will be useful,
    10. 

  10.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
    11. 

  11.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    12. 

  12.  * GNU General Public License for more details.
    13. 

  13.  *
    14. 

  14.  * You should have received a copy of the GNU General Public License
    15. 

  15.  * along with stage0.  If not, see <http://www.gnu.org/licenses/>.
    16. 

  16.  */
    17. 

  17. 

  18. #include <stdio.h>
    19. 

  19. #include <stdlib.h>
    20. 

  20. #include <stdint.h>
    21. 

  21. #include <stdbool.h>
    22. 

  22. #include <string.h>
    23. 

  23. 

  24. #ifdef VM256
    25. 

  25. typedef __int512_t signed_wide_register;
    26. 

  26. typedef __uint512_t unsigned_wide_register;
    27. 

  27. typedef __int256_t signed_vm_register;
    28. 

  28. typedef __uint256_t unsigned_vm_register;
    29. 

  29. #define umax 256
    30. 

  30. #define imax 255
    31. 

  31. #define reg_size 32
    32. 

  32. #elif VM128
    33. 

  33. typedef __int256_t signed_wide_register;
    34. 

  34. typedef __uint256_t unsigned_wide_register;
    35. 

  35. typedef __int128_t signed_vm_register;
    36. 

  36. typedef __uint128_t unsigned_vm_register;
    37. 

  37. #define umax 128
    38. 

  38. #define imax 127
    39. 

  39. #define reg_size 16
    40. 

  40. #elif VM64
    41. 

  41. typedef __int128_t signed_wide_register;
    42. 

  42. typedef __uint128_t unsigned_wide_register;
    43. 

  43. typedef int64_t signed_vm_register;
    44. 

  44. typedef uint64_t unsigned_vm_register;
    45. 

  45. #define umax 64
    46. 

  46. #define imax 63
    47. 

  47. #define reg_size 8
    48. 

  48. #elif VM32
    49. 

  49. typedef int64_t signed_wide_register;
    50. 

  50. typedef uint64_t unsigned_wide_register;
    51. 

  51. typedef int32_t signed_vm_register;
    52. 

  52. typedef uint32_t unsigned_vm_register;
    53. 

  53. #define umax 32
    54. 

  54. #define imax 31
    55. 

  55. #define reg_size 4
    56. 

  56. #else
    57. 

  57. typedef int32_t signed_wide_register;
    58. 

  58. typedef uint32_t unsigned_wide_register;
    59. 

  59. typedef int16_t signed_vm_register;
    60. 

  60. typedef uint16_t unsigned_vm_register;
    61. 

  61. #define umax 16
    62. 

  62. #define imax 15
    63. 

  63. #define reg_size 2
    64. 

  64. #endif
    65. 

  65. 

  66. /* Virtual machine state */
    67. 

  67. struct lilith
    68. 

  68. {
    69. 

  69. 	uint8_t *memory;
    70. 

  70. 	size_t amount_of_Ram;
    71. 

  71. 	unsigned_vm_register reg[16];
    72. 

  72. 	unsigned_vm_register ip;
    73. 

  73. 	bool halted;
    74. 

  74. 	bool exception;
    75. 

  75. };
    76. 

  76. 

  77. /* Unpacked instruction */
    78. 

  78. struct Instruction
    79. 

  79. {
    80. 

  80. 	unsigned_vm_register ip;
    81. 

  81. 	uint8_t raw0, raw1, raw2, raw3;
    82. 

  82. 	char opcode[3];
    83. 

  83. 	uint32_t raw_XOP;
    84. 

  84. 	char XOP[6];
    85. 

  85. 	char operation[9];
    86. 

  86. 	int16_t raw_Immediate;
    87. 

  87. 	char Immediate[7];
    88. 

  88. 	uint32_t HAL_CODE;
    89. 

  89. 	uint8_t reg0;
    90. 

  90. 	uint8_t reg1;
    91. 

  91. 	uint8_t reg2;
    92. 

  92. 	uint8_t reg3;
    93. 

  93. 	bool invalid;
    94. 

  94. };
    95. 

  95. 

  96. /* Prototypes for functions in vm_instructions.c*/
    97. 

  97. void vm_FOPEN_READ(struct lilith* vm);
    98. 

  98. void vm_FOPEN_WRITE(struct lilith* vm);
    99. 

  99. void vm_FCLOSE(struct lilith* vm);
    100. 

  100. void vm_FSEEK(struct lilith* vm);
    101. 

  101. void vm_REWIND(struct lilith* vm);
    102. 

  102. void vm_FGETC(struct lilith* vm);
    103. 

  103. void vm_FPUTC(struct lilith* vm);
    104. 

  104. void vm_HAL_MEM(struct lilith* vm);
    105. 

  105. void ADD_CI(struct lilith* vm, struct Instruction* c);
    106. 

  106. void ADD_CO(struct lilith* vm, struct Instruction* c);
    107. 

  107. void ADD_CIO(struct lilith* vm, struct Instruction* c);
    108. 

  108. void ADDU_CI(struct lilith* vm, struct Instruction* c);
    109. 

  109. void ADDU_CO(struct lilith* vm, struct Instruction* c);
    110. 

  110. void ADDU_CIO(struct lilith* vm, struct Instruction* c);
    111. 

  111. void SUB_BI(struct lilith* vm, struct Instruction* c);
    112. 

  112. void SUB_BO(struct lilith* vm, struct Instruction* c);
    113. 

  113. void SUB_BIO(struct lilith* vm, struct Instruction* c);
    114. 

  114. void SUBU_BI(struct lilith* vm, struct Instruction* c);
    115. 

  115. void SUBU_BO(struct lilith* vm, struct Instruction* c);
    116. 

  116. void SUBU_BIO(struct lilith* vm, struct Instruction* c);
    117. 

  117. void MULTIPLY(struct lilith* vm, struct Instruction* c);
    118. 

  118. void MULTIPLYU(struct lilith* vm, struct Instruction* c);
    119. 

  119. void DIVIDE(struct lilith* vm, struct Instruction* c);
    120. 

  120. void DIVIDEU(struct lilith* vm, struct Instruction* c);
    121. 

  121. void MUX(struct lilith* vm, struct Instruction* c);
    122. 

  122. void NMUX(struct lilith* vm, struct Instruction* c);
    123. 

  123. void SORT(struct lilith* vm, struct Instruction* c);
    124. 

  124. void SORTU(struct lilith* vm, struct Instruction* c);
    125. 

  125. void ADD(struct lilith* vm, struct Instruction* c);
    126. 

  126. void ADDU(struct lilith* vm, struct Instruction* c);
    127. 

  127. void SUB(struct lilith* vm, struct Instruction* c);
    128. 

  128. void SUBU(struct lilith* vm, struct Instruction* c);
    129. 

  129. void CMP(struct lilith* vm, struct Instruction* c);
    130. 

  130. void CMPU(struct lilith* vm, struct Instruction* c);
    131. 

  131. void MUL(struct lilith* vm, struct Instruction* c);
    132. 

  132. void MULH(struct lilith* vm, struct Instruction* c);
    133. 

  133. void MULU(struct lilith* vm, struct Instruction* c);
    134. 

  134. void MULUH(struct lilith* vm, struct Instruction* c);
    135. 

  135. void DIV(struct lilith* vm, struct Instruction* c);
    136. 

  136. void MOD(struct lilith* vm, struct Instruction* c);
    137. 

  137. void DIVU(struct lilith* vm, struct Instruction* c);
    138. 

  138. void MODU(struct lilith* vm, struct Instruction* c);
    139. 

  139. void MAX(struct lilith* vm, struct Instruction* c);
    140. 

  140. void MAXU(struct lilith* vm, struct Instruction* c);
    141. 

  141. void MIN(struct lilith* vm, struct Instruction* c);
    142. 

  142. void MINU(struct lilith* vm, struct Instruction* c);
    143. 

  143. void AND(struct lilith* vm, struct Instruction* c);
    144. 

  144. void OR(struct lilith* vm, struct Instruction* c);
    145. 

  145. void XOR(struct lilith* vm, struct Instruction* c);
    146. 

  146. void NAND(struct lilith* vm, struct Instruction* c);
    147. 

  147. void NOR(struct lilith* vm, struct Instruction* c);
    148. 

  148. void XNOR(struct lilith* vm, struct Instruction* c);
    149. 

  149. void MPQ(struct lilith* vm, struct Instruction* c);
    150. 

  150. void LPQ(struct lilith* vm, struct Instruction* c);
    151. 

  151. void CPQ(struct lilith* vm, struct Instruction* c);
    152. 

  152. void BPQ(struct lilith* vm, struct Instruction* c);
    153. 

  153. void SAL(struct lilith* vm, struct Instruction* c);
    154. 

  154. void SAR(struct lilith* vm, struct Instruction* c);
    155. 

  155. void SL0(struct lilith* vm, struct Instruction* c);
    156. 

  156. void SR0(struct lilith* vm, struct Instruction* c);
    157. 

  157. void SL1(struct lilith* vm, struct Instruction* c);
    158. 

  158. void SR1(struct lilith* vm, struct Instruction* c);
    159. 

  159. void ROL(struct lilith* vm, struct Instruction* c);
    160. 

  160. void ROR(struct lilith* vm, struct Instruction* c);
    161. 

  161. void LOADX(struct lilith* vm, struct Instruction* c);
    162. 

  162. void LOADX8(struct lilith* vm, struct Instruction* c);
    163. 

  163. void LOADXU8(struct lilith* vm, struct Instruction* c);
    164. 

  164. void LOADX16(struct lilith* vm, struct Instruction* c);
    165. 

  165. void LOADXU16(struct lilith* vm, struct Instruction* c);
    166. 

  166. void LOADX32(struct lilith* vm, struct Instruction* c);
    167. 

  167. void LOADXU32(struct lilith* vm, struct Instruction* c);
    168. 

  168. void STOREX(struct lilith* vm, struct Instruction* c);
    169. 

  169. void STOREX8(struct lilith* vm, struct Instruction* c);
    170. 

  170. void STOREX16(struct lilith* vm, struct Instruction* c);
    171. 

  171. void STOREX32(struct lilith* vm, struct Instruction* c);
    172. 

  172. void NEG(struct lilith* vm, struct Instruction* c);
    173. 

  173. void ABS(struct lilith* vm, struct Instruction* c);
    174. 

  174. void NABS(struct lilith* vm, struct Instruction* c);
    175. 

  175. void SWAP(struct lilith* vm, struct Instruction* c);
    176. 

  176. void COPY(struct lilith* vm, struct Instruction* c);
    177. 

  177. void MOVE(struct lilith* vm, struct Instruction* c);
    178. 

  178. void BRANCH(struct lilith* vm, struct Instruction* c);
    179. 

  179. void CALL(struct lilith* vm, struct Instruction* c);
    180. 

  180. void READPC(struct lilith* vm, struct Instruction* c);
    181. 

  181. void READSCID(struct lilith* vm, struct Instruction* c);
    182. 

  182. void FALSE(struct lilith* vm, struct Instruction* c);
    183. 

  183. void TRUE(struct lilith* vm, struct Instruction* c);
    184. 

  184. void JSR_COROUTINE(struct lilith* vm, struct Instruction* c);
    185. 

  185. void RET(struct lilith* vm, struct Instruction* c);
    186. 

  186. void PUSHPC(struct lilith* vm, struct Instruction* c);
    187. 

  187. void POPPC(struct lilith* vm, struct Instruction* c);
    188. 

  188. void ADDI(struct lilith* vm, struct Instruction* c);
    189. 

  189. void ADDUI(struct lilith* vm, struct Instruction* c);
    190. 

  190. void SUBI(struct lilith* vm, struct Instruction* c);
    191. 

  191. void SUBUI(struct lilith* vm, struct Instruction* c);
    192. 

  192. void CMPI(struct lilith* vm, struct Instruction* c);
    193. 

  193. void LOAD(struct lilith* vm, struct Instruction* c);
    194. 

  194. void LOAD8(struct lilith* vm, struct Instruction* c);
    195. 

  195. void LOADU8(struct lilith* vm, struct Instruction* c);
    196. 

  196. void LOAD16(struct lilith* vm, struct Instruction* c);
    197. 

  197. void LOADU16(struct lilith* vm, struct Instruction* c);
    198. 

  198. void LOAD32(struct lilith* vm, struct Instruction* c);
    199. 

  199. void LOADU32(struct lilith* vm, struct Instruction* c);
    200. 

  200. void CMPUI(struct lilith* vm, struct Instruction* c);
    201. 

  201. void STORE(struct lilith* vm, struct Instruction* c);
    202. 

  202. void STORE8(struct lilith* vm, struct Instruction* c);
    203. 

  203. void STORE16(struct lilith* vm, struct Instruction* c);
    204. 

  204. void STORE32(struct lilith* vm, struct Instruction* c);
    205. 

  205. void JUMP_C(struct lilith* vm, struct Instruction* c);
    206. 

  206. void JUMP_B(struct lilith* vm, struct Instruction* c);
    207. 

  207. void JUMP_O(struct lilith* vm, struct Instruction* c);
    208. 

  208. void JUMP_G(struct lilith* vm, struct Instruction* c);
    209. 

  209. void JUMP_GE(struct lilith* vm, struct Instruction* c);
    210. 

  210. void JUMP_E(struct lilith* vm, struct Instruction* c);
    211. 

  211. void JUMP_NE(struct lilith* vm, struct Instruction* c);
    212. 

  212. void JUMP_LE(struct lilith* vm, struct Instruction* c);
    213. 

  213. void JUMP_L(struct lilith* vm, struct Instruction* c);
    214. 

  214. void JUMP_Z(struct lilith* vm, struct Instruction* c);
    215. 

  215. void JUMP_NZ(struct lilith* vm, struct Instruction* c);
    216. 

  216. void CALLI(struct lilith* vm, struct Instruction* c);
    217. 

  217. void LOADI(struct lilith* vm, struct Instruction* c);
    218. 

  218. void LOADUI(struct lilith* vm, struct Instruction* c);
    219. 

  219. void SALI(struct lilith* vm, struct Instruction* c);
    220. 

  220. void SARI(struct lilith* vm, struct Instruction* c);
    221. 

  221. void SL0I(struct lilith* vm, struct Instruction* c);
    222. 

  222. void SR0I(struct lilith* vm, struct Instruction* c);
    223. 

  223. void SL1I(struct lilith* vm, struct Instruction* c);
    224. 

  224. void SR1I(struct lilith* vm, struct Instruction* c);
    225. 

  225. void LOADR(struct lilith* vm, struct Instruction* c);
    226. 

  226. void LOADR8(struct lilith* vm, struct Instruction* c);
    227. 

  227. void LOADRU8(struct lilith* vm, struct Instruction* c);
    228. 

  228. void LOADR16(struct lilith* vm, struct Instruction* c);
    229. 

  229. void LOADRU16(struct lilith* vm, struct Instruction* c);
    230. 

  230. void LOADR32(struct lilith* vm, struct Instruction* c);
    231. 

  231. void LOADRU32(struct lilith* vm, struct Instruction* c);
    232. 

  232. void STORER(struct lilith* vm, struct Instruction* c);
    233. 

  233. void STORER8(struct lilith* vm, struct Instruction* c);
    234. 

  234. void STORER16(struct lilith* vm, struct Instruction* c);
    235. 

  235. void STORER32(struct lilith* vm, struct Instruction* c);
    236. 

  236. void JUMP(struct lilith* vm, struct Instruction* c);
    237. 

  237. void JUMP_P(struct lilith* vm, struct Instruction* c);
    238. 

  238. void JUMP_NP(struct lilith* vm, struct Instruction* c);
    239. 

  239. void CMPJUMPI_G(struct lilith* vm, struct Instruction* c);
    240. 

  240. void CMPJUMPI_GE(struct lilith* vm, struct Instruction* c);
    241. 

  241. void CMPJUMPI_E(struct lilith* vm, struct Instruction* c);
    242. 

  242. void CMPJUMPI_NE(struct lilith* vm, struct Instruction* c);
    243. 

  243. void CMPJUMPI_LE(struct lilith* vm, struct Instruction* c);
    244. 

  244. void CMPJUMPI_L(struct lilith* vm, struct Instruction* c);
    245. 

  245. void CMPJUMPUI_G(struct lilith* vm, struct Instruction* c);
    246. 

  246. void CMPJUMPUI_GE(struct lilith* vm, struct Instruction* c);
    247. 

  247. void CMPJUMPUI_LE(struct lilith* vm, struct Instruction* c);
    248. 

  248. void CMPJUMPUI_L(struct lilith* vm, struct Instruction* c);
    249. 

  249. void CMPSKIPI_G(struct lilith* vm, struct Instruction* c);
    250. 

  250. void CMPSKIPI_GE(struct lilith* vm, struct Instruction* c);
    251. 

  251. void CMPSKIPI_E(struct lilith* vm, struct Instruction* c);
    252. 

  252. void CMPSKIPI_NE(struct lilith* vm, struct Instruction* c);
    253. 

  253. void CMPSKIPI_LE(struct lilith* vm, struct Instruction* c);
    254. 

  254. void CMPSKIPI_L(struct lilith* vm, struct Instruction* c);
    255. 

  255. void CMPSKIPUI_G(struct lilith* vm, struct Instruction* c);
    256. 

  256. void CMPSKIPUI_GE(struct lilith* vm, struct Instruction* c);
    257. 

  257. void CMPSKIPUI_LE(struct lilith* vm, struct Instruction* c);
    258. 

  258. void CMPSKIPUI_L(struct lilith* vm, struct Instruction* c);
    259. 

  259. void PUSHR(struct lilith* vm, struct Instruction* c);
    260. 

  260. void PUSH8(struct lilith* vm, struct Instruction* c);
    261. 

  261. void PUSH16(struct lilith* vm, struct Instruction* c);
    262. 

  262. void PUSH32(struct lilith* vm, struct Instruction* c);
    263. 

  263. void POPR(struct lilith* vm, struct Instruction* c);
    264. 

  264. void POP8(struct lilith* vm, struct Instruction* c);
    265. 

  265. void POPU8(struct lilith* vm, struct Instruction* c);
    266. 

  266. void POP16(struct lilith* vm, struct Instruction* c);
    267. 

  267. void POPU16(struct lilith* vm, struct Instruction* c);
    268. 

  268. void POP32(struct lilith* vm, struct Instruction* c);
    269. 

  269. void POPU32(struct lilith* vm, struct Instruction* c);
    270. 

  270. void ANDI(struct lilith* vm, struct Instruction* c);
    271. 

  271. void ORI(struct lilith* vm, struct Instruction* c);
    272. 

  272. void XORI(struct lilith* vm, struct Instruction* c);
    273. 

  273. void NANDI(struct lilith* vm, struct Instruction* c);
    274. 

  274. void NORI(struct lilith* vm, struct Instruction* c);
    275. 

  275. void XNORI(struct lilith* vm, struct Instruction* c);
    276. 

  276. void NOT(struct lilith* vm, struct Instruction* c);
    277. 

  277. void CMPSKIP_G(struct lilith* vm, struct Instruction* c);
    278. 

  278. void CMPSKIP_GE(struct lilith* vm, struct Instruction* c);
    279. 

  279. void CMPSKIP_E(struct lilith* vm, struct Instruction* c);
    280. 

  280. void CMPSKIP_NE(struct lilith* vm, struct Instruction* c);
    281. 

  281. void CMPSKIP_LE(struct lilith* vm, struct Instruction* c);
    282. 

  282. void CMPSKIP_L(struct lilith* vm, struct Instruction* c);
    283. 

  283. void CMPSKIPU_G(struct lilith* vm, struct Instruction* c);
    284. 

  284. void CMPSKIPU_GE(struct lilith* vm, struct Instruction* c);
    285. 

  285. void CMPSKIPU_LE(struct lilith* vm, struct Instruction* c);
    286. 

  286. void CMPSKIPU_L(struct lilith* vm, struct Instruction* c);
    287. 

  287. void CMPJUMP_G(struct lilith* vm, struct Instruction* c);
    288. 

  288. void CMPJUMP_GE(struct lilith* vm, struct Instruction* c);
    289. 

  289. void CMPJUMP_E(struct lilith* vm, struct Instruction* c);
    290. 

  290. void CMPJUMP_NE(struct lilith* vm, struct Instruction* c);
    291. 

  291. void CMPJUMP_LE(struct lilith* vm, struct Instruction* c);
    292. 

  292. void CMPJUMP_L(struct lilith* vm, struct Instruction* c);
    293. 

  293. void CMPJUMPU_G(struct lilith* vm, struct Instruction* c);
    294. 

  294. void CMPJUMPU_GE(struct lilith* vm, struct Instruction* c);
    295. 

  295. void CMPJUMPU_LE(struct lilith* vm, struct Instruction* c);
    296. 

  296. void CMPJUMPU_L(struct lilith* vm, struct Instruction* c);
    297. 

  297. 

  298. /* Prototypes for functions in vm_decode.c*/
    299. 

  299. struct lilith* create_vm(size_t size);
    300. 

  300. void destroy_vm(struct lilith* vm);
    301. 

  301. void read_instruction(struct lilith* vm, struct Instruction *current);
    302. 

  302. void eval_instruction(struct lilith* vm, struct Instruction* current);
    303. 

  303. void outside_of_world(struct lilith* vm, unsigned_vm_register place, char* message);
    304. 

  304. 

  305. /* Allow tape names to be effectively changed */
    306. 

  306. char* tape_01_name;
    307. 

  307. char* tape_02_name;
    308.