channelmaniac
Veteran Member
I'm up late finalizing docs for the Computer Drums kit and had a lot of fun making beats with the 8031-based show computer from the first year we put the show on. :D
Stop by my tables, name drop your forum handle, and say hi!
Here's a quick and dirty bass and snare techno beat:
10 REM - PLAY 10 PAIRS OF NOTES
20 REM - PLAY HEAVY BASS
30 FOR X=1 to 10
30 PORT1 = 254
40 PORT1 = 0
50 REM - ADD DELAY BEFORE NEXT BEAT
60 REM - PLAY SNARE
60 FOR Y=1 TO 100
70 NEXT Y
80 PORT1 = 251
90 PORT1 = 0
100 REM - ADD DELAY BEFORE NEXT BEAT
110 FOR Y=1 TO 100
120 NEXT Y
130 NEXT X
If you're a C64 user, wire it up to the user port and replace the PORT1 commands from Intel's BASIC-52 with the POKE commands needed to send the data out the user port. Connect the input bits to data bits 0-6 and use bit 7 for the SEL (not /SEL) signal.
I think this will work, but will defer to the C64 experts:
10 REM - PLAY 10 PAIRS OF NOTES
15 REM - Set User Port data pins as output
16 POKE 56579, 255
20 REM - PLAY HEAVY BASS
30 FOR X=1 to 10
30 POKE 56577,254
40 POKE 56577,0
50 REM - ADD DELAY BEFORE NEXT BEAT
60 REM - PLAY SNARE
60 FOR Y=1 TO 100
70 NEXT Y
80 POKE 56577,251
90 POKE 56577,0
100 REM - ADD DELAY BEFORE NEXT BEAT
110 FOR Y=1 TO 100
120 NEXT Y
130 NEXT X
Stop by my tables, name drop your forum handle, and say hi!
Here's a quick and dirty bass and snare techno beat:
10 REM - PLAY 10 PAIRS OF NOTES
20 REM - PLAY HEAVY BASS
30 FOR X=1 to 10
30 PORT1 = 254
40 PORT1 = 0
50 REM - ADD DELAY BEFORE NEXT BEAT
60 REM - PLAY SNARE
60 FOR Y=1 TO 100
70 NEXT Y
80 PORT1 = 251
90 PORT1 = 0
100 REM - ADD DELAY BEFORE NEXT BEAT
110 FOR Y=1 TO 100
120 NEXT Y
130 NEXT X
If you're a C64 user, wire it up to the user port and replace the PORT1 commands from Intel's BASIC-52 with the POKE commands needed to send the data out the user port. Connect the input bits to data bits 0-6 and use bit 7 for the SEL (not /SEL) signal.
I think this will work, but will defer to the C64 experts:
10 REM - PLAY 10 PAIRS OF NOTES
15 REM - Set User Port data pins as output
16 POKE 56579, 255
20 REM - PLAY HEAVY BASS
30 FOR X=1 to 10
30 POKE 56577,254
40 POKE 56577,0
50 REM - ADD DELAY BEFORE NEXT BEAT
60 REM - PLAY SNARE
60 FOR Y=1 TO 100
70 NEXT Y
80 POKE 56577,251
90 POKE 56577,0
100 REM - ADD DELAY BEFORE NEXT BEAT
110 FOR Y=1 TO 100
120 NEXT Y
130 NEXT X