![]() |
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 |