Advertisement
Guest User

Untitled

a guest
Jun 15th, 2019
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Data from D2095 to D2105 (113 bytes) 
  2.     .db $C9 $20 $CD $8F $21 $C9 $A4 $60 $9F $60 $FF $0E $30 $0E $30 $21
  3.     .db $9F $60 $11 $A0 $60 $CD $24 $30 $C9 $2E $7F $52 $E7 $4F $BB $B7
  4.     .db $C6 $7F $B4 $D7 $DE $33 $E7 $55 $B5 $DA $CA $7F $BA $BA $DB $26
  5.     .db $7F $CB $DB $B2 $B6 $D7 $C5 $57 $00 $53 $72 $2C $E0 $7F $B5 $DA
  6.     .db $CA $7F $BA $DA $E7 $57 $00 $53 $CA $7F $84 $E3 $86 $13 $B6 $D7
  7.     .db $4F $50 $01 $26 $CD $00 $DD $7F $D3 $D7 $DF $C0 $E7 $57 $00 $53
  8.     .db $72 $52 $C9 $54 $4F $B2 $B2 $C5 $B1 $E7 $55 $33 $D3 $7F $B5 $DA
  9.     .db $C9
  10.    
  11. _LABEL_D2106_: 
  12.         ld b, e
  13.         adc b
  14. _LABEL_D2108_: 
  15.         and c
  16.         xor e
  17. ; Data from D210A to D2177 (110 bytes) 
  18.     .db $D3 $55 $C1 $E2 $DF $C4 $7F $B2 $B2 $30 $DB $E6 $57 $21 $1B $D4
  19.     .db $CB $56 $20 $3A $F0 $EA $D6 $02 $EA $5F $CD $16 $00 $5F $21 $5F
  20.     .db $61 $19 $19 $19 $19 $2A $EA $65 $D2 $E5 $EA $37 $CE $3E $03 $21
  21.     .db $41 $67 $CD $91 $2F $FA $65 $D2 $EA $37 $CE $CD $2A $37 $E1 $E5
  22.     .db $2A $66 $6F $CD $FA $30 $E1 $23 $23 $7E $EA $66 $D2 $C9 $21 $6B
  23.     .db $61 $CD $FA $30 $C9 $9B $37 $5F $9E $9E $61 $5F $98 $98 $8A $5F
  24.     .db $9B $00 $84 $E3 $86 $13 $72 $BA $DA $E7 $4F $D6 $B8 $3A
  25.    
  26. _LABEL_D2178_: 
  27.         rst $18 ; _LABEL_18_
  28.         pop bc
  29.         ldh (_PORT_7F_), a
  30.         or d
  31.         or (hl)
  32.         sbc $E7
  33.         ld d, a
  34.         add d
  35.         jr c, _LABEL_D2106_
  36.         jr c, _LABEL_D2108_
  37.         jr c, -126
  38. _LABEL_D2188_: 
  39.         jr c, 14
  40.         jr nc, _LABEL_D2190_
  41. _LABEL_D218C_: 
  42.         inc b
  43.         sub (hl)
  44.         ld h, c
  45.         or a
  46. _LABEL_D2190_: 
  47.         ld h, c
  48.         and (hl)
  49.         ld h, c
  50.         sub (hl)
  51.         ld h, c
  52.         nop
  53.         ld bc, $0101
  54.         ld bc, $0E0E
  55.         ld c, $0E
  56.         ld b, $12
  57.         inc de
  58.         ld b, $06
  59.         dec bc
  60.         dec bc
  61.         ld b, $21
  62.         or b
  63.         ld h, c
  64.         call RunMapScript
  65.         call WriteBackMapScriptNumber
  66.         ret
  67.    
  68. ; Data from D21B0 to D21C0 (17 bytes)  
  69.     .db $B9 $61 $B4 $61 $FF $0E $30 $0E $30 $21 $B4 $61 $11 $B5 $61 $CD
  70.     .db $24
  71.    
  72. _LABEL_D21C1_: 
  73.         jr nc, _LABEL_D218C_
  74.         sub $B3
  75.         rst $20 ; _LABEL_20_
  76.         ld d, a
  77.         nop
  78.         ld d, e
  79.         ld (hl), d
  80.         or d
  81.         or d
  82.         ld l, $7F
  83.         ld d, d
  84.         rst $20 ; _LABEL_20_
  85.         ld c, a
  86.         cp e
  87.         or a
  88.         add $7F
  89.         or h
  90.         rst $10 ; _LABEL_10_
  91.         sbc $33
  92.         rst $20 ; _LABEL_20_
  93.         ld d, l
  94.         or l
  95.         jp c, _LABEL_D3FCA_
  96.         cp d
  97.         cp d
  98. ; Data from D21E1 to D21E1 (1 bytes)   
  99.     .db $DB
  100.    
  101. _LABEL_D21E2_: 
  102.         ld h, $7F
  103. _LABEL_D21E4_: 
  104.         set 3, e
  105. _LABEL_D21E6_: 
  106.         or d
  107.         or (hl)
  108.         rst $10 ; _LABEL_10_
  109.         push bc
  110.         ld d, a
  111.         nop
  112. _LABEL_D21EC_: 
  113.         ld d, e
  114. _LABEL_D21ED_: 
  115.         ld (hl), d
  116. _LABEL_D21EE_: 
  117.         inc l
  118. _LABEL_D21EF_: 
  119.         ldh (_PORT_7F_), a
  120. _LABEL_D21F1_: 
  121.         or l
  122.         jp c, _LABEL_D3FCA_
  123.         cp d
  124.         jp c, _LABEL_D17E7_
  125.         nop
  126.         ld d, e
  127.         jp z, $847F
  128. ; Data from D21FE to D21FE (1 bytes)   
  129.     .db $E3
  130.    
  131. _LABEL_D21FF_: 
  132.         add (hl)
  133.         inc de
  134.         or (hl)
  135.         rst $10 ; _LABEL_10_
  136.         ld c, a
  137.         ld d, b
  138.         ld bc, wStringBuffer1   ; wStringBuffer1 = $CD26
  139.         nop
  140. ; Data from D2209 to D2209 (1 bytes)   
  141.     .db $DD
  142.    
  143. _LABEL_D220A_: 
  144.         ld a, a
  145. ; Data from D220B to D220B (1 bytes)   
  146.     .db $D3
  147.    
  148. _LABEL_D220C_: 
  149.         rst $10 ; _LABEL_10_
  150.         rst $18 ; _LABEL_18_
  151. _LABEL_D220E_: 
  152.         ret nz
  153.         rst $20 ; _LABEL_20_
  154.         ld d, a
  155.         nop
  156.         ld d, e
  157.         ld (hl), d
  158.         ld d, d
  159.         ret
  160.    
  161. _LABEL_D2216_: 
  162.         ld d, h
  163.         ld c, a
  164.         or d
  165.         or d
  166.         push bc
  167.         or c
  168.         rst $20 ; _LABEL_20_
  169.         ld d, l
  170.         inc sp
  171. ; Data from D221F to D221F (1 bytes)   
  172.     .db $D3
  173.    
  174. _LABEL_D2220_: 
  175.         ld a, a
  176.         or l
  177.         jp c, _LABEL_D03C9_
  178.         adc b
  179.         and c
  180.         xor e
  181. ; Data from D2228 to D2228 (1 bytes)   
  182.     .db $D3
  183.    
  184. _LABEL_D2229_: 
  185.         ld d, l
  186.         pop bc
  187.         ld ($FF00+c), a
  188.         rst $18 ; _LABEL_18_
  189.         call nz, $B27F  ; Possibly invalid
  190.         or d
  191.         jr nc, _LABEL_D220E_
  192.         and $57
  193.         ld hl, wd41b    ; wd41b = $D41B
  194.         bit 2, (hl)
  195.         jr nz, _LABEL_D2276_
  196.         ldh a, ($EA)
  197.         sub $02
  198.         ld (wChosenStarter),; wChosenStarter = $CD5F
  199.         ld d, $00
  200.         ld e, a
  201.         ld hl, $627D
  202.         add hl, de
  203.         add hl, de
  204.         add hl, de
  205.         add hl, de
  206.         ldi a, (hl)
  207.         ld (wd265), a   ; wd265 = $D265
  208.         push hl
  209.         ld (wCountSetBitsResult), a ; wCountSetBitsResult = $CE37
  210.         ld a, $03
  211.         ld hl, $6741
  212.         call _LABEL_2F91_
  213.         ld a, (wd265)   ; wd265 = $D265
  214.         ld (wCountSetBitsResult), a ; wCountSetBitsResult = $CE37
  215.         call _LABEL_372A_
  216. ; Data from D2266 to D2275 (16 bytes)  
  217.     .db $E1 $E5 $2A $66 $6F $CD $FA $30 $E1 $23 $23 $7E $EA $66 $D2 $C9
  218.    
  219. _LABEL_D2276_: 
  220.         ld hl, $6289
  221.         call _LABEL_30FA_
  222.         ret
  223.    
  224. _LABEL_D227D_: 
  225.         sbc e
  226. _LABEL_D227E_: 
  227.         ld d, l
  228.         ld h, b
  229.         sbc (hl)
  230.         sbc (hl)
  231.         ld a, a
  232.         ld h, b
  233.         sbc b
  234.         sbc b
  235.         xor b
  236.         ld h, b
  237.         sbc e
  238.         nop
  239.         add h
  240. ; Data from D228B to D228B (1 bytes)   
  241.     .db $E3
  242.    
  243. _LABEL_D228C_: 
  244.         add (hl)
  245.         inc de
  246.         ld (hl), d
  247.         cp d
  248.         jp c, _LABEL_D0FE7_
  249.         sub $B8
  250.         ldd a, (hl)
  251.         rst $18 ; _LABEL_18_
  252.         pop bc
  253.         ldh (_PORT_7F_), a
  254.         or d
  255.         or (hl)
  256.         sbc $E7
  257.         ld d, a
  258.         ld a, l
  259.         jr c, _LABEL_D231F_
  260.         jr c, _LABEL_D2321_
  261.         jr c, 125
  262.         jr c, 14
  263.         jr nc, _LABEL_D22AE_
  264.         inc b
  265.         or h
  266.         ld h, d
  267.         push de
  268. _LABEL_D22AE_: 
  269.         ld h, d
  270.         call nz, $B462  ; Possibly invalid
  271.         ld h, d
  272.         nop
  273.         ld bc, $0101
  274.         ld bc, $0E0E
  275.         ld c, $0E
  276.         ld b, $12
  277.         inc de
  278.         ld b, $06
  279.         dec bc
  280.         dec bc
  281.         ld b, $21
  282.         adc $62
  283.         call RunMapScript
  284.         call WriteBackMapScriptNumber
  285.         ret
  286.    
  287. _LABEL_D22CE_: 
  288.         rst $10 ; _LABEL_10_
  289.         ld h, d
  290.         jp nc, $FF62    ; Possibly invalid
  291.         ld c, $30
  292.         ld c, $30
  293.         ld hl, $62D2
  294.         ld de, $62D3
  295.         call _LABEL_3024_
  296.         ret
  297.    
  298. _LABEL_D22E1_: 
  299.         ld h, l
  300.         jp nc, $EAE5    ; Possibly invalid
  301.         scf
  302.         adc $3E
  303.         inc bc
  304.         ld hl, $6779
  305.         call _LABEL_2F91_
  306.         ld a, (wd265)   ; wd265 = $D265
  307.         ld (wCountSetBitsResult), a ; wCountSetBitsResult = $CE37
  308.         call _LABEL_372A_
  309.         pop hl
  310.         push hl
  311.         ldi a, (hl)
  312.         ld h, (hl)
  313.         ld l, a
  314.         call _LABEL_30FA_
  315.         pop hl
  316.         inc hl
  317.         inc hl
  318.         ld a, (hl)
  319.         ld (wd266), a   ; wd266 = $D266
  320.         ret
  321.    
  322. _LABEL_D2308_: 
  323.         ld hl, $631B
  324.         call _LABEL_30FA_
  325.         ret
  326.    
  327. _LABEL_D230F_: 
  328.         sbc e
  329.         rst $20 ; _LABEL_20_
  330.         ld h, b
  331.         sbc (hl)
  332.         sbc (hl)
  333.         ld de, Function9860 + 1 ; Function9860 + 1 = $5861
  334.         sbc b
  335.         ldd a, (hl)
  336.         ld h, c
  337.         sbc e
  338.         nop
  339. ; Data from D231C to D231E (3 bytes)   
  340.     .db $84 $E3 $86
  341.    
  342. _LABEL_D231F_: 
  343.         inc de
  344. ; Data from D2320 to D2320 (1 bytes)   
  345.     .db $72
  346.    
  347. _LABEL_D2321_: 
  348.         cp d
  349.         jp c, _LABEL_D0FE7_
  350.         sub $B8
  351.         ldd a, (hl)
  352.         rst $18 ; _LABEL_18_
  353.         pop bc
  354.         ldh (_PORT_7F_), a
  355.         or d
  356.         or (hl)
  357.         sbc $E7
  358.         ld d, a
  359.         ld c, $30
  360.         ld c, $30
  361.         ld c, $30
  362.         ld c, $30
  363.         ld c, $30
  364.         inc b
  365.         inc b
  366.         ld b, (hl)
  367.         ld h, e
  368.         ld h, a
  369.         ld h, e
  370.         ld d, (hl)
  371.         ld h, e
  372.         ld b, (hl)
  373.         ld h, e
  374.         nop
  375.         ld bc, $0101
  376.         ld bc, $0E0E
  377.         ld c, $0E
  378.         ld b, $12
  379.         inc de
  380.         ld b, $06
  381.         dec bc
  382.         dec bc
  383.         ld b, $21
  384.         ld h, b
  385.         ld h, e
  386.         call RunMapScript
  387.         call WriteBackMapScriptNumber
  388.         ret
  389.    
  390. _LABEL_D2360_: 
  391.         ld l, c
  392.         ld h, e
  393.         ld h, h
  394.         ld h, e
  395.         rst $38 ; _LABEL_38_
  396.         ld c, $30
  397.         ld c, $30
  398.         ld hl, $6364
  399.         ld de, $6365
  400.         call _LABEL_3024_
  401.         ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement