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