![]() |
Routines |
Prev: 30627 | Up: Map | Next: 30822 |
30675 | LD HL,32667 | The telephone call status flags are stored at 32667 |
30678 | BIT 6,(HL) | Has someone asked Sam 'WHO'S THERE?' |
30680 | JP NZ,30575 | Jump if so |
30683 | BIT 1,(HL) | Is the telephone call still in progress? |
30685 | JR Z,30691 | Jump if so |
30687 | CALL 61923 | Hang up if 'h' was pressed |
30690 | RET | |
The telephone call is still in progress.
|
||
30691 | BIT 7,(HL) | Has Sam picked up a telephone that was ringing? |
30693 | JR Z,30707 | Jump if not |
30695 | CALL 61923 | Hang up if 'h' was pressed |
30698 | LD A,(32723) | A=ID of the telephone that Sam is holding |
30701 | LD HL,27467 | The ringing phone location table is at 27467 |
30704 | JP 30627 | Check whether there is a message for Sam |
30707 | BIT 5,(HL) | Is the destination telephone ringing? |
30709 | JR Z,30726 | Jump if not |
30711 | CALL 61923 | Hang up if 'h' was pressed |
30714 | CALL 30511 | Is the telephone that Sam is calling either off-screen or close enough to a character that can pick it up? |
30717 | RET NC | Return if not |
30718 | LD A,(32666) | A=ID of the telephone that Sam is calling |
30721 | LD HL,27506 | The phone message table is at 27506 |
30724 | JR 30704 | Check whether Sam has called someone who has a message for him |
Sam is still dialling the telephone number.
|
||
30726 | BIT 4,(HL) | Are we currently making the sound effect of a digit being dialled? |
30728 | JR NZ,30768 | Jump if so |
30730 | CALL 61923 | Check for keypresses and hang up if 'h' was pressed |
30733 | RET Z | Return if no key with an ASCII code in the range 48-127 was pressed |
30734 | CP 58 | Was the ASCII code of the keypress greater than 57 ('9')? |
30736 | RET NC | Return if so |
30737 | CP 48 | Was the ASCII code less than 48 ('0')? |
30739 | RET C | Return if so |
30740 | LD HL,32657 | Store the ASCII code of the digit in the first available space at 32658 |
30743 | INC L | |
30744 | BIT 5,(HL) | |
30746 | JR NZ,30743 | |
30748 | LD (HL),A | |
30749 | SUB 48 | A=digit that was dialled (0-9) |
30751 | JR NZ,30755 | Jump unless '0' was dialled |
30753 | LD A,10 | The digit '0' will give 10 clicks |
30755 | INC A | A=1-11 |
30756 | LD (58900),A | Store this in byte 20 of Sam's buffer |
30759 | LD L,155 | HL=32667 (telephone call status flags) |
30761 | LD (HL),16 | Set bit 4 |
30763 | LD A,42 | Message 42: 'I DIALLED {number}' |
30765 | JP 30154 | Queue this message urgently |
The sound effect of a digit being dialled is currently in progress.
|
||
30768 | LD HL,58888 | Set Sam's main action timer (in byte 8 of his buffer) to 3 |
30771 | LD (HL),3 | |
30773 | LD L,20 | Point HL at byte 20 of Sam's buffer |
30775 | DEC (HL) | Are there any more clicks to make? |
30776 | JP NZ,60521 | Make a click if so |
Sam has finished dialling a digit of the telephone number. Check whether the number dialled so far is valid.
|
||
30779 | LD HL,32667 | Clear all the telephone call status flags at 32667 |
30782 | LD (HL),0 | |
30784 | LD L,146 | Collect the ASCII code of the first digit that was dialled from 32658 |
30786 | LD A,(HL) | |
30787 | CP 48 | Was it '0'? |
30789 | JR Z,30817 | Jump if so (no telephone numbers start with 0) |
30791 | INC L | Add the ASCII codes of the second and third digits to the first |
30792 | ADD A,(HL) | |
30793 | INC L | |
30794 | ADD A,(HL) | |
30795 | INC L | Point HL at the fourth digit |
30796 | CP 171 | Set the zero flag if '999' was dialled |
30798 | LD A,112 | 112 is the ID of the telephone in the police station |
30800 | JR Z,30810 | Jump if Sam has dialled the police |
30802 | BIT 5,(HL) | Has Sam dialled four digits yet? |
30804 | RET Z | Return if not |
30805 | CALL 31255 | Has Sam dialled a valid telephone number? |
30808 | JR NZ,30817 | Jump if not |
30810 | LD HL,32723 | 32723 holds the ID of the telephone Sam is holding |
30813 | CP (HL) | Does it match the ID of the telephone Sam is calling? |
30814 | JP NZ,31244 | Jump if not to place the call |
30817 | LD A,47 | Message 47: ' THE NUMBER WAS UNOBTAINABLE' |
30819 | JP 30617 | Disconnect the call and queue this message urgently |
Prev: 30627 | Up: Map | Next: 30822 |