   "Sets I to the address NNN."
   [machine-state opcode]
   (let [nnn (utils/get-nnn opcode)]
-    (log/info (format "0x%04x ANNN 0x%04x sti I = 0x%03x" 
-                       (machine-state/get-pc machine-state) opcode nnn))
+    (trace machine-state opcode "ANNN sti I = 0x%03x" nnn)
     (-> machine-state
         (machine-state/set-addr-reg nnn)
         (machine-state/increment-pc))))

  (let [reg-x-num (utils/get-nibble1 opcode)
        reg-x-val (machine-state/get-register machine-state reg-x-num)
        addr-reg (machine-state/get-addr-reg machine-state)]
    (log/info (format "0x%04x FX1E 0x%04x adi V[%d](0x%02x) I(0x%02x)" 
                       (machine-state/get-pc machine-state) opcode reg-x-num reg-x-val addr-reg))
    (-> machine-state
        (machine-state/set-addr-reg (+ addr-reg reg-x-val))
        (machine-state/increment-pc))))

  (let [reg-0-val (machine-state/get-register machine-state 0)
        imm (utils/get-nnn opcode)
        dest (+ imm reg-0-val)]
    (trace machine-state opcode "BNNN jpa 0x%04x + V0[0x%02x] = 0x%04x" imm reg-0-val dest)
    (machine-state/set-pc machine-state dest)))

(defn execute-CXNN
