Prev: 9ED0 Up: Map Next: 9F38
9ED1: Routine at 9ED1
9ED1 LD HL,$9ED0 HL=9ED0.
This entry point is used by the routine at 9ECB.
9ED4 LD BC,$0000 BC=0000.
This entry point is used by the routine at 9EC1.
9ED7 LD A,(HL) A=*HL.
9ED8 AND A Jump to 9EF2 if A is zero.
9ED9 JR Z,$9EF2
9EDB LD B,A B=A.
9EDC XOR A A=00.
9EDD LD DE,$0000 DE=0000.
9EE0 CALL $9F1E Call 9F1E.
9EE3 LD A,($A036) A=*A036.
9EE6 LD B,C B=C.
9EE7 LD DE,$0000 DE=0000.
9EEA CALL $F1C1 Call F1C1.
9EED SET 6,(IX+$05) Set bit 6 of *IX+05.
9EF1 RET Return.
Return if it's still morning.
9EF2 LD A,($9FE2) Return if *Messaging_AM_PM is equal to ASCII 61 ("a") e.g. is it AM still?
9EF5 CP $61
9EF7 RET Z
It's afternoon now.
9EF8 LD A,($9FE0) Return if *CurrentTime_Hour is not equal to 09.
9EFB CP $09
9EFD RET NZ
9EFE LD DE,$01F8 DE=01F8.
9F01 LD A,$1E A=1E.
9F03 CALL $D2A4 Call D2A4.
9F06 ADD A,E A+=E.
9F07 LD E,A E=A.
9F08 LD A,($A00A) A=*A00A.
9F0B CALL $9F1E Call 9F1E.
9F0E LD A,($A036) A=*A036.
9F11 LD B,$10 B=10.
9F13 LD DE,$07F0 DE=07F0.
9F16 CALL $F1C1 Call F1C1.
9F19 RES 6,(IX+$05) Reset bit 6 of *IX+05.
9F1D RET Return.
9F1E LD (HL),A Write A to *HL.
9F1F LD IX,($A017) IX=*A017.
9F23 LD (IX+$0F),B Write B to *IX+0F.
9F26 LD (IX+$01),$FF Write FF to *IX+01.
9F2A LD L,(IY+$06) L=*IY+06.
9F2D LD H,(IY+$07) H=*IY+07.
9F30 ADD HL,DE HL+=DE.
9F31 LD (IY+$06),L Write L to *IY+06.
9F34 LD (IY+$07),H Write H to *IY+07.
9F37 RET Return.
Prev: 9ED0 Up: Map Next: 9F38