*       Notes on the production of music using the Vectrex music routines.

*       Each beat can have up to three voices.  The notes are listed together,
*       each but the last having its sign bit set.  There follows a duration.
*       It would appear that silence has a note value of 63.  One thing that
*       remains to be determined is how to produce new attacks while sustaining
*       other voices.  Apparently this is accomplished simply by letting the
*       envelop sustain a voice while another attack begins.

*       This early attempt turned out to be an exercise in manually
*       transcribing music (which I don't read well anyway) and typing.
*       The careful listener will detect at least two errors in my
*       transcription.

**      Public domain 1985 by Jeff Woolsey.

EXEC    EQU     $F000

        ORG     0

        FCC     'g GCE 1812',$80
        FDB     MUSIC
        FCB     $F8,$50,$40,$E0
        FCC     'BACH',$80
        FCB     $F8,$50,$20,$C0
        FCC     'PRELUDE #1',$80
        FCB     $F8,$50,$00,$E0
        FCC     'WELL',$80
        FCB     $F8,$50,$F0,$C8
        FCC     'TEMPERED',$80
        FCB     $F8,$50,$E0,$B8
        FCC     'CLAVICHORD',$80
        FCB     0

        LDD     #0
        STD     $CBFE           SET COLD BOOT (WASTE SOME TIME WHEN DONE)
        JMP     EXEC

*       ENVLOP  FCB     $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
*               FCB     $FF,$EE,$DD,$CC,$BB,$AA,$99,$88

NVLOP1  FCB     $FF,$FF,$EE,$EE,$DD,$DD,$CC,$CC
        FCB     $BB,$BB,$AA,$AA,$99,$99,$88,$88

MUSIC   FDB     NVLOP1,$FEB6

        FCB     $3F,100                 SET A SPELL

        FCB     $BF,$BF,$18,7           MEASURE 1 BUMPED UP AN OCTAVE
        FCB     $BF,$1C,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $A8,$1C,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $28,7
        FCB     $BF,$BF,$18,7
        FCB     $BF,$1C,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $A8,$1C,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $28,7

        FCB     $BF,$BF,$18,7           MEASURE 2 BUMPED UP AN OCTAVE
        FCB     $BF,$1A,7
        FCB     $21,7
        FCB     $26,7
        FCB     $A9,$1A,7
        FCB     $21,7
        FCB     $26,7
        FCB     $29,7
        FCB     $BF,$BF,$18,7
        FCB     $BF,$1A,7
        FCB     $21,7
        FCB     $26,7
        FCB     $A9,$1A,7
        FCB     $21,7
        FCB     $26,7
        FCB     $29,7

        FCB     $BF,$BF,$17,7           MEASURE 3 BUMPED UP AN OCTAVE
        FCB     $BF,$1A,7
        FCB     $1F,7
        FCB     $26,7
        FCB     $A9,$1A,7
        FCB     $1F,7
        FCB     $26,7
        FCB     $29,7
        FCB     $BF,$BF,$17,7
        FCB     $BF,$1A,7
        FCB     $1F,7
        FCB     $26,7
        FCB     $A9,$1A,7
        FCB     $1F,7
        FCB     $26,7
        FCB     $29,7

        FCB     $BF,$BF,$18,7           MEASURE 4 BUMPED UP AN OCTAVE
        FCB     $BF,$1C,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $A8,$1C,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $28,7
        FCB     $BF,$BF,$18,7
        FCB     $BF,$1C,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $A8,$1C,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $28,7

        FCB     $BF,$BF,$18,7           MEASURE 5 BUMPED UP AN OCTAVE
        FCB     $BF,$1C,7
        FCB     $21,7
        FCB     $28,7
        FCB     $AD,$1C,7
        FCB     $21,7
        FCB     $28,7
        FCB     $2D,7
        FCB     $BF,$BF,$18,7
        FCB     $BF,$1C,7
        FCB     $21,7
        FCB     $28,7
        FCB     $AD,$1C,7
        FCB     $21,7
        FCB     $28,7
        FCB     $2D,7

        FCB     $BF,$BF,$18,7           MEASURE 6 BUMPED UP AN OCTAVE
        FCB     $BF,$1A,7
        FCB     $1E,7
        FCB     $21,7
        FCB     $A6,$1A,7
        FCB     $1E,7
        FCB     $21,7
        FCB     $26,7
        FCB     $BF,$BF,$18,7
        FCB     $BF,$1A,7
        FCB     $1E,7
        FCB     $21,7
        FCB     $A6,$1A,7
        FCB     $1E,7
        FCB     $21,7
        FCB     $26,7

        FCB     $BF,$BF,$17,7           MEASURE 7 BUMPED UP AN OCTAVE
        FCB     $BF,$1A,7
        FCB     $1F,7
        FCB     $26,7
        FCB     $AB,$1A,7
        FCB     $1F,7
        FCB     $26,7
        FCB     $2B,7
        FCB     $BF,$BF,$17,7
        FCB     $BF,$1A,7
        FCB     $1F,7
        FCB     $26,7
        FCB     $AB,$1A,7
        FCB     $1F,7
        FCB     $26,7
        FCB     $2B,7

        FCB     $BF,$BF,$17,7           MEASURE 8 BUMPED UP AN OCTAVE
        FCB     $BF,$18,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $A4,$18,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $BF,$BF,$17,7
        FCB     $BF,$18,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $A4,$18,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $24,7

        FCB     $BF,$BF,$15,7           MEASURE 9 BUMPED UP AN OCTAVE
        FCB     $BF,$18,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $A4,$18,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $BF,$BF,$15,7
        FCB     $BF,$18,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $A4,$18,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $24,7

        FCB     $BF,$BF,$0C,7           MEASURE 10 BUMPED UP AN OCTAVE
        FCB     $BF,$15,7
        FCB     $1A,7
        FCB     $1D,7
        FCB     $A4,$15,7
        FCB     $1A,7
        FCB     $1D,7
        FCB     $24,7
        FCB     $BF,$BF,$0C,7
        FCB     $BF,$15,7
        FCB     $1A,7
        FCB     $1D,7
        FCB     $A4,$15,7
        FCB     $1A,7
        FCB     $1D,7
        FCB     $24,7

        FCB     $BF,$BF,$13,7           MEASURE 11 BUMPED UP AN OCTAVE
        FCB     $BF,$17,7
        FCB     $1A,7
        FCB     $1F,7
        FCB     $A3,$17,7
        FCB     $1A,7
        FCB     $1F,7
        FCB     $23,7
        FCB     $BF,$BF,$13,7
        FCB     $BF,$17,7
        FCB     $1A,7
        FCB     $1F,7
        FCB     $A3,$17,7
        FCB     $1A,7
        FCB     $1F,7
        FCB     $23,7

        FCB     $BF,$BF,$13,7           MEASURE 12 BUMPED UP AN OCTAVE
        FCB     $BF,$16,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $A5,$16,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $25,7
        FCB     $BF,$BF,$13,7
        FCB     $BF,$16,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $A5,$16,7
        FCB     $1C,7
        FCB     $1F,7
        FCB     $25,7

        FCB     $BF,$BF,$11,7           MEASURE 13 BUMPED UP AN OCTAVE
        FCB     $BF,$15,7
        FCB     $1A,7
        FCB     $21,7
        FCB     $A6,$15,7
        FCB     $1A,7
        FCB     $21,7
        FCB     $26,7
        FCB     $BF,$BF,$11,7
        FCB     $BF,$15,7
        FCB     $1A,7
        FCB     $21,7
        FCB     $A6,$15,7
        FCB     $1A,7
        FCB     $21,7
        FCB     $26,7

        FCB     $BF,$BF,$11,7           MEASURE 14 BUMPED UP AN OCTAVE
        FCB     $BF,$14,7
        FCB     $1A,7
        FCB     $1D,7
        FCB     $A3,$14,7
        FCB     $1A,7
        FCB     $1D,7
        FCB     $23,7
        FCB     $BF,$BF,$11,7
        FCB     $BF,$14,7
        FCB     $1A,7
        FCB     $1D,7
        FCB     $A3,$14,7
        FCB     $1A,7
        FCB     $1D,7
        FCB     $23,7

        FCB     $BF,$BF,$10,7           MEASURE 15 BUMPED UP AN OCTAVE
        FCB     $BF,$13,7
        FCB     $18,7
        FCB     $1F,7
        FCB     $98,$13,7
        FCB     $18,7
        FCB     $1F,7
        FCB     $24,7
        FCB     $BF,$BF,$10,7
        FCB     $BF,$13,7
        FCB     $18,7
        FCB     $1F,7
        FCB     $98,$13,7
        FCB     $18,7
        FCB     $1F,7
        FCB     $24,7

        FCB     $BF,$BF,$10,7           MEASURE 16 BUMPED UP AN OCTAVE
        FCB     $BF,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $9D,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $1D,7
        FCB     $BF,$BF,$10,7
        FCB     $BF,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $9D,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $1D,7

        FCB     $BF,$BF,$0E,7           MEASURE 17 BUMPED UP AN OCTAVE
        FCB     $BF,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $9D,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $1D,7
        FCB     $BF,$BF,$0E,7
        FCB     $BF,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $9D,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $1D,7

        FCB     $BF,$BF,$07,7           MEASURE 18 BUMPED UP AN OCTAVE
        FCB     $BF,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $9D,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $1D,7
        FCB     $BF,$BF,$07,7
        FCB     $BF,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $9D,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $1D,7

        FCB     $BF,$BF,$0C,7           MEASURE 19 BUMPED UP AN OCTAVE
        FCB     $BF,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $9C,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $1C,7
        FCB     $BF,$BF,$0C,7
        FCB     $BF,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $9C,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $1C,7

        FCB     $BF,$BF,$0C,7           MEASURE 20 BUMPED UP AN OCTAVE
        FCB     $BF,$13,7
        FCB     $16,7
        FCB     $18,7
        FCB     $9C,$13,7
        FCB     $16,7
        FCB     $18,7
        FCB     $1C,7
        FCB     $BF,$BF,$0C,7
        FCB     $BF,$13,7
        FCB     $16,7
        FCB     $18,7
        FCB     $9C,$13,7
        FCB     $16,7
        FCB     $18,7
        FCB     $1C,7

        FCB     $BF,$BF,$05,7           MEASURE 21 BUMPED UP AN OCTAVE
        FCB     $BF,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $9C,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $1C,7
        FCB     $BF,$BF,$05,7
        FCB     $BF,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $9C,$11,7
        FCB     $15,7
        FCB     $18,7
        FCB     $1C,7

        FCB     $BF,$BF,$06,7           MEASURE 22 BUMPED UP AN OCTAVE
        FCB     $BF,$0C,7
        FCB     $15,7
        FCB     $18,7
        FCB     $9B,$0C,7
        FCB     $15,7
        FCB     $18,7
        FCB     $1B,7
        FCB     $BF,$BF,$06,7
        FCB     $BF,$0C,7
        FCB     $15,7
        FCB     $18,7
        FCB     $9B,$0C,7
        FCB     $15,7
        FCB     $18,7
        FCB     $1B,7

        FCB     $BF,$BF,$07,7           MEASURE 23 BUMPED UP AN OCTAVE
        FCB     $BF,$0F,7
        FCB     $17,7
        FCB     $18,7
        FCB     $9B,$0F,7
        FCB     $17,7
        FCB     $18,7
        FCB     $1B,7
        FCB     $BF,$BF,$07,7
        FCB     $BF,$0F,7
        FCB     $17,7
        FCB     $18,7
        FCB     $9B,$0F,7
        FCB     $17,7
        FCB     $18,7
        FCB     $1B,7

        FCB     $BF,$BF,$08,7           MEASURE 24 BUMPED UP AN OCTAVE
        FCB     $BF,$11,7
        FCB     $17,7
        FCB     $18,7
        FCB     $9A,$11,7
        FCB     $17,7
        FCB     $18,7
        FCB     $1A,7
        FCB     $BF,$BF,$08,7
        FCB     $BF,$11,7
        FCB     $17,7
        FCB     $18,7
        FCB     $9A,$11,7
        FCB     $17,7
        FCB     $18,7
        FCB     $1A,7

        FCB     $BF,$BF,$07,7           MEASURE 25 BUMPED UP AN OCTAVE
        FCB     $BF,$11,7
        FCB     $13,7
        FCB     $17,7
        FCB     $9A,$11,7
        FCB     $13,7
        FCB     $17,7
        FCB     $1A,7
        FCB     $BF,$BF,$07,7
        FCB     $BF,$11,7
        FCB     $13,7
        FCB     $17,7
        FCB     $9A,$11,7
        FCB     $13,7
        FCB     $17,7
        FCB     $1A,7

        FCB     $BF,$BF,$07,7           MEASURE 26 BUMPED UP AN OCTAVE
        FCB     $BF,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $9C,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $1C,7
        FCB     $BF,$BF,$07,7
        FCB     $BF,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $9C,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $1C,7

        FCB     $BF,$BF,$07,7           MEASURE 27 BUMPED UP AN OCTAVE
        FCB     $BF,$0E,7
        FCB     $13,7
        FCB     $18,7
        FCB     $9D,$0E,7
        FCB     $13,7
        FCB     $18,7
        FCB     $1D,7
        FCB     $BF,$BF,$07,7
        FCB     $BF,$0E,7
        FCB     $13,7
        FCB     $18,7
        FCB     $9D,$0E,7
        FCB     $13,7
        FCB     $18,7
        FCB     $1D,7

        FCB     $BF,$BF,$07,7           MEASURE 28 BUMPED UP AN OCTAVE
        FCB     $BF,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $9D,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $1D,7
        FCB     $BF,$BF,$07,7
        FCB     $BF,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $9D,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $1D,7

        FCB     $BF,$BF,$07,7           MEASURE 29 BUMPED UP AN OCTAVE
        FCB     $BF,$0F,7
        FCB     $15,7
        FCB     $18,7
        FCB     $9E,$0F,7
        FCB     $15,7
        FCB     $18,7
        FCB     $1E,7
        FCB     $BF,$BF,$07,7
        FCB     $BF,$0F,7
        FCB     $15,7
        FCB     $18,7
        FCB     $9E,$0F,7
        FCB     $15,7
        FCB     $18,7
        FCB     $1E,7

        FCB     $BF,$BF,$07,7           MEASURE 30 BUMPED UP AN OCTAVE
        FCB     $BF,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $9F,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $1F,7
        FCB     $BF,$BF,$07,7
        FCB     $BF,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $9F,$10,7
        FCB     $13,7
        FCB     $18,7
        FCB     $1F,7

        FCB     $BF,$BF,$07,7           MEASURE 31 BUMPED UP AN OCTAVE
        FCB     $BF,$0E,7
        FCB     $13,7
        FCB     $18,7
        FCB     $9D,$0E,7
        FCB     $13,7
        FCB     $18,7
        FCB     $1D,7
        FCB     $BF,$BF,$07,7
        FCB     $BF,$0E,7
        FCB     $13,7
        FCB     $18,7
        FCB     $9D,$0E,7
        FCB     $13,7
        FCB     $18,7
        FCB     $1D,7

        FCB     $BF,$BF,$07,7           MEASURE 32 BUMPED UP AN OCTAVE
        FCB     $BF,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $9D,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $1D,7
        FCB     $BF,$BF,$07,7
        FCB     $BF,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $9D,$0E,7
        FCB     $13,7
        FCB     $17,7
        FCB     $1D,7

        FCB     $BF,$BF,$00,7           MEASURE 33 BUMPED UP AN OCTAVE
        FCB     $BF,$0C,7
        FCB     $13,7
        FCB     $16,7
        FCB     $9C,$0C,7
        FCB     $13,7
        FCB     $16,7
        FCB     $1C,7
        FCB     $BF,$BF,$00,7
        FCB     $BF,$0C,7
        FCB     $13,7
        FCB     $16,7
        FCB     $9C,$0C,7
        FCB     $13,7
        FCB     $16,7
        FCB     $1C,7


        FCB     $BF,$BF,$00,7           MEASURE 34 BUMPED UP AN OCTAVE
        FCB     $BF,$0C,7
        FCB     $11,7
        FCB     $15,7
        FCB     $98,$0C,7
        FCB     $1C,7
        FCB     $18,7
        FCB     $15,7
        FCB     $98,$0C,7
        FCB     $15,7
        FCB     $11,7
        FCB     $15,7
        FCB     $11,7
        FCB     $0E,7
        FCB     $11,7
        FCB     $0E,7

        FCB     $BF,$BF,$00,7           MEASURE 35 BUMPED UP AN OCTAVE
        FCB     $BF,$0B,7
        FCB     $1F,7
        FCB     $23,7
        FCB     $A6,$0B,7
        FCB     $29,7
        FCB     $26,7
        FCB     $23,7
        FCB     $A6,$0B,7
        FCB     $23,7
        FCB     $1F,7
        FCB     $23,7
        FCB     $1A,7
        FCB     $1D,7
        FCB     $1C,7
        FCB     $1A,7

        FCB     $A4,$9F,$1C,98          MEASURE 36 BUMPED UP AN OCTAVE

        FCB     $3F,100
        FCB     $3F,100
        FCB     $3F,100
        FCB     $3F,100
        FCB     $3F,100
        FCB     $3F,100

        FCB     0,$80,$80,$80,$80,$80           END OF MUSIC

        END
