****************************************************************
*
* Init Sound DOC
*
****************************************************************
ProDOS         gequ $e100a8
               longa on
               longi on

InitSound      START ReggaeMan

               Using InstDef
               Using PictureBuffer
               Using SequenceNotes
               Using SeqEffects1
               Using SeqEffects2

               ldx #$00
               lda #$8080
bcle           sta >WaveBuffer,x                ; 256 bytes buffer
               inx
               inx
               cpx #256
               bne bcle

               sei

               PushLong #WaveBuffer             ; Copy to DOC ram 256 $80 bytes
               PushWord #0                      ; to make sure that there are no
               PushWord #256                    ; $00 bytes that would stop the
               _WriteRamBlock                   ; oscilator.

               sep #$20
               longa off

bcleWait       lda >$E1C03C
               bmi bcleWait
               ora #%00100000
               and #%10111111
               sta >$E1C03C

               lda #$40
               sta >$E1C03E             ; Set Volume Registers
               ldy #0
               lda #0                   ; Volume=0
bcleWrite1     sta >$E1C03D
               iny
               cpy #30
               bne bcleWrite1

               lda #$80
               sta >$E1C03E             ; Set Wavetable Pointer Registers
               ldy #0
               lda #0                   ; Wavetable Pointer register=0
bcleWrite2     sta >$E1C03D
               iny
               cpy #30
               bne bcleWrite2

               lda #$A0
               sta >$E1C03E             ; Set Control Registers
               ldy #0
bcleWrite3     lda #1                   ; Control Byte=1 (osc. stopped)
               sta >$E1C03D
               iny
               cpy #30
               bne bcleWrite3

               lda #$C0
               sta >$E1C03E             ; Set Wavetable Size Registers
               ldy #0
bcleWrite4     lda #0                   ; Size=0
               sta >$E1C03D
               iny
               cpy #30
               bne bcleWrite4

               lda #$00
               sta >$E1C03E
               lda #$FA
               sta >$E1C03D             ; Frequency low 0=$7D =50Hz
               lda #$20
               sta >$E1C03E
               lda #$0
               sta >$E1C03D             ; Frequency high 0=0

               lda #$E1
               sta >$E1C03E
               lda #60
               sta >$E1C03D             ; 30 osc. enabled

               lda #$A0
               sta >$E1C03E
               lda #$8
               sta >$E1C03D             ; Osc 0 generates interrupts

               rep #$20
               longa on

               cli

               rts


****************************************************************
*
* Load Music
*
****************************************************************
LoadMusic      ENTRY

               Using SequenceNotes
               Using SeqEffects1
               Using SeqEffects2
               Using InstDef

               PushLong #Parmblock
               PushWord #$2010          ; Open
               jsl GSOS
               jsl ProDOSErrJSL

               lda parmblock+2
               sta parmblock2+2
               sta parmblock3+2
               sta parmblock4+2
               sta parmblock5+2
               sta parmblock6+2
               sta parmblock7+2

               PushLong #Parmblock2
               PushWord #$2012          ; Read Header
               jsl GSOS
               jsl ProDOSErrJSL

               ldx #44
               ldy #0
bcleSetVolume  lda >HeaderBuffer,x
               sta VolumeTable,y
               iny
               iny
               txa
               clc
               adc #30
               tax
               cmp #470
               bcc bcleSetVolume

ReadFile       lda >HeaderBuffer+6
               sta Length
               sta Length2
               sta Length3

               PushLong #Parmblock3
               PushWord #$2012          ; Read Notes
               jsl GSOS
               jsl ProDOSErrJSL

               PushLong #Parmblock4
               PushWord #$2012          ; Read Effects1
               jsl GSOS
               jsl ProDOSErrJSL

               PushLong #Parmblock5
               PushWord #$2012          ; Read Effects2
               jsl GSOS
               jsl ProDOSErrJSL

               PushLong #Parmblock6
               PushWord #$2012          ; Read Stereo
               jsl GSOS
               jsl ProDOSErrJSL

               PushLong #Parmblock7
               PushWord #$2014          ; Close
               jsl GSOS
               jsl ProDOSErrJSL

               rts

               MSB OFF
MusicPathname  dc i2'MusicPNEnd-MusicPathName-2'
               dc c'1/PnP.Datas/PnP.sng'       ;Song !!!
MusicPNEnd     anop

parmblock      dc i2'2'
               ds 2                     ; ref_num
               dc i4'MusicPathname'     ; pathname

parmblock2     dc i2'4'
               ds 2                     ; ref_num
               dc i4'HeaderBuffer'      ; data_buffer
               dc i4'600'               ; request_count
               ds 4                     ; transfer_count

parmblock3     dc i2'4'
               ds 2                     ; ref_num
               dc i4'Notes'             ; data_buffer
Length         dc i4'$0000'             ; request_count
               ds 4                     ; transfer_count

parmblock4     dc i2'4'
               ds 2                     ; ref_num
               dc i4'Effects1'          ; data_buffer
Length2        dc i4'$0000'             ; request_count
               ds 4                     ; transfer_count

parmblock5     dc i2'4'
               ds 2                     ; ref_num
               dc i4'Effects2'          ; data_buffer
Length3        dc i4'$0000'             ; request_count
               ds 4                     ; transfer_count

parmblock6     dc i2'4'
               ds 2                     ; ref_num
               dc i4'StereoTable'       ; data_buffer
               dc i4'30'                ; request_count
               ds 4                     ; transfer_count

parmblock7     dc i2'1'
               ds 2

LoadDOCFile    anop

               PushLong #Parmblock8
               PushWord #$2010          ; Open
               jsl GSOS
               jsl ProDOSErrJSL

               lda parmblock8+2
               sta parmblock10+2
               sta parmblock11+2
               sta parmblock12+2
               sta parmblock13+2

               PushLong #Parmblock10
               PushWord #$2012          ; Read Index
               jsl GSOS
               jsl ProDOSErrJSL

               PushLong #Parmblock11
               PushWord #$2012          ; Read wbk
               jsl GSOS
               jsl ProDOSErrJSL

WaveReadOk     anop
               ldx InstIndex
               lda #0
bcleCalc       cpx #0
               beq EndCalc
               dex
               clc
               adc #92
               bra bcleCalc

EndCalc        sta InstLength

               PushLong #Parmblock12
               PushWord #$2012          ; Read Instruments
               jsl GSOS
               jsl ProDOSErrJSL

               PushLong #Parmblock13
               PushWord #$2014          ; Close
               jsl GSOS
               jsl ProDOSErrJSL

               rts




Write2DOC      sei

               PushLong #WaveBuffer     ; PicBuf
               Pushword #$000           ; doc start address
               PushWord #$FFFF          ; byte count
               _WriteRamBlock

               cli

               rts






InitSmith      ENTRY
               phb
               phk
               plb
               jsr InitSound
               plb
               rtl
LoadMusic2     ENTRY
               phb
               phk
               plb
               jsr LoadMusic
               plb
               rtl
LoadMusic4     ENTRY
               phb
               phk
               plb
               jsr LoadDOCFile
               plb
               rtl
WriteDOC2      ENTRY
               phb
               phk
               plb
               jsr Write2DOC
               plb
               rtl
Play2          ENTRY
               phb
               phk
               plb
               jsr Play
               plb
               rtl


****************************************************************
*                                                              *
* Play the music                                               *
*                                                              *
****************************************************************
Play           anop

               PushLong #SoundIRQrtn
               _SetSoundMIRQV

               stz Timer
               lda >HeaderBuffer+8
               sta Tempo
               lda >HeaderBuffer+470
               and #%0000000011111111
               sta NumberOfBlocks               ; If NumberOfBlocks=0
               beq SkipPlay                     ; do not play.
               stz NotePlayed
               stz BlockIndex
               lda >HeaderBuffer+472
               and #%0000000011111111
               asl a
               tax
               lda BlockTable,x
               sta NoteIndex
               lda #1
               sta Performing

SkipPlay       rts



FatalError     ENTRY
               brk $0
               brk $0
               dc c'SoundS... error'

DOCStr         dc i2'DOCStrEnd-DOCStr-2'
               dc c'1/PnP.Datas/PnP.wbk'       ; WaveBank !!!
DOCStrEnd      anop

parmblock8     dc i2'2'
               ds 2                     ; ref_num
               dc i4'DOCStr'            ; pathname

parmblock10    dc i2'4'
               ds 2                     ; ref_num
               dc i4'InstIndex'         ; data_buffer
               dc i4'$0002'             ; request_count
               ds 4                     ; transfer_count

parmblock11    dc i2'4'
               ds 2                     ; ref_num
               dc i4'WaveBuffer'        ; data_buffer
               dc i4'$10000'            ; request_count
               ds 4                     ; transfer_count

parmblock12    dc i2'4'
               ds 2                     ; ref_num
               dc i4'Instrument1'       ; data_buffer
instlength     dc i4'0000'              ; request_count
               ds 4                     ; transfer_count

parmblock13    dc i2'1'
               ds 2


****************************************************************
*                                                              *
* Sound IRQ routine  (This routine is called 50 times/second)  *
*                                                              *
****************************************************************
SoundIRQrtn    anop

               longa off
               longi off

               phb
               phd

               rep #$30
               lda >MyZP
               tcd
               sep #$30

               phk
               plb

               lda Performing
               bne BcleWaitUn
               jmp Stopped

BcleWaitUn     anop
               lda >$E1C03C
               bmi BcleWaitUn
               and #%10011111           ; Disable auto-inc. and access DOC reg.
               sta >$E1C03C

               lda #$E0
               sta >$E1C03E             ; Read Interrupt register to find out
               lda >$E1C03D             ; wich osc. generated the interrupt.
               lda >$E1C03D
               and #%01111111
               sta >$E1C03D

               and #%00111110           ; If it is osc. #0 then it means that
               lsr a                    ; it is the 50Hz interrupt.
               beq TimerInterrupt

               clc                      ; If osc<>#0 then find wich pair of
               adc #$A0                 ; osc. caused the interrupt.

               sta >$E1C03E             ; Then we clear the interrupt bit
               lda >$E1C03D             ; of the first osc. of that pair
               lda >$E1C03D             ; and we launch the second one.
               bit #%00001000           ; This may  be used in future versions
               beq Stopped              ; of SoundSmith to allow instruments to
               and #%11111110           ; loop smoothly.
               sta >$E1C03D

Stopped        clc

               pld
               plb

               rtl

TimerInterrupt lda Performing           ; Performing is used to know if the
               bne WeCanPlay            ; music must be played. Set Performing
               jmp EndInterrupt         ; to 0/1 to stop/play the music.

WeCanPlay      stz Temporary            ; Temporary contains the number of the
!                                       ; track that is being processed.
               inc Timer
               lda Timer                ; If Timer=Tempo, play the notes.
               cmp Tempo                ; Else, handle Arpegiatto effects.
               beq PlayTracks

               jmp HandleEffects

PlayTracks     stz Timer                ; resets the Timer

NewTrack       rep #$30
               longa on
               longi on

               lda Temporary
               asl a
               tax
               lda ActiveTrkTable,x     ; Look if the current track is active
               beq TrackActive          ; (0=active, $FFFF=inactive)

               inc NoteIndex            ; If the track is inactive, skip it.
               inc Temporary            ; (You can save much processor time by
               lda Temporary            ; disabling the unused tracks!)
               cmp #14
               bne NewTrack

               jmp EndPlay              ; When all 14 tracks have been played,
!                                       ; exit
TrackActive    sep #$20
               longa off

               ldx NoteIndex
               lda >Notes,x             ; Reads the note to play.

               rep #$20
               longa on

               and #%0000000011111111
               beq NotValid
               cmp #128                 ; If the value of the note is >=128,
               bcs NotValid             ; then it means that it's a command.
               bra NoteFound

NotValid       inc NoteIndex            ; Point to next note (x register still
!                                         points to the current note)

               cmp #128                 ; is it STP ?
               bne NotSTP

               sep #$20
               longa off

               lda >$E1C03C             ; disable auto-increment
               and #%10011111
               sta >$E1C03C

               lda Temporary            ; Stops the osc. pair used to play
               inc a                    ; the current track
               asl a
               sta OscNumber
               clc
               adc #$A0
               sta >$E1C03E
               lda #$01
               sta >$E1C03D             ; Stop osc.a
               lda OscNumber
               clc
               adc #$A1
               sta >$E1C03E
               lda #$01
               sta >$E1C03D             ; Stop osc.b

NotACommand    sep #$20
               longa off

               inc Temporary            ; Handle next track.
               lda Temporary
               cmp #14
               beq NoMoreTracks
               jmp NewTrack

NotSTP         longa on
               cmp #129                 ; is it NXT ?
               bne NotACommand

               lda #63                  ; this will cause the player to jump
               sta NotePlayed           ; to the next block when the line of
!                                       ; notes is completed.
               bra NotACommand

NoMoreTracks   rep #$20
               longa on

               jmp EndPlay

NoteFound      sta Semitone             ; Save the note that we read.

               sep #$20
               longa off

               lda >Effects1,x          ; Read the sample number. If its value
               ldy Temporary            ; is 0, we must use the sample played
               and #%11110000           ; last.
               bne ThereIsASample
               lda SampleTable,y
ThereIsASample sta SampleTable,y        ; Else, save the sample number.
               lsr a
               lsr a
               lsr a
               lsr a
               dec a                    ; Convert the sample number*64 into
               asl a                    ; an index to tables containing words.
               tay
               lda VolumeTable,y        ; Get the volume of the sample,
               lsr a                    ; divide it by two,
               sta VolumeInt            ; and save it for later.

               rep #$20
               longa on

               lda >Effects1,x          ; Read the effect
               and #%0000000000001111
               bne NotArpegiatto        ; If effect=0, its maybe an arpegiatto.
               lda >Effects2,x          ; Read the value for the effect,

               sep #$20
               longa off

               ldy Temporary            ; and save it in this table.
               sta ArpegiattoTbl,y
               lda Semitone             ; Save the note that will be modified
               sta ArpegeToneTbl,y      ; by the arpegiatto.

               rep #$20
               longa on

               jmp NoTempoChange

NotArpegiatto  pha                      ; Save the value of the effect.

               sep #$20
               longa off

               ldy Temporary            ; First, if the effect <> 0, we must
               lda #0                   ; stop the arpegiatto effect on this
               sta ArpegiattoTbl,y      ; track.

               rep #$20
               longa on

               pla                      ; Recover the effect value.

               cmp #$03                 ; Effect $3=set volume
               bne noVolChange

               lda >Effects2,x          ; Read new volume
               and #%0000000011111111
               lsr a
               sta VolumeInt            ; and save it.

ChangeVol      lda Semitone             ; If Semitone=0, it means that we must
               beq ChangeIt             ; change the volume of a note that is
               jmp NoTempoChange        ; being played.

ChangeIt       lda Temporary
               inc a
               asl a
               sta OscNumber

               sep #$20
               longa off

SetAutoInc     lda >$E1C03C
               bmi SetAutoInc
               ora #%00100000           ; Auto-incrementation
               and #%10111111
               sta >$E1C03C

               lda OscNumber
               clc
               adc #$40
               sta >$E1C03E
               lda VolumeInt            ; Set new volume
               sta >$E1C03D             ; for osc.a
               sta >$E1C03D             ; for osc.b

               rep #$20
               longa on

               bra NoTempoChange

NoVolChange    cmp #$06                 ; Effect $6=lower the volume
               bne NoVolChange2

               lda >Effects2,x
               and #%0000000011111111
               lsr a
               sta TempInterrupt
               lda VolumeInt
               sec
               sbc TempInterrupt
               bpl VolOk
               lda #0
VolOk          sta VolumeInt
               jmp ChangeVol

NoVolChange2   cmp #$05                 ; Effect $5=Increase the volume
               bne NoVolChange3

               lda >Effects2,x
               and #%0000000011111111
               lsr a
               clc
               adc VolumeInt
               cmp #$80
               bcc VolOk2
               lda #$7F
VolOk2         sta VolumeInt
               jmp ChangeVol

NoVolChange3   cmp #$0F                 ; Effect $F=New tempo
               bne NoTempoChange
               lda >Effects2,x          ; The tempo value uses only the lowest
               and #%0000000000001111   ; nibble (1-$F)
               sta Tempo

NoTempoChange  lda Semitone
               bne PlayIt

               inc NoteIndex
               jmp NotSTP

PlayIt         lda Temporary            ; The 0-1 osc. pair is used to generate
               inc a                    ; interrupts. Therefore, the track 0
               asl a                    ; uses the pair 2-3, etc.
               sta OscNumber

               sep #$20
               longa off

               lda >$E1C03C
               and #%10011111
               sta >$E1C03C

               lda OscNumber
               clc
               adc #$A0
               sta >$E1C03E
               lda >$E1C03D
               lda >$E1C03D
               and #%11110111
               ora #%00000001
               sta >$E1C03D             ; Stop even osc.
               lda OscNumber
               clc
               adc #$A1
               sta >$E1C03E
               lda >$E1C03D
               lda >$E1C03D
               and #%11110111
               ora #%00000001
               sta >$E1C03D             ; Stop odd osc.

               ldy Temporary
               lda SampleTable,y

               rep #$20
               longa on

               and #%0000000011110000
               lsr a
               lsr a
               lsr a
               lsr a
               dec a
               cmp InstIndex            ; do not play instruments that have not
               bcc SampleExists         ; been loaded.
               jmp IgnoreSample
SampleExists   sta CurrInstInt
               asl a
               tax
               lda >InstIndexTable,x    ; Offset to the beginning of the instru-
               clc                      ; ment definition table.
               adc #32                  ; Points to the first Wavelist of osc.a
SearchingA     tax
               lda >Instrument1,x
               and #%0000000011111111
               cmp Semitone             ; If Semitone < Topkey we use this
               bcs FoundWaveListA       ; WaveList. Otherwise, we must try the
               txa                      ; next one.
               clc
               adc #6
               bra SearchingA

FoundWaveListA stx IndexInterrupt
               inx
               lda >Instrument1,x       ; Read the size & adress of the wave for
               sta TempInterrupt        ; osc.a
               inx
               inx
               lda >Instrument1,x       ; Read mode byte for osc.a
               and #%0000000011111111
               sta Temp2Interrupt
               lda StereoMode           ; If StereoMode=zero, we use the Mode
               beq StereoOk             ; byte for the channel stereo.
               lda Temp2Interrupt       ; Otherwise, we must use StereoTable
               and #%0000000000001111   ; to find out what channel to use.
               sta Temp2Interrupt
               lda Temporary            ; (0=right $FFFF=left)
               asl a
               tax
               lda StereoTable,x
               beq StereoOk
               lda Temp2Interrupt
               ora #%0000000000010000
               sta Temp2Interrupt

StereoOk       lda IndexInterrupt       ; Look for a  WaveList starting with $7F
SearchEndOfA   tax                      ; The first WaveList for osc.b starts
               lda >Instrument1,x       ; 6 bytes further.
               and #%0000000011111111
               cmp #$7F
               beq FoundEndOfA
               txa
               clc
               adc #6
               bra SearchEndOfA

FoundEndOfA    txa
               clc
               adc #6

SearchingB     tax                      ; We repeat the operations for osc.b
               lda >Instrument1,x
               and #%0000000011111111
               cmp Semitone
               bcs FoundWaveListB
               txa
               clc
               adc #6
               bra SearchingB

FoundWaveListB inx
               lda >Instrument1,x
               sta Temp3Interrupt
               inx
               inx
               lda >Instrument1,x
               and #%0000000011111111
               sta Temp4Interrupt
               lda StereoMode
               beq StereoOk2
               lda Temp4Interrupt
               and #%0000000000001111
               sta Temp4Interrupt
               lda Temporary
               asl a
               tax
               lda StereoTable,x
               beq StereoOk2
               lda Temp4Interrupt
               ora #%0000000000010000
               sta Temp4Interrupt

StereoOk2      lda Semitone             ; Converts the semitone into a
               asl a                    ; frequence.
               tax
               lda >FreqTable,x
               sta TempFreqInt
               lda CurrInstInt
               asl a
               tax
               lda CompactTable,x       ; If the instrument is compacted,
               tax                      ; the frequence must be divided by two.
bcleFreq       cpx #0                   ; (If the instrument has been compacted
               beq EndBcleFreq          ; twice, the frequence must be divided
               lsr TempFreqInt          ; by four, etc.)
               dex
               bra bcleFreq

EndBcleFreq    lda #0

               sep #$20
               longa off

bcleWait2      lda >$E1C03C
               bmi bcleWait2
               ora #%00100000           ; Set auto-incrementation
               and #%10111111
               sta >$E1C03C

               lda OscNumber
               sta >$E1C03E
               lda TempFreqInt
               sta >$E1C03D             ; Frequency low even
               sta >$E1C03D             ; Frequency low odd
               lda OscNumber
               clc
               adc #$20
               sta >$E1C03E
               lda TempFreqInt+1
               sta >$E1C03D             ; Frequency high even
               sta >$E1C03D             ; Frequency high odd
               lda OscNumber
               clc
               adc #$40
               sta >$E1C03E
               lda VolumeInt
               tax
               lda VolumeTable2,x
               sta >$E1C03D             ; Volume even
               sta >$E1C03D             ; Volume odd
               lda OscNumber
               clc
               adc #$80
               sta >$E1C03E
               lda TempInterrupt
               sta >$E1C03D             ; Wave Adress even
               lda Temp3Interrupt
               sta >$E1C03D             ; Wave Adress odd
               lda OscNumber
               clc
               adc #$C0
               sta >$E1C03E
               lda TempInterrupt+1
               sta >$E1C03D             ; Wave Size even
               lda Temp3Interrupt+1
               sta >$E1C03D             ; Wave Size odd
               lda OscNumber
               clc
               adc #$A0
               sta >$E1C03E
               lda Temp2Interrupt
               sta >$E1C03D             ; Control register even
               lda Temp4Interrupt
               sta >$E1C03D             ; Control register odd

IgnoreSample   rep #$20
               longa on

               inc NoteIndex            ; It's finished, we can go to the
               inc Temporary            ; next track...
               lda Temporary
               cmp #14
               beq EndPlay

               sep #$20
               longa off

               jmp NewTrack

               longa on

EndPlay        inc NotePlayed           ; Point to next line.
               lda NotePlayed           ; If NotePlayed=64, we must play the
               cmp #64                  ; next block.
               beq ReadNewBlock
               jmp EndInterrupt
ReadNewBlock   stz NotePlayed
               inc BlockIndex           ; Check if the music is finished.
               ldx BlockIndex
               cpx NumberOfBlocks
               beq Finished
               lda >HeaderBuffer+472,x  ; If it is not, find next block to play.
               and #%0000000011111111
               sta BlockPlayed
               asl a
               tax
               lda BlockTable,x         ; Compute new NoteIndex.
               sta NoteIndex
               bra EndInterrupt

Finished       lda #0                   ; If it is finished, set Performing to
               sta Performing           ; zero.

               lda Loop                 ; If Loop <> 0 start the song over again
               beq NoLoop
               lda >HeaderBuffer+470
               and #%0000000011111111
               sta NumberOfBlocks
               stz NotePlayed
               stz BlockIndex
               lda >HeaderBuffer+472
               and #%0000000011111111
               asl a
               tax
               lda BlockTable,x
               sta NoteIndex
               lda #1
               sta Performing

NoLoop         sep #$30                 ; Stop all the osc.
               longa off
               longi off

bcleStopAll    lda >$E1C03C
               bmi bcleStopAll
               and #%10011111           ; acces DOC registers and disable
               sta >$E1C03C             ; auto-incrementation.

               lda #2
               sta OscNumber

bcleStopAll2   lda OscNumber
               clc
               adc #$A0
               sta >$E1C03E
               lda #$01
               sta >$E1C03D             ; Stop even osc.
               lda OscNumber
               inc a
               clc
               adc #$A0
               sta >$E1C03E
               lda #$01
               sta >$E1C03D             ; Stop odd osc.

               lda OscNumber
               clc
               adc #2
               sta OscNumber
               cmp #30
               bne bcleStopAll2

EndInterrupt   sep #$30
               longa off
               longi off

               pld
               plb

               clc

               rtl                      ; End of Interrupt routine.

HandleEffects  sep #$30                 ; Handle Arpegiatto effects.
               longa off
               longi off

               stz Temporary
bcleHandleArp  ldy Temporary
               lda ArpegiattoTbl,y      ; If 0, no arpegiatto.
               bne ThereIsAnArp
               jmp NoArpegiatto

ThereIsAnArp   lda Timer                ; Timer modulo 6
               cmp #6
TryAgain       bcc StartArp
               sec
               sbc #6
               bra TryAgain

StartArp2      bne StartArp2
               jmp NoArpegiatto
StartArp       cmp #1                   ; The arpegiatto changes the
               beq Stage1               ; frequence of the note in function
               cmp #4                   ; of the time.
               beq Stage1               ; When Timer=1 ou 4 the first nibble of
               cmp #2                   ; the effect value is added to the
               beq Stage2               ; semitone of the played note.
               cmp #5                   ; When Timer=2 ou 5 the second nibble of
               beq Stage2               ; the effect value is added to the
!                                       ; semitone of the played note.
Stage3         lda ArpegiattoTbl,y      ; When Timer=3 the value of the first &
               and #%00001111           ; second nibbles of the effect value are
               sta TempInterrupt        ; substracted from the semitone of the
               lda ArpegiattoTbl,y      ; played note.
               lsr a
               lsr a
               lsr a
               lsr a
               clc
               adc TempInterrupt
               sta TempInterrupt
               lda ArpegeToneTbl,y
               sec
               sbc TempInterrupt
               sta ArpegeToneTbl,y      ; save new semitone
               bra ModifieFreq

Stage1         lda ArpegiattoTbl,y
               lsr a
               lsr a
               lsr a
               lsr a
               clc
               adc ArpegeToneTbl,y
               sta ArpegeToneTbl,y      ; save new semitone
               bra ModifieFreq

Stage2         lda ArpegiattoTbl,y
               and #%00001111
               clc
               adc ArpegeToneTbl,y
               sta ArpegeToneTbl,y      ; save new semitone

ModifieFreq    rep #$20
               longa on

               and #%0000000011111111   ; Compute the new frequence.
               asl a
               tax
               lda >FreqTable,x
               sta TempFreqInt

               sep #$20
               longa off

               ldy Temporary
               lda SampleTable,y

               rep #$20
               longa on

               asl a
               tax
               lda CompactTable,x       ; The frequency changes if the instru-
               tax                      ; ments is compacted.
bcleFreq2      cpx #0
               beq EndBcleFreq2
               lsr TempFreqInt
               dex
               bra bcleFreq2

EndBcleFreq2   sep #$20
               longa off

               lda Temporary
               inc a
               asl a
               sta OscNumber
bcleWait3      lda >$E1C03C             ; Update Frequency registers
               bmi bcleWait3
               ora #%00100000
               and #%10111111
               sta >$E1C03C

               lda OscNumber
               sta >$E1C03E
               lda TempFreqInt
               sta >$E1C03D             ; Frequency low even.
               sta >$E1C03D             ; Frequency low odd.
               lda OscNumber
               clc
               adc #$20
               sta >$E1C03E
               lda TempFreqInt+1
               sta >$E1C03D             ; Frequency high even.
               sta >$E1C03D             ; Frequency high odd.

NoArpegiatto   inc Temporary
               lda Temporary
               cmp #14
               beq Fini
               jmp bcleHandleArp

Fini           pld
               plb

               clc

               rtl

               longa on
               longi on

SampleTable    ds 14
ArpegiattoTbl  ds 14
ArpegeToneTbl  ds 14

OscNumber      ds 2
DataBank       ds 2
Temporary      ds 2
Semitone       ds 2
TempInterrupt  ds 2
Temp2Interrupt ds 2
Temp3Interrupt ds 2
Temp4Interrupt ds 2
TempFreqInt    ds 2
IndexInterrupt ds 2
VolumeInt      ds 2
CurrInstInt    ds 2


****************************************************************
*
* GlobalDATA
*
****************************************************************
InstIndex      ds 2
BlockIndex     ds 2
NotePlayed     ds 2
BlockPlayed    ds 2
NoteIndex      ds 2
Timer          ds 2
Tempo          ds 2
NumberOfBlocks ds 2
Performing     ENTRY
               dc i2'0'
Loop           ENTRY
               dc i2'0'

VolumeTable    dc i2'255,255,255,220,100,255,105,175,255,255,255,255,255,255,255'
CompactTable   dc i2'0,0,0,0,0,0,0,0,0,0,0,0,0,0,0'

ActiveTrkTable ds 14*2
StereoTable    ds 14*2
StereoMode     ds 2

VolumeTable2   dc i1'0,1,3,4,6,7,9,10,12,13,15,16,18,19,21,22,24,25,27,28'
               dc i1'30,31,33,34,36,37,39,40,42,43,45,46,48,49,51,52,54,55,57'
               dc i1'58,60,61,63,64,66,67,69,70,72,73,75,76,78,79,81,82,84,85'
               dc i1'87,88,90,91,93,94,96,97,99,100,102,103,105,106,108,109'
               dc i1'111,112,114,115,117,118,120,121,123,124,126,127,129,130'
               dc i1'132,133,135,136,138,139,141,142,144,145,147,148,150,151'
               dc i1'153,154,156,157,159,160,162,163,165,166,168,169,171,172'
               dc i1'174,175,177,178,180,181,183,184,186,187,189,190,192'

BlockTable     dc i2'0,896,1792,2688,3584,4480,5376,6272,7168,8064'
               dc i2'8960,9856,10752,11648,12544,13440,14336,15232,16128,17024'
               dc i2'17920,18816,19712,20608,21504,22400,23296,24192,25088,25984'
               dc i2'26880,27776,28672,29568,30464,31360,32256,33152,34048,34944'
               dc i2'35840,36736,37632,38528,39424,40320,41216,42112,43008,43904'
               dc i2'44800,45696,46592,47488,48384,49280,50176,51072,51968,52864'
               dc i2'53760,54656,55552,56448,57344,58240,59136,60032,60928,61824'
               dc i2'62720,63616,64512'

               END

****************************************************************
*
* Some general use buffers
*
****************************************************************
Buffer2        DATA WaveBank

WaveBuffer     ENTRY
               ds $ffff

               END

****************************************************************
*
* Instdef: Instrument definition
*
****************************************************************
instdef        DATA InstDefinition

Instrument1    ENTRY
               dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
PriorityInc1   dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount1    dc i1'0'                       ; number of waveptrs for osc A
BWaveCount1    dc i1'0'                       ; number of waveptrs for osc B
WaveLists1     dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument2    dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount2    dc i1'0'                       ; number of waveptrs for osc A
BWaveCount2    dc i1'0'                       ; number of waveptrs for osc B
WaveLists2     dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument3    dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount3    dc i1'0'                       ; number of waveptrs for osc A
BWaveCount3    dc i1'0'                       ; number of waveptrs for osc B
WaveLists3     dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument4    dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount4    dc i1'0'                       ; number of waveptrs for osc A
BWaveCount4    dc i1'0'                       ; number of waveptrs for osc B
WaveLists4     dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument5    dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount5    dc i1'0'                       ; number of waveptrs for osc A
BWaveCount5    dc i1'0'                       ; number of waveptrs for osc B
WaveLists5     dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument6    dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount6    dc i1'0'                       ; number of waveptrs for osc A
BWaveCount6    dc i1'0'                       ; number of waveptrs for osc B
WaveLists6     dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument7    dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount7    dc i1'0'                       ; number of waveptrs for osc A
BWaveCount7    dc i1'0'                       ; number of waveptrs for osc B
WaveLists7     dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument8    dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount8    dc i1'0'                       ; number of waveptrs for osc A
BWaveCount8    dc i1'0'                       ; number of waveptrs for osc B
WaveLists8     dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument9    dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount9    dc i1'0'                       ; number of waveptrs for osc A
BWaveCount9    dc i1'0'                       ; number of waveptrs for osc B
WaveLists9     dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument10   dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount10   dc i1'0'                       ; number of waveptrs for osc A
BWaveCount10   dc i1'0'                       ; number of waveptrs for osc B
WaveLists10    dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument11   dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount11   dc i1'0'                       ; number of waveptrs for osc A
BWaveCount11   dc i1'0'                       ; number of waveptrs for osc B
WaveLists11    dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument12   dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount12   dc i1'0'                       ; number of waveptrs for osc A
BWaveCount12   dc i1'0'                       ; number of waveptrs for osc B
WaveLists12    dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument13   dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount13   dc i1'0'                       ; number of waveptrs for osc A
BWaveCount13   dc i1'0'                       ; number of waveptrs for osc B
WaveLists13    dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument14   dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount14   dc i1'0'                       ; number of waveptrs for osc A
BWaveCount14   dc i1'0'                       ; number of waveptrs for osc B
WaveLists14    dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

Instrument15   dc i1'0,0,0'                   ; enveloppe
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'
               dc i1'0,0,0'                   ; fill out 8 stages with 0's
               dc i1'0'                       ; release segment - 1
               dc i1'0'                       ; priority inc
               dc i1'0'                       ; pitch bend range
               dc i1'0'                       ; slight vibrato
               dc i1'0'                       ; vibrato speed
               dc i1'0'                       ; spare
AWaveCount15   dc i1'0'                       ; number of waveptrs for osc A
BWaveCount15   dc i1'0'                       ; number of waveptrs for osc B
WaveLists15    dc i1'0,0,0,0,0,0'             ; topkey,addr,size,ctrl,pitch
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem   this size supports
               dc i1'0,0,0,0,0,0'             ; idem   up to 5 wave lists
               dc i1'0,0,0,0,0,0'             ; idem   for each wave.
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem
               dc i1'0,0,0,0,0,0'             ; idem

InstIndexTable dc i2'0,92,184,276,368,460,552,644,736,828,920,1012,1104,1196,1288,1380'

FreqTable      dc i2'$00,$16,$17,$18,$1A,$1B,$1D,$1E,$20,$22,$24,$26'                   ; Octave 0
               dc i2'$29,$2B,$2E,$31,$33,$36,$3A,$3D,$41,$45,$49,$4D'                   ; Octave 1
               dc i2'$52,$56,$5C,$61,$67,$6D,$73,$7A,$81,$89,$91,$9A'                   ; Octave 2
               dc i2'$0A3,$0AD,$0B7,$0C2,$0CE,$0D9,$0E6,$0F4,$102,$112,$122,$133'       ; Octave 3
               dc i2'$146,$15A,$16F,$184,$19B,$1B4,$1CE,$1E9,$206,$225,$246,$269'       ; Octave 4
               dc i2'$28D,$2B4,$2DD,$309,$337,$368,$39C,$3D3,$40D,$44A,$48C,$4D1'       ; Octave 5
               dc i2'$51A,$568,$5BA,$611,$66E,$6D0,$737,$7A5,$81A,$895,$918,$9A2'       ; Octave 6
               dc i2'$A35,$AD0,$B75,$C23,$CDC,$D9F,$E6F,$F4B,$1033,$112A,$122F,$1344'   ; Octave 7
               dc i2'$1469,$15A0,$16E9,$1846,$19B7,$1B3F,$1CDE,$1E95,$2066,$2254,$245E,2688' ; Octave 8

               END


*******************************************************************
*                                                                 *
* Memoire reservee au stockage des notes et effects du sequenceur *
*                                                                 *
*******************************************************************
PictureBuffer  DATA PictureSeg

HeaderBuffer   ENTRY
               ds 600

               END


SequenceNotes  DATA NoteSeg

Notes          ENTRY
               ds 25000
;               ds 65408                 ; =14*64*73

               END


SeqEffects1    DATA EffectsSeg1

Effects1       ENTRY
               ds 25000
;               ds 65408

               END


SeqEffects2    DATA EffectsSeg2

Effects2       ENTRY
               ds 25000
;               ds 65408

               END