MP mpt issue, main.pas

program ReOMA;
{$librarypath 'f:\!_emulacja\AtariXE\Utils\MadPascal\blibs\'}
{$DEFINE ROMOFF}

uses
    atari, crt, mpt;

const
    BUILD_DATE = {$INCLUDE %DATE%};
    mpt_module_1         = $8000;
    mpt_module_2         = $9000;
    mpt_player           = $b800;

var
    msx: TMPT;
    music_playing : boolean;

{$R resources.rc}

procedure vbl; interrupt;
begin
    if music_playing then msx.play;
    asm {
        jmp $E462
    };
end;

begin

    music_playing := false;
    SetIntVec(iVBL, @vbl);

    Pause;

    msx.player := pointer(mpt_player);
    msx.modul := pointer(mpt_module_1);
    msx.init;

    Pause;

    music_playing := true;

    repeat until keypressed;

    CH := $ff;
    music_playing := false;
    msx.stop;
    Pause;

    msx.modul := pointer(mpt_module_2);
    msx.init;

    Pause;

    music_playing := true;

    repeat until keypressed;

    CH := $ff;
    music_playing := false;
    msx.stop;
    pause;

end.