   (make-cpu
    :memory memory :r0 r0 :r1 r1
    :ip (if (zero? r0)
-         (nth memory (inc ip)) ip)
-   :is is))
+         (nth memory (inc ip)) (+ ip 2))
+   :is 14))
 
 ;; cmd 15: jump to address <data> if R0 != 0
 (defn cmd15

  (make-cpu
   :memory memory :r0 r0 :r1 r1
   :ip (if (zero? r0)
         ip
         (nth memory (inc ip)))
   :is is))

(defn to-4bit-array
  "Convert 0xf4 to [f 4]"

  [{:keys [memory r0 r1 ip is]}]
  (make-cpu
   :memory (assoc memory (nth memory (inc ip)) r0)
   :r0 r0 :r1 r1 :ip (+ ip 2) :is 11))

;; cmd 12: Store R1 into <data> position
(defn cmd12
  [{:keys [memory r0 r1 ip is]}]
  (make-cpu
   :memory (assoc memory (nth memory (inc ip)) r1)
   :r0 r0 :r1 r1 :ip (+ ip 2) :is 12))

;; cmd 13: jump to address <data>
(defn cmd13
  [{:keys [memory r0 r1 ip is]}]
  (make-cpu
   :memory memory :r0 r0 :r1 r1 :ip (nth memory (inc ip)) :is 13))

;; cmd 14: jump to address <data> if R0 == 0
(defn cmd14
