Rework examples for RMTPLAY and RMTPLAY2

Author: peterdell

samples/a8/sound/rmt/atari.chr

@@ -0,0 +1,40 @@
+;* --------BEGIN--------
+;* C:\jac\system\Atari800\Programming\Repositories\Mad-Pascal\samples\a8\sound\rmt\test.rmt
+FEAT_SFX                equ 0
+FEAT_GLOBALVOLUMEFADE   equ 0           ;RMTGLOBALVOLUMEFADE variable
+FEAT_NOSTARTINGSONGLINE equ 0
+FEAT_INSTRSPEED         equ 1
+FEAT_CONSTANTSPEED              equ 10          ;(0 times)
+FEAT_COMMAND1           equ 1           ;(16 times)
+FEAT_COMMAND2           equ 1           ;(3 times)
+FEAT_COMMAND3           equ 0           ;(0 times)
+FEAT_COMMAND4           equ 0           ;(0 times)
+FEAT_COMMAND5           equ 1           ;(4 times)
+FEAT_COMMAND6           equ 1           ;(12 times)
+FEAT_COMMAND7SETNOTE            equ 0           ;(0 times)
+FEAT_COMMAND7VOLUMEONLY         equ 0           ;(0 times)
+FEAT_PORTAMENTO         equ 1           ;(10 times)
+FEAT_FILTER             equ 1           ;(39 times)
+FEAT_FILTERG0L          equ 1           ;(39 times)
+FEAT_FILTERG1L          equ 0           ;(0 times)
+FEAT_FILTERG0R          equ 0           ;(0 times)
+FEAT_FILTERG1R          equ 0           ;(0 times)
+FEAT_BASS16             equ 0           ;(0 times)
+FEAT_BASS16G1L          equ 0           ;(0 times)
+FEAT_BASS16G3L          equ 0           ;(0 times)
+FEAT_BASS16G1R          equ 0           ;(0 times)
+FEAT_BASS16G3R          equ 0           ;(0 times)
+FEAT_VOLUMEONLYG0L              equ 0           ;(0 times)
+FEAT_VOLUMEONLYG2L              equ 0           ;(0 times)
+FEAT_VOLUMEONLYG3L              equ 0           ;(0 times)
+FEAT_VOLUMEONLYG0R              equ 0           ;(0 times)
+FEAT_VOLUMEONLYG2R              equ 0           ;(0 times)
+FEAT_VOLUMEONLYG3R              equ 0           ;(0 times)
+FEAT_TABLETYPE          equ 0           ;(0 times)
+FEAT_TABLEMODE          equ 0           ;(0 times)
+FEAT_TABLEGO            equ 0           ;(0 times)
+FEAT_AUDCTLMANUALSET            equ 0           ;(0 times)
+FEAT_VOLUMEMIN          equ 0           ;(0 times)
+FEAT_EFFECTVIBRATO              equ 1           ;(5 times)
+FEAT_EFFECTFSHIFT               equ 0           ;(0 times)
+;* --------END--------

samples/a8/sound/rmt/delta.feat

@@ -1,49 +1,94 @@
-// RMT PLAYER
-
-{$define romoff}
+// RMT - RASTER Music Tracker Player
+// To use this player, you need and ".RMT" file and the corresponding features file.
+// The features file is module-specific assembly file that indicates which features
+// of the player the module actually uses. Using this file at compile-time, a player
+// that is optimized to the requirements of the specific song is created.
+// While this help to save memory for a single song, it also creates overhead when
+// using multiple songs at once. Because then you need the player also indidivually
+// for every song.
+// To create a stripped ".RMT" file (with song name and instrument names removed to
+// save space) and the features files, use the menu "File / Export As... / ".
+// Copy the displayed features definition to the clipboard and paste it into a ".FEAT" file.
+// The songs and their feature files are linked as resources using the related ".RC" file.
+// See "base\atari\players" folder for implementation details.
+
+
+{$define romoff} // TODO: Does not copy font https://forums.atariage.com/topic/240919-mad-pascal/page/38/#findComment-5623690
 
 uses crt, rmt;
 
 const
-	rmt_player = $e000;
-	rmt_modul = $c000;
+        rmt_player_4 = $8000;  // RMTPLAY resource, can be used in memory area $0000-$bfff
+                               // Beware, the player uses also $400 byte before this address
+        rmt_player_8 = $f000;  // RMTPLAY2 resource, can also be used in memory area $c000-ffff
+                               // Beware, the player uses also $400 byte before this address
+
+        rmt_module_4 = $6000;  
+        rmt_module_8 = $c000;
+        
+        charset      = $e000;  // Workarund for https://github.com/tebe6502/Mad-Pascal/issues/162
 
 var
+        song: byte;
+        song_name: string;
+        song_author: string;
 	msx: TRMT;
 
 	ch: char;
 
 {$r 'rmt_play.rc'}
 
-
 begin
-	while true do begin
-
-	msx.player:=pointer(rmt_player);
-	msx.modul:=pointer(rmt_modul);
 
-	msx.init(0);
+        song:=0;
 
-	writeln('Pascal RMT player example');
+(*      The following block can only be used if there is a single RMLT/RMT2 player
+        asm
+        lda #$00                ; $00 max volume ; $f0 silenc
+        sta RMTGLOBALVOLUMEFADE
+        end;
+*)
 
+	while true do begin
 
-	asm
-
-	lda #$00		; $00 max volume ; $f0 silenc
-	sta RMTGLOBALVOLUMEFADE
-
+        write(chr$(125));
+        writeln('Pascal RMT player example');
+        writeln;
+
+        if song=0 then
+        begin
+               song_name:='Delta (Mono)';
+               song_author:='Radek Sterba aka RASTER';
+	       msx.player:=pointer(rmt_player_4);
+	       msx.modul:=pointer(rmt_module_4);
+	end else
+	begin
+	       song_name:='Smells Like Teen Spirit (Stereo)';
+	       song_author:='Adam Hay aka sack/c0s';
+               msx.player:=pointer(rmt_player_8);
+               msx.modul:=pointer(rmt_module_8);
 	end;
 
-
+	msx.init(0);
+	writeln('Currently playing ...');
+        writeln;
+	writeln(song_name);
+	writeln('by ', song_author);
+        writeln;
+        writeln('Press any key to toggle song.');
 	repeat
 		pause;
 
 		msx.play;
 
 	until keypressed;
+	
 	ch:=readkey();
 
 	msx.stop;
+        
+        inc(song);
+        if song=2 then song:=0;;
 
 	end;
 

samples/a8/sound/rmt/delta.rmt

@@ -1,2 +1,6 @@
-rmt_player	RMTPLAY2 'smells.feat' 1
-rmt_modul	RMT 'smells.rmt'
+rmt_player_4    RMTPLAY  'delta.feat' 1
+rmt_module_4    RMT      'delta.rmt'
+rmt_player_8	RMTPLAY2 'smells.feat' 1
+rmt_module_8	RMT      'smells.rmt'
+charset         RCDATA   'atari.chr'
+

samples/a8/sound/rmt/rmt_play.pas

@@ -1,7 +1,7 @@
 ;* --------BEGIN--------
 ;* D:\!Atari\P O K E Y\RMT\songs\sack_cosine\ddd.rmt
 FEAT_SFX		equ 0
-FEAT_GLOBALVOLUMEFADE	equ 1		;RMTGLOBALVOLUMEFADE variable
+FEAT_GLOBALVOLUMEFADE	equ 0		;RMTGLOBALVOLUMEFADE variable
 FEAT_NOSTARTINGSONGLINE	equ 0
 FEAT_INSTRSPEED		equ 1
 FEAT_CONSTANTSPEED		equ 0		;(28 times)