100 SCREEN 0:COLOR 15,1,1:CLS:DEFINT A-Z:AD=&HD000:SZ=&HD05A:RB=&HD05F 110 DEFUSR=AD:DEFUSR1=&HD030:DEFUSR2=&HD0D0:DEFUSR3=&HD100:DEFUSR4=&HD130 120 READ D$:IF D$<>"*" THEN POKE AD,VAL("&h"+D$):AD=AD+1:GOTO 120 130 FL$(0)="MSX ROM":FL$(1)="MSX2 ROM":FL$(2)="MSX2P ROM":FL$(3)="MSXTR ROM" 140 FL$(4)="MSX2EXT ROM":FL$(5)="MSX2PEXTROM":FL$(6)="MSXTREXTROM":POKE SZ,&H40:POKE RB,0 150 PRINT:PRINT"--- PANASONIC MSX MAKEROM VER 1.00 ---":PRINT 160 PRINT"1: SYSTEM ROM (PANASONIC'S MSX SYSTEM)" 180 PRINT"2: 32K ROM ON SLOT 1" 190 PRINT"3: MEGA-ROM ON SLOT 1" 200 PRINT"4: TURBO-R INTERNAL ROMS (UNSUPPORTED)" 210 PRINT:PRINT"No. >"; 220 A$=INPUT$(1):A=VAL(A$):IF A<1 OR A>4 THEN BEEP:GOTO 220 230 PRINT A$:ON A GOTO 250,440,520,670 240 ' 250 PRINT"System ROMs":PRINT"Main ROM(1)..";:A=USR(&H80) 260 V=PEEK(&H902D):IF V>2 OR V<0 THEN V=3 265 PRINT USR1(FL$(V)) 270 PRINT"Main ROM(2)..";:A=USR(&H4080):POKE RB,1:PRINT USR1(FL$(V)) 280 POKE RB,0:IF V=0 THEN 310 290 PRINT"Sub ROM..";:A=USR(PEEK(&HFAF8)):PRINT USR1(FL$(V+3)) 310 IF PEEK(&H9000)=&HFF GOTO 370 320 PRINT"Kanji ROM(1)..";:FOR KC=0 TO 7:POKE RB,KC 330 A=USR2(KC*512):A$=USR1("KANJI ROM"):NEXT:PRINT"KANJI ROM" 340 POKE &HD0E5,&HDA:POKE &HD0EA,&HDB:POKE &HD0EF,&HDB 350 PRINT"Kanji ROM(2)..";:FOR KC=0 TO 7:POKE RB,KC+8 360 A=USR2(KC*512):A$=USR1("KANJI ROM"):NEXT:PRINT"KANJI ROM":POKE RB,0 370 A=USR(&H4087):IF PEEK(&H9000)=&HFF GOTO 400 380 PRINT"Kanji driver ROM..";:A$=USR1("KNJDRV ROM") 390 A=USR(&H8087):POKE RB,1:PRINT USR1("KNJDRV ROM"):POKE RB,0 400 A=USR(&H4088):IF PEEK(&H9000)=&HFF GOTO 420 410 PRINT"FM-BIOS ROM..";USR1("FMBIOS ROM") 420 GOTO 720 430 ' 440 PRINT"Checking ROM on slot 1...";:A=USR(&H4001) 450 IF PEEK(&H9000)<>&H41 THEN PRINT"Bad ROM !":BEEP:GOTO 130 ELSE PRINT 460 INPUT"The File name >";F$:F$=LEFT$(F$+" ",8)+"ROM" 470 INPUT"The Size of the ROM size (ret:32K 1:16K)";SZ 480 PRINT"ROM on slot 1..";:POKE RB,0:A$=USR1(F$):IF SZ=1 GOTO 500 490 A=USR(&H8001):POKE RB,1:A$=USR1(F$):POKE RB,0 500 PRINT F$:GOTO 720 510 ' 520 INPUT"File name:";F$:F$=LEFT$(F$+" ",8)+"ROM" 530 PRINT"Mega ROM type (0 or [RET]:KONAMI(SCC) 1:ASCII/8 2:ASCII/16" 535 PRINT SPC(15);:input"4:KONAMI 5:'R-TYPE') :";RT 540 INPUT"The Size of the Mega ROM (ret:1M):";SM:IF SM=0 THEN SM=1 550 IF SM*128>DSKF(1) THEN BEEP:PRINT"Not enough disk space!":GOTO 540 560 ON RT+1 GOTO 580,590,600,570,602,604 570 GOTO 530 580 AD=&H5000:BE=SM*16-1:POKE SZ,&H20:GOTO 610 590 AD=&H6000:BE=SM*16-1:POKE SZ,&H20:GOTO 610 600 AD=&H6000:BE=SM*8-1: POKE SZ,&H40:GOTO 610 602 AD=&H5000:BE=SM*16-1:POKE SZ,&H20:GOTO 610 604 AD=&H7000:BE=SM*8-1: POKE SZ,&H40:GOTO 610 610 BN=0:POKE RB,0:A=USR3(AD+BN) 620 IF PEEK(&H9000)<>&H41 THEN PRINT"Bad ROM !":BEEP:GOTO 130 630 PRINT"Now saving..";:POKE &H9000,&H41+RT:A$=USR1(F$) 640 FOR BN=1 TO BE:POKE RB,BN:A=USR3(AD+BN):A$=USR1(F$):NEXT 650 PRINT:GOTO 720 660 ' 670 PRINT"Turbo R" 671 POKE SZ,&H20:FOR I=0 TO 15:F$="TURBOR 00"+HEX$(I):PRINT F$:A$=INPUT$(1) 675 FOR J=0 TO 31:POKE RB,J:A=USR4(I*32+J):A$=USR1(F$):NEXT:NEXT 710 ' 720 PRINT"Complete!":GOTO 130 730 ' 740 DATA fe,02,c0,23,23,f3,7e,23,66,2e,00,01,00,40,11,00 750 DATA 90,f5,d5,c5,cd,0c,00,c1,d1,12,23,13,0b,78,b1,28 760 DATA 03,f1,18,ed,f1,fb,af,c9,00,00,00,00,00,00,00,00 770 DATA fe,03,c0,13,1a,6f,13,1a,67,af,11,00,d2,12,13,01 780 DATA 0b,00,ed,b0,11,00,90,0e,1a,cd,7d,f3,11,00,d2,0e 790 DATA 16,cd,7d,f3,b7,c2,90,d0,21,00,40,22,0e,d2,21,00 800 DATA 00,22,21,d2,21,00,00,22,23,d2,21,01,00,11,00,d2 810 DATA 0e,26,cd,7d,f3,b7,c2,95,d0,11,00,d2,0e,10,cd,7d 820 DATA f3,b7,c2,9a,d0,11,a0,d0,0e,09,cd,7d,f3,c9,00,00 830 DATA 11,a4,d0,18,f3,11,af,d0,18,ee,11,bb,d0,18,e9,00 840 DATA 4f,4b,3a,24,07,4f,70,65,6e,20,65,72,72,3a,24,07 850 DATA 57,72,69,74,65,20,65,72,72,3a,24,07,43,6c,6f,73 860 DATA 65,20,65,72,72,3a,24,00,00,00,00,00,00,00,00,00 870 DATA fe,02,c0,23,23,7e,23,66,6f,11,00,90,e5,7d,e6,3f 880 DATA ed,6a,ed,6a,d3,d8,7c,e6,3f,d3,d9,e1,06,20,db,d9 890 DATA 12,13,10,fa,23,7a,fe,d0,20,e2,c9,00,00,00,00,00 900 DATA fe,02,c0,23,23,e5,7e,23,66,2e,00,f5,e5,3e,01,21 910 DATA 00,40,cd,24,00,e1,f1,77,21,00,40,11,00,90,01,00 920 DATA 40,ed,b0,af,21,00,40,cd,24,00,e1,c9,00,00,00,00 930 DATA fe,02,c0,23,23,7e,23,66,6f,e5,21,00,40,3e,8f,cd 940 DATA 24,00,e1,3e,ff,32,f9,7f,3a,f2,7f,5f,3a,f8,7f,57 950 DATA d5,7d,32,00,68,7c,b7,28,02,3e,04,32,f8,7f,21,00 960 DATA 40,11,00,90,01,00,20,ed,b0,d1,7b,32,00,68,7a,32 970 DATA f8,7f,21,00,40,3e,80,cd,24,00,c9,*