FLEX上でのアスキーファイルのやり取りができるツールをリモート側で全て操作できるように、改造中のこと・・・・
ファイル名を通信回線からラインバッファにセットしFCBに渡そうとしたところ、ファイル名をうまく受け取ってくれません。
そこで、仕組みはそのままにINBUFFでキーボードからファイル名を入力してみると正常に動作します。
メモリ内容を直接確認してみると通信回線からラインバッファへのセットはうまくいっている様子。
どうやらファイル名をFCBに渡すためにGETFILを呼ぶ場合、ラインバッファポインタに先頭の文字位置を渡さなければいけないようで、色々調べると原因が見えてきました。
ラインバッファポインタは2バイトあるようですが、メモリ内容を観察してみると
私のFM-7では上位バイトは$C0固定
下位バイトは$80を先頭にデリミタまでの文字数が入っているようです。
通信回線から入力したファイル名はラインバッファの先頭からセットしているので$80で渡してみると動作ok
なぜ$80なのか、上位は$C0固定なのか、色々不明ですがとりあえずやりたいことはできそうです。
恐らく次回も躓くのでちとメモ・・・
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
: LBSR SMENU2 LEAX LINBUF,PCR SENDLP1 LBSR SRIN ;get filename loop ($D=delimitter) CMPA #$1A LBEQ ABORT ;crtl-z fail LBSR SROUT ;echo back CMPA #$0D BEQ SEND0 STA ,X+ BRA SENDLP1 SEND0 LDA #$0D ;file name input complete detect STA ,X LDA #$80 ;line buffer pointer set LEAX LINBFX,PCR STA 1,X LEAX FCB,PCR ;file accesss LBSR GETFIL LBCS ERROR LDA #$1 ;ext=text set STA ,X LBSR SETEXT LBSR FMS LBNE ERROR : |
とりあえず使えるものが完成
端末側からコマンドでアップロード、ダウンロード操作が可能なので使いやすくなったような気はするのですが、使ってみると不満も多い^^;;;
ラインバッファへのバックスペース処理やファイルエラー時の処理、ファイル一覧表示なども欲しいし・・・・
しかし優先順位としてはACIA対応かな^^;;;;
