Skip to content

Instantly share code, notes, and snippets.

@flag3
Last active March 3, 2024 11:17
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save flag3/e781f5aaa79a4ec1ad4d3df0018654fd to your computer and use it in GitHub Desktop.
Save flag3/e781f5aaa79a4ec1ad4d3df0018654fd to your computer and use it in GitHub Desktop.
; Thanks to Lapras.exe(@lapras_ace) for shortening the code. (https://twitter.com/lapras_ace/status/1699002002678980850)
WRA1:DCE0 21 00 D0 ld hl,D000
WRA1:DCE3 CD 16 DD call DD16
WRA1:DCE6 E5 push hl
WRA1:DCE7 11 F8 FF ld de,FFF8
WRA1:DCEA 19 add hl,de
WRA1:DCEB E5 push hl
WRA1:DCEC D1 pop de
WRA1:DCED 21 AB C3 ld hl,C3AB
WRA1:DCF0 01 0C 00 ld bc,000C
WRA1:DCF3 36 7C ld (hl),7C
WRA1:DCF5 23 inc hl
WRA1:DCF6 7A ld a,d
WRA1:DCF7 CD 4A DD call DD4A
WRA1:DCFA 7B ld a,e
WRA1:DCFB CD 4A DD call DD4A
WRA1:DCFE 36 7F ld (hl),7F
WRA1:DD00 23 inc hl
WRA1:DD01 1A ld a,(de)
WRA1:DD02 CD 4A DD call DD4A
WRA1:DD05 13 inc de
WRA1:DD06 36 7C ld (hl),7C
WRA1:DD08 09 add hl,bc
WRA1:DD09 7C ld a,h
WRA1:DD0A FE C5 cp a,C5
WRA1:DD0C 20 E5 jr nz,DCF3
WRA1:DD0E 3E ED ld a,ED
WRA1:DD10 EA 4B C4 ld (C44B),a
WRA1:DD13 E1 pop hl
WRA1:DD14 18 CD jr DCE3
WRA1:DD16 CD 67 38 call 3867
WRA1:DD19 F0 B3 ld a,(ff00+B3)
WRA1:DD1B 01 01 00 ld bc,0001
WRA1:DD1E 07 rlca
WRA1:DD1F 38 18 jr c,DD39
WRA1:DD21 0B dec bc
WRA1:DD22 0B dec bc
WRA1:DD23 07 rlca
WRA1:DD24 38 13 jr c,DD39
WRA1:DD26 0E F0 ld c,F0
WRA1:DD28 07 rlca
WRA1:DD29 38 0E jr c,DD39
WRA1:DD2B 01 10 00 ld bc,0010
WRA1:DD2E 07 rlca
WRA1:DD2F 38 08 jr c,DD39
WRA1:DD31 07 rlca
WRA1:DD32 38 03 jr c,DD37
WRA1:DD34 07 rlca
WRA1:DD35 D0 ret nc
WRA1:DD36 E9 jp hl
WRA1:DD37 E1 pop hl
WRA1:DD38 C9 ret
WRA1:DD39 79 ld a,c
WRA1:DD3A CB 43 bit 0,e
WRA1:DD3C 20 06 jr nz,DD44
WRA1:DD3E CB 4B bit 1,e
WRA1:DD40 20 05 jr nz,DD47
WRA1:DD42 09 add hl,bc
WRA1:DD43 C9 ret
WRA1:DD44 86 add (hl)
WRA1:DD45 77 ld (hl),a
WRA1:DD46 C9 ret
WRA1:DD47 84 add h
WRA1:DD48 67 ld h,a
WRA1:DD49 C9 ret
WRA1:DD4A F5 push af
WRA1:DD4B CB 37 swap a
WRA1:DD4D CD 51 DD call DD51
WRA1:DD50 F1 pop af
WRA1:DD51 E6 0F and a,0F
WRA1:DD53 C6 F6 add a,F6
WRA1:DD55 F6 60 or a,60
WRA1:DD57 22 ldi (hl),a
WRA1:DD58 C9 ret
DCE0:
21 00 D0 CD 16 DD E5 11 F8 FF 19 E5 D1 21 AB C3
01 0C 00 36 7C 23 7A CD 4A DD 7B CD 4A DD 36 7F
23 1A CD 4A DD 13 36 7C 09 7C FE C5 20 E5 3E ED
EA 4B C4 E1 18 CD CD 67 38 F0 B3 01 01 00 07 38
18 0B 0B 07 38 13 0E F0 07 38 0E 01 10 00 07 38
08 07 38 03 07 D0 E9 E1 C9 79 CB 43 20 06 CB 4B
20 05 09 C9 86 77 C9 84 67 C9 F5 CB 37 CD 51 DD
F1 E6 0F C6 F6 F6 60 22 C9
The content of address DD17 is
- 79 for the Red/Green v1.0,
- 67 for the Red/Green v1.1,
- 8F for the Blue,
- 3F for the Yellow v1.0,
- 40 for the Yellow v1.1, v1.2, v1.3.
Nickname of Day Care:
ゃわてぽん
Nickname of Box:
がんぜルョ
よヂづよく
づよむづな ← Use づよそづな for Red/Green v1.0 and づよワづな for Blue
ゅョダだグ
ぼヂてソん
ダだギムツ
てソんダム
キづごヅー
ぱへにんぴ
へにんボぷ
へにんへ
ううゾダグ
ダめいんど
ダれチんダ
めしんざダ
れゃわダり
だいなひだ
へみんちレ
ぼダメギて
よザれんん
よメボデの
How to use:
A: +1h Address Location
B: -1h Address Location
↓: +1h Address Contents
↑: -1h Address Contents
→: +10h Address Contents
←: -10h Address Contents
Select: Run DCE0
Start: Quit
WRA1:D983 00 nop
WRA1:D984 01 E0 DC ld bc,DCE0
WRA1:D987 C3 48 DE jp DE48
WRA1:DE64 26 DE ld h,DE
WRA1:DE66 2E A6 ld l,A6
WRA1:DE68 AF xor a
WRA1:DE69 50 ld d,b
WRA1:DE6A D6 10 sub a,10
WRA1:DE6C 32 ldd (hl),a
WRA1:DE6D D6 B8 sub a,B8
WRA1:DE6F 50 ld d,b
WRA1:DE70 32 ldd (hl),a
WRA1:DE71 D6 D1 sub a,D1
WRA1:DE73 32 ldd (hl),a
WRA1:DE74 C5 push bc
WRA1:DE75 50 ld d,b
WRA1:DE76 E1 pop hl
WRA1:DE77 AF xor a
WRA1:DE78 0F rrca
WRA1:DE79 30 07 jr nc,DE82
WRA1:DE7B 50 ld d,b
WRA1:DE7C 3E 10 ld a,10
WRA1:DE7E C3 8E DE jp DE8E
WRA1:DE81 50 ld d,b
WRA1:DE82 0F rrca
WRA1:DE83 30 06 jr nc,DE8B
WRA1:DE85 9F sbc a
WRA1:DE86 91 sub c
WRA1:DE87 50 ld d,b
WRA1:DE88 C3 8E DE jp DE8E
WRA1:DE8B 0F rrca
WRA1:DE8C 9F sbc a
WRA1:DE8D 50 ld d,b
WRA1:DE8E 86 add (hl)
WRA1:DE8F 32 ldd (hl),a
WRA1:DE90 2A ldi a,(hl)
WRA1:DE91 11 E3 50 ld de,50E3
WRA1:DE94 44 ld b,h
WRA1:DE95 CD C6 DE call DEC6
WRA1:DE98 45 ld b,l
WRA1:DE99 50 ld d,b
WRA1:DE9A CD C6 DE call DEC6
WRA1:DE9D 1C inc e
WRA1:DE9E 46 ld b,(hl)
WRA1:DE9F 50 ld d,b
WRA1:DEA0 CD C6 DE call DEC6
WRA1:DEA3 CD 50 50 call 5050
WRA1:DEA6 B3 or e
WRA1:DEA7 B3 or e
WRA1:DEA8 0E 0F ld c,0F
WRA1:DEAA 07 rlca
WRA1:DEAB 50 ld d,b
WRA1:DEAC 0F rrca
WRA1:DEAD D2 B2 DE jp nc,DEB2
WRA1:DEB0 34 inc (hl)
WRA1:DEB1 50 ld d,b
WRA1:DEB2 0F rrca
WRA1:DEB3 DA 90 DE jp c,DE90
WRA1:DEB6 0F rrca
WRA1:DEB7 50 ld d,b
WRA1:DEB8 D2 BC DE jp nc,DEBC
WRA1:DEBB 2B dec hl
WRA1:DEBC 0F rrca
WRA1:DEBD 50 ld d,b
WRA1:DEBE DA E0 DC jp c,DCE0
WRA1:DEC1 0F rrca
WRA1:DEC2 D8 ret c
WRA1:DEC3 50 ld d,b
WRA1:DEC4 30 B2 jr nc,DE78
WRA1:DEC6 C5 push bc
WRA1:DEC7 CB 30 swap b
WRA1:DEC9 50 ld d,b
WRA1:DECA CD D0 DE call DED0
WRA1:DECD C1 pop bc
WRA1:DECE A7 and a
WRA1:DECF 50 ld d,b
WRA1:DED0 3E 0F ld a,0F
WRA1:DED2 A0 and b
WRA1:DED3 06 C3 ld b,C3
WRA1:DED5 50 ld d,b
WRA1:DED6 D6 0A sub a,0A
WRA1:DED8 DA DE DE jp c,DEDE
WRA1:DEDB 50 ld d,b
WRA1:DEDC D6 A0 sub a,A0
WRA1:DEDE 1C inc e
WRA1:DEDF 12 ld (de),a
WRA1:DEE0 C9 ret
WRA1:DEE1 50 ld d,b
D983:
00 01 E0 DC C3 48 DE
DE64:
26 DE 2E A6 AF 50
D6 10 32 D6 B8 50
32 D6 D1 32 C5 50
E1 AF 0F 30 07 50
3E 10 C3 8E DE 50
0F 30 06 9F 91 50
C3 8E DE 0F 9F 50
86 32 2A 11 E3 50
44 CD C6 DE 45 50
CD C6 DE 1C 46 50
CD C6 DE CD 50 50
B3 B3 0E 0F 07 50
0F D2 B2 DE 34 50
0F DA 90 DE 0F 50
D2 BC DE 2B 0F 50
DA E0 DC 0F D8 50
30 B2 C5 CB 30 50
CD D0 DE C1 A7 50
3E 0F A0 06 C3 50
D6 0A DA DE DE 50
D6 A0 1C 12 C9 50
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment