Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
xitvbl = $e462
sysvbv = $e45c
wsync = $d40a
portb = $d301
phr
lda #$06
sta wsync
sta $D01a
.ifdef MAIN.@DEFINES.SFX_SWITCH_ROM
.ifdef MAIN.@DEFINES.ROMOFF
lda portb
pha
lda #$FE
sta portb
.endif
.endif
jsr INIT_SFXEngine.SFX_MAIN_TICK
.ifdef MAIN.@DEFINES.SFX_SWITCH_ROM
.ifdef MAIN.@DEFINES.ROMOFF
pla
sta portb
.endif
.endif
lda #$00
sta $D01a
plr
rti
procedure SFX_Start;
begin
INIT_SFXEngine();
NMIEN:=%00000000;
GetIntVec(iDLI, oldDLI);
SetIntVec(iDLI, @SFX_tick);
NMIEN:=%11000000; <-- tu miałem błąd, było %10000000
end;
SFX_Off();
if oldDLI<>nil then
begin
NMIEN:=%00000000;
SetIntVec(iDLI, oldDLI);
NMIEN:=%11000000; <-- i tu
oldDLI:=nil;
end;
procedure SFX_End;
begin
SFX_Off();
if oldVBL<>nil then
begin
NMIEN:=%00000000;
SetIntVec(iDLI, oldVBL);
NMIEN:=%01000000;
oldVBL:=nil;
end;
end;