Adlib-S3M player for QuickBasic, with effects support

Some entirely in QuickBasic written subroutines for playing Adlib-S3M or MidiS3M files in a QuickBasic program.

'$INCLUDE: 'fmengine.bi'
pleiplei: IF FMtimer% THEN RETURN
IF FMinit < 0 THEN PRINT "FM sound not available.": END
FMload "mysidia.s3m"
' The main loop
WHILE INKEY$ = "": WEND
FMend
END
Could it any way be simpler than this?
 
(Note you must copy FMinit(), MPUDetect(), MPUvol(), VibVal(), note2period(), BeSilent(), FMend(), FMload(), FMnoteoff(), FMplayeffect(), FMplayrowfrom(), FMtimer(), FMtouch(), FMupdate(), FMwrite() and MPUwrite() to the program, but these do not bother your editing, do they? :) )

As an alternative, there is a shorter file "fm.inc" which can be simply concatenated to your program. it works even in QBasic (the stripped version of QuickBasic, distributed with MS-DOS 4 and 5).
An example of its use can be seen at Youtube, here.

• +Does not require any difficult timing loops or calling a subroutine regularly. It works "behind the scenes".
• +Supports changing the song any time you want.
• +Uses really little memory.
• -It accesses your hard disk / floppy often: it loads and keeps only one pattern at time from the file to memory. You shouldn't notice this though if you're using a disk cache program like smartdrv).
• +Allows playing adlib sound effects on the top of music. The sound effects are actually music tracks.
• +Entirely written in QuickBasic. This does not require any assembler-written modules.
• +The following S3M effects and control codes are supported:
  Axx, Txx, Dxx, Kxx, Exx, Fxx, Hxx, Cxx, Bxx, SBx, SCx, SDx, SEx
• +It supports MPU-401 (midi) playing also.
• +The subroutines are fairly easy to copy to your own program to add nice music.

The archive contains some example songs and one example effect file.
Two of the example songs are made by Future Crew, four by me, and two by Warp.

The current version just assumes you have MPU-401 too. If you don't have, just edit the MPUwrite subroutine and add a EXIT SUB clause there to be the first command.

It uses ON PLAY event mechanism for the timing, and plays short silent pause commands. Therefore you can not make speaker beeps while the player is playing. This does not affect the performance of the main program.
This causes some problems with dosemu though.

In the example program, you must press a key (try a,b,c,d,e,f,i,j,g,h,v,0,1 keys).
Note that your sound card must really be Adlib compatible. Creative Sound Blaster AudioPCI 128, for example, is not.

The player uses following global static tables, and nothing else:

Var	Size in bytes	Type
fmperiod	24	int[0..11]
order	512	int[0..255]
adldata	2400	int[1..100,0..11]
insdata	1200	{6 ints}[1..100]
adlchan	896	{14 ints}[0..31]
MIDInote	64	int[0..31]
MIDIchan	64	int[0..31]
fmfilename	4+n	string
fmpattern	4+n	string
fmeffect	4+n	string
fmdata	46	{17 ints,double,long}
fmeff	24	{3 ints}[0..3]
Total:	5242+n

(I am sorry for the big amount of names used, but QuickBasic does not allow putting arrays or dynamic strings inside typedefs.)

The engine loads and keeps only one pattern at time from the file to memory. This means that the engine accesses the media every time the pattern changes. Patterns usually are about 1kB long per average.

Okay, who uses QuickBASIC today? If you find this program useful, you are strongly encouraged to tell me.
However I'm planning to make a QuickBASIC compiler for *nix systems like Linux. See the project page for details. You are encouraged to join as a developer if possible :)

If you have problems using this program or ideas how to develop it, email me your questions or ideas.
Please do not omit the details.
My email address (sigh) is: bisqwit at iki dot fi

fmengineqb has been written by Joel Yliluoma, a.k.a. Bisqwit,
and is distributed under the following terms:

* No warranty. You are free to modify this source and to
* distribute the modified sources, as long as you keep the
* existing copyright messages intact and as long as you
* remember to add your own copyright markings.
* You are not allowed to distribute the program or modified versions
* of the program without including the source code (or a reference to
* the publicly available source) and this notice with it.

• sndtool2, which handles NES music, is somewhat related to OPL, although NES doesn't use FM synthesis (except on one extension chip).
• opl3emu emulates the OPL3 chip (which is known also as the FM synthesis chip or AdLib). Embed it with this player and you don't need OPL3 anymore :)
• qbc - I am developing a portable QuickBASIC clone. It isn't of any use yet, but perhaps it would be if you joined to the development.

Downloading help

• Do not download everything - you only need one file (newest version for your platform)!
• Do not use download accelerators or you will be banned from this server before your download is complete!

Date (Y-md-Hi) acc        Size Name                
2010-0122-0952 r--       37622 fmengineqb-1.1.0.tar.bz2
2010-0122-0952 r--       39712 fmengineqb-1.1.0.tar.gz
2010-0120-1327 r--       35943 fmengineqb-1.0.3.tar.bz2
2010-0120-1327 r--       38523 fmengineqb-1.0.3.tar.gz
2003-0530-0004 r--       34649 fmengineqb-1.0.2.5.tar.bz2
2003-0805-2016 r--       39830 fmengineqb-1.0.2.5.zip
2003-0530-0004 r--        8735 patch-fmengineqb-1.0.2.4-1.0.2.5.bz2
2002-1210-0002 r--       33263 fmengineqb-1.0.2.4.tar.bz2
2002-1210-0002 r--        4894 patch-fmengineqb-1.0.2.3-1.0.2.4.bz2
2002-0721-2257 r--       32884 fmengineqb-1.0.2.3.tar.bz2
2002-0721-2257 r--        3025 patch-fmengineqb-1.0.2.2-1.0.2.3.bz2
2002-0716-1304 r--       32753 fmengineqb-1.0.2.2.tar.bz2
2002-0716-1304 r--        2168 patch-fmengineqb-1.0.2.1-1.0.2.2.bz2
2002-0515-0823 r--       32520 fmengineqb-1.0.2.1.tar.bz2
2002-0515-0823 r--        5945 patch-fmengineqb-1.0.2-1.0.2.1.bz2
2002-0402-1435 r--       29809 fmengineqb-1.0.2.tar.bz2
2002-0402-1435 r--       33085 fmengineqb-1.0.2.zip
2002-0402-1435 r--       13314 patch-fmengineqb-1.0.1-1.0.2.bz2
2002-0318-1102 r--       20066 fmengineqb-1.0.1.tar.bz2
2002-0318-1102 r--        2770 patch-fmengineqb-1.0-1.0.1.bz2
2002-0221-2256 r--       19164 fmengineqb-1.0.rar
2002-0318-1000 r--       19652 fmengineqb-1.0.tar.bz2
2002-0221-2256 r--       21042 fmengineqb-1.0.zip

← Back to the source directory index at Bisqwit's homepage