Implemented vm routines for OP_OR_*

src/runtime.c

@@ -366,3 +366,33 @@ void vm_not_word(vm_t *vm)
   vm_push_word(vm, DWORD(!a));
 }
 
+void vm_or_byte(vm_t *vm)
+{
+  if (vm->stack.ptr < 2)
+    // TODO: Error STACK_UNDERFLOW
+    return;
+  byte a = vm_pop_byte(vm).as_byte;
+  byte b = vm_pop_byte(vm).as_byte;
+  vm_push_byte(vm, DBYTE(a | b));
+}
+
+void vm_or_hword(vm_t *vm)
+{
+  if (vm->stack.ptr < (HWORD_SIZE * 2))
+    // TODO: Error STACK_UNDERFLOW
+    return;
+  hword a = vm_pop_hword(vm).as_hword;
+  hword b = vm_pop_hword(vm).as_hword;
+  vm_push_hword(vm, DHWORD(a | b));
+}
+
+void vm_or_word(vm_t *vm)
+{
+  if (vm->stack.ptr < (WORD_SIZE * 2))
+    // TODO: Error STACK_UNDERFLOW
+    return;
+  word a = vm_pop_word(vm).as_word;
+  word b = vm_pop_word(vm).as_word;
+  vm_push_word(vm, DWORD(a | b));
+}
+

src/runtime.h

@@ -111,4 +111,14 @@ static const not_f NOT_ROUTINES[] = {
     [OP_NOT_WORD]  = vm_not_word,
 };
 
+void vm_or_byte(vm_t *);
+void vm_or_hword(vm_t *);
+void vm_or_word(vm_t *);
+typedef void (*or_f)(vm_t *);
+static const or_f OR_ROUTINES[] = {
+    [OP_OR_BYTE]  = vm_or_byte,
+    [OP_OR_HWORD] = vm_or_hword,
+    [OP_OR_WORD]  = vm_or_word,
+};
+
 #endif