Execute Computer/Zero: Difference between revisions

Content added Content deleted

Inline

@@ Line 190: / Line 190: @@
   pc=: 32|pc+1
   select. cod
-    case. 0 do.
+    case. 0 do.                         NB. NOP
-    case. 1 do. acc=: val{mem
+    case. 1 do. acc=: val{mem           NB. LDA
-    case. 2 do. mem=: acc val} mem
+    case. 2 do. mem=: acc val} mem      NB. STA
-    case. 3 do. acc=: 256|acc+val{mem
+    case. 3 do. acc=: 256|acc+val{mem   NB. ADD
-    case. 4 do. acc=: 256|acc-val{mem
+    case. 4 do. acc=: 256|acc-val{mem   NB. SUB
-    case. 5 do. pc=: 32|pc[^:(*acc) val
+    case. 5 do. pc=: 32|pc[^:(*acc) val NB. BRZ
-    case. 6 do. pc=: 32|val
+    case. 6 do. pc=: 32|val             NB. JMP
-    case. 7 do. pc=: __
+    case. 7 do. pc=: __                 NB. STP
   end.
 }}