Mail writer: Difference between revisions

Jump to navigation Jump to search
Content added Content deleted
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>