         reg-x-val (machine-state/get-register machine-state reg-x-num) 
         reg-y-val (machine-state/get-register machine-state reg-y-num)
         addr-reg (machine-state/get-addr-reg machine-state)]
-    (trace machine-state opcode "DXVN drw V[%d](0x%02x), V[%d](0x%02x), %d, I(0x%04x)" reg-x-num reg-x-val reg-y-num reg-y-val imm addr-reg)
+    (trace machine-state opcode "DXVN drw V[%d](0x%02x), V[%d](0x%02x), %d, I(0x%04x)" 
+           reg-x-num reg-x-val reg-y-num reg-y-val imm addr-reg)
 
     (as-> machine-state $ 
       (machine-state/clear-carry-flag $)

        reg-x-val (machine-state/get-register machine-state reg-x-num)
        result-x (bit-and (bit-shift-left reg-x-val 1) 0xFF)
        result-f (bit-and (bit-shift-right reg-x-val 7) 0x1)]
    (trace machine-state opcode "8XYE shl V[%d](0x%02x) = V[%d](0x%02x) << 1" reg-x-num result-x reg-x-num reg-x-val)
    (-> (machine-state/set-register machine-state 0xF result-f)
        (machine-state/set-register reg-x-num result-x)
        (machine-state/increment-pc))))

        reg-x-val (machine-state/get-register machine-state reg-x-num)
        reg-y-num (utils/get-nibble2 opcode)
        reg-y-val (machine-state/get-register machine-state reg-y-num)]
    (trace machine-state opcode "9XY0 seq V[%d](0x%02x) == V[%d](0x%02x)" 
           reg-x-num reg-x-val reg-y-num reg-y-val)
    (if (not= reg-x-val reg-y-val)
      (machine-state/skip-next-pc machine-state)
      (machine-state/increment-pc machine-state))))
