/       EXCITATION GENERATORS

/       EXCGEN USES TRIANGULAR ENVELOPE & SKIPS IF EVENT
/       DRONE1 GIVES FIXED PERIOD AND AMP = MAX MOD IN LAST PERIOD
/       DRONE2 GIVES FIXED PERIOD AND FIXED AMP.


*PART4

INIT,   0
        CLA
        DCA ENV
        DCA MOD
        TAD NUM
        CIA
        DCA COUNT
        TAD HEIGHT
        DCA HIGH
        DCA MDEC
        DCA DEC
        JMP I INIT

CHMOD,  0
        SPA
        CIA
        DCA MOD
        TAD MOD
        CIA CLL
        TAD ENV
        SZL SNA CLA
        JMP I CHMOD
        TAD MOD
        DCA ENV
        ISZ CHMOD
        JMP I CHMOD



EXCGEN, 0
        JMS CHMOD
        JMP I EXCGEN
        TAD ENV
        ASR
SHIFT,  0
        CMA             /AT LEAST 1 TO ENSURE DECAY
        DCA MDEC
        DCA DEC
        TAD ENV
        DCA HIGH
        ISZ EXCGEN      /SKIP IF EVENT
        JMP I EXCGEN


TRIEXC, 0       /LINEAR ENVELOPE DECAY
        JMS INIT
        TAD TRICON
        DCA SHIFT
        JMS I TRIEXC
TREXRA, 0
        JMS EXCGEN
        SKP
        ISZ TREXRA
        JMS TRIANG
        TAD HIGH
        JMP I TREXRA


TRIANG, 0
        TAD MDEC
        TAD ENV
        SPA
        CLA
        DCA ENV
        JMP I TRIANG



TRICON, 0
PARCON, 0
HEIGHT, 0
NUM,    0


MOD,    0
ENV,    0
DEC,    0
MDEC,   0
HIGH,   0
COUNT,  0
DECI,   0


        $$$$$$$$$$$$$$$$$$$$$$
*U*-+6