Categories: R10コンピュータ

日立 MB-S1 S1-CP/M80 移植作戦 その20 BIOSの作成4

BIOS09内のディスクI/Oのサブルーチンを考えています。

S1はFMと違い、ROM内にFDDのサブルーチンが無いので自分で作る必要があるみたいです。
FDCのMB8877を使った参考書としては「オーム社のマイクロコンピュータMC6809の考え方」が分かりやすくお気に入りの書籍です。

この本はFLEX9中心の参考書ですが、この本を参考にS1CPM用のディスクI/Oサブルーチンを考えてみました。
S1はMB8876なのですがデータの反転を入れればOKではないかと甘いことを考え中^^
骨格は書籍の通りですが、S1固有の部分を合わせながら進めています。
(MC6809の考え方ではDRQをIRQとしてMPUに取り込んでいますがS1ではDRQはMNIに取り込んでいないっぽい)

6809活用研究に掲載のMP-1870の回路図を見るとDRQ,IRQは$FF04のリードで取得することが判明
ドライブ変更時に正常に動作しなくなったり、セクタを変えると暴走したりと問題点満載ですが、コードを晒しながら動作するように頑張ります^^

何か勘違いしていると思いますので、間違いに気づかれた方はご指摘下さい(^^;;
(アセンブラはMS-DOS用のAS63_DOS.EXEを使ってます)

1                       # MB-S1 DISKIO サブルーチン案3
2    0000
3    0200               SH_BASE         equ             $0200           #Z80との共通領域トップ(仮)
4    FFEB               SYSMODE         equ             $FFEB           #SYSMODEレジスタ
5    FF00               FDCTOP          equ             $FF00           #S1FDC Top Address
6    0000
7    0000
8    0000                               org             $0000           #先頭番地は仮に$0
9    0000
10   0000               START:          equ             *
11   0000 17   0033                     lbsr            FDCINIT
12   0003
13   0003 CC   0300                     ldd             #$0300          #Memory Address
14   0006 FD   0203                     std             $203
15   0009 86   14                       lda             #20             #Track
16   000B B7   0205                     sta             $205
17   000E 86   05                       lda             #5              #SectorNo
18   0010 B7   0206                     sta             $206
19   0013 86   00                       lda             #0              #Drive
20   0015 B7   0207                     sta             $207
21   0018
22   0018 17   0036                     lbsr            VALSET
23   001B
24                      #                lbsr            RESTORE
25                      #                lbsr            SEEK
26   001B 17   004E                     lbsr            READSECT
27   001E
28   001E 86   01                       lda             #1
29   0020 17   0161                     lbsr            DRIVESET
30   0023 86   26                       lda             #39
31   0025 A7   8D 0008                  sta             wTrackNo,PCR
32                      #                lda             #6
33                      #                sta             wSectNo,PCR
34   0029 17   008E                     lbsr            WRITESECT
35   002C
36   002C 39                            rts
37   002D
38   002D
39                      #----- FDC関連のサブルーチン ---------------------------------------------------------
40                      #(オーム社 6809の考え方 p161-p166)
41   002D
42                      # SH_BASE=ディスクパラメータの先頭アドレス
43                      # 0,X=FDC Status/Command Reg.
44                      # 1,X=Track Reg.
45                      # 2,X=Sector Reg.
46                      # 3,X=Data Reg.
47                      # 4,X=S1 UnitSel
48                      # (FDCEnable,FaultReset,DDEN,SIDE,- MOTOR,x,2^1,2^0)
49   002D
50                      #SH_BASEより入出力のための情報とする
51                      #内容  値 バイト数 オフセット 備考
52                      #CMDNO  8 1 0
53                      #IOSTAT  - 1 1
54                      #DATAREG  - 1 2
55                      #SH_BASE-1 メモリアドレス 0000H-0FFFFH 2 3 ビッグエンディアン
56                      #SH_BASE-2 トラック番号 0-39 1 5
57                      #SH_BASE-3 セクタ番号 1-32 1 6
58                      #SH_BASE-4 ドライブ番号 0-3 1 7
59                      #SH_BASE-5 セクタ数 1-255 1 8
60                      #SH_BASE-6 FDCデータ            -               256             9~
61   002D
62   0080               RDCMD           equ             $80             #Read Command
63   00A0               WRCMD           equ             $A0             #Write Command
64   0010               SKCMD           equ             $10             #Seek Command
65   0000               RECMD           equ             $00             #Restore Command
66   002D
67   002D               wDriveNo:       rmb             1               #ドライブ番号
68   002E               wSideNo:        rmb             1               #Side番号(0/1)
69   002F               wDensSel:       rmb             1               #密度選択(0=倍/1=単)
70   0030               wMotorOn:       rmb             1               #モータ(0=OFF/1=ON)
71   0031               wTrackNo:       rmb             1               #トラック番号
72   0032               wSectNo:        rmb             1               #セクタ番号
73   0033               wMemAdrs:       rmb             2               #メモリアドレス
74   0035               wWork:          rmb             1               #ワーク
75   0036
76   0036
77                      #+++ S1/DDSD 変数初期化/パラメータセット
78   0036               FDCINIT:        equ             *
79   0036 86   20                       lda             #$20
80   0038 A7   8C F4                    sta             wDensSel,PCR    #$20=倍密度
81   003B 6F   8C EF                    clr             wDriveNo,PCR
82   003E 6F   8C ED                    clr             wSideNo,PCR
83   0041 6F   8C EC                    clr             wMotorOn,PCR
84   0044 6F   8C EA                    clr             wTrackNo,PCR
85   0047 6F   8C E8                    clr             wSectNo,PCR
86   004A 6F   8C E6                    clr             wMemAdrs,PCR
87   004D 6F   8C E5                    clr             wWork,PCR
88   0050 39                            rts
89   0051
90   0051
91                      #+++ 変数セット(BIOS80からのパラメータ受取用)
92   0051 34   16       VALSET:         pshs            D,X
93   0053 8E   0200                     ldx             #SH_BASE
94   0056 EC   03                       ldd             3,X
95   0058 ED   8C D8                    std             wMemAdrs,PCR
96   005B A6   05                       lda             5,X
97   005D A7   8C D1                    sta             wTrackNo,PCR
98   0060 A6   06                       lda             6,X
99   0062 A7   8C CD                    sta             wSectNo,PCR
100  0065 A6   07                       lda             7,X
101  0067 A7   8C C3                    sta             wDriveNo,PCR
102  006A 35   96                       puls            D,X,PC
103  006C
104  006C
105                     #+++ 1セクタ(256バイト)読込
106                     #引数=各変数
107                     #X=FDCパラメータ領域(FDC先頭アドレス=$FF00)
108                     #Y=ロード領域へのポインタ
109                     #出力 = 結果AccA($00=正常終了, $FF=エラー)
110  006C               READSECT:       equ             *
111  006C 34   34                       pshs            B,X,Y
112  006E 1A   50                       orcc            #$50            #割込禁止→NMIのみ受付け
113  0070 17   0175                     lbsr            CLK1M
114  0073 17   00A4                     lbsr            SEEK
115  0076 17   0093                     lbsr            CHKFDCRDY       #FDC準備完了チェック
116  0079 8E   FF00                     ldx             #FDCTOP
117  007C 10AE 8C B3                    ldy             wMemAdrs,PCR
118  0080 A6   8C AE                    lda             wTrackNo,PCR
119  0083 43                            coma
120  0084 A7   01                       sta             1,X
121  0086 A6   8C A9                    lda             wSectNo,PCR
122  0089 43                            coma
123  008A A7   02                       sta             2,X
124  008C 86   80                       lda             #RDCMD
125  008E 43                            coma
126  008F A7   84                       sta             0,X             #Command Reg.
127  0091 12                            nop
128  0092               READSECTLP1:
129  0092 A6   04                       lda             4,X             #コマンド完了検出(IRQ)
130  0094 47                            asra
131  0095 24   0B                       bcc             READSECTLP2
132  0097
133  0097 E6   04                       ldb             4,X             #DRQセット待ち
134  0099 2B   F7                       bmi             READSECTLP1
135  009B E6   03                       ldb             3,X             #データ読込
136  009D 53                            comb
137  009E E7   A0                       stb             ,Y+
138  00A0 20   F0                       bra             READSECTLP1
139  00A2               READSECTLP2:
140  00A2 4F                            clra
141  00A3 E6   84                       ldb             0,X             #FDCからステータス取得
142  00A5 53                            comb
143  00A6 D4   1C                       andb            0b00011100      #Bit4=RECORD NOT FOUND, Bit3=CRC ERROR, Bit2=DATA LOSTをチェック
144  00A8 27   02                       beq             READSCTCOMP
145  00AA 86   FF                       lda             #$FF
146  00AC               READSCTCOMP:
147  00AC 6F   8C 81                    clr             wMotorOn,PCR
148  00AF 17   00DA                     lbsr            UNITSEL
149  00B2 1C   AF                       andcc           #$AF            #割込許可
150  00B4 17   0135                     lbsr            CLK2M
151  00B7 35   34                       puls            B,X,Y
152  00B9 39                            rts
153  00BA
154  00BA
155                     #+++ 1セクタ(256バイト)書込み
156                     #引数=各変数
157                     #X=FDCパラメータ領域(FDC先頭アドレス=$FF00)
158                     #Y=ロード領域へのポインタ
159                     #出力 = 結果AccA($00=正常終了, $FF=エラー)
160  00BA               WRITESECT:      equ             *
161  00BA 34   34                       pshs            B,X,Y
162  00BC 1A   50                       orcc            #$50            #割込禁止→NMIのみ受付け
163  00BE 17   0127                     lbsr            CLK1M
164  00C1 17   0056                     lbsr            SEEK
165  00C4 17   0045                     lbsr            CHKFDCRDY       #FDC準備完了チェック
166  00C7 8E   FF00                     ldx             #FDCTOP
167  00CA 10AE 8D FF64                  ldy             wMemAdrs,PCR
168  00CF A6   8D FF5E                  lda             wTrackNo,PCR
169  00D3 43                            coma
170  00D4 A7   01                       sta             1,X
171  00D6 A6   8D FF58                  lda             wSectNo,PCR
172  00DA 43                            coma
173  00DB A7   02                       sta             2,X
174  00DD 86   A0                       lda             #WRCMD
175  00DF 43                            coma
176  00E0 A7   84                       sta             0,X             #Command Reg.
177  00E2 12                            nop
178  00E3               WRITESECTLP1:
179  00E3 A6   04                       lda             4,X             #コマンド完了検出(IRQ)
180  00E5 47                            asra
181  00E6 24   0B                       bcc             WRITESECTLP2
182  00E8
183  00E8 E6   04                       ldb             4,X             #DRQセット待ち
184  00EA 2B   F7                       bmi             WRITESECTLP1
185  00EC E6   A0                       ldb             ,Y+
186  00EE 53                            comb
187  00EF E7   03                       stb             3,X
188  00F1 20   F0                       bra             WRITESECTLP1
189  00F3               WRITESECTLP2:
190  00F3 4F                            clra
191  00F4 E6   84                       ldb             0,X             #FDCからステータス取得
192  00F6 53                            comb
193  00F7 D4   3C                       andb            0b00111100      #Bit5=WRITE FAULT Bit4=RECORD NOT FOUND, Bit3=CRC ERROR, Bit2=DATA LOSTをチェック
194  00F9 27   02                       beq             WRITESCTCOMP
195  00FB 86   FF                       lda             #$FF
196  00FD               WRITESCTCOMP:
197  00FD 6F   8D FF2F                  clr             wMotorOn,PCR
198  0101 17   0088                     lbsr            UNITSEL
199  0104 1C   AF                       andcc           #$AF            #割込許可
200  0106 17   00E3                     lbsr            CLK2M
201  0109 35   34                       puls            B,X,Y
202  010B 39                            rts
203  010C
204  010C
205                     #+++ FDC準備完了待ち
206  010C               CHKFDCRDY:      equ              *
207  010C 34   16                       pshs            D,X
208  010E 8E   FF00                     ldx             #FDCTOP
209  0111               CHKFDCRDYLP:
210  0111 E6   84                       ldb             0,X             #Status Reg
211  0113 53                            comb
212  0114 C5   81                       bitb            #$81            #Bit7 Not Ready BitとBit0 Busyをチェック
213  0116 26   F9                       bne             CHKFDCRDYLP
214  0118 35   96                       puls            D,X,PC
215  011A
216  011A
217                     #;+++ ヘッドSEEK
218                     #入力 = wDriveNo, wTrackNo, wSectNo
219                     #出力 = 結果AccA($00=正常終了, $FF=エラー)
220  011A               SEEK:           equ             *
221  011A 34   14                       pshs            B,X
222  011C 8E   FF00                     ldx             #FDCTOP
223  011F 17   00B0                     lbsr            SIDESEL
224  0122 A7   8D FF08                  sta             wSideNo,PCR
225  0126 A6   8D FF07                  lda             wTrackNo,PCR
226  012A 43                            coma
227  012B A7   03                       sta             3,X             #DATAREG
228  012D 86   01                       lda             #$01
229  012F A7   8D FEFD                  sta             wMotorOn,PCR
230  0133 17   0056                     lbsr            UNITSEL
231  0136 A7   04                       sta             4,X
232  0138 12                            nop
233  0139 86   10                       lda             #SKCMD
234  013B 43                            coma
235  013C A7   84                       sta             0,X             #コマンドレジスタにコマンド書込み
236  013E 13                            sync                            #シーク完了待ち(MNI)
237  013F 4F                            clra
238  0140 E6   84                       ldb             0,X             #ステータスレジスタから結果取得
239  0142 53                            comb
240  0143 D4   18                       andb            0b00011000      #Bit4 SEEK ERROR  #Bit3 CRC ERRORをチェック
241  0145 27   02                       beq             SEEK1
242  0147 86   FF                       lda             #$FF
243  0149               SEEK1:
244  0149 17   FFC0                     lbsr            CHKFDCRDY       #FDC Ready待ち
245  014C 35   94                       puls            B,X,PC
246  014E
247  014E
248                     #+++ レストア
249                     #入力 = wDriveNo
250                     #出力 = 結果AccA($00=正常終了, $FF=エラー)
251  014E               RESTORE:        equ             *
252  014E 34   14                       pshs            B,X
253  0150 8E   FF00                     ldx             #FDCTOP
254  0153 17   0092                     lbsr            CLK1M
255  0156 86   01                       lda             #$01
256  0158 A7   8D FED4                  sta             wMotorOn,PCR
257  015C 17   002D                     lbsr            UNITSEL
258  015F A7   04                       sta             4,X
259  0161 1A   50                       orcc            #$50            #割込禁止→NMIのみ受付け
260  0163 86   00                       lda             #RECMD
261  0165 43                            coma
262  0166 A7   84                       sta             0,X             #Command Reg
263  0168 13                            sync                            #レストア完了待ち(MNI)
264  0169 4F                            clra
265  016A E6   84                       ldb             0,X             #ステータスレジスタから結果取得
266  016C 53                            comb
267  016D D4   18                       andb            0b00011000      #Bit4 SEEK ERROR  #Bit3 CRC ERRORをチェック
268  016F 27   02                       beq             RESTORE1
269  0171 86   FF                       lda             #$FF
270  0173               RESTORE1:
271  0173 17   FF96                     lbsr            CHKFDCRDY       #FDC Ready待ち
272  0176 6F   8D FEB6                  clr             wMotorOn,PCR
273  017A 17   000F                     lbsr            UNITSEL
274  017D 17   006C                     lbsr            CLK2M
275  0180 1C   AF                       andcc           #$AF            #割込許可
276  0182 35   94                       puls            B,X,PC
277  0184
278  0184
279                     #+++ ドライブ選択
280                     #入力=AccAドライブ番号
281                     #出力 = 結果AccA($00=正常終了, $FF=エラー)
282  0184               DRIVESET:       equ             *
283  0184 A7   8D FEA5                  sta             wDriveNo,PCR
284  0188 17   FFC3                     lbsr            RESTORE
285  018B 39                            rts
286  018C
287  018C
288                     #+++ UNITSEL設定
289                     #UNITSEL($FF04)のビット割当て
290                     #       Bit7      Bit6     Bit5   Bit4   Bit3     Bit2  Bit1   Bit0
291                     #READ   #DRQ      N/A      N/A    N/A    N/A      N/A   N/A    #IRQ
292                     #WRITE  0         NMIMASK  DDEN   HEAD1  MOTORON  0     Drv^1  Drv^0(MP-1805)
293                     #WRITE  #FDCENBL  8'RESET  #DDEN  HEAD1  MOTORON  0     Drv^1  Drv^0(S1/40) S1活研ではDDENが#になってる?
294                     #
295                     #入力 = wDensSel, [wSideNo], wMotorOn, wDriveNo,wSectorNo
296                     #出力 = AccA (UNITSEL Bit)
297  018C               UNITSEL:        equ             *
298  018C 34   04                       pshs            B
299  018E 86   00                       lda             #$00            #Bit7=0(FDC有効),Bit6=0(MNIMask/FaultReset),Bit5~0=0固定
300  0190 E6   8D FE9B                  ldb             wDensSel,PCR
301  0194 58                            aslb
302  0195 58                            aslb
303  0196 58                            aslb
304  0197 58                            aslb
305  0198 58                            aslb
306  0199 6F   8D FE98                  clr             wWork,PCR
307  019D E7   8D FE94                  stb             wWork,PCR
308  01A1 AA   8D FE90                  ora             wWork,PCR
309  01A5 E6   8D FE85                  ldb             wSideNo,PCR
310  01A9 58                            aslb
311  01AA 58                            aslb
312  01AB 58                            aslb
313  01AC 58                            aslb
314  01AD 6F   8D FE84                  clr             wWork,PCR
315  01B1 E7   8D FE80                  stb             wWork,PCR
316  01B5 AA   8D FE7C                  ora             wWork,PCR
317  01B9 E6   8D FE73                  ldb             wMotorOn,PCR
318  01BD 58                            aslb
319  01BE 58                            aslb
320  01BF 58                            aslb
321  01C0 6F   8D FE71                  clr             wWork,PCR
322  01C4 E7   8D FE6D                  stb             wWork,PCR
323  01C8 AA   8D FE69                  ora             wWork,PCR
324  01CC AA   8D FE5D                  ora             wDriveNo,PCR
325  01D0 35   84                       puls            B,PC
326  01D2
327  01D2
328                     #+++ サイド選択(セクタ17以上は16を引いてwSectNoに戻す)
329                     #入力 = wSectNo
330                     #出力 = AccA SideNo $0 or $1), wSectNo
331  01D2               SIDESEL:        equ             *
332  01D2 A6   8D FE5C                  lda             wSectNo,PCR     #SectorNo
333  01D6 81   10                       cmpa            #16
334  01D8 22   02                       bhi             SIDE2SEL        #16セクタ以上ならSide2
335  01DA 20   09                       bra             SIDE1SEL        #それ以外ならSide1
336  01DC               SIDE2SEL:
337  01DC 80   10                       suba            #16
338  01DE A7   8D FE50                  sta             wSectNo,PCR
339  01E2 86   01                       lda             #$01
340  01E4 39                            rts
341  01E5               SIDE1SEL:
342  01E5 86   00                       lda             #$00
343  01E7 39                            rts
344  01E8
345  01E8
346                     #+++ #システムクロックを1MHzに指定
347  01E8               CLK1M:          equ             *
348  01E8 7F   FFEB                     clr             SYSMODE
349  01EB 39                            rts
350  01EC
351  01EC
352                     #+++ #システムクロックを2MHzに指定
353  01EC               CLK2M:          equ             *
354  01EC 34   02                       pshs            A
355  01EE 86   02                       lda             #$02
356  01F0 B7   FFEB                     sta             SYSMODE
357  01F3 35   82                       puls            A,PC
    Total Errors 0
    Total labels 39

このソフトを実行するとドライブ0のトラック20,セクタ5を1セクタ読込んで$0300~にロードします。

$300~書き込まれた256バイトをドライブ1のトラック39、セクタ5に1セクタ書き込みます。

本来アセンブラのサブルーチンは上記のように機能毎に別の位置で処理するのではなく、
一連の流れでデータを作る効率の良さが求められるものだと思いますが、完全に機能毎に処理しています。

かなり非効率なポンコツプログラムですが笑って許してください^^;;
アセンブラのコードの書き方をマスタしたいので、こう書いたほうがいいなどの指摘がありましたら
どんどん指摘してください(^^;;;

連絡画面からのメール送信も復活させましたので、アドバイスなど宜しくお願い致します(^^)

kabekin

View Comments

  • ちょっとだけですが,
    ---
    SIDESEL: equ *
    lda wSectNo,PCR #SectorNo
    bita #$10
    bne SIDE2SEL #16セクタ以上ならSide2
    SIDE1SEL: clra # lda #0よりclraの方が速い
    rts # SIDE1ならwSectNo,PCRはそのままで良い
    SIDE2SEL: anda #$0f
    sta wSectNo,PCR
    lda #$01
    rts
    ---

    • お懐かしい!
      あの Level3さん でしょうか!?
      私は当時NIFTYのFOS9/FDEVICEに Hase. というハンドルで出没していました。
      現在は
      https://twitter.com/haserin09
      http://haserin09.la.coocan.jp/
      で細々とやっております。
      ところで、ご相談させていただきたいことがあるのですが、DMさせていただいてもよろしいでしょうか?
      以上、よろしくお願いします。
      勝手に使ってしまってすいません。>かべきんさま

  • もう1つ,データエリアの参照にプログラムカウンタ相対を使用していますが,ここは絶対アドレス参照で良いのではないでしょうか?BIOSの位置は出来上がった段階では固定ですから絶対アドレス参照の方が速いと思います.

    • コメントありがとうございます
      SIDESELのサブルーチンは早速入替えさせて頂きました^^;;
      現状は実験する際に$3000~ロードしたり$0000からロードしたりと相対アドレス対応でコーディングしていますが、ある程度動作するようになって落ち着いてきたら絶対アドレスにして速度重視に整理したいと思います

  • Haseさんですか? はい,Nifty FDEVICEのLevel3です.
    DMしていただいて良いですよ.