dtroup@carroll1.UUCP (David C. Troup - Skunk Works : 2600hz) (11/30/89)
Ok, this is my sound generator for the Apple IIgs. The binary file was BINSCII'd only.
After running the appended AppleSoft BASIC program, sound can be accessed by 'calling' with the following format:
CALL 768,x,y,z
Where the values for x,y,and z are:
x-oscillator number (1-32)
y-frequency
z-volume (1-255)
-----------------------------cut here----------------------------
FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
MSOUND.ROUTINE AEAAAAAAAYw4BEwAx2EA4ABOCshsAEAAAYxi
D4BTAo8rAlQ4AzTjMCAoMC8P5CsPNCEAIDcPgRP0Ao8r80Y4MBCw6Y45e7LIdfGI
nLFIpuLSfBCApq)AfBCIMByAAl65D8FIiCYqfBCAgm6AD8FIgAcqgMwXQDwtFAGw
(0oO94IwAAGw5EMM5kTOlglOpgFK6gF0BqjgwANW5kTw6kTOoAtUwATMKDDMxgy2
6kSKYBNVShSJYpTKShSJYBdKYhSJYpTKYhSJUBdKAIoOPgw0ioLAuFmUt9GZppXa
gcmbt92YlxGcuUGd6qjIAorOekAFYFIABDD05kTOYpTOoDNJwICKwADMsICMjncN
oQOKoUCWpkCWInSKYhC5AAQJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
Aog2
0 rem ** SkunkWorks! 2600 **
1 FOR X = 0 TO 6.2831853 STEP .024543692
2 Z = INT ( SIN (X) * 128 + 128): IF Z = 0 THEN Z = 1
3 Y = Y + 1: POKE 16383 + Y,Z
4 NEXT
5 CALL 771
6 rem ** sound set-up complete **
7 CALL 768,1,1200,255 : rem **example tone**
Thanks to Cheshire Cat for the help! SkunkWorks.
--
We got computers, we're tapping phone lines, I know that that ain't allowed_
_______ _______________ |David C. Troup / Surf Rat_2600 hz__________
_______)(______ | |dtroup@carroll1.cc.edu : mail______________
________________________________|414-524-6809(dorm)/7343(work)______________