A | Message number corresponding to character's name |
20896 | 6F | LD L,A | |
20897 | 26FE | LD H,254 | |
20899 | 5E | LD E,(HL) | |
20900 | 24 | INC H | |
20901 | 56 | LD D,(HL) | DE=address of message (character's name) |
20902 | EB | EX DE,HL | |
20903 | 01000C | LD BC,3072 | B=12, C=0 |
20906 | 71 | LD (HL),C | Blank out the current name |
20907 | 23 | INC HL | |
20908 | 10FC | DJNZ 20906 | |
20910 | F5 | PUSH AF | |
20911 | 214050 | LD HL,20544 | |
20914 | CDBC50 | CALL 20668 | Print name built up so far |
20917 | CDE271 | CALL 29154 | Wait for a keypress |
20920 | 28FB | JR Z,20917 | |
20922 | FE0D | CP 13 | |
20924 | 47 | LD B,A | |
20925 | 2002 | JR NZ,20929 | |
20927 | F1 | POP AF | |
20928 | C9 | RET | Return with new name entered |
20929 | F1 | POP AF | |
20930 | 6F | LD L,A | |
20931 | 26FE | LD H,254 | |
20933 | 5E | LD E,(HL) | |
20934 | 24 | INC H | |
20935 | 56 | LD D,(HL) | |
20936 | 210B00 | LD HL,11 | |
20939 | 4F | LD C,A | |
20940 | 19 | ADD HL,DE | HL=address of last byte in message area for character name |
20941 | 7E | LD A,(HL) | |
20942 | A7 | AND A | |
20943 | 2008 | JR NZ,20953 | Jump if message area is already full |
20945 | EB | EX DE,HL | HL=start address of message area |
20946 | 2B | DEC HL | |
20947 | 23 | INC HL | |
20948 | 7E | LD A,(HL) | |
20949 | A7 | AND A | |
20950 | 20FB | JR NZ,20947 | |
20952 | 70 | LD (HL),B | Put new letter in message area |
20953 | 79 | LD A,C | |
20954 | 18D2 | JR 20910 |