![]() |
Routines |
Prev: 30627 | Up: Map |
|
|||||||
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 |