         ones (mod reg-x-val 10)
         tens (quot (mod reg-x-val 100) 10)
         hundreds (quot (mod reg-x-val 1000) 100)]
-    (trace machine-state opcode "FX33 bcd V[%d](0x%02x), I(0x%04x), %d-%d-%d" reg-x-num reg-x-val addr-reg, hundreds, tens, ones)
+    (trace machine-state opcode "FX33 bcd V[%d](0x%02x), I(0x%04x), %d-%d-%d" 
+           reg-x-num reg-x-val addr-reg, hundreds, tens, ones)
     (-> machine-state
         (machine-state/set-memory addr-reg hundreds)
         (machine-state/set-memory (+ addr-reg 1) tens)

        result (if is-borrow?
                 (+ (- reg-y-val reg-x-val) 256)
                 (- reg-y-val reg-x-val))]
    (trace machine-state opcode "8XY7 sb7 V[%d](0x%02x) = V[%d](0x%02x) - V[%d](0x%02x)" reg-x-num result reg-y-num reg-y-val reg-x-num reg-x-val)
    (-> (if is-borrow?
          (machine-state/set-register machine-state 0xF 0)
          (machine-state/set-register machine-state 0xF 1))

        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))))
