| Routines

B868: Change a character's name (1)

Used by the routine at EFE0 after 'c' was pressed to change a character's name.
Input
HL | Address of the character's name message
B868 | PUSH HL | Save the message address
B869 | LD (HL),$20 | Set the character's name to ' ' (single space)
B86B | LD B,$0D
B86D | INC L
B86E | LD (HL),$00
B870 | DJNZ $B86D
B872 | LD HL,$AF68 | AF68: 'ENTER NEW NAME'
B875 | CALL $B3F9 | Print this message
B878 | LD HL,$5C3B | Point HL at the FLAGS system variable
B87B | POP DE | Restore the message address for the character's name to DE
B87C | JP $B8E8 |