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

more cleanup code.

comparison

equal deleted inserted replaced

-:6e6b7961595b
+:cd54ac4a8701
 monitor-address-low  (+ 1 data-start)
 glyph-count-high     (+ 2 data-start)
 glyph-count-low      (+ 3 data-start)
-delay-address        (+ 4 data-start)]
+delay-address        (+ 4 data-start)
+load-data
 (flatten
 [;; data region
 0x18
 5
 (disect-bytes-2 monitor-address)
 (disect-bytes-2 total-glyph-count)
 delay-count
 ;; save all registers
 0xC5 0xD5 0xE5 0xF5
 ;; load data from data region into registers
 0x21
 (disect-bytes-2 monitor-address-high)
 0x2A 0x47 ;; monitor-address-high -> B
 0x2A 0x4F ;; monitor-address-low  -> C
 0x2A 0x57 ;; glyph-count-high -> D
 0x2A 0x5F ;; glyph-count-low  -> E
 0x2A ;; delay -> A
+])
+handle-delay*
+(flatten
-;; restore all registers
+[0xA7 ;; test if A is zero
-0xF1 0xE1 0xD1 0xC1
+;; if A is not 0, decrement  and skip to cleanup
-])))
+0x20
+5
+0x3D
+0x77
+0xC3
+:cleanup-address-low
+:cleanup-address-high])
+cleanup
+;; restore all registers
+[0xF1 0xE1 0xD1 0xC1]
+[cleanup-address-high
+cleanup-address-low] (disect-bytes-2
+(+ start-address (count load-data)
+(count handle-delay*)))
+handle-delay
+(replace {:cleanup-address-low cleanup-address-low
+:cleanup-address-high cleanup-address-high}
+handle-delay*)]
+(concat load-data handle-delay cleanup)))
 (def main-program-base-address 0xC000)
 (defn glyph-bootstrap-program
 [start-address delay-count total-glyph-count]

Mercurial > vba-clojure