;
; Letter  Player Music
;
; type 'j on' to start
; type 'j off' to stop
;
org $60000
load $60000

;            --------------------------------------------
;            -                                          -
;            -    Music Play Routine  -  Version 1.0    -
;            -                27.02.1987                -
;            -                                          -
;            --------------------------------------------

irqvec       = $00000068
dmacon       = $dff096
timerlo      = $00
timerhi      = $30
talo         = $bfe401
tahi         = $bfe501
icr          = $bfed01
cra          = $bfee01
aud0lch      = $a0
aud0lcl      = $a2
aud0len      = $a4
aud0per      = $a6
aud0vol      = $a8
s_wavedco    = 0
s_envelope   = 32       
s_sus        = 48
s_end        = 49
s_wavelfo    = 50
s_spdlfo     = 66+16
s_slctlfo    = 68+16
s_typelfo    = 68+16
s_phase      = 69+16
s_arp        = 70+16
s_spdport    = 78+16
s_spdbend    = 80+16
s_egfreq     = 82+16
v_sactive    = 0
v_envpoint   = 4
v_lfowpoint  = 8
v_phmark     = 12
v_notetim    = 14
v_lfotim     = 16
v_arpoint    = 18
v_actnote    = 22
v_wntnote    = 24
v_hardw      = 26
v_trkstp     = 30
v_crnot      = 34
v_trkbck     = 38
v_actfrq     = 42
v_trnspse    = 46
v_savnote    = 50
v_add        = 52
v_pauspnt    = 54
v_actloud    = 56

on:
move.l #$1,d0
jsr beg
rts

off:
move.l #$0,d0
jsr beg
rts

beg:
jmp progstart

saveirqvec:
dc.l 0


sound1:
dc.b -128,-120,-112,-104,-96,-88,-80,-72,-64,-56,-48,-40,-32
dc.b -24,-16,-8,0,8,16,24,32,40,48,56,64,72,80,88,96,104,112
dc.b 120

dc.b 255,255,14,0,0,0,0,0,0,0,0,0,0,0,0,0  ; Envelope (Rate/Level)
dc.b 0,2  ; No SUS, END is step #2

dc.b 0,2,4,6,8,6,4,2,0,-2,-4,-6,-8,-6,-4,-2
dc.b 0,2,4,6,8,6,4,2,0,-2,-4,-6,-8,-6,-4,-2

dc.b 0  ; Speed LFO
dc.b 0
dc.b 1  ; LFO: on

dc.b 0  ; Depth of Phasing, 0=none

dc.b 0,0,0,0,0,0,0,0  ; Arpeggio

dc.w 0  ; Speed Portamento (0=none)

dc.w 0  ; BendRate

dc.w 0  ; EG frequency off


sound2:
dc.b 0,-16,-32,-48,-64,-80,-96,-112,-128,-112,-96,-80,-64,-48,-32,-16
dc.b 0,16,32,48,64,80,96,112,127,112,96,80,64,48,32,16

dc.b 150,150,0,0,0,0,0,0,0,0,0,0,0,0,0,0  ; Envelope (Rate/Level)
dc.b 0,1  ; No SUS, END is step #2

dc.b 0,2,4,6,8,6,4,2,0,-2,-4,-6,-8,-6,-4,-2
dc.b 0,2,4,6,8,6,4,2,0,-2,-4,-6,-8,-6,-4,-2

dc.b 0  ; Speed LFO
dc.b 0
dc.b 0  ; LFO: on

dc.b 0  ; Depth of Phasing, 0=none

dc.b 0,0,0,0,0,0,0,0  ; Arpeggio

dc.w 0  ; Speed Portamento (0=none)

dc.w 0  ; BendRate

dc.w 0  ; EG frequency off


sound3:
dc.b 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128
dc.b 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127

dc.b 255,255,30,0,0,0,0,0,0,0,0,0,0,0,0,0  ; Envelope (Rate/Level)
dc.b 0,2  ; No SUS, END is step #2

dc.b 0,2,4,6,8,6,4,2,0,-2,-4,-6,-8,-6,-4,-2
dc.b 0,2,4,6,8,6,4,2,0,-2,-4,-6,-8,-6,-4,-2

dc.b 0  ; Speed LFO
dc.b 0
dc.b 0  ; LFO: on

dc.b 0  ; Depth of Phasing, 0=none

dc.b 0,0,0,0,0,0,0,0  ; Arpeggio

dc.w 0  ; Speed Portamento (0=none)

dc.w -30  ; BendRate

dc.w 0  ; EG frequency off


sound4:
dc.b 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128
dc.b 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127

dc.b 40,175,10,100,6,0,0,0,0,0,0,0,0,0,0,0  ; Envelope (Rate/Level)
dc.b 2,3  ; No SUS, END is step #2

dc.b 0,2,4,6,8,6,4,2,0,-2,-4,-6,-8,-6,-4,-2
dc.b 0,2,4,6,8,6,4,2,0,-2,-4,-6,-8,-6,-4,-2

dc.b 0  ; Speed LFO
dc.b 0
dc.b 0  ; LFO: on

dc.b 0  ; Depth of Phasing, 0=none

dc.b 0,0,0,0,0,0,0,0  ; Arpeggio

dc.w 0  ; Speed Portamento (0=none)

dc.w 0  ; BendRate

dc.w 0  ; EG frequency off


even
freqtab:
dc.w 6848,6464,6096,5760,5424,5120,4832,4560,4304,4064,3840,3616
dc.w 3424,3232,3048,2880,2712,2560,2416,2280,2152,2032,1920,1808
dc.w 1712,1616,1524,1440,1356,1280,1208,1140,1076,1016,0960,0904
dc.w 0856,0808,0762,0720,0678,0640,0604,0570,0538,0508,0480,0452
dc.w 0428,0404,0381,0360,0339,0320,0302,0285,0269,0254,0240,0226
dc.w 0214,0202,0190,0180,0170,0160,0151,0143,0135,0127

voice1:
dc.l sound1  ; Active Sound
dc.l 0       ; Pointer to Envelope
dc.l 0       ; Pointer to LFO-Waveform
dc.w 0       ; Phaser
dc.w 0       ; Timer of Note
dc.w 0       ; Timer of LFO-Speed
dc.l 0       ; Pointer to Arpeggio
dc.w 0       ; Actual Frequency
dc.w 0       ; Wanted Frequency
dc.l $dff0a0 ; Pointer to Hardware registers
dc.l 0       ; Current step of track
dc.l 0       ; Current note
dc.l track1  ; reset track #
dc.l 0       ; Actual frequency
dc.l 0       ; Transpose
dc.w 0       ; Savenote
dc.w 0       ; Value to add
dc.w 0       ; PausePoint
dc.w 0       ; ActLoud

voice2:
dc.l sound1  ; Active Sound
dc.l 0       ; Pointer to Envelope
dc.l 0       ; Pointer to LFO-Waveform
dc.w 0       ; Phaser
dc.w 0       ; Timer of Note
dc.w 0       ; Timer of LFO-Speed
dc.l 0       ; Pointer to Arpeggio
dc.w 0       ; Actual Frequency
dc.w 0       ; Wanted Frequency
dc.l $dff0b0 ; Pointer to Hardware registers
dc.l 0       ; Current step of track
dc.l 0       ; Current note
dc.l track2  ; reset track #
dc.l 0       ; Actual frequency
dc.l 0       ; Transpose
dc.w 0       ; Savenote
dc.w 0       ; Value to add
dc.w 0       ; PausePoint
dc.w 0       ; ActLoud

voice3:
dc.l sound1  ; Active Sound
dc.l 0       ; Pointer to Envelope
dc.l 0       ; Pointer to LFO-Waveform
dc.w 0       ; Phaser
dc.w 0       ; Timer of Note
dc.w 0       ; Timer of LFO-Speed
dc.l 0       ; Pointer to Arpeggio
dc.w 0       ; Actual Frequency
dc.w 0       ; Wanted Frequency
dc.l $dff0c0 ; Pointer to Hardware registers
dc.l 0       ; Current step of track
dc.l 0       ; Current note
dc.l track3  ; reset track #
dc.l 0       ; Actual frequency
dc.l 0       ; Transpose
dc.w 0       ; Savenote
dc.w 0       ; Value to add
dc.w 0       ; PausePoint
dc.w 0       ; ActLoud

voice4:
dc.l sound1  ; Active Sound
dc.l 0       ; Pointer to Envelope
dc.l 0       ; Pointer to LFO-Waveform
dc.w 0       ; Phaser
dc.w 0       ; Timer of Note
dc.w 0       ; Timer of LFO-Speed
dc.l 0       ; Pointer to Arpeggio
dc.w 0       ; Actual Frequency
dc.w 0       ; Wanted Frequency
dc.l $dff0d0 ; Pointer to Hardware registers
dc.l 0       ; Current step of track
dc.l 0       ; Current note
dc.l track4  ; reset track #
dc.l 0       ; Actual frequency
dc.l 0       ; Transpose
dc.w 0       ; Savenote
dc.w 0       ; Value to add
dc.w 0       ; PausePoint
dc.w 0       ; ActLoud

track1:
dc.l score1,1,score1,-3,score1,-8,score2,-1
dc.l 0,0
track2:
dc.l score3,1
dc.l 0,0
track3:
dc.l score4,0
dc.l 0,0
track4:
dc.l score8,1,score5,1,score5,1,score7,1,score7,1,score6,1,score6,1
dc.l 0,0

progstart:
movem.l d0-d7/a0-a6,-(a7)
tst.l d0
beq soff
jsr switchon
bra back
soff:
jsr switchoff
back:
movem.l (a7)+,d0-d7/a0-a6
rts

switchoff:
cmpi.l #newirq,irqvec
bne notoff
move.b #$01,icr
move.l saveirqvec,irqvec
move.w #$000f,dmacon
jsr setback
notoff:
rts

switchon:
cmpi.l #newirq,irqvec
beq noton 
move.b #$81,icr
move.b #$2f,cra
move.b #$81,cra
move.b #timerlo,talo
move.b #timerhi,tahi
move.l irqvec,saveirqvec
move.l irqvec,statement+2
jsr setback
jsr setup
move.w #$800f,dmacon
move.l #newirq,irqvec
noton:
rts

setback:
lea $dff000,a0
jsr reset
lea $dff010,a0
jsr reset
lea $dff020,a0
jsr reset
lea $dff030,a0
jsr reset
rts
reset:
clr.l aud0lch(a0)
clr.w aud0len(a0)
clr.w aud0per(a0)
clr.w aud0vol(a0)
rts

setup:
move.l #track1,v_trkstp+voice1
move.l #track2,v_trkstp+voice2
move.l #track3,v_trkstp+voice3
move.l #track4,v_trkstp+voice4
clr.l v_lfowpoint+voice1
clr.l v_lfowpoint+voice2
clr.l v_lfowpoint+voice3
clr.l v_lfowpoint+voice4
clr.l v_notetim+voice1
clr.l v_notetim+voice2
clr.l v_notetim+voice3
clr.l v_notetim+voice4
move.l track1,v_crnot+voice1
move.l track2,v_crnot+voice2
move.l track3,v_crnot+voice3
move.l track4,v_crnot+voice4
move.l track1+4,v_trnspse+voice1
move.l track2+4,v_trnspse+voice2
move.l track3+4,v_trnspse+voice3
move.l track4+4,v_trnspse+voice4
clr.l v_lfotim+voice1
clr.l v_lfotim+voice2
clr.l v_lfotim+voice3
clr.l v_lfotim+voice4

move.l #s_wavedco+sound1,aud0lch+$dff000
move.l #s_wavedco+sound1,aud0lch+$dff010
move.l #s_wavedco+sound1,aud0lch+$dff020
move.l #s_wavedco+sound1,aud0lch+$dff030
move.w #$10,aud0len+$dff000
move.w #$10,aud0len+$dff010
move.w #$10,aud0len+$dff020
move.w #$10,aud0len+$dff030
rts

newirq:
movem.l d0-d7/a0-a6,-(a7)
cmp.b #timerhi-1,$bfe501
bne nottim
jsr playsound
eori.b #$ff,sound4+16
nottim:
movem.l (a7)+,d0-d7/a0-a6
statement:
jmp $ffffffff

playsound:
lea voice1,a0
jsr playvoice
lea voice2,a0
jsr playvoice
lea voice3,a0
jsr playvoice
lea voice4,a0
jsr playvoice
rts

playvoice:
subq.w #1,v_notetim(a0)
bpl notyet1
clr.w v_add(a0)
clr.w v_pauspnt(a0)
musl1:
move.l v_crnot(a0),a1
move.l v_trnspse(a0),d3
clr.l d4
move.w (a1),d4
cmp.w #128,d4          ;change snd?
bne testarp
clr.l v_lfowpoint(a0)
move.l 2(a1),v_sactive(a0)
addi.l #6,v_crnot(a0)
move.l 2(a1),d5
move.l v_hardw(a0),a3
move.l d5,(a3)
bra musl1 
testarp:
cmp.w #129,d4          ;change arp?
bne chpause
move.l v_sactive(a0),a3
move.l 2(a1),s_arp(a3)
move.l 6(a1),s_arp+4(a3)
addi.l #10,v_crnot(a0)
bra musl1
chpause:
cmp.w #130,d4          ;pause?
bne chweiter
move.w #1,v_pauspnt(a0)
bra gut1
chweiter:
add.w d4,d3
cmpi.l #$00,d4
bne gut1
addi.l #8,v_trkstp(a0)
move.l v_trkstp(a0),a2
move.l 4(a2),v_trnspse(a0)
move.l (a2),v_crnot(a0)
bne musl1
move.l v_trkbck(a0),v_trkstp(a0)
move.l v_trkstp(a0),a2
move.l 4(a2),v_trnspse(a0)
move.l (a2),v_crnot(a0)
bra musl1
gut1:
tst.w v_pauspnt(a0)
bne notset
clr.l v_envpoint(a0)
clr.w v_actloud(a0)
move.w d3,v_savnote(a0)
notset:
move.w 2(a1),v_notetim(a0)
subq.w #1,v_notetim(a0)
adda.l #4,a1
move.l a1,v_crnot(a0)
notyet1:
move.l v_hardw(a0),a2
move.l v_sactive(a0),a3
move.w v_wntnote(a0),d0
subq.w #1,d0
mulu #2,d0
lea freqtab,a4
move.w (a4,d0.w),d1
move.w s_spdport(a3),d0
beq noport
cmp.w v_actfrq(a0),d1
blo portdown
addi.w d0,v_actfrq(a0)
cmp.w v_actfrq(a0),d1
bhi nochklei
move.w d1,v_actfrq(a0)
nochklei:
bra portaend
portdown:
subi.w d0,v_actfrq(a0)
cmp.w v_actfrq(a0),d1
blo nochgroe
move.w d1,v_actfrq(a0)
nochgroe:
bra portaend
noport:
add.w v_add(a0),d1
move.w d1,v_actfrq(a0)
portaend:
move.l v_sactive(a0),a3
adda.l #s_arp,a3
move.l v_arpoint(a0),d1
clr.l d2
move.b (a3,d1.l),d2
bpl positiv
neg.b d2
clr.l d3
move.w v_savnote(a0),d3
sub.w d2,d3
move.w d3,d2
bra negativ
positiv:
add.w v_savnote(a0),d2
negativ:
move.w d2,v_wntnote(a0)
addq.l #1,v_arpoint(a0)
cmp.l #8,v_arpoint(a0)
bne notnull
clr.l v_arpoint(a0)
notnull:
move.l v_sactive(a0),a3
tst.w v_phmark(a0)
beq ffff
clr.w v_phmark(a0)
clr.l d2
move.b s_phase(a3),d2
move.w v_actfrq(a0),d1
add.w d2,d1
move.w d1,v_actfrq(a0)
bra wasffff
ffff:
move.w #$ffff,v_phmark(a0)
clr.l d2
move.b s_phase(a3),d2
move.w v_actfrq(a0),d1
sub.w d2,d1
move.w d1,v_actfrq(a0)
wasffff:
clr.l d2
move.w s_spdbend(a3),d2
sub.w d2,v_add(a0)
clr.l d0
move.w v_actfrq(a0),d0
move.w s_egfreq(a3),d1
beq noteg
bmi dazu
sub.w v_actloud(a0),d0
bra noteg
dazu:
add.w v_actloud(a0),d0
noteg:
move.l v_lfowpoint(a0),d1
subq.b #1,v_lfotim(a0)
bpl notyet2
addq.l #1,d1
cmp.l #$20,d1
bne nichtnull
clr.l d1
nichtnull:
move.l d1,v_lfowpoint(a0)
move.b s_spdlfo(a3),v_lfotim(a0)
notyet2:
lea s_wavelfo(a3),a4
clr.l d2
move.b (a4,d1.l),d2
ext.w d2
tst.b s_slctlfo(a3)
beq nonelfo
add.w d2,d0
nonelfo:
move.w d0,$06(a2)
clr.l d2
move.l v_sactive(a0),a2
clr.l d0
clr.l d1
move.b s_sus(a2),d0
move.b s_end(a2),d1
cmp.l v_envpoint(a0),d1
beq envelopend
cmp.l #$00,d0
beq notsustep
cmp.l v_envpoint(a0),d0
bne notsustep
cmpi.w #$00,v_pauspnt(a0)
beq envelopend
notsustep:
move.l v_envpoint(a0),d2
mulu #2,d2
lea s_envelope(a2),a3
clr.l d3
clr.l d4
move.b (a3,d2.w),d3
move.b 1(a3,d2.w),d4
cmp.w v_actloud(a0),d4
bhi loudup
sub.w d3,v_actloud(a0)
cmp.w v_actloud(a0),d4
ble nichtunt
move.w d4,v_actloud(a0)
addq.l #$1,v_envpoint(a0)
nichtunt:
bra envelopend
loudup:
add.w d3,v_actloud(a0)
cmp.w v_actloud(a0),d4
bhi envelopend
move.w d4,v_actloud(a0)
addq.l #$1,v_envpoint(a0)
envelopend:
clr.l d1
move.w v_actloud(a0),d1
divu #4,d1
move.l v_hardw(a0),a1
move.w d1,$08(a1)
rts

score1:
dc.w 128
dc.l sound1
dc.w 129
dc.l 0,0
dc.w 25,12,25,24,25,6,37,6,25,12,25,36
dc.w 0,0

score2:
dc.w 128
dc.l sound1
dc.w 129
dc.l 0,0
dc.w 25,12,25,24,25,6,23,6,25,12,25,36
dc.w 0,0

score3:
dc.w 128
dc.l sound2
dc.w 129
dc.l $00030700,$00030700
dc.w 61,96
dc.w 129
dc.l $00030800,$00030800
dc.w 61,96
dc.w 129
dc.l $fe0307fe,$fe0307fe
dc.w 61,96
dc.w 129
dc.l $fe0205fe,$fe0205fe
dc.w 61,96
dc.w 0,0

score4:
dc.w 128
dc.l sound3
dc.w 129
dc.l 0,0
dc.w 130,24,45,12,130,36,45,12,45,6,45,6
dc.w 130,24,45,12,130,36,45,8,44,8,43,8
dc.w 0,0

score5:
dc.w 128
dc.l sound4
dc.w 129
dc.l 0,0
dc.w 49,48,52,12,51,12,49,12,47,12,45,48
dc.w 52,12,51,12,49,12,47,12,52,48
dc.w 52,12,51,12,49,12,47,12
dc.w 54,24,51,24,49,24,47,24
dc.w 0,0

score6:
dc.w 128
dc.l sound4
dc.w 129
dc.l 0,0
dc.w 49,48,56,12,56,12,56,12,54,24,56,108
dc.w 52,12,52,24,52,24,52,12
dc.w 54,24,51,24,49,24,47,24
dc.w 0,0

score7:
dc.w 128
dc.l sound4
dc.w 129
dc.l 0,0
dc.w 49,72,56,24,54,12,52,12,49,96
dc.w 52,12,52,24,52,24,52,12
dc.w 54,24,51,24,49,24,47,24
dc.w 0,0

score8:
dc.w 130,384
dc.w 0,0