;============================================================================
; Faxanadu (U).nes
;
; PRG5 ($8000 - $bfff)
;============================================================================
.segment "PRG5"
.reloc
;============================================================================
; Initialize sound effect playback.
;
; This is a thunking function that wraps
;
SoundEffects_Init.
;
; INPUTS:
; None.
;
; OUTPUTS:
; None.
;
; CALLS:
;
SoundEffects_Init
;
; XREFS:
;
Game_InitScreenAndMusic
;============================================================================
;============================================================================
; Handle sound effects on hardware interrupt.
;
; This is a thunking function that wraps
;
SoundEffects_HandleOnInterrupt.
;
; INPUTS:
; None.
;
; OUTPUTS:
; None.
;
; CALLS:
;
SoundEffects_HandleOnInterrupt
;
; XREFS:
;
OnInterrupt
;============================================================================
;============================================================================
; Initialize the playing state for music and sound effects.
;
; This is a thunking function that wraps
;
Audio_InitPlayingState.
;
; INPUTS:
; None.
;
; OUTPUTS:
; None.
;
; CALLS:
;
Audio_InitPlayingState
;
; XREFS:
;
Game_InitScreenAndMusic
;============================================================================
;============================================================================
; Handle music on interrupt.
;
; This is a thunking function that wraps
;
Music_HandleOnInterrupt.
;
; INPUTS:
; None.
;
; OUTPUTS:
; None.
;
; CALLS:
;
Music_HandleOnInterrupt
;
; XREFS:
;
OnInterrupt
;============================================================================
;============================================================================
; Handle music on interrupt.
;
; If the game is paused, no music will play.
;
; If no music or sound effects are set, audio will be reset.
;
; If music is set but not playing, the music data will be
; loaded.
;
; If music is set and playing, the next actions or notes of
; the MScripts will be invoked, playing parts of the music.
;
; INPUTS:
;
Game_PausedState:
; Whether the game is paused.
;
;
Music_Current:
; The currently-set music.
;
; OUTPUTS:
; None.
;
; CALLS:
;
Audio_HandlePaused
;
Audio_ResetIfNothingSet
;
Music_Load
;
Music_PlayNext
;
; XREFS:
;
thunk_Music_HandleOnInterrupt
;============================================================================
;
; The game is not paused. Music can be played.
;
[8012]a5 faLDA Music_Current; Load the current music to play.
[8014]f0 22BEQ Audio_ResetIfNothingSet; If unset, jump to reset audio if nothing else is playing.
;
; There is music to play.
;
; If bit 0x80 is set, then it's already playing. We'll just
; continue to play it.
;
; If it's not set, load the new music.
;
[8016]10 61BPL Music_Load; Jump to load the music.
;
; Music is currently playing. Play the next piece of the
; music.
;
[8018]4c 06 81JMP Music_PlayNext; Jump to play the next part of the current music.
[801b]Audio_InitPlayingState:
[801b]a9 00LDA #$00
[801d]85 faSTA Music_Current; Clear the current music.
[801f]85 fbSTA SoundEffect_Current; Clear the next sound effect.
[8021]8d 22 01STA a:SoundEffect_HandlerIndex
[8024]8d 15 40STA a:SND_CHN; Clear the sound channel.
[8027]8d 20 01STA a:Game_PausedState; Clear the paused flag.
[802a]8d 21 01STA a:SoundEffect_Unused_PriorityID; Clear the ID of the highest-priority sound effect.
[802d]60RTS
;============================================================================
; Pause audio when the game is paused.
;
; This will mark the audio as paused in response to the game
; being paused.
;
; If there's no music set, and no sound effects set, then
; this will also trigger a full audio reset.
;
; INPUTS:
; N:
; The game/audio paused state.
;
; See
Game_PausedState for documentation.
;
;
Music_Current:
; The current music to check.
;
;
SoundEffect_TicksRemaining:
; The list of sound effect slots to check.
;
; OUTPUTS:
;
Game_PausedState:
; The updated paused state.
;
; CALLS:
;
Audio_Reset
;
Audio_ResetIfNothingSet
;
; XREFS:
;
Music_HandleOnInterrupt
;============================================================================
;
; First, check if we've already handled an audio pause state.
;
[802e]30 08BMI Audio_ResetIfNothingSet; If the audio paused state is already set, then jump.
;
; The game is paused, but audio is not. Set that bit and
; reset audio.
;
[8030]09 80ORA #$80; Set bit 7 (audio paused).
[8032]8d 20 01STA a:Game_PausedState; Store it.
[8035]20 4a 80JSR Audio_Reset; Reset audio.
;
; v-- Fall through --v
;
;============================================================================
; Reset the audio state if no music or sounds are set.
;
; If there's no music set, and no sound effects set, then
; this will trigger a full audio reset.
;
; INPUTS:
;
Music_Current:
; The current music to check.
;
;
SoundEffect_TicksRemaining:
; The list of sound effect slots to check.
;
; OUTPUTS:
; None.
;
; CALLS:
;
Audio_Reset
;
; XREFS:
;
Audio_HandlePaused
;
Music_HandleOnInterrupt
;============================================================================
;
; There's no music playing. Check if sound effects
; are playing.
;
[803c]a2 03LDX #$03; X = 3 (loop counter).
[803e]@_checkSoundEffectLoop:
[803e]bd 23 01LDA a:SoundEffect_TicksRemaining,X; Load the sound effect at the current index.
[8041]d0 06BNE @_return; If it's set, then return.
[8043]caDEX; X-- (loop counter).
[8044]10 f8BPL @_checkSoundEffectLoop; If >= 0, loop.
;
; This has looped through all sound effects, and none
; were set. Audio can now be reset.
;
[8046]4c 4a 80JMP Audio_Reset; Reset the audio.
[8049]@_return:
[8049]60RTS
[804a]Audio_Reset:
;
; Enable the Constant Volume bit on Pulse 1/2 and Noise
; channels.
;
[804a]a9 10LDA #$10
[804c]8d 00 40STA a:SQ1_VOL; Enable the Constant Volume bit.
[804f]8d 04 40STA a:SQ2_VOL; Enable the Constant Volume bit.
[8052]8d 0c 40STA a:NOISE_VOL; Enable the Constant Volume bit.
;
; Clear all other channel state.
;
[8055]a9 00LDA #$00
[8057]8d 01 40STA a:SQ1_SWEEP; Set to 0.
[805a]8d 02 40STA a:SQ1_LO; Set to 0.
[805d]8d 03 40STA a:SQ1_HI; Set to 0.
[8060]8d 05 40STA a:SQ2_SWEEP; Set to 0.
[8063]8d 06 40STA a:SQ2_LO; Set to 0.
[8066]8d 07 40STA a:SQ2_HI; Set to 0.
[8069]8d 08 40STA a:TRI_LINEAR; Set to 0.
[806c]8d 0a 40STA a:TRI_LO; Set to 0.
[806f]8d 0b 40STA a:TRI_HI; Set to 0.
[8072]8d 0e 40STA a:NOISE_LO; Set to 0.
[8075]8d 0f 40STA a:NOISE_HI; Set to 0.
[8078]60RTS
;============================================================================
; Load channel and MScript state for music.
;
; This will take the index of the music to load and convert
; it into an address for processing.
;
; The initial state of the music engine (note durations,
; transpose, note lengths, etc.) will be reset for the
; song across all channels.
;
; XREFS:
;
Music_HandleOnInterrupt
;============================================================================
;
; Load the current music to play.
;
[8079]a5 faLDA Music_Current; Load the current music.
[807b]09 80ORA #$80; Mark as currently playing.
[807d]85 faSTA Music_Current; Store that.
;
; Convert to a lookup index for the table.
;
; This will be multiplied by 8, giving us word boundaries
; across 4 channels.
;
[807f]0aASL A; Convert to a word boundary.
[8080]0aASL A; And multiply by 4 channels.
[8081]0aASL A
[8082]a8TAY; Y = result (Music lookup index).
;
; Begin loading the starting MScripts.
;
; This will load all 4 channels of MScripts for the selected
; piece of music, indexed from last channel to first.
;
; Bear in mind, the loop counter is looping over addresses, so
; it loops 8 times, or 2 bytes * 4 channels. Indexes will be
; based off the music ID, though, not the loop counter.
;
[8083]a2 07LDX #$07; X = 7 (loop counter).
[8085]@_loadMusicLoop:
[8085]b9 fa 8eLDA a:MSCRIPTS_LOOKUP,Y; Load the MScript channel address at Y.
[8088]95 f2STA Music_CurrentScriptAddrs,X; Store it in the list of channel addresses.
;
; BUG: This tries to save the address for a return/repeat, but
; it always saves in the first channel slot, which is
; incorrect.
;
[808a]8d 50 01STA a:MScript_SavedAddr; Store it as the latest saved address as well, for push/pop purposes.
;
; Prepare for the next loop iteration and lookup.
;
[808d]88DEY; Y-- (lookup index).
[808e]caDEX; X-- (loop counter).
[808f]10 f4BPL @_loadMusicLoop; If X >= 0, loop.
;
; We're out of the loop. Clear a bunch of state.
;
[8091]e8INX; Set X back to 0 (-1 + 1 == 0).
[8092]8e 60 01STX a:Music_Global_Transpose
[8095]8e 61 01STX a:Music_Channel_Transpose
[8098]8e 62 01STX a:Music_Channel_Transpose_1_
[809b]8e 63 01STX a:Music_Channel_Transpose_2_
[809e]8e 74 01STX a:Music_SQ_Fades
[80a1]8e 75 01STX a:Music_SQ_Fades_1_
[80a4]8e 76 01STX a:Music_SQEnvelope_Mode
[80a7]8e 77 01STX a:Music_SQEnvelope_Mode_1_
[80aa]8e 79 01STX a:Music_SQEnvelope_Phase
[80ad]8e 7a 01STX a:Music_SQEnvelope_Phase_1_
[80b0]8e 7c 01STX a:Music_Current_SQ_Low
[80b3]8e 7d 01STX a:Music_Current_SQ_Low_1_
[80b6]8e 6d 01STX a:Music_Note_Period_Low
[80b9]8e 6e 01STX a:Music_Note_Period_High
[80bc]8e 6f 01STX a:MScript_Unused_RawValue
[80bf]8e 7e 01STX a:Music_Triangle_Remaining
[80c2]8e 69 01STX a:Music_Noise_Remaining
[80c5]8e 78 01STX a:Music_SQEffect_Delta
[80c8]8e 6c 01STX a:Music_TempValue
[80cb]8e 7f 01STX a:Music_SQPitchDelta_Mask
[80ce]8e 80 01STX a:Music_SQPitchDelta_Mask_1_
[80d1]8e 81 01STX a:Music_SQ2_TimerLowBias
;
; Set the following to 1.
;
[80d4]e8INX; X = 1
[80d5]8e 30 01STX a:Music_ChannelTicksRemaining
[80d8]8e 31 01STX a:Music_ChannelTicksRemaining_1_
[80db]8e 32 01STX a:Music_ChannelTicksRemaining_2_
[80de]8e 33 01STX a:Music_ChannelTicksRemaining_3_
;
; Set the durations for each channel to 1.
;
[80e1]8e 2c 01STX a:MScript_NoteDurations
[80e4]8e 2d 01STX a:MScript_NoteDurations_1_
[80e7]8e 2e 01STX a:MScript_NoteDurations_2_
[80ea]8e 2f 01STX a:MScript_NoteDurations_3_
;
; Set the following to 8.
;
[80ed]a9 08LDA #$08; A = 8
[80ef]8d 64 01STA a:Music_SQ_Note_Lengths
[80f2]8d 65 01STA a:Music_Note_Length_High
[80f5]8d 66 01STA a:Music_Unused_0166
[80f8]8d 67 01STA a:Music_Unused_0166_1_
;
; Set the following to 144.
;
[80fb]a9 90LDA #$90; A = 144
[80fd]8d 72 01STA a:Music_SQ_ControlBits
[8100]8d 73 01STA a:Music_SQ_ControlBits_1_
;
; Reset audio channels.
;
[8103]4c 4a 80JMP Audio_Reset; Reset the audio channels.
;============================================================================
; Play the next op in each MScript channel.
;
; This will perform the next operation for each channel,
; unsetting the music if all are complete.
;
; If a channel has a repeat set, its repeat count will
; be reduced by 1 and the current note/value will be played.
; Otherwise, the next operation in the MScript will be
; invoked.
;
; Once all channels are marked completed, the music will be
; unset.
;
; INPUTS:
;
Music_ChannelTicksRemaining:
; The repeat counters for each channel.
;
; OUTPUTS:
;
Music_ChannelTicksRemaining:
; The updated repeat counters for each channel.
;
;
Music_NumChannelsCompleted:
; The number of channels completed after this run.
;
;
Music_Current:
; Unset, if all channels completed.
;
;
MScript_CurrentChannel:
; Clobbered.
;
; CALLS:
;
MScripts_InvokeNext
;
Music_PlayForChannel
;
; XREFS:
;
Music_HandleOnInterrupt
;============================================================================
;
; Set the initial state for tracking per-channel playback
; for this invocation.
;
[8106]a9 00LDA #$00
[8108]8d 6b 01STA a:Music_NumChannelsCompleted; Clear the number of completed channels.
[810b]8d 6a 01STA a:MScript_CurrentChannel; Clear the current channel index.
;
; Loop through each of the channels.
;
; For each channel, the current value will be played and
; only advanced when the repeat count for the value hits 0.
;
[810e]@_loop:
[810e]ae 6a 01LDX a:MScript_CurrentChannel; X = Current channel index
[8111]de 30 01DEC a:Music_ChannelTicksRemaining,X
[8114]d0 03BNE @_play
[8116]20 3a 82JSR MScripts_InvokeNext
[8119]@_play:
[8119]20 32 81JSR Music_PlayForChannel; Play music on this channel.
[811c]ee 6a 01INC a:MScript_CurrentChannel; Move to the next channel.
[811f]ad 6a 01LDA a:MScript_CurrentChannel; Load that channel index.
[8122]c9 04CMP #$04; Is it < 4?
[8124]90 e8BCC @_loop; If so, loop.
;
; Check if all channels have finished.
;
[8126]ad 6b 01LDA a:Music_NumChannelsCompleted; Load the number of completed channels.
[8129]c9 04CMP #$04; Is it 4?
[812b]d0 04BNE @_return; If not, return.
;
; All channels have finished, so clear the current music.
;
[812d]a9 00LDA #$00
[812f]85 faSTA Music_Current; Unset the current music.
[8131]@_return:
[8131]60RTS
;============================================================================
; Play a Square Wave or Triangle channel every tick.
;
; Noise is not handled here. Instead it's handled in
;
Music_PlayNoise when
;
Music_ChannelTicksRemaining
; reaches 0.
;
;
;
; XREFS:
;
Music_PlayNext
;============================================================================
;
; This is the Triangle Wave channel.
;
[813e]@_isTriangleWave:
[813e]ae 6a 01LDX a:MScript_CurrentChannel; Load the current channel index.
[8141]ad 7e 01LDA a:Music_Triangle_Remaining
[8144]f0 05BEQ @_checkSoundEffectOnTri
[8146]ce 7e 01DEC a:Music_Triangle_Remaining
[8149]a9 c0LDA #$c0
[814b]@_checkSoundEffectOnTri:
[814b]8d 6c 01STA a:Music_TempValue
;
; Check if there's currently a sound effect playing
; on the Triangle Wave channel.
;
[814e]bd 23 01LDA a:SoundEffect_TicksRemaining,X; Load the current sound effect on the Triangle Wave channel.
[8151]d0 07BNE @_clearTriangleWave; If one is set, jump to clear it.
;
; No sound effect is playing on the Triangle Wave channel.
;
[8153]ad 6c 01LDA a:Music_TempValue; Load the value to play.
[8156]8d 08 40STA a:TRI_LINEAR; Set it on the channel.
[8159]60RTS; And return.
[815a]@_clearTriangleWave:
[815a]a9 00LDA #$00
[815c]8d 08 40STA a:TRI_LINEAR; Clear the Triangle Wave channel.
[815f]60RTS; And return.
;
; This is a Square Wave channel.
;
[8160]@_isSquareWave:
[8160]ae 6a 01LDX a:MScript_CurrentChannel
[8163]bc 76 01LDY a:Music_SQEnvelope_Mode,X
[8166]f0 07BEQ Music_PlaySQEnvelopeModeLinearTrailoff
[8168]88DEY
[8169]f0 27BEQ Music_PlaySQEnvelopeModeCurveButHeld
[816b]88DEY
[816c]f0 4eBEQ Music_PlaySQEnvelopeModePluck
[816e]60RTS
[816f]Music_PlaySQEnvelopeModeLinearTrailoff:
[816f]ae 6a 01LDX a:MScript_CurrentChannel; Load the current MScript channel.
;
; Check if the counter is 0. If so, it'll stay that way
; until playback finishes.
;
[8172]bd 70 01LDA a:Music_SQEnvelope_Value,X; Load the fade-out counter value for the mode.
[8175]f0 06BEQ @LAB_PRG5__817d; If it's 0, jump.
;
; The counter is a non-zero value. Subtract 3 and store it.
;
[8177]38SEC
[8178]e9 03SBC #$03; Subtract 3 from the counter.
[817a]9d 70 01STA a:Music_SQEnvelope_Value,X; Store the new counter.
;
; Convert the value to a value between 0-15.
;
; This effectively shifts any value into the lower nibble.
;
[817d]@LAB_PRG5__817d:
[817d]4aLSR A; Shift into the lower nibble.
[817e]4aLSR A
[817f]4aLSR A
[8180]4aLSR A
[8181]29 0fAND #$0f; Mask out the upper nibble.
[8183]8d 6c 01STA a:Music_TempValue; Store as the new volume value for the Square Wave.
;
; Check if any special effects are playing on this channel.
;
[8186]bd 23 01LDA a:SoundEffect_TicksRemaining,X; Load any current special effects on this channel.
[8189]d0 06BNE @_return; If set, return.
[818b]20 f1 81JSR Music_UpdateSQVolRegister; Update the volume and flags the SQ*_VOL register.
[818e]20 0d 82JSR Music_ApplySQPitchEffectToLO; Apply the mode's pitch effect to the SQ*_LO register.
[8191]@_return:
[8191]60RTS
;============================================================================
; TODO: Document Music_PlaySQEnvelopeModeCurveButHeld
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Music_PlayForChannel
;============================================================================
;
; This is SQ Mode 1: Curve but held
;
[8192]ae 6a 01LDX a:MScript_CurrentChannel; Load the current MScript channel.
[8195]bd 70 01LDA a:Music_SQEnvelope_Value,X; Load the envelopve value for the channel.
[8198]29 0fAND #$0f; Keep the lower nibble (0-15).
[819a]9d 70 01STA a:Music_SQEnvelope_Value,X; Store as the new value.
;
; Apply a cap on the envelope value. If it's >= 13, reduce
; it by 2 (capping at a max of 13).
;
[819d]c9 0dCMP #$0d; Is it < 13?
[819f]90 06BCC @_applyMode; If so, jump.
;
; Cap this value to a max of 13.
;
; We can safely say it'll be capped here, because we've
; ensured a range of 0-15 above, and have checked if it's
; >= 13.
;
; A value of 15 will become 13.
; A value of 14 will become 12.
; A value of 13 will become 11.
;
[81a1]de 70 01DEC a:Music_SQEnvelope_Value,X; Decrement the envelope value by 2.
[81a4]de 70 01DEC a:Music_SQEnvelope_Value,X
;
; Increment the phase.
;
[81a7]@_applyMode:
[81a7]fe 79 01INC a:Music_SQEnvelope_Phase,X; Increment the phase by 1.
[81aa]bd 70 01LDA a:Music_SQEnvelope_Value,X; Load the envelope value.
[81ad]8d 6c 01STA a:Music_TempValue; Store it as the volume to set.
;
; Check if there are any sound effects currently playing.
; If so, give them priority.
;
[81b0]bd 23 01LDA a:SoundEffect_TicksRemaining,X; Check if a sound effect is playing.
[81b3]d0 06BNE @_return; If so, return.
;
; Apply a volume and pitch effect.
;
[81b5]20 f1 81JSR Music_UpdateSQVolRegister; Update the volume.
[81b8]20 0d 82JSR Music_ApplySQPitchEffectToLO; Apply a pitch effect.
[81bb]@_return:
[81bb]60RTS
;============================================================================
; TODO: Document Music_PlaySQEnvelopeModePluck
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Music_PlayForChannel
;============================================================================
;
; This is SQ Mode 2: Table-based envelope (pluck effect)
;
[81bc]ae 6a 01LDX a:MScript_CurrentChannel; Load the current MScript channel.
[81bf]bd 79 01LDA a:Music_SQEnvelope_Phase,X; Load the current phase.
[81c2]4aLSR A; Divide by 4 and use the result as an index in the lookup table.
[81c3]4aLSR A
[81c4]a8TAY; Y = resulting index.
[81c5]b9 dc 81LDA a:SQ_MODE_2_PLUCK_VALUES,Y; Load the pluck value from the table.
[81c8]f0 03BEQ @_applyEffect; If it's 0 (end of table), jump to avoid incrementing the index within the table.
;
; The index is still within the range of the table.
; Increment the index for the next table value.
;
[81ca]fe 79 01INC a:Music_SQEnvelope_Phase,X; Increment the phase.
[81cd]@_applyEffect:
[81cd]8d 6c 01STA a:Music_TempValue; Store the table entry as the volume to apply.
;
; Check if there are any sound effects playing. If so, give
; them priority.
;
[81d0]bd 23 01LDA a:SoundEffect_TicksRemaining,X; Check if any sound effects are playing.
[81d3]d0 06BNE @_return; If so, return.
;
; Apply the volume and pitch effect.
;
[81d5]20 f1 81JSR Music_UpdateSQVolRegister; Update the volume.
[81d8]20 0d 82JSR Music_ApplySQPitchEffectToLO; Apply the pitch effect.
[81db]@_return:
[81db]60RTS
[81dc]SQ_MODE_2_PLUCK_VALUES:
[81dc]07.byte $07; [0]:
[81dd]0a.byte $0a; [1]:
[81de]0d.byte $0d; [2]:
[81df]0f.byte $0f; [3]:
[81e0]0e.byte $0e; [4]:
[81e1]0d.byte $0d; [5]:
[81e2]0c.byte $0c; [6]:
[81e3]0b.byte $0b; [7]:
[81e4]0a.byte $0a; [8]:
[81e5]09.byte $09; [9]:
[81e6]08.byte $08; [10]:
[81e7]07.byte $07; [11]:
[81e8]06.byte $06; [12]:
[81e9]05.byte $05; [13]:
[81ea]04.byte $04; [14]:
[81eb]03.byte $03; [15]:
[81ec]02.byte $02; [16]:
[81ed]02.byte $02; [17]:
[81ee]01.byte $01; [18]:
[81ef]01.byte $01; [19]:
[81f0]00.byte $00; [20]:
;============================================================================
; Update the Square Wave volume and control bits.
;
; This will load in the pending value for square wave volume
; and reduce it by any fade set by an MScript op. This will
; be the volume for the
SQ1_VOL or
;
SQ2_VOL channel.
;
; The control bits (duty cycle, length counter halt,
; constant volume/envelope flag) will then be applied to
; the register.
;
; See https://www.nesdev.org/wiki/APU_Pulse
;
; INPUTS:
;
MScript_CurrentChannel:
; The current channel being processed (0 or 1).
;
;
Music_TempValue:
; The current volume value to use as a base.
;
;
Music_SQ_Fades:
; The fade values to subtract from the volume
; (indexed by channel).
;
;
Music_SQ_ControlBits:
; The control bits to set for the register.
;
; OUTPUTS:
;
SQ1_VOL:
;
SQ2_VOL:
; The updated Square Wave register.
;
; XREFS:
;
Music_PlaySQEnvelopeModeCurveButHeld
;
Music_PlaySQEnvelopeModeLinearTrailoff
;
Music_PlaySQEnvelopeModePluck
;============================================================================
;
; Compute the address for the Square Wave volume register.
;
[81f1]ae 6a 01LDX a:MScript_CurrentChannel; Load the MScript channel.
[81f4]8aTXA; A = result.
[81f5]0aASL A; Convert to a starting index in the set of Square Wave registers.
[81f6]0aASL A
[81f7]a8TAY; Y = resulting register index ($4000/$4004).
;
; Apply any fade set.
;
[81f8]ad 6c 01LDA a:Music_TempValue; Load the volume to set.
[81fb]38SEC
[81fc]fd 74 01SBC a:Music_SQ_Fades,X; Subtract any fade that was set.
[81ff]b0 02BCS @_setVolume; If positive, jump.
;
; The volume went negative. Cap to 0.
;
[8201]a9 00LDA #$00; Set the volume to 0.
[8203]@_setVolume:
[8203]ae 6a 01LDX a:MScript_CurrentChannel; Load the current SQ channel as an index.
[8206]1d 72 01ORA a:Music_SQ_ControlBits,X; Apply control bits to the value to set for the register.
[8209]99 00 40STA a:SQ1_VOL,Y; And set the register.
[820c]60RTS
[820d]Music_ApplySQPitchEffectToLO:
[820d]ae 6a 01LDX a:MScript_CurrentChannel; Load the current MScript channel.
;
; Make sure the phase counter reached 18 before we make any
; changes. This provides a delay.
;
[8210]bd 79 01LDA a:Music_SQEnvelope_Phase,X; Load the phase counter for the channel.
[8213]c9 12CMP #$12; Is it < 18?
[8215]90 22BCC @_return; If so, end.
;
; The counter hit 18, so we can begin updating state.
;
; First we'll divide the counter by 4, giving a quarter speed.
; Then we'll AND with the depth mask, defining the range (e.g.,
; $04 == 0..4 repeating).
;
; The result is a delta used later.
;
[8217]4aLSR A; Divide by 4, giving quarter speed.
[8218]4aLSR A
[8219]3d 7f 01AND a:Music_SQPitchDelta_Mask,X; AND with our depth mask, defining the range.
[821c]8d 78 01STA a:Music_SQEffect_Delta; Store as the delta.
;
; If any sound effects are playing on this channel, don't
; play. Give the sound effectws priority.
;
[821f]bd 23 01LDA a:SoundEffect_TicksRemaining,X; Check for sound effects on this channel.
[8222]d0 15BNE @_return; If any are set, skip playing on this channel.
;
; No sound effects are playing, so we can continue.
;
[8224]ad 6a 01LDA a:MScript_CurrentChannel; Load the current MScript channel.
[8227]0aASL A; Convert to an index within the set of Square Wave registers
[8228]0aASL A
[8229]a8TAY; Y = resulting registers index ($4000/$4004).
;
; Don't apply the effect if the base is too small to subtract from.
;
[822a]bd 7c 01LDA a:Music_Current_SQ_Low,X; Load the low value .
[822d]dd 7f 01CMP a:Music_SQPitchDelta_Mask,X; Is it less than the depth mask?
[8230]90 07BCC @_return; If so, return.
;
; Subtract the delta and store it in the SQ*_LO register.
;
[8232]38SEC
[8233]ed 78 01SBC a:Music_SQEffect_Delta; Subtract the delta calculated above.
[8236]99 02 40STA a:SQ1_LO,Y; And store it in the register.
[8239]@_return:
[8239]60RTS
[823a]MScripts_InvokeNext:
[823a]ae 6a 01LDX a:MScript_CurrentChannel; X = Channel index being processed
[823d]e0 03CPX #$03; Is this the noise channel?
[823f]d0 08BNE @_loadNextValue; If not, jump.
;
; This is the Noise channel. See if there's noise to play.
;
[8241]ad 69 01LDA a:Music_Noise_Remaining; Is there noise to play?
[8244]f0 03BEQ @_loadNextValue; If not, process the next value in the script.
;
; There is noise, so play it.
;
[8246]4c ff 82JMP Music_PlayNoise; Else, play the noise.
[8249]@_loadNextValue:
[8249]20 44 85JSR MScripts_GetNextValue; Get the next value from the MScript.
[824c]8d 6c 01STA a:Music_TempValue; Store it.
[824f]a8TAY; Y = Value
[8250]30 03BMI @_handleScriptValue; If the script value is >= 0x80, jump to handle it.
[8252]4c e3 82JMP Music_PlayOrRest; Play if there's a value, or finish if 0.
;
; Check if this is an MScript op (>= 0xEE) or a note length
; (>= 0x80, < 0xEE).
;
[8255]@_handleScriptValue:
[8255]c9 eeCMP #$ee; Is this < 0xEE?
[8257]90 35BCC MScripts_SetNoteLengthFromNext; If so, set the note length from the next value.
;
; Determine the op handler to invoke.
;
[8259]38SEC
[825a]a9 ffLDA #$ff; A = 0xFF
[825c]ed 6c 01SBC a:Music_TempValue; Subtract the opcode, giving an index into the lookup table.
[825f]0aASL A; Normalize to a word boundary for the lookup table.
[8260]a8TAY; Y = A
[8261]b9 6b 82LDA a:MSCRIPT_OP_HANDLERS+1,Y; Load the address of the handler and push to the stack.
[8264]48PHA
[8265]b9 6a 82LDA a:MSCRIPT_OP_HANDLERS,Y
[8268]48PHA
[8269]60RTS; And call it.
;============================================================================
; Lookup table of MScript operation handlers.
;
; XREFS:
;
MScripts_InvokeNext
;============================================================================
;============================================================================
; Set the note length from the next value read from the MScript.
;
; INPUTS:
;
Music_TempValue:
; The value loaded from the script.
;
; OUTPUTS:
; None.
;
; CALLS:
;
MScripts_SetNoteLengthFromValue
;
; XREFS:
;
MScripts_InvokeNext
;============================================================================
;============================================================================
; TODO: Document MScript_Op_RepeatValue
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8295]MScript_Op_RepeatValue:
[8295]20 44 85JSR MScripts_GetNextValue; Get the next value in the script.
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document MScripts_SetNoteLengthFromValue
;
; INPUTS:
; A
;
; OUTPUTS:
; TODO
;
; XREFS:
;
MScripts_SetNoteLengthFromNext
;============================================================================
;
; This is not the Triangle channel. It's Square Wave/Pulse
; or Noise.
;
[82a8]ad 6c 01LDA a:Music_TempValue; Load the current value from the MScript.
[82ab]48PHA; Push it to the stack.
[82ac]4aLSR A; Divide by 8.
[82ad]4aLSR A
[82ae]4aLSR A
[82af]8d 6c 01STA a:Music_TempValue; Store it back temporarily.
[82b2]68PLA; Pop the value back from the stack.
[82b3]38SEC
[82b4]ed 6c 01SBC a:Music_TempValue; Subtract the result of our division.
[82b7]c9 10CMP #$10; Is it >= 16?
[82b9]b0 11BCS @_beginCheckOffsets; If so, jump.
[82bb]0aASL A; Multiply by 16.
[82bc]0aASL A
[82bd]0aASL A
[82be]0aASL A
[82bf]09 08ORA #$08; OR with 8.
[82c1]9d 64 01STA a:Music_SQ_Note_Lengths,X; Store as the note length.
[82c4]c9 08CMP #$08; Is the value exactly 8?
[82c6]d0 15BNE @_invokeNext; If not, jump.
[82c8]a9 18LDA #$18; Else, set 24 as the note duration.
[82ca]d0 0eBNE @_storeLength; Jump to set the length.
;
; Look for an entry in the table that is <= our calculated
; value.
;
; The loop counter seems to wrap from 0 on up through 0
; (overflowing), but in reality the last entry in the table
; will always terminate the loop (as it's 0, and 0 <= all
; values).
;
[82cc]@_beginCheckOffsets:
[82cc]a0 00LDY #$00; Y = 0 (loop counter).
[82ce]@_checkOffsetLoop:
[82ce]d9 6f 85CMP a:NOTE_LENGTH_CMP_LOWER_BOUNDS,Y; Is the value from the table <= our calculated value?
[82d1]b0 04BCS @_loadLength; If so, break.
[82d3]c8INY; Y += 2 (loop counter).
[82d4]c8INY
[82d5]d0 f7BNE @_checkOffsetLoop; If != 0, loop.
[82d7]@_loadLength:
[82d7]b9 70 85LDA a:NOTE_LENGTH_VALUES,Y; Load the value from the tabe.
[82da]@_storeLength:
[82da]9d 64 01STA a:Music_SQ_Note_Lengths,X
[82dd]@_invokeNext:
[82dd]4c 3a 82JMP MScripts_InvokeNext
[82e0]4c 3a 82JMP MScripts_InvokeNext; Unreachable?
;============================================================================
; Play a note, noise, or rest from the MScript.
;
; This takes the loaded value in both A and Y, and then
; checks if it's 0 (indicating a Rest) or non-0 (either a
; wave value or noise value, depending on the channel).
;
; INPUTS:
; A:
; Y:
; The value loaded from the MScript.
;
; OUTPUTS:
; None.
;
; CALLS:
;
Music_PlayWaveOrNoise
;
Music_ResetTicksRemaining
;
; XREFS:
;
MScripts_InvokeNext
;============================================================================
;
; This is a Rest. Set the duration as the number of ticks
; remaining.
;
[82e7]4c ad 83JMP Music_ResetTicksRemaining; Set the duration as the number of ticks remaining.
;============================================================================
; Play audio on the noise of wave channels.
;
; This will determine which channel is being played and
; then begin playing the current note value in the MScript
; on that channel.
;
; INPUTS:
; A:
; The byte loaded from the MScript.
;
;
MScript_CurrentChannel:
; The current channel being processed.
;
; OUTPUTS:
;
Music_Noise_Index:
; The loaded index within the noise register lookup table.
;
;
Music_Noise_Remaining:
; The duration of the loaded noise.
;
; CALLS:
;
Music_PlayNoise
;
Music_SetupWave
;
; XREFS:
;
Music_PlayOrRest
;============================================================================
;
; This is the Noise channel.
;
[82f1]48PHA; Push the noise value to the stack.
[82f2]29 0fAND #$0f; Keep the lower nibble.
[82f4]8d 69 01STA a:Music_Noise_Remaining; Store as the noise ticks remaining.
[82f7]68PLA; Pop the noise value from the stack.
[82f8]4aLSR A; Shift the upper nibble into the lower.
[82f9]4aLSR A
[82fa]4aLSR A
[82fb]4aLSR A
[82fc]8d 68 01STA a:Music_Noise_Index; Store as the index into the noise table.
;
; v-- Fall through --v
;
;============================================================================
; Play audio on the noise channel.
;
; If we're not already in the middle of playing noise, and
; there's a noise index loaded to play, this will write the
; corresponding noise from the
MUSIC_NOISE_REGISTER_VALUES
; lookup table to the registers.
;
; If there are sound effects being played, this will not
; play noise.
;
; Whether the noise ends up being played or silenced in
; favor of a sound effect, the number of ticks remaining
; for the noise will be set based on its duration.
;
; INPUTS:
;
Music_Noise_Remaining:
; The number of ticks of noise remaining.
;
;
SoundEffect_TicksRemaining:
; Ticks remaining for any sound effects on the
; noise channel.
;
; If set, noise will not play.
;
;
Music_Noise_Index:
; The index of the precomputed noise to play.
;
;
MUSIC_NOISE_REGISTER_VALUES:
; The table of noise register values by noise index.
;
; OUTPUTS:
;
NOISE_VOL:
;
NOISE_HI:
;
NOISE_LO:
; Register state for the played noise.
;
; CALLS:
;
Music_ResetTicksRemaining
;
; XREFS:
;
MScripts_InvokeNext
;============================================================================
;
; First check if any sound effects are playing on the
; noise channel. If so, we don't want to play music (give
; the sound effects priority).
;
[8302]ad 26 01LDA a:SoundEffect_TicksRemaining_3_; Check if any sound effects are playing on the noise channel.
[8305]f0 03BEQ @_noNoiseSoundEffects; If not, jump to process noise.
;
; A sound effect is playing on the noise channel. Sync
; the number of ticks remaining to the note duration.
;
[8307]4c ad 83JMP Music_ResetTicksRemaining; Set the number of ticks for this noise based on its duration.
;
; There are no more ticks remaining. Check if the noise
; index for the values table is 0 (which means no noise
; to play, just a duration). If so, we'll simply sync the
; note duration again and return.
;
[830a]@_noNoiseSoundEffects:
[830a]ad 68 01LDA a:Music_Noise_Index; Load the current noise table index.
[830d]d0 03BNE @_hasNoiseIndex
;
; The noise index loaded in from the byte is 0. We won't
; be playing. Instead, sync the ticks remaining from the
; current noise duration.
;
[830f]4c ad 83JMP Music_ResetTicksRemaining; Set the number of ticks for this noise based on its duration.
;
; Generate an index into the noise register value table, and
; begin writing to the registers.
;
[8312]@_hasNoiseIndex:
[8312]0aASL A; Convert the index to a 4-byte boundary.
[8313]0aASL A
[8314]aaTAX; X = resulting index.
[8315]a0 00LDY #$00; Y = 0 (loop counter/write index).
[8317]@_noiseLoop:
[8317]bd 7f 85LDA a:MUSIC_NOISE_REGISTER_VALUES,X; Load the register value to write from the table index.
[831a]99 0c 40STA a:NOISE_VOL,Y; Write it in the appropriate register.
[831d]e8INX; X++ (table read index).
[831e]c8INY; Y++ (loop/write index).
[831f]c0 04CPY #$04; Is the counter < 4 (max number of registers)?
[8321]90 f4BCC @_noiseLoop; If so, loop.
[8323]4c ad 83JMP Music_ResetTicksRemaining; Set the number of ticks for this noise based on its duration.
;============================================================================
; TODO: Document Music_SetupWave
;
; INPUTS:
; Y
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Music_PlayWaveOrNoise
;============================================================================
;
; There's a sound effect playing on the channel. Set the
; duration but skip playing.
;
[832e]4c ad 83JMP Music_ResetTicksRemaining; Set the ticks remaining to the duration of the note.
[8331]@_setNote:
[8331]ae 6a 01LDX a:MScript_CurrentChannel
[8334]f0 1fBEQ @_setSquareWave1
[8336]caDEX
[8337]f0 3dBEQ @_setSquareWave2Sweep
;
; This is the Triangle Wave channel.
;
; Set a looped play with a reload value of 64, with
; provided timer value and max length.
;
[8339]a9 c0LDA #$c0; Set looped play, length 64.
[833b]8d 08 40STA a:TRI_LINEAR; Set for the Triangle channel.
[833e]20 cd 83JSR Music_SetNote; Set the note to play.
[8341]ad 6d 01LDA a:Music_Note_Period_Low; Load the queued low bits of the period.
[8344]8d 0a 40STA a:TRI_LO; Write to the triangle register.
[8347]ae 6a 01LDX a:MScript_CurrentChannel; Load the current channel being played.
[834a]ad 6e 01LDA a:Music_Note_Period_High; Load the note period to play.
[834d]09 f8ORA #$f8; Set the full play length.
[834f]8d 0b 40STA a:TRI_HI; And set as the Triangle High.
[8352]4c b7 83JMP Music_SetupTriangleWave; Jump to play the note on the channel.
;
; This is the Square Wave 1 channel.
;
; This will play the queued period for the given
; length, with sweep disabled.
;
[8355]@_setSquareWave1:
[8355]20 cd 83JSR Music_SetNote; Set the note to play.
[8358]a9 00LDA #$00
[835a]8d 01 40STA a:SQ1_SWEEP; Disable sweep.
[835d]ad 6d 01LDA a:Music_Note_Period_Low; Load the queued low bits of the period.
[8360]8d 02 40STA a:SQ1_LO; Write to the Square Wave 1 register.
[8363]8d 7c 01STA a:Music_Current_SQ_Low; Store for the current Square Wave channel for processing.
[8366]ad 6e 01LDA a:Music_Note_Period_High; Load the queued high bits for the period.
[8369]0d 64 01ORA a:Music_SQ_Note_Lengths; OR it with the stored note length for this channel, forming the register value.
[836c]8d 03 40STA a:SQ1_HI; Write to the Square Wave register.
[836f]a9 00LDA #$00
[8371]8d 79 01STA a:Music_SQEnvelope_Phase; Clear the envelope phase.
[8374]f0 2bBEQ @_finish; Jump to finish.
;
; This is the Square Wave 2 channel.
;
[8376]@_setSquareWave2Sweep:
[8376]20 cd 83JSR Music_SetNote
[8379]a9 00LDA #$00
[837b]8d 05 40STA a:SQ2_SWEEP; Disable sweep.
[837e]ac 6c 01LDY a:Music_TempValue; Load the value to play.
[8381]ad 6d 01LDA a:Music_Note_Period_Low; Load the queued low bits for the period.
[8384]cd 81 01CMP a:Music_SQ2_TimerLowBias; Is the period low < the timer low bias?
[8387]90 04BCC @_setSQ2HiLo; If so, jump.
[8389]38SEC
[838a]ed 81 01SBC a:Music_SQ2_TimerLowBias; Else, subtract from the period low.
[838d]@_setSQ2HiLo:
[838d]8d 06 40STA a:SQ2_LO; Write the result to the register.
[8390]8d 7d 01STA a:Music_Current_SQ_Low_1_; And store as the low bits for the current channel.
[8393]ad 6e 01LDA a:Music_Note_Period_High; Load the queued high bits for the period.
[8396]0d 65 01ORA a:Music_Note_Length_High; OR it with the length bits.
[8399]8d 07 40STA a:SQ2_HI; Write it to the register.
[839c]a9 00LDA #$00
[839e]8d 7a 01STA a:Music_SQEnvelope_Phase_1_; Clear the envelope phase for this channel.
[83a1]@_finish:
[83a1]ae 6a 01LDX a:MScript_CurrentChannel; Load the current channel.
[83a4]a9 ffLDA #$ff
[83a6]9d 70 01STA a:Music_SQEnvelope_Value,X; Set the channel's envelope value to 0xFF.
[83a9]20 ad 83JSR Music_ResetTicksRemaining; Set the ticks remaining to the note duration.
[83ac]60RTS
;============================================================================
; Set the current per-channel repeat duration.
;
; MScripts maintain a per-channel "repeat count", which
; controls how many update ticks the current
; note/rest/noise value should be held before the script
; advances to the next byte.
;
; This copies
MScript_NoteDurations (set by a script) into
;
Music_ChannelTicksRemaining (used for play back) for the
; current channel, which is decremented by the main music
; update loop to delay script advancement.
;
; INPUTS:
;
MScript_CurrentChannel:
; The current MScript channel.
;
;
MScript_NoteDurations:
; The per-channel repeat counts set by the script.
;
; OUTPUTS:
;
Music_ChannelTicksRemaining:
; The remaining tick counts for playback.
;
; XREFS:
;
Music_PlayNoise
;
Music_PlayOrRest
;
Music_SetupTriangleWave
;
Music_SetupWave
;============================================================================
;============================================================================
; TODO: Document Music_SetupTriangleWave
;
; INPUTS:
; A
;
; OUTPUTS:
; TODO
;
; XREFS:
;
Music_SetupWave
;============================================================================
;
; Shift 2 of the timer bits out of the value.
;
; NOTE: This leaves 1 timer bit. Is this right? This does not
; seem right.
;
[83bd]4aLSR A; Shift right twice, keeping 1 bit of timer and 5 of length.
[83be]4aLSR A
[83bf]8d 78 01STA a:Music_SQEffect_Delta; Store as the delta for the effect.
[83c2]ad 6c 01LDA a:Music_TempValue; Load the original value passed in.
[83c5]38SEC
[83c6]ed 78 01SBC a:Music_SQEffect_Delta; Subtract the delta.
[83c9]8d 7e 01STA a:Music_Triangle_Remaining; Store as the ticks remaining for the channel.
[83cc]60RTS
;============================================================================
; Set the note value to play.
;
; Note values are relative semitone indices, not absolute
; pitches. They are are converted into a playable frequency
; through several transformations.
;
; The final pitch depends on:
;
; 1. The channel base offset (
MUSIC_CHANNEL_NOTE_OFFSETS)
; 2. The channel transposition (
Music_Channel_Transpose)
; 3. The global transposition (
Music_Global_Transpose)
; 4. An octave normalization loop (12 semitones per octave)
;
; A value of 0x00 represents a rest. Any other value is
; processed through the above steps.
;
; As a result, the same byte value in different MScripts
; (or on different channels) does not necessarily produce
; the same audible pitch.
;
; XREFS:
;
Music_SetupWave
;============================================================================
;
; Loop, subtracting 12 (number of notes in our lookup
; table) each iteration, until < 0.
;
; The number of loop iterations will be used later to
; normalize the resulting note for the right octave.
;
[83e2]a0 01LDY #$01
[83e4]38SEC
[83e5]@_loop1:
[83e5]e9 0cSBC #$0c
[83e7]c8INY
[83e8]b0 fbBCS @_loop1
;
; TODO: Out of the loop.
;
[83ea]88DEY
[83eb]69 0dADC #$0d
[83ed]0aASL A
[83ee]aaTAX
[83ef]bd 52 85LDA a:AUDIO_NOTES,X
[83f2]8d 6d 01STA a:Music_Note_Period_Low
[83f5]bd 53 85LDA a:AUDIO_NOTES+1,X
[83f8]8d 6e 01STA a:Music_Note_Period_High
;
; Convert to the note in the right octave based on
; the starting value.
;
[83fb]@_octaveLoop:
[83fb]88DEY
[83fc]f0 09BEQ @_return
[83fe]4e 6e 01LSR a:Music_Note_Period_High
[8401]6e 6d 01ROR a:Music_Note_Period_Low
[8404]4c fb 83JMP @_octaveLoop
[8407]@_return:
[8407]60RTS
;============================================================================
; MScript Op 0xFF: End the channel's script.
;
; XREFS:
;
MSCRIPT_OP_HANDLERS [$PRG5::826a]
;============================================================================
;
; Repeat this every time it's called.
;
; This ensures that this channel stays on this
; instruction until every channel has completed.
;
[840b]a9 01LDA #$01
[840d]9d 30 01STA a:Music_ChannelTicksRemaining,X; Set this to repeat 1 more time (infinitely).
[8410]8aTXA; A = MScript channel.
[8411]0aASL A; Convert to a word boundary for an address index.
[8412]aaTAX; X = result.
;
; Decrement the offset into the script to keep it on this
; 0xFF operation until all channels complete.
;
[8413]b5 f2LDA Music_CurrentScriptAddrs,X; Load the current script address for this channel.
[8415]d0 02BNE @_setAddr; If lower byte is not 0, jump.
;
; Lower byte of the address is 0. We'll need to decrement
; the upper byte.
;
[8417]d6 f3DEC Music_CurrentScriptAddrs+1,X; Decrement the upper byte of the address.
[8419]@_setAddr:
[8419]d6 f2DEC Music_CurrentScriptAddrs,X; Decrement the lower byte of the address.
;
; Mark this channel as completed.
;
[841b]ee 6b 01INC a:Music_NumChannelsCompleted; Mark the channel as complete.
[841e]60RTS
;============================================================================
; MScript Op $FD: Begin Loop.
;
; Marks the start of a loop. This address will be used
; when looping.
;
; The loop will end when after it completes the specified
; number of loops, or when another operation breaks out
; of the loop.
;
; The initial loop counter is set to 1 internally.
;
; Loops cannot be nested.
;
; ARGS:
; 1. Number of iterations (1 byte)
;============================================================================
[841f]MScript_Op_BeginLoop:
;
; Read the number of iterations to loop from the script.
;
[841f]20 44 85JSR MScripts_GetNextValue; Load the next value from the script.
[8422]ae 6a 01LDX a:MScript_CurrentChannel; Load the current MScript channel.
[8425]9d 48 01STA a:MScript_LoopLength,X; Store the length of this loop to the next value.
;
; Set the starting value for the loop counter (1).
;
[8428]a9 01LDA #$01
[842a]9d 4c 01STA a:MScript_LoopCounter,X; Set the starting loop counter to 1.
;
; Store the start address of the loop.
;
[842d]8aTXA; A = Loop length.
[842e]0aASL A; Convert to a word boundary for an index.
[842f]aaTAX; X = resulting index.
[8430]b5 f2LDA Music_CurrentScriptAddrs,X; Load the lower byte of the current script address for the channel.
[8432]9d 38 01STA a:MScript_LoopStartAddrs,X; Store as the lower byte of the starting address for the loop.
[8435]b5 f3LDA Music_CurrentScriptAddrs+1,X; Load the upper byte.
[8437]9d 39 01STA a:MScript_LoopStartAddrs+1,X; Store that.
;
; We're done. Invoke the next op in the script.
;
[843a]4c 3a 82JMP MScripts_InvokeNext; Invoke the next operation.
;============================================================================
; MSCript Op $FE: Restart Loop If >= N Iterations
;
; If >= N iterations have been completed, restart the
; loop, advancing the loop iteration count.
;
; If < N iterations have been completed, proceed with
; the next operation in the script.
;
; ARGS:
; 1. Number of iterations to check (1 byte)
;============================================================================
[843d]MScript_Op_NextLoopIfNCompleted:
[843d]20 44 85JSR MScripts_GetNextValue; Load the current MScript channel.
[8440]ae 6a 01LDX a:MScript_CurrentChannel; Load the current MScript channel.
[8443]dd 4c 01CMP a:MScript_LoopCounter,X; Has the specified number of loops been completed?
[8446]b0 0dBCS @_invokeNext; If so, invoke the next operation within this loop.
;
; The specified number of loops have not been completed.
; Restart the loop.
;
[8448]8aTXA; A = Current channel.
[8449]0aASL A; Convert to a word boundary for lookup tables.
[844a]aaTAX; X = result.
[844b]bd 40 01LDA a:MScript_LoopEndAddrs,X; Load the lower byte of the loop end address.
[844e]95 f2STA Music_CurrentScriptAddrs,X; Set as the lower byte of the next address.
[8450]bd 41 01LDA a:MScript_LoopEndAddrs+1,X; Load the upper byte of the loop end address.
[8453]95 f3STA Music_CurrentScriptAddrs+1,X; Set as the upper byte of the next address.
[8455]@_invokeNext:
[8455]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; MScript Op $FC: End Loop.
;
; Marks the end of the loop.
;
; If the loop counter has hit the loop length (and
; remember, the loop counter is 1-based), the loop will
; end.
;
; If it's under the loop length, the loop will restart.
;============================================================================
[8458]MScript_Op_EndLoop:
[8458]ae 6a 01LDX a:MScript_CurrentChannel; Load the current MScript channel.
[845b]bd 4c 01LDA a:MScript_LoopCounter,X; Load the current loop counter.
[845e]dd 48 01CMP a:MScript_LoopLength,X; Is it >= the loop length?
[8461]b0 1aBCS @_invokeNext; If so, invoke the next operation after the loop.
;
; The script can continue to loop.
;
[8463]fe 4c 01INC a:MScript_LoopCounter,X; Increment the loop counter.
[8466]8aTXA; A = MScript channel.
[8467]0aASL A; Convert to a word boundary for lookup tables.
[8468]aaTAX; X = resulting index.
;
; Set the current script address as the end of the loop.
;
[8469]b5 f2LDA Music_CurrentScriptAddrs,X; Load the lower byte of the current script address.
[846b]9d 40 01STA a:MScript_LoopEndAddrs,X; Set as the lower byte of the end of the loop.
[846e]b5 f3LDA Music_CurrentScriptAddrs+1,X; Load the upper byte of the current script address.
[8470]9d 41 01STA a:MScript_LoopEndAddrs+1,X; Set as the upper byte of the end of the loop.
;
; Set the start of the loop as the current script address.
;
[8473]bd 38 01LDA a:MScript_LoopStartAddrs,X; Load the lower byte of the address of the start of the loop.
[8476]95 f2STA Music_CurrentScriptAddrs,X; Set as the lower byte of the current script address.
[8478]bd 39 01LDA a:MScript_LoopStartAddrs+1,X; Load the upper byte of the address of the start of the loop.
[847b]95 f3STA Music_CurrentScriptAddrs+1,X; Set as the upper byte of the current script address.
;
; We're done. Proceed with the script, either looping or
; moving on from the loop.
;
[847d]@_invokeNext:
[847d]4c 3a 82JMP MScripts_InvokeNext; Invoke the next operation in the script.
;============================================================================
; MScript Op $FA: No-Op
;
; Does nothing. Simply acts as padding to help keep
; scripts across channels in sync.
;============================================================================
[8480]MScript_Op_NoOp:
[8480]4c 3a 82JMP MScripts_InvokeNext; Invoke the next operation in the script.
;============================================================================
; TODO: Document MScript_Op_SetControlBits
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8483]MScript_Op_SetControlBits:
[8483]20 44 85JSR MScripts_GetNextValue
[8486]ae 6a 01LDX a:MScript_CurrentChannel
[8489]9d 72 01STA a:Music_SQ_ControlBits,X
[848c]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; TODO: Document MScript_Op_SaveAddr
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[848f]MScript_Op_SaveAddr:
[848f]20 95 84JSR MScript_Op_SaveAddr_Store
[8492]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; TODO: Document MScript_Op_SaveAddr_Store
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
MScript_Op_SaveAddr
;============================================================================
;============================================================================
; TODO: Document MScript_Op_RestoreAddr
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[84a5]MScript_Op_RestoreAddr:
[84a5]ad 6a 01LDA a:MScript_CurrentChannel
[84a8]0aASL A
[84a9]aaTAX
[84aa]bd 50 01LDA a:MScript_SavedAddr,X
[84ad]95 f2STA Music_CurrentScriptAddrs,X
[84af]bd 51 01LDA a:MScript_SavedAddr+1,X
[84b2]95 f3STA Music_CurrentScriptAddrs+1,X
[84b4]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; TODO: Document MScript_Op_RestartChannel
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[84b7]MScript_Op_RestartChannel:
[84b7]a5 faLDA Music_Current
[84b9]0aASL A
[84ba]0aASL A
[84bb]38SEC
[84bc]e9 04SBC #$04
[84be]0aASL A
[84bf]a8TAY
[84c0]a2 00LDX #$00
[84c2]@_loop:
[84c2]b9 fb 8eLDA a:MSCRIPTS_TITLESCREEN,Y
[84c5]95 f2STA Music_CurrentScriptAddrs,X
[84c7]c8INY
[84c8]e8INX
[84c9]e0 08CPX #$08
[84cb]d0 f5BNE @_loop
[84cd]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; TODO: Document MScript_Op_JumpSubroutine
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[84d0]MScript_Op_JumpSubroutine:
[84d0]20 44 85JSR MScripts_GetNextValue
[84d3]48PHA
[84d4]20 44 85JSR MScripts_GetNextValue
[84d7]48PHA
[84d8]ad 6a 01LDA a:MScript_CurrentChannel
[84db]0aASL A
[84dc]aaTAX
[84dd]b5 f2LDA Music_CurrentScriptAddrs,X
[84df]9d 58 01STA a:MScript_PushedAddrs,X
[84e2]b5 f3LDA Music_CurrentScriptAddrs+1,X
[84e4]9d 59 01STA a:MScript_PushedAddrs+1,X
[84e7]68PLA
[84e8]95 f3STA Music_CurrentScriptAddrs+1,X
[84ea]68PLA
[84eb]95 f2STA Music_CurrentScriptAddrs,X
[84ed]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; TODO: Document MScript_Op_Return
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[84f0]MScript_Op_Return:
[84f0]ad 6a 01LDA a:MScript_CurrentChannel; Load the current channel.
[84f3]0aASL A; Shift to a word boundary.
[84f4]aaTAX; X = Result.
[84f5]bd 58 01LDA a:MScript_PushedAddrs,X; Load the lower byte of the pushed address.
[84f8]95 f2STA Music_CurrentScriptAddrs,X; Set for the script address.
[84fa]bd 59 01LDA a:MScript_PushedAddrs+1,X; Load the upper byte.
[84fd]95 f3STA Music_CurrentScriptAddrs+1,X; And set that.
[84ff]4c 3a 82JMP MScripts_InvokeNext; Invoke the script there.
;============================================================================
; TODO: Document MScript_Op_SetChannelTranspose
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8502]MScript_Op_SetChannelTranspose:
[8502]20 44 85JSR MScripts_GetNextValue
[8505]ae 6a 01LDX a:MScript_CurrentChannel
[8508]9d 61 01STA a:Music_Channel_Transpose,X
[850b]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; TODO: Document MScript_Op_SetGlobalTranspose
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[850e]MScript_Op_SetGlobalTranspose:
[850e]20 44 85JSR MScripts_GetNextValue
[8511]8d 60 01STA a:Music_Global_Transpose
[8514]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; TODO: Document MScript_Op_SetSQVol
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8517]MScript_Op_SetSQVol:
[8517]20 44 85JSR MScripts_GetNextValue
[851a]ae 6a 01LDX a:MScript_CurrentChannel
[851d]9d 74 01STA a:Music_SQ_Fades,X
[8520]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; MScript Op $F0: Set the envelope mode for the Square Wave.
;
; This supports the following values:
;
; 0: Volume decay
;
; Ramps down the volume smoothly.
;
; 1: Curve but held
;
; Clamps the envelope into a range 0..15 and then slows
; the decay.
;
; 2: Pre-built attack/decay curve
;
; Pitches up and then down in a set pattern.
;============================================================================
[8523]MScript_Op_SetSQEnvelopeMode:
[8523]20 44 85JSR MScripts_GetNextValue
[8526]ae 6a 01LDX a:MScript_CurrentChannel
[8529]9d 76 01STA a:Music_SQEnvelope_Mode,X
[852c]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; TODO: Document MScript_Op_SetSQPitchEffectDepth
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[852f]MScript_Op_SetSQPitchEffectDepth:
[852f]20 44 85JSR MScripts_GetNextValue
[8532]ae 6a 01LDX a:MScript_CurrentChannel
[8535]9d 7f 01STA a:Music_SQPitchDelta_Mask,X
[8538]4c 3a 82JMP MScripts_InvokeNext
;============================================================================
; MScript Op $EE: Set the SQ2 pitch bias (detune).
;
; This operation applies a SQ2-only pitch adjustment by
; subtracting a small value from the low byte of the
; square wave timer period before writing to
SQ2_LO.
;
; The value is compared against the computed timer low
; byte and clamped to avoid underflow. This produces a
; subtle upward pitch shift when non-zero.
;
; This is not related to note length or envelope timing.
; It is a pitch modification applied after note
; calculation, before writing to the APU.
;
; This may be used to provide a simple chorus/harmony
; effect.
;
; A value of 0 disables this effect.
;============================================================================
[8544]MScripts_GetNextValue:
[8544]ad 6a 01LDA a:MScript_CurrentChannel
[8547]0aASL A
[8548]aaTAX
[8549]a1 f2LDA (Music_CurrentScriptAddrs,X)
[854b]f6 f2INC Music_CurrentScriptAddrs,X
[854d]d0 02BNE @_return
[854f]f6 f3INC Music_CurrentScriptAddrs+1,X
[8551]@_return:
[8551]60RTS
;============================================================================
; Base note lookup table for 12 semitones (C..B), used
; with octave normalization.
;
; XREFS:
;
Music_SetNote
;
SoundEffect_SetNote
;============================================================================
;============================================================================
; Signed semitone offsets for pitched channels.
;
; Noise appears to be a sentinel.
;
; XREFS:
;
Music_SetNote
;============================================================================
;============================================================================
; Pairs of a lower bound (for note length matching) and a resulting length.
;
; XREFS:
;
MScripts_SetNoteLengthFromValue
;============================================================================
;============================================================================
; Lookup table of noise indexes to register state.
;
; NOTE: The data actually starts 4 bytes lower (at {@address 8583}).
; This label is actually placed within
;
MUSIC_CHANNEL_NOTE_OFFSETS. The reason they're
; doing this is to save an operation. An index into
; this table will always start at 1 (an index of 0
; has a special meaning), and they don't want to have
; to normalize the value before lookup. Hence starting
; it 4 bytes early.
;
; XREFS:
;
Music_PlayNoise
;============================================================================
;============================================================================
; This is the *actual* start of the noise register values.
;============================================================================
[8583]REAL_MUSIC_NOISE_REGISTER_VALUES:
[8583]00.byte $00; [0]: Volume of 0.
[8584]00.byte $00; [1]: Unused.
[8585]0f.byte $0f; [2]: Noise mode 0, period 15.
[8586]20.byte $20; [3]: Length 4.
[8587]00.byte $00; [0]: Volume of 0.
[8588]00.byte $00; [1]: Unused.
[8589]0a.byte $0a; [2]: Noise mode 0, period 10.
[858a]10.byte $10; [3]: Length 2.
[858b]00.byte $00; [0]: Volume of 0.
[858c]00.byte $00; [1]: Unused.
[858d]05.byte $05; [2]: Noise mode 0, period 5.
[858e]00.byte $00; [3]: Length 0.
[858f]ff.byte $ff; byte
;============================================================================
; Table of sound effects to handler table indexes.
;
; XREFS:
;
SoundEffects_HandleOnInterrupt
;============================================================================
;============================================================================
; A jump table of sound effect handler functions.
;
; This table is in pairs of sound effect setup and on-tick
; handlers. The setup handler runs when loading a new sound
; effect, and the on-tick handler runs for any existing
; loaded sound effect.
;
; These may be separate functions, or two parts of
; essentially the same function.
;
; XREFS:
;
SoundEffects_HandleOnInterrupt
;============================================================================
;============================================================================
; TODO: Document SoundEffects_DecrementCounter
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8621]SoundEffects_DecrementCounter:
[8621]ce 27 01DEC a:SoundEffect_State_Counter
[8624]d0 08BNE Sound_ResetCurrentSound_Return
[8626]Sound_ResetCurrentSound:
[8626]a9 00LDA #$00
[8628]8d 22 01STA a:SoundEffect_HandlerIndex
[862b]8d 21 01STA a:SoundEffect_Unused_PriorityID
[862e]Sound_ResetCurrentSound_Return:
[862e]60RTS
;============================================================================
; TODO: Document SoundEffects_HandleOnInterrupt
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
thunk_SoundEffects_HandleOnInterrupt
;============================================================================
;
; Loop through all channels, decrementing the sound effect
; tick count for each.
;
[862f]a2 03LDX #$03; X = 3 (channel loop counter).
[8631]@_checkActiveEffectsLoop:
[8631]bd 23 01LDA a:SoundEffect_TicksRemaining,X; Load the sound effect ticks remaining for this channel.
[8634]f0 03BEQ @_prepareNextActiveEffectsLoopIter; If this channel is done, prepare for the next iteration.
[8636]de 23 01DEC a:SoundEffect_TicksRemaining,X; Reduce the ticks remaining by 1.
[8639]@_prepareNextActiveEffectsLoopIter:
[8639]caDEX; X-- (loop counter).
[863a]10 f5BPL @_checkActiveEffectsLoop; If >= 0, loop.
;
; Check if the current sound effect is playing or just set.
;
; Playing is indicated by bit 7 == 1.
;
[863c]a5 fbLDA SoundEffect_Current; Load the ID of the sound effect that's set.
[863e]30 2fBMI @_runOnTickHandler; If the sound effect is playing (bit 7 is set), jump to load the current handler.
;
; The sound effect is set but not currently playing.
; Mark it as playing.
;
[8640]aaTAX; X = A (sound effect ID).
[8641]09 80ORA #$80; Set the Playing state (bit 7).
[8643]85 fbSTA SoundEffect_Current; Update the sound effect.
[8645]e0 1dCPX #$1d; Is this sound ID in range?
[8647]b0 26BCS @_runOnTickHandler; If so, load and run the on-tick handler.
;
; The sound effect ID is in range. Check if we have a
; computed sound effect handler for it.
;
[8649]ad 22 01LDA a:SoundEffect_HandlerIndex; Load the current sound effect handler index.
[864c]f0 0aBEQ @_newHandler; If 0 (init sound), we're ready to jump to load a new handler.
;
; There's an existing sound effect handler being used.
; Check if it matches the sound effect to play, and then
; either use it or load a new handler.
;
[864e]bd 90 85LDA a:SOUND_EFFECT_HANDLER_INDEXES,X; Load the sound effect handler index for this sound effect.
[8651]cd 22 01CMP a:SoundEffect_HandlerIndex; Does it match the existing handler?
[8654]90 02BCC @_newHandler; If not, look for a new handler and reset for the sound.
[8656]d0 17BNE @_runOnTickHandler; Else, it's a match, so just load the handler to run it.
;
; Reset the sound effect handler and state for a new sound
; effect.
;
[8658]@_newHandler:
[8658]bd 90 85LDA a:SOUND_EFFECT_HANDLER_INDEXES,X; Load the sound effect handler index for this ID.
[865b]8d 22 01STA a:SoundEffect_HandlerIndex; Store as the new index.
[865e]aaTAX; X = A (index).
;
; Clear out the number of ticks remaining for the old sound
; effect.
;
[865f]a9 00LDA #$00
[8661]8d 23 01STA a:SoundEffect_TicksRemaining; SQ1 ticks remaining = 0
[8664]8d 24 01STA a:SoundEffect_TicksRemaining_1_; SQ2 ticks remaining = 0
[8667]8d 25 01STA a:SoundEffect_TicksRemaining_2_; TRI ticks remaining = 0
[866a]8d 26 01STA a:SoundEffect_TicksRemaining_3_; Noise ticks remaining = 0
[866d]f0 05BEQ @_checkAndRunHandler; Immediately jump to check and run the setup handler for the sound effect.
;
; Load the secondary, on-tick stage for the sound effect
; handler.
;
; Every sound effect handler has a setup stage and an
; on-tick stage. Pairs of each are in the sound effect
; handlers table.
;
[866f]@_runOnTickHandler:
[866f]ae 22 01LDX a:SoundEffect_HandlerIndex; Load the index of the sound effect handler.
[8672]e8INX; Advance to the next address for the on-tick handler.
[8673]e8INX
;
; Check if the sound effect index is within bounds of the
; handlers table.
;
; Note that the last sound effect handler index is 0x70, but
; 0x72 would be the last on-tick handler. This is checking
; that this is < 0x74, with the idea being that 0x73 would
; never be set (unless there was a major programming flaw).
;
[8674]@_checkAndRunHandler:
[8674]e0 74CPX #$74; Is this a valid sound effect within the handlers lookup table?
[8676]b0 aeBCS Sound_ResetCurrentSound; If not, reset the current sound effect.
[8678]bd ae 85LDA a:SOUND_EFFECT_HANDLERS+1,X; Load the upper byte of the handler address.
[867b]48PHA; Push it to the stack.
[867c]bd ad 85LDA a:SOUND_EFFECT_HANDLERS,X; Load the lower byte.
[867f]48PHA; Push it to the stack.
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_NoOp
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8680]SoundEffect_NoOp:
[8680]60RTS
[8681]SoundEffects_Init:
[8681]a9 00LDA #$00
[8683]8d 11 40STA a:DMC_RAW; Disable raw DMC.
;
; Clear the ticks remaining for all sound effect channels.
;
[8686]8d 23 01STA a:SoundEffect_TicksRemaining; Set SQ1 ticks remaining = 0.
[8689]8d 24 01STA a:SoundEffect_TicksRemaining_1_; Set SQ2 ticks remaining = 0.
[868c]8d 25 01STA a:SoundEffect_TicksRemaining_2_; Set TRI ticks remaining = 0.
[868f]8d 26 01STA a:SoundEffect_TicksRemaining_3_; Set Noise ticks remaining = 0.
[8692]8d 21 01STA a:SoundEffect_Unused_PriorityID; Set priority ID (unused) to 0.
;
; Perform an audio reset and then enable the SQ1/SQ2/TRI/Noise
; channels.
;
[8695]20 4a 80JSR Audio_Reset; Reset the audio.
[8698]a9 0fLDA #$0f
[869a]8d 15 40STA a:SND_CHN; Enable channels.
[869d]60RTS
;============================================================================
; TODO: Document SoundEffect_Message_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[869e]SoundEffect_Message_Setup:
[869e]a9 06LDA #$06
[86a0]8d 26 01STA a:SoundEffect_TicksRemaining_3_; Set TRI ticks remaining to 6.
[86a3]a9 00LDA #$00
[86a5]8d 27 01STA a:SoundEffect_State_Counter; Set state counter to 0.
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_Message_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[86a8]SoundEffect_Message_OnTick:
[86a8]a9 1fLDA #$1f
[86aa]8d 0c 40STA a:NOISE_VOL; Set Noise volume to 31.
;
; Load a value from the lookup table for NOISE_LO.
;
; This switches sounds every 2 ticks, producing a typing
; sound.
;
; BUG:
; And this is fascinating. The loud clack-clack typing
; sound, reminiscent of an old typewriter, appears to
; be a bug.
;
;
SOUNDEFFECT_MESSAGE_NOISE_LO defines the
; typing sounds, and produces a much softer sound, one
; that feels more appropriate considering other NES
; games.
;
; That's not what's used, though. The AND #$02 instruction
; produces an offset of 0 or 2, with 2 causing an
; out-of-bounds read, pulling #$A9 out of the following
; function (an LDA instruction). This is much sharper than
; #$01, producing that sound.
;
; My guess is they originally had an AND #$01, and wanted
; to reduce the sound change from every tick to every
; other tick, but didn't update the table with a padding
; byte, so it overflowed.
;
; Maybe they were aiming for this as a hack at this
; point, or maybe they messed up but nobody really noticed
; because the sound ended up sounding so good and thus
; passed QA. In any case, the shipped behavior does not
; match the original intent of this code.
;
;============================================================================
; TODO: Document SoundEffect_HitEnemy_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[86d3]SoundEffect_HitEnemy_Setup:
[86d3]a9 14LDA #$14
[86d5]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[86d8]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[86db]a9 00LDA #$00
[86dd]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_HitEnemy_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[86e0]SoundEffect_HitEnemy_OnTick:
[86e0]ae 27 01LDX a:SoundEffect_State_Counter
[86e3]bd 24 87LDA a:SOUNDEFFECT_HIT_ENEMY_NOTES,X
[86e6]c9 ffCMP #$ff
[86e8]d0 0bBNE @_play
[86ea]a9 10LDA #$10
[86ec]8d 04 40STA a:SQ2_VOL
[86ef]8d 0c 40STA a:NOISE_VOL
[86f2]4c 26 86JMP Sound_ResetCurrentSound
[86f5]@_play:
[86f5]20 d1 8eJSR SoundEffect_SetNote
[86f8]a9 5fLDA #$5f
[86fa]8d 04 40STA a:SQ2_VOL
[86fd]8d 0c 40STA a:NOISE_VOL
[8700]ad 27 01LDA a:SoundEffect_State_Counter
[8703]49 0fEOR #$0f
[8705]09 98ORA #$98
[8707]8d 05 40STA a:SQ2_SWEEP
[870a]ad 2a 01LDA a:SoundEffect_Note_Low
[870d]8d 06 40STA a:SQ2_LO
[8710]29 07AND #$07
[8712]8d 0e 40STA a:NOISE_LO
[8715]a9 00LDA #$00
[8717]8d 0f 40STA a:NOISE_HI
[871a]ad 2b 01LDA a:SoundEffect_Note_High
[871d]8d 07 40STA a:SQ2_HI
[8720]ee 27 01INC a:SoundEffect_State_Counter
[8723]60RTS
[8724]SOUNDEFFECT_HIT_ENEMY_NOTES:
[8724]62.byte $62; [0]:
[8725]4e.byte $4e; [1]:
[8726]3c.byte $3c; [2]:
[8727]50.byte $50; [3]:
[8728]48.byte $48; [4]:
[8729]65.byte $65; [5]:
[872a]51.byte $51; [6]:
[872b]48.byte $48; [7]:
[872c]56.byte $56; [8]:
[872d]52.byte $52; [9]:
[872e]5f.byte $5f; [10]:
[872f]58.byte $58; [11]:
[8730]65.byte $65; [12]:
[8731]4d.byte $4d; [13]:
[8732]55.byte $55; [14]:
[8733]ff.byte $ff; [15]:
;============================================================================
; TODO: Document SoundEffect_EnemyDied_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8734]SoundEffect_EnemyDied_Setup:
[8734]a9 16LDA #$16
[8736]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[8739]a9 14LDA #$14
[873b]8d 27 01STA a:SoundEffect_State_Counter
[873e]a9 00LDA #$00
[8740]8d 28 01STA a:SoundEffect_State_0128
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_EnemyDied_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8743]SoundEffect_EnemyDied_OnTick:
[8743]ce 27 01DEC a:SoundEffect_State_Counter
[8746]d0 08BNE @_play
[8748]a9 10LDA #$10
[874a]8d 0c 40STA a:NOISE_VOL
[874d]4c 26 86JMP Sound_ResetCurrentSound
[8750]@_play:
[8750]ae 28 01LDX a:SoundEffect_State_0128
[8753]a9 1fLDA #$1f
[8755]8d 0c 40STA a:NOISE_VOL
[8758]bd 67 87LDA a:SOUNDEFFECT_ENEMY_DIED_NOISE_LO,X
[875b]8d 0e 40STA a:NOISE_LO
[875e]a9 00LDA #$00
[8760]8d 0f 40STA a:NOISE_HI
[8763]ee 28 01INC a:SoundEffect_State_0128
[8766]60RTS
[8767]SOUNDEFFECT_ENEMY_DIED_NOISE_LO:
[8767]0f.byte $0f; [0]:
[8768]0c.byte $0c; [1]:
[8769]0e.byte $0e; [2]:
[876a]0b.byte $0b; [3]:
[876b]0d.byte $0d; [4]:
[876c]09.byte $09; [5]:
[876d]03.byte $03; [6]:
[876e]02.byte $02; [7]:
[876f]01.byte $01; [8]:
[8770]00.byte $00; [9]:
;============================================================================
; TODO: Document SoundEffect_HitPlayer_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8771]SoundEffect_HitPlayer_Setup:
[8771]a9 0fLDA #$0f
[8773]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8776]a9 00LDA #$00
[8778]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_HitPlayer_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[877b]SoundEffect_HitPlayer_OnTick:
[877b]ae 27 01LDX a:SoundEffect_State_Counter
[877e]bd aa 87LDA a:SOUNDEFFECT_HITPLAYER_NOTES,X
[8781]c9 ffCMP #$ff
[8783]d0 08BNE @_play
[8785]a9 10LDA #$10
[8787]8d 04 40STA a:SQ2_VOL
[878a]4c 26 86JMP Sound_ResetCurrentSound
[878d]@_play:
[878d]20 d1 8eJSR SoundEffect_SetNote
[8790]a9 dfLDA #$df
[8792]8d 04 40STA a:SQ2_VOL
[8795]a9 00LDA #$00
[8797]8d 05 40STA a:SQ2_SWEEP
[879a]ad 2a 01LDA a:SoundEffect_Note_Low
[879d]8d 06 40STA a:SQ2_LO
[87a0]ad 2b 01LDA a:SoundEffect_Note_High
[87a3]8d 07 40STA a:SQ2_HI
[87a6]ee 27 01INC a:SoundEffect_State_Counter
[87a9]60RTS
[87aa]SOUNDEFFECT_HITPLAYER_NOTES:
[87aa]29.byte $29; [0]:
[87ab]24.byte $24; [1]:
[87ac]28.byte $28; [2]:
[87ad]22.byte $22; [3]:
[87ae]1f.byte $1f; [4]:
[87af]29.byte $29; [5]:
[87b0]2b.byte $2b; [6]:
[87b1]2c.byte $2c; [7]:
[87b2]2d.byte $2d; [8]:
[87b3]2a.byte $2a; [9]:
[87b4]ff.byte $ff; [10]:
;============================================================================
; TODO: Document SoundEffect_Magic_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[87b5]SoundEffect_Magic_Setup:
[87b5]a9 32LDA #$32
[87b7]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[87ba]a9 00LDA #$00
[87bc]8d 27 01STA a:SoundEffect_State_Counter
[87bf]8d 28 01STA a:SoundEffect_State_0128
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_Magic_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[87c2]SoundEffect_Magic_OnTick:
[87c2]ae 28 01LDX a:SoundEffect_State_0128
[87c5]bd 00 88LDA a:SOUNDEFFECT_MAGIC_SQ2_VOL,X
[87c8]d0 08BNE @_play
[87ca]a9 10LDA #$10
[87cc]8d 04 40STA a:SQ2_VOL
[87cf]4c 26 86JMP Sound_ResetCurrentSound
[87d2]@_play:
[87d2]09 50ORA #$50
[87d4]8d 04 40STA a:SQ2_VOL
[87d7]a9 00LDA #$00
[87d9]8d 05 40STA a:SQ2_SWEEP
[87dc]ad 27 01LDA a:SoundEffect_State_Counter
[87df]29 03AND #$03
[87e1]aaTAX
[87e2]bd 06 88LDA a:SOUNDEFFECT_MAGIC_SQ2_LO,X
[87e5]8d 06 40STA a:SQ2_LO
[87e8]a9 00LDA #$00
[87ea]8d 07 40STA a:SQ2_HI
[87ed]ee 27 01INC a:SoundEffect_State_Counter
[87f0]ad 27 01LDA a:SoundEffect_State_Counter
[87f3]c9 08CMP #$08
[87f5]d0 08BNE @_return
[87f7]a9 00LDA #$00
[87f9]8d 27 01STA a:SoundEffect_State_Counter
[87fc]ee 28 01INC a:SoundEffect_State_0128
[87ff]@_return:
[87ff]60RTS
[8800]SOUNDEFFECT_MAGIC_SQ2_VOL:
[8800]0f 0b 07 04 01 00.byte $0f,$0b,$07,$04,$01,$00; byte
[8806]SOUNDEFFECT_MAGIC_SQ2_LO:
[8806]b0 a0 a8 98.byte $b0,$a0,$a8,$98; byte
;============================================================================
; TODO: Document SoundEffect_OpenDoor_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[880a]SoundEffect_OpenDoor_Setup:
[880a]a9 3cLDA #$3c
[880c]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[880f]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[8812]a9 37LDA #$37
[8814]8d 29 01STA a:SoundEffect_State_0129
[8817]a9 00LDA #$00
[8819]8d 27 01STA a:SoundEffect_State_Counter
[881c]8d 28 01STA a:SoundEffect_State_0128
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_OpenDoor_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[881f]SoundEffect_OpenDoor_OnTick:
[881f]ce 29 01DEC a:SoundEffect_State_0129
[8822]d0 0bBNE @_play
[8824]a9 10LDA #$10
[8826]8d 04 40STA a:SQ2_VOL
[8829]8d 0c 40STA a:NOISE_VOL
[882c]4c 26 86JMP Sound_ResetCurrentSound
[882f]@_play:
[882f]ad 27 01LDA a:SoundEffect_State_Counter
[8832]4aLSR A
[8833]4aLSR A
[8834]49 ffEOR #$ff
[8836]29 0fAND #$0f
[8838]09 50ORA #$50
[883a]8d 0c 40STA a:NOISE_VOL
[883d]8d 04 40STA a:SQ2_VOL
[8840]a9 00LDA #$00
[8842]8d 05 40STA a:SQ2_SWEEP
[8845]ad 27 01LDA a:SoundEffect_State_Counter
[8848]29 07AND #$07
[884a]a8TAY
[884b]a9 60LDA #$60
[884d]38SEC
[884e]f9 65 88SBC a:SOUNDEFFECT_OPEN_DOOR_SQ2_NOISE_LO,Y
[8851]8d 06 40STA a:SQ2_LO
[8854]29 0fAND #$0f
[8856]8d 0e 40STA a:NOISE_LO
[8859]a9 00LDA #$00
[885b]8d 07 40STA a:SQ2_HI
[885e]8d 0f 40STA a:NOISE_HI
[8861]ee 27 01INC a:SoundEffect_State_Counter
[8864]60RTS
[8865]SOUNDEFFECT_OPEN_DOOR_SQ2_NOISE_LO:
[8865]00 03 0a 15 25 15 0a 03.byte $00,$03,$0a,$15,$25,$15,$0a,$03; byte
;============================================================================
; TODO: Document SoundEffect_Maybe_Typing_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[886d]SoundEffect_Maybe_Typing_Setup:
[886d]a9 28LDA #$28
[886f]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8872]a9 00LDA #$00
[8874]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_Maybe_Typing_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8877]SoundEffect_Maybe_Typing_OnTick:
[8877]ad 24 01LDA a:SoundEffect_TicksRemaining_1_
[887a]29 01AND #$01
[887c]d0 35BNE @_return
[887e]ae 27 01LDX a:SoundEffect_State_Counter
[8881]bd b4 88LDA a:SOUNDEFFECT_MAYBE_TYPING_NOTES,X
[8884]c9 ffCMP #$ff
[8886]d0 08BNE @_play
[8888]a9 10LDA #$10
[888a]8d 04 40STA a:SQ2_VOL
[888d]4c 26 86JMP Sound_ResetCurrentSound
[8890]@_play:
[8890]20 d1 8eJSR SoundEffect_SetNote
[8893]ee 27 01INC a:SoundEffect_State_Counter
[8896]ad 27 01LDA a:SoundEffect_State_Counter
[8899]49 ffEOR #$ff
[889b]29 0fAND #$0f
[889d]09 d4ORA #$d4
[889f]8d 04 40STA a:SQ2_VOL
[88a2]a9 91LDA #$91
[88a4]8d 05 40STA a:SQ2_SWEEP
[88a7]ad 2a 01LDA a:SoundEffect_Note_Low
[88aa]8d 06 40STA a:SQ2_LO
[88ad]ad 2b 01LDA a:SoundEffect_Note_High
[88b0]8d 07 40STA a:SQ2_HI
[88b3]@_return:
[88b3]60RTS
[88b4]SOUNDEFFECT_MAYBE_TYPING_NOTES:
[88b4]2b 2d 2f 24 38 2a 37 39.byte $2b,$2d,$2f,$24,$38,$2a,$37,$39; byte
[88bc]3b 24 38 42 2b 2d 2f 18.byte $3b,$24,$38,$42,$2b,$2d,$2f,$18; byte
[88c4]ff.byte $ff; byte
;============================================================================
; TODO: Document SoundEffect_ItemPickedUp_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[88c5]SoundEffect_ItemPickedUp_Setup:
[88c5]a9 3cLDA #$3c
[88c7]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[88ca]a9 00LDA #$00
[88cc]8d 27 01STA a:SoundEffect_State_Counter
[88cf]8d 28 01STA a:SoundEffect_State_0128
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_ItemPickedUp_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[88d2]SoundEffect_ItemPickedUp_OnTick:
[88d2]ae 27 01LDX a:SoundEffect_State_Counter
[88d5]bd 18 89LDA a:SOUNDEFFECT_ITEM_PICKED_UP_NOTES,X
[88d8]c9 ffCMP #$ff
[88da]d0 09BNE @_playNote
[88dc]ee 28 01INC a:SoundEffect_State_0128
[88df]a9 00LDA #$00
[88e1]8d 27 01STA a:SoundEffect_State_Counter
[88e4]60RTS
[88e5]@_playNote:
[88e5]20 d1 8eJSR SoundEffect_SetNote
[88e8]ae 28 01LDX a:SoundEffect_State_0128
[88eb]bd 12 89LDA a:SOUNDEFFECT_ITEM_PICKED_UP_SQ2_VOLS,X
[88ee]d0 08BNE @_playSQ2
[88f0]a9 10LDA #$10
[88f2]8d 04 40STA a:SQ2_VOL
[88f5]4c 26 86JMP Sound_ResetCurrentSound
[88f8]@_playSQ2:
[88f8]09 90ORA #$90
[88fa]8d 04 40STA a:SQ2_VOL
[88fd]a9 00LDA #$00
[88ff]8d 05 40STA a:SQ2_SWEEP
[8902]ad 2a 01LDA a:SoundEffect_Note_Low
[8905]8d 06 40STA a:SQ2_LO
[8908]ad 2b 01LDA a:SoundEffect_Note_High
[890b]8d 07 40STA a:SQ2_HI
[890e]ee 27 01INC a:SoundEffect_State_Counter
[8911]60RTS
[8912]SOUNDEFFECT_ITEM_PICKED_UP_SQ2_VOLS:
[8912]0f 0c 09 05 02 00.byte $0f,$0c,$09,$05,$02,$00; byte
[8918]SOUNDEFFECT_ITEM_PICKED_UP_NOTES:
[8918]3f 43 4a 55 5b 60 ff.byte $3f,$43,$4a,$55,$5b,$60,$ff; byte
;============================================================================
; TODO: Document SoundEffect_CoinTouchedCommon_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;
; XREFS:
;
SoundEffect_CoinTouched_Setup
;============================================================================
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_CoinTouchedCommon_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;
; XREFS:
;
SoundEffect_CoinTouched_OnTick
;============================================================================
;============================================================================
; TODO: Document SoundEffect_MagicHitObstacle_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8973]SoundEffect_MagicHitObstacle_Setup:
[8973]a9 1eLDA #$1e
[8975]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[8978]a9 20LDA #$20
[897a]8d 27 01STA a:SoundEffect_State_Counter
[897d]a9 00LDA #$00
[897f]8d 28 01STA a:SoundEffect_State_0128
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_MagicHitObstacle_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8982]SoundEffect_MagicHitObstacle_OnTick:
[8982]ce 27 01DEC a:SoundEffect_State_Counter
[8985]d0 08BNE @_play
[8987]a9 10LDA #$10
[8989]8d 0c 40STA a:NOISE_VOL
[898c]4c 26 86JMP Sound_ResetCurrentSound
[898f]@_play:
[898f]ad 27 01LDA a:SoundEffect_State_Counter
[8992]4aLSR A
[8993]29 0fAND #$0f
[8995]09 10ORA #$10
[8997]8d 0c 40STA a:NOISE_VOL
[899a]ad 27 01LDA a:SoundEffect_State_Counter
[899d]29 0fAND #$0f
[899f]8d 0e 40STA a:NOISE_LO
[89a2]a9 00LDA #$00
[89a4]8d 0f 40STA a:NOISE_HI
[89a7]60RTS
;============================================================================
; TODO: Document SoundEffect_CursorMoved_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[89a8]SoundEffect_CursorMoved_Setup:
[89a8]a9 16LDA #$16
[89aa]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[89ad]a9 0fLDA #$0f
[89af]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_CursorMoved_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[89b2]SoundEffect_CursorMoved_OnTick:
[89b2]ad 27 01LDA a:SoundEffect_State_Counter
[89b5]d0 08BNE @_play
[89b7]a9 10LDA #$10
[89b9]8d 04 40STA a:SQ2_VOL
[89bc]4c 26 86JMP Sound_ResetCurrentSound
[89bf]@_play:
[89bf]ad 27 01LDA a:SoundEffect_State_Counter
[89c2]29 0fAND #$0f
[89c4]09 50ORA #$50
[89c6]8d 04 40STA a:SQ2_VOL
[89c9]a9 00LDA #$00
[89cb]8d 05 40STA a:SQ2_SWEEP
[89ce]ad 27 01LDA a:SoundEffect_State_Counter
[89d1]29 07AND #$07
[89d3]a8TAY
[89d4]ad 27 01LDA a:SoundEffect_State_Counter
[89d7]29 02AND #$02
[89d9]8d 28 01STA a:SoundEffect_State_0128
[89dc]ad 27 01LDA a:SoundEffect_State_Counter
[89df]29 01AND #$01
[89e1]18CLC
[89e2]6d 28 01ADC a:SoundEffect_State_0128
[89e5]aaTAX
[89e6]bd f9 89LDA a:SOUNDEFFECT_CURSOR_MOVED_SQ2_LO,X
[89e9]38SEC
[89ea]f9 fd 89SBC a:SOUNDEFFECT_CURSORMOVED_SQ2_LO_DELTA,Y
[89ed]8d 06 40STA a:SQ2_LO
[89f0]a9 00LDA #$00
[89f2]8d 07 40STA a:SQ2_HI
[89f5]ce 27 01DEC a:SoundEffect_State_Counter
[89f8]60RTS
[89f9]SOUNDEFFECT_CURSOR_MOVED_SQ2_LO:
[89f9]51 34 b8.byte $51,$34,$b8; byte
[89fc]BYTE_PRG5__89fc:
[89fc]93.byte $93; byte
[89fd]SOUNDEFFECT_CURSORMOVED_SQ2_LO_DELTA:
[89fd]00 01 03 06 0a 06 03.byte $00,$01,$03,$06,$0a,$06,$03; byte
[8a04]BYTE_PRG5__8a04:
[8a04]01.byte $01; byte
;============================================================================
; TODO: Document SoundEffect_ShieldHitByMagic_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8a05]SoundEffect_ShieldHitByMagic_Setup:
[8a05]a9 14LDA #$14
[8a07]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8a0a]a9 10LDA #$10
[8a0c]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_ShieldHitByMagic_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8a0f]SoundEffect_ShieldHitByMagic_OnTick:
[8a0f]ce 27 01DEC a:SoundEffect_State_Counter
[8a12]d0 08BNE @_play
[8a14]a9 10LDA #$10
[8a16]8d 04 40STA a:SQ2_VOL
[8a19]4c 26 86JMP Sound_ResetCurrentSound
[8a1c]@_play:
[8a1c]ad 27 01LDA a:SoundEffect_State_Counter
[8a1f]09 90ORA #$90
[8a21]8d 04 40STA a:SQ2_VOL
[8a24]a9 00LDA #$00
[8a26]8d 05 40STA a:SQ2_SWEEP
[8a29]ad 27 01LDA a:SoundEffect_State_Counter
[8a2c]29 01AND #$01
[8a2e]aaTAX
[8a2f]bd 3b 8aLDA a:SOUNDEFFECT_SHIELD_HIT_BY_MAGIC_SQ2_LO,X
[8a32]8d 06 40STA a:SQ2_LO
[8a35]a9 00LDA #$00
[8a37]8d 07 40STA a:SQ2_HI
[8a3a]60RTS
[8a3b]SOUNDEFFECT_SHIELD_HIT_BY_MAGIC_SQ2_LO:
[8a3b]30.byte $30; [0]:
[8a3c]SOUNDEFFECT_SHIELD_HIT_BY_MAGIC_SQ2_LO_1_:
[8a3c]1a.byte $1a; [1]:
;============================================================================
; TODO: Document SoundEffect_CharacterInput_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8a3d]SoundEffect_CharacterInput_Setup:
[8a3d]a9 1eLDA #$1e
[8a3f]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8a42]a9 00LDA #$00
[8a44]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_CharacterInput_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8a47]SoundEffect_CharacterInput_OnTick:
[8a47]ee 27 01INC a:SoundEffect_State_Counter
[8a4a]ad 27 01LDA a:SoundEffect_State_Counter
[8a4d]4aLSR A
[8a4e]4aLSR A
[8a4f]aaTAX
[8a50]bd 79 8aLDA a:SOUNDEFFECT_CHAR_INPUT_NOTES,X
[8a53]c9 ffCMP #$ff
[8a55]d0 08BNE @_play
[8a57]a9 10LDA #$10
[8a59]8d 04 40STA a:SQ2_VOL
[8a5c]4c 26 86JMP Sound_ResetCurrentSound
[8a5f]@_play:
[8a5f]20 d1 8eJSR SoundEffect_SetNote
[8a62]a9 bfLDA #$bf
[8a64]8d 04 40STA a:SQ2_VOL
[8a67]a9 00LDA #$00
[8a69]8d 05 40STA a:SQ2_SWEEP
[8a6c]ad 2a 01LDA a:SoundEffect_Note_Low
[8a6f]8d 06 40STA a:SQ2_LO
[8a72]ad 2b 01LDA a:SoundEffect_Note_High
[8a75]8d 07 40STA a:SQ2_HI
[8a78]60RTS
[8a79]SOUNDEFFECT_CHAR_INPUT_NOTES:
[8a79]37.byte $37; [0]:
[8a7a]39.byte $39; [1]:
[8a7b]32.byte $32; [2]:
[8a7c]34.byte $34; [3]:
[8a7d]ff.byte $ff; [4]:
;============================================================================
; TODO: Document SoundEffect_PasswordCharInput_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8a7e]SoundEffect_PasswordCharInput_Setup:
[8a7e]a9 0aLDA #$0a
[8a80]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8a83]a9 02LDA #$02
[8a85]8d 27 01STA a:SoundEffect_State_Counter
[8a88]a9 81LDA #$81
[8a8a]8d 04 40STA a:SQ2_VOL
[8a8d]a9 00LDA #$00
[8a8f]8d 05 40STA a:SQ2_SWEEP
[8a92]a9 8eLDA #$8e
[8a94]8d 06 40STA a:SQ2_LO
[8a97]a9 10LDA #$10
[8a99]8d 07 40STA a:SQ2_HI
[8a9c]60RTS
;============================================================================
; TODO: Document SoundEffect_PushBlock_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8a9d]SoundEffect_PushBlock_Setup:
[8a9d]a9 20LDA #$20
[8a9f]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[8aa2]a9 1eLDA #$1e
[8aa4]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_PushBlock_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8aa7]SoundEffect_PushBlock_OnTick:
[8aa7]ad 27 01LDA a:SoundEffect_State_Counter
[8aaa]d0 08BNE @_play
[8aac]a9 10LDA #$10
[8aae]8d 0c 40STA a:NOISE_VOL
[8ab1]4c 26 86JMP Sound_ResetCurrentSound
[8ab4]@_play:
[8ab4]a9 1fLDA #$1f
[8ab6]8d 0c 40STA a:NOISE_VOL
[8ab9]ad 27 01LDA a:SoundEffect_State_Counter
[8abc]29 01AND #$01
[8abe]aaTAX
[8abf]bd ce 8aLDA a:SOUNDEFFECT_PUSH_BLOCK_NOISE_LO,X
[8ac2]8d 0e 40STA a:NOISE_LO
[8ac5]a9 00LDA #$00
[8ac7]8d 0f 40STA a:NOISE_HI
[8aca]ce 27 01DEC a:SoundEffect_State_Counter
[8acd]60RTS
[8ace]SOUNDEFFECT_PUSH_BLOCK_NOISE_LO:
[8ace]0f 0b.byte $0f,$0b; byte
;============================================================================
; TODO: Document SoundEffect_CoinDropped_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8ad0]SoundEffect_CoinDropped_Setup:
[8ad0]a9 32LDA #$32
[8ad2]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8ad5]a9 08LDA #$08
[8ad7]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_CoinDropped_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8ada]SoundEffect_CoinDropped_OnTick:
[8ada]a9 86LDA #$86
[8adc]8d 04 40STA a:SQ2_VOL
[8adf]a9 00LDA #$00
[8ae1]8d 05 40STA a:SQ2_SWEEP
[8ae4]ad 27 01LDA a:SoundEffect_State_Counter
[8ae7]c9 05CMP #$05
[8ae9]d0 0aBNE @_checkUpdateCounter
[8aeb]a9 35LDA #$35
[8aed]8d 06 40STA a:SQ2_LO
[8af0]a9 20LDA #$20
[8af2]8d 07 40STA a:SQ2_HI
[8af5]@_checkUpdateCounter:
[8af5]ce 27 01DEC a:SoundEffect_State_Counter
[8af8]d0 0dBNE @_return
[8afa]a9 20LDA #$20
[8afc]8d 06 40STA a:SQ2_LO
[8aff]a9 30LDA #$30
[8b01]8d 07 40STA a:SQ2_HI
[8b04]4c 26 86JMP Sound_ResetCurrentSound
[8b07]@_return:
[8b07]60RTS
;============================================================================
; TODO: Document SoundEffect_0x48_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8b08]SoundEffect_0x48_Setup:
[8b08]a9 23LDA #$23
[8b0a]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8b0d]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[8b10]a9 16LDA #$16
[8b12]8d 28 01STA a:SoundEffect_State_0128
[8b15]a9 00LDA #$00
[8b17]8d 27 01STA a:SoundEffect_State_Counter
[8b1a]a9 1eLDA #$1e
[8b1c]8d 29 01STA a:SoundEffect_State_0129
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_0x48_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8b1f]SoundEffect_0x48_OnTick:
[8b1f]ce 29 01DEC a:SoundEffect_State_0129
[8b22]d0 0bBNE @_play
[8b24]a9 10LDA #$10
[8b26]8d 04 40STA a:SQ2_VOL
[8b29]8d 0c 40STA a:NOISE_VOL
[8b2c]4c 26 86JMP Sound_ResetCurrentSound
[8b2f]@_play:
[8b2f]ad 24 01LDA a:SoundEffect_TicksRemaining_1_
[8b32]29 01AND #$01
[8b34]d0 2eBNE @_return
[8b36]a9 dfLDA #$df
[8b38]8d 04 40STA a:SQ2_VOL
[8b3b]a9 16LDA #$16
[8b3d]8d 0c 40STA a:NOISE_VOL
[8b40]a9 a3LDA #$a3
[8b42]8d 05 40STA a:SQ2_SWEEP
[8b45]ad 27 01LDA a:SoundEffect_State_Counter
[8b48]8d 06 40STA a:SQ2_LO
[8b4b]18CLC
[8b4c]69 10ADC #$10
[8b4e]8d 27 01STA a:SoundEffect_State_Counter
[8b51]ce 28 01DEC a:SoundEffect_State_0128
[8b54]ad 28 01LDA a:SoundEffect_State_0128
[8b57]29 0fAND #$0f
[8b59]8d 0e 40STA a:NOISE_LO
[8b5c]a9 12LDA #$12
[8b5e]8d 07 40STA a:SQ2_HI
[8b61]8d 0f 40STA a:NOISE_HI
[8b64]@_return:
[8b64]60RTS
;============================================================================
; TODO: Document SoundEffect_Pakukame_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8b65]SoundEffect_Pakukame_Setup:
[8b65]a9 46LDA #$46
[8b67]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8b6a]a9 00LDA #$00
[8b6c]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_Pakukame_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8b6f]SoundEffect_Pakukame_OnTick:
[8b6f]ad 24 01LDA a:SoundEffect_TicksRemaining_1_
[8b72]d0 08BNE @_play
[8b74]a9 10LDA #$10
[8b76]8d 04 40STA a:SQ2_VOL
[8b79]4c 26 86JMP Sound_ResetCurrentSound
[8b7c]@_play:
[8b7c]ad 27 01LDA a:SoundEffect_State_Counter
[8b7f]29 3cAND #$3c
[8b81]4aLSR A
[8b82]4aLSR A
[8b83]29 0fAND #$0f
[8b85]09 f0ORA #$f0
[8b87]8d 04 40STA a:SQ2_VOL
[8b8a]a9 00LDA #$00
[8b8c]8d 05 40STA a:SQ2_SWEEP
[8b8f]a9 01LDA #$01
[8b91]8d 07 40STA a:SQ2_HI
[8b94]ad 27 01LDA a:SoundEffect_State_Counter
[8b97]29 07AND #$07
[8b99]aaTAX
[8b9a]ad 27 01LDA a:SoundEffect_State_Counter
[8b9d]18CLC
[8b9e]69 32ADC #$32
[8ba0]38SEC
[8ba1]fd ab 8bSBC a:SOUNDEFFECT_PAKUKAME_SQ2_LO,X
[8ba4]8d 06 40STA a:SQ2_LO
[8ba7]ee 27 01INC a:SoundEffect_State_Counter
[8baa]60RTS
[8bab]SOUNDEFFECT_PAKUKAME_SQ2_LO:
[8bab]00 08 14 20 2d 20 14 08.byte $00,$08,$14,$20,$2d,$20,$14,$08; byte
;============================================================================
; TODO: Document SoundEffect_FillHPOrMP_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8bb3]SoundEffect_FillHPOrMP_Setup:
[8bb3]a9 23LDA #$23
[8bb5]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8bb8]a9 00LDA #$00
[8bba]8d 27 01STA a:SoundEffect_State_Counter
[8bbd]a9 19LDA #$19
[8bbf]8d 29 01STA a:SoundEffect_State_0129
[8bc2]8d 28 01STA a:SoundEffect_State_0128
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_FillHPOrMP_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8bc5]SoundEffect_FillHPOrMP_OnTick:
[8bc5]ce 28 01DEC a:SoundEffect_State_0128
[8bc8]d0 08BNE @_play
[8bca]a9 10LDA #$10
[8bcc]8d 04 40STA a:SQ2_VOL
[8bcf]4c 26 86JMP Sound_ResetCurrentSound
[8bd2]@_play:
[8bd2]ad 27 01LDA a:SoundEffect_State_Counter
[8bd5]29 03AND #$03
[8bd7]a8TAY
[8bd8]b9 01 8cLDA a:SOUNDEFFECT_FILL_HP_OR_MP_SQ2_VOL,Y
[8bdb]8d 04 40STA a:SQ2_VOL
[8bde]a9 aaLDA #$aa
[8be0]8d 05 40STA a:SQ2_SWEEP
[8be3]ad 27 01LDA a:SoundEffect_State_Counter
[8be6]29 01AND #$01
[8be8]aaTAX
[8be9]bd 05 8cLDA a:SOUNDEFFECT_FILL_HP_OR_MP_SQ2_LO,X
[8bec]0d 29 01ORA a:SoundEffect_State_0129
[8bef]ed 27 01SBC a:SoundEffect_State_Counter
[8bf2]8d 29 01STA a:SoundEffect_State_0129
[8bf5]8d 06 40STA a:SQ2_LO
[8bf8]a9 00LDA #$00
[8bfa]8d 07 40STA a:SQ2_HI
[8bfd]ee 27 01INC a:SoundEffect_State_Counter
[8c00]60RTS
[8c01]SOUNDEFFECT_FILL_HP_OR_MP_SQ2_VOL:
[8c01]1f 5f 9f df.byte $1f,$5f,$9f,$df; byte
[8c05]SOUNDEFFECT_FILL_HP_OR_MP_SQ2_LO:
[8c05]60 30.byte $60,$30; byte
;============================================================================
; TODO: Document SoundEffect_Tilte_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8c07]SoundEffect_Tilte_Setup:
[8c07]a9 1eLDA #$1e
[8c09]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8c0c]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[8c0f]a9 0fLDA #$0f
[8c11]8d 29 01STA a:SoundEffect_State_0129
[8c14]a9 01LDA #$01
[8c16]8d 27 01STA a:SoundEffect_State_Counter
[8c19]a9 07LDA #$07
[8c1b]8d 28 01STA a:SoundEffect_State_0128
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_Tilte_OnTick
;
; INPUTS:
; A
;
; OUTPUTS:
; A
;============================================================================
[8c1e]SoundEffect_Tilte_OnTick:
[8c1e]ce 27 01DEC a:SoundEffect_State_Counter
[8c21]d0 45BNE @_return
[8c23]ce 28 01DEC a:SoundEffect_State_0128
[8c26]ad 28 01LDA a:SoundEffect_State_0128
[8c29]8d 27 01STA a:SoundEffect_State_Counter
[8c2c]d0 0bBNE @_play
[8c2e]a9 10LDA #$10
[8c30]8d 04 40STA a:SQ2_VOL
[8c33]8d 0c 40STA a:NOISE_VOL
[8c36]4c 26 86JMP Sound_ResetCurrentSound
[8c39]@_play:
[8c39]a9 48LDA #$48
[8c3b]8d 04 40STA a:SQ2_VOL
[8c3e]a9 00LDA #$00
[8c40]8d 05 40STA a:SQ2_SWEEP
[8c43]ad 29 01LDA a:SoundEffect_State_0129
[8c46]09 10ORA #$10
[8c48]8d 0c 40STA a:NOISE_VOL
[8c4b]ad 29 01LDA a:SoundEffect_State_0129
[8c4e]29 07AND #$07
[8c50]8d 0e 40STA a:NOISE_LO
[8c53]a9 00LDA #$00
[8c55]8d 0f 40STA a:NOISE_HI
[8c58]ad 29 01LDA a:SoundEffect_State_0129
[8c5b]09 18ORA #$18
[8c5d]8d 06 40STA a:SQ2_LO
[8c60]a9 00LDA #$00
[8c62]8d 07 40STA a:SQ2_HI
[8c65]ce 29 01DEC a:SoundEffect_State_0129
[8c68]@_return:
[8c68]60RTS
;============================================================================
; TODO: Document SoundEffect_Maybe_Step_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8c69]SoundEffect_Maybe_Step_Setup:
[8c69]a9 05LDA #$05
[8c6b]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[8c6e]a9 03LDA #$03
[8c70]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_Maybe_Step_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8c73]SoundEffect_Maybe_Step_OnTick:
[8c73]a9 01LDA #$01
[8c75]8d 0c 40STA a:NOISE_VOL
[8c78]ad 27 01LDA a:SoundEffect_State_Counter
[8c7b]c9 03CMP #$03
[8c7d]d0 0aBNE @_updateCheckCounter
[8c7f]a9 0aLDA #$0a
[8c81]8d 0e 40STA a:NOISE_LO
[8c84]a9 00LDA #$00
[8c86]8d 0f 40STA a:NOISE_HI
[8c89]@_updateCheckCounter:
[8c89]ce 27 01DEC a:SoundEffect_State_Counter
[8c8c]d0 0dBNE @_return
[8c8e]a9 02LDA #$02
[8c90]8d 0e 40STA a:NOISE_LO
[8c93]a9 10LDA #$10
[8c95]8d 0f 40STA a:NOISE_HI
[8c98]4c 26 86JMP Sound_ResetCurrentSound
[8c9b]@_return:
[8c9b]60RTS
;============================================================================
; TODO: Document SoundEffect_PlayerDied_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8c9c]SoundEffect_PlayerDied_Setup:
[8c9c]a9 41LDA #$41
[8c9e]8d 23 01STA a:SoundEffect_TicksRemaining
[8ca1]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8ca4]8d 25 01STA a:SoundEffect_TicksRemaining_2_
[8ca7]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[8caa]a9 00LDA #$00
[8cac]8d 27 01STA a:SoundEffect_State_Counter
[8caf]a9 3cLDA #$3c
[8cb1]8d 28 01STA a:SoundEffect_State_0128
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_PlayerDied_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8cb4]SoundEffect_PlayerDied_OnTick:
[8cb4]a9 00LDA #$00
[8cb6]8d 08 40STA a:TRI_LINEAR
[8cb9]8d 0a 40STA a:TRI_LO
[8cbc]8d 0a 40STA a:TRI_LO
[8cbf]ce 28 01DEC a:SoundEffect_State_0128
[8cc2]d0 0eBNE @_play
[8cc4]a9 10LDA #$10
[8cc6]8d 00 40STA a:SQ1_VOL
[8cc9]8d 04 40STA a:SQ2_VOL
[8ccc]8d 0c 40STA a:NOISE_VOL
[8ccf]4c 26 86JMP Sound_ResetCurrentSound
[8cd2]@_play:
[8cd2]ad 27 01LDA a:SoundEffect_State_Counter
[8cd5]49 ffEOR #$ff
[8cd7]4aLSR A
[8cd8]4aLSR A
[8cd9]29 0fAND #$0f
[8cdb]09 d0ORA #$d0
[8cdd]8d 04 40STA a:SQ2_VOL
[8ce0]29 5fAND #$5f
[8ce2]8d 00 40STA a:SQ1_VOL
[8ce5]a9 1fLDA #$1f
[8ce7]8d 0c 40STA a:NOISE_VOL
[8cea]a9 00LDA #$00
[8cec]8d 05 40STA a:SQ2_SWEEP
[8cef]8d 01 40STA a:SQ1_SWEEP
[8cf2]ad 27 01LDA a:SoundEffect_State_Counter
[8cf5]29 03AND #$03
[8cf7]aaTAX
[8cf8]bd 28 8dLDA a:SOUNDEFFECT_PLAYER_DIED_NOTES,X
[8cfb]20 d1 8eJSR SoundEffect_SetNote
[8cfe]ad 2a 01LDA a:SoundEffect_Note_Low
[8d01]18CLC
[8d02]6d 27 01ADC a:SoundEffect_State_Counter
[8d05]8d 06 40STA a:SQ2_LO
[8d08]18CLC
[8d09]69 10ADC #$10
[8d0b]8d 02 40STA a:SQ1_LO
[8d0e]ad 2b 01LDA a:SoundEffect_Note_High
[8d11]8d 07 40STA a:SQ2_HI
[8d14]8d 03 40STA a:SQ1_HI
[8d17]ad 27 01LDA a:SoundEffect_State_Counter
[8d1a]29 03AND #$03
[8d1c]8d 0e 40STA a:NOISE_LO
[8d1f]a9 00LDA #$00
[8d21]8d 0f 40STA a:NOISE_HI
[8d24]ee 27 01INC a:SoundEffect_State_Counter
[8d27]60RTS
[8d28]SOUNDEFFECT_PLAYER_DIED_NOTES:
[8d28]4f 32 4c 3c.byte $4f,$32,$4c,$3c; byte
;============================================================================
; TODO: Document SoundEffect_LadderDropped_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8d2c]SoundEffect_LadderDropped_Setup:
[8d2c]a9 0aLDA #$0a
[8d2e]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[8d31]a9 03LDA #$03
[8d33]8d 27 01STA a:SoundEffect_State_Counter
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_LadderDropped_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8d36]SoundEffect_LadderDropped_OnTick:
[8d36]a9 07LDA #$07
[8d38]8d 0c 40STA a:NOISE_VOL
[8d3b]ad 27 01LDA a:SoundEffect_State_Counter
[8d3e]c9 03CMP #$03
[8d40]d0 0aBNE @_updateCheckCounter
[8d42]a9 0fLDA #$0f
[8d44]8d 0e 40STA a:NOISE_LO
[8d47]a9 18LDA #$18
[8d49]8d 0f 40STA a:NOISE_HI
[8d4c]@_updateCheckCounter:
[8d4c]ce 27 01DEC a:SoundEffect_State_Counter
[8d4f]d0 0dBNE @_return
[8d51]a9 05LDA #$05
[8d53]8d 0e 40STA a:NOISE_LO
[8d56]a9 18LDA #$18
[8d58]8d 0f 40STA a:NOISE_HI
[8d5b]4c 26 86JMP Sound_ResetCurrentSound
[8d5e]@_return:
[8d5e]60RTS
;============================================================================
; TODO: Document SoundEffect_ShowPlayerMenu_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8d5f]SoundEffect_ShowPlayerMenu_Setup:
[8d5f]a9 23LDA #$23
[8d61]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8d64]a9 00LDA #$00
[8d66]8d 27 01STA a:SoundEffect_State_Counter
[8d69]8d 28 01STA a:SoundEffect_State_0128
[8d6c]a9 20LDA #$20
[8d6e]8d 29 01STA a:SoundEffect_State_0129
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_ShowPlayerMenu_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8d71]SoundEffect_ShowPlayerMenu_OnTick:
[8d71]ce 29 01DEC a:SoundEffect_State_0129
[8d74]ad 29 01LDA a:SoundEffect_State_0129
[8d77]4aLSR A
[8d78]d0 08BNE @_play
[8d7a]a9 10LDA #$10
[8d7c]8d 04 40STA a:SQ2_VOL
[8d7f]4c 26 86JMP Sound_ResetCurrentSound
[8d82]@_play:
[8d82]09 d0ORA #$d0
[8d84]8d 04 40STA a:SQ2_VOL
[8d87]a9 00LDA #$00
[8d89]8d 05 40STA a:SQ2_SWEEP
[8d8c]ad 28 01LDA a:SoundEffect_State_0128
[8d8f]29 03AND #$03
[8d91]aaTAX
[8d92]bd b5 8dLDA a:SOUNDEFFECT_SHOW_PLAYER_MENU_NOTES,X
[8d95]20 d1 8eJSR SoundEffect_SetNote
[8d98]ad 2a 01LDA a:SoundEffect_Note_Low
[8d9b]38SEC
[8d9c]ed 27 01SBC a:SoundEffect_State_Counter
[8d9f]8d 06 40STA a:SQ2_LO
[8da2]ad 2b 01LDA a:SoundEffect_Note_High
[8da5]8d 07 40STA a:SQ2_HI
[8da8]ee 27 01INC a:SoundEffect_State_Counter
[8dab]ee 27 01INC a:SoundEffect_State_Counter
[8dae]ee 27 01INC a:SoundEffect_State_Counter
[8db1]ee 28 01INC a:SoundEffect_State_0128
[8db4]60RTS
[8db5]SOUNDEFFECT_SHOW_PLAYER_MENU_NOTES:
[8db5]5b 4f 43 37.byte $5b,$4f,$43,$37; byte
;============================================================================
; TODO: Document SoundEffect_GoldAmountChanged_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8db9]SoundEffect_GoldAmountChanged_Setup:
[8db9]a9 0aLDA #$0a
[8dbb]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8dbe]a9 02LDA #$02
[8dc0]8d 27 01STA a:SoundEffect_State_Counter
[8dc3]a9 82LDA #$82
[8dc5]8d 04 40STA a:SQ2_VOL
[8dc8]a9 00LDA #$00
[8dca]8d 05 40STA a:SQ2_SWEEP
[8dcd]a9 28LDA #$28
[8dcf]8d 06 40STA a:SQ2_LO
[8dd2]a9 10LDA #$10
[8dd4]8d 07 40STA a:SQ2_HI
[8dd7]60RTS
;============================================================================
; TODO: Document SoundEffect_Maybe_UseSpecialItem2_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8dd8]SoundEffect_Maybe_UseSpecialItem2_Setup:
[8dd8]a9 44LDA #$44
[8dda]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8ddd]8d 26 01STA a:SoundEffect_TicksRemaining_3_
[8de0]a9 00LDA #$00
[8de2]8d 27 01STA a:SoundEffect_State_Counter
[8de5]8d 28 01STA a:SoundEffect_State_0128
[8de8]8d 29 01STA a:SoundEffect_State_0129
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_Maybe_UseSpecialItem2_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8deb]SoundEffect_Maybe_UseSpecialItem2_OnTick:
[8deb]ad 29 01LDA a:SoundEffect_State_0129
[8dee]4aLSR A
[8def]aaTAX
[8df0]bd 5f 8eLDA a:SOUNDEFFECT_SPECIALITEM2_NOISE_VOL,X
[8df3]d0 0bBNE @_hasNoise
[8df5]a9 10LDA #$10
[8df7]8d 04 40STA a:SQ2_VOL
[8dfa]8d 0c 40STA a:NOISE_VOL
[8dfd]4c 26 86JMP Sound_ResetCurrentSound
[8e00]@_hasNoise:
[8e00]09 90ORA #$90
[8e02]8d 0c 40STA a:NOISE_VOL
[8e05]8d 04 40STA a:SQ2_VOL
[8e08]a9 00LDA #$00
[8e0a]8d 05 40STA a:SQ2_SWEEP
[8e0d]ad 27 01LDA a:SoundEffect_State_Counter
[8e10]0aASL A
[8e11]8d 28 01STA a:SoundEffect_State_0128
[8e14]ae 27 01LDX a:SoundEffect_State_Counter
[8e17]bd 66 8eLDA a:SOUNDEFFECT_SPECIALITEM2_NOTES,X
[8e1a]c9 ffCMP #$ff
[8e1c]f0 38BEQ @_hasNotes
[8e1e]20 d1 8eJSR SoundEffect_SetNote
[8e21]ad 2a 01LDA a:SoundEffect_Note_Low
[8e24]18CLC
[8e25]6d 28 01ADC a:SoundEffect_State_0128
[8e28]8d 06 40STA a:SQ2_LO
[8e2b]ad 2b 01LDA a:SoundEffect_Note_High
[8e2e]8d 07 40STA a:SQ2_HI
[8e31]ad 27 01LDA a:SoundEffect_State_Counter
[8e34]29 01AND #$01
[8e36]aaTAX
[8e37]bd 64 8eLDA a:SOUNDEFFECT_SPECIALITEM2_NOISE_LO,X
[8e3a]18CLC
[8e3b]6d 27 01ADC a:SoundEffect_State_Counter
[8e3e]29 0fAND #$0f
[8e40]8d 0e 40STA a:NOISE_LO
[8e43]a9 00LDA #$00
[8e45]8d 0f 40STA a:NOISE_HI
[8e48]ee 27 01INC a:SoundEffect_State_Counter
[8e4b]ad 27 01LDA a:SoundEffect_State_Counter
[8e4e]29 07AND #$07
[8e50]d0 03BNE @_return
[8e52]ee 29 01INC a:SoundEffect_State_0129
[8e55]@_return:
[8e55]60RTS
[8e56]@_hasNotes:
[8e56]a9 00LDA #$00
[8e58]8d 27 01STA a:SoundEffect_State_Counter
[8e5b]ee 29 01INC a:SoundEffect_State_0129
[8e5e]60RTS
[8e5f]SOUNDEFFECT_SPECIALITEM2_NOISE_VOL:
[8e5f]0f 0d 09 05 00.byte $0f,$0d,$09,$05,$00; byte
[8e64]SOUNDEFFECT_SPECIALITEM2_NOISE_LO:
[8e64]0c 07.byte $0c,$07; byte
[8e66]SOUNDEFFECT_SPECIALITEM2_NOTES:
[8e66]24 27 2b 30 48 4b 4f 54.byte $24,$27,$2b,$30,$48,$4b,$4f,$54; byte
[8e6e]33 44 52 57 57 5c 62 ff.byte $33,$44,$52,$57,$57,$5c,$62,$ff; byte
;============================================================================
; TODO: Document SoundEffect_BreadTouched_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8e76]SoundEffect_BreadTouched_Setup:
[8e76]a9 18LDA #$18
[8e78]8d 24 01STA a:SoundEffect_TicksRemaining_1_
[8e7b]a9 ffLDA #$ff
[8e7d]8d 27 01STA a:SoundEffect_State_Counter
[8e80]a9 00LDA #$00
[8e82]8d 28 01STA a:SoundEffect_State_0128
[8e85]8d 29 01STA a:SoundEffect_State_0129
;
; v-- Fall through --v
;
;============================================================================
; TODO: Document SoundEffect_BreadTouched_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8e88]SoundEffect_BreadTouched_OnTick:
[8e88]ad 28 01LDA a:SoundEffect_State_0128
[8e8b]4aLSR A
[8e8c]4aLSR A
[8e8d]aaTAX
[8e8e]bd c5 8eLDA a:SOUNDEFFECT_BREADTOUCHED_SQ2_HI,X
[8e91]8d 29 01STA a:SoundEffect_State_0129
[8e94]d0 08BNE @_play
[8e96]a9 10LDA #$10
[8e98]8d 04 40STA a:SQ2_VOL
[8e9b]4c 26 86JMP Sound_ResetCurrentSound
[8e9e]@_play:
[8e9e]a9 dfLDA #$df
[8ea0]8d 04 40STA a:SQ2_VOL
[8ea3]a9 00LDA #$00
[8ea5]8d 05 40STA a:SQ2_SWEEP
[8ea8]ad 27 01LDA a:SoundEffect_State_Counter
[8eab]38SEC
[8eac]ed 29 01SBC a:SoundEffect_State_0129
[8eaf]8d 27 01STA a:SoundEffect_State_Counter
[8eb2]8d 06 40STA a:SQ2_LO
[8eb5]8aTXA
[8eb6]29 03AND #$03
[8eb8]aaTAX
[8eb9]bd c5 8eLDA a:SOUNDEFFECT_BREADTOUCHED_SQ2_HI,X
[8ebc]29 01AND #$01
[8ebe]8d 07 40STA a:SQ2_HI
[8ec1]ee 28 01INC a:SoundEffect_State_0128
[8ec4]60RTS
[8ec5]SOUNDEFFECT_BREADTOUCHED_SQ2_HI:
[8ec5]1f 36 63 76 c8 00.byte $1f,$36,$63,$76,$c8,$00; byte
;============================================================================
; TODO: Document SoundEffect_CoinTouched_Setup
;
; INPUTS:
; None.
;
; OUTPUTS:
; TODO
;============================================================================
[8ecb]SoundEffect_CoinTouched_Setup:
[8ecb]4c 1f 89JMP SoundEffect_CoinTouchedCommon_Setup
;============================================================================
; TODO: Document SoundEffect_CoinTouched_OnTick
;
; INPUTS:
; None.
;
; OUTPUTS:
; A
;============================================================================
[8ece]SoundEffect_CoinTouched_OnTick:
[8ece]4c 2e 89JMP SoundEffect_CoinTouchedCommon_OnTick
[8ed1]SoundEffect_SetNote:
[8ed1]38SEC
[8ed2]e9 18SBC #$18
;
; Loop, subtracting 12 (number of semitones in our lookup
; table) each iteration, until < 0.
;
; The number of loop iterations will be used later to
; normalize the resulting note for the right octave.
;
[8ed4]a0 01LDY #$01
[8ed6]38SEC
[8ed7]@_loop:
[8ed7]e9 0cSBC #$0c
[8ed9]c8INY
[8eda]b0 fbBCS @_loop
[8edc]88DEY
[8edd]69 0dADC #$0d
[8edf]0aASL A
[8ee0]aaTAX
[8ee1]bd 52 85LDA a:AUDIO_NOTES,X
[8ee4]8d 2a 01STA a:SoundEffect_Note_Low
[8ee7]bd 53 85LDA a:AUDIO_NOTES+1,X
[8eea]8d 2b 01STA a:SoundEffect_Note_High
;
; Convert to the note in the right octave based on
; the starting value.
;
[8eed]@_octaveLoop:
[8eed]88DEY
[8eee]f0 09BEQ @_return
[8ef0]4e 2b 01LSR a:SoundEffect_Note_High
[8ef3]6e 2a 01ROR a:SoundEffect_Note_Low
[8ef6]4c ed 8eJMP @_octaveLoop
[8ef9]@_return:
[8ef9]60RTS
;============================================================================
; Music lookup table.
;
; Entries are groups of 2-byte addresses containing the
; music data for each channel.
;
; XREFS:
;
Music_Load
;============================================================================
;============================================================================
; Music for the start screen.
;
; XREFS:
;
MSCRIPTS_TITLESCREEN [$PRG5::8efb]
;============================================================================
;============================================================================
; Music for Daybreak.
;
; XREFS:
;
MSCRIPTS_DAYBREAK [$PRG5::8f03]
;============================================================================
;============================================================================
; Music for Apolune.
;
; XREFS:
;
MSCRIPTS_APOLUNE [$PRG5::8f0b]
;============================================================================
;============================================================================
; Music for Conflate.
;
; XREFS:
;
MSCRIPTS_CONFLATE [$PRG5::8f13]
;============================================================================
;============================================================================
; Music for Forepaw.
;
; XREFS:
;
MSCRIPTS_FOREPAW [$PRG5::8f1b]
;============================================================================
;============================================================================
; Music for Tower.
;
; XREFS:
;
MSCRIPTS_TOWER [$PRG5::8f23]
;============================================================================
;============================================================================
; Music for Eolis.
;
; XREFS:
;
MSCRIPTS_EOLIS [$PRG5::8f2b]
;============================================================================
;============================================================================
; Music for the death screen.
;
; XREFS:
;
MSCRIPTS_MANTRA [$PRG5::8f33]
;============================================================================
;============================================================================
; Music for Macon/Victim.
;
; XREFS:
;
MSCRIPTS_MASCON_VICTIM [$PRG5::8f3b]
;============================================================================
;============================================================================
; Music for boss battles.
;
; XREFS:
;
MSCRIPTS_BOSS [$PRG5::8f43]
;============================================================================
;============================================================================
; TODO: Music 0x0B
;
; XREFS:
;
MSCRIPTS_HOURGLASS [$PRG5::8f4b]
;============================================================================
;============================================================================
; Music for the ending outro sequence.
;
; XREFS:
;
MSCRIPTS_ENDING [$PRG5::8f53]
;============================================================================
;============================================================================
; Music for the King's room.
;
; XREFS:
;
MSCRIPTS_KINGS_ROOM [$PRG5::8f5b]
;============================================================================
;============================================================================
; Music for the temples.
;
; XREFS:
;
MSCRIPTS_TEMPLE [$PRG5::8f63]
;============================================================================
;============================================================================
; Music for the shops.
;
; XREFS:
;
MSCRIPTS_SHOP [$PRG5::8f6b]
;============================================================================
;============================================================================
; Music for the Evil Fortress.
;
; XREFS:
;
MSCRIPTS_EVIL_FORTRESS [$PRG5::8f73]
;============================================================================
;============================================================================
; Post-MScript data.
;
; At first glance, this appears to be structured data.
; 4 words in a sequence, each with 0xFF00 as the trailing
; value.
;
; There are exceptions to this, though:
;
; Address | Value
; --------+------
; $B878 | F700
; $B8D0 | F700
; $BAE0 | DF00
; $BBF8 | FF20
; $BD10 | FF01
; $BE10 | 7F00
; $BF08 | EF00
;
; If we do assume group of 4 words, though, there are a
; few observations:
;
; 1. Words 1, 2, and 4 usually start with 0xFF.
; 2. Word 3 may be anything.
; 3. 0xFF00 is usually the 4th byte, but as shown above,
; not always.
;
; I've checked the music engines for various Hudson Soft
; games during, shortly before, and shortly after this
; era, and couldn't find anything matching this. The music
; engines generally match the MScripts here (though
; Faxanadu's is more complex).
;
; It's possible this was floating point data or something
; for SQ envelope curves, but left out.
;
; In any case, this data seems unused by the shipped game.
;============================================================================
[b3d2]a7 ff 75 ff 57 61 00 ff.word $ffa7,$ff75,$6157,$ff00; ushort
[b3da]e9 ff f8 ff ad fe 00 ff.word $ffe9,$fff8,$fead,$ff00; ushort
[b3e2]23 ff fd ff 29 ed 00 ff.word $ff23,$fffd,$ed29,$ff00; ushort
[b3ea]7c ff 3a ff ba 4c 00 ff.word $ff7c,$ff3a,$4cba,$ff00; ushort
[b3f2]37 ff 7b ff 4c 32 00 ff.word $ff37,$ff7b,$324c,$ff00; ushort
[b3fa]48 ff be ff 3a d6 00 ff.word $ff48,$ffbe,$d63a,$ff00; ushort
[b402]82 ff 53 ff 4e fb 00 ff.word $ff82,$ff53,$fb4e,$ff00; ushort
[b40a]84 ff f8 ff d8 eb 00 ff.word $ff84,$fff8,$ebd8,$ff00; ushort
[b412]74 ff ef ff bd db 00 ff.word $ff74,$ffef,$dbbd,$ff00; ushort
[b41a]39 ff ff ff ee 97 00 ff.word $ff39,$ffff,$97ee,$ff00; ushort
[b422]0a ff c6 ff c5 ff 00 ff.word $ff0a,$ffc6,$ffc5,$ff00; ushort
[b42a]02 ff 7d ff 74 f1 00 ff.word $ff02,$ff7d,$f174,$ff00; ushort
[b432]3e ff 93 ff b1 7b 00 ff.word $ff3e,$ff93,$7bb1,$ff00; ushort
[b43a]c6 ff 5d ff ff 73 00 ff.word $ffc6,$ff5d,$73ff,$ff00; ushort
[b442]84 ff 11 ff e4 bf 00 ff.word $ff84,$ff11,$bfe4,$ff00; ushort
[b44a]3c ff b3 ff 3f 7d 00 ff.word $ff3c,$ffb3,$7d3f,$ff00; ushort
[b452]8a ff 5e ff c3 7f 00 ff.word $ff8a,$ff5e,$7fc3,$ff00; ushort
[b45a]cc ff de ff 3f f8 00 ff.word $ffcc,$ffde,$f83f,$ff00; ushort
[b462]45 ff d3 ff ee 77 00 ff.word $ff45,$ffd3,$77ee,$ff00; ushort
[b46a]80 ff 85 ff 79 7e 00 ff.word $ff80,$ff85,$7e79,$ff00; ushort
[b472]95 ff 62 ff 73 2f 00 ff.word $ff95,$ff62,$2f73,$ff00; ushort
[b47a]f3 ff ff ff 0c ff 00 ff.word $fff3,$ffff,$ff0c,$ff00; ushort
[b482]95 ff 82 ff ab 7f 00 ff.word $ff95,$ff82,$7fab,$ff00; ushort
[b48a]c0 ff 5a ff 01 97 00 ff.word $ffc0,$ff5a,$9701,$ff00; ushort
[b492]12 ff 5d ff aa f3 00 ff.word $ff12,$ff5d,$f3aa,$ff00; ushort
[b49a]f0 ff 18 ff f3 f9 00 ff.word $fff0,$ff18,$f9f3,$ff00; ushort
[b4a2]00 ff 3e ff 6a cb 00 ff.word $ff00,$ff3e,$cb6a,$ff00; ushort
[b4aa]57 ff bb ff 78 fe 00 ff.word $ff57,$ffbb,$fe78,$ff00; ushort
[b4b2]a7 ff 23 ff d2 80 00 ff.word $ffa7,$ff23,$80d2,$ff00; ushort
[b4ba]a5 ff 6e ff 2f b6 00 ff.word $ffa5,$ff6e,$b62f,$ff00; ushort
[b4c2]50 ff 66 ff 20 75 00 ff.word $ff50,$ff66,$7520,$ff00; ushort
[b4ca]55 ff f7 ff 5b ed 00 ff.word $ff55,$fff7,$ed5b,$ff00; ushort
[b4d2]60 ff e8 ff 78 9e 00 ff.word $ff60,$ffe8,$9e78,$ff00; ushort
[b4da]d9 ff 13 ff bd ff 00 ff.word $ffd9,$ff13,$ffbd,$ff00; ushort
[b4e2]ec ff 0b ff 26 fd 00 ff.word $ffec,$ff0b,$fd26,$ff00; ushort
[b4ea]e2 ff 58 ff 36 77 00 ff.word $ffe2,$ff58,$7736,$ff00; ushort
[b4f2]40 ff b6 ff 02 ff 00 ff.word $ff40,$ffb6,$ff02,$ff00; ushort
[b4fa]f9 ff df ff b0 58 00 ff.word $fff9,$ffdf,$58b0,$ff00; ushort
[b502]b4 ff 9e ff aa fb 00 ff.word $ffb4,$ff9e,$fbaa,$ff00; ushort
[b50a]84 ff 9a ff 9f ff 00 ff.word $ff84,$ff9a,$ff9f,$ff00; ushort
[b512]34 ff d3 ff 32 9f 00 ff.word $ff34,$ffd3,$9f32,$ff00; ushort
[b51a]4a ff 57 ff 6f 6d 00 ff.word $ff4a,$ff57,$6d6f,$ff00; ushort
[b522]2a ff 64 ff fe dd 00 ff.word $ff2a,$ff64,$ddfe,$ff00; ushort
[b52a]94 ff d1 ff bb ef 00 ff.word $ff94,$ffd1,$efbb,$ff00; ushort
[b532]2c ff 5f ff cb bf 00 ff.word $ff2c,$ff5f,$bfcb,$ff00; ushort
[b53a]e7 ff 7c ff f3 7d 00 ff.word $ffe7,$ff7c,$7df3,$ff00; ushort
[b542]90 ff 51 ff 33 ec 00 ff.word $ff90,$ff51,$ec33,$ff00; ushort
[b54a]59 ff a4 ff 72 7f 00 ff.word $ff59,$ffa4,$7f72,$ff00; ushort
[b552]1a ff 0f ff c5 af 00 ff.word $ff1a,$ff0f,$afc5,$ff00; ushort
[b55a]2f ff e9 ff 15 30 00 ff.word $ff2f,$ffe9,$3015,$ff00; ushort
[b562]03 ff 06 ff 13 bf 00 ff.word $ff03,$ff06,$bf13,$ff00; ushort
[b56a]0b ff fb ff e2 fe 00 ff.word $ff0b,$fffb,$fee2,$ff00; ushort
[b572]d5 ff c7 ff 69 9f 00 ff.word $ffd5,$ffc7,$9f69,$ff00; ushort
[b57a]32 ff 76 ff fc 06 00 ff.word $ff32,$ff76,$06fc,$ff00; ushort
[b582]14 ff 3c ff 6f 0f 00 ff.word $ff14,$ff3c,$0f6f,$ff00; ushort
[b58a]ad ff ea ff db af 00 ff.word $ffad,$ffea,$afdb,$ff00; ushort
[b592]27 ff ee ff f9 4c 00 ff.word $ff27,$ffee,$4cf9,$ff00; ushort
[b59a]23 ff 5d ff 57 fe 00 ff.word $ff23,$ff5d,$fe57,$ff00; ushort
[b5a2]04 ff b1 ff e2 f7 00 ff.word $ff04,$ffb1,$f7e2,$ff00; ushort
[b5aa]a4 ff 53 ff fa ff 00 ff.word $ffa4,$ff53,$fffa,$ff00; ushort
[b5b2]2c ff 5f ff fd 8c 00 ff.word $ff2c,$ff5f,$8cfd,$ff00; ushort
[b5ba]7d ff 77 ff e8 52 00 ff.word $ff7d,$ff77,$52e8,$ff00; ushort
[b5c2]00 ff 83 ff 35 bf 00 ff.word $ff00,$ff83,$bf35,$ff00; ushort
[b5ca]58 ff d7 ff ef d7 00 ff.word $ff58,$ffd7,$d7ef,$ff00; ushort
[b5d2]60 ff f8 ff d1 de 00 ff.word $ff60,$fff8,$ded1,$ff00; ushort
[b5da]94 ff f3 ff ea cf 00 ff.word $ff94,$fff3,$cfea,$ff00; ushort
[b5e2]08 ff 48 ff 7b fb 00 ff.word $ff08,$ff48,$fb7b,$ff00; ushort
[b5ea]33 ff d6 ff 7f 83 00 ff.word $ff33,$ffd6,$837f,$ff00; ushort
[b5f2]71 ff 4e ff 45 ff 00 ff.word $ff71,$ff4e,$ff45,$ff00; ushort
[b5fa]fc ff 97 ef f6 3e 00 ff.word $fffc,$ef97,$3ef6,$ff00; ushort
[b602]40 ff 05 ff 4b ff 00 ff.word $ff40,$ff05,$ff4b,$ff00; ushort
[b60a]04 ff 72 ff 69 ff 00 ff.word $ff04,$ff72,$ff69,$ff00; ushort
[b612]12 ff c8 ff e9 ef 00 ff.word $ff12,$ffc8,$efe9,$ff00; ushort
[b61a]d8 ff df ff af 03 00 ff.word $ffd8,$ffdf,$03af,$ff00; ushort
[b622]27 ff 2c ff 11 ff 00 ff.word $ff27,$ff2c,$ff11,$ff00; ushort
[b62a]94 ff 22 ff f2 ff 00 ff.word $ff94,$ff22,$fff2,$ff00; ushort
[b632]e4 ff bd ff f7 92 00 ff.word $ffe4,$ffbd,$92f7,$ff00; ushort
[b63a]26 ff ff ff a7 65 00 ff.word $ff26,$ffff,$65a7,$ff00; ushort
[b642]61 ff a8 ff b0 be 00 ff.word $ff61,$ffa8,$beb0,$ff00; ushort
[b64a]0d ff a2 ff 51 a3 00 ff.word $ff0d,$ffa2,$a351,$ff00; ushort
[b652]f0 ff c4 ff 04 ae 00 ff.word $fff0,$ffc4,$ae04,$ff00; ushort
[b65a]3b ff 7f ff 3b cf 00 ff.word $ff3b,$ff7f,$cf3b,$ff00; ushort
[b662]01 ff 56 ff 61 ff 00 ff.word $ff01,$ff56,$ff61,$ff00; ushort
[b66a]8d ff fb ff 81 f7 00 ff.word $ff8d,$fffb,$f781,$ff00; ushort
[b672]12 ff cb ff 73 df 00 ff.word $ff12,$ffcb,$df73,$ff00; ushort
[b67a]71 ff d9 ff b7 bf 00 ff.word $ff71,$ffd9,$bfb7,$ff00; ushort
[b682]00 ff 59 ff 79 97 00 ff.word $ff00,$ff59,$9779,$ff00; ushort
[b68a]42 ff 7d ff b9 ea 00 ff.word $ff42,$ff7d,$eab9,$ff00; ushort
[b692]70 ff db ff fd 30 00 ff.word $ff70,$ffdb,$30fd,$ff00; ushort
[b69a]08 ff 67 ff 9f 8e 00 ff.word $ff08,$ff67,$8e9f,$ff00; ushort
[b6a2]01 ff 1f ff 27 7f 00 ff.word $ff01,$ff1f,$7f27,$ff00; ushort
[b6aa]c0 ff 27 ff 50 6f 00 ff.word $ffc0,$ff27,$6f50,$ff00; ushort
[b6b2]63 ff be ff 40 cf 00 ff.word $ff63,$ffbe,$cf40,$ff00; ushort
[b6ba]c5 ff da ff 1f 9f 00 ff.word $ffc5,$ffda,$9f1f,$ff00; ushort
[b6c2]28 ff e5 ff a3 b7 00 ff.word $ff28,$ffe5,$b7a3,$ff00; ushort
[b6ca]c2 ff 19 ff 8b 9f 00 ff.word $ffc2,$ff19,$9f8b,$ff00; ushort
[b6d2]44 ff f7 ff d5 ef 00 ff.word $ff44,$fff7,$efd5,$ff00; ushort
[b6da]2d ff ad ff d5 7f 00 ff.word $ff2d,$ffad,$7fd5,$ff00; ushort
[b6e2]22 ff 3e ff 75 5f 00 ff.word $ff22,$ff3e,$5f75,$ff00; ushort
[b6ea]01 ff ed ff 14 df 00 ff.word $ff01,$ffed,$df14,$ff00; ushort
[b6f2]38 ff 7d ff fa d3 00 ff.word $ff38,$ff7d,$d3fa,$ff00; ushort
[b6fa]7c ff bd ff de ce 00 ff.word $ff7c,$ffbd,$cede,$ff00; ushort
[b702]3e ff e7 ff e1 e6 00 ff.word $ff3e,$ffe7,$e6e1,$ff00; ushort
[b70a]38 ff 3a ff 59 f5 00 ff.word $ff38,$ff3a,$f559,$ff00; ushort
[b712]05 ff 17 ef 75 5e 00 ff.word $ff05,$ef17,$5e75,$ff00; ushort
[b71a]6b ff fd ff de 34 00 ff.word $ff6b,$fffd,$34de,$ff00; ushort
[b722]32 ff 5b ff 00 f3 00 ff.word $ff32,$ff5b,$f300,$ff00; ushort
[b72a]20 ff da ff 5e ff 00 ff.word $ff20,$ffda,$ff5e,$ff00; ushort
[b732]04 ff e0 ff c1 f3 00 ff.word $ff04,$ffe0,$f3c1,$ff00; ushort
[b73a]49 ff b7 ff 9e ee 00 ff.word $ff49,$ffb7,$ee9e,$ff00; ushort
[b742]72 ff 34 ff 76 d5 00 ff.word $ff72,$ff34,$d576,$ff00; ushort
[b74a]01 ff 69 ff 0d fe 00 ff.word $ff01,$ff69,$fe0d,$ff00; ushort
[b752]bb ff 20 ff e4 7e 00 ff.word $ffbb,$ff20,$7ee4,$ff00; ushort
[b75a]43 ff b7 ff 7b 18 00 ff.word $ff43,$ffb7,$187b,$ff00; ushort
[b762]61 ff 03 ff e0 ff 00 ff.word $ff61,$ff03,$ffe0,$ff00; ushort
[b76a]89 ff f5 ff 66 8f 00 ff.word $ff89,$fff5,$8f66,$ff00; ushort
[b772]fe ff c7 ff fd bf 00 ff.word $fffe,$ffc7,$bffd,$ff00; ushort
[b77a]28 ff eb ff af eb 00 ff.word $ff28,$ffeb,$ebaf,$ff00; ushort
[b782]04 ff 0a ff c1 bf 00 ff.word $ff04,$ff0a,$bfc1,$ff00; ushort
[b78a]50 ff 21 df f4 db 00 ff.word $ff50,$df21,$dbf4,$ff00; ushort
[b792]dc ff 9e ff ff bd 00 ff.word $ffdc,$ff9e,$bdff,$ff00; ushort
[b79a]8b ff be ff cd b5 00 ff.word $ff8b,$ffbe,$b5cd,$ff00; ushort
[b7a2]00 ff 39 ff 1c ff 00 ff.word $ff00,$ff39,$ff1c,$ff00; ushort
[b7aa]08 ff 11 ff b7 bf 00 ff.word $ff08,$ff11,$bfb7,$ff00; ushort
[b7b2]f2 ff 77 ff f4 f7 00 ff.word $fff2,$ff77,$f7f4,$ff00; ushort
[b7ba]64 ff 53 ff ff b3 00 ff.word $ff64,$ff53,$b3ff,$ff00; ushort
[b7c2]81 ff 55 ff cd 97 00 ff.word $ff81,$ff55,$97cd,$ff00; ushort
[b7ca]1e ff 39 ff 68 fb 00 ff.word $ff1e,$ff39,$fb68,$ff00; ushort
[b7d2]a0 ff fd ff ca ee 00 ff.word $ffa0,$fffd,$eeca,$ff00; ushort
[b7da]ae df f4 fb 7f 6b 00 ff.word $dfae,$fbf4,$6b7f,$ff00; ushort
[b7e2]44 ff 93 ff f5 7c 00 ff.word $ff44,$ff93,$7cf5,$ff00; ushort
[b7ea]46 ff 04 ff fd 7f 00 ff.word $ff46,$ff04,$7ffd,$ff00; ushort
[b7f2]e0 ff 34 df 7b fe 00 ff.word $ffe0,$df34,$fe7b,$ff00; ushort
[b7fa]5a ff eb ff 19 c1 00 ff.word $ff5a,$ffeb,$c119,$ff00; ushort
[b802]31 ff a4 ff 26 3d 00 ff.word $ff31,$ffa4,$3d26,$ff00; ushort
[b80a]e0 ff b0 ff e3 ff 00 ff.word $ffe0,$ffb0,$ffe3,$ff00; ushort
[b812]fa ff 71 ff f9 fe 00 ff.word $fffa,$ff71,$fef9,$ff00; ushort
[b81a]3b ff fe ff cf de 00 ff.word $ff3b,$fffe,$decf,$ff00; ushort
[b822]16 ff e5 ff bc 1d 00 ff.word $ff16,$ffe5,$1dbc,$ff00; ushort
[b82a]05 ff 9e ff bb fb 00 ff.word $ff05,$ff9e,$fbbb,$ff00; ushort
[b832]b0 ff bb ff 9e e7 00 ff.word $ffb0,$ffbb,$e79e,$ff00; ushort
[b83a]50 ff bc ff cd a6 00 ff.word $ff50,$ffbc,$a6cd,$ff00; ushort
[b842]3a ff 02 ff e2 de 00 ff.word $ff3a,$ff02,$dee2,$ff00; ushort
[b84a]42 ff 3a ff c5 33 00 ff.word $ff42,$ff3a,$33c5,$ff00; ushort
[b852]d2 ff 67 ff 5b 7d 00 ff.word $ffd2,$ff67,$7d5b,$ff00; ushort
[b85a]6e ff d9 ff fd 59 00 ff.word $ff6e,$ffd9,$59fd,$ff00; ushort
[b862]80 ff 0c ff 02 df 00 ff.word $ff80,$ff0c,$df02,$ff00; ushort
[b86a]a4 ff 9a ff 93 ff 00 ff.word $ffa4,$ff9a,$ff93,$ff00; ushort
[b872]06 ff a7 ff 7e df 00 f7.word $ff06,$ffa7,$df7e,$f700; ushort
[b87a]3d ff 71 ff ee 4f 00 ff.word $ff3d,$ff71,$4fee,$ff00; ushort
[b882]04 ff 10 ff c8 bb 00 ff.word $ff04,$ff10,$bbc8,$ff00; ushort
[b88a]12 ff 2f ff f5 74 00 ff.word $ff12,$ff2f,$74f5,$ff00; ushort
[b892]30 ff f3 ff 5e 55 00 ff.word $ff30,$fff3,$555e,$ff00; ushort
[b89a]c2 ff de ff b6 b4 00 ff.word $ffc2,$ffde,$b4b6,$ff00; ushort
[b8a2]81 ff 6a ff f7 fd 00 ff.word $ff81,$ff6a,$fdf7,$ff00; ushort
[b8aa]93 ff 24 ff 47 b6 00 ff.word $ff93,$ff24,$b647,$ff00; ushort
[b8b2]45 ff 6b ff 17 37 00 ff.word $ff45,$ff6b,$3717,$ff00; ushort
[b8ba]88 ff 76 ff 7f 2f 00 ff.word $ff88,$ff76,$2f7f,$ff00; ushort
[b8c2]00 ff be ff 9a fd 00 ff.word $ff00,$ffbe,$fd9a,$ff00; ushort
[b8ca]b2 ff db ff dc af 00 f7.word $ffb2,$ffdb,$afdc,$f700; ushort
[b8d2]aa ff 7e ff ed df 00 ff.word $ffaa,$ff7e,$dfed,$ff00; ushort
[b8da]68 ff ed ff bb 7c 00 ff.word $ff68,$ffed,$7cbb,$ff00; ushort
[b8e2]20 ff 12 ff 39 8b 00 ff.word $ff20,$ff12,$8b39,$ff00; ushort
[b8ea]70 ff e0 ff 1c 9d 00 ff.word $ff70,$ffe0,$9d1c,$ff00; ushort
[b8f2]67 ff 83 fd f4 93 00 ff.word $ff67,$fd83,$93f4,$ff00; ushort
[b8fa]19 ff 79 ff bf 7f 00 ff.word $ff19,$ff79,$7fbf,$ff00; ushort
[b902]a1 ff 3a ff 8a f7 00 ff.word $ffa1,$ff3a,$f78a,$ff00; ushort
[b90a]84 ff 5e ff b5 6b 00 ff.word $ff84,$ff5e,$6bb5,$ff00; ushort
[b912]b0 ff 65 ff d6 f9 00 ff.word $ffb0,$ff65,$f9d6,$ff00; ushort
[b91a]72 ff 7b ff 74 8d 00 ff.word $ff72,$ff7b,$8d74,$ff00; ushort
[b922]08 ff 0d ff 5d bd 00 ff.word $ff08,$ff0d,$bd5d,$ff00; ushort
[b92a]00 ff 82 ff 7a 3f 00 ff.word $ff00,$ff82,$3f7a,$ff00; ushort
[b932]e2 ff b2 ff a4 7e 00 ff.word $ffe2,$ffb2,$7ea4,$ff00; ushort
[b93a]e7 ff 95 fe b5 af 00 ff.word $ffe7,$fe95,$afb5,$ff00; ushort
[b942]80 ff 10 ff 31 f8 00 ff.word $ff80,$ff10,$f831,$ff00; ushort
[b94a]40 ff 6a ff 7e ff 00 ff.word $ff40,$ff6a,$ff7e,$ff00; ushort
[b952]45 ff 5d ff 21 67 00 ff.word $ff45,$ff5d,$6721,$ff00; ushort
[b95a]c0 ff af ff 85 e3 00 ff.word $ffc0,$ffaf,$e385,$ff00; ushort
[b962]00 ff 12 ff 97 cf 00 ff.word $ff00,$ff12,$cf97,$ff00; ushort
[b96a]b0 ff 63 ff b8 ce 00 ff.word $ffb0,$ff63,$ceb8,$ff00; ushort
[b972]fa ff 3b ff a3 e5 00 ff.word $fffa,$ff3b,$e5a3,$ff00; ushort
[b97a]60 ff 5b ff 89 76 00 ff.word $ff60,$ff5b,$7689,$ff00; ushort
[b982]80 ff 52 ff 52 7e 00 ff.word $ff80,$ff52,$7e52,$ff00; ushort
[b98a]a0 ff 1f ff 66 d7 00 ff.word $ffa0,$ff1f,$d766,$ff00; ushort
[b992]76 ff 9d ff f9 14 00 ff.word $ff76,$ff9d,$14f9,$ff00; ushort
[b99a]ff ff 2f ff f7 52 00 ff.word $ffff,$ff2f,$52f7,$ff00; ushort
[b9a2]9c ff 04 ff 76 ff 00 ff.word $ff9c,$ff04,$ff76,$ff00; ushort
[b9aa]94 ff 72 ff 7f 4e 00 ff.word $ff94,$ff72,$4e7f,$ff00; ushort
[b9b2]a7 ff c7 ff 66 6d 00 ff.word $ffa7,$ffc7,$6d66,$ff00; ushort
[b9ba]9d ff 7f ff 7c 26 00 ff.word $ff9d,$ff7f,$267c,$ff00; ushort
[b9c2]26 ff c7 ff 72 ff 00 ff.word $ff26,$ffc7,$ff72,$ff00; ushort
[b9ca]31 ff b7 ff 7e e9 00 ff.word $ff31,$ffb7,$e97e,$ff00; ushort
[b9d2]bc ff de ff e7 e4 00 ff.word $ffbc,$ffde,$e4e7,$ff00; ushort
[b9da]7b ff f2 fe f3 eb 00 ff.word $ff7b,$fef2,$ebf3,$ff00; ushort
[b9e2]e8 ff 32 ff 9d f7 00 ff.word $ffe8,$ff32,$f79d,$ff00; ushort
[b9ea]80 ff 36 ff 9c ff 00 ff.word $ff80,$ff36,$ff9c,$ff00; ushort
[b9f2]88 ff eb ff eb a7 00 ff.word $ff88,$ffeb,$a7eb,$ff00; ushort
[b9fa]8f ff 77 ff df 79 00 ff.word $ff8f,$ff77,$79df,$ff00; ushort
[ba02]fa ff a6 ff cd ff 00 ff.word $fffa,$ffa6,$ffcd,$ff00; ushort
[ba0a]a0 ff b4 ff 52 eb 00 ff.word $ffa0,$ffb4,$eb52,$ff00; ushort
[ba12]dc ff be ff c5 6d 00 ff.word $ffdc,$ffbe,$6dc5,$ff00; ushort
[ba1a]63 ff fd ff a2 42 00 ff.word $ff63,$fffd,$42a2,$ff00; ushort
[ba22]a4 ff c1 ff 88 fd 00 ff.word $ffa4,$ffc1,$fd88,$ff00; ushort
[ba2a]30 ff 6a ff 92 7d 00 ff.word $ff30,$ff6a,$7d92,$ff00; ushort
[ba32]70 ff bb ff 76 ff 00 ff.word $ff70,$ffbb,$ff76,$ff00; ushort
[ba3a]b4 ff f5 ff fe dc 00 ff.word $ffb4,$fff5,$dcfe,$ff00; ushort
[ba42]80 ff 37 ff a4 e7 00 ff.word $ff80,$ff37,$e7a4,$ff00; ushort
[ba4a]40 ff 43 ff 7d f7 00 ff.word $ff40,$ff43,$f77d,$ff00; ushort
[ba52]12 ff f1 ff 57 df 00 ff.word $ff12,$fff1,$df57,$ff00; ushort
[ba5a]d7 ff c5 ff 3b e7 00 ff.word $ffd7,$ffc5,$e73b,$ff00; ushort
[ba62]6c ff de ff 98 5a 00 ff.word $ff6c,$ffde,$5a98,$ff00; ushort
[ba6a]82 ff 8e ff 23 5e 00 ff.word $ff82,$ff8e,$5e23,$ff00; ushort
[ba72]06 ff bd ff a7 6f 00 ff.word $ff06,$ffbd,$6fa7,$ff00; ushort
[ba7a]bc ff eb ff 55 0b 00 ff.word $ffbc,$ffeb,$0b55,$ff00; ushort
[ba82]a1 ff cd ff 15 d7 00 ff.word $ffa1,$ffcd,$d715,$ff00; ushort
[ba8a]a2 ff ca ff 2b 8f 00 ff.word $ffa2,$ffca,$8f2b,$ff00; ushort
[ba92]6f ff fe ff db 68 00 ff.word $ff6f,$fffe,$68db,$ff00; ushort
[ba9a]b8 ff d7 ff df 55 00 ff.word $ffb8,$ffd7,$55df,$ff00; ushort
[baa2]b4 ff 06 ff cd bf 00 ff.word $ffb4,$ff06,$bfcd,$ff00; ushort
[baaa]d0 ff 78 ff e6 ed 00 ff.word $ffd0,$ff78,$ede6,$ff00; ushort
[bab2]e4 ff dd ff ba ce 00 ff.word $ffe4,$ffdd,$ceba,$ff00; ushort
[baba]4d ff df ff c5 95 00 ff.word $ff4d,$ffdf,$95c5,$ff00; ushort
[bac2]2a ff ed ff 36 fe 00 ff.word $ff2a,$ffed,$fe36,$ff00; ushort
[baca]00 ff c3 ff 7f df 00 ff.word $ff00,$ffc3,$df7f,$ff00; ushort
[bad2]40 ff f5 fb b1 ec 00 ff.word $ff40,$fbf5,$ecb1,$ff00; ushort
[bada]d8 ff df ff 7d bf 00 df.word $ffd8,$ffdf,$bf7d,$df00; ushort
[bae2]04 ff b5 ff e7 af 00 ff.word $ff04,$ffb5,$afe7,$ff00; ushort
[baea]00 ff 51 ff ff d3 00 ff.word $ff00,$ff51,$d3ff,$ff00; ushort
[baf2]95 ff 74 ff e4 8f 00 ff.word $ff95,$ff74,$8fe4,$ff00; ushort
[bafa]c1 ff 7f ff 7f 54 00 ff.word $ffc1,$ff7f,$547f,$ff00; ushort
[bb02]40 ff 0f ff d9 3f 00 ff.word $ff40,$ff0f,$3fd9,$ff00; ushort
[bb0a]44 ff 4d ff bf cf 00 ff.word $ff44,$ff4d,$cfbf,$ff00; ushort
[bb12]32 ff f9 ff ab f7 00 ff.word $ff32,$fff9,$f7ab,$ff00; ushort
[bb1a]f1 ff df af 7f 02 00 ff.word $fff1,$afdf,$027f,$ff00; ushort
[bb22]54 ff 23 ff 59 9f 00 ff.word $ff54,$ff23,$9f59,$ff00; ushort
[bb2a]07 ff b1 ff a4 ef 00 ff.word $ff07,$ffb1,$efa4,$ff00; ushort
[bb32]30 ff 66 ff 6e de 00 ff.word $ff30,$ff66,$de6e,$ff00; ushort
[bb3a]e2 ff 6f ff fb bd 00 ff.word $ffe2,$ff6f,$bdfb,$ff00; ushort
[bb42]85 ff 27 ff 13 fb 00 ff.word $ff85,$ff27,$fb13,$ff00; ushort
[bb4a]08 ff 52 ff de bd 00 ff.word $ff08,$ff52,$bdde,$ff00; ushort
[bb52]be ff bb ff ee b7 00 ff.word $ffbe,$ffbb,$b7ee,$ff00; ushort
[bb5a]23 ff f7 ff 7f ae 00 ff.word $ff23,$fff7,$ae7f,$ff00; ushort
[bb62]00 ff 8b ff 31 ef 00 ff.word $ff00,$ff8b,$ef31,$ff00; ushort
[bb6a]c1 ff 80 ff 9b 7f 00 ff.word $ffc1,$ff80,$7f9b,$ff00; ushort
[bb72]76 ff b0 ff 3f b3 00 ff.word $ff76,$ffb0,$b33f,$ff00; ushort
[bb7a]55 ff bf ff 79 aa 00 ff.word $ff55,$ffbf,$aa79,$ff00; ushort
[bb82]11 ff c4 ff 38 8f 00 ff.word $ff11,$ffc4,$8f38,$ff00; ushort
[bb8a]53 ff e0 ff 0a e1 00 ff.word $ff53,$ffe0,$e10a,$ff00; ushort
[bb92]03 ff 7e ff 5e f7 00 ff.word $ff03,$ff7e,$f75e,$ff00; ushort
[bb9a]62 ff f3 ff 5e 35 00 ff.word $ff62,$fff3,$355e,$ff00; ushort
[bba2]54 ff 41 ff 2e df 00 ff.word $ff54,$ff41,$df2e,$ff00; ushort
[bbaa]03 ff 6c ff b5 5f 00 ff.word $ff03,$ff6c,$5fb5,$ff00; ushort
[bbb2]c4 ff e2 ff 5e df 00 ff.word $ffc4,$ffe2,$df5e,$ff00; ushort
[bbba]f6 ff 5f ff a5 0f 00 ff.word $fff6,$ff5f,$0fa5,$ff00; ushort
[bbc2]c1 ff 21 ff 4f 43 00 ff.word $ffc1,$ff21,$434f,$ff00; ushort
[bbca]48 ff 15 ff e0 df 00 ff.word $ff48,$ff15,$dfe0,$ff00; ushort
[bbd2]64 ff 34 ff b1 7d 00 ff.word $ff64,$ff34,$7db1,$ff00; ushort
[bbda]f8 ff ff ff bc 2d 00 ff.word $fff8,$ffff,$2dbc,$ff00; ushort
[bbe2]09 ff e6 ff 4d f6 00 ff.word $ff09,$ffe6,$f64d,$ff00; ushort
[bbea]60 ff 81 ff 15 af 00 ff.word $ff60,$ff81,$af15,$ff00; ushort
[bbf2]30 ff a3 ff ba 3a 20 ff.word $ff30,$ffa3,$3aba,$ff20; ushort
[bbfa]53 ff 15 ff ed ae 00 ff.word $ff53,$ff15,$aeed,$ff00; ushort
[bc02]21 ff 95 ff b3 fe 00 ff.word $ff21,$ff95,$feb3,$ff00; ushort
[bc0a]cc ff c5 ff 63 2f 00 ff.word $ffcc,$ffc5,$2f63,$ff00; ushort
[bc12]68 ff 3a ff 7e ee 00 ff.word $ff68,$ff3a,$ee7e,$ff00; ushort
[bc1a]b4 ff 5b ff 6e 31 00 ff.word $ffb4,$ff5b,$316e,$ff00; ushort
[bc22]10 ff cf ff 98 e7 00 ff.word $ff10,$ffcf,$e798,$ff00; ushort
[bc2a]60 ff a7 ff 21 3f 00 ff.word $ff60,$ffa7,$3f21,$ff00; ushort
[bc32]10 ff ef ff cd eb 00 ff.word $ff10,$ffef,$ebcd,$ff00; ushort
[bc3a]2e ff ff ff c0 5e 00 ff.word $ff2e,$ffff,$5ec0,$ff00; ushort
[bc42]00 ff be ff 31 ff 00 ff.word $ff00,$ffbe,$ff31,$ff00; ushort
[bc4a]02 ff de ff 8a ff 00 ff.word $ff02,$ffde,$ff8a,$ff00; ushort
[bc52]42 ff be ff b8 9c 00 ff.word $ff42,$ffbe,$9cb8,$ff00; ushort
[bc5a]95 ff ed ff fc 2e 00 ff.word $ff95,$ffed,$2efc,$ff00; ushort
[bc62]04 ff f5 ff 15 cf 00 ff.word $ff04,$fff5,$cf15,$ff00; ushort
[bc6a]4e ff ee ff 28 dc 00 ff.word $ff4e,$ffee,$dc28,$ff00; ushort
[bc72]0a ff f1 ff 5d 76 00 ff.word $ff0a,$fff1,$765d,$ff00; ushort
[bc7a]b1 ff 97 ff 6b 7a 00 ff.word $ffb1,$ff97,$7a6b,$ff00; ushort
[bc82]85 ff 39 ff 15 cf 00 ff.word $ff85,$ff39,$cf15,$ff00; ushort
[bc8a]c6 ff cb ff fb 77 00 ff.word $ffc6,$ffcb,$77fb,$ff00; ushort
[bc92]1f ff d7 ff ac e1 00 ff.word $ff1f,$ffd7,$e1ac,$ff00; ushort
[bc9a]1a ff c8 ef 55 e8 00 ff.word $ff1a,$efc8,$e855,$ff00; ushort
[bca2]8a ff ea ff f4 bd 00 ff.word $ff8a,$ffea,$bdf4,$ff00; ushort
[bcaa]80 ff 2f ff d7 ef 00 ff.word $ff80,$ff2f,$efd7,$ff00; ushort
[bcb2]72 ff 45 ff f3 fd 00 ff.word $ff72,$ff45,$fdf3,$ff00; ushort
[bcba]ef ff ef ff 8d 23 00 ff.word $ffef,$ffef,$238d,$ff00; ushort
[bcc2]20 ff 91 ff 9c ed 00 ff.word $ff20,$ff91,$ed9c,$ff00; ushort
[bcca]45 ff aa ff 93 ee 00 ff.word $ff45,$ffaa,$ee93,$ff00; ushort
[bcd2]06 ff 4f ff a3 9f 00 ff.word $ff06,$ff4f,$9fa3,$ff00; ushort
[bcda]dd ff ff ff fb 0d 00 ff.word $ffdd,$ffff,$0dfb,$ff00; ushort
[bce2]28 ff 05 ff 2b 6d 00 ff.word $ff28,$ff05,$6d2b,$ff00; ushort
[bcea]d2 ff 51 ff bc fd 00 ff.word $ffd2,$ff51,$fdbc,$ff00; ushort
[bcf2]45 ff 86 ff a0 fa 00 ff.word $ff45,$ff86,$faa0,$ff00; ushort
[bcfa]b2 ff af ff 71 14 00 ff.word $ffb2,$ffaf,$1471,$ff00; ushort
[bd02]20 ff 53 ff 57 ff 00 ff.word $ff20,$ff53,$ff57,$ff00; ushort
[bd0a]f5 ff bf ff 35 fd 01 ff.word $fff5,$ffbf,$fd35,$ff01; ushort
[bd12]93 ff e6 ff bd e8 00 ff.word $ff93,$ffe6,$e8bd,$ff00; ushort
[bd1a]5f ff b9 ff b8 ff 00 ff.word $ff5f,$ffb9,$ffb8,$ff00; ushort
[bd22]70 ff 73 ff c6 df 00 ff.word $ff70,$ff73,$dfc6,$ff00; ushort
[bd2a]03 ff 71 ff 89 af 00 ff.word $ff03,$ff71,$af89,$ff00; ushort
[bd32]01 ff ab ff 6d e7 00 ff.word $ff01,$ffab,$e76d,$ff00; ushort
[bd3a]d7 ff 62 ff 36 47 00 ff.word $ffd7,$ff62,$4736,$ff00; ushort
[bd42]40 ff 34 ff 41 ef 00 ff.word $ff40,$ff34,$ef41,$ff00; ushort
[bd4a]b9 ff 39 ff 3e 6e 00 ff.word $ffb9,$ff39,$6e3e,$ff00; ushort
[bd52]af ff 17 ff 3e ff 00 ff.word $ffaf,$ff17,$ff3e,$ff00; ushort
[bd5a]69 ff 5d ff 67 23 00 ff.word $ff69,$ff5d,$2367,$ff00; ushort
[bd62]a2 ff 1a ff f4 db 00 ff.word $ffa2,$ff1a,$dbf4,$ff00; ushort
[bd6a]87 ff b3 ff 68 ae 00 ff.word $ff87,$ffb3,$ae68,$ff00; ushort
[bd72]63 ff 6b ff 65 fd 00 ff.word $ff63,$ff6b,$fd65,$ff00; ushort
[bd7a]09 ff fd ff ef 4c 00 ff.word $ff09,$fffd,$4cef,$ff00; ushort
[bd82]01 ff 65 ff 18 ea 00 ff.word $ff01,$ff65,$ea18,$ff00; ushort
[bd8a]30 ff a3 ff b6 7f 00 ff.word $ff30,$ffa3,$7fb6,$ff00; ushort
[bd92]9f ff ea fe 7f be 00 ff.word $ff9f,$feea,$be7f,$ff00; ushort
[bd9a]de ff 25 ff df 1e 00 ff.word $ffde,$ff25,$1edf,$ff00; ushort
[bda2]11 ff 50 ff 6b 7e 00 ff.word $ff11,$ff50,$7e6b,$ff00; ushort
[bdaa]86 ff f4 ff b5 af 00 ff.word $ff86,$fff4,$afb5,$ff00; ushort
[bdb2]d0 ff e3 ff 3d df 00 ff.word $ffd0,$ffe3,$df3d,$ff00; ushort
[bdba]cd ff ff ff 75 59 00 ff.word $ffcd,$ffff,$5975,$ff00; ushort
[bdc2]19 ff 33 ff 74 bb 00 ff.word $ff19,$ff33,$bb74,$ff00; ushort
[bdca]30 ff ee ff 7e fb 00 ff.word $ff30,$ffee,$fb7e,$ff00; ushort
[bdd2]1a ff f9 ff ed df 00 ff.word $ff1a,$fff9,$dfed,$ff00; ushort
[bdda]1d ff dd ff cf 39 00 ff.word $ff1d,$ffdd,$39cf,$ff00; ushort
[bde2]00 ff de ff c4 97 00 ff.word $ff00,$ffde,$97c4,$ff00; ushort
[bdea]b4 ff d3 ff 99 ff 00 ff.word $ffb4,$ffd3,$ff99,$ff00; ushort
[bdf2]a2 ff e6 7e b7 f7 00 ff.word $ffa2,$7ee6,$f7b7,$ff00; ushort
[bdfa]5c ff b7 ff 5f 34 00 ff.word $ff5c,$ffb7,$345f,$ff00; ushort
[be02]0a ff c4 ff c2 ff 00 ff.word $ff0a,$ffc4,$ffc2,$ff00; ushort
[be0a]40 ff 75 ff 56 be 00 7f.word $ff40,$ff75,$be56,$7f00; ushort
[be12]2c ff 99 ff 9b 7f 00 ff.word $ff2c,$ff99,$7f9b,$ff00; ushort
[be1a]cd ff ff fe dd 29 00 ff.word $ffcd,$feff,$29dd,$ff00; ushort
[be22]02 ff 15 ff 33 df 00 ff.word $ff02,$ff15,$df33,$ff00; ushort
[be2a]04 ff 75 ff 5e a6 00 ff.word $ff04,$ff75,$a65e,$ff00; ushort
[be32]2d ff 23 ff 9f 97 00 ff.word $ff2d,$ff23,$979f,$ff00; ushort
[be3a]5f ff f7 ff 92 03 00 ff.word $ff5f,$fff7,$0392,$ff00; ushort
[be42]68 ff 46 ff 48 fe 00 ff.word $ff68,$ff46,$fe48,$ff00; ushort
[be4a]08 ff 9a ff ed ff 00 ff.word $ff08,$ff9a,$ffed,$ff00; ushort
[be52]24 ff 7f ff 63 f7 00 ff.word $ff24,$ff7f,$f763,$ff00; ushort
[be5a]28 ff 7d ff 5a dd 00 ff.word $ff28,$ff7d,$dd5a,$ff00; ushort
[be62]15 ff 02 ff 0a fd 00 ff.word $ff15,$ff02,$fd0a,$ff00; ushort
[be6a]06 ff 7c ff d2 38 00 ff.word $ff06,$ff7c,$38d2,$ff00; ushort
[be72]33 ff 7b ff 6f c2 00 ff.word $ff33,$ff7b,$c26f,$ff00; ushort
[be7a]a9 ff a8 ff db dd 00 ff.word $ffa9,$ffa8,$dddb,$ff00; ushort
[be82]c0 ff bb ff fc 6b 00 ff.word $ffc0,$ffbb,$6bfc,$ff00; ushort
[be8a]70 ff b1 ff 49 bf 00 ff.word $ff70,$ffb1,$bf49,$ff00; ushort
[be92]56 ff bc ff e5 a6 00 ff.word $ff56,$ffbc,$a6e5,$ff00; ushort
[be9a]0c ff 73 ff ed e7 00 ff.word $ff0c,$ff73,$e7ed,$ff00; ushort
[bea2]aa ff 27 ff 41 5b 00 ff.word $ffaa,$ff27,$5b41,$ff00; ushort
[beaa]09 ff 7c fb ee ef 00 ff.word $ff09,$fb7c,$efee,$ff00; ushort
[beb2]68 ff f8 ff 53 6c 00 ff.word $ff68,$fff8,$6c53,$ff00; ushort
[beba]39 ff ff ff 7b b8 00 ff.word $ff39,$ffff,$b87b,$ff00; ushort
[bec2]80 ff 66 ff 65 7c 00 ff.word $ff80,$ff66,$7c65,$ff00; ushort
[beca]dd ff ff ff 9b 83 00 ff.word $ffdd,$ffff,$839b,$ff00; ushort
[bed2]61 ef c7 df 70 f5 00 ff.word $ef61,$dfc7,$f570,$ff00; ushort
[beda]ed ff fa ff b3 4c 00 ff.word $ffed,$fffa,$4cb3,$ff00; ushort
[bee2]08 ff 6b ff 10 97 00 ff.word $ff08,$ff6b,$9710,$ff00; ushort
[beea]a0 ff 62 ff cd ee 00 ff.word $ffa0,$ff62,$eecd,$ff00; ushort
[bef2]50 ff fd ff 75 ef 00 ff.word $ff50,$fffd,$ef75,$ff00; ushort
[befa]20 ff 1f ff d9 7b 00 ff.word $ff20,$ff1f,$7bd9,$ff00; ushort
[bf02]ae ff 9d ff e3 ff 00 ef.word $ffae,$ff9d,$ffe3,$ef00; ushort
[bf0a]82 ff 95 ff 9e ff 00 ff.word $ff82,$ff95,$ff9e,$ff00; ushort
[bf12]c3 ff e7 ff ed 6f 00 ff.word $ffc3,$ffe7,$6fed,$ff00; ushort
[bf1a]c0 ff 37 ff ff fe 00 ff.word $ffc0,$ff37,$feff,$ff00; ushort
[bf22]11 ff 64 ff c3 df 00 ff.word $ff11,$ff64,$dfc3,$ff00; ushort
[bf2a]76 ff 2e ff 9b cb 00 ff.word $ff76,$ff2e,$cb9b,$ff00; ushort
[bf32]1a ff ed ff 45 b9 00 ff.word $ff1a,$ffed,$b945,$ff00; ushort
[bf3a]cf ff eb ff 15 c7 00 ff.word $ffcf,$ffeb,$c715,$ff00; ushort
[bf42]5e ff 21 ff 23 ef 00 ff.word $ff5e,$ff21,$ef23,$ff00; ushort
[bf4a]31 ff f0 ff b7 75 00 ff.word $ff31,$fff0,$75b7,$ff00; ushort
[bf52]12 ff 3e ff de de 00 ff.word $ff12,$ff3e,$dede,$ff00; ushort
[bf5a]45 ff f8 ff eb 9f 00 ff.word $ff45,$fff8,$9feb,$ff00; ushort
[bf62]b9 ff 17 ff 3f fe 00 ff.word $ffb9,$ff17,$fe3f,$ff00; ushort
[bf6a]24 ff fc ff e9 bd 00 ff.word $ff24,$fffc,$bde9,$ff00; ushort
[bf72]fc ff f1 ff 54 bb 00 ff.word $fffc,$fff1,$bb54,$ff00; ushort
[bf7a]c4 ff aa ff 53 7b 00 ff.word $ffc4,$ffaa,$7b53,$ff00; ushort
[bf82]d0 ff 12 ff b6 ef 00 ff.word $ffd0,$ff12,$efb6,$ff00; ushort
[bf8a]a1 ff 48 ff ca b6 00 ff.word $ffa1,$ff48,$b6ca,$ff00; ushort
[bf92]79 ff 51 ff 72 3f 00 ff.word $ff79,$ff51,$3f72,$ff00; ushort
[bf9a]7a ff 73 ff f2 99 00 ff.word $ff7a,$ff73,$99f2,$ff00; ushort
[bfa2]41 ff d4 ff 19 ff 00 ff.word $ff41,$ffd4,$ff19,$ff00; ushort
[bfaa]c0 ff 5c ff 98 c7 00 ff.word $ffc0,$ff5c,$c798,$ff00; ushort
[bfb2]6a ff 7a ff 9c be 00 ff.word $ff6a,$ff7a,$be9c,$ff00; ushort
[bfba]7d ff fd ff a6 8e 00 ff.word $ff7d,$fffd,$8ea6,$ff00; ushort
[bfc2]29 ff db ff 83 91 00 ff.word $ff29,$ffdb,$9183,$ff00; ushort
[bfca]81 ff b5 ff aa 79 00 ff.word $ff81,$ffb5,$79aa,$ff00; ushort
[bfd2]0c ff fe ff bf e3 00 ff.word $ff0c,$fffe,$e3bf,$ff00; ushort
[bfda]a6 ff da ff fa fa 00 ff.word $ffa6,$ffda,$fafa,$ff00; ushort
[bfe2]46 ff 65 ff e2 7d 00 ff.word $ff46,$ff65,$7de2,$ff00; ushort
[bfea]fa ff f5 ff 98 d6 00 ff.word $fffa,$fff5,$d698,$ff00; ushort
[bff2]22 ff f5 ff f6 b3 00 ff.word $ff22,$fff5,$b3f6,$ff00; ushort
[bffa]a2 ff f7 ff fe bf.word $ffa2,$fff7,$bffe; ushort