Mercurial > vba-clojure
comparison clojure/com/aurellem/assembly.clj @ 140:aa5b5927e5fe
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 (-> |