setup 1

;;; COIN CASE SETUP 1
; coin case setup that writes 4 bytes based on box chars at $dd55 + 4*[$dd54]

; Quagsire @ Protein
; - Sleep Talk

; To get 9x TM03 and 16x TM12 you'll need to do some cloning.
; To get two stacks of the same item (i.e. Antidote and X Accuracy),
;   you'd just deposit the item 99 times for the first stack
;   and when you have deposited all the items,
;   you withdraw said item until you have the amount you need.

    XXXX ---------- XX XX ------- I1 = ANY | Q1 = ANY
    XXXX ---------- XX XX ------- I2 = ANY | Q2 = ANY

    ld hl, $dd54 -- 21 54 DD ---- I3 = X Accuracy | Q3 = 84 | I4 = TM29 (Psychic)
    ld bc, XXXX --- 01 XX XX ---- Q4 = 01 | I5 = ANY | Q5 = ANY
    dec c --------- 0D ---------- I6 = Parlyz Heal
    ld e, (hl) ---- 5E ---------- Q6 = 94
    ld d, $01 ----- 16 01 ------- I7 = Fire Stone | Q7 = 01
    dec d --------- 15 ---------- I8 = Max Elixer
    ld bc, XXXX --- 01 XX XX ---- Q8 = 01 | I9 = ANY | Q9 = ANY
    inc (hl) ------ 34 ---------- I10 = X Speed
    inc hl -------- 23 ---------- Q10 = 35
    push de ------- D5 ---------- I11 = TM22 (SolarBeam)
    ld bc, XXXX --- 01 XX XX ---- Q11 = 01 | I12 = ANY | Q12 = ANY
    pop bc -------- C1 ---------- I13 = TM03 (Curse)
    add hl, bc ---- 09 ---------- Q13 = 09
    add hl, bc ---- 09 ---------- I14 = Antidote
    add hl, bc ---- 09 ---------- Q14 = 09
    add hl, bc ---- 09 ---------- I15 = Antidote
    ld e, l ------- 5D ---------- Q15 = 93
    dec b --------- 05 ---------- I16 = PokeBall
    ld d, h ------- 54 ---------- Q16 = 84

    ld hl, $d907 -- 21 07 D9 ---- I17 = X Accuracy | Q17 = 07 | I18 = TM26 (Earthquake)
    ld bc, XXXX --- 01 XX XX ---- Q18 = 01 | I19 = ANY | Q19 = ANY

    ldi a, (hl) --- 2A ---------- I20 = Super Repel
    inc bc -------- 03 ---------- Q20 = 03
    push hl ------- E5 ---------- I21 = TM37 (Sandstorm)
    ld bc, XXXX --- 01 XX XX ---- Q21 = 01 | I22 = ANY | Q22 = ANY
    ld l, (hl) ---- 6E ---------- I23 = Pearl
    ld bc, XXXX --- 01 XX XX ---- Q23 = 01 | I24 = ANY | Q24 = ANY
    add a, l ------ 85 ---------- I25 = Basement Key
    ld bc, XXXX --- 01 XX XX ---- Q25 = 01 | I26 = ANY | Q26 = ANY
    ld (de), a ---- 12 ---------- I27 = Potion
    scf ----------- 37 ---------- Q27 = 55
    pop hl -------- E1 ---------- I28 = TM33 (Ice Punch)
    inc bc -------- 03 ---------- Q28 = 03
    inc de -------- 13 ---------- I29 = Escape Rope
    inc hl -------- 23 ---------- Q29 = 35
    ld c, (hl) ---- 4E ---------- I30 = PrzCureBerry
    inc b --------- 04 ---------- Q30 = 04
    ld a, c ------- 79 ---------- I31 = EnergyPowder
    ld bc, XXXX --- 01 XX XX ---- Q31 = 01 | I32 = ANY | Q32 = ANY
    inc b --------- 04 ---------- I33 = Great Ball
    ld b, $14 ----- 06 14 ------- Q33 = 06 | I34 = Repel
    ccf ----------- 3F ---------- Q34 = 63
    rl b ---------- CB 10 ------- I35 = TM12 (Sweet Scent) | Q35 = 16
    rra ----------- 1F ---------- I36 = Calcium
    inc c --------- 0C ---------- Q36 = 12
    cp b ---------- B8 ---------- I37 = Lovely Mail
    inc bc -------- 03 ---------- Q37 = 03
    ld bc, $XXXX -- 01 XX XX ---- I38 = 01 | Q38 = ANY | I39 = ANY
    jr nz, $db ---- 20 D7 ------- Q39 = 32 | I40 = TM24 (DragonBreath)

    ld bc, $XXXX -- 01 XX XX ---- Q40 = 01 | I41 = ANY | Q41 = ANY
    inc l --------- 2C ---------- I42 = Dire Hit
    ld l,F5 ------- 2E F5 ------- Q42 = 46 | I43 = HM03 (Surf)
    ld bc, $0134 -- 01 34 01 ---- Q43 = 01 | I44 = X Speed | Q44 = 01
    ld h, $12 ----- 26 12 ------- I45 = Full Heal | Q45 = 18
    sbc a, (hl) --- 9E ---------- I46 = Flower Mail
    inc sp -------- 33 ---------- Q46 = 51
    push bc ------- C5 ---------- I47 = TM06 (Toxic)
    ld bc, $XXXX -- 01 XX XX ---- Q47 = 01 | I48 = ANY | Q48 = ANY
    jp hl --------- E9 ---------- I49 = TM41 (ThunderPunch) | Q49 = ANY