![]() |
Routines |
| Prev: 62715 | Up: Map | Next: 62830 |
|
Store the high-score position, blank the screen and show the congratulations banner, then seed the name as "AAA" and reset the name entry timer, cursor and index.
|
||||||||
|
Store the rank and paint the congratulations page.
|
||||||||
| PrepareNameEntry | 62773 | LD A,B | Copy the rank into A. | |||||
| 62774 | SUB 8 | Subtract 8. | ||||||
| 62776 | NEG | Negate it. | ||||||
| 62778 | LD (24183),A | Write it to HighScorePosition. | ||||||
| 62781 | CALL CreateWindow | Call CreateWindow. | ||||||
|
Set the attributes for the congratulations page.
|
||||||||
| 62784 | LD HL,22784 | HL=22784. | ||||||
| 62787 | LD C,2 | Set a row counter in C for 2 loops. | ||||||
| 62789 | LD A,70 | A=INK:YELLOW, PAPER:BLACK (BRIGHT). | ||||||
| PrepareNameEntry_Loop | 62791 | LD B,0 | Set an attribute counter in B for 256 loops. | |||||
| PrepareNameEntry_FillAttributes | 62793 | LD (HL),A | Write A to *HL. | |||||
| 62794 | INC HL | Increment HL by one. | ||||||
| 62795 | DJNZ PrepareNameEntry_FillAttributes | Decrease the counter by one and jump back to PrepareNameEntry_FillAttributes until it is zero. | ||||||
| 62797 | DEC C | Decrease C by one. | ||||||
| 62798 | JR NZ,PrepareNameEntry_Loop | Jump back to PrepareNameEntry_Loop until C is zero. | ||||||
|
Print the congratulations banner.
|
||||||||
| 62800 | CALL HighScoreMessaging | Call HighScoreMessaging. | ||||||
|
Reset the name entry timer, screen pointer and letter index.
|
||||||||
| 62803 | LD HL,4096 | Write 4096 to HallOfFame_Timer. | ||||||
| 62806 | LD (24173),HL | |||||||
| 62809 | LD HL,20653 | Write 20653 to HallOfFame_Pointer. | ||||||
| 62812 | LD (24181),HL | |||||||
| 62815 | XOR A | Write 0 to HallOfFame_Index. | ||||||
| 62816 | LD (24175),A | |||||||
|
Seed the name with "AAA".
|
||||||||
| 62819 | LD HL,24184 | HL=HallOfFame_Name. | ||||||
| 62822 | LD B,3 | Set a letter counter in B for 3 loops. | ||||||
| PrepareNameEntry_FillLetters | 62824 | LD (HL),65 | Write 65 to *HL. | |||||
| 62826 | INC HL | Increment HL by one. | ||||||
| 62827 | DJNZ PrepareNameEntry_FillLetters | Decrease the counter by one and jump back to PrepareNameEntry_FillLetters until it is zero. | ||||||
| 62829 | RET | Return. | ||||||
| Prev: 62715 | Up: Map | Next: 62830 |