ファイル転送プログラムの開発 : スタンドアロンBASICシステムからCP/Mシステムへ

第18号B 昭和58年

ファイノレ転送フ。ログラムの開発

一 一 ス タ イ ド ア ロ ン

BASIC

シ ス テ ム か ら

CP/M

シ ス テ ム へ

田

哲 久

Development and Impleme

:

n

t

a

t

i

o

n

o

f

a

FHe Converting

P:

r

og:

r

am

From t

h

e

Stand Alone BASIC System t

o

t

h

e

CP

1M

System

T

e

t

s

u

h

i

s

a

ODA

Two kinds of Disk Operating Systms (DOS) are suppli日dby a computer manufactur巴rto

control a floppy disk system of the personal computεr : One is the stand呂loneDisk BASIC

Language Processing System (stand alone BASIC)， and the other is the C

町

M Disk Oper抗mg

System which Is devξloped by Degital Research Co. Ltd. lndeed， each DOS has respective merits For example， the stand alon日BASICis easy for the beginner to lean its command sets. On thε

other hand， the CP 1M system c旦nhandle sεveral languag巴processingsystems. Even so， the

imcompatibility betw己 目thetwo syst己msis found to be inconvenient for a user due to the fact

th且ta disk file preparξd by on己systemcannot be read by another system， vice versa. This Study

investigated and d肝 邑lopedthe concepts of transfering a file(s) from one to another system and

converting file(s) from one to another DOS in a personal computer atmosphere. This Study presented one program which can convert a file(s) from the stand alone BASIC system to the CP

I

M system. The program is written in the BASIC language， and can be applied to the OKI if-800 personal computer.An Application of the concepts can be easiliy done to any other personal computers 1. (はじめに〕 国産パーソナノレコンピュータには，一般にインタープ リタータイプのBASIC言語処理系が標準塔載されてお り，この処理系を用いて稼動する事を前提条件としてい る場合が多い。特に発売開始時点では， この言語処理系 が，ほとんど唯一のシステム。ソフトウェアである為に， 早期に購入したユーザーは，好むと好まざるとにかかわ らず，この言語処理系の上で応用プログラムを開発し， 又，データを蓄積する事になる。その後， しばらくの期 間を経て，オプションのDOS(一般には

CP/M)

が発売 され，それを購入する事になるが，その場合， DOS購入 以前に作成したプログラム。データ等を利用する上で， ファイノレに互換性の無い事が問題となる。本レポートで は，異機種@異DOSで作成されたディスクaファイノレの 転送対策の概要を論じた後，特定機種上で，標準塔載さ れたBASIC言語処理系から，

CP/M

で読めるファイノレ を作成するプログラムを提示する。 2. (スタンドアロンBASICの特徴〕 従来のコンビュータの通信では，ディスクを作動させ る場合，まずDOSを稼動させ，その管理下て¥何らかの 言語処理系を走らせるのが常であるが，最近のパーソナ ノレコンピュータに標準搭載されたBASICインタープリ タ←は，ディスクを外部記憶装置として使用する場合で も，特別のDOSを必要とする訳ではなく，それし自身の内 部に，簡単なDOS機能を含んで、いる。それ故，自立して いるという意味で，スタンドアロンBASICと呼ばれて いる。その特徴は， (1) 特別のDOSを必要とせず，操作が簡単で，初心者向 きである。

1

1

2

小 田 哲 久

(

2

)

処理言語がBASICに限定され，又，ハードウェアー も特定されるので，内蔵EDITORの仕様を特殊化し， 色々と便利な機能を持たせる事ができる。特にCRT 上でのスクリーン・エディット機能は，初心者には大 変に便利である。 (3) インタープリターなので，デバッグがしやすし、。特 に，エラー発生時に各変数の値を表示してくれたり， 現在実行中の行番号をトレースしてくれる機能は便利 である。 (4) 特定ハードウェアを前提として設計されている為， 特殊キーの利用，グラフィック機能の利用をはじめ， オーディオカセット，AD/DAコンバータ等，各種入出 力装置の有劾利用が可能かっ容易である。 といった所で、あろう。これらの長所の現れるゆえんは，

DOS. EDITOR

・

LANGUAGE.PROCESSOR.

DEBUGGERの四者が一体化され，特定ハードウェア専 用に設計・製作されている事にあろう。この様に， DOS をも内包してしまった言語処理系というのは，一見，原 始的に見えて，その実， I操作が容易」とし、う本質的に重 要な要素を含んでおり，未来的ともいえる。例えば，近 年とみに評価の高まって来たFORTH処理系川主，元来， DOS機能の内包を指向した言語系である。 一方，スタンドアロンBASICの欠点を列挙すると， (1) DOS機能が極めて貧弱であり，ファイノレ転送命令す ら無い場合がほとんどである。この為， ファイノレの編 集@保守が困難である。 (2) DOS機能の機種依存性が高く，特定機種上で作成し たファイノレの入ったフロッピーディスクを他機種のス タンドアロンBASICのディスク装置にかけても，デ ィスクへの書式が異なる為，読みとれないのが普通で ある。 (3) インタープリタ一言語である為，コンパイラ言語に 比べて処理速度が遅く，科学技術計算等，高速演算を 必要とするJOBに対しては，不適切である。 といった所で、あろう。 3. (CP/Mの特徴〕 CP/Mは， 80系CPU(インテノレ8080，同8085，ザイロ グZ80)をメインCPUとする，小型コンビュータシステ ムの為の汎用DOSで，米国製のほとんどのパーソナノレ コンビュータに，オプション又は標準で培載され，今や 国際規格に近いものとなって来た。米国デジタノレ・リサ ーチ社の商品であるが，最近， 日本製のパーソナノレ・コ ンビュータにも塔載され始めている。 CP/Mの下で開発 されたソフトウェアは，同じく CP/MをDOSに採用し ているシステムでありさえすれば，たとえ機種(ハード ウェア〉が異っていても，特別の変更なしに動作させる 事ができる訳で，現に，各種CPUの為のアツセンフラー

や， BASIC， FORTRAN， COBOL， PASCAL， PL/I

等々，高級言語のコンパイラーは無論の事， ワードプロ セツサー，データーベース等，各種のアプリケーション プログラムも，豊富に商品化されている。ユーザー側か ら見た場合， CP/Mの最大の魅力は，充実したソフトウ ェア群を，比較的安価に入手で、きるという点だが，一方， メーカー側から見たメリットは，各種ソフトウェア(特 に言語処理系〕を，わざわざ製作する必要が無いという 点に尽きょう。 CP/Mは本来，開発支援システム用の DOSとして使う事を想定して組み立てられたもので，小 さな機能しか備えていないし，占有メモリを極力小さく 抑える為に処理速度を犠牲にしている面もあるが?シン グノレユーザ-.シングノレタスクを前提としたパーソナノレ コンビュータにとっては，最適とはいえないにしても， 必要充分な機能を有しているといえよう。 4. (ディスク・ファイルの互換性〕 現在，パーソナノレ・コンビュータ用のスタンドアロン BASIC言語処理系は，ほとんどが，米国マイクロソフト 社の手で開発されており，そうでない場合(例えばシャ ープ

MZ

シリーズパーソナノレコンピュータ〉でも，マイ クロソフト社のBASIC言語仕様と類似の仕様を採用し ている。この結果， ソースプログラムレベルでいえば， かなりのコンパチビリティーが生れ，特定機種上で開発 したBASICプログラムは，特殊な，その機種独得の命令 を使わないように注意すれば，他の機種へ，極めてわず かな変更で，時には一切の変更なしに，移殖して動作さ せる事が可能となっている2)。しかし，同じマイクロソフ ト社製スタンドアロンBASICといっても，機種ごとに ディスクの書式は異なる為，プログラムの書き込まれた ディスクを別の機種で直接読みとる事ができず，プログ ラムの移殖は，キーボードからの再入力という手段によ るのがふつうである。しかし，この再入力作業は非常に 不能率であるし，又，パグの発生する恐れも多分にある。 さらに，大量データの再入力は，もはやほとんど不可能 といえるほどの大変な作業となる。 このような，ディスク書式の相違による， ファイノレの 互換性の無さは，①異機種のスタンドアロンBASIC言 語処理系どおしの問に於いてのみならず，②異機種の CP/Mどおしの間でも同様であり，又，③同一機種上で のDOSの相違，すなわち，スタンドアロンBASIC言語 処理系と， CP/Mとの間でも同様である。

5 . (ファイル転送の対策〕 異機種・あるいは異なるDOSの聞で，プログラムやデ ーターのファイノレを転送する手段としては，両機種を回 線で結び，く送り出し→受取り〉の規格を同一にして送る のが一般的である3)倒。現在のノミーソナノレコンビュータ では，この目的の為に， RS-232-Cインターフェースを， オプション又は標準装備として用意している機種が多い が，これをCP/Mがサポートしていない場合もあり，文， 余り遠くまで送れないという難点もある。 そこで，別の方法として，オーディオカセットテープ あるいはフロッピーディスクによる，オフライン転送と いう手段が考えられるわけであるが，このうち，オーデ ィオカセットテープについては，物理的な書き込み方式 が各社まちまちであり，又，ほとんどの場合， CP/Mが これをサポー卜していないので，上記目的の為の転送メ ディアとしては不適当である。 方，フロッピーディス クについては，現在のパーソナノレoコンビュータの多く が5)<4インチサイズの， ソフトセタータイプのものを採 用しており，両国か片面か，あるいは単密度か倍密度か， といった違いはあるにせよ，オ ディオカセットより有 利な条件にある。物理的な記録方式が違う場合には，適 切な手段はないが，幸いにも，国産パーソナノレコンビュ ータの場合，記録方式に違いはなく， ソフト的な工夫を すれば，転送が可能である。 転送上の問題点は既述した通り，ディスク書式の相違 であるが，この事は，逆にいえば，⑧受け取り側の書式 にあわせて，ディスクへファイノレを書き込むか，⑧送り 出し個lの書式で受け手が読み取れば，転送が可能となる。 この，告渇以外の対策として，岡村速夫氏的7)のTRディ スク構想がある。これは，⑥特定機種あるいは特定DOS と関係のない独得の，しかし，取り扱いの容易なファイ ノレ書式を設定して， 自由にファイノレを交換しようとする ものである。さらに，@と⑧の複合形ともいうべき方式 として，野上道男氏周の「完全共用ディスク

J

方式がある。 これは，異機種のファイノレ書式が極めて類似しているに もかかわらず，ディレクトリの位置が異っている場合， 受け手の規約に従ったディレクトリ情報を作成し，これ をl個のファイノレとして，受け手のDOSのディレクト リ用の位置に書き込むもので，やや特殊なケースでしか 採用できないとし、う制約はあるものの，大変興味深い方 法である。

6

.

(CP/Mファイルの書式変換〕 異機種CP/Mで作製された5)<4インチディスタファ イノレを読もうとするとき， ①全く変更なしに読める場合。 ②わずかな変更(例えはトラックをずらすだけ)で読 める場合。 ③大巾な書きかえをしないと全く読めない場合。 の3つのケースが考えられる。①のケースは，例えば， 富士通MICRO-8と， NEC， PC-8801 (両面倍密度ディ スクドライフ使用)，シャープMZ-80Bの場合がそれで あり，②は，これら3機種と，

i

中if-800/20の場合てある。 ③は， NEC， PC-8001 (片面倍密度ディスクドライフ使 用〉と，沖if-800/20あるいは他の両面倍密度採用機種の 場合がそれに当る。小田が以前発表したプログラムベ及 び，竹迫一雄氏がこれと独立に開発・発表されたプログ ラムが川11)が，いずれもこのケースのファイノレ書式変換 を中心とした理由はここにあり，その変更上の困難さは， ひとえに，ディレクトリの管理するデーターブロックの サイスの相違によるものである。 7. (スタンドアロン型BASICによるファイルを， CP/Mファイルに書式変換して転送する方法〕 スタンドアロンBASIC言語処理系によって作成され たディスク・ファイノレを， CP/Mファイノレへ書式変更す るプログラムは， NEC， PC-8001用については，既に今 泉 修氏によって発表されている12)。氏の方法は，CP/M 〔受け手)のディスクドライブ上で， N-BASIC(送り手〉 の書式で作成されたファイノレを読み取り，

S

I

J

ドライブへ 転送して， CP/Mで読める書式のファイノレを作成しよう というものである。氏のプログラムはアセンブラで記述 されており，正統的であるが，他機種で実現するには， その機種独自の，スタンドアロンBASICによるファイ ノレの書式を調査する必要があり，又，各CP/MのBIOS の構造に依存する部分もあるので，移殖が容易とはし、し、 難い面がある。そこで，本報では， if-800model 20上で， スタンドアロンBASICからCP/Mへのファイノレ転送 を，スタンドアロンBASIC上で実行する事にした。その 方式は，前述した，転送対策の分類でいえば⑧に当る。 当然の事ながら，言語もスタンドアロンBASICで書か れているので，他機種への移殖も容易である。 8. (転送フ。ログラムの使用方法と機能〕 本プログラムの使用は極めて簡単であり，次の手順に 従って行なえば，会話式で実行される。 手順1. BASICインタープリターを起動させる。 手順2.転送プログラムをLOADする。 手順3.非1ドライブには，スタンドアロンBASICで 作られたプログラムやデーターのファイノレが言己 録されたディスクを挿入する。又，

#

2ドライブ

114 小 田 哲 久 には，アドレス・フオ マツティングずみで， 何も記録されていないディスクを挿入する。 手順4.手 順3に間違いの無い事を確認したら，RUN する。 手IJ頂

5

.

自動的に，#

1

ドライフポに挿入されているディ スクの全ファイノレ名と空白領域のサイズが画面 に表示され， PLEASE INPUT FILE NAME とし、う表示が行なわれるので，転送したいファ イノレの名前をキーインし， RETURNキ を押 す。名前をキ インせずに，RETURNキーのみ を押せば，実行終了となる。 手順6.キーインされたファイノレ名は，ただちに， プ リンター上に出力される。

手11演7. DATA or BASIC or OTHER LANGUAGE

.D or B or

0

と画面表示されるので，該 当するキーを押し， RETURNキーを押す。 手 順8.手 順7でキーインされた文字がDの場合は， ファイノレの型はDATとなり， Bの場合はBAS となる。 Oの場合， BASICの文番号が消されて 転送されるが， この場合に限り FILE TYPE

ASM or FOR or P AS orPLIと表示され，該

当言用語の3文字のファイノレの型名をキーイン するよう要求される。 手IJ領9 以上の手順が完了すると，転送が開始され，

#

1ドライブ上の該当ファイノレの中身が画面表 示されつつ，再2ドライブ上に， CP/Mで読める 形に記録されてゆく。ただし， ファイノレの型名 が

D

(すなわちデータ〕以外の場合は，一旦，

#

1ドライブ上の空白領域へ， CP/Mのエディ ターで読み書きできる書式に変換して記録し これが再度再2ドライブへ転送される。この手11債 はすべて自動的に行なわれるので，使用上，特 別な操作を必要とするわけでは無いが，#1ドラ イフ中のディスクの空白領域が充分にないと， エラー表示される。このパッファ領域は反復使 用されるので，転送したいプログラムファイノレ のサイズよりも大きい程度で充分である。 手11頂10.該当ファイノレの転送が完了すると手11頂5へも どる。 手 順11.手11原5でRETURNキーのみが押されると， 非2ドライブ上へ， CP/M用 の デ ィ レ ク ト リ 情 報が書き込まれるが，この情報は，ディスクへ の書き込みに先だって，プリンタ 上へ印刷さ れる。そしてすべての作業が完了した後，画面 上 へJOBENDと表示され，実行終了を知らせ る。この時，非2ドライブ上には， CP/Mで読め る形のファイノレが完成している。 9 _ (他機種で実行する場合の修正点と制約〕 本報で呈示したプログラムは，アノレコリズムは単純な ので? ソ←スリストを読むだけで内容が把握できょう。 他機種上で実行される場合， 78行目から80行自の式に含 まれる3という数値を，その機種のCP/Mのシステム用 リザ ブトラック数に直していただきたい。その他の修 正点としては， 18行自の1000という数値を，その機種の CP/Mで利用可能な，ディスク 枚当りの最大レコード 数に変更する事であるが，これは特に変更を加えなくて も，一応動作するはずである。本プログラムは，現在? 両面倍密度ミニフロツピーディスクを使う場合の主流と なっている，256バイト/セクター，16セクター/トラック， 2 KB/ブ ロ ッ ク を 前 提 と し て い る 。 た だ し ト ラ ッ ク 数 はiHOOでは35トラックであるが， この数には若干の融 通性がある。 10. (結び〕 今回呈示したプログラムは，当初の目的どおりに動作 し，処理速度も使用上充分であった。しかし，本来この 種 の 機 能 は メ ー カ ー サ イ ド で 用 意 す べ き も の で あ る の に，それがなされていない事は，大きな問題で、ある。パ ーソナノレ・コンビュ タ市場は今後一層の拡大をするに 違いないが， これまでの様な，ユーザーのソフト開発能 力に依存した政策は，早晩変更をせまられる事であろう。 現在， 16ビットマシンの開発E発表があいついで行なわ れているが， この機会に，ディスクの書式が統ーされる 事を願うものである。 参考文献 1 ) 井 上 外 志 雄 拡 張 性 の あ る 言 語FORTH，bit， 13 (14)， 20-23， 1981 2 )土井政則 ノぐーソナノレコンビュータのBASIC徹底 比較 前編， ASCII， 6 (3)， 186-200， 1982 3)有 津 博 マイコンの新しい使い方ー←ベーシック マスター。レベノレ3による汎用インテリジェント端 末の製作 ， bit， 14 (2)， 7-18， 1982

4) KEY LAB中之島 MICRO-8 ~ PC-8001ノミーソ

ナノレコンピュータ聞のファイノレ転送 RS232Cイ ンターフェ スで異機種を直結，マイコン，5(6)，187 192. 1982 5) KMC PLANET Project Team コンビュータ@ネ ツトワ←!l， ASCII， 5(7)， 82-107， 1981.

6

)

岡村迫夫:異機種コンピュータでデータやプログラ ムを読むための，転送用ディスク@フォーマットと

その用法， Interface， 8 (8)， 231-239， 1982 7)岡村迫夫:super BASIC， 77・85，CQ出版社，東京， 1982. 8)野上道男:PC/FM 完全共用ディスタの作成，1/0， 7 (7)， 345-353， 1982. 9)小田哲久 PC~8001用 CP/M → if800用 CP/M フ ァイノレ書式変換プログラム， Interface， 8 (7)， 242 -249， 1982. 10)竹迫一雄・マイクロ eコンビュータ フロッピーデ イスターオベレーティングシステムCP/Mホのファ イノレ構造の機種による相違および異機種間ファイノレ 変換プログラム，福岡大学理学集報， 12(2)， 71・82， 1982 11)竹 迫 一 雄 CP/Mファイノレの構造と異機種聞の相 互変換プログラム=PC，MZ， IF， FM=In，terface，百 (1)， 203-212， 1983. 12)今泉 修 N ~ BASIC to CP /Mファイノレ転送プロ グラム， Interface， 8 (12)， 284-288， 1983

13)沖電気 if~800 model 20OKI~BASIC 文法解説書，

1980. 14)沖電気:if~800 標準C

町

M 解説書， 1980. 15) 沖電気 if~800 if~CP /M ユ ー ザ ー ズ マ ニ ュ ア ノレ， 東京， 1980 16) Rodnay Zaks :標準CP/Mハンドフック，アスキ ー出版社，東京， 1981. 17)石 田 芳 CP/Mの使い方，産報出版社，東京， 1981 ( 受 理 昭 和58年1月16日)

116 小 田 哲 久 付 録 プ ロ グ ラ ム ・ リ ス ト

i '

8

白

5!C F1LE

→

C

P

/

f

1

F

I

LE

2 ' (DRHIE i

)

→

(

!

)

R

1

り

E 2

)

マ F

4 OPTION 8

白

SE 1

:

F

白

L5E=0:TRUE=-1

5 DEFINT I-N

6 ON ERROR 60TO 163

7 D

1

I

1

X

1

事

(

8

)

，

X2

宰〈昌〉

8 DIM F8i

事(品

4

)

，

F82

宰t己

4

)

，

FC%(64)

，

F

!

)

之〈己

4

)

，

FE

た

(64

，

16) :

'

directo

r-':

j

-

i

f

i

干

or'mations

9 D

I

刊 白 宰

(8)

，

8

1

宰〈呂)，

82

宰

(8)

，

c

宰〈呂)，

D2

宰(

8

)

，

.

e

宰〈自)，

E

宰

(8

，

1

ι

〉

10 FOR 1

=

1

TO 8:K=(I-l)*32

1

1

FIELD

#白，

K

白

S D

1

宰，

1

1=1

5 A

宰(1)，

8 A

S

8

1

宰

(n

，

3 R5 8

2

圭(!) ，

1

向

sc

宰(1)，

2

P.

5

D2

宰

;

:1

)

，

1 A5 D

事(I)

12

FOR J=1 TO 16:L=K+J+15

13

FIELD #0

，

L RS D

3

事，

1 A5 E

事(I，J)

1

4

~lEXT

J

15 NEXT 1

16 FIELD #0

，

128 RS CP

何

8Fl

宰，

128

白

5 CP

阿

8F2

事

17

FIEL

f>幹

1

，

128

白

S 2

1

事，

128 AS Z2

宰

18 N=1000

:'m

昌

ximum record siz

呈

i

ヲ

CLN%=2

20

何何

=

1

2

1

1

.

1

=

1

22 UN%=0

:'USER N

U

刊

8ER

23

DR8SC~:=

1

24 DRCP

例記

=2

e 4 b 矛 日 一

N

a

q

D

-z

i

﹄ n T B

F

E

S

E

-L

2

+

﹁ ﹁ ι L E m 刷

. ，

Z

1

a

u

u

r

1 、 + ヨ - L

、 ，

O T & 品 目

r

l

﹂ " マ

JnF

円 ﹁ ・ 2 U 門 e s ・ ' や 匂 O U M 円 E Z F 黒 山 口

+

l

h

c

q

J

E

‘

L f

唱

E I

円

v

-ヲ う ﹄

u

c

-P

H

円

2

5

nucduE

﹂ 口 門 口

H

-; 時 ぜ

z

n

u

n

r

T

I

MFuezu

﹀ 了 。 む

F

U

N

-U

F

n

u

-︿

E

﹄ 一

N

u

-b

c

攻 守 肘

H

C

﹄ 弘 ， Z H n

a

R

Q

f

H

R

E

H

H

H

E

M

﹀

.

4

0

H

r

C

O

T

-r

F

丁 目

z

E

J

t

E

傘 噌

1

﹄ " ・ 宰 -干

F

F

h

M

H

1

1

Z

口

U

﹀ 邑 ! ﹃

F

‘

T

a

b

d

n

p

u

i

﹄

3 r

r

F

U

M

E

t

a

円

T

F

L

E

﹄

n

k

T

b

t

a

r

c

﹄

CJ--D

ぜ

E S

。

T

R

T

B

白

L

E

p

k

z

N

P

E

R

I

﹄

E

S 事

I

z

N

切 り

z

U

T

i

H

R

4

・ 白

d

S

F

U

-F

U

l

﹄

D

S

1

h

a

M

円 岳 町

V

M

け

n

-u

F

L

I

﹀ 邑

E

白

p

f

・

u n

-F

e

ず ﹁ 凸

u

l

h

H

c

・ 正 、

T

H

E

M

け

1

日

T

I

D

N

E

U

L

白

U

R

-一

N

D

I

H

5

F

a

S

E

肘 刊 邑

R

N

p

n

n

円 。 ﹀ 一 一

N

H

7

5

1

q

d

Q

P

H

S

︿

T E

白

T

P

H

白

i

胴 む ﹀

:

2

3

'

M

門

1

﹄円

u

n

u

R

8

E ‘

t

&

A

守 、 ，

j

E

i

-u

u

"

-b

N

EJ.1

﹄ 量 叫 〆 丸

n

k

n

w

h

F

-=

n

E

J

t

-C

T

， . 事

P

E

G

-事 事

T

U

=

︿

C

J

F

'

P

E

-u

H

P

6

0

4

H

U

C

J

M

M

m

J

S

E

E

N

T

P

U

T

T

P

O

H

epnTf

円

u

z

l

F

﹄ 円

M

す

i

1

﹄

1 5

﹄

U

円

- u u

・

t

r

、 .

m

P

U

L

-︿ ，

H

E

-F

r

a

-a

，

t

p

c

T

F

Q

N

I

D

D

2

n

F

H

E

D

G

E

N

N

N

E

普

N

N

+

L H B

帽

i

u

門

MHM

門 化

4

E

﹄

F

﹄官﹄

U H

岨

H

-H

J

・

-5

E

R

n

H

N

c

r

H

H

H

T

5

2

1

P

E

H

H

L

I

o

T

T

T

-H

3

6

﹀

5

1

=

c

J

T

I

・

、

，

F

r

c

J

“

U

円 門 口

T

J

1

︹︼

F

Z

E

'

H

E

4

2

R

Q

u

u

"

。 事 ︿ ︿

'

1

恥 日

E

C

J

E

H

L

・

b

﹀

S

T

P

E

D

U

N

-1

1

+

:

t

F

E

L

L

M

I

-1

白

"

"

"

、

/

L

J

︿ 韓

1

3

た

i

x

u

f

-L

n

門

p

'

z

F

I

︿

Fbz=z

・

t

F

ト

T

・

+TZ+

eE

白

F"

事

f

I

事

1

8

0

u

害 事 事 事

n k

︿ 官 ﹄ 丁 目

J

Z

5

1

n

z

z

t

z

H

ハ

-K

+

4

A

E

-n

u

円

unumunνl

﹄ 四 ヒ

=

τ

d

-L

Z

5

2

L

T

L

E

E

-E

z

・

- 4

・

H

T

B

E

B

B

E

g

-S

J

T

R

H

I

L

t

c

﹄

1

﹄

s

L

H

U

F

F

-E

i

﹂

=

n

u

c

t

白

u a

M L

J

・ ロ む ? i ﹄

T

'

H

u

n

v

n

v

n

u

n

v

u

円

t

﹄

=

H

円

E

L

F

-u

p

h

1

1

1

N

=

z

T

2

5

白

P

E

I

-M

9

1

D

F

H

F

c

=

H

E

F

I

J

X

L

C

D

N

F

F

F

F

P

=

H

'FEb--'TAMU-'IJ-KLR''ITAIl--U1u

5

・

b78qt812345

司

b78qdB1234zd-b78qdG1234567S

ヲ

8

2

う で 己

2

う ふ マ ω マ

J

V

T

J

V

3

3

3

マ 占 マ

J

V

3

3

A

守

4

4

・

4444444555E35

汽 w ﹃

v

Z

J

5

5

・

b

D or 8 or 0";D80

宰

:

'

i

n

l

:

:

r

.

i

m

告

nt r

'

e

c

o

r

r.Jnl.

J

m

b

昌p

:'total record number

ι1 X 1宰(!) =Z 1宰

ι2 X2宰(1)=22事

63 WEtlD

64 ' LPRIN 丁 目TR向HSFEF:. :REC.tW. “;.J -1 ;“ TO ";J-1

65 IF 1(>13 THEN GOSUB 77:'write D尚T白 千or. CPd~

ιιWEN[' 67 CLOSE #1

68 IF DBO宰<>"D" THEtl KILL BUFF事

69 IF <T J<=~l)向 ~W (MM<=64) THEtl GOTO 25 713 1 F (内問〉ι4) THnl PRHiT “ホホL'i rec tor.':J F.llllホホ“

71 IF O J H D THE'il PRItlT “ホ*Disk 倒量的or当 Over.千1("))本*=11

72 PRHH

“

Trans千er error : ( File :;FLtl事;11 > 11

73白05UB 114

74 PRINT "JOB R8NOR円向L Et.n' " 75 Ei'H) 76'mainpro宮r.r'昌 町 邑nd. 77 'sl~b :凹 r.i t 邑 d.~ta 千 or. CP/t1 78 NT=!NT(CLN%/4)+3 7 ヲ 5D;~=IN T((CL'il之-4本

O

iT-3))./2) 813 N5=(CU1%-4ホ(NT-3)-2本5[';-;;.守~8 81 K=o 82 ' LF'RHH "CUi%“;CU~% ， "5[:-" ; 5[:';~ ， 11'iH"; t.H， "N5“; t.lS 83 ~JHI LE K<

1

84 K=K+l 85 PRINT Xl宰(K); X2宰(K); 86 N5=H5+1 87 L5ET CPM8Fl$=日1宰(K;' 88 LSET CPM8F2事=X2事(l<) Sヲ D5KO宰 DRCP円た，5L);~ ， ~n ， 'ilS 雪o WEND 91 G05IJB雪4 ヲ2 CLN%=CLN%+l ヲ3 RETURN

94 'sub :'prepare DIRECTORY-INFORMRTIONS 干口r. CP/門

ヲ5 LL=LL+l

ヲ6 II=II+l

ヲ7 FE%(何門， LL)=CLN%

ヲ8 IF <IIく8) 向ND (NOT EDFL) THEN RETURN

99 II=O loO JJ=JJ+l

: '的色町iorY CLUSTER NUM8ER

1 o 1 EXTえ=E

.

r

:T%+1 :' in

.

c

r.iment E父TEtH HIJMBER

1132 IF (JJ(2) AND (NOT EDFL) THEN RETURN

1133 IF JJ=2 THEN RC5Z%=RC5Z%-128 1134 F81$ U1M) =FL tl宰 1135 F82宰〈円円)=FLTP$ 1136 FC%(M刊)=EXT% 1137 FD記(M円)=RC5Z之 1138 11=自 10予 J.1=自 110 LL=白 111 刊刊=刊刊+1 112罰CSZ%=0 113 RETURN

114 'sub : l>>r.ite director日 千or CP/M

115 FOR 1=1 TO 門川-1

: '宝tore FILE N向何E

:'store FILE TYPE : 'stor.邑 EXTENT'iW門BER : ' stor.告 RECOR[:' SIZE

116 LPRltH “FILE : ";F81幸(I);".";FB2宰(I)，“ EXT ";FO;(I)， "REC ";FD%<I)

117 FOR .1=1 TO 16 118 LPRINT FEχ<I，J); 119 NEXT J : LPRINT 1213 NEXT 1 121 ' 1 -';'1)

，

RET UR'il 123 E5宰=CHR宰〈畠HE5) 124 E5H2宰=STRH1G宰(8:H2

，

E5宰〉 125 E5H3宰=STRIt-iG宰t長H3

，

E5宰〉

118

126 E5H8宰=5TR I!-H:;宰(ιH:，EE5事〉

127 E5HE:0事=5TRING宰(2::Hf:01E5宰J

128 8L2宰=5TRING宰(2，CHR宰(0 ) ) 129 UHC宰=CHR宰(Lit.j}; ) 13白 I= 1 131 L= 1 132 WHILE I=((INT((何円-1)/8)+1) 133 FOR J=1 TO 8 小 田 哲 久

134 IF Lく内問 THE~j 1305U8 141 ELSE 1305U8 152 135 L=L+l 136 HEXT.] 137 D5K口事 DRCPW~ ， 0 ， 3 ， 1 138 I=I+l 13ヲb.IDW 140 RETUR~l

141 'SLlb : c昌Z量 L .<門ト1 :write No.L dir邑ctor.Y

142 L5ET 白宰(.J)=UfiC宰 i 43 L5ET 81宰(J)=FE:l車(L) 144 L5ET 82宰(J)=FE:2宰(L) 145 LSET C宰(J)=CHF':宰(FC%(L)) 146 L5ET D2宰(J)=8L2章 147 LSET 1)幸(J) =CH F':宰 (FD~;( し、 J 148 FOR K=l TO 16 14ヲ L5ET E宰<:J

，

K)=CHR宰(FE}-;(L

，

K)) 150 ~jD:T K 151 RETUR~j

152 'sub : case L>=門付 : ~If. 1七e E5 153 LSET 白宰ピJ:o=E5事

154 L5ET 81事(J)::E5Ht:宰 155 L5ET B2幸

cn

=E5H3宰 15ιL5ET C宰(J)=E5事 157 L5ET D2宰(J)=E5H2宰 158 L5ET D宰イ，J)=E5事 15ヲ FOR K=l TO 1ι 160 L5ET E宰<:._T・t():::E5宰 1己1 NE十:T K 162 RETUR~l 163 ' sub : 邑r.r.or. pr.oc告書sln9

1己4 IF ERR=53 THEN P股INT "HO Fi le":RESU円E 2ヲ

165 IF EF.:R O己1THE~j PF.:I~n 刊 ERROR CODE = ";EF.'R

，

"ERF.:.LIHE ";ERL:EN[' 1品品 PR

I

t

H "INPUT P向5T END CONI)ITION"

1己7 EDFL=TRUE 168 RE5U刊E 63

169 'sub :宣 ave 8白5IC 忠 OTHER LHNG

L

l

HI3E 170 CRLF事=CHR宰〈忠H[))+C HF.:宰t忌HA)

171 BUFF事=CHR宰([)R8SC:~+ 息 H30) + " : fI+“8UFF-CP門"

1 72 OPE~j DRFUl宰 FOR HlPUT 白5晶1

173 IF LOF(l))=BUFR%中8 THEH CL05E持1:PR 1 NT "[:0i sk F ，-~"[ ¥": [¥FULL=TRUE: RETURト1

174 OPHI BUFF事 FOR OUTPUT RS韓2

175 ~JHILE (NOT EOF(1))

17品 LHJE INPUT韓i

，

SORCE宰

177 IF 1)80宰=110

“

THEN IXSP%=IN5TR(SOF.'CE事，" 1I):SuRCE宰=RIGHT宰(50RC'o宰，L

E

t

i

(50買C主宰)-IXSP之〉 178 PRINT 12

，

50RCE宰;CRLF事; 179 i..JENI) 180 CLOSE 韓1，普2 181 DRFUI宰=BUFF宰 182 RETUR~I 183 '