![]() |
Routines |
| A | 0 (MR ROCKITT), 1 (MR WITHIT), or 2 (MR CREAK) |
| 63779 | LD B,A | |
| 63780 | LD HL,31258 | Point HL at MR ROCKITT's question/answer data table (ready for the return to the calling routine) |
| 63783 | CP 2 | Are we dealing with MR CREAK? |
| 63785 | JR Z,63790 | Jump if so |
| 63787 | LD A,B | |
| 63788 | AND A | Set the zero flag if we're dealing with MR ROCKITT |
| 63789 | RET |
| 63790 | LD A,(32746) | A=shield/safe status |
| 63793 | CP 3 | Has ERIC already opened the safe? |
| 63795 | JR NC,63787 | Jump if so |
| 63797 | AND A | Are we in demo mode? |
| 63798 | JR Z,63787 | Jump if so |
| 63800 | LD A,(32730) | Has MR CREAK already asked the birth year question? |
| 63803 | AND A | |
| 63804 | JR NZ,63787 | Jump if so |
| 63806 | POP DE | Drop the return address from the stack; we'll be re-entering the calling routine at a different point |
| 63807 | INC A | Set 32730 to 1, indicating that MR CREAK has asked the birth year question this period |
| 63808 | LD (32730),A | |
| 63811 | LD A,(32666) | Copy the identifier of CREAK's birth year battle into the appropriate spot in 'It was the BATTLE OF Q' |
| 63814 | LD (61687),A | |
| 63817 | LD HL,61665 | 61665='{Please Sir - I cannot tell a lie . . }It was the BATTLE OF Q' |
| 63820 | LD (43371),HL | Place this address in bytes 107/108 of EINSTEIN's buffer |
| 63823 | LD DE,61741 | 61741='WHAT HAPPENED IN THE YEAR THAT I WAS BORN' |
| 63826 | JP 31433 | Re-enter the calling routine to make MR CREAK ask the birth year question |