Mercurial > vba-clojure

comparison clojure/com/aurellem/run/music.clj @ 431:b73cb1b937d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove crufty comment.
author Robert McIntyre <rlm@mit.edu>
date Tue, 24 Apr 2012 23:18:40 -0500
parents c709f4857fa9
children 8e88366a81b9
comparison
equal deleted inserted replaced
430:c709f4857fa9 431:b73cb1b937d5
229 (flatten 229 (flatten
230 [ 230 [
231 0xF5 ;; push A 231 0xF5 ;; push A
232 0xF0 232 0xF0
233 0x05 ;; load current ticks 233 0x05 ;; load current ticks
234 0xB8 ;; B holds previous sub-ticks, subtract it from A 234 0xB8 ;;
235 ;; if A-B caused a carry, then (B > A) is true, and
236 ;; A = current-sub-tics, B = previous-sub-ticks, so
237 ;; current-sub-ticks < previous-sub-ticks, which means that the
238 ;; timer counter HAS overflowed.
239 0x30 ;; increment C only if last result caused carry 235 0x30 ;; increment C only if last result caused carry
240 0x01 236 0x01
241 0x0C 237 0x0C
242 238
243 0x47 ;; update sub-ticks (A->B) 239 0x47 ;; update sub-ticks (A->B)