Mercurial > vba-clojure
comparison clojure/com/aurellem/run/adv_choreo.clj @ 583:21e4ab461506
fixed glyph display bug, going to apply cosmetic corrections now and remove testing cruft.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 01 Sep 2012 09:54:48 -0500 |
parents | 393b49a83394 |
children | bbed03870072 |
comparison
equal
deleted
inserted
replaced
582:393b49a83394 | 583:21e4ab461506 |
---|---|
239 0xD5 ;; push DE | 239 0xD5 ;; push DE |
240 | 240 |
241 ;; RLM: this should be 0x9800, investigate | 241 ;; RLM: this should be 0x9800, investigate |
242 0x21 0x00 0x98 ;; load HL with something | 242 0x21 0x00 0x98 ;; load HL with something |
243 | 243 |
244 0x06 0 | 244 ;;0x06 0 |
245 0x4B ;; columns (E) -> BC | 245 ;;0x4B ;; columns (E) -> BC |
246 0x09 ;; HL += columns | 246 ;;0x09 ;; HL += columns |
247 | 247 |
248 | 248 |
249 0xAF ;; 0 -> A | 249 0xAF ;; 0 -> A |
250 | 250 |
251 0x06 0 | 251 0x06 0 |
252 0x0E 32 ;; load 32 into BC | 252 0x0E 32 ;; load 32 into BC |
253 | 253 |
254 0xBA ;; CP A D | 254 0xBA ;; CP A D |
255 0x20 | 255 0x28 ;; skip this next section if A == D |
256 4 | 256 4 |
257 ;;(+ 32 3) | 257 ;;(+ 32 3) |
258 0x09 ;; HL += 32 | 258 0x09 ;; HL += 32 |
259 ;;(repeat 32 0x23) | 259 ;;(repeat 32 0x23) |
260 0x3C | 260 0x3C |