Routines
Prev: 84CC Up: Map Next: 867A
8576: Routine at 8576
8576 PUSH HL Stash HL on the stack.
8577 LD L,A L=A.
8578 LD A,($B6FA) H=B6FA.
857B LD H,A
857C LD A,($B702) A=NightDay.
857F AND H
8580 LD A,L
8581 POP HL Restore HL from the stack.
8582 RET Return.
This entry point is used by the routines at 6CEC, 70F3, 7340, PrintToken, Action_Look, Action_Examine, YouSeeEntry, 96B3, 9F94, A050 and DisplayExits.
8583 PUSH AF Stash AF on the stack.
8584 LD A,$0D A=$0D.
8586 CALL $858B Call 858B.
8589 POP AF Restore AF from the stack.
858A RET Return.
This entry point is used by the routines at 6CEC, 6DD6, 70F3, 72C3, 7340, 73BD, PrintToken, GameOver, Action_Look, Action_Examine, 96B3 and 9F94.
858B CALL $8576 Call 8576.
858E RET Z Return if zero.
858F PUSH AF Stash AF on the stack.
8590 LD A,($B701) If WaitCoutdown is not zero then jump to 85B7.
8593 AND A
8594 JR NZ,$85B7
8596 POP AF Restore AF from the stack.
8597 CALL $86A1 Call 86A1.
859A PUSH AF Stash AF on the stack.
859B LD A,($B700) If B700 is not zero then jump to 85A3.
859E AND A
859F JR NZ,$85A3
85A1 POP AF Restore AF from the stack.
85A2 RET Return.
85A3 POP AF Restore AF from the stack.
85A4 CP $53 If this is ASCII "S" then jump to 85AB.
85A6 JR Z,$85AB
85A8 CP $73 If this is not ASCII "s" then return.
85AA RET NZ
85AB PUSH AF Stash AF on the stack.
85AC LD A,$48 A=$48 ("F" in ASCII).
85AE CALL $86A1 Call 86A1.
85B1 POP AF Restore AF from the stack.
85B2 RET Return.
85B3 NOP
PercentageBuffer 85B4 DEFB $00,$00,$00 Percentage buffer.
85B7 POP AF Restore AF from the stack.
This entry point is used by the routine at 6CEC.
85B8 PUSH HL
85B9 PUSH AF
85BA LD HL,($85B4)
85BD CP $0D
85BF JR NZ,$85C8
85C1 LD A,$20
85C3 CALL PrintChar
85C6 JR $85DF
85C8 CP $08
85CA JR Z,$85F5
85CC CP $61
85CE JR C,$85D6
85D0 CP $7B
85D2 JR NC,$85D6
85D4 AND $5F
85D6 CALL PrintChar
85D9 LD A,($85B3)
85DC DEC A
85DD JR NZ,$85E6
85DF LD L,$E0
85E1 CALL $860D
85E4 LD A,$20
85E6 LD ($85B3),A
85E9 LD A,($85B6)
85EC LD ($85B4),HL
85EF CALL PrintChar
85F2 POP AF
85F3 POP HL
85F4 RET
85F5 LD A,$20
85F7 CALL PrintChar
85FA DEC L
85FB DEC L
85FC LD A,($85B3)
85FF INC A
8600 CP $21
8602 JR NZ,$85E6
8604 LD L,$FF
8606 CALL $864A
8609 LD A,$01
860B JR $85E6
860D PUSH HL
860E PUSH DE
860F PUSH BC
8610 PUSH AF
8611 LD HL,$5080
8614 LD DE,$5060
8617 LD A,$04
8619 LD B,$00
861B PUSH HL
861C PUSH DE
861D LD C,$08
861F PUSH HL
8620 PUSH DE
8621 PUSH BC
8622 LD C,$20
8624 LDIR
8626 POP BC
8627 POP DE
8628 POP HL
8629 INC H
862A INC D
862B DEC C
862C JR NZ,$861F
862E POP DE
862F POP HL
8630 LD C,$20
8632 ADD HL,BC
8633 EX DE,HL
8634 ADD HL,BC
8635 EX DE,HL
8636 DEC A
8637 JR NZ,$861B
8639 LD B,$20
863B LD HL,$50E0
863E LD A,$20
8640 CALL PrintChar
8643 DJNZ $8640
8645 POP AF
8646 POP BC
8647 POP DE
8648 POP HL
8649 RET
864A PUSH HL
864B PUSH DE
864C PUSH BC
864D PUSH AF
864E LD HL,$50C0
8651 LD DE,$50E0
8654 LD A,$05
8656 PUSH HL
8657 PUSH DE
8658 LD B,$08
865A PUSH HL
865B PUSH DE
865C PUSH BC
865D LD BC,$0020
8660 LDIR
8662 POP BC
8663 POP DE
8664 POP HL
8665 INC H
8666 INC D
8667 DJNZ $865A
8669 POP DE
866A POP HL
866B LD BC,$FFE0
866E ADD HL,BC
866F EX DE,HL
8670 ADD HL,BC
8671 EX DE,HL
8672 DEC A
8673 JR NZ,$8656
8675 POP AF
8676 POP BC
8677 POP DE
8678 POP HL
8679 RET
Prev: 84CC Up: Map Next: 867A