Mercurial > vba-clojure

comparison clojure/com/aurellem/exp/notes.txt @ 302:0b3e89103dc2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
going to test bootstrapping program.
author Robert McIntyre <rlm@mit.edu>
date Sat, 31 Mar 2012 00:05:39 -0500
parents 1de6aada1cb7
children 5bcda2d6d135
comparison
equal deleted inserted replaced
301:1de6aada1cb7 302:0b3e89103dc2
1 ******** Game Sequence 1 ******** Game Sequence
2 2
3 start game 3 start game
4 4
5 name rival "L<PK>T<PK><PK><any-character>" 5 name rival "L<PK>U<PK><PK><any-character>"
6 (0x8B 0xE1 0x93 0xE1 in character codes) 6 (0x8B 0xE1 0x94 0xE1 in character codes)
7 7
8 get pikachu, fight rival, deliver oak's parcel, go back to 8 get pikachu, fight rival, deliver oak's parcel, go back to
9 viridian poke mart. 9 viridian poke mart.
10 10
11 Perform save corruption. 11 Perform save corruption.
27 27
28 Deposit things from your item list to get the following 28 Deposit things from your item list to get the following
29 pattern in the item computer. You can do this with what is 29 pattern in the item computer. You can do this with what is
30 in your item list because of the previous setup. 30 in your item list because of the previous setup.
31 31
32 [repeat the following 24 times] 32 [repeat the following 25 times]
33 0xFF 33 0xFF
34 0x01 34 0x01
35 [end repeat] 35 [end repeat]
36 36
37 ;; Second part of program to swap item ID and quantity at 37 ;; Second part of program to swap item ID and quantity at
53 0x70 ;; load B into target+1 [(target) -> target+1] 53 0x70 ;; load B into target+1 [(target) -> target+1]
54 54
55 0x00 55 0x00
56 0xC3 ;; first part of absolute jump 56 0xC3 ;; first part of absolute jump
57 57
58 burn-heal 58 burn-heal (0x0C)
59 x 95 -- address of Route 3 memory-function 59 x 95 (0x5F) -- address of Route 3 memory-function
60 60
61 [repeat the following 8 times] 61 [repeat the following 8 times]
62 0xFF 62 0xFF
63 0x01 63 0x01
64 [end repeat] 64 [end repeat]
65 65
66 0x00 ;; this starts at address 0xD58B 66 0x00 ;; this starts at address 0xD58A
67 0x21 ;; load target into HL 67 0x21 ;; load target into HL
68 68
69 third rival's name character 69 third rival's name character (U == 0x94)
70 x D5 -- target item address 70 x D5 -- target item address
71 71
72 0x00 72 0x00
73 0x18 ;; jump relative 73 0x18 ;; jump relative
74 74
75 fifth rival's name character (PK) (TM25) (0xE1 == -31) 75 fifth rival's name character (PK) (TM25) (0xE1 == -31)
76 x any 76 x any
77 77
78 target-item type 78 0xFF
79 target-item quantity 79 0x01
80
81 target-item type (at 0xD594)
82 target-item quantity (at 0xD595)
80 83
81 84
82 85
83 Drop enough from rival's first character/ third character 86 Drop enough from rival's first character/ third character
84 as an item so that it is [_ 0xD5] instead of [_ 0xE1]. 87 as an item so that it is [_ 0xD5] instead of [_ 0xE1].