1.1 --- a/org/rom.org	Fri Apr 13 05:06:56 2012 -0500
     1.2 +++ b/org/rom.org	Fri Apr 13 09:07:09 2012 -0500
     1.3 @@ -1077,11 +1077,20 @@
     1.4  |                       | <15>            | <15>            | <15>            |
     1.5  | 01823-0184A           | Important prefix strings. | Variable-length strings, separated by 0x50. | TM#TRAINER#PC#ROCKET#POK\eacute{}#... |
     1.6  | 0233C-                | Shop inventories. |                 |                 |
     1.7 +| 02F47-                | (?) Move ids of some HM moves. | One byte per move id | 0x0F 0x13 0x39 0x46 0x94 0xFF, the move ids of CUT, FLY, SURF, STRENGTH, FLASH, then cancel. |
     1.8  | 04495-                | Prices of items. | Each price is two bytes of binary-coded decimal. Prices are separated by zeroes. Priceless items[fn::Like the Pok\eacute{}dex and other unsellable items.] are given a price of zero. | The cost of lemonade is 0x03 0x50, which translates to a price of ₱350. |
     1.9 +| 04524-04527           | (unconfirmed) possibly the bike price in Cerulean. |                 |                 |
    1.10  | 045B7-0491E           | Names of the items in memory. | Variable-length item names (strings of character codes). Names are separated by a single 0x50 character. | MASTER BALL#ULTRA BALL#... |
    1.11  | 04D89-                | Lists of wild Pok\eacute{}mon to encounter in each region. | Each list contains ten Pokemon (ids) and their levels; twenty bytes in total. First, the level of the first Pokemon. Then the internal id of the first Pokemon. Next, the level of the second Pokemon, and so on. Since Pokemon cannot have level 0, the lists are separated by a pair 0 /X/, where /X/ is an apparently random Pokemon id. | The first list is (3 36 4 36 2 165 3 165 2 36 3 36 5 36 4 165 6 36 7 36 0 25), i.e. level 3 pidgey, level 4 pidgey, level 2 rattata, level 3 rattata, level 2 pidgey, level 3 pidgey, level 5 pidgey, level 4 rattata, level 6 pidgey, level 7 pidgey, \ldquo{}level 0 gastly\rdquo{} (i.e., end-of-list). |
    1.12 +|-----------------------+-----------------+-----------------+-----------------|
    1.13 +| 05DD2-05DF2           | Menu text for player info. |                 | PLAYER [newline] BADGES [nelwine] POK\Eacute{}DEX [newline] TIME [0x50] |
    1.14  | 05EDB.                | Which Pok\eacute{}mon to show during Prof. Oak's introduction. | A single byte, the Pok\eacute{}mon's internal id. | In Pok\eacute{}mon Yellow, it shows Pikachu during the introduction; Pikachu's internal id is 0x54. |
    1.15  | 06698-                | ? Background music. |                 |                 |
    1.16 +| 7550-7570             | Menu options for map directions[fn:unused:According to [[http://tcrf.net/Pok%C3%A9mon_Red_and_Blue#NORTH.2FWEST.2FSOUTH.2FEAST][The Cutting Room Floor]], this data is unused. ]. | Variable-length strings. | NORTH [newline] WEST [0x50] SOUTH [newline] EAST [0x50] NORTH [newline] EAST[0x50] |
    1.17 +| 7570-757D             | Menu options for trading Pok\eacute{}mon |                 | TRADE [newline] CANCEL [0x50] |
    1.18 +| 757D-758A             | Menu options for healing Pok\eacute{}mon |                 | HEAL [newline] CANCEL [0x50] |
    1.19 +| 7635-                 | Menu options for selected Pok\eacute{}mon (Includes names of out-of-battle moves). | Variable-length strings separated by 0x50. | CUT [0x50] FLY [0x50] SURF [0x50] STRENGTH [0x50] FLASH [0x50] DIG [0x50] TELEPORT [0x50] SOFTBOILED [0x50] STATS [newline] SWITCH [newline] CANCEL [0x50] |
    1.20 +| 7AF0-8000             | (empty space)   |                 | 0 0 0 0 0 ...   |
    1.21  | 0822E-082F?           | Pointers to background music, part I. |                 |                 |
    1.22  | 0CB95-                | Pointers to lists of wild pokemon to encounter in each region. These lists begin at 04D89, see above. | Each pointer is a low-byte, high-byte pair. | The first entry is 0x89 0x4D, corresponding to the address 0x4D89, the location of the first list of wild Pok\eacute{}mon (see 04D89, above). |
    1.23  |-----------------------+-----------------+-----------------+-----------------|
    1.24 @@ -1090,6 +1099,9 @@
    1.25  | 0DAE3.                | Amount of HP restored by Potion. | "               | 20              |
    1.26  |-----------------------+-----------------+-----------------+-----------------|
    1.27  | 0DD4D-DD72            | Names of permanent stats. | Variable-length strings separated by 0x50. | #HEALTH#ATTACK#DEFENSE#SPEED#SPECIAL# |
    1.28 +| 1164B-                | Terminology for the Pok\eacute{}mon menu. | Contiguous, variable-length strings. | TYPE1[newline]TYPE2[newline] *№*,[newline]OT,[newline][0x50]STATUS,[0x50]OK |
    1.29 +| 116DE-                | Terminology for permanent stats in the Pok\eacute{}mon menu. | Contiguous, variable-length strings. | ATTACK[newline]DEFENSE[newline]SPEED[newline]SPECIAL[0x50] |
    1.30 +| 11852-                | Terminology for current stats in the Pok\eacute{}mon menu. | Contiguous, variable-length strings. | EXP POINTS[newline]LEVEL UP[0x50] |
    1.31  | 1195C-1196A           | The two terms for being able/unable to learn a TM/HM. | Variable-length strings separated by 0x50. | ABLE#NOT ABLE#  |
    1.32  | 119C0-119CE           | The two terms for being able/unable to evolve using the current stone. | Variable-length strings separated by 0x50. | ABLE#NOT ABLE#  |
    1.33  | 1232D-12364           | Which moves are taught by the TMs and HMs | A list of 55 move ids (50 TMs, plus 5 HMs). First, the move that will be taught by TM01; second, the move that will be taught by TM02; and so on. The last five entries are the moves taught by HMs 1-5. (See also, BC000 below) | The first few entries are (5 13 14 18 ...) corresponding to Mega Punch (TM01), Razor Wind (TM02), Swords Dance (TM03), Whirlwind (TM04), ... |
    1.34 @@ -1105,13 +1117,15 @@
    1.35  | 39462-                | The Pok\eacute{}mon cry data. | Fixed-length (3 byte) descriptions of cries. |                 |
    1.36  |-----------------------+-----------------+-----------------+-----------------|
    1.37  | 3997D-39B05           | Trainer titles (extended; see 27E77). This list includes strictly more trainers, seemingly at random inserted into the list from 27E77.[fn::The names added are in bold: YOUNGSTER, BUG CATCHER, LASS, *SAILOR*, JR TRAINER(m), JR TRAINER(f), POK\eacute{}MANIAC, SUPER NERD, *HIKER*, *BIKER*, BURGLAR, ENGINEER, JUGGLER, *FISHERMAN*, SWIMMER, *CUE BALL*, *GAMBLER*, BEAUTY,  *PSYCHIC*, ROCKER, JUGGLER (again), *TAMER*, *BIRDKEEPER*, BLACKBELT, *RIVAL1*, PROF OAK, CHIEF, SCIENTIST, *GIOVANNI*, ROCKET, COOLTRAINER(m), COOLTRAINER(f), *BRUNO*, *BROCK*, *MISTY*, *LT. SURGE*, *ERIKA*, *KOGA*, *BLAINE*, *SABRINA*, *GENTLEMAN*, *RIVAL2*, *RIVAL3*, *LORELEI*, *CHANNELER*, *AGATHA*, *LANCE*.] |                 |                 |
    1.38 -| 39B05-3A289 (?)       | Pointers to trainer Pok\eacute{}mon |                 |                 |
    1.39 +| 39B05-39DD0.          | unknown         |                 |                 |
    1.40 +| 39DD1-                | (?) Pointers to trainer Pok\eacute{}mon |                 |                 |
    1.41  | 3A289-3A540 (approx)  | Trainer Pok\eacute{}mon | Consecutive level/internal-id pairs (as with wild Pok\eacute{}mon; see 04D89) with irregular spacing \mdash{} the separators seem to have some metadata purpose. | The first entry is 0x05 0x66, representing level 5 Eevee (from your first battle in the game[fn::Incidentally, to change your rival's starter Pok\eacute{}mon, it's enough just to change its species in all of your battles with him.].) |
    1.42  | 3B1E5-3B361           | Pointers to evolution/learnset data. | One high-low byte pair for each of the 190 Pok\eacute{}mon in internal order. |                 |
    1.43  |-----------------------+-----------------+-----------------+-----------------|
    1.44  | 3B361-3BBAA           | Evolution and learnset data. [fn::Evolution data consists of how to make Pok\eacute{}mon evolve, and what they evolve into. Learnset data consists of the moves that Pok\eacute{}mon learn as they level up.] | Variable-length evolution information (see below), followed by a list of level/move-id learnset pairs. |                 |
    1.45  | 3BBAA-3C000           | (empty)         |                 | 0 0 0 0 ...     |
    1.46  |-----------------------+-----------------+-----------------+-----------------|
    1.47 +| 3D131-3D133           | The inventory of both OLD MAN and PROF. OAK when they battle for you. | Pairs of [item-id quantity], terminated by 0xFF. | (0x04 0x01 0xFF) They only have one Pok\eacute{}ball [fn::If you give them any ball, OAK will catch the enemy Pok\eacute{}mon and OLD MAN will miss. (OLD MAN misses even if he throws a MASTER BALL, which is a sight to see!) If you give them some other item first in the list, you'll be able to use that item normally but then you'll trigger the Safari Zone message: Pa will claim you're out of SAFARI BALLs and the battle will end. If you engage in either an OLD MAN or OAK battle with a Gym Leader, you will [1] get reprimanded if you try to throw a ball [2] incur the Safari Zone message [3] automatically win no matter which item you use [4] earn whichever reward they give you as usual [5] permanently retain the name OLD MAN / PROF. OAK.]. |
    1.48  | 3D6C7-3D6D6           | Two miscellaneous strings. | Variable length, separated by 0x50 | Disabled!#TYPE  |
    1.49  |-----------------------+-----------------+-----------------+-----------------|
    1.50  | 40252-4027B           | Pok\eacute{}dex menu text | Variable-length strings separated by 0x50. | SEEN#OWN#CONTENTS#... |
    1.51 @@ -1120,17 +1134,21 @@
    1.52  | 41072-                | Pok\eacute{} placeholder species, "???" |                 |                 |
    1.53  |-----------------------+-----------------+-----------------+-----------------|
    1.54  | 410B1-4116F           | A conversion table between internal order and Pokedex order. | 190 bytes, corresponding to the Pok\eacute{}dex numbers of the 190 Pok\eacute{}mon listed in internal order. All =MISSINGNO.= are assigned a Pok\eacute{}dex number of 0. | The first few entries are (112 115 32 35 21 100 34 80 2 ...), which are the Pok\eacute{}dex numbers of Rhydon, Kangaskhan, Nidoran(m), Clefairy, Spearow, Voltorb, Nidoking, Slobrow, and Ivysaur. |
    1.55 -| 527BA-527DB           | The costs and species of prizes from Celadon Game Corner. | The following pattern repeats three times, once per window[fn::For the first two groups, ids are interpreted as Pok\eacute{}mon ids. For the last group, ids are (somehow) interpreted as item ids.]: Internal ids / 0x50 / Prices (two bytes of BCD)/ 0x50. | (0x94 0x52 0x65 0x50) Abra Vulpix Wigglytuff (0x02 0x30 0x10 0x00 0x26 0x80) 230C, 1000C, 2680C |
    1.56 +| 527BA-527DB           | The costs and kinds of prizes from Celadon Game Corner. | The following pattern repeats three times, once per window[fn::For the first two prize lists, ids are interpreted as Pok\eacute{}mon ids. For the last prize list, ids are (somehow) interpreted as item ids.]: Internal ids / 0x50 / Prices (two bytes of BCD)/ 0x50. | (0x94 0x52 0x65 0x50) Abra Vulpix Wigglytuff (0x02 0x30 0x10 0x00 0x26 0x80) 230C, 1000C, 2680C |
    1.57  | 5DE10-5DE30           | Abbreviations for status ailments. | Fixed-length strings, probably[fn::Here's something strange: all of the status messages start with 0x7F and end with 0x4F \mdash{}except PAR, which ends with 0x50.]. The last entry is QUIT##. | [0x7F] *SLP* [0x4E][0x7F] *PSN* [0x4E][0x7F] *PAR* [0x50][0x7F]... |
    1.58 +|-----------------------+-----------------+-----------------+-----------------|
    1.59 +| 70295-                | Hall of fame    | The text "HALL OF FAME" |                 |
    1.60 +| 70442-                | Play time/money | The text "PLAY TIME [0x50] MONEY" |                 |
    1.61  | 71500-7174B           | Names of places. | Variable-length place names (strings), separated by 0x50. | PALLET TOWN#VIRIDIAN CITY#PEWTER CITY#CERULEAN CITY#... |
    1.62  | 71C1E-71CAA (approx.) | Tradeable NPC Pok\eacute{}mon. | Internal ID, followed by nickname (11 chars; extra space padded by 0x50). Some of the Pokemon have unknown extra data around the id. | The first entry is [0x76] "GURIO######", corresponding to a Dugtrio named "GURIO". |
    1.63  | 7C249-7C2??           | Pointers to background music, pt II. |                 |                 |
    1.64 +|-----------------------+-----------------+-----------------+-----------------|
    1.65  | 98000-B8000           | Dialogue and other messsages. | Variable-length strings. |                 |
    1.66  | B8000-BC000           | The text of each Pok\eacute{}mon's Pok\eacute{}dex entry. | Variable-length descriptions (strings) in Pok\eacute{}dex order, separated by 0x50. These entries use the special characters *0x49* (new page), *0x4E* (new line), and *0x5F* (end entry). | The first entry (Bulbasaur's) is: "It can go for days [0x4E] without eating a [0x4E] single morsel. [0x49] In the bulb on [0x4E] its back,  it [0x4E] stores energy [0x5F] [0x50]." |
    1.67  | BC000-BC60E           | Move names.     | Variable-length move names, separated by 0x50. The moves are in internal order. | POUND#KARATE CHOP#DOUBLESLAP#COMET PUNCH#... |
    1.68  | E8000-E876C           | Names of the \ldquo{}190\rdquo{} species of Pok\eacute{}mon in memory. | Fixed length (10-letter) Pok\eacute{}mon names. Any extra space is padded with the character 0x50. The names are in \ldquo{}internal order\rdquo{}. | RHYDON####KANGASKHANNIDORAN♂#... |
    1.69 -|                       |                 |                 |                 |
    1.70 -|                       |                 |                 |                 |
    1.71 +|-----------------------+-----------------+-----------------+-----------------|
    1.72 +| E9BD5-                | The text PLAY TIME (see above, 70442) |                 |                 |
    1.73     #+TBLFM: 
    1.74  
    1.75  
    1.76 @@ -1609,7 +1627,22 @@
    1.77  ;; note: 0xDFEA (in indexable mem) is the dex# of the currently-viewed Pokemon in
    1.78     ;; in the pokedex. It's used for other purposes if there is none.
    1.79  
    1.80 -;; 0x251A (in indexable mem): image decompression routine seems to begin here.
    1.81 +;; note: 0x9D35 (index.) switches from 0xFF to 0x00 temporarily when
    1.82 +;;   you walk between areas. 
    1.83 +
    1.84 +;; note: 0xD059 (index.) is the special battle type of your next battle:
    1.85 +;; - 00 is a usual battle
    1.86 +;; - 01 is a pre-scripted OLD MAN battle which always fails to catch the
    1.87 +;;      target Pokemon.
    1.88 +;; - 02 is a safari zone battle
    1.89 +;; - 03  obligates you to run away. (unused) 
    1.90 +;; - 04 is a pre-scripted OAK battle, which (temporarily) causes the
    1.91 +;;      enemy Pokemon to cry PIKAAA, and which always catches the target
    1.92 +;;      Pokemon. The target Pokemon is erased after the battle.
    1.93 +;; - 05+ are glitch states in which you are sort of the Pokemon.
    1.94 +
    1.95 +
    1.96 +;; note: 0x251A (in indexable mem): image decompression routine seems to begin here.
    1.97  
    1.98  
    1.99  ;; Note: There are two tile tables, one from 8000-8FFF, the other from
   1.100 @@ -1667,8 +1700,49 @@
   1.101         
   1.102         (partition 2
   1.103                    (take 100;;703
   1.104 -                        (drop 0x3A281 (rom)))))))))
   1.105 +                        (drop
   1.106 +                         0x3A281
   1.107 +                        ;; 0x3A75D
   1.108 +                         (rom)))))))))
   1.109    
   1.110 +(defn search-memory* [mem codes k]
   1.111 +  (loop [index 0
   1.112 +         index-next 1
   1.113 +         start-match 0
   1.114 +         to-match codes
   1.115 +         matches []]
   1.116 +    (cond
   1.117 +      (>= index (count mem)) matches
   1.118 +
   1.119 +      (empty? to-match)
   1.120 +      (recur
   1.121 +       index-next
   1.122 +       (inc index-next)
   1.123 +       index-next
   1.124 +       codes
   1.125 +       (conj matches
   1.126 +             [(hex start-match) (take k (drop start-match mem))])
   1.127 +       )
   1.128 +
   1.129 +      (or (= (first to-match) \_) ;; wildcard
   1.130 +          (= (first to-match) (nth mem index)))
   1.131 +      (recur
   1.132 +       (inc index)
   1.133 +       index-next
   1.134 +       start-match
   1.135 +       (rest to-match)
   1.136 +       matches)
   1.137 +
   1.138 +      :else
   1.139 +      (recur
   1.140 +       index-next
   1.141 +       (inc index-next)
   1.142 +       index-next
   1.143 +       codes
   1.144 +       matches))))
   1.145 +      
   1.146 +      
   1.147 +
   1.148  
   1.149  
   1.150  ;; look for the rainbow badge in memory