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

fixed bug where A was always 0 when the self-modigying code was executed.

comparison

equal deleted inserted replaced

-:6ab872c5a7e7
+:c7a43f4ffd9d
 [0xAF 0x5F 0x57 0x47] ;; 0->A; 0->E; 0->D; 0->B
 input
 [0xC1  ;; pop BC so it's not volatile
-0x00  ;; A->C
+0x4F  ;; A->C
+0xAF  ;; test for output-mode (bytes-to-write > 0)
+0x00  ;; (cp A B)
+0x79  ;; C->A
-0x00  ;; test for output-mode (bytes-to-write > 0)
+0x20  ;; skip input section if
-0x00  ;; (cp A B)
+:to-output ;; we're not in input mode
-0x00  ;; skip input section if
-0x00  ;;:to-output ;; we're not in input mode
 :to-be-executed
 ;; write mode to instruction-to-be-executed (pun)
-0x00  ;; C->A
 0xEA
 :to-be-executed-address
 0x18           ;; return
 :to-beginning-1]
 (reverse
 (disect-bytes-2
 (+ start-address jump-distance
 (count init)
 (symbol-index :to-be-executed input))))
-:to-be-executed 0x3F} ;; clear carry flag no-op
+:to-be-executed 0x00} ;; clear carry flag no-op
 program** (flatten
 (replace
 symbols
 (concat init (frame-metronome)
 resolve-external-jumps
 {:to-beginning-1
 (->signed-8-bit
 (+ (count init)
--2 (- (inc (symbol-index :to-beginning-1 program*)))))
+-2 (- (dec (symbol-index :to-beginning-1 program*)))))
 :to-beginning-2
 (->signed-8-bit
 (+ (count init)
--2 (- (inc (symbol-index :to-beginning-2 program*)))))}
+-2 (- (dec (symbol-index :to-beginning-2 program*)))))}
 program
 (replace resolve-external-jumps program*)]
 program))

Mercurial > vba-clojure