vba-clojure: clojure/com/aurellem/gb/rlm

fixed bug where variables would be overwritten.

comparison

equal deleted inserted replaced

-:9b0d79cad624
+:0591dcddf831
 (let [[start-high start-low] (disect-bytes-2 start-address)
 jump-distance (+ (count (frame-metronome))
 (count (read-user-input)))
 init
-[0xAF 0x5F 0x57 0x47] ;; 0->A; 0->E; 0->D; 0->B
+[0xAF 0x4F 0x57 0x47] ;; 0->A; 0->C; 0->D; 0->B
 input
 [0xC1  ;; pop BC so it's not volatile
 0x5F  ;; A->E
 0xAF  ;; test for output-mode (bytes-to-write > 0)
 0x00  ;; (cp A B)
 0x7B  ;; E->A
 0x20  ;; skip input section if
 :to-output ;; we're not in input mode
 :to-be-executed
 ;; write mode to instruction-to-be-executed (pun)
 0xEA
 :to-be-executed-address
+0x0C ;; inc C
+0xCB
+0x41 ;; test bit 0 of C
+0x20 ;; if (0 == (C % 2))
+0x04
+0xAF ;; put a no op (0x00) in to-be-executed
+0xEA
+:to-be-executed-address
 0x18           ;; return
 :to-beginning-1]
 ;; output
 ;; [:output-start ;; just a label
 ;;  0x05 ;; DEC bytes-to-write (B)
 ;;  0x20 ;; if there are no more bytes to write,
 ;;  0x04
-;;  0xAF ;; put a no op (0x00) in to-be-executed
+;;
-;;  0xEA
-;;  :to-be-executed-address
 ;;  0x18
 ;;  :to-beginning-2]
 output
 (PC! pokemon-list-start))))
 (defn test-set-H [n]
 (let [after
 (-> (bootstrap-base)
+(step [])
 (step [])
 (step (buttons 0x67))
 (step (buttons n))
 )]
 (hex (H after))))

Mercurial > vba-clojure