IMG 0004
This is a Video of one of my Apple ][e's with an Echo+ Speech Card with a pair of General Instruments, AY-3-8913 Sound Chips.
The Sound is in Stereo, but the iPad only records Mono.
The Train Sound is in the Left Channel, and the GunShot is in the Right Channel.
This is from the Advanced Programming section of the Disk..
===============================================================
1 REM THIS PROGRAM IS AN
2 REM EXAMPLE OF DOING SOUND EFFECTS
3 REM WITHOUT THE ECHO PROGRAM
4 REM
5 SLOT = 5: REM CHANGE TO YOUR SLOT!
6 SLOT = SLOT * 256 + 49152
10 GN = 16384: REM LOAD GUNSHOT HERE
20 TR = GN + 14: REM LOAD TRAIN HERE
100 PRINT CHR$ (4)"BLOAD /ECHO/SOUND.EFFECTS/GUNSHOT.SND,A",GN
110 PRINT CHR$ (4)"BLOAD /ECHO/SOUND.EFFECTS/TRAIN.SND,A",TR
120 GOSUB 3100: REM INITIALIZE ECHO
130 SND = TR: GOSUB 1000: REM PLAY TRAIN ON LEFT SPEAKER
150 FOR I = 1 TO 3
160 FOR DLAY = 1 TO 500: NEXT DLAY
170 SND = GN: GOSUB 2000: REM PLAY GUNSHOT ON RIGHT SPEAKER
180 NEXT I
182 FOR DLAY = 1 TO 500: NEXT DLAY: REM
185 GOSUB 3000: REM TURN OF SOUND CHIPS
190 END
1000 REM PLAY A SOUND TO THE LEFT SPEAKER
1001 REM SND EQUALS ADDRESS OF SOUND TABLE
1005 FOR Y = 0 TO 13
1010 :: POKE SLOT + 1,Y: REM SET SOUND REGISTER
1020 :: POKE SLOT,15: POKE SLOT,12: REM LATCH
1030 :: POKE SLOT + 1, PEEK (SND + Y): REM GET DATA FROM TABLE
1040 :: POKE SLOT,14: POKE SLOT,12: POKE SLOT,28
1050 NEXT Y
1060 RETURN
1999 REM
2000 REM PLAY A SOUND TO THE RIGHT SPEAKER
2001 REM SND EQUALS ADDRESS OF SOUND TABLE
2005 FOR Y = 0 TO 13
2010 :: POKE SLOT + 1,Y: REM SET SOUND REGISTER
2020 :: POKE SLOT,23: POKE SLOT,20: REM LATCH
2030 :: POKE SLOT + 1, PEEK (SND + Y): REM GET DATA FROM TABLE
2040 :: POKE SLOT,22: POKE SLOT,20: POKE SLOT,28
2050 NEXT Y
2060 RETURN
2999 REM
3000 REM RESET SOUND CHIPS
3010 POKE SLOT,24: POKE SLOT,28: RETURN
3099 REM
3100 REM INITIALIZE ECHO
3105 POKE SLOT + 3,255: POKE SLOT + 2,31: POKE SLOT,28: RETURN
===============================================================
Recommended Comments
There are no comments to display.
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.