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

vm.h 14 KB
Permalink History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262 
  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 "vm_types.h"
    21. 

  21. 

  22. /* Prototypes for functions in vm_instructions.c*/
    23. 

  23. extern void vm_HALT(struct lilith* vm, uint64_t performance_counter);
    24. 

  24. extern void vm_SYS_EXIT(struct lilith* vm, uint64_t performance_counter);
    25. 

  25. extern void vm_SYS_CHMOD(struct lilith* vm);
    26. 

  26. extern void vm_SYS_UNAME(struct lilith* vm);
    27. 

  27. extern void vm_SYS_GETCWD(struct lilith* vm);
    28. 

  28. extern void vm_SYS_CHDIR(struct lilith* vm);
    29. 

  29. extern void vm_SYS_FCHDIR(struct lilith* vm);
    30. 

  30. extern void vm_SYS_ACCESS(struct lilith* vm);
    31. 

  31. extern void vm_SYS_FOPEN(struct lilith* vm);
    32. 

  32. extern void vm_FOPEN_READ(struct lilith* vm);
    33. 

  33. extern void vm_FOPEN_WRITE(struct lilith* vm);
    34. 

  34. extern void vm_SYS_FCLOSE(struct lilith* vm);
    35. 

  35. extern void vm_FCLOSE(struct lilith* vm);
    36. 

  36. extern void vm_SYS_FSEEK(struct lilith* vm);
    37. 

  37. extern void vm_REWIND(struct lilith* vm);
    38. 

  38. extern void vm_FGETC(struct lilith* vm);
    39. 

  39. extern void vm_SYS_READ(struct lilith* vm);
    40. 

  40. extern void vm_FPUTC(struct lilith* vm);
    41. 

  41. extern void vm_SYS_WRITE(struct lilith* vm);
    42. 

  42. extern void vm_HAL_MEM(struct lilith* vm);
    43. 

  43. extern void ADD_CI(struct lilith* vm, struct Instruction* c);
    44. 

  44. extern void ADD_CO(struct lilith* vm, struct Instruction* c);
    45. 

  45. extern void ADD_CIO(struct lilith* vm, struct Instruction* c);
    46. 

  46. extern void ADDU_CI(struct lilith* vm, struct Instruction* c);
    47. 

  47. extern void ADDU_CO(struct lilith* vm, struct Instruction* c);
    48. 

  48. extern void ADDU_CIO(struct lilith* vm, struct Instruction* c);
    49. 

  49. extern void SUB_BI(struct lilith* vm, struct Instruction* c);
    50. 

  50. extern void SUB_BO(struct lilith* vm, struct Instruction* c);
    51. 

  51. extern void SUB_BIO(struct lilith* vm, struct Instruction* c);
    52. 

  52. extern void SUBU_BI(struct lilith* vm, struct Instruction* c);
    53. 

  53. extern void SUBU_BO(struct lilith* vm, struct Instruction* c);
    54. 

  54. extern void SUBU_BIO(struct lilith* vm, struct Instruction* c);
    55. 

  55. extern void MULTIPLY(struct lilith* vm, struct Instruction* c);
    56. 

  56. extern void MULTIPLYU(struct lilith* vm, struct Instruction* c);
    57. 

  57. extern void DIVIDE(struct lilith* vm, struct Instruction* c);
    58. 

  58. extern void DIVIDEU(struct lilith* vm, struct Instruction* c);
    59. 

  59. extern void MUX(struct lilith* vm, struct Instruction* c);
    60. 

  60. extern void NMUX(struct lilith* vm, struct Instruction* c);
    61. 

  61. extern void SORT(struct lilith* vm, struct Instruction* c);
    62. 

  62. extern void SORTU(struct lilith* vm, struct Instruction* c);
    63. 

  63. extern void ADD(struct lilith* vm, struct Instruction* c);
    64. 

  64. extern void ADDU(struct lilith* vm, struct Instruction* c);
    65. 

  65. extern void SUB(struct lilith* vm, struct Instruction* c);
    66. 

  66. extern void SUBU(struct lilith* vm, struct Instruction* c);
    67. 

  67. extern void CMP(struct lilith* vm, struct Instruction* c);
    68. 

  68. extern void CMPU(struct lilith* vm, struct Instruction* c);
    69. 

  69. extern void MUL(struct lilith* vm, struct Instruction* c);
    70. 

  70. extern void MULH(struct lilith* vm, struct Instruction* c);
    71. 

  71. extern void MULU(struct lilith* vm, struct Instruction* c);
    72. 

  72. extern void MULUH(struct lilith* vm, struct Instruction* c);
    73. 

  73. extern void DIV(struct lilith* vm, struct Instruction* c);
    74. 

  74. extern void MOD(struct lilith* vm, struct Instruction* c);
    75. 

  75. extern void DIVU(struct lilith* vm, struct Instruction* c);
    76. 

  76. extern void MODU(struct lilith* vm, struct Instruction* c);
    77. 

  77. extern void MAX(struct lilith* vm, struct Instruction* c);
    78. 

  78. extern void MAXU(struct lilith* vm, struct Instruction* c);
    79. 

  79. extern void MIN(struct lilith* vm, struct Instruction* c);
    80. 

  80. extern void MINU(struct lilith* vm, struct Instruction* c);
    81. 

  81. extern void AND(struct lilith* vm, struct Instruction* c);
    82. 

  82. extern void OR(struct lilith* vm, struct Instruction* c);
    83. 

  83. extern void XOR(struct lilith* vm, struct Instruction* c);
    84. 

  84. extern void NAND(struct lilith* vm, struct Instruction* c);
    85. 

  85. extern void NOR(struct lilith* vm, struct Instruction* c);
    86. 

  86. extern void XNOR(struct lilith* vm, struct Instruction* c);
    87. 

  87. extern void MPQ(struct lilith* vm, struct Instruction* c);
    88. 

  88. extern void LPQ(struct lilith* vm, struct Instruction* c);
    89. 

  89. extern void CPQ(struct lilith* vm, struct Instruction* c);
    90. 

  90. extern void BPQ(struct lilith* vm, struct Instruction* c);
    91. 

  91. extern void SAL(struct lilith* vm, struct Instruction* c);
    92. 

  92. extern void SAR(struct lilith* vm, struct Instruction* c);
    93. 

  93. extern void SL0(struct lilith* vm, struct Instruction* c);
    94. 

  94. extern void SR0(struct lilith* vm, struct Instruction* c);
    95. 

  95. extern void SL1(struct lilith* vm, struct Instruction* c);
    96. 

  96. extern void SR1(struct lilith* vm, struct Instruction* c);
    97. 

  97. extern void ROL(struct lilith* vm, struct Instruction* c);
    98. 

  98. extern void ROR(struct lilith* vm, struct Instruction* c);
    99. 

  99. extern void LOADX(struct lilith* vm, struct Instruction* c);
    100. 

  100. extern void LOADX8(struct lilith* vm, struct Instruction* c);
    101. 

  101. extern void LOADXU8(struct lilith* vm, struct Instruction* c);
    102. 

  102. extern void LOADX16(struct lilith* vm, struct Instruction* c);
    103. 

  103. extern void LOADXU16(struct lilith* vm, struct Instruction* c);
    104. 

  104. extern void LOADX32(struct lilith* vm, struct Instruction* c);
    105. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  241. 

  242. /* Prototypes for functions in vm_decode.c*/
    243. 

  243. extern struct lilith* create_vm(size_t size);
    244. 

  244. extern void destroy_vm(struct lilith* vm);
    245. 

  245. extern void read_instruction(struct lilith* vm, struct Instruction *current);
    246. 

  246. extern void eval_instruction(struct lilith* vm, struct Instruction* current);
    247. 

  247. extern void outside_of_world(struct lilith* vm, unsigned_vm_register place, char* message);
    248. 

  248. 

  249. /* Allow tape names to be effectively changed */
    250. 

  250. extern char* tape_01_name;
    251. 

  251. extern char* tape_02_name;
    252. 

  252. extern FILE* TTY_out;
    253. 

  253. extern FILE* TTY_in;
    254. 

  254. 

  255. /* Enable POSIX Mode */
    256. 

  256. extern bool POSIX_MODE;
    257. 

  257. extern bool FUZZING;
    258. 

  258. extern int Memory_Size;
    259. 

  259. 

  260. /* Commonly useful functions */
    261. 

  261. extern void require(int boolean, char* error);
    262. 

  262. extern int match(char* a, char* b);
    263.