File EXGEN.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file

/       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

Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search