F-BASIC版のP-ROM Writerカード用ドライバが完成

 

F-BASIC版のP-ROM Writerカード用ドライブソフトも作りました

9月16日のブログで、P-ROMライター用のドライブソフトが完成したと書きましたが、それは、私が常用しているFlex9上で動作するものでしたので、オリジナルのOS-9版と同様、一般的ではありませんでした。

そこで、普段はほとんど使うことがないF-BASIC上で動作するものを作ろうとしたのですが、Flex9ではデータバッファとして32KBを確保できたのに対してF-BASICでは$8000番地から上がROMですのでそんなには取れません。

初めは裏RAMを使用することを考えたのですが、それでも32KBは無理です。（32KBにこだわるのは27256の容量だからです。）

結局、裏RAM使用は止めて少ないバッファ容量に合わせてデータを分割して読み込み、複数回の書き込みをすることとしました。（Flex9版でも27512では2回に分けて書き込んでいます。）

下図で分かりますように、バッファ容量として8KB確保しましたので、2716, 2732, 2764は一回で書き込めますが、27128では2回、27256では4回、27512では8回の書き込みを繰り返すことになります。

これに合わせて、Block選択コマンドを追加しました。（1ブロックは8KB）0を選択すると自動的に書き込みを繰り返して全ブロックを書き込みます。0以外では選択したブロックのみを書き込みます。

また、書き込むデータも全体をメモリ上には置いておけず、機械語ファイルとしてディスクに保存することになりますので、そのファイルのLoad, Saveコマンドも追加しました。

さらに、データファイルを8KB単位に分割して機械語ファイル形式に変換するためのソフトも別途必要です。

結局、実装したコマンドは Info, Type, Block, Pwidth, Dump, Erase, Read, Write, Verify, Load, Save, Quitの計12個となりました。

27512を選択した例を示します。

ブランクチェックをした後、書き込んでいます。

ブロック１から８までを連続して書き込んでいます。

ドライブソフトですが、ほとんどの機能を機械語サブルーチンに任せているので、BASIC部は基本的に初期化とコマンド選択・実行準備だけという簡単なものです。

BASIC部を示します。

1000 'PROM READ/WRITE PROGRAM FOR FM-7 1010 ' 1020 WIDTH 80,25 1030 CLEAR ,&H47FF 1040 MADR=&H4800 :'store subroutine 1050 BUFTOP%=&H5000 1060 BUFEND%=&H7000 :'buffer size is 8KB 1070 POKE MADR+&H12,BUFTOP% \ &H100 1080 POKE MADR+&H13,BUFTOP% MOD &H100 1090 POKE MADR+&H14,BUFEND% \ &H100 1100 POKE MADR+&H15,BUFEND% MOD &H100 1110 PRINT:PRINT"Initializing..." 1120 'PIA INIT 1130 PIA=&HFD9C:PIADA=PIA:PIACA=PIA+1:PIADB=PIA+2:PIACB=PIA+3 1140 POKE PIACA,&H30 :'DDRA 1150 POKE PIACB,&H30 :'DDRB 1160 POKE PIADA,&HFF :'PORTA OUT 1170 POKE PIADB,&HFF :'PORTB OUT 1180 POKE PIACA,&H3C 1190 POKE PIACB,&H3C 1200 ' 1210 CMD$="ITBPDERWVLSQ" 1220 ROMTYP$(0)="2716 ":ROMTYP$(1)="2732 ":ROMTYP$(2)="2764 " 1230 ROMTYP$(3)="27128":ROMTYP$(4)="27256":ROMTYP$(5)="27512" 1240 ROMNO%=3 :'default ROM type is 2764 1250 PWIDTH%=1 :'default write pulse width is 1ms 1260 BLKNO%=1 :'default block no 1270 LDFN$="ROMDAT" 1280 SVFN$="ROMDATS" 1290 ' 1300 '===== SET PROGRAM CODE ===== 1310 LOADM "PWRSUB" :'Load subroutine 1320 ' 1330 '+++++ COMMAND INPUT +++++ 1340 PRINT:PRINT "Command:" 1350 PRINT " I)nfo T)ype B)lock P)width D)ump E)rase R)ead W)rite V)erify L)oad S)ave Q)uit" 1360 PRINT "Command in: "; 1370 KIN$=INKEY$ :IF KIN$="" THEN 1370 1380 PRINT KIN$ 1390 IF ASC(KIN$)>&H61 THEN KIN$=CHR$(ASC(KIN$)-&H20) 1400 CMD=INSTR(1,CMD$,KIN$) 1410 IF CMD=1 THEN GOSUB 1560 :GOTO 1340 :'Info 1420 IF CMD=2 THEN GOSUB 1640 :GOTO 1340 :'Type 1430 IF CMD=3 THEN GOSUB 1740 :GOTO 1340 :'Block 1440 IF CMD=4 THEN GOSUB 1960 :GOTO 1340 :'Pwidth 1450 IF CMD=5 THEN GOSUB 2880 :GOTO 1340 :'Dump 1460 IF CMD=6 THEN GOSUB 2030 :GOTO 1340 :'Erase 1470 IF CMD=7 THEN GOSUB 2110 :GOTO 1340 :'Read 1480 IF CMD=8 THEN GOSUB 2360 :GOTO 1340 :'Write 1490 IF CMD=9 THEN GOSUB 2620 :GOTO 1340 :'Verify 1500 IF CMD=10 THEN GOSUB 2930 :GOTO 1340 :'Load 1510 IF CMD=11 THEN GOSUB 2990 :GOTO 1340 :'Save 1520 IF CMD=12 THEN END :'Quit 1530 GOTO 1340 1540 ' 1550 '===== INFORMATION ===== 1560 PRINT:PRINT "ROM type is ";ROMTYP$(ROMNO%-1) 1570 PRINT "Block no (0:ALL) is";BLKNO% 1580 PRINT "Write pulse width is";PWIDTH%;"ms" 1590 PRINT "Load Filename is ";LDFN$ 1600 PRINT "Save Filename is ";SVFN$ 1610 RETURN 1620 ' 1630 '===== SELECT ROM TYPE ===== 1640 PRINT:PRINT "Select ROM: "; 1650 FOR I=0 TO 5 1660 PRINT USING "#!& &";I+1;")";ROMTYP$(I); 1670 NEXT 1680 PRINT 1690 INPUT "Input ROM no (1..6):";ROMNO% 1700 IF ROMNO%<1 OR ROMNO%>6 THEN 1690 1710 PRINT:PRINT "ROM type is ";ROMTYP$(ROMNO%-1) 1720 ' 1730 '===== SELECT BLOCK NO ===== 1740 PRINT:PRINT "Select Block No: " 1750 BLKNO%=1 1760 IF ROMNO%<=3 THEN PRINT "2716,32,64 is BlockNo=1" :GOTO 1860 1770 PRINT "Input block no (0:ALL,"; 1780 ON ROMNO%-3 GOTO 1790,1810,1830 1790 INPUT "1-2):";KIN$ 1800 IF KIN$<"0" OR KIN$>"2" THEN 1770 ELSE 1850 1810 INPUT "1-4):";KIN$ 1820 IF KIN$<"0" OR KIN$>"4" THEN 1770 ELSE 1850 1830 INPUT "1-8):";KIN$ 1840 IF KIN$<"0" OR KIN$>"8" THEN 1770 ELSE 1850 1850 BLKNO%=VAL(KIN$) 1860 POKE MADR+&H1B,ROMNO%-1 1870 RETURN 1880 ' 1890 '===== SET VARIABLE ===== 1900 POKE MADR+&H1A,PWIDTH% 1910 POKE MADR+&H1B,ROMNO%-1 1920 POKE MADR+&H1C,BLKNO% 1930 RETURN 1940 ' 1950 '===== SET WRITE PULSE WIDTH ===== 1960 PRINT:INPUT "Write pulse width (1..50ms): ";KIN$ 1970 IF VAL(KIN$)<1 OR VAL(KIN$)>50 THEN 1960 1980 PWIDTH%=VAL(KIN$) 1990 POKE MADR+&H1A,PWIDTH% 2000 RETURN 2010 ' 2020 '===== ERASE CHECK ===== 2030 PRINT:PRINT "Erase checking" 2040 GOSUB 1900 2050 DEF USR1=MADR+3:'Erase check command 2060 A%=USR1(0) :'Exec command 2070 IF A%=0 THEN PRINT " Erase check complete!" ELSE PRINT " !!! not BLANK !!!" 2080 RETURN 2090 ' 2100 '===== READ ===== 2110 PRINT :PRINT "Reading BlockNo:" 2120 'set variable 2130 GOSUB 1900 2140 DEF USR2=MADR+6 :'Read command 2150 SVBLKNO%=BLKNO% 2160 IF ROMNO%<=3 THEN MAXNO%=1 ELSE MAXNO%=2^(ROMNO%-3) 2170 IF BLKNO%=0 THEN STNO%=1 ELSE STNO%=BLKNO% :MAXNO%=BLKNO% 2180 'Read 2190 GOSUB 2250 2200 'Read end 2210 BLKNO%=SVBLKNO% 2220 IF A%=0 THEN PRINT "Read complete!" 2230 RETURN 2240 ' 2250 'Read subroutine 2260 FOR I=STNO% TO MAXNO% 2270 BLKNO%=I 2280 PRINT BLKNO%; 2290 POKE MADR+&H1C,BLKNO% 2300 A%=USR2(0) :'Exec 2310 IF A%=0 THEN PRINT ELSE PRINT " !!! Read ERROR !!!" 2320 NEXT 2330 RETURN 2340 ' 2350 '===== WRITE ===== 2360 PRINT:PRINT "Writing BlockNo:" 2370 'set variable 2380 GOSUB 1900 2390 DEF USR3=MADR+9:'Write command 2400 SVBLKNO%=BLKNO% 2410 IF ROMNO%<=3 THEN MAXNO%=1 ELSE MAXNO%=2^(ROMNO%-3) 2420 IF BLKNO%=0 THEN STNO%=1 ELSE STNO%=BLKNO% :MAXNO%=BLKNO% 2430 'Write 2440 GOSUB 2500 2450 'Write end 2460 BLKNO%=SVBLKNO% 2470 IF A%=0 THEN PRINT "Write complete!" 2480 RETURN 2490 ' 2500 'Write subroutine 2510 FOR I=STNO% TO MAXNO% 2520 BLKNO%=I 2530 PRINT BLKNO%; 2540 POKE MADR+&H1C,BLKNO% 2550 LOADM LDFN$+HEX$(BLKNO%) 2560 A%=USR3(0) :'Exec 2570 IF A%=0 THEN PRINT ELSE PRINT " !!! Write ERROR !!!" 2580 NEXT 2590 RETURN 2600 ' 2610 '===== VERIFY ===== 2620 PRINT:PRINT "Verifying BlockNo:" 2630 'set variable 2640 GOSUB 1900 2650 DEF USR4=MADR+12 :'Verify command 2660 SVBLKNO%=BLKNO% 2670 IF ROMNO%<=3 THEN MAXNO%=1 ELSE MAXNO%=2^(ROMNO%-3) 2680 IF BLKNO%=0 THEN STNO%=1 ELSE STNO%=BLKNO% :MAXNO%=BLKNO% 2690 'Verify 2700 GOSUB 2760 2710 'Verify end 2720 BLKNO%=SVBLKNO% 2730 IF A%=0 THEN PRINT "Verify complete!" 2740 RETURN 2750 ' 2760 'Verify subroutine 2770 FOR I=STNO% TO MAXNO% 2780 BLKNO%=I 2790 PRINT BLKNO%; 2800 POKE MADR+&H1C,BLKNO% 2810 LOADM LDFN$+HEX$(BLKNO%) 2820 A%=USR4(0) :'Exec 2830 IF A%=0 THEN PRINT ELSE PRINT " !!! Verify ERROR !!!" 2840 NEXT 2850 RETURN 2860 ' 2870 '===== Memory Dump ===== 2880 DEF USR5=MADR+15 'Buffer dump command 2890 A%=USR5(0) :'Exec 2900 RETURN 2910 ' 2920 '===== Load from File ===== 2930 INPUT "Load Filename (except block no):";LDFN$ 2940 PRINT "Load for BlockNo:";BLKNO% 2950 LOADM LDFN$+HEX$(BLKNO%) 2960 RETURN 2970 ' 2980 '===== Save to File ===== 2990 INPUT "Save Filename (except block no):";SVFN$ 3000 PRINT "Save for BlockNo:";BLKNO% 3010 SAVEM SVFN$+HEX$(BLKNO%),BUFTOP%,BUFEND%,&H0 3020 RETURN 3030 ' 3040 END

機械語サブルーチン部を示します。

* * PROMSUB * * PROM Read/Write subroutine for FM-7 * * argument of USR function * MADR+&H17 :PWIDTH * MADR+&H18 :ROMNO-1 * MADR+&H19 :BLKNO * * First version Ver 1.0 '2020.10.10 * Original FLEX9 version '2020.09.13 * Copyright by Y.Yamamoto * BIOS EQU $FBFA ;F-Basic bios PIA EQU $FD9C PIADA EQU PIA ;ADRSH,ADRSL,DATA PIACA EQU PIA+1 PIADB EQU PIA+2 ;PB5:VPPCNT,PB4:OE,PB3:CE,PB1:AHI,PB0:ALO for 2716,32,256,512 * ;PB5:VPPCNT,PB4:OE,PB3:PGM,PB2:CE:PB1:AHI,PB0:ALO for 2764,128 PIACB EQU PIA+3 * ORG $4800 START EQU * LBRA SETPRM point by USR0() ;+0 LBRA CERASE point by USR1() ;+3 LBRA CREAD point by USR2() ;+6 LBRA CWRITE point by USR3() ;+9 LBRA CVERIFY point by USR4() ;+12 LBRA CDUMP point by USR5() ;+15 * BUFTOP FDB $5000 ;start addr BUFEND FDB $7000 ;end addr STADR FDB 0000 ;page top addr EDADR FDB 0000 ;page end addr PWIDTH FCB 01 ;PWIDTH:write pulse length (default 1ms) ROMNO FCB 00 ;ROMNO-1 (0..5) BLKNO FCB 00 ;BLKNO (0,1..8) DATCNT FCB 00 ;data count for disp CPARA1 FCB 00 ;cmd parameter(9bytes) CPARA2 FCB 00 CPARA3 FCB 00 CPARA4 FCB 00 CPARA5 FCB 00 CPARA6 FCB 00 CPARA7 FCB 00 CPARA8 FCB 00 CPARA9 FCB 00 * *------------------------------ * get parameter & set read param *------------------------------ GETPRM EQU * PSHS B,X LDB ROMNO ;ROMNO-1 (0..5) LEAX PARARD,PCR LSLB LSLB x4 ABX LDB #4 ;counter BSR SETPRM PULS B,X,PC * *------------------------------ * set read/write parameter * B:counter * X:adr of CPARARD or CPARAWR *------------------------------ SETPRM EQU * PSHS A,Y LEAY CPARA1,PCR SR1 LDA ,X+ STA ,Y+ DECB BNE SR1 PULS A,Y,PC * *read,verify,erase parameter PARARD EQU * FCB $28,$2A,$2B,$23 ;for 2716 FCB $28,$2A,$2B,$23 ;for 2732 FCB $20,$22,$23,$2B ;for 2764 FCB $20,$22,$23,$2B ;for 27128 FCB $28,$2A,$2B,$23 ;for 27256 FCB $28,$2A,$2B,$23 ;for 27512 * *write parameter PARAWR EQU * FCB $10,$12,$13,$13,$1B,$13,$13,$03,$13 ;for 2716 FCB $28,$2A,$2B,$0B,$03,$0B,$2B,$23,$2B ;for 2732 FCB $1C,$1E,$1F,$1B,$13,$1B,$1B,$0B,$1B ;for 2764 FCB $1C,$1E,$1F,$1B,$13,$1B,$1B,$0B,$1B ;for 27128 FCB $38,$3A,$3B,$1B,$13,$1B,$1B,$0B,$1B ;for 27256 FCB $28,$2A,$2B,$0B,$03,$0B,$2B,$23,$2B ;for 27512 * *------------------------------ * set start & end adrs * 2716,32,64 :whole rom(2k,4k,8k) * 27128,256,512 :8k(block specified by BLKNO) * * STADR decided by BLKNO *------------------------------ SETADR EQU * PSHS A,B,X LDX #0 STX STADR STX EDADR LDB BLKNO ;BLKNO BEQ SE1 DECB LDA #$20 ;8kb MUL EXG A,B STD STADR STD EDADR SE1 LDA #$08 ;2kb LDB ROMNO ;ROMNO-1 BEQ SE2 ;2716 2kb LSLA DECB BEQ SE2 ;2732 4kb LSLA else ;8kb SE2 ADDA EDADR STA EDADR ;2k,4,8k *set bufend LDA #$58 ;$5000+2k LDB ROMNO ;ROMNO-1 BEQ SE3 ;if 2716 ADDA #$08 ;4k DECB BEQ SE3 ;if 2732 ADDA #$10 ;8k SE3 STA BUFEND ;2k,4k,8k PULS A,B,X,PC * *============================ * ERASE CHECK all ROM area *============================ CERASE EQU * *set read parameter PSHS X ;save for return parameter *get param & set read param LBSR GETPRM *set start & end adrs LDX #0 STX STADR ;start adrs is 0 STX EDADR LDB ROMNO ;ROMNO-1 INCB ROMNO LDA #$04 ;assume 1k CE0 LSLA DECB BNE CE0 STA EDADR ;2k,4k,8k,16k,32k,64k * *erase check LDX STADR LDY EDADR CE1 LDA CPARA1 STA PIADB *ADRS SET TFR X,D ;read adrs STA PIADA ;adrsH LDA CPARA2 STA PIADB ;adrsH set STB PIADA ;adrsL LDA CPARA3 STA PIADB ;adrsL set *READ DATA & CHECK LDA CPARA4 STA PIADB ;ce:H->L LDA #$FF STA PIADA ;change to input mode LDA PIADA ;read data CMPA #$FF ;blank data? BNE CERERR LEAX 1,X LEAY -1,Y BHI CE1 CLRA ;no error CEEND PULS X STA 2,X STA 3,X RTS * CERERR LDA #-1 ;error BRA CEEND * *============================ * READ DATA of 1 block *============================ CREAD EQU * *set read parameter PSHS X save for return parameter *get param & set read param LBSR GETPRM * *set start & end adrs CR0 LBSR SETADR *read data LDX STADR LDY BUFTOP * CR1 BSR DSPCNT LDA CPARA1 STA PIADB *ADRS SET TFR X,D ;read adrs STA PIADA ;adrsH LDA CPARA2 STA PIADB ;adrsH set STB PIADA ;adrsL LDA CPARA3 STA PIADB ;adrsL set *READ DATA LDA CPARA4 STA PIADB ;ce:H->L LDA #$FF STA PIADA ;change to input mode LDA PIADA ;read data STA ,Y+ LEAX 1,X BEQ CR2 ;for EDADR=0 (27512) CMPY BUFEND BLO CR1 CR2 CLRA ;no error PULS X STA 2,X STA 3,X RTS * *------------------------- * DISP READ/WRITE COUNTER *------------------------- DSPCNT EQU * PSHS A,B,X TFR X,D TSTB BNE DSPEND LDA #'. JSR PUTCHR DSPEND PULS A,B,X,PC * *============================ * WRITE DATA of 1 block *============================ CWRITE EQU * PSHS X ;SAVE for return parameter LDB ROMNO ;ROMNO-1 PSHS B LEAX PARAWR,PCR LSLB LSLB LSLB x8 ABX PULS B ABX x9 LDB #9 ;counter LBSR SETPRM *set start & end adrs CW0 LBSR SETADR *write data LDX STADR LDY BUFTOP * CW1 BSR DSPCNT LDA CPARA1 STA PIADB ;start *ADRS SET TFR X,D STA PIADA ;adrsH LDA CPARA2 STA PIADB ;adrsH set STB PIADA ;adrsL LDA CPARA3 STA PIADB ;adrsL set LDA ,Y CMPA #$FF ;if $ff then skip BEQ CW4 STA PIADA ;data LDA CPARA4 STA PIADB ;data set *WRITE PULSE LDB PWIDTH ;write pulse width LDA CPARA5 STA PIADB ;write pulse PSHS X CW2 LDX #256 CW3 LEAX -1,X BNE CW3 DECB BNE CW2 PULS X LDA CPARA6 ;end write pulse STA PIADB LDA CPARA7 ;gap STA PIADB *DATA READ for VERIFY LDA CPARA8 STA PIADB ;verify LDA #$FF STA PIADA ;change to input mode LDA PIADA ;data read CMPA ,Y BNE CWERR LDA CPARA9 STA PIADB ;end verify CW4 LEAY 1,Y LEAX 1,X BEQ CW5 ;for EDADR=0 (27512) CMPY BUFEND BLO CW1 CW5 CLRA ;no error CWEND PULS X STA 2,X STA 3,X LDA #$38 ;VPP=0,OE,CE=H STA PIADB RTS * CWERR LDA #-1 BRA CWEND * *============================ * VERIFY DATA of 1 block * compare ROM(STADR-EDADR) and BUF(TOP-END) *============================ CVERIFY EQU * *set read parameter PSHS X ;save for return parameter *get param & set read param LBSR GETPRM *set start & end adrs CV0 LBSR SETADR *verify check LDX STADR LDY BUFTOP * CV1 LBSR DSPCNT LDA CPARA1 STA PIADB *ADRS SET TFR X,D ;read adrs STA PIADA ;adrsH LDA CPARA2 STA PIADB ;adrsH set STB PIADA ;adrsL LDA CPARA3 STA PIADB ;adrsL set *READ DATA & CHECK LDA CPARA4 STA PIADB ;ce:H->L LDA #$FF STA PIADA ;change to input mode LDA PIADA ;read data CMPA ,Y+ ;match data? BNE CVERR LEAX 1,X BEQ CV2 ;for EDADR=0 (27512) CMPY BUFEND BLO CV1 CV2 CLRA ;no error CVEND PULS X STA 2,X STA 3,X RTS * CVERR LDA #-1 ;error BRA CVEND * *============================ * DUMP BUFFER DATA *============================ CDUMP EQU * LBSR PCRLF LDX BUFTOP STX STADR MDMP0 LBSR DSPTTL LDX STADR LDB #16 STB DATCNT ;data cntr in line MDMP1 STX STADR PSHS B LEAX STADR,PCR LBSR OUTADR LDA #': LBSR PUTCHR LDA #$20 LBSR PUTCHR * display hexa data LDX STADR LDB DATCNT LBSR HEXDSP LDB DATCNT * display ascii data LDX STADR LDB DATCNT LBSR ASCDSP STX STADR ;set new start addr LBSR PCRLF * page ? PULS B DECB BNE MDMP1 * MD1 LDX STADR CMPX BUFEND BLO MD2 MDEND LBSR PCRLF RTS * MD2 LEAX MSKIN,PCR LBSR PSTRNG LBSR GETCHR ANDA #$DF CMPA #'Q quit? BEQ MDEND CMPA #'P Prev page? BEQ MD5 CMPA #'S Set address? BNE MD4 MD3 LEAX MADRS,PCR LBSR PSTRNG LBSR ADRIN CMPX BUFTOP BLO MD3 PSHS X LEAX -$100,X CMPX BUFEND PULS X BHS MD3 TFR X,D CLRB TFR D,X STX STADR MD4 LBRA MDMP0 * MD5 LDX STADR LEAX -$200,X CMPX BUFTOP BMI MD6 BRA MD7 MD6 LEAX $100,X MD7 STX STADR BRA MD4 * *-------------------- * display title DSPTTL EQU * LEAX MDTTL1,PCR BSR OUTSTR DEND BSR PCRLF RTS *-------------------- * hexa data disp of 1 line * B:counter HEXDSP BSR OUTHEX LDA #$20 BSR PUTCHR DECB BNE HEXDSP RTS *-------------------- * ascii data disp of 1 line * B:counter ASCDSP LDA ,X+ CMPA #$20 BHS ADSP1 LDA #'. BRA ADSP2 ADSP1 CMPA #$7F BLS ADSP2 LDA #'. ADSP2 BSR PUTCHR DECB BNE ASCDSP RTS * *-------------------- OUTSTR EQU * OU1 LDA ,X+ BEQ OUEND BSR PUTCHR BRA OU1 OUEND RTS * *-------------------- * display split line VSPLN LDB #57 display split line LDA #'- VSP BSR PUTCHR DECB BNE VSP BSR PCRLF RTS * *-------------------- GETCHR EQU * PSHS X,Y LEAX RCBKIN,PCR LEAY DBAKIN,PCR STY 2,X GE1 JSR [BIOS] LDA DBAKIN+1 BEQ GE1 LDA DBAKIN PULS X,Y * PUTCHR EQU * PSHS X,Y LEAX RCBOUT,PCR LEAY DBAOUT,PCR STY 2,X STA 6,X JSR [BIOS] PULS X,Y,PC * PCRLF EQU * LDA #$0D BSR PUTCHR LDA #$0A BSR PUTCHR RTS * PSTRNG EQU * PS1 LDA ,X+ CMPA #4 BEQ PS2 BSR PUTCHR BRA PS1 PS2 RTS * OUTHEX EQU * LDA ,X+ PSHS A ANDA #$F0 LSRA LSRA LSRA LSRA BSR PHEX PULS A ANDA #$0F BSR PHEX RTS * PHEX EQU * CMPA #10 BCS PH1 ADDA #7 PH1 ADDA #$30 BSR PUTCHR RTS * OUTADR EQU * BSR OUTHEX BSR OUTHEX RTS * ADRIN EQU * *clear buffer LEAX INBUF+6,PCR LDB #6 CLRA AD1 STA ,-X DECB BNE AD1 *input 4chr LDB #4 AD2 BSR GETCHR CMPA #$0D BEQ AD3 STA ,X+ DECB BNE AD2 *change hex LDB #2 LEAY INADRS,PCR AD3 LEAX INBUF,PCR AD4 PSHS B LDD ,X++ SUBA #$30 CMPA #10 BCS AD5 SUBA #7 AD5 LSLA LSLA LSLA LSLA STA ,Y SUBB #$30 CMPB #10 BCS AD6 SUBB #7 AD6 ADDB ,Y STB ,Y+ PULS B DECB BNE AD4 *get adrs LDX -2,Y RTS * INBUF FCB 0,0,0,0 INADRS FCB 0,0 * RCBKIN EQU * FCB 21 KEYIN FCB 0 FDB DBAKIN FDB 00 * DBAKIN FCB 0,0 * RCBOUT EQU * FCB 20 OUTPUT FCB 0 FDB DBAOUT FDB 0001 * DBAOUT FCB 0,0 * MDTTL1 FCC $0D,$0A,$0D,$0A,/ADDR: +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F 0123456789ABCDEF/ FCC $0D,$0A,/---- ----------------------------------------------- ----------------/ FCB 0 MSKIN FCC $0D,$0A,/Keyin (Q:Quit, P:Prev page, S:Select address, else:Next page):/ FCB 4 MADRS FCC $0D,$0A,/Address ($xxxx) = $/ FCB 4 END START

また、P-ROMに書き込むデータはF-BASICの機械語データ形式なので、先頭が 0x00,データサイズ(2bytes),書き込みアドレス(2bytes)の計5バイトで始まり、その後にデータ本体が続き、末尾が 0xFF,0x00,0x00,0x00,0x00の計5バイトで終わる形となります。

Windows上でデータファイルを8KB毎に分割し、上記の機械語形式に合わせて先頭と末尾に必要な各5バイトを追加するためのツールソフト spltdat.exeを作成しました。

以上より、私の場合のP-ROMに書き込む標準的な手順をまとめると、

（１）Windows上で書き込むバイナリデータを作成する。

（２）spltdat.exeで8KB単位のデータファイルに分割する。

        元ファイル ROMDAT --> 変換後ファイル ROMDAT1, ROMDAT2,...,ROMDAT8

（３）作成されたデータファイルをFM-7に転送する。

    　転送手段としてはRS-232Cカードを使用できますが、それ以外にも思い付きハードでソフトに七転八倒さんによるFT-245使用の高速転送カードやArduinoMega2560使用のカードも使用できます。

（４）ドライバ PROMWRと書き込みデータを同じディスクに入れておいて、PROMWRを起動する。

（５）P-ROMの種類、書き込むブロック範囲、書き込みパルス幅を指定して書き込む。

以上です。

もちろんF-BASIC上で書き込みデータを直接作成して、そのまま書き込むこともできますが、その場合には＄5000～$6FFFのバッファにデータを置き、一旦SAVEMで末尾にブロック番号を付けたファイル名で保存する必要があります。

作成した 書き込みソフトPROMWR, PWRSUBとツールspltdat.exeをOneDriveに置いておきます。なお、PROMWRはF-BASICのASCIIセーブ形式、PWRSUBは機械語データ形式になっていますので、そのままでF-BASICのディスクに保存できます。