Fix loader "SETLEV3.BAS" doesn't work SFX in mode MOONSOUND

By gasparrini

Champion (309)

gasparrini's picture

10-09-2020, 04:48

Hello Guys of MSX World,

How I can to fix this my loader "SETLEV3.BAS" ??
Doesn't work SFX sounds effect in mode MOONSOUND in NESTOR BASIC.

10 'SETLEV3.BAS by KdL for GAMECAST Ent.(AG)
15 SCREEN1:COLOR15,1,1
20 CLEAR200:BLOAD"H-EDITOR.BIN",R:PRINT"HVSCROLL ok!"
30 POKE&HFCAF,8:BLOAD"EGYPT.BIN",R:POKE&HFCAF,1
40 POKE&HFCAF,8:BLOAD"SCRAMBLE.VRM",S:POKE&HFCAF,1:PRINT"MODE4IN1 ok!"
45 FORL=0TO31:VPOKE&H1E00+L*4,209:NEXTL
50 PRINT"VRAM INIT ok!"
60 BLOAD"NBASIC.BIN",R:DEFINTA-Z:PRINT"NESTOR BASIC ok!"
70 P(10)=7:A=USR(1):IFP(0)<8THEN"error: 128K RAM IS NEEDED!":ENDELSEPRINT"RAM TEST passed!"
72 REM SET MOONSOUND CARTRIDGE
75 IFPEEK(&H2D)=3THENP(0)=0:P(1)=&H180:P(2)=&H8100:E=USR(58)
78 P(0)=1:E=USR(71):E=USR(72):IFP(11)=-1THENF$(0)="MYTHSDRA.MWK":PRINT"DRUMKIT WAVE OK!":E=USR(31):E=USR(79):E=USR(32):P(0)=1:P(1)=1:P(2)=0:E=USR(73):GOSUB146ELSEGOTO80
80 P(0)=0:A=USR(71):PRINT"MOONBLASTER 1.4 ok!"
90 P(2)=7:'segment #7 is preset for function #32
100 P(0)=0:P(7)=&H7FFF:F$(0)="GALAXY.MBK":A=USR(31):A=USR(78):A=USR(32):PRINT"DRUMSKIT OK!"
110 F$(0)="GALAXY1.MBM":A=USR(31):P(3)=0:P(4)=10155:A=USR(33):A=USR(32):PRINTF$(0);" ok!"
120 F$(0)="GAMEOVER.MBM":A=USR(31):P(3)=10155:P(4)=754:A=USR(33):A=USR(32):PRINTF$(0);" ok!"
130 F$(0)="CLEAR.MBM":A=USR(31):P(3)=10155+754:P(4)=899:A=USR(33):A=USR(32):PRINTF$(0);" ok!"
140 F$(0)="TABLE.MBM":A=USR(31):P(3)=10155+754+899:P(4)=1108:A=USR(33):A=USR(32):PRINTF$(0);" ok!"
145 REM LOADING MUSIC MOONSOUND
146 PRINT"FOUND MOONSOUND CARTRIDGE!"
147 F$(0)="4MYSTERY.MWM":A=USR(31):P(2)=7:P(3)=0:P(4)=6064:A=USR(33):A=USR(32):PRINTF$(0);" ok!"
148 REM
149 REM LOADING SFX SOUND
150 F$(0)="SCRAMBLE.SEE":A=USR(31):P(2)=7:P(3)=6064:P(4)=11484+6046:A=USR(33):A=USR(32):PRINTF$(0);" ok!"
160 P(0)=6:P(1)=&H0:A=USR(68):PRINT"SFX INIT ok!"
170 P(0)=15:A=USR(67):'psg volume 13 is set
180 PRINT:PRINT"all done!"
190 PRINT"LOADING...BEYOND GALAXY"
200 RUN"BEYOND3.BAS"
210 '
220 DEFUSR9=&HE000:A=USR9(0)' INIT OF VHSCROLL
230 ' P(0)=7:P(1)=0:A=USR(74):' PLAY MANBOW01.MBM
240 ' P(0)=7:P(1)=3632:A=USR(74):' PLAY GAMEOVER.MBM
250 ' P(0)=7:P(1)=3632+754:A=USR(74):' PLAY CLEAR   .MBM
260 ' P(0)=7:P(1)=3632+754+899:A=USR(74):' PLAY TABLE.MBM
270 ' P(0)=1:A=USR(69):' PLAY SFX #1

I wait yuor good news
Andrea

Login or register to post comments

By gasparrini

Champion (309)

gasparrini's picture

10-09-2020, 16:12

Hello,

I managed to solve the problem by myself,
thanks anyway.

Sincerely
Andrea

By Manuel

Ascended (16831)

Manuel's picture

10-09-2020, 23:36

Now if you would explain the issue a bit and the solution, this thread wasn't totally useless...