Mercurial > vba-clojure
view clojure/com/aurellem/run/bootstrap_0.clj @ 338:92f0011925d2
created 40-byte program to bootstrap main bootstrap program
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 07 Apr 2012 12:31:12 -0500 |
parents | 2dd40f6b6a1f |
children | 93e74ed34305 |
line wrap: on
line source
1 (ns com.aurellem.run.bootstrap-02 (:use (com.aurellem.gb saves gb-driver util3 items vbm characters money))4 (:use (com.aurellem.run util title save-corruption))5 (:use (com.aurellem.exp item-bridge))6 (:import [com.aurellem.gb.gb_driver SaveState]))8 (defn-memo boot-root []9 [ [] (root)])11 (defn-memo to-rival-name12 ([] (to-rival-name (boot-root)))13 ([script]14 (->> script15 title16 oak17 name-entry-rlm18 (scroll-text 5))))20 (defn-memo name-rival-bootstrap21 ([] (name-rival-bootstrap (to-rival-name)))22 ([script]23 (->> script24 (first-difference [] [:a] AF)25 (first-difference [] [:r] DE)26 (play-moves27 [[]28 [] [] [:r] [] [:d] [:a] ;; L29 [:r] [] [:r] [] [:r] [] [:r] []30 [:r] [] [:d] [] [:d] [:a] ;; [PK]31 [:u] [] [:l] [] [:l] []32 [:l] [] [:l] [] [:l] [:a] ;; U33 [:r] [] [:r] [] [:r] []34 [:r] [] [:r] [] [:d] [:a] ;; [PK]35 [] [:a] ;; [PK]36 [] [:a] ;; [PK]37 [:r] [] [:d] [:a] ;; END38 ]))))40 (defn-memo leave-house41 ([] (leave-house (name-rival-bootstrap)))42 ([script]43 (->> script44 finish-title45 walk-to-stairs46 walk-to-door47 (walk [↓ ↓]))))49 (defn-memo to-pallet-town-edge50 ([] (to-pallet-town-edge (leave-house)))51 ([script]52 (->> script53 (walk [→ → → → →54 ↑ ↑ ↑ ↑ ↑ ↑]))))56 (defn-memo start-pikachu-battle57 ([] (start-pikachu-battle58 (to-pallet-town-edge)))59 ([script]60 (->> script61 (first-difference [:b] [:b :a] DE)62 scroll-text63 (do-nothing 200)64 (play-moves [[:b]]))))66 (defn-memo capture-pikachu67 ([] (capture-pikachu (start-pikachu-battle)))68 ([script]69 (->> script70 (scroll-text 3))))72 (defn-memo go-to-lab73 ([] (go-to-lab (capture-pikachu)))74 ([script]75 (->> script76 end-text77 (scroll-text 5)78 end-text79 ;; oak walks you to his lab; no input required.80 (do-nothing 400))))82 (defn-memo talk-to-oak-in-lab83 ([] (talk-to-oak-in-lab (go-to-lab)))84 ([script]85 (->> script86 (scroll-text 14)87 end-text)))89 (defn-memo try-to-get-eevee90 ([] (try-to-get-eevee (talk-to-oak-in-lab)))91 ([script]92 (->> script93 ;; walk to pokeball94 (walk [↓ → →])95 ;; and try to grab it96 (play-moves97 (concat [↑ ↑ [:a]]98 (repeat 100 [])))99 (scroll-text 10)100 (end-text))))102 (defn-memo obtain-pikachu103 ([] (obtain-pikachu (try-to-get-eevee)))104 ([script]105 (->> script106 (scroll-text 6)107 (end-text))))110 (defn-memo begin-battle-with-rival111 ([] (begin-battle-with-rival112 (obtain-pikachu)))113 ([script]114 (->> script115 (walk [↓ ↓ ↓])116 (scroll-text 3)117 (end-text)118 (scroll-text))))120 (defn-memo defeat-eevee121 ([] (defeat-eevee122 (begin-battle-with-rival)))123 ([script]124 (->> script125 (do-nothing 400)126 (play-moves [[:a]])127 (critical-hit)128 (do-nothing 200)129 (scroll-text 2) ;; for eevee's tail-whip130 (do-nothing 10)131 (play-moves [[:a]])132 (critical-hit)133 (do-nothing 200)134 (scroll-text 2) ;; tail whip again135 (do-nothing 10)136 (play-moves [[:a]])137 (critical-hit)138 (do-nothing 200))))140 (defn-memo finish-rival-text141 ([] (finish-rival-text142 (defeat-eevee)))143 ([script]144 (->> script145 (scroll-text 12)146 (end-text))))148 (defn-memo pikachu-comes-out149 ([] (pikachu-comes-out150 (finish-rival-text)))151 ([script]152 (->> script153 (scroll-text 8)154 (end-text))))156 (defn-memo leave-oaks-lab157 ([] (leave-oaks-lab158 (pikachu-comes-out)))159 ([script]160 (->> script161 (walk [↓ ↓ ↓ ↓ ↓ ↓]))))163 (defn-memo oaks-lab->pallet-town-edge164 ([] (oaks-lab->pallet-town-edge165 (leave-oaks-lab)))166 ([script]167 (->> script168 (walk [← ← ←169 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ →]))))171 (defn-memo pallet-edge->viridian-mart172 ([] (pallet-edge->viridian-mart true173 (oaks-lab->pallet-town-edge)))174 ([dodge-stupid-guy? script]175 (let [dodge-1 (if dodge-stupid-guy?176 [→ →]177 [→])178 dodge-2 (if dodge-stupid-guy?179 [↑ ↑ ←]180 [↑ ↑])]182 (->> script183 ;; leave straight grass184 (walk-thru-grass185 [↑ ↑ ↑ ↑ ↑])187 (walk [↑ ↑ ↑ ↑])189 (walk-thru-grass190 [← ← ↑])192 (walk [↑ ↑ ↑ ↑ → → → ])194 (walk-thru-grass195 [→ ↑ ↑ ←])197 (walk198 [← ←199 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑200 → → → → ])202 ;; this part is dependent on that203 ;; stupid NPC in the grass patch204 (walk-thru-grass205 (concat dodge-1206 [↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ]))208 (walk209 (concat210 dodge-2211 [← ← ←212 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑213 ← ←214 ↑ ↑ ↑ ↑215 → → → → → → → → → →216 ↑ ↑ ↑ ↑ ↑ ↑ ↑]))))))218 (defn-memo get-oaks-parcel219 ([] (get-oaks-parcel220 (pallet-edge->viridian-mart)))221 ([script]222 (->> script223 (do-nothing 50)224 (end-text)225 (scroll-text 3)226 (do-nothing 197)227 (play-moves [[:a] []])228 (walk [↓ ↓ → ↓]))))230 (defn-memo viridian-store->oaks-lab231 ([] (viridian-store->oaks-lab232 (get-oaks-parcel)))233 ([script]234 (->> script235 (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓236 ← ← ← ← ← ← ← ← ←237 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓238 ← ←239 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓240 ↓ ↓ ↓ ↓ ↓ ↓ ↓241 → → → → → → → →242 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓243 ← ← ← ← ←244 ↓ ↓ ↓ ↓245 ])246 (walk-thru-grass247 [↓ ↓ ↓ ↓ ↓ ↓ ↓])248 (walk [↓ ↓ ← ↓ ↓ ↓ ←249 ↓ ↓ ↓ ↓ ↓ ↓250 → → → ↑])252 (do-nothing 1))))255 (defn-memo viridian-store->oaks-lab-like-a-boss256 ([] (viridian-store->oaks-lab-like-a-boss257 (get-oaks-parcel)))258 ([script]259 (->> script260 (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓261 ← ← ← ← ← ← ← ← ←262 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓])264 (walk-thru-grass265 [↓ ↓ ↓ ↓ ↓])267 (walk268 [↓ ↓ ← ↓269 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓270 → → → ↓])272 (walk-thru-grass273 [↓ ↓ ↓])275 (walk [↓ ← ← ↓ ↓ ↓ ↓ ↓ ↓])277 (walk-thru-grass278 [↓ ↓ ↓ ↓ ↓ ↓])280 (walk [↓ ↓ ↓ ← ↓ ↓ ↓281 ↓ ↓ ↓ ↓ ↓282 → → → ↑]))))284 (defn-memo deliver-oaks-parcel285 ([] (deliver-oaks-parcel286 (viridian-store->oaks-lab-like-a-boss)))287 ([script]288 (->> script289 (walk [↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑])290 (play-moves [[] [:a]])291 (scroll-text 13)292 (end-text)293 (do-nothing 200)294 (scroll-text 2)295 (end-text)296 (scroll-text 2)297 (end-text)298 (scroll-text 8)299 (end-text)300 (scroll-text 9)301 (end-text)302 (scroll-text 7)303 (end-text)304 (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓]))))306 (defn-memo return-to-viridian-mart307 ([] (return-to-viridian-mart308 (deliver-oaks-parcel)))309 ([script]310 (->> script311 oaks-lab->pallet-town-edge312 (pallet-edge->viridian-mart false))))314 (defn-memo walk-to-counter315 ([] (walk-to-counter316 (return-to-viridian-mart)))317 ([script]318 (->> script319 (walk [↑ ↑ ←]))))323 ;; useful addresses324 52262 ;; --- current-cursor-offset325 52278 ;; --- current screen-offset328 (defn exp-item-list []329 (clojure.pprint/pprint330 (apply harmonic-compare331 (map read-state332 ["up-1" "down-1"333 "up-2" "down-2"334 "up-3" "down-3"335 "up-4" "down-4"336 "up-5" "down-5"337 "up-6"]))))340 ;; turns out that these addresses are the cursor position341 ;; for all lists in the game (start list, pokemon list, shop342 ;; lists, inventory lists, battle list, basically343 ;; everything!)345 (def list-cursor-offset-address 52262)346 (def list-screen-offset-address 52278)348 (defn list-offset349 ([^SaveState state]350 (let [mem (memory state)]351 (+ (aget mem list-screen-offset-address)352 (aget mem list-cursor-offset-address))))353 ([] (list-offset @current-state)))355 (defn exp-item-selection []356 (clojure.pprint/pprint357 (apply memory-compare358 (map read-state359 ["1-item"360 "2-items"361 "3-items"362 "4-items"363 ]))))365 (def item-quantity-selected-address 65432)367 (defn item-quantity-selected368 ([^SaveState state]369 (println "items:" (aget (memory state) item-quantity-selected-address))370 (aget (memory state) item-quantity-selected-address))371 ([] (item-quantity-selected @current-state)))373 (defn set-cursor-relative374 "Assumes the arrow keys currently control the cursor.375 Moves the cursor n steps relative to its current376 position."377 [n script]378 (let [key (if (< 0 n) ↓ ↑)]379 (multiple-times380 (Math/abs n)381 (partial first-difference382 [] key list-offset)383 script)))385 (defn set-cursor386 "Assumes the arrow keys currently control the cursor. Sets387 the cursor to the desired position. Works for any menu388 that uses a cursor including the start menu, item menu,389 pokemon menu, and battle menu."390 [n [moves state :as script]]391 (let [current-position (list-offset state)392 difference (- n current-position)]393 (println difference)394 (set-cursor-relative difference script)))396 (defn set-quantity397 "Set the quantity of an item to buy or sell to the desired value398 using the fewest possible button presses."399 ([total-quantity desired-quantity [moves state :as script]]400 (let [current-quantity (item-quantity-selected state)401 loop-point (if (> total-quantity 99) 0xFF 99)402 distance (- desired-quantity current-quantity)403 loop-distance (int(* -1 (Math/signum (float distance))404 (- loop-point (Math/abs distance))))405 best-path (first (sort-by #(Math/abs %)406 [distance loop-distance]))407 direction (if (< 0 best-path) ↑ ↓)]408 (println "best-path" best-path)409 (reduce410 (fn [script _]411 (delayed-difference [] direction 5 item-quantity-selected412 script))414 script415 (range (Math/abs best-path)))))416 ([desired-quantity [moves state :as script]]417 (set-quantity 99 desired-quantity script)))419 (defn activate-start-menu [script]420 (first-difference [:b] [:b :start] AF script))422 (defn wait-until [script-fn script]423 (let [wait-time424 (- (dec (count (first (script-fn script))))425 (count (first script)))]426 (println "wait-time" wait-time)427 (do-nothing wait-time script)))429 (defn select-menu-entry [script]430 (->> script431 (wait-until (partial set-cursor-relative 1))432 (play-moves [[:a] []])))434 (defn restart435 "The two button presses after a restart event are converted to436 blanks. Due to weirdness with the VBM format. To compensate, ensure437 that the two button presses after restart are both blanks."438 [script]439 (play-moves [[:restart] [] []] script))441 (defn-memo do-save-corruption442 ([] (do-save-corruption443 (walk-to-counter)))444 ([script]445 (->> script446 activate-start-menu447 (set-cursor 4)448 select-menu-entry449 select-menu-entry450 (play-moves451 ;; this section is copied from speedrun-2942 and corrupts452 ;; the save so that the total number of pokemon is set to453 ;; 0xFF, allowing manipulation of non-pokemon data in RAM454 ;; via the pokemon interface.455 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []456 [] [] [] [] [] [] [] [] [] [] [] []])457 (restart)458 (title)459 (first-difference [] [:start] AF)460 (first-difference [] [:a] AF))))462 (defn gen-corrupted-checkpoint! []463 (let [[cor-moves cor-save] (do-save-corruption)]464 (write-moves! cor-moves "cor-checkpoint")465 (write-state! cor-save "cor-checkpoint")))467 (defn corrupted-checkpoint []468 [(read-moves "cor-checkpoint")469 (read-state "cor-checkpoint")])471 (def menu do-nothing )473 (defn close-menu [script]474 (first-difference [] [:b] AF script))476 (defn purchase-item477 "Assumes that the cursor is over the desired item, and purchases478 quantity of that item."479 [n script]480 (->> script481 select-menu-entry482 (set-quantity n)483 (first-difference [] [:a] AF)484 scroll-text485 select-menu-entry486 scroll-text))488 (defn-memo corrupt-item-list489 "Corrupt the num-of-items variable by switching a corrupted pokemon490 into out-of-bounds memory."491 ([] (corrupt-item-list492 ;;(corrupted-checkpoint)493 (do-save-corruption)494 ))495 ([script]496 (->> script497 activate-start-menu498 (set-cursor 1) ; select "POKEMON" from499 select-menu-entry ; from main menu.500 (set-cursor 5) ; select 6th pokemon501 select-menu-entry502 (set-cursor 1)503 select-menu-entry504 (repeat-until-different [] list-offset)505 (set-cursor 9)506 select-menu-entry ; switch 6th with 10th507 close-menu508 close-menu)))510 (defn-memo get-lots-of-money511 "Sell 0xFE cancel buttons to make a tremendous amount of money."512 ([] (get-lots-of-money (corrupt-item-list)))513 ([script]514 (->> script515 (first-difference [] [:a] AF) ; talk to shopkeep516 (repeat-until-different [] list-offset)517 (set-cursor 1)518 select-menu-entry519 (repeat-until-different [] list-offset)520 select-menu-entry521 (set-quantity 0xFF 0xF7)522 (first-difference [] [:a] AF)523 select-menu-entry524 close-menu)))526 (defn note [str script]527 (println str) script)529 (defn-memo buy-bootstrapping-items530 "Buy items that will become part of the bootstrapping531 program."532 ([] (buy-bootstrapping-items (get-lots-of-money)))533 ([script]534 (->> script535 close-menu536 select-menu-entry537 (purchase-item 1) ; buying a pokeball overflows538 ; the item-counter from 0xFF to 0x00539 ; repairing the item-list.540 (set-cursor 1)541 (purchase-item 1) ; these other items are here to542 ; protect the burn heals when the543 (set-cursor 2) ; item list is corrupted again.544 (purchase-item 1)546 (set-cursor 3)547 (purchase-item 1)549 (set-cursor 4) ; 95 burn-heals spells out the550 (purchase-item 96) ; return address to the pokemon551 ; kernel. 96 so that they can be552 ; deposited without causing a shift.554 close-menu ; stop talking to shopkeep555 (wait-until select-menu-entry)556 (play-moves [[:b]])557 end-text)))559 (defn-memo corrupt-item-list-again560 ([] (corrupt-item-list-again (buy-bootstrapping-items)))561 ([script]562 (->> script563 activate-start-menu564 (set-cursor-relative 0)565 select-menu-entry567 ;; repair list-offset for pokemon-list568 (set-cursor-relative -1)570 (set-cursor 4) ; switching it to571 select-menu-entry ; tenth place.572 (set-cursor 1)573 select-menu-entry ; select "switch" on 5th575 (repeat-until-different [] list-offset)576 (set-cursor 9) ; goto 10th pokemon577 select-menu-entry ; do switch578 close-menu579 close-menu)))581 (defn-memo leave-viridian-store582 ([] (leave-viridian-store (corrupt-item-list-again)))583 ([script]584 (->> script585 ;; leave store586 (walk [↓ ↓ → ↓]))))588 (defn force-encounter [direction script]589 (delayed-improbability-search590 600591 #(search-string % "Wild")592 (partial move direction) script))594 (defn-memo fight-wild-pokemon595 ([] (fight-wild-pokemon (leave-viridian-store)))596 ([script]597 (->> script598 (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓599 ← ← ← ← ← ← ← ←600 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓])601 (force-encounter →))))603 (defn-memo run-from-pokemon604 ([] (run-from-pokemon (fight-wild-pokemon)))605 ([script]606 (->> script607 (scroll-text)608 (play-moves [[:a]])609 (wait-until select-menu-entry)610 (set-cursor 1)611 (first-difference [] → AF)612 (scroll-text)613 (scroll-text))))615 (defn-memo to-poke-center-computer616 ([] (to-poke-center-computer617 (run-from-pokemon)))618 ([script]619 (->> script620 (walk-thru-grass [→ → ↑])621 (walk [↑ ← ← ←622 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑623 ← ←624 ↑ ↑ ↑ ↑625 → → → → ↑])626 (walk [→ →627 ↑ ↑ ↑628 → → → → → → → → →])629 (first-difference [] ↑ AF))))631 (defn-memo begin-deposits632 ([] (begin-deposits633 (to-poke-center-computer)))634 ([script]635 (->> script636 ;; access PC637 (scroll-text 2)639 ;; access item storage640 (menu [[:a] [:d] [:a]])641 (scroll-text 2)643 ;; begin deposit644 (menu [[:d] [:a]])645 (do-nothing 40))))647 (defn deposit-n-items648 [n script]649 (->> script650 (do-nothing 100)651 (play-moves [[:a]])652 (do-nothing 80)653 (multiple-times654 (dec n)655 (fn [script]656 (->> script657 (play-moves [[:u]])658 (do-nothing 1))))659 (play-moves [[:a]])660 (scroll-text)))662 (defn deposit-one-item663 [script]664 (->> script665 (do-nothing 100)666 (play-moves [[:a]])667 (do-nothing 80)668 (play-moves [[:a]])669 (scroll-text)))671 (defn-memo create-header672 ([] (create-header (begin-deposits)))673 ([script]674 (->> script675 (multiple-times 33 deposit-one-item)676 (do-nothing 1))))678 (defn bootstrap-init []679 [(read-moves "bootstrap-init")680 (read-state "bootstrap-init")])682 (defn create-bootstrap-program683 ([] (create-bootstrap-program684 (create-header)))685 ([script]686 (->> script687 (do-nothing 120)688 (menu [↓ ↓ ↓ ↓ ↓ ↓ ↓])689 ;;(deposit-n-items 33)691 (menu (repeat 17 ↓))695 (do-nothing 1))))698 (defn test-pc-item-program []699 (-> (read-state "bootstrap-init")700 (set-memory pc-item-list-start 50)701 (set-memory-range702 map-function-address-start [0x8B 0xD5])703 (set-memory-range704 (inc pc-item-list-start)705 (flatten706 [(repeat707 28708 [0xFF 0x01])709 [;; second part of item manipulation program710 0x00 ;; this starts at address 0xD56C711 0x2A ;; save (HL)=(target) to A, increment HL713 0x00714 0x47 ;; save A to B716 0x00717 0x3A ;; save (target+1) to A, decrement HL719 0x00720 0x22 ;; A -> target, increment HL [(target+1) -> target]722 0x00723 0x70 ;; load B into target+1 [(target) -> target+1]725 0x00726 0xC3 ;; first part of absolute jump728 0x0C ;; return control to pokemon kernel729 0x5F]730 (repeat731 5732 [0xFF 0x01])734 [;; first part of item manipulation program735 0x00736 0x21 ;; load target into HL738 0x94 ;; this is the target address739 0xD5741 0x00 ;; relative jump back to first part742 0x18744 0xE1 ;; of program745 0x01747 0xFF ;; spacer748 0x01750 0x04 ;; target ID (pokeball)751 0x3E ;; target Quantity (lemonade)752 ]]))))758 (defn basic-writer [target-address limit return-address]759 (let [[target-high target-low] (disect-bytes-2 target-address)760 [return-high return-low] (disect-bytes-2 return-address)]761 (flatten762 [0xF3 ;; disable interrupts763 ;;0xC5 ;; push junk onto stack764 ;;0xD5765 ;;0xE5766 ;;0xF5768 0x1E ;; load limit into E769 limit771 0x21 ;; load target into HL772 target-low773 target-high775 ;; load 1 into C.776 0x0E ;; C == 1 means input-first nybble777 0x01 ;; C == 0 means input-second nybble780 ;; Input Section782 0x3E ;; load 0x20 into A, to measure dpad783 0x20785 0xE0 ;; load A into [FF00]786 0x00788 0xF0 ;; load 0xFF00 into A to get789 0x00 ;; d-pad presses791 0xE6792 0x0F ;; select bottom four bits of A794 0xB8 ;; see if input is different (CP A B)796 0x28 ;; repeat above steps if input is not different797 ;; (jump relative backwards if B != A)798 0xF5 ;; (literal -11)800 0x47 ;; load A into B802 0x0D ;; dec C803 ;; branch based on C:804 0x20 ;; JR NZ805 0x07 ;; skip "input first nybble" below808 ;; input first nybble810 0xCB811 0x37 ;; swap nybbles on A813 0x57 ;; A -> D815 0x18816 0xEC ;; literal -20 -- go back to input section818 ;; input second nybble820 0x0C ;; inc C822 0xE6 ;; select bottom bits823 0x0F825 0xB2 ;; (OR A D) -> A827 0x22 ;; (do (A -> (HL)) (INC HL))829 0x1D ;; (DEC E)831 0x20 ;; jump back to input section if not done832 0xE4 ;; literal -28834 ;; cleanup835 ;;0xF1836 ;;0xE1837 ;;0xD1838 ;;0xC1840 0xFB ;; re-enable interrupts842 0xC3843 return-low844 return-high ])))847 (defn test-basic-writer []848 (-> (read-state "bootstrap-init")849 (set-memory pc-item-list-start 50)850 (set-memory-range851 map-function-address-start852 (reverse (disect-bytes-2 (inc pc-item-list-start))))853 (set-memory-range854 (inc pc-item-list-start)855 (basic-writer 0xD162 10 0x5F0C))))857 (defn debug-basic-writer []858 (PC! (test-basic-writer) (inc pc-item-list-start)))860 (defn d-ticks [state n]861 (reduce (fn [state _] (d-tick state))862 state (range n)))864 (defn d-print [state message]865 (println message) state)867 (defn dddd868 []869 (-> (debug-basic-writer)870 (d-ticks 20)871 (set-memory 0xFF00 0xFF)872 (d-print "============== second cycle")873 (d-ticks 14)874 (d-print "============== end")875 (d-ticks 20)))