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