🚀 go-pugleaf

$B5-;v(B<3530DD83.77AE@imasy.or.jp>$B$G$N(B,
Yasuyuki Mukai <yasuyuki@imasy.or.jp> $B$5$s$N<!$N5-=R$K4X$7$F(B:
>> NEC N-88 BASIC(86) version 5.0$B$r(BWindows95$B$N(BDOS$BAk$G;H$C$F$$$^$9!#(B
>> # NEC$B$NF0:nJ]>Z$,L5$$$N$O>5CN$N>e$J$N$G$9$,!#(B
>> $B%^%7%s$O(BPC-9821Cr13$B$G$9!#(B
>> $B$3$N4D6-$G(BCOM$B%]!<%H$+$i%G!<%?$r<h$j9~$`%V%m%0%i%`$r:n$C$F$$$^$9!#(B
>> DOS$B$N(BSPEED$B%3%^%s%I$G(B19200Baud$B$K@_Dj$7$F$$$k$K$b4X$o$i$:!"(B
>> BASIC$B$GFI$`$H(B1200Baud$B$K$G$7$+FI$`$3$H$,$G$-$^$;$s!#(B
>> $B$J$s$H$+$7$F(B19200Baud$B$GFI$`J}K!$O$J$$$G$7$g$&$+(B?

$B$b$&!"(Bfollow$B$,F~$C$F$$$k$H;W$$$^$9$,!"(BBasic$B$G!"(B1200Baud$B$b=P$l$P$j$C$Q$J(B
$B$b$N$G$7$g$&!#B.EY$rM%@h$9$k$J$i!"(BC$B$H$+!"(BDelphi$B$KJQ$($?$i$$$$$H;W$$$^$9(B
$B$h!#(BBasic$B$OCY$$$+$i!"$=$s$J$b$N$@$H;W$$$^$9!#(B

$B;d$N>l9g!"@N!9!"(Bbasic$B$G(Bcoding$B$7$^$7$?$,!"(B800Baud$B$7$+$G$J$+$C$?$G$9!#(B

$BKY!!9>!!<~!!Fs(B
quixote@mail.netwave.or.jp  PFH02137@niftyserve.or.jp
Department of Neurosurgery  Miyoshi Prefectural Hospital
TEL +81-883-72-1131         FAX +81-883-72-6910

川上＠コルグです。

Yasuyuki Mukai <yasuyuki@imasy.or.jp> wrote in article
<3530DD83.77AE@imasy.or.jp>...
> NEC N-88 BASIC(86) version 5.0をWindows95のDOS窓で使っています。
> # NECの動作保証が無いのは承知の上なのですが。
> マシンはPC-9821Cr13です。
> この環境でCOMポートからデータを取り込むブログラムを作っています。
> DOSのSPEEDコマンドで19200Baudに設定しているにも関わらず、
> BASICで読むと1200Baudにでしか読むことができません。
> なんとかして19200Baudで読む方法はないでしょうか?

最近、basicなんて使っていないのですが、メモリスイッチの設定も
確認されてみたらいかがでしょう？

関係ないかもしれませんが。

$BKeHx!J$;$N$*!K$H$$$$$^$9(J

> NEC N-88 BASIC(86) version 5.0$B$r(JWindows95$B$N(JDOS$BAk$G;H$C$F$$$^$9!#(J
> # NEC$B$NF0:nJ]>Z$,L5$$$N$O>5CN$N>e$J$N$G$9$,!#(J
> $B%^%7%s$O(JPC-9821Cr13$B$G$9!#(J
> $B$3$N4D6-$G(JCOM$B%]!<%H$+$i%G!<%?$r<h$j9~$`%V%m%0%i%`$r:n$C$F$$$^$9!#(J
> DOS$B$N(JSPEED$B%3%^%s%I$G(J19200Baud$B$K@_Dj$7$F$$$k$K$b4X$o$i$:!"(J
> BASIC$B$GFI$`$H(J1200Baud$B$K$G$7$+FI$`$3$H$,$G$-$^$;$s!#(J
> $B$J$s$H$+$7$F(J19200Baud$B$GFI$`J}K!$O$J$$$G$7$g$&$+(J?

N-88 BASIC(86) version 6.0 $B$N%f!<%6!<%:%^%K%e%"%k$K$O!$(J
$B%\!<%l!<%H$N@_Dj$O!$!V(JSWITCH$B!W%3%^%s%IKt$O%;%C%H%"%C%W%f!<%F%#%j!<(J
$B$G9T$&$H=q$$$F$"$j$^$9!#(J
version 5.0$B$G$bF1$8$3$H$@$m$&$H;W$$$^$9!#(J

$B$J$*!$%;%C%H%"%C%W%f!<%F%#%j%F%#!<$N@_Dj$N9`$K$O!$(J9600$B$^$G$7$+(J
$B=q$$$F$J$+$C$?$N$G!$(J19200$B$OL5M}$+$b$7$l$^$;$s!#(J
$B$^$?!V(JSWITCH$B!W%3%^%s%I$N$[$&$O%a%b%j%9%$%C%A$NFbMF$rJQ99$9$k(J
$B%3%^%s%I$J$N$G%^%K%e%"%k$r$h$/FI$s$G$+$i;n$7$F2<$5$$!#(J

Ryo Kawakami wrote:
> 最近、basicなんて使っていないのですが、メモリスイッチの設定も
> 確認されてみたらいかがでしょう？
> 
> 関係ないかもしれませんが。

ちゃんと19200にしていました。

Shuji Horie wrote:
> もう、followが入っていると思いますが、Basicで、1200Baudも出ればりっぱな
> ものでしょう。速度を優先するなら、Cとか、Delphiに変えたらいいと思います
> よ。Basicは遅いから、そんなものだと思います。

RS232Cでデータを読んでグラフィック表示をしようと考えていたので、
一からCとかで組むのは面倒とN88BASICでやろうと思ったのでした。
しょうがないのでVectorを探してみたらC用のRS232Cライブラリと
グラフィックライブラリがあったので、Cで組んで見ようと思います。

どうもありがとうございました。

P.S.
N88BASICの実行速度ですが、PC9801EX2(286 12M?)でコンパイル後
実行したものよりPC9821Cr13(Pentiam 133M)のインタプリタで実行
したものの方がうんと速かったです。

Senoo Takashi wrote:
> N-88 BASIC(86) version 6.0 のユーザーズマニュアルには，
> ボーレートの設定は，「SWITCH」コマンド又はセットアップユーティリー
> で行うと書いてあります。

「SWITCH」コマンドでやってもだめでした。
ちなみにWindows95 DOS窓の「SWITCH」コマンドには19200までありました。
念のために電源を入れる時に「HELP」を押して出すメニューでやっても
だめでした。

勝間＠東洋紡です.

In article <3530DD83.77AE@imasy.or.jp>, yasuyuki@imasy.or.jp says...
>
>NEC N-88 BASIC(86) version 5.0をWindows95のDOS窓で使っています。
># NECの動作保証が無いのは承知の上なのですが。
>マシンはPC-9821Cr13です。
>この環境でCOMポートからデータを取り込むブログラムを作っています。
>DOSのSPEEDコマンドで19200Baudに設定しているにも関わらず、
>BASICで読むと1200Baudにでしか読むことができません。
>なんとかして19200Baudで読む方法はないでしょうか?
n88basicが，19200baudをサポートしていない可能性があります．
9600baudでの通信が可能かどうかをご確認ください.
可能であれば,n88basicの問題です.
なお，変更方法は，以下の手順で行ってください.
1. Switchコマンドで9600baudにセットする．
　あわせてメモリスイッチの保持(HELP+RESETでの設定でDIP-SW2-5をONにする)もセットします．
　(セット後，電源をきります．リセットスイッチだけでは，うまく動作しないことがあります．)
2. Speedコマンドで9600baudにセットする．
3. N88basicを動作させる．
なお，1200baudになるのは，
BIOSコマンドで，RS-232Cを初期化するとき，通信速度をサポート外の
値に設定すると1200baudになると書かれていますのでここに該当するのでは．
ないかと思います.
(参考文献:PC9800シリーズテクニカルデータブックBIOS編 P.328)


-- 
-----------------------------------------------------------
　東洋紡績(株)　生化学事業部　　　Tel 06-348-3838
　　　　　　　　勝間祥行　　　　　Fax 06-348-3833
---------------------------- E-mail katsuma@kt.toyobo.co.jp

Yasuyuki Mukai wrote:
> なんとかして19200Baudで読む方法はないでしょうか?

メールで
> open文の後にout命令で直接ボーレートジェネレータのタイマー
> （７１０５４相当）を19200bpsに合うように変更して実現しました。
と教えて頂きまして

http://www.webtech.co.jp/undoc/io_tcu.txt
を参考にして無事動きました。

ただ、頻繁に「Illegal function call in 1190」で落ちてしまいます。
コンパイルしても結果は同じでした。
相手がフロー制御しないのでしょうがないかなという感じです。

以下がテストに使ったプログラムです。
10 '    save "get_FOX",a
20 '    renum 1000,1000
1000 'osziFOX Data read
1010 '
1020 D$=SPACE$(255)
1030 ON COM(1) GOSUB *GET.COM.DATA
1040 COM (1) OFF
1050 OPEN "COM1:N71NN" AS #1
1060 OUT &H77,&HBE      ' #2 LSB,MSB mode3 bin
1070 OUT &H75,&H8       ' LSB 19200bps
1080 OUT &H75,&H0       ' MSB
1090 COM(1) ON
1100 '
1110 WHILE 1
1120 WEND
1130 END
1140 '
1150 'Get data
1160 *GET.COM.DATA
1170 COM(1) STOP
1180 DATA.LEN=LOC(#1)
1190 LSET D$=INPUT$(DATA.LEN,#1)
1200 'PRINT DATA.LEN;" ";
1210 'PRINT LEFT$(D$,DATA.LEN);
1220 FOR I=1 TO DATA.LEN
1230   PRINT HEX$(ASC(MID$(D$,I,1)));" ";
1240 NEXT I
1250 COM(1) ON
1260 RETURN