vba-clojure: clojure/com/aurellem/run/adv

changed jump from relative to absolute to allow for display-glyph code greater than 128 numbers.

comparison

equal deleted inserted replaced

-:bb1dc927859b
+:a2ff0032119e
 [;; if glyphs-rendered = max-glyph count, go directly
 ;; to stack-cleanup
 0x47 0xBA ;; compare B to D
 0x20 ;; skip next section B != D
-7 ;; this is equal to the number of instructions in the next
+8 ;; this is equal to the number of instructions in the next
 ;; indented region!
 0x79 0xBB ;; compare C to E
 0x20 ;; JR NZ, skip if C != E
-3
+4
 0xF1 ;; pop AF for stack maintainance!
 0x18
-:to-stack-cleanup
+:stack-cleanup-low
+:stack-cleanup-high
 ])
 display-glyph
 (let [init
 0x79 0x22 ;;
 ])
 stack-cleanup
 [0xF1 0xE1 0xD1 0xC1]
+[stack-cleanup-high
+stack-cleanup-low]
+(disect-bytes-2 (+ start-address (count load-data)
+(count handle-glyph-count*)
+(count cleanup)
+(count display-glyph)))
 handle-glyph-count
-(replace {:to-stack-cleanup
+(replace {:stack-cleanup-high stack-cleanup-high
-(+ (count display-glyph) (count cleanup))}
+:stack-cleanup-low  stack-cleanup-low}
 handle-glyph-count*)]
 (println  (+ (count display-glyph) (count cleanup)))
 (concat load-data
 handle-glyph-count
 display-glyph

Mercurial > vba-clojure