(load [file])

This commit is contained in:
2020-12-09 19:04:11 -07:00
parent cfd3147337
commit 1a5eb07d48
3 changed files with 32 additions and 24 deletions

View File

@@ -0,0 +1,7 @@
(defprop &mut accumulator 0)
(defmethod setBreakPoint [] (addBreakPoint instructionPointer))
(defmethod nop [v] (setBreakPoint))
(defmethod acc [v] (setBreakPoint) (set accumulator (+ accumulator v)))
(defmethod jmp [v] (setBreakPoint) (set instructionPointer (+ instructionPointer (- v 1))))

View File

@@ -1,10 +1,4 @@
(defprop &mut accumulator 0)
(defmethod setBreakPoint [] (addBreakPoint instructionPointer))
(defmethod nop [v] (setBreakPoint))
(defmethod acc [v] (setBreakPoint) (set accumulator (+ accumulator v)))
(defmethod jmp [v] (setBreakPoint) (set instructionPointer (+ instructionPointer (- v 1))))
(load "BootCodeCommon.kiss")
(defreadermacro "" [stream] #| ReaderExp.CallExp(
{