13
This commit is contained in:
parent
6264ac68cf
commit
d00338ee4a
6
mu.arc
6
mu.arc
|
@ -18,9 +18,9 @@
|
|||
;? (prn instr)
|
||||
;? (prn memory*)
|
||||
(let delim (or (pos '<- instr) -1)
|
||||
(with (oarg (if (>= delim 0)
|
||||
(cut instr 0 delim))
|
||||
op (instr (+ delim 1))
|
||||
(with (oarg (if (>= delim 0)
|
||||
(cut instr 0 delim))
|
||||
op (instr (+ delim 1))
|
||||
arg (cut instr (+ delim 2)))
|
||||
;? (prn op " " oarg)
|
||||
(case op
|
||||
|
|
Loading…
Reference in New Issue
Block a user