Prev: 898B Up: Map Next: 8AEB
89AD: Main loop (1)
Used by the routines at 8912 and 8B07.
89AD CALL $898B Draw the remaining lives
89B0 LD HL,$5E00 Copy the contents of the attribute buffer at 5E00 (the attributes for the empty room) into the attribute buffer at 5C00
89B3 LD DE,$5C00
89B6 LD BC,$0200
89B9 LDIR
89BB LD HL,$7000 Copy the contents of the screen buffer at 7000 (the tiles for the empty room) into the screen buffer at 6000
89BE LD DE,$6000
89C1 LD BC,$1000
89C4 LDIR
89C6 CALL $90C0 Move the rope and guardians in the current room
89C9 LD A,($85DF) Pick up the game mode indicator from 85DF
89CC CP $03 Is Willy's head down the toilet?
89CE CALL NZ,$8DD3 If not, move Willy
89D1 LD A,($85CF) Pick up Willy's y-coordinate from 85CF
89D4 CP $E1 Has Willy just moved up a ramp or a rope past the top of the screen?
89D6 CALL NC,$94B0 If so, move Willy into the room above
89D9 LD A,($85DF) Pick up the game mode indicator from 85DF
89DC CP $03 Is Willy's head down the toilet?
89DE CALL NZ,$95C8 If not, check and set the attribute bytes for Willy's sprite in the buffer at 5C00, and draw Willy to the screen buffer at 6000
89E1 LD A,($85DF) Pick up the game mode indicator from 85DF
89E4 CP $02 Is Willy on his way to the toilet?
89E6 CALL Z,$9584 If so, check whether he's reached it yet
89E9 CALL $9534 Deal with special rooms (Master Bedroom, The Bathroom)
89EC CALL $91BE Draw the rope, arrows and guardians in the current room
89EF CALL $94F9 Move the conveyor in the current room (if there is one)
89F2 CALL $93D1 Draw the items in the current room (if there are any) and collect any that Willy is touching
This entry point is used by the routine at 90B6.
89F5 LD HL,$6000 Copy the contents of the screen buffer at 6000 to the display file
89F8 LD DE,$4000
89FB LD BC,$1000
89FE LDIR
8A00 LD A,($85DF) Pick up the game mode indicator from 85DF
8A03 AND $02 Now A=1 if Willy is running to the toilet or already has his head down it, 0 otherwise
8A05 RRCA
8A06 LD HL,$85D2 Set Willy's animation frame at 85D2 to 1 or 3 if Willy is running to the toilet or already has his head down it; this has the effect of moving Willy at twice his normal speed as he makes his way to the toilet (using animation frames 2 and 0)
8A09 OR (HL)
8A0A LD (HL),A
8A0B LD A,($85CD) Pick up the screen flash counter (unused and always 0) from 85CD
8A0E OR A Is it zero?
8A0F JR Z,$8A26 Jump if so (this jump is always made)
The next section of code is never executed.
8A11 DEC A Decrement the screen flash counter at 85CD
8A12 LD ($85CD),A
8A15 RLCA Move bits 0-2 into bits 3-5 and clear all the other bits
8A16 RLCA
8A17 RLCA
8A18 AND $38
8A1A LD HL,$5C00 Set every attribute byte in the buffer at 5C00 to this value
8A1D LD DE,$5C01
8A20 LD BC,$01FF
8A23 LD (HL),A
8A24 LDIR
Normal service resumes here.
8A26 LD HL,$5C00 Copy the contents of the attribute buffer at 5C00 to the attribute file
8A29 LD DE,$5800
8A2C LD BC,$0200
8A2F LDIR
8A31 LD IX,$857F Print the current time (see 857F) at (19,25)
8A35 LD DE,$5079
8A38 LD C,$06
8A3A CALL $9680
8A3D LD IX,$857C Print the number of items collected (see 857C) at (19,16)
8A41 LD DE,$5070
8A44 LD C,$03
8A46 CALL $9680
8A49 LD A,($85CB) Increment the minute counter at 85CB
8A4C INC A
8A4D LD ($85CB),A
8A50 JR NZ,$8AAB Jump unless the minute counter has ticked over to 0
A minute of game time has passed. Update the game clock accordingly.
8A52 LD IX,$857F Point IX at the current time at 857F
8A56 INC (IX+$04) Increment the units digit of the minute
8A59 LD A,(IX+$04) Pick up the new units digit
8A5C CP $3A Was it '9' before?
8A5E JR NZ,$8AAB Jump if not
8A60 LD (IX+$04),$30 Set the units digit of the minute to '0'
8A64 INC (IX+$03) Increment the tens digit of the minute
8A67 LD A,(IX+$03) Pick up the new tens digit
8A6A CP $36 Was it '5' before?
8A6C JR NZ,$8AAB Jump if not
8A6E LD (IX+$03),$30 Set the tens digit of the minute to '0'
8A72 LD A,(IX+$00) Pick up the tens digit of the hour
8A75 CP $31 Is it currently '1'?
8A77 JR NZ,$8A99 Jump if not
8A79 INC (IX+$01) Increment the units digit of the hour
8A7C LD A,(IX+$01) Pick up the new units digit
8A7F CP $33 Was it '2' before?
8A81 JR NZ,$8AAB Jump if not
8A83 LD A,(IX+$05) Pick up the 'a' or 'p' of 'am/pm'
8A86 CP $70 Is it 'p'?
8A88 JP Z,$87CA If so, quit the game (it's 1am)
8A8B LD (IX+$00),$20 Set the tens digit of the hour to ' ' (space)
8A8F LD (IX+$01),$31 Set the units digit of the hour to '1'
8A93 LD (IX+$05),$70 Change the 'a' of 'am' to 'p'
8A97 JR $8AAB
8A99 INC (IX+$01) Increment the units digit of the hour
8A9C LD A,(IX+$01) Pick up the new units digit
8A9F CP $3A Was it '9' before?
8AA1 JR NZ,$8AAB Jump if not
8AA3 LD (IX+$01),$30 Set the units digit of the hour to '0'
8AA7 LD (IX+$00),$31 Set the tens digit of the hour to '1'
Now check whether any non-movement keys are being pressed.
8AAB LD BC,$FEFE Read keys SHIFT-Z-X-C-V
8AAE IN A,(C)
8AB0 LD E,A Save the result in E
8AB1 LD B,$7F Read keys B-N-M-SS-SPACE
8AB3 IN A,(C)
8AB5 OR E Combine the results
8AB6 AND $01 Are SHIFT and SPACE being pressed?
8AB8 JP Z,$87CA If so, quit the game
8ABB LD A,($85E0) Increment the inactivity timer at 85E0
8ABE INC A
8ABF LD ($85E0),A
8AC2 JR Z,$8AD1 Jump if the inactivity timer is now 0 (no keys have been pressed for a while)
8AC4 LD B,$FD Read keys A-S-D-F-G
8AC6 IN A,(C)
8AC8 AND $1F Are any of these keys being pressed?
8ACA CP $1F
8ACC JR Z,$8B17 Jump if not
8ACE LD DE,$0000 Prepare the delay counters in D and E for the pause loop that follows
The following loop pauses the game until any key except A, S, D, F or G is pressed.
8AD1 LD B,$02 Read every half-row of keys except A-S-D-F-G
8AD3 IN A,(C)
8AD5 AND $1F Are any of these keys being pressed?
8AD7 CP $1F
8AD9 JR NZ,$8B07 If so, resume the game
8ADB INC E Increment the delay counter in E
8ADC JR NZ,$8AD1 Jump back unless it's zero
8ADE INC D Increment the delay counter in D
8ADF JR NZ,$8AD1 Jump back unless it's zero
8AE1 LD A,($85E3) Pick up the WRITETYPER key counter from 85E3
8AE4 CP $0A Has WRITETYPER been keyed in yet?
8AE6 CALL NZ,$8AEB If not, cycle the INK and PAPER colours
8AE9 JR $8AD1 Jump back to the beginning of the pause loop
Prev: 898B Up: Map Next: 8AEB