Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-12-26 22:31:05 +00:00
Code Issues Projects Releases Wiki Activity

rSounder 3.1

Browse Source 
with some updates
This commit is contained in:
Antoine Vignau 2024-02-27 17:30:21 +01:00
parent edfeca47f6
commit fb2ef37310
8 changed files with 25528 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

461
rsounder/ARRAYS.S Normal file
View File

@ -0,0 +1,461 @@
*
* rSounder
* (c) 1995, Paul Benson
* (s) 2024, Brutal Deluxe Software
*
mx %00
rel
*-----------------------------------
L040000 ENT
* ASC 00'RSounder3 Copyright 1995 Paul Benson BaJa Software'00
ds 256 ; an empty page
; we fill until the end of a page in the sound
L040034 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L04007A ENT
DB $00
DB $00
DB $84
DB $00
DW $018C
DW $039C
DW $07BC
DW $0FFC
DW $207C
DW $417C
L04008A ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L04009A ENT
DB $00
DB $00
L04009C ENT
DB $00
DB $00
L04009E ENT
DB $00
DB $00
L0400A0 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0400B0 ENT
DB $00
DB $00
L0400B2 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0400B8 ENT
DB $00
DB $00
L0400BA ENT
DB $00
DB $00
L0400BC ENT
DB $00
DB $00
L0400BE ENT
DB $00
DB $00
L0400C0 ENT
DB $00
DB $00
L0400C2 ENT
DB $00
DB $00
DB $00
DB $00
L0400C6 ENT
DB $00
DB $00
L0400C8 ENT
DB $00
DB $00
L0400CA ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0400E2 ENT
DB $00
DB $00
L0400E4 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0400F2 ENT
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0400FA ENT
DB $00
DB $00
L0400FC ENT
DB $00
DB $00
L0400FE ENT
DB $00
DB $00
L040100 ENT
DB $00
DB $00
L040102 ENT
DB $00
DB $00
L040104 ENT
DB $00
DB $00
L040106 ENT
DB $00
DB $00
DB $00
DB $00
DB $72
DB $00
DB $90
DB $01
DB $FF
DB $FF
DB $00
DB $00
DB $00
DB $00
ADRL L040198
ADRL L040138
ADRL L040180
ADRL L040168
ADRL L0401C8
ADRL L0401B0
ADRL L040150
ADRL L0401E0
DB $00
DB $00
DB $00
DB $00
L040138 DB $02
DB $00
DB $4F
DB $00
DB $09
DB $01
DB $5B
DB $00
DB $77
DB $01
DB $0A
DB $00
ADRL L0401F8
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L040150 DB $07
DB $00
DB $19
DB $00
DB $12
DB $00
DB $6B
DB $00
DB $D7
DB $00
DB $14
DB $80
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L040168 DB $04
DB $00
DB $61
DB $00
DB $09
DB $01
DB $6D
DB $00
DB $77
DB $01
DB $0A
DB $00
ADRL L0401FF
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L040180 DB $03
DB $00
DB $19
DB $00
DB $09
DB $01
DB $25
DB $00
DB $77
DB $01
DB $0A
DB $00
ADRL L040207
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L040198 DB $01
DB $00
DB $3D
DB $00
DB $09
DB $01
DB $49
DB $00
DB $77
DB $01
DB $0A
DB $00
ADRL L04020F
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0401B0 DB $06
DB $00
DB $0C
DB $00
DB $0F
DB $00
DB $18
DB $00
DB $8B
DB $01
DB $14
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0401C8 DB $05
DB $00
DB $2B
DB $00
DB $09
DB $01
DB $37
DB $00
DB $77
DB $01
DB $0A
DB $00
ADRL L040217
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0401E0 DB $08
DB $00
DB $03
DB $00
DB $0F
DB $00
DB $0C
DB $00
DB $8B
DB $01
DB $0F
DB $80
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0401F8 STR 'Close'
DB $00
L0401FF STR 'Cancel'
DB $00
L040207 STR 'Volume'
DB $00
L04020F STR 'Append'
DB $00
L040217 STR 'Accept'
DB $00

134
rsounder/GLOBALS.S Normal file
View File

@ -0,0 +1,134 @@
*
* rSounder
* (c) 1995, Paul Benson
* (s) 2024, Brutal Deluxe Software
*
mx %00
rel
*-----------------------------------
L030000 ENT
DB $00
L030001 ENT
DB $00
DB $00
L030003 ENT
DB $00
DB $00
L030005 ENT
DB $00
DB $00
L030007 ENT
DB $00
DB $00
L030009 ENT
DB $00
DB $00
L03000B ENT
DB $00
DB $00
L03000D ENT
DB $00
DB $00
L03000F ENT
DB $00
DB $00
L030011 ENT
DB $00
DB $00
L030013 ENT
DB $00
DB $00
L030015 ENT
DB $00
DB $00
L030017 ENT
DB $00
DB $00
L030019 ENT
DB $00
DB $00
L03001B ENT
DB $00
DB $00
L03001D ENT
DB $00
DB $00
L03001F ENT
DB $00
DB $00
L030021 ENT
DB $00
DB $00
L030023 ENT
DB $00
DB $00
L030025 ENT
DB $00
DB $00
L030027 ENT
DB $00
DB $00
L030029 ENT
DB $00
DB $00
L03002B ENT
DB $00
DB $00
L03002D ENT
DB $00
DB $00
L03002F ENT
DB $00
DB $00
L030031 ENT
DB $00
DB $00
L030033 ENT
DB $00
DB $00
L030035 ENT
DB $00
DB $00
L030037 ENT
DB $00
DB $00
L030039 ENT
DB $00
DB $00
L03003B ENT
DB $00
DB $00
L03003D ENT
DB $00
L03003E ENT
DB $03
DB $00
L030040 ENT
DB $00
DB $00
L030042 ENT
DB $00
DB $00
L030044 ENT
DB $00
DB $00
L030046 ENT
DB $00
DB $00
L030048 ENT
DB $00
DB $00
L03004A ENT
DB $00
DB $00
L03004C ENT
DB $00
DB $00
L03004E ENT
DB $00
DB $00
DB $00

25
rsounder/MAKE.S Normal file
View File

@ -0,0 +1,25 @@
* Expansion linker file
DSK rSounder31
TYP $B3
AUX $DB00
XPL
* Assemble files
ASM RSOUNDER.S
KND $0000
SNA RSOUNDER
ASM GLOBALS.S
KND $0000
SNA GLOBALS
ASM ARRAYS.S
KND $0000
SNA ARRAYS
* END

24831
rsounder/RSOUNDER.S Normal file
View File

File diff suppressed because it is too large Load Diff

76
rsounder/RSOUNDER.X.S Normal file
View File

@ -0,0 +1,76 @@
* TFBD generated externals
* (c) PHC 1992,93
EXT L030000
EXT L03001B
EXT L030019
EXT L03000D
EXT L030015
EXT L030031
EXT L030033
EXT L03000F
EXT L030011
EXT L030039
EXT L03003B
EXT L03002D
EXT L03002F
EXT L03002B
EXT L03001D
EXT L03001F
EXT L030003
EXT L030001
EXT L040034
EXT L030037
EXT L0400FA
EXT L040100
EXT L0400F2
EXT L0400FE
EXT L0400FC
EXT L030005
EXT L030007
EXT L030009
EXT L03000B
EXT L040104
EXT L040102
EXT L030029
EXT L030027
EXT L030023
EXT L030021
EXT L0400B8
EXT L0400BC
EXT L0400BE
EXT L0400C0
EXT L0400C2
EXT L0400C6
EXT L0400CA
EXT L0400C8
EXT L0400BA
EXT L0400E2
EXT L0400E4
EXT L030035
EXT L030025
EXT L030042
EXT L04008A
EXT L030017
EXT L030013
EXT L0400B2
EXT L0400B0
EXT L0400A0
EXT L04009E
EXT L04009C
EXT L04009A
EXT L03004C
EXT L03004E
EXT L030046
EXT L030044
EXT L030048
EXT L03004A
EXT L030040
EXT L03003E
EXT L040106
EXT L040000
EXT L04007A
EXT L03003D

0
rsounder/_FileInformation.txt Normal file
View File

BIN
rsounder/bajasoftware_rsounder31.2mg Normal file
View File

Binary file not shown.

1
rsounder/rSounderDox Normal file
View File

@ -0,0 +1 @@
rSounder Version 3.1 by Paul Benson & Brutal Deluxe Software v3.1 - 27/Feb/2024 1. When a sound is saved, its size is aligned to a page boundary. That makes it easier to handle. 2. The (c) string added as a suffix to all sounds is removed. Okay, well it's is finally done! Of coures I'm expecting people to report any bugs discovered. First off, this program is still shareware and it is now $7. The reason for this is that many people said the original was worth $5, and the second was worth more than $5 (not to mention inflation), and this version does even more. If you are on GEnie, I accept payment to my GEnie account of P.BENSON1 via Gift of Time. Also, my address has changed to: Paul Benson 3300 Cobblestone Court Raleigh, NC 27607 If you paid for previous rSounders, you do _not_ owe any extra money. What's Changed? I've added some features to this version. I'll just list them in no real order. Support for opening WAV, AU, and MOD files has been added. For AU samples, I only support linear and mu-law. I could not find the valid code for A-law samples, so I don't think NeXT/SUN really supports it. The other types I don't think are possible for the GS (DSP stuff). I have an algorithm for A-law to 8-bit linear, so if anyone knows the AU code for A-law samples, I can easily add support. Support for saving as WAV and AU has been added. This is what got me motivated to work on rSounder again as I had some nice GS sounds I wanted to port to my PC. The AU samples are saved as mu-law. Change Frequency. This needed to be added to support WAVs since WAV files only handle a few set frequencies (unlike the GS). Since I had to add it, I figured I may as well let users play around with it. IT TAKES A LONG TIME due to floating point operations. The effect of this is to change the playback rate without changing how the sample sounds (i.e. no pitch change). The sound length will change accordingly. For example, if your sound sample is 10000 bytes long and is set to play at a frequency of 20000 (therefore a half second sound sample), you can convert it to play at 10000 and the sample will be reduced to 5000 bytes (to maintain the half second play length). This is a pretty good algorithm and can also be used to smooth a sound (by increasing the playback rate) or to reduce a sound's size with little loss to play quality. You can amplify the sound by railing it out or by a percentage. The first option will 'rail out' the sound, i.e. at least one value will be 255 or 1. If a 255 or 1 already exists, then the sound is not changed. The second option allows the sound to be railed outside of the valid ranges. There is a ceiling of 255 and a floor of 1 to prevent improper sound data. There is an added benefit to this in that the second option is by a percentage. So, you can actually 'muffle' the sound with values less than 100%. Easter Eggs! If you can find them, you should be pleasantly surprised. Be warned, they do mess with the sound sample currently loaded. Yes, the opening sound was created with rSounder. ;) Please include this document with any copy of rSounder version 3 that you share. Special thanks to the people who already paid there shareware fee. While it has yet to pay my rent, it is a nice perk. A special kudos to the people outside of the USA who took the time/effort/extra money to pay for the shareware fee. I must say I was pleasantly surprised to get payments from Canada, France, Germany, and other places. You can contact me at the above address, by GEnie as P.BENSON1, or the. net via baja@nando.net. Cheers, Pauley