FT245通信カード用のディスクイメージ転送専用ソフト

 FT245通信カード用のディスクイメージ転送専用ソフトの紹介

FT245を用いた通信カードは非常に高速ですので、もうRS232Cカードを使うことはなくなり、もっぱらこればかり使用しています。

このカードを使用するためのドライバソフトとしては、カードを考案された「思い付きハードでソフトに七転八倒」さんが作成された専用ソフト FDDIMG_RW77.exe があります。（https://vehwk3yxv7hw.blog.fc2.com/blog-entry-73.htmlで入手できます。）

これは特定のセクタの読み書きができたり、ディスクの検査ができるなどの機能を持ち、さらにRAMディスクのドライバも内蔵しているという多機能のものですが、私の用途ではFMとWindowsPCの間でFDのディスクイメージを丸ごと転送することがほとんどです。

ということで、FMとWindowsPC間での転送専用のソフトを作成しました。常用機がFM77AV40SXですので、2Dのみでなく2DDディスクにも対応させました。

使用しているFT245通信カードです。私は通常、このようにFT245通信カードと自作のFDCカードを32Pスロット拡張基板に装着して使用しています。

使用しているFT245通信カード

作成したソフトの構成図です。

なお、転送時のデータの処理方法が異なるため、FDDIMG_RW77.exeとは互換性がありませんので混用はできません。FM側FT245DRV（とFTDRV11o）、Windows側 ft245drv.exe のペアで使用することになります。

構成図

FM側の機械語サブルーチンをロードする間の起動画面です。

FM側の起動画面

FM側のメインメニュー画面です。

FM側のメインメニュー画面

メニューの１と２で転送方向を選択します。

３，４，５はオプション設定で、３でドライブ番号の選択（０～３の範囲）、４でディスクのタイプの選択（2Dか2DD）、５でFMからWindowsへの転送時にFT245RLのTXE（TX Enable）機能を使用するかしないかを選択します。使用する場合はFT245通信カード上のスライドスイッチを右（USBコネクタ側）に、使用しない場合は左（バッテリ側）にセットします。このスライドスイッチがないカードの場合にはTXE機能をOFFにします。

WindowsPC側のメニュー画面を示します。

Windows PC側のメニュー画面

起動後にまず、COMポート番号を選択します。使用可能な番号のみが表示されますのでその中から選択します。もし希望の番号が表示されていない場合は「COMポートスキャン」ボタンを押してから選択します。

次に読み書きするファイル名を選択します。直接入力もできますがディレクトリまで入力するのは面倒ですので、「ファイル選択」ボタンを押して希望のディレクトリを表示させれば既存のDATファイルが一覧表示されます。ファイルを選択した後でそのファイル名を直接修正することもできます。

最後にディスクの種別（2D,2DD）を選択します。もちろん、FM側の設定と同じでなければなりません。

以上で、FMからの読み込み、FMへの書き込みが実行できます。

オプション機能として、転送で使用されるDAT形式のファイル（各セクタの先頭に16バイトのヘッダがついた形式）を通常のDSK形式やD77(D88)形式に変換する機能もあります。

動作中の画面

画像のように、転送動作中にはプログレスバーと処理したトラック番号が表示されますので進行状態が分かります。

蛇足ですが、この表示部分が最も苦労したところで、この表示のためにスレッドとタイマー機能を用いることになりましたが、結果、転送中に他の操作をしても表示が止まることがなくなりました。

作成にあたっては下記の書籍に大変お世話になりました。感謝いたします。

　参考にした書籍　「かんたん Visual C++（堀義博著）技術評論社」

もしディスクに不良セクタがあると、正常に読み書きできるまで繰り返すため、最悪の場合にはそこでハングアップしてしまいます。この場合には、USBケーブルを抜いて止めることになります。（エラーが生じた場合には、不正なデータを転送するよりも中断した方が良いと考えて、このような仕様にしています。）

なお、転送時間は2Dで１分、2DDで2分ぐらいですが、不良セクタがあるディスクの場合にはこれ以上の時間がかかることがあります。

参考までに、FM側の機械語サブルーチンを示しておきます。

BACK全選択

0001                *
0002                * FTDRV for 2D/2DD DISK COPY PROGRAM
0003                *
0004                * FT245 :RD#  : read data  (L:data enable, L->H:data fetch)
0005                *        WR   : write data (H->L:write data to buffer)
0006                *        RXF# : Rx fill (L:received data in buffer, H:read data prohibited)
0007                *        TXE# : Tx enable (L:enable data send, H:inhibited data send)
0008                *
0009                * $FDFE bit7:RXF, bit6:TXE
0010                * $FDFD bit1:WR,  bit0:RD
0011                *
0012    6000            STTADR    EQU     $6000           
0013                
0014    FDFE            RGDAT     EQU     $FDFE           
0015    FDFE            RGSTS     EQU     $FDFE           
0016    FDFD            RGCMD     EQU     $FDFD           
0017    FBFA            BIOS      EQU     $FBFA           
0018    FD1E            CHGFDD    EQU     $FD1E           bit6:0-2DD(default), 1-2D
0019                
0020    6000                      ORG     STTADR          
0021                
0022    6000    16    0071    RDFM      LBRA    RDFM0           
0023    6003    16    00D8    WRFM      LBRA    WRFM0           
0024                
0025    6006    00        DPSV      FCB     0               ;save DP
0026    6007    00        TRK       FCB     0               
0027    6008    01        SCT       FCB     1               
0028    6009    01        DRV       FCB     1               
0029    600A    00        DRVTYP    FCB     0               0:2D,1:2DD
0030    600B    01        TXEMOD    FCB     1               0:OFF,1:ON
0031    600C    28        MAXTRK    FCB     40                  2D:40,2DD:80
0032                
0033                * RCB for Read/Write
0034    600D    00        RCBRW     FCB     $00,$00,$00,$00,$00,$00,$00,$00        
0035    6015    08        RCBRST    FCB     $08,$00,$00,$00,$00,$00,$00,$00        
0036                *
0037                *--------------------------------------------------
0038                *initialize for read FM
0039    601D            INIRD     EQU     *               
0040    601D    86    0A              LDA     #$0A            DREAD
0041    601F    20    02              BRA     INI2            
0042                 
0043                *initialize for write FM
0044    6021            INIWR     EQU     *               
0045    6021    86    09              LDA     #$09            DWRITE
0046    6023            INI2                  
0047    6023    34    02              PSHS    A               
0048    6025    1F    B8              TFR     DP,A            
0049    6027    A78D    FFDB              STA     >DPSV,PCR        
0050    602B    1F    50              TFR     PC,D            
0051    602D    1F    8B              TFR     A,DP            
0052        60                  SETDP   $60             
0053    602F    35    02              PULS    A               
0054                 
0055    6031    30    8C D9              LEAX    RCBRW,PCR        
0056    6034    A7    84              STA     ,X              
0057    6036    318D    01C6              LEAY    BUFF,PCR        
0058    603A    10AF    02              STY     2,X             
0059    603D    CC    0001              LDD     #$0001          TRK:0,SCT:1
0060    6040    ED    8C C4              STD     TRK,PCR         
0061    6043    ED    04              STD     4,X             
0062    6045    4F                  CLRA                
0063    6046    A7    06              STA     6,X             SIDE:0
0064    6048    A6    8C BE              LDA     DRV,PCR         
0065    604B    A7    07              STA     7,X             DRV for DREAD/DWRITE
0066    604D    A7    0F              STA     15,X            DRV for RESTORE
0067                
0068                *change to 320KB/640KB FDD
0069    604F    B6    FD1E              LDA     CHGFDD          
0070    6052    E6    8C B5              LDB     DRVTYP,PCR        
0071    6055    26    04              BNE     INI3            
0072    6057    8A    40              ORA     #$40            bit6=1 set 320KB
0073    6059    20    02              BRA     INI4            
0074    605B    84    BF    INI3      ANDA    #$BF            bit6=0 set 640KB
0075    605D    B7    FD1E    INI4      STA     CHGFDD          
0076                *set MAXTRK
0077    6060    5D                  TSTB                
0078    6061    26    04              BNE     INI5            
0079    6063    86    28              LDA     #40             
0080    6065    20    02              BRA     INI6            
0081    6067    86    50    INI5      LDA     #80             
0082    6069    A7    8C A0    INI6      STA     MAXTRK,PCR        
0083                
0084    606C    30    8C A6              LEAX    RCBRST,PCR        RESTORE
0085    606F    AD9F    FBFA              JSR     [BIOS]          
0086    6073    39                  RTS                 
0087                
0088                *--------------------------------------------------
0089                * read sct data from FM, write to WindowsPC
0090                *
0091    6074            RDFM0     EQU     *               
0092                *set init for read
0093    6074    8D    A7              BSR     INIRD           
0094                
0095                *write to PC from FM
0096    6076            SND1      EQU     *               
0097    6076    6F    8C 98              CLR     RCBRW+4,PCR        trk:0
0098    6079            SND11     EQU     *               
0099    6079    8D    1A              BSR     SND12           
0100    607B    6C    8C 93              INC     RCBRW+4,PCR        trk+1
0101    607E    A6    8C 8B              LDA     MAXTRK,PCR        
0102    6081    A1    8C 8D              CMPA    RCBRW+4,PCR        end trk?
0103    6084    22    F3              BHI     SND11           
0104                *dp return
0105    6086    A68D    FF7C              LDA     DPSV,PCR        
0106    608A    1F    8B              TFR     A,DP            
0107                *reset to 640KB FDD
0108    608C    B6    FD1E              LDA     CHGFDD          
0109    608F    84    BF              ANDA    #$BF            bit6=0
0110    6091    B7    FD1E              STA     CHGFDD          
0111    6094    39                  RTS                 
0112                
0113                *read 16scts data from FM, write to PC (for side 0)
0114    6095            SND12     EQU     *               
0115    6095    CC    0100              LDD     #$0100          sct:1,side:0
0116    6098    ED8D    FF76              STD     RCBRW+5,PCR        
0117    609C            SND13     EQU     *               
0118    609C    8D    22              BSR     RFMWPC          
0119    609E    6C8D    FF70              INC     RCBRW+5,PCR        sct+1
0120    60A2    86    10              LDA     #16             
0121    60A4    A18D    FF6A              CMPA    RCBRW+5,PCR        
0122    60A8    2A    F2              BPL     SND13           
0123                *read 16scts data from FM, write to PC (for side 1)
0124    60AA    CC    0101              LDD     #$0101          sct:1,side:1
0125    60AD    ED8D    FF61              STD     RCBRW+5,PCR        
0126    60B1            SND14     EQU     *               
0127    60B1    8D    0D              BSR     RFMWPC          
0128    60B3    6C8D    FF5B              INC     RCBRW+5,PCR        sct+1
0129    60B7    86    10              LDA     #16             
0130    60B9    A18D    FF55              CMPA    RCBRW+5,PCR        
0131    60BD    2A    F2              BPL     SND14           
0132    60BF    39                  RTS                 
0133                
0134                *read 1sct data from FM, write to PC
0135    60C0            RFMWPC    EQU     *               
0136                *write header to PC
0137    60C0    308D    FF49              LEAX    RCBRW,PCR        
0138    60C4    C6    10              LDB     #16             
0139    60C6    17    00AB              LBSR    SNDCH           
0140                *read sct data from FM
0141    60C9    308D    FF40              LEAX    RCBRW,PCR        
0142    60CD    AD9F    FBFA    RBLOP1    JSR     [BIOS]          
0143    60D1    A6    01              LDA     1,X             
0144    60D3    26    F8              BNE     RBLOP1          
0145                
0146                *write sct data to PC
0147    60D5    308D    0127              LEAX    BUFF,PCR        
0148    60D9    5F                  CLRB                counter:256
0149    60DA    17    0097              LBSR    SNDCH           
0150    60DD    39                  RTS                 
0151                
0152                *
0153                *--------------------------------------------------
0154                * read sct data from WindowsPC, write to FM
0155                *
0156    60DE            WRFM0     EQU     *               
0157                *set init for write
0158    60DE    17    FF40              LBSR    INIWR           
0159                 
0160                *read from PC, write to FM
0161    60E1            READ1     EQU     *               
0162    60E1    6F8D    FF2C              CLR     RCBRW+4,PCR        trk:0
0163    60E5            READ11    EQU     *               
0164    60E5    8D    1D              BSR     READ12          
0165    60E7    6C8D    FF26              INC     RCBRW+4,PCR        trk+1
0166    60EB    A68D    FF1D              LDA     MAXTRK,PCR        
0167    60EF    A18D    FF1E              CMPA    RCBRW+4,PCR        end trk?
0168    60F3    22    F0              BHI     READ11          
0169                *dp return
0170    60F5    A68D    FF0D              LDA     DPSV,PCR        
0171    60F9    1F    8B              TFR     A,DP            
0172                *reset to 640KB FDD
0173    60FB    B6    FD1E              LDA     CHGFDD          
0174    60FE    84    BF              ANDA    #$BF            bit6=0
0175    6100    B7    FD1E              STA     CHGFDD          
0176    6103    39                  RTS                 
0177                
0178                *read 16scts data from PC, write to FM (for side 0)
0179    6104            READ12    EQU     *               
0180    6104    CC    0100              LDD     #$0100          sct:1,side:0
0181    6107    ED8D    FF07              STD     RCBRW+5,PCR        
0182    610B            READ13    EQU     *               
0183    610B    8D    22              BSR     RPCWFM          
0184    610D    6C8D    FF01              INC     RCBRW+5,PCR        sct+1
0185    6111    86    10              LDA     #16             
0186    6113    A18D    FEFB              CMPA    RCBRW+5,PCR        
0187    6117    2A    F2              BPL     READ13          
0188                *read next 16scts data from PC, write to FM (for side 1)
0189    6119    CC    0101              LDD     #$0101          sct:1,side:1
0190    611C    ED8D    FEF2              STD     RCBRW+5,PCR        
0191    6120            READ14    EQU     *               
0192    6120    8D    0D              BSR     RPCWFM          
0193    6122    6C8D    FEEC              INC     RCBRW+5,PCR        sct+1
0194    6126    86    10              LDA     #16             
0195    6128    A18D    FEE6              CMPA    RCBRW+5,PCR        
0196    612C    2A    F2              BPL     READ14          
0197    612E    39                  RTS                 
0198                
0199                *read 1sct data from PC, write to FM
0200    612F            RPCWFM    EQU     *               
0201                *read sct data from PC
0202    612F    308D    00CD              LEAX    BUFF,PCR        
0203    6133    5F                  CLRB                counter:256
0204    6134    8D    12    DRD1      BSR     RCVCH           
0205    6136    A7    80              STA     ,X+             
0206    6138    5A                  DECB                
0207    6139    26    F9              BNE     DRD1            
0208                *write data to sct of FM
0209    613B    308D    FECE              LEAX    RCBRW,PCR        
0210    613F    AD9F    FBFA    WBLOP1    JSR     [BIOS]          
0211    6143    A6    01              LDA     1,X             error?
0212    6145    26    F8              BNE     WBLOP1          
0213    6147    39                  RTS                 
0214                
0215                *
0216                *===== receive 1 chr =====
0217                * 1st received byte : bit7,6(located on bit5,4)
0218                * 2nd received byte : bit5-0
0219                * return A:input chr
0220                *
0221    6148            RCVCH     EQU     *               
0222    6148    34    04              PSHS    B               
0223    614A    8D    20              BSR     WTRDEN          wait RXF=L
0224    614C    C6    01              LDB     #$01            read cmd(D0=H)
0225    614E    8D    12              BSR     GETDAT          get 1st byte
0226    6150    84    30              ANDA    #$30            get bit5,4
0227    6152    48                  ASLA                
0228    6153    48                  ASLA                to bit7,6
0229    6154    34    02              PSHS    A               save bit7,6 of chr
0230    6156    8D    14              BSR     WTRDEN          wait RXF=L
0231    6158    8D    08              BSR     GETDAT          get 2nd byte
0232    615A    84    3F              ANDA    #$3F            get bit5-0
0233    615C    AB    E4              ADDA    ,S              bit7,6+bit5-0
0234    615E    32    61              LEAS    1,S             returns the SP
0235    6160    35    84              PULS    B,PC            
0236                
0237                *get data
0238                * return  A:input data
0239    6162    F7    FDFD    GETDAT    STB     RGCMD           write cmd
0240    6165    B6    FDFE              LDA     RGDAT           get data
0241    6168    7F    FDFD              CLR     RGCMD           set RD#=L
0242    616B    39                  RTS                 
0243                *
0244                * wait RXF enable
0245                * RXF L:data exist, H:not exist
0246                * RGSTS bit7:RXF
0247                *
0248    616C            WTRDEN    EQU     *               
0249    616C    B6    FDFE    RDE1      LDA     RGSTS           
0250    616F    84    80              ANDA    #$80            
0251    6171    26    F9              BNE     RDE1            RXF=L?
0252                * CLR RGCMD set RD#=L
0253    6173    39                  RTS                 
0254                
0255                *
0256                *===== send 1 chr =====
0257                *send sct data from buf to ft245
0258                * write to ft245 at WR:H->L
0259                *
0260                * B:counter
0261                * X:adr of buff
0262                *
0263    6174            SNDCH     EQU     *               
0264    6174    34    02              PSHS    A               
0265    6176            SNDD1                 
0266    6176    8D    12              BSR     WTWREN          wait TXE=L
0267    6178    86    02              LDA     #2              
0268    617A    B7    FDFD              STA     RGCMD           bit1=1(WR=H)
0269    617D    A6    80              LDA     ,X+             
0270    617F    B7    FDFE              STA     RGDAT           set DATA
0271    6182    7F    FDFD              CLR     RGCMD           bit1=0(WR=H->L)
0272    6185    5A                  DECB                
0273    6186    26    EE              BNE     SNDD1           
0274    6188    35    82              PULS    A,PC            
0275                
0276                *
0277                * wait Tx enable
0278                * TXE L:enable, H:disable
0279                * RGSTS bit6:TXE
0280                *
0281    618A            WTWREN    EQU     *               
0282    618A    34    02              PSHS    A               
0283    618C    A68D    FE7B              LDA     TXEMOD,PCR        
0284    6190    27    07              BEQ     WRE2            
0285    6192    B6    FDFE    WRE1      LDA     RGSTS           
0286    6195    84    40              ANDA    #$40            
0287    6197    26    F9              BNE     WRE1            bit6=0?
0288    6199    35    82    WRE2      PULS    A,PC            
0289                
0290    6200                      ORG     STTADR+$200        
0291                 
0292    6200    FF        BUFF      RMB     256             
0293                
0294                 
 
0 error(s),  2 warning(s) is detected.
 
Label    address
BIOS      FBFA    BUFF      6200    CHGFDD    FD1E    DPSV      6006    DRD1      6134
DRV       6009    DRVTYP    600A    GETDAT    6162    INI2      6023    INI3      605B
INI4      605D    INI5      6067    INI6      6069    INIRD     601D    INIWR     6021
MAXTRK    600C    RBLOP1    60CD    RCBRST    6015    RCBRW     600D    RCVCH     6148
RDE1      616C    RDFM      6000    RDFM0     6074    READ1     60E1    READ11    60E5
READ12    6104    READ13    610B    READ14    6120    RFMWPC    60C0    RGCMD     FDFD
RGDAT     FDFE    RGSTS     FDFE    RPCWFM    612F    SCT       6008    SND1      6076
SND11     6079    SND12     6095    SND13     609C    SND14     60B1    SNDCH     6174
SNDD1     6176    STTADR    6000    TRK       6007    TXEMOD    600B    WBLOP1    613F
WRE1      6192    WRE2      6199    WRFM      6003    WRFM0     60DE    WTRDEN    616C
WTWREN    618A

0001 * 0002 * FTDRV for 2D/2DD DISK COPY PROGRAM 0003 * 0004 * FT245 :RD# : read data (L:data enable, L->H:data fetch) 0005 * WR : write data (H->L:write data to buffer) 0006 * RXF# : Rx fill (L:received data in buffer, H:read data prohibited) 0007 * TXE# : Tx enable (L:enable data send, H:inhibited data send) 0008 * 0009 * $FDFE bit7:RXF, bit6:TXE 0010 * $FDFD bit1:WR, bit0:RD 0011 * 0012 6000 STTADR EQU $6000 0013 0014 FDFE RGDAT EQU $FDFE 0015 FDFE RGSTS EQU $FDFE 0016 FDFD RGCMD EQU $FDFD 0017 FBFA BIOS EQU $FBFA 0018 FD1E CHGFDD EQU $FD1E bit6:0-2DD(default), 1-2D 0019 0020 6000 ORG STTADR 0021 0022 6000 16 0071 RDFM LBRA RDFM0 0023 6003 16 00D8 WRFM LBRA WRFM0 0024 0025 6006 00 DPSV FCB 0 ;save DP 0026 6007 00 TRK FCB 0 0027 6008 01 SCT FCB 1 0028 6009 01 DRV FCB 1 0029 600A 00 DRVTYP FCB 0 0:2D,1:2DD 0030 600B 01 TXEMOD FCB 1 0:OFF,1:ON 0031 600C 28 MAXTRK FCB 40 2D:40,2DD:80 0032 0033 * RCB for Read/Write 0034 600D 00 RCBRW FCB $00,$00,$00,$00,$00,$00,$00,$00 0035 6015 08 RCBRST FCB $08,$00,$00,$00,$00,$00,$00,$00 0036 * 0037 *-------------------------------------------------- 0038 *initialize for read FM 0039 601D INIRD EQU * 0040 601D 86 0A LDA #$0A DREAD 0041 601F 20 02 BRA INI2 0042 0043 *initialize for write FM 0044 6021 INIWR EQU * 0045 6021 86 09 LDA #$09 DWRITE 0046 6023 INI2 0047 6023 34 02 PSHS A 0048 6025 1F B8 TFR DP,A 0049 6027 A78D FFDB STA >DPSV,PCR 0050 602B 1F 50 TFR PC,D 0051 602D 1F 8B TFR A,DP 0052 60 SETDP $60 0053 602F 35 02 PULS A 0054 0055 6031 30 8C D9 LEAX RCBRW,PCR 0056 6034 A7 84 STA ,X 0057 6036 318D 01C6 LEAY BUFF,PCR 0058 603A 10AF 02 STY 2,X 0059 603D CC 0001 LDD #$0001 TRK:0,SCT:1 0060 6040 ED 8C C4 STD TRK,PCR 0061 6043 ED 04 STD 4,X 0062 6045 4F CLRA 0063 6046 A7 06 STA 6,X SIDE:0 0064 6048 A6 8C BE LDA DRV,PCR 0065 604B A7 07 STA 7,X DRV for DREAD/DWRITE 0066 604D A7 0F STA 15,X DRV for RESTORE 0067 0068 *change to 320KB/640KB FDD 0069 604F B6 FD1E LDA CHGFDD 0070 6052 E6 8C B5 LDB DRVTYP,PCR 0071 6055 26 04 BNE INI3 0072 6057 8A 40 ORA #$40 bit6=1 set 320KB 0073 6059 20 02 BRA INI4 0074 605B 84 BF INI3 ANDA #$BF bit6=0 set 640KB 0075 605D B7 FD1E INI4 STA CHGFDD 0076 *set MAXTRK 0077 6060 5D TSTB 0078 6061 26 04 BNE INI5 0079 6063 86 28 LDA #40 0080 6065 20 02 BRA INI6 0081 6067 86 50 INI5 LDA #80 0082 6069 A7 8C A0 INI6 STA MAXTRK,PCR 0083 0084 606C 30 8C A6 LEAX RCBRST,PCR RESTORE 0085 606F AD9F FBFA JSR [BIOS] 0086 6073 39 RTS 0087 0088 *-------------------------------------------------- 0089 * read sct data from FM, write to WindowsPC 0090 * 0091 6074 RDFM0 EQU * 0092 *set init for read 0093 6074 8D A7 BSR INIRD 0094 0095 *write to PC from FM 0096 6076 SND1 EQU * 0097 6076 6F 8C 98 CLR RCBRW+4,PCR trk:0 0098 6079 SND11 EQU * 0099 6079 8D 1A BSR SND12 0100 607B 6C 8C 93 INC RCBRW+4,PCR trk+1 0101 607E A6 8C 8B LDA MAXTRK,PCR 0102 6081 A1 8C 8D CMPA RCBRW+4,PCR end trk? 0103 6084 22 F3 BHI SND11 0104 *dp return 0105 6086 A68D FF7C LDA DPSV,PCR 0106 608A 1F 8B TFR A,DP 0107 *reset to 640KB FDD 0108 608C B6 FD1E LDA CHGFDD 0109 608F 84 BF ANDA #$BF bit6=0 0110 6091 B7 FD1E STA CHGFDD 0111 6094 39 RTS 0112 0113 *read 16scts data from FM, write to PC (for side 0) 0114 6095 SND12 EQU * 0115 6095 CC 0100 LDD #$0100 sct:1,side:0 0116 6098 ED8D FF76 STD RCBRW+5,PCR 0117 609C SND13 EQU * 0118 609C 8D 22 BSR RFMWPC 0119 609E 6C8D FF70 INC RCBRW+5,PCR sct+1 0120 60A2 86 10 LDA #16 0121 60A4 A18D FF6A CMPA RCBRW+5,PCR 0122 60A8 2A F2 BPL SND13 0123 *read 16scts data from FM, write to PC (for side 1) 0124 60AA CC 0101 LDD #$0101 sct:1,side:1 0125 60AD ED8D FF61 STD RCBRW+5,PCR 0126 60B1 SND14 EQU * 0127 60B1 8D 0D BSR RFMWPC 0128 60B3 6C8D FF5B INC RCBRW+5,PCR sct+1 0129 60B7 86 10 LDA #16 0130 60B9 A18D FF55 CMPA RCBRW+5,PCR 0131 60BD 2A F2 BPL SND14 0132 60BF 39 RTS 0133 0134 *read 1sct data from FM, write to PC 0135 60C0 RFMWPC EQU * 0136 *write header to PC 0137 60C0 308D FF49 LEAX RCBRW,PCR 0138 60C4 C6 10 LDB #16 0139 60C6 17 00AB LBSR SNDCH 0140 *read sct data from FM 0141 60C9 308D FF40 LEAX RCBRW,PCR 0142 60CD AD9F FBFA RBLOP1 JSR [BIOS] 0143 60D1 A6 01 LDA 1,X 0144 60D3 26 F8 BNE RBLOP1 0145 0146 *write sct data to PC 0147 60D5 308D 0127 LEAX BUFF,PCR 0148 60D9 5F CLRB counter:256 0149 60DA 17 0097 LBSR SNDCH 0150 60DD 39 RTS 0151 0152 * 0153 *-------------------------------------------------- 0154 * read sct data from WindowsPC, write to FM 0155 * 0156 60DE WRFM0 EQU * 0157 *set init for write 0158 60DE 17 FF40 LBSR INIWR 0159 0160 *read from PC, write to FM 0161 60E1 READ1 EQU * 0162 60E1 6F8D FF2C CLR RCBRW+4,PCR trk:0 0163 60E5 READ11 EQU * 0164 60E5 8D 1D BSR READ12 0165 60E7 6C8D FF26 INC RCBRW+4,PCR trk+1 0166 60EB A68D FF1D LDA MAXTRK,PCR 0167 60EF A18D FF1E CMPA RCBRW+4,PCR end trk? 0168 60F3 22 F0 BHI READ11 0169 *dp return 0170 60F5 A68D FF0D LDA DPSV,PCR 0171 60F9 1F 8B TFR A,DP 0172 *reset to 640KB FDD 0173 60FB B6 FD1E LDA CHGFDD 0174 60FE 84 BF ANDA #$BF bit6=0 0175 6100 B7 FD1E STA CHGFDD 0176 6103 39 RTS 0177 0178 *read 16scts data from PC, write to FM (for side 0) 0179 6104 READ12 EQU * 0180 6104 CC 0100 LDD #$0100 sct:1,side:0 0181 6107 ED8D FF07 STD RCBRW+5,PCR 0182 610B READ13 EQU * 0183 610B 8D 22 BSR RPCWFM 0184 610D 6C8D FF01 INC RCBRW+5,PCR sct+1 0185 6111 86 10 LDA #16 0186 6113 A18D FEFB CMPA RCBRW+5,PCR 0187 6117 2A F2 BPL READ13 0188 *read next 16scts data from PC, write to FM (for side 1) 0189 6119 CC 0101 LDD #$0101 sct:1,side:1 0190 611C ED8D FEF2 STD RCBRW+5,PCR 0191 6120 READ14 EQU * 0192 6120 8D 0D BSR RPCWFM 0193 6122 6C8D FEEC INC RCBRW+5,PCR sct+1 0194 6126 86 10 LDA #16 0195 6128 A18D FEE6 CMPA RCBRW+5,PCR 0196 612C 2A F2 BPL READ14 0197 612E 39 RTS 0198 0199 *read 1sct data from PC, write to FM 0200 612F RPCWFM EQU * 0201 *read sct data from PC 0202 612F 308D 00CD LEAX BUFF,PCR 0203 6133 5F CLRB counter:256 0204 6134 8D 12 DRD1 BSR RCVCH 0205 6136 A7 80 STA ,X+ 0206 6138 5A DECB 0207 6139 26 F9 BNE DRD1 0208 *write data to sct of FM 0209 613B 308D FECE LEAX RCBRW,PCR 0210 613F AD9F FBFA WBLOP1 JSR [BIOS] 0211 6143 A6 01 LDA 1,X error? 0212 6145 26 F8 BNE WBLOP1 0213 6147 39 RTS 0214 0215 * 0216 *===== receive 1 chr ===== 0217 * 1st received byte : bit7,6(located on bit5,4) 0218 * 2nd received byte : bit5-0 0219 * return A:input chr 0220 * 0221 6148 RCVCH EQU * 0222 6148 34 04 PSHS B 0223 614A 8D 20 BSR WTRDEN wait RXF=L 0224 614C C6 01 LDB #$01 read cmd(D0=H) 0225 614E 8D 12 BSR GETDAT get 1st byte 0226 6150 84 30 ANDA #$30 get bit5,4 0227 6152 48 ASLA 0228 6153 48 ASLA to bit7,6 0229 6154 34 02 PSHS A save bit7,6 of chr 0230 6156 8D 14 BSR WTRDEN wait RXF=L 0231 6158 8D 08 BSR GETDAT get 2nd byte 0232 615A 84 3F ANDA #$3F get bit5-0 0233 615C AB E4 ADDA ,S bit7,6+bit5-0 0234 615E 32 61 LEAS 1,S returns the SP 0235 6160 35 84 PULS B,PC 0236 0237 *get data 0238 * return A:input data 0239 6162 F7 FDFD GETDAT STB RGCMD write cmd 0240 6165 B6 FDFE LDA RGDAT get data 0241 6168 7F FDFD CLR RGCMD set RD#=L 0242 616B 39 RTS 0243 * 0244 * wait RXF enable 0245 * RXF L:data exist, H:not exist 0246 * RGSTS bit7:RXF 0247 * 0248 616C WTRDEN EQU * 0249 616C B6 FDFE RDE1 LDA RGSTS 0250 616F 84 80 ANDA #$80 0251 6171 26 F9 BNE RDE1 RXF=L? 0252 * CLR RGCMD set RD#=L 0253 6173 39 RTS 0254 0255 * 0256 *===== send 1 chr ===== 0257 *send sct data from buf to ft245 0258 * write to ft245 at WR:H->L 0259 * 0260 * B:counter 0261 * X:adr of buff 0262 * 0263 6174 SNDCH EQU * 0264 6174 34 02 PSHS A 0265 6176 SNDD1 0266 6176 8D 12 BSR WTWREN wait TXE=L 0267 6178 86 02 LDA #2 0268 617A B7 FDFD STA RGCMD bit1=1(WR=H) 0269 617D A6 80 LDA ,X+ 0270 617F B7 FDFE STA RGDAT set DATA 0271 6182 7F FDFD CLR RGCMD bit1=0(WR=H->L) 0272 6185 5A DECB 0273 6186 26 EE BNE SNDD1 0274 6188 35 82 PULS A,PC 0275 0276 * 0277 * wait Tx enable 0278 * TXE L:enable, H:disable 0279 * RGSTS bit6:TXE 0280 * 0281 618A WTWREN EQU * 0282 618A 34 02 PSHS A 0283 618C A68D FE7B LDA TXEMOD,PCR 0284 6190 27 07 BEQ WRE2 0285 6192 B6 FDFE WRE1 LDA RGSTS 0286 6195 84 40 ANDA #$40 0287 6197 26 F9 BNE WRE1 bit6=0? 0288 6199 35 82 WRE2 PULS A,PC 0289 0290 6200 ORG STTADR+$200 0291 0292 6200 FF BUFF RMB 256 0293 0294 0 error(s), 2 warning(s) is detected. Label address BIOS FBFA BUFF 6200 CHGFDD FD1E DPSV 6006 DRD1 6134 DRV 6009 DRVTYP 600A GETDAT 6162 INI2 6023 INI3 605B INI4 605D INI5 6067 INI6 6069 INIRD 601D INIWR 6021 MAXTRK 600C RBLOP1 60CD RCBRST 6015 RCBRW 600D RCVCH 6148 RDE1 616C RDFM 6000 RDFM0 6074 READ1 60E1 READ11 60E5 READ12 6104 READ13 610B READ14 6120 RFMWPC 60C0 RGCMD FDFD RGDAT FDFE RGSTS FDFE RPCWFM 612F SCT 6008 SND1 6076 SND11 6079 SND12 6095 SND13 609C SND14 60B1 SNDCH 6174 SNDD1 6176 STTADR 6000 TRK 6007 TXEMOD 600B WBLOP1 613F WRE1 6192 WRE2 6199 WRFM 6003 WRFM0 60DE WTRDEN 616C WTWREN 618A

 

以上ですが、作成したソフトなどをOneDriveに上げておきます。

内容は、

・Windows側

　 ft245drv.exe（64ビット版ですので32ビットOSでは動作しません）

・FM側

　メニューソフト FT245DRV（F-BASIC)

　サブルーチン FTDRV11o（機械語）ソースリストとバイナリ

・FMへの転送用DATファイル FT245DRIVER2.DAT（上記の２ソフトを収めてある）

・以上のソフトの使用説明書

・ユーティリティ

　イメージファイル処理ソフト FBasDrvWin.exe

　（以前紹介したものをDAT形式ファイルを扱えるように拡張したもの。

　　FT245通信カードと関係なく、イメージファイルを処理するソフトとして使用可能。)

です。