🚀 go-pugleaf

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