Prev: A15C Up: Map Next: A3A4
A380: Messaging: Around The Clock Timer
Used by the routine at InterruptRoutine.
Print the current timer value.
Messaging_AroundTheClock_Timer A380 CALL PrintString_Loop Call PrintString_Loop.
A383 DEFB $10,$07 INK: WHITE.
A385 DEFB $11,$00 PAPER: BLACK.
A387 DEFB $12,$01 FLASH: ON.
A389 DEFB $16,$0B,$03 PRINT AT: 0B, 03.
AroundTheClock_Timer A38C DEFM "00" "00".
A38E DEFB $FF Terminator.
Note; this is identical to Sound_MenuTick.
A38F LD C,$00 Set initial speaker state in C to OFF.
A391 LD B,$3C Set the repeat loop counter in B to 3C.
AroundTheClock_Timer_OuterLoop A393 LD HL,$000A Set the delay loop in HL to 000A.
AroundTheClock_Timer_DelayLoop A396 DEC HL Decrease the delay loop by one.
A397 LD A,H Jump back to AroundTheClock_Timer_DelayLoop until the delay loop is zero.
A398 OR L
A399 JR NZ,AroundTheClock_Timer_DelayLoop
A39B LD A,C Flip the current speaker state.
A39C XOR %00010000
A39E LD C,A
A39F OUT ($FE),A Send it to the speaker.
A3A1 DJNZ AroundTheClock_Timer_OuterLoop Decrease the repeat loop counter by one and loop back to AroundTheClock_Timer_OuterLoop until the repeat loop counter is zero.
A3A3 RET Return.
Prev: A15C Up: Map Next: A3A4