Mercurial > vba-clojure
view clojure/com/aurellem/assembly.clj @ 127:901ee6b648da
preliminary memory bootstrapping program complete.
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Sat, 17 Mar 2012 03:43:42 -0500 |
| parents | 86f92deacd2a |
| children | 203d64e16156 |
line wrap: on
line source
1 (ns com.aurellem.assembly2 (:use (com.aurellem gb-driver vbm title items))3 (:import [com.aurellem.gb_driver SaveState]))5 (defn mid-game []6 (read-state "mid-game"))8 (defn inject-assembly9 ([^SaveState state10 program-counter registers11 assembly-code]12 (let [scratch-memory (memory state)]13 ;; inject assembly code14 (dorun (map (fn [index val]15 (aset scratch-memory index val))16 (range program-counter17 (+ program-counter (count assembly-code)))18 assembly-code))19 (-> state20 (write-memory! scratch-memory)21 (write-registers! registers)22 (PC! program-counter)))))24 (defn inject-item-assembly25 ([^SaveState state assembly-code]26 (inject-assembly state (inc item-list-start)27 (registers state)28 assembly-code))29 ([assembly-code]30 (inject-item-assembly @current-state assembly-code)))32 (defn info33 ([^SaveState state]34 (println (format "PC: 0x%04X" (PC state)))35 (println "Instruction:"36 (format "0x%02X" (aget (memory state) (PC state))))37 state))39 (defn print-interrupt40 [^SaveState state]41 (println (format "IE: %d" (IE state)))42 state)44 (defn print-listing [state begin end]45 (dorun (map46 (fn [opcode line]47 (println (format "0x%04X: 0x%02X" line opcode)))48 (subvec (vec (memory state)) begin end)49 (range begin end)))50 state)52 (defn run-assembly53 ([info-fn assembly n]54 (let [final-state55 (reduce (fn [state _]56 (tick (info-fn state)))57 (inject-item-assembly58 (mid-game) assembly)59 (range n))]60 final-state))61 ([assembly n]62 (run-assembly info assembly n)))64 (def buttons-port 0xFF00)66 (defn A [state]67 (bit-shift-right (bit-and 0x0000FF00 (AF state)) 8))69 (defn binary-str [num]70 (format "%08d"71 (Integer/parseInt72 (Integer/toBinaryString num) 10)))74 (defn view-register [state name reg-fn]75 (println (format "%s: %s" name76 (binary-str (reg-fn state))))77 state)79 (defn view-memory [state mem]80 (println (format "mem 0x%04X = %s" mem81 (binary-str (aget (memory state) mem))))82 state)84 (defn trace [state]85 (loop [program-counters [(first (registers @current-state)) ]86 opcodes [(aget (memory @current-state) (PC @current-state))]]87 (let [frame-boundary?88 (com.aurellem.gb.Gb/tick)]89 (if frame-boundary?90 [program-counters opcodes]91 (recur92 (conj program-counters93 (first (registers @current-state)))94 (conj opcodes95 (aget (memory @current-state)96 (PC @current-state))))))))98 (defn print-trace [state n]99 (let [[program-counters opcodes] (trace state)]100 (dorun (map (fn [pc op] (println (format "%04X: 0x%02X" pc op)))101 (take n program-counters)102 (take n opcodes)))))104 (defn good-trace []105 (-> (mid-game) (tick) (IE! 0)106 (set-inv-mem [0x00 0x00 0X00 0x00])107 (PC! item-list-start)(print-interrupt)108 (info) (tick) (info) (tick) (info)))110 (defn read-down-button []111 (-> (tick (mid-game))112 (IE! 0) ; disable interrupts113 (inject-item-assembly114 ;; write 00010000 to 0xFF00 to select joypad115 [0x18 ;D31D ; jump over116 0x01 ;D31E ; the next 8 bits117 ;D31F118 (Integer/parseInt "00100000" 2) ; data section120 0xFA ;D320 ; load (D31F) into A121 0x1F ;D321 -->122 0xD3 ;D322 --> D31F124 0xEA ;D323 ; load (A), which is125 0x00 ;D324 --> ; 00010000, into FF00126 0xFF ;D325 --> FF00128 0x18 ;D326 ; this is the place where129 0x01 ;D327 ; we will store whether130 0x00 ;D328 ; "down" is pressed.132 0xFA ;D329 ; (FF00) -> A133 0x00 ;D32A134 0xFF ;D32B136 0xCB ;D32C ; Test whether "down"137 0x5F ;D32D ; is pressed.139 0x28 ;D32E ; if down is pressed,140 0x03 ;D32F ; skip the next section141 ; of code.142 ;; down-is-not-pressed143 0xC3 ;D330144 0x1D ;D331 ; return to beginning145 0xD3 ;D332147 ;; down-is-pressed148 0xEA ;D334 ; write A to D328 if149 0x28 ;D335 ; "down" was pressed150 0xD3 ;D336152 0xC3 ;D330153 0x1D ;D331 ; return to beginning154 0xD3 ;D332155 ])))157 (defn test-read-down []158 (= (view-memory (step (step (read-down-button) [:d])) 0xD328)159 (view-memory (step (step (read-down-button))) 0xD328)))161 (defn count-frames []162 (-> (tick (mid-game))163 (IE! 0) ; disable interrupts164 (inject-item-assembly165 [0x18 ;D31D ; jump over166 0x02 ;D31E ; the next 2 bytes167 0x00 ;D31F ; frame-count168 0x00 ;D320 ; v-blank-prev170 0xFA ;D321171 0x41 ;D322 ; load (FF41) into A172 0xFF ;D323 ; this contains mode flags174 ;; if we're in v-blank, the bit-1 is 0175 ;; and bit-2 is 1 Otherwise, it is not v-blank.176 0xCB ;D324 ; test bit-1 of A177 0x4F ;D325179 0xC2 ;D326 ; if bit-1 is not 0180 0x44 ;D327 ; GOTO not-v-blank181 0xD3 ;D328183 0xCB ;D329 ; test bit-0 of A184 0x47 ;D32A186 0xCA ;D32B ; if bit-0 is not 1187 0x44 ;D32C ; GOTO not-v-blank188 0xD3 ;D32D189 ;;; in v-blank mode190 ;; if v-blank-prev was 0,191 ;; increment frame-count193 0xFA ;D32E ; load v-blank-prev to A194 0x20 ;D32F195 0xD3 ;D330197 0xCB ;D331198 0x47 ;D332 ; test bit-0 of A200 0x20 ;D333 ; skip next section201 0x07 ;D334 ; if v-blank-prev was not zero203 ;; v-blank was 0, increment frame-count204 0xFA ;D335 ; load frame-count into A205 0x1F ;D336206 0xD3 ;D337208 0x3C ;D338 ; inc A210 0xEA ;D339 ; load A into frame-count211 0x1F ;D33A212 0xD3 ;D33B214 ;; set v-blank-prev to 1215 0x3E ;D33C ; load 1 into A216 0x01 ;D33D218 0xEA ;D33E ; load A into v-blank-prev219 0x20 ;D33F220 0xD3 ;D340222 0xC3 ;D341 ; return to beginning223 0x1D ;D342224 0xD3 ;D343226 ;;; not in v-blank mode227 ;; set v-blank-prev to 0228 0x3E ;D344 ; load 0 into A229 0x00 ;D345231 0xEA ;D346 ; load A into v-blank-prev232 0x20 ;D347233 0xD3 ;D348235 0xC3 ;D349 ; return to beginning236 0x1D ;D34A237 0xD3 ;D34B238 ])))240 (defn step-count-frames []241 (-> (read-down-button)242 (info)243 (tick) ;; skip over data section244 (info)245 (view-register "Register A" A)246 (tick) ;; load-data into A247 (view-register "Register A" A)248 (info)249 (view-memory 0xFF00)250 (tick) ;; load A into 0xFF00251 (view-memory 0xFF00)252 (info)253 (tick)254 (info)255 (tick)256 (info)257 (tick)258 (info)259 (tick)260 (info)261 (tick)262 (info)263 (tick)264 (print-inventory)))266 (defn test-count-frames []267 (= 255 (aget (memory ((apply comp (repeat 255 step))268 (count-frames)))269 0xD31F)))271 ;; specs for main bootstrap program272 ;; starts in "mode-select" mode273 ;; Each button press takes place in a single frame.274 ;; mode-select-mode takes one of the main buttons275 ;; which selects one of up to eight modes276 ;; mode 1 activated by the "A" button277 ;; the next two button presses indicates the start278 ;; memory location which to which the bootstrap279 ;; program will write.280 ;; This is done by using each of the eight buttons to281 ;; spell out an 8 bit number. The order of buttons is282 ;; [:d :u :l :r :start :select :b :a]283 ;; [:a :start :l] --> 00101001285 ;; the next button press determines how many bytes are to be286 ;; written, starting at the start position.288 ;; then, the actual bytes are entered and are written to the289 ;; start address in sequence.291 (defn input-number-assembly []292 [0x18 ;D31D ; jump over293 0x02 ;D31E ; the next 2 bytes294 0x00 ;D31F ; frame-count295 0x00 ;D320 ; v-blank-prev297 0xFA ;D321298 0x41 ;D322 ; load (FF41) into A299 0xFF ;D323 ; this contains mode flags301 ;; if we're in v-blank, the bit-1 is 0302 ;; and bit-2 is 1 Otherwise, it is not v-blank.303 0xCB ;D324 ; test bit-1 of A304 0x4F ;D325306 0xC2 ;D326 ; if bit-1 is not 0307 0x44 ;D327 ; GOTO not-v-blank308 0xD3 ;D328310 0xCB ;D329 ; test bit-0 of A311 0x47 ;D32A313 0xCA ;D32B ; if bit-0 is not 1314 0x44 ;D32C ; GOTO not-v-blank315 0xD3 ;D32D317 ;;; in v-blank mode319 ;; if v-blank-prev was 0,320 ;; increment frame-count322 0xFA ;D32E ; load v-blank-prev to A323 0x20 ;D32F324 0xD3 ;D330326 0xCB ;D331327 0x47 ;D332 ; test bit-0 of A329 0x20 ;D333 ; skip next section330 0x07 ;D334 ; if v-blank-prev was not zero332 ;; v-blank was 0, increment frame-count333 0xFA ;D335 ; load frame-count into A334 0x1F ;D336335 0xD3 ;D337337 0x3C ;D338 ; inc A339 0xEA ;D339 ; load A into frame-count340 0x1F ;D33A341 0xD3 ;D33B343 ;; set v-blank-prev to 1344 0x3E ;D33C ; load 1 into A345 0x01 ;D33D347 0xEA ;D33E ; load A into v-blank-prev348 0x20 ;D33F349 0xD3 ;D340351 0xC3 ;D341 ; GOTO input handling code352 0x4E ;D342353 0xD3 ;D343355 ;;; not in v-blank mode356 ;; set v-blank-prev to 0357 0x3E ;D344 ; load 0 into A358 0x00 ;D345360 0xEA ;D346 ; load A into v-blank-prev361 0x20 ;D347362 0xD3 ;D348364 0xC3 ;D349 ; return to beginning365 0x1D ;D34A366 0xD3 ;D34B368 0x00 ;D34C ; these are here369 0x00 ;D34D ; for glue372 ;;; calculate input number based on button presses373 0x18 ;D34E ; skip next 3 bytes374 0x03 ;D34F375 ;D350376 (Integer/parseInt "00100000" 2) ; select directional pad377 ;D351378 (Integer/parseInt "00010000" 2) ; select buttons379 0x00 ;D352 ; input-number381 ;; select directional pad, store low bits in B383 0xFA ;D353 ; load (D350) into A384 0x50 ;D354 -->385 0xD3 ;D355 --> D31F387 0xEA ;D356 ; load (A), which is388 0x00 ;D357 --> ; 00010000, into FF00389 0xFF ;D358 --> FF00391 0x06 ;D359392 ;D35A393 (Integer/parseInt "11110000" 2) ; "11110000" -> B394 0xFA ;D35B ; (FF00) -> A395 0x00 ;D35C396 0xFF ;D35D398 0xCB ;D35E ; swap nybbles on A399 0x37 ;D35F400 0xA0 ;D360 ; (AND A B) -> A401 0x47 ;D361 ; A -> B403 ;; select buttons store bottom bits in C405 0xFA ; ; load (D351) into A406 0x51 ; -->407 0xD3 ; --> D31F409 0xEA ; ; load (A), which is410 0x00 ; --> ; 00001000, into FF00411 0xFF ; --> FF00413 0x0E ;414 (Integer/parseInt "00001111" 2) ; "00001111" -> C416 0xFA ; ; (FF00) -> A417 0x00 ;418 0xFF ;420 0xA1 ; ; (AND A C) -> A421 0x4F ; ; A -> C423 ;; combine the B and C registers into the input number424 0x79 ; ; C -> A425 0xB0 ; ; (OR A B) -> A426 0x2F ; ; negate A428 0xEA ; ; store A into input-number429 0x52 ;430 0xD3 ;432 0xC3 ; ; return to beginning433 0x1D ;434 0xD3 ;435 ])437 (defn input-number []438 (-> (tick (mid-game))439 (IE! 0) ; disable interrupts440 (inject-item-assembly (input-number-assembly))))442 (defn test-input-number443 "Input freestyle buttons and observe the effects at the repl."444 []445 (set-state! (input-number))446 (dotimes [_ 90000] (step (view-memory @current-state 0xD352))))448 (defn write-memory-assembly []450 [451 ;; Main Timing Loop452 ;; Constantly check for v-blank and Trigger main state machine on453 ;; every transtion from v-blank to non-v-blank.455 0x18 ; D31D ; Variable declaration456 0x02 ; D31E457 0x00 ; D31F ; frame-count458 0x00 ; D320 ; v-blank-prev460 0xFA ; D321 ; load v-blank mode flags into A461 0x41 ; D322462 0xFF ; D323464 ;; Branch dependent on v-blank. v-blank happens when the last two465 ;; bits in A are "01"466 0xCB ; D324467 0x4F ; D325469 0xC2 ; D326 ; if bit-1 is not 0, then470 0x3E ; D327 ; GOTO non-v-blank.471 0xD3 ; D328473 0xCB ; D329474 0x47 ; D32A476 0xCA ; D32B ; if bit-0 is not 1, then477 0x3E ; D32C ; GOTO non-v-blank.478 0xD3 ; D32D480 ;; V-Blank481 ;; Activate state-machine if this is a transition event.483 0xFA ; D32E ; load v-bank-prev into A484 0x20 ; D32F485 0xD3 ; D330487 0xFE ; D331 ; compare A to 0. >--------\488 0x00 ; D332 \489 ; |490 ;; set v-blank-prev to 1. |491 0x3E ; D333 ; load 1 into A. |492 0x01 ; D334 |493 ; |494 0xEA ; D335 ; load A into v-blank-prev |495 0x20 ; D336 |496 0xD3 ; D337 |497 ; /498 ;; if v-blank-prev was 0, activate state-machine <------/499 0xCA ; D338 ; if v-blank-prev500 0x46 ; D339 ; was 0,501 0xD3 ; D33A ; GOTO state-machine503 0xC3 ; D33B504 0x1D ; D33C505 0xD3 ; D33D ; GOTO beginning506 ;; END V-blank508 ;; Non-V-Blank509 ;; Set v-blank-prev to 0510 0x3E ; D33E ; load 0 into A511 0x00 ; D33F513 0xEA ; D340 ; load A into v-blank-prev514 0x20 ; D341515 0xD3 ; D342517 0xC3 ; D343518 0x1D ; D344519 0xD3 ; D345 ; GOTO beginning520 ;; END Not-V-Blank523 ;; Main State Machine -- Input Section524 ;; This is called once every frame.525 ;; It collects input and uses it to drive the526 ;; state transitions.528 ;; Increment frame-count529 0xFA ; D346 ; load frame-count into A530 0x1F ; D347531 0xD3 ; D348533 0x3C ; D349 ; inc A535 0xEA ; D34A536 0x1F ; D34B ; load A into frame-count537 0xD3 ; D34C539 0x00 ; D34D ; glue :)542 ;;;;;;;;; BEGIN RLM DEBUG543 ;;0xC3 ;; jump to beginning544 ;;0x1D545 ;;0xD3546 ;;;;;;;;; END RLM DEBUG549 0x18 ;D34E ; skip next 3 bytes550 0x03 ;D34F551 ;D350552 (Integer/parseInt "00100000" 2) ; select directional pad553 ;D351554 (Integer/parseInt "00010000" 2) ; select buttons555 0x00 ;D352 ; input-number557 ;; select directional pad; store low bits in B559 0xFA ;D353 ; load (D350) into A560 0x50 ;D354 -->561 0xD3 ;D355 --> D350563 0xEA ;D356 ; load (A), which is564 0x00 ;D357 --> ; 00010000, into FF00565 0xFF ;D358 --> FF00567 0x06 ;D359568 ;D35A569 (Integer/parseInt "11110000" 2) ; "11110000" -> B570 0xFA ;D35B ; (FF00) -> A571 0x00 ;D35C572 0xFF ;D35D574 0xCB ;D35E ; swap nybbles on A575 0x37 ;D35F576 0xA0 ;D360 ; (AND A B) -> A577 0x47 ;D361 ; A -> B579 ;; select buttons; store bottom bits in C581 0xFA ;D362 ; load (D351) into A582 0x51 ;D363 -->583 0xD3 ;D364 --> D351585 0xEA ;D365 ; load (A), which is586 0x00 ;D366 --> ; 00001000, into FF00587 0xFF ;D367 --> FF00589 0x0E ;D368590 ;D369591 (Integer/parseInt "00001111" 2) ; "00001111" -> C593 0xFA ;D36A ; (FF00) -> A594 0x00 ;D36B595 0xFF ;D36C597 0xA1 ;D36D ; (AND A C) -> A598 0x4F ;D36E ; A -> C600 ;; combine the B and C registers into the input number601 0x79 ;D36F ; C -> A602 0xB0 ;D370 ; (OR A B) -> A603 0x2F ;D371 ; negate A605 0xEA ;D372 ; store A into input-number606 0x52 ;D373607 0xD3 ;D374609 0x00 ;D375610 0x00 ;D376611 0x00 ;D377612 0x00 ;D378613 0x00 ;D379614 0x00 ;D37A615 0x00 ;D37B ; these are here because616 0x00 ;D37C ; I messed up :(617 0x00 ;D37D618 0x00 ;D37E619 0x00 ;D37F621 ;; beginning of main state machine622 0x18 ;D380 ; Declaration of variables623 0x05 ;D381 ; 5 variables:624 0x00 ;D382 ; current-mode625 0x00 ;D383 ; bytes-to-write626 0x00 ;D384 ; bytes-written627 0x00 ;D385 ; start-point-high628 0x00 ;D386 ; start-point-low631 ;; banch on current mode632 0xFA ;D387 ; load current-mode (0xD382)633 0x82 ;D388 ; into A634 0xD3 ;D389635 0x00 ;D38A638 ;; GOTO Mode 0 (input-mode) if current-mode is 0639 0xFE ;D38B640 0x00 ;D38C ; compare A with 0x00642 0xCA ;D38D ; goto Mode 0 if A == 0643 0xA8 ;D38E644 0xD3 ;D38F646 ;; GOTO Mode 1 (set-length) if current-mode is 1647 0xFE ;D390648 0x01 ;D391 ; compare A with 0x01650 0xCA ;D392651 0xB1 ;D393652 0xD3 ;D394 ; goto Mode 1 if A == 1654 ;; GOTO Mode 2 (set-start-point-high) if current mode is 2655 0xFE ;D395656 0x02 ;D396 ; compare A with 0x02658 0xCA ;D397659 0xBF ;D398660 0xD3 ;D399 ; goto Mode 2 if A == 2662 ;; GOTO Mode 3 (set-start-point-low) if current mode is 3663 0xFE ;D39A664 0x03 ;D39B666 0xCA ;D39C667 0xCD ;D39D668 0xD3 ;D39E ; goto Mode 3 if A == 3670 ;; GOTO Mode 4 (write-memory) if current mode is 4671 0xFE ;D39F672 0x04 ;D3A0674 0xCA ;D3A1675 0xDB ;D3A2676 0xD3 ;D3A3678 0x00 ;D3A4679 ;; End of Mode checking, goto beginning680 0xC3 ;D3A5681 0x1D ;D3A6682 0xD3 ;D3A7685 ;; Mode 0 -- input-mode mode686 ;; means that we are waiting for a mode, so set the mode to687 ;; whatever is currently in input-number. If nothing is688 ;; entered, then the program stays in input-mode mode690 ;; set current-mode to input-number691 0xFA ;D3A8 ; load input-number (0xD352)692 0x52 ;D3A9 ; into A693 0xD3 ;D3AA695 0xEA ;D3AB ; load A into current-mode696 0x82 ;D3AC ; (0xD382)697 0xD3 ;D3AD699 0xC3 ;D3AE ; go back to beginning700 0x1D ;D3AF701 0xD3 ;D3B0702 ;; End Mode 0705 ;; Mode 1 -- set-length mode706 ;; This is the header for writing things to memory.707 ;; User specifies the number of bytes to write.708 ;; Mode is auto advanced to Mode 2 after this mode709 ;; completes.711 ;; Set bytes left to write to input-number;712 ;; set current-mode to 0x02.713 0xFA ;D3B1 ; load input-number (0xD352)714 0x52 ;D3B2 ; into A715 0xD3 ;D3B3717 0xEA ;D3B4 ; load A into bytes-left-to-write718 0x83 ;D3B5 ; (0xD383)719 0xD3 ;D3B6721 0x3E ;D3B7 ; load 0x02 into A.722 0x02 ;D3B8724 0xEA ;D3B9 ; load A to current-mode725 0x82 ;D3BA ; advancing from Mode 1 to726 0xD3 ;D3BB ; Mode 2728 0xC3 ;D3BC ; go back to beginning729 0x1D ;D3BD730 0xD3 ;D3BE731 ;; End Mode 1734 ;; Mode 2 -- set start-point-high mode735 ;; Middle part of the header for writing things to memory.736 ;; User specifies the start location in RAM to which737 ;; data will be written.738 ;; Mode is auto advanced to Mode 3 after this mode completes.740 ;; Set start-point-high to input-number;741 ;; set current mode to 0x03.742 0xFA ;D3BF ; load input-number (0xD352)743 0x52 ;D3C0 ; into A744 0xD3 ;D3C1746 0xEA ;D3C2 ; load A into start-point-high747 0x85 ;D3C3 ; (0xD385)748 0xD3 ;D3C4750 0x3E ;D3C5 ; load 0x03 into A.751 0x03 ;D3C6753 0xEA ;D3C7 ; load A to current-mode,754 0x82 ;D3C8 ; advancing from Mode 2 to755 0xD3 ;D3C9 ; Mode 3.757 0xC3 ;D3CA ; go back to beginning758 0x1D ;D3CB759 0xD3 ;D3CC760 ;;End Mode 2763 ;; Mode 3 -- set-start-point-low mode764 ;; Final part of header for writing things to memory.765 ;; User specifies the low bytes of 16 bit start-point.767 ;; Set start-point-low to input-number;768 ;; set current mode to 0x04769 0xFA ;D3CD ; load input-number into A770 0x52 ;D3CE771 0xD3 ;D3CF773 0xEA ;D3D0 ; load A into start-point-low774 0x86 ;D3D1775 0xD3 ;D3D2777 0x3E ;D3D3 ; load 0x04 into A.778 0x04 ;D3D4780 0xEA ;D3D5 ; load A to current-mode,781 0x82 ;D3D6 ; advancing from Mode 3 to782 0xD3 ;D3D7 ; Mode 4.784 0xC3 ;D3D8 ; go back to beginning785 0x1D ;D3D9786 0xD3 ;D3DA788 ;; Mode 4 -- write bytes mode790 ;; This is where RAM manipulation happens. User supplies791 ;; bytes every frame, which are written sequentially to792 ;; start-point until bytes-to-write have been written. Once793 ;; bytes-to-write have been written, the mode is reset to 0.795 ;; compare bytes-written with bytes-to-write.796 ;; if they are the same, then reset mode to 0798 0xFA ;D3DB ; load bytes-to-write into A799 0x83 ;D3DC800 0xD3 ;D3DD802 0x47 ;D3DE ; load A into B804 0xFA ;D3DF ; load bytes-written into A805 0x84 ;D3E0806 0xD3 ;D3E1808 0xB8 ;D3E2 ; compare A with B810 0xCA ;D3E3 ; if they are equal, go to cleanup811 0x07 ;D3E4812 0xD4 ;D3E5814 ;; Write Memory Section815 ;; Write the input-number, interpreted as an 8-bit number,816 ;; into the current target register, determined by817 ;; (+ start-point bytes-written).818 ;; Then, increment bytes-written by 1.820 0xFA ;D3E6 ; load start-point-high into A821 0x85 ;D3E7822 0xD3 ;D3E8824 0x67 ;D3E9 ; load A into H826 0xFA ;D3EA ; load start-point-low into A827 0x86 ;D3EB828 0xD3 ;D3EC830 0x6F ;D3ED ; load A into L832 0xFA ;D3EE ; load bytes-written into A833 0x84 ;D3EF834 0xD3 ;D3F0836 0x00 ;D3F1 ; These are here because837 0x00 ;D3F2 ; I screwed up again.838 0x00 ;D3F3840 0x85 ;D3F4 ; add L to A; store A in L.841 0x6F ;D3F5843 0x30 ;D3F6 ; If the addition overflowed,844 0x01 ;D3F7845 0x24 ;D3F8 ; increment H.847 ;; Now, HL points to the correct place in memory849 0xFA ;D3F9 ; load input-number into A850 0x52 ;D3FA851 0xD3 ;D3FB853 0x77 ;D3FC ; load A into (HL)855 0xFA ;D3FD ; load bytes-written into A856 0x84 ;D3FE857 0xD3 ;D3FF859 0x3C ;D400 ; increment A861 0xEA ;D401 ; load A into bytes-written862 0x84 ;D402863 0xD3 ;D403865 0xC3 ;D404 ; go back to beginning.866 0x1D ;D405867 0xD3 ;D406868 ;; End Write Memory Section870 ;; Mode 4 Cleanup Section871 ;; reset bytes-written to 0872 ;; set mode to 0873 0x3E ;D407 ; load 0 into A874 0x00 ;D408876 0xEA ;D409 ; load A into bytes-written877 0x84 ;D40A878 0xD3 ;D40B880 0xEA ;D40C ; load A into current-mode881 0x82 ;D40D882 0xD3 ;D40E884 0xC3 ;D40F ; go back to beginning885 0x1D ;D410886 0xD3 ;D411888 ;; End Mode 4890 ])894 (def frame-count 0xD31F)895 (def input 0xD352)896 (def current-mode 0xD382)897 (def bytes-to-write 0xD383)898 (def bytes-written 0xD384)899 (def start-point-high 0xD385)900 (def start-point-low 0xD386)904 (defn write-memory []905 (-> (tick (mid-game))906 (IE! 0) ; disable interrupts907 (inject-item-assembly (write-memory-assembly))))909 (defn test-write-memory []910 (set-state! (write-memory))911 (dorun912 (dotimes [_ 5000]913 (view-memory (step @current-state) current-mode))))915 (def bytes-to-write 0xD383)916 (def start-point 0xD384)918 (defn print-blank-assembly919 [start end]920 (dorun921 (map922 #(println (format "0x00 ;%04X " %))923 (range start end))))925 (defn test-mode-2 []926 (->927 (write-memory)928 (view-memory frame-count)929 (step)930 (step [:a])931 (step [:b])932 (step [:start])933 (step [])934 (view-memory frame-count)))936 (defn test-mode-4 []937 (->938 (write-memory)939 (#(do (println "memory from 0xC00F to 0xC01F:"940 (subvec (vec (memory %)) 0xC00F 0xC01F)) %))941 (view-memory current-mode)942 (step [])943 (step [])944 (step [])945 (#(do (println "after three steps") %))946 (view-memory current-mode)948 ;; Activate memory writing mode950 (#(do (println "step with [:a]") %))951 (step [:a])952 (view-memory current-mode)953 (view-memory bytes-to-write)954 (view-memory start-point-high)955 (view-memory start-point-low)957 ;; Specify four bytes to be written959 (#(do (println "step with [:select]")%))960 (step [:select])961 (view-memory current-mode)962 (view-memory bytes-to-write)963 (view-memory start-point-high)964 (view-memory start-point-low)966 ;; Specify target memory address as 0xC00F968 (#(do (println "step with [:u :d]")%))969 (step [:u :d])970 (view-memory current-mode)971 (view-memory bytes-to-write)972 (view-memory start-point-high)973 (view-memory start-point-low)975 (#(do (println "step with [:a :b :start :select]")%))976 (step [:a :b :start :select])977 (view-memory current-mode)978 (view-memory bytes-to-write)979 (view-memory start-point-high)980 (view-memory start-point-low)982 ;; Start reprogramming memory984 (#(do (println "step with [:a]")%))985 (step [:a])986 (view-memory current-mode)987 (view-memory bytes-written)989 (#(do (println "step with [:b]")%))990 (step [:b])991 (view-memory current-mode)992 (view-memory bytes-written)994 (#(do (println "step with [:a :b]")%))995 (step [:a :b])996 (view-memory current-mode)997 (view-memory bytes-written)999 (#(do (println "step with [:select]")%))1000 (step [:select])1001 (view-memory current-mode)1002 (view-memory bytes-written)1004 ;; Reprogramming done, program ready for more commands.1006 (#(do (println "step with []")%))1007 (step [])1008 (view-memory current-mode)1009 (view-memory bytes-written)1011 (#(do (println "memory from 0xC00F to 0xC01F:"1012 (subvec (vec (memory %)) 0xC00F 0xC01F)) %))))