Mail writer: Difference between revisions
m
→KOR version
m (→KOR version) |
|||
Line 451:
<pre>11 52 DE ld de, DE52
D5 push de .loop
D5 push de
D5 push de
21 D9 60 ld hl, ComposeMailMessage
CF rst08 Farcall ;requires a = $04 to load correct ROM bank)
E1 pop hl
D1 pop de
2A ldi a, (hl)
FE 50 cp @
30 09 jp nc ;jump if next char is a terminator/line skip)
96 sub (hl)
96 sub (hl)
12 ld (de), a
13 inc de
81 add c
4F ld c, a
12 ld (de), a
2A ldi a, (hl)
B4 or h
20 F0 jr nz, F2 .@
21 01 C4 ld hl, C401 .noInput
4D ld c, l
CD CE 3A call PrintBCDNumber.loop
1B dec DE .DownPressed
CD 79 37 call JoyTextDelay_ForcehJoyDown
F0 AB ldh a, (hJoyLast)
BD cp l ; due to PrintBCDNumber, l = $04
28 D8 jr z, .loop ; jump if a = $04
38 EE jr c, .noInput
07 rrca
D0 ret nc
18 F1 jr .DownPressed</pre>
| |||