Arpeggio
    MOVEQ   #0,D0
    MOVE.L  Counter(PC),D0
    DIVS    #3,D0
    SWAP    D0
    CMP.W   #1,D0
    BEQ Arpeggio1
    CMP.W   #2,D0
    BEQ Arpeggio2
Arpeggio0
    MOVE.W  n_period(A6),D2
    BRA ArpeggioSet

Arpeggio1
    MOVEQ   #0,D0
    MOVE.B  n_cmdlo(A6),D0
    LSR.B   #4,D0
    BRA ArpeggioFind

Arpeggio2
    MOVEQ   #0,D0
    MOVE.B  n_cmdlo(A6),D0
    AND.B   #15,D0
ArpeggioFind
    ASL.W   #1,D0
    MOVEQ   #0,D1
    MOVE.B  n_finetune(A6),D1
    MULU    #37*2,D1
    LEA PeriodTable(PC),A0
    ADD.L   D1,A0
    MOVEQ   #0,D1
    MOVE.W  n_period(A6),D1
    MOVEQ   #$24,D7
arploop MOVE.W  (A0,D0.W),D2
    CMP.W   (A0),D1
    BHS ArpeggioSet
    ADDQ.L  #2,A0
    DBRA    D7,arploop
    RTS

ArpeggioSet
    MOVE.W  D2,6(A5)
    RTS