MSX Village forum

est ce que ce montage démarre sur une rom 32k directement a l'init du MSX ?

tu veux que je te fasse ça avec fusion-c en binaire ?

même si fusion-c est à la base fait pour travailler sous Dos, faire une Rom de menu sans fioritures c'est faisable assez simplement.

Edité par ericb59 Le 20/11/2020 à 09h01

susceptible un corse ?
mouahhh ! Y'a pas plus adorable !

(tant qu'il a pas accès à des explosifs )

une rom en fusion-c ?? pourquoi pas

si y as une magouille dans la doc ??? je prend j'essai tous !!!.... MAIS JE FAIS PAS TOUS ...

mais c'est pour un MSX1 pas un MSX2 + RAM + FDD ...

susceptible ....NON apres faut voir !!!

pour les OUTs j'ai meme essayer le prog minimum le def le out le l'usr ... meme resultat ... syntax error
de reserver des blocks ram (clear) des defints... idem

je met le source du prog basic... si y as quelques chose qui vous choque !!!

1 POKE&HFBB1,1
2 CLEAR500EFINT A-Z
10 COLOR15,1
100 AX=13:BY=3:GM=1IM A$(20)
110 GOSUB 560
120 CLS:KEYOFF
130 SCREEN 0:WIDTH 40
140 X=1:Y=0:LX=38:LY=6:GOSUB 450
150 X=1:Y=7:LX=X+11:LY=Y+2:GOSUB 450
160 X=14:Y=7:LX=X+11:LY=Y+2:GOSUB 450
170 X=27:Y=7:LX=X+11:LY=Y+2:GOSUB 450
180 X=1:Y=10:LX=X+11:LY=Y+2:GOSUB 450
190 X=14:Y=10:LX=X+11:LY=Y+2:GOSUB 450
200 X=27:Y=10:LX=X+11:LY=Y+2:GOSUB 450
210 X=1:Y=13:LX=X+11:LY=Y+2:GOSUB 450
220 X=14:Y=13:LX=X+11:LY=Y+2:GOSUB 450
230 X=27:Y=13:LX=X+11:LY=Y+2:GOSUB 450
240 X=1:Y=16:LX=X+11:LY=Y+2:GOSUB 450
250 X=14:Y=16:LX=X+11:LY=Y+2:GOSUB 450
260 X=27:Y=16:LX=X+11:LY=Y+2:GOSUB 450
270 X=1:Y=19:LX=X+11:LY=Y+2:GOSUB 450
280 X=14:Y=19:LX=X+11:LY=Y+2:GOSUB 450
281 COLOR ,15:COLOR ,1
290 X=27:Y=19:LX=X+11:LY=Y+2:GOSUB 450
291 COLOR ,15:COLOR ,1
295 LOCATE 2,2:PRINT"FLASHBOX MENU V1 Bastion Rebel 2020";
297 LOCATE 2,4:PRINT"SELECT ROM ";CHR$(&HD0);" ";CHR$(&HCF);" ";CHR$(&HCE);" ";CHR$(&HCD);" SPC = LOAD ROM"
300 X=2:Y=8:CP=1
310 FOR IX=0 TO2
320 FOR IY=0 TO4
330 LOCATE 2+(IX*13),8+(IY*3):PRINT A$(CP);:CP=CP+1
340 NEXT IY
350 NEXT IX
360 K=STICK(0):S=STRIG(0)
370 IF S=-1 THEN COLOR 15:GOTO 720
380 IF K=1 AND Y>8 THEN Y=Y-BY:GM=GM-1
390 IF K=3 AND X<28 THEN X=X+AX:GM=GM+5
400 IF K=5 AND Y<20 THEN Y=Y+BY:GM=GM+1
410 IF K=7 AND X>2 THEN X=X-AX:GM=GM-5
420 GOSUB 530
430 GOTO 360
440 '-------------
450 '---------
460 VPOKE(X+(Y*40)),&H18:VPOKE(LX+(Y*40)),&H19
461 VPOKE(X+(LY*40)),&H1A:VPOKE(LX+(LY*40)),&H1B
462 FOR I=X+1 TO LX-1
465 VPOKE(I+(Y*40)),&H17
467 VPOKE(I+(LY*40)),&H17
480 NEXT I:I=0
490 FOR I=Y+1 TO LY-1
505 VPOKE(LX+(I*40)),&H16:VPOKE(X+(I*40)),&H16
510 NEXT I:I=0
520 RETURN
530 LOCATE X,Y:PRINTSPC(10)
540 LOCATE X,Y:PRINT A$(GM)
550 RETURN
560 A$(1)="MSXDIAG1.2"
570 A$(2)=" ARKANOID "
580 A$(3)=" BOSCONIA "
590 A$(4)="BoulderDas"
600 A$(5)="GREENBERET"
610 A$(6)=" H.E.R.O. "
620 A$(7)=" TETRIS "
630 A$(8)="LODERUNNER"
640 A$(9)=" GOONIES "
650 A$(10)="KNIGHTMARE"
660 A$(11)=" TWIN BEE "
670 A$(12)=" THEXDER "
680 A$(13)=" VOLGUARD "
690 A$(14)=" ZANAC "
700 A$(15)=" ZAXXON "
710 RETURN
720 '--------
739 LOCATE 6,10:PRINTSPC(28)
740 LOCATE 6,11:PRINTSPC(28)
741 LOCATE 6,12:PRINTSPC(28)
742 LOCATE 6,13:PRINTSPC(28)
743 LOCATE 6,14:PRINTSPC(28)
750 X=7:Y=11:LX=X+25:LY=Y+2:GOSUB 450
751 LOCATE 8,12:PRINT"< LOADING ";A$(GM);" >"
800 DEFUSR=0:A=GM
810 OUT &H94,A
820 PRINT USR(0)
830 GOTO 830

tout marche impec et arriver en 810 syntax error ??? meme avec 810 a=usr(0)



Edité par Bastion Rebel Le 20/11/2020 à 17h52

mode humour ( dixit TurboSEB )

peut être a cause de ce jeu qui ne mérite pas d'être avec les autres

600 A$(5)="GREENBERET"

il y aura peut être un conflit avec A$ car tu l'utilise aussi en tableau

remplace le par B$ dans ma routine si il y a conflit

5 CLEAR 200,&HCFFF GOSUB 1000

1000 DATA F3,3A,09,D0,D3,94,C3,00,00
1010 FOR I=&HD000 TO &HD008
1020 READ B$
1030 POKE I,VAL("&H"+B$)
1040 NEXT
1050 RETURN

et pour ceux qui veulent voir en video

https://www.facebook.com/gillou.kettemeyer/posts/3516860911683408

Encore MERCI A JIPE

Mouais ben je voulais juste aider... Je remballe mon matos et pis c'est tout.. Tchao Edité par ericb59 Le 21/11/2020 à 18h46