Jump to content

IMG 0004

MarkO

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

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


From the album:

Videos

  • 1 image
  • 0 comments
  • 0 image comments


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.

Add a comment...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...