Routines
Prev: 58971 Up: Map Next: 59116
58982: Play Tune
Used by the routines at Handler_Interrupts and Animate_Introduction.
Plays one note from Data_TuneStream / Data_TuneStreamCopy through the speaker. BC is the note length (4358 in-game, 2580 on the introduction).
Play_Tune 58982 LD A,(25724) Jump to JumpTable_Delay if *SkipDelayFlag is set.
58985 OR A
58986 JP NZ,JumpTable_Delay
58989 LD HL,(25705) Read the next Data_TuneStream byte, wrapping at 255.
58992 LD A,(HL)
58993 CP 255
58995 JR NZ,Play_Tune_StorePitch
58997 LD HL,46225
59000 LD (25707),HL
59003 LD HL,45936
59006 LD A,(HL)
Play_Tune_StorePitch 59007 INC HL Store the pitch and read the matching Data_TuneStreamCopy duration.
59008 LD (25705),HL
59011 LD (25709),A
59014 LD HL,(25707)
59017 LD A,(HL)
59018 INC HL
59019 LD (25707),HL
59022 LD D,A
59023 LD E,1
59025 LD A,(25709)
59028 LD H,A
59029 LD L,1
59031 DEC A Jump to Play_Tune_Rest if this is a rest.
59032 JP NZ,Play_Tune_Tone
59035 LD A,D
59036 DEC A
59037 JR Z,Play_Tune_Rest
Play_Tune_Tone 59039 LD A,(25629) Load the border colour and set the half-cycle counters.
59042 EX AF,AF'
59043 LD A,(25629)
59046 LD IXh,D
59048 LD D,16
Play_Tune_Toggle 59050 NOP Toggle the speaker and loop back through Play_Tune_Hold and Play_Tune_Release.
59051 NOP
59052 EX AF,AF'
59053 DEC E
59054 OUT (254),A
59056 JR NZ,Play_Tune_Hold
59058 LD E,IXh
59060 XOR D
59061 EX AF,AF'
59062 DEC L
59063 JP NZ,Play_Tune_Release
Play_Tune_Half 59066 OUT (254),A Reload the duration and loop back to Play_Tune_Toggle.
59068 LD L,H
59069 XOR D
59070 DJNZ Play_Tune_Toggle
59072 DEC C
59073 JP NZ,Play_Tune_Toggle
59076 RET
Play_Tune_Hold 59077 JR Z,Play_Tune_Hold Hold until the inner count expires.
59079 EX AF,AF'
59080 DEC L
59081 JP Z,Play_Tune_Half
Play_Tune_Release 59084 OUT (254),A Toggle the speaker on the release half-cycle.
59086 NOP
59087 NOP
59088 DJNZ Play_Tune_Toggle
59090 DEC C
59091 JP NZ,Play_Tune_Toggle
59094 RET
Play_Tune_Rest 59095 PUSH HL Waste time for a rest.
59096 LD HL,0
59099 SRA (HL)
59101 SRA (HL)
59103 SRA (HL)
59105 NOP
59106 POP HL
59107 DEC B
59108 JP NZ,Play_Tune_Rest
59111 DEC C
59112 JP NZ,Play_Tune_Rest
59115 RET
Prev: 58971 Up: Map Next: 59116