Mercurial > vba-clojure

comparison clojure/com/aurellem/assembly.clj @ 140:aa5b5927e5fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added driver for dylan's code, verified that it works.
author Dylan Holmes <ocsenave@gmail.com>
date Mon, 19 Mar 2012 05:20:34 -0500
parents 74ec1ac044bb
children
comparison
equal deleted inserted replaced
139:74ec1ac044bb 140:aa5b5927e5fe
671 0x78 ;; B->A; now A contains the pressed keys 671 0x78 ;; B->A; now A contains the pressed keys
672 672
673 0x00 ;; var: thing to execute [D374] 673 0x00 ;; var: thing to execute [D374]
674 674
675 0x18 ;; end frame 675 0x18 ;; end frame
676 0xA8 ;; TODO: set jump correctly 676 0xA8
677 ] 677 ]
678 ) 678 )
679 679
680 (defn write-mem-dyl [] 680 (defn write-mem-dyl []
681 (-> (tick (mid-game)) 681 (-> (tick (mid-game))
1365 (tick) 1365 (tick)
1366 (tick) 1366 (tick)
1367 (tick) ;; just complemented A 1367 (tick) ;; just complemented A
1368 1368
1369 (tick) 1369 (tick)
1370 (DE! 0x0800) 1370 (DE! 0x1800)
1371 (AF! 0xCF00) ;; change inputs @ A 1371 (AF! 0x7700) ;; change inputs @ A
1372 (tick) 1372 (tick)
1373 (tick) 1373 (tick)
1374 (tick) 1374 (tick)
1375 (tick) 1375 (tick)
1376 (tick) 1376 (tick)
1381 ;;(view-memory eggs) 1381 ;;(view-memory eggs)
1382 (tick) 1382 (tick)
1383 (tick) 1383 (tick)
1384 (tick) 1384 (tick)
1385 (tick) 1385 (tick)
1386 1386 (tick)
1387 (tick)
1387 (d-tick) 1388 (d-tick)
1388 1389
1389 1390
1390 ;;(view-memory btn-register) 1391 ;;(view-memory btn-register)
1391 (view-register "A" A) 1392 (view-register "A" A)
1398 (view-register "L" L) 1399 (view-register "L" L)
1399 )))) 1400 ))))
1400 1401
1401 1402
1402 1403
1403 1404 (defn drive-dylan []
1404 1405 (-> (write-mem-dyl)
1406 (#(do (println "memory from 0xC00F to 0xC01F:"
1407 (subvec (vec (memory %)) 0xC00F 0xC01F)) %))
1408 (step [])
1409 (step [])
1410 (step [])
1411 (step [:start])
1412 (step [:select])
1413 (step [:u :d])
1414 (step [:a :b :start :select])
1415 (step [:a])
1416 (step [:b])
1417 (step [:a :b])
1418 (step [:select])
1419 (step [])
1420 (step [])
1421 (step [])
1422 (#(do (println "memory from 0xC00F to 0xC01F:"
1423 (subvec (vec (memory %)) 0xC00F 0xC01F)) %))
1424 ))
1405 1425
1406 (defn test-mode-4 1426 (defn test-mode-4
1407 ([] (test-mode-4 (write-memory))) 1427 ([] (test-mode-4 (write-memory)))
1408 ([target-state] 1428 ([target-state]
1409 (-> 1429 (->