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

===============================================================