復活！ＣＰ／Ｍ ワンボードマイコンでＣＰ／Ｍを！
ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！
［第４３３回］
●ＰＬ／ＩのＬＩＮＫでエラー（２）
前回からの続きです。
ＣＯＢＯＬに引き続いてＰＬ／ＩでもファイルＯＰＥＮでこけてしまいました。
互換性を実現するというのはなかなかに難しいものです。
ＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）はＣＰ／Ｍについて書かれた参考書などをもとにしましてプログラムを書いたものなのですが、説明書などには書かれていないような細かいところまではわからないので、こういうことがでてきてしまいます。
なんだ。
オリジナルのＣＰ／Ｍを解析したんじゃないのか。
と疑問に思われるかもしれません。
ええ。
オリジナルのＣＰ／Ｍのソースリストは［第１７回］に書きましたように、ダウンロードさせていただいております。
ですけれど、どうしても不明なところはちょいと参考にはさせていただきましたけれど、ほとんど解析などはしておりません。
互換プログラムなどを書こうとする場合には、オリジナルのプログラムを逆アセンブルなどして解析するのが常道ではないかと思われるかもしれませんが、それは労多くして功少ない方法だと思います。
一体何がしんどいと言いましても他人が書いたプログラムを解読するということくらいしんどいものはありませぬ。
もうほとんど拷問ですな。
ですので、やりたくはありませんです。
入力がこうで、出力がこう、というように、インプットとアウトプットが決まっていて、その間のプロセスを記述するのがプログラムでありますから、それができなきゃあプログラマとはいえませんでしょう。
他人の書いたプログラムを解析するより、はなから自前でプログラムを書いたほうがなんぼ楽かわかりません。
そのかわり、約束事として表に出てきていないような微妙な仕様が使われるところでは、とたんにこけてしまうことになります。
ま、しかし。
そうやってこけたところをひとつひとつつぶしていくことによって、少しずつ完全な互換に近づいていくことになります。
このところのＨ様、Ｎ様のご協力によりまして、かなりオリジナルに近い互換性が実現できたと思っております。
これひとえに両氏のご協力のたまものと、心より感謝いたしております。
今後とも引き続きご協力のほどをお願い申し上げます。
さて、それで。
前回の続きなのですが。
Ｈ様のデバッグによりまして、ＰＬＩＬＩＢ．ＩＲＬをファイルＯＰＥＮしようとしたところでこけていることがわかりました。
ファイルＯＰＥＮのファンクションコール（ファンクション０Ｆ）は、ＦＣＢ（ここではアドレス００５ＣＨ～）にファイル名を書いてコールするのですが、そのＦＣＢではエクステント（拡張№。ＦＣＢの先頭から１３バイト目）に０１が書かれているのです。
ここは本来は００でなければならないはずなので、それでＺＢ３ＤＯＳではエラーにしてしまったのです。
ＣＰ／Ｍのディレクトリについておさらいです。
ディスクにファイルをセーブするときには、まずディレクトリにそのファイル名を登録します。
ディレクトリは目次のようなもので３２バイトずつに区切られています。
メモリ内に置かれるＦＣＢとレイアウトはよく似ていますが、異なっているところもあります。
先頭の１バイトはメモリ内に置かれるＦＣＢではドライブ№を示しますがディレクトリではファイルの存在を示す場所として使われ、そこには００が書かれます。
未使用であったり、消去された場合には先頭の１バイトは非００（Ｅ５）になります。
次の８バイトがファイル名で、次に３バイトの拡張子が続きます。
その次の１バイトがエクステント（拡張№）です。
それではそのエクステントとはなんだ？
ということについて説明をしなければなりません。
３２バイトの後半１６バイトはブロックアローケーションエリアです。
ＣＰ／Ｍではセクタをまとめたものとしてブロックという概念を使います。
ハードに依存しない論理的なものですが、ハードと一致すればトラックと考えてもいいと思います。
ＺＢ３ＤＯＳのシステムでは、１セクタが１２８バイトで１トラック＝１ブロックは１６セクタ（２０４８バイト）です。
ＺＢ３ＤＯＳの仮想ＦＤＤは先頭から№０ブロック、№１ブロック、…と順にブロック№をつけて、そのブロック№ごとに管理を
しています。
ファイルのデータはセクタに書き込まれますが、そのときには１ブロックが丸ごと空いているブロックをみつけて、そこの１６個のセクタに順にデータを書き込んでいきます。
たとえ１セクタしか使わなくて書き込みを完了した場合でもそのブロックは使用済みになります。
ファイルを保存する場合には、ディスクのデータ領域の先頭から空いているブロック（２０４８バイト）をさがしながらセクタ単位でデータがディスクに記録されていき、同時にディレクトリ内のＦＣＢの後半１６バイトのブロックアローケーションエリアに、データを書き込んだブロックの位置を示す２バイトのブロック№が記入されます。
１６バイトですから、８個のブロック№を記入すると、枠がいっぱいになってしまいます。
ということは、そのルールでディスクに書き込めるデータは最大で２０４８×８＝１６ＫＢです。
それでは１６ＫＢを越えるファイルを作成するにはどうしたらよいでしょうか？
そこで登場するのがエクステントです。
データを１６ＫＢ書き込んで、枠がいっぱいになってしまうと、同じファイル名の３２バイトのエリアがディレクトリ内にもうひとつ作成されます。
これでもう１６ＫＢ分のデータ保存が可能になります。
ただそれだけでは、ディレクトリ内に同じファイル名のＦＣＢが２つ存在することになりますから、あとから作成したＦＣＢのエクステントは０１にして、最初のＦＣＢとは区別します。
このように、ディレクトリに最初に作られるＦＣＢのエクステントは００で、次に作られる同じファイル名のＦＣＢのエクステントは０１、その次には０２…というように、エクステント№を順につけることで、大きな容量のファイルでも、その記録した順序の通りにデータを読み出すことができます。
実はＨ様がデバッグのために表示させたメモリダンプでそのことを確認することができます。
下は前回お見せしたログファイルの一部です。
>DM@0050,00FF 0050 0C A8 AE EA 08 E8 77 75-02 85 AA 2A 00 50 4C 49 .ｨｮ...wu..ｪ*.PLI 0060 4C 49 42 20 20 49 52 4C-01 00 00 80 3E 00 3F 00 LIB IRL....>.?. 0070 40 00 41 00 42 00 43 00-44 00 45 00 18 35 F7 00 @.A.B.C.D.E..5.. 0080 00 50 4C 49 4C 49 42 20-20 49 52 4C 00 00 00 80 .PLILIB IRL.... 0090 3E 00 3F 00 40 00 41 00-42 00 43 00 44 00 45 00 >.?.@.A.B.C.D.E. 00A0 00 50 4C 49 4C 49 42 20-20 49 52 4C 01 00 00 80 .PLILIB IRL.... 00B0 46 00 47 00 48 00 49 00-4A 00 4B 00 4C 00 4D 00 F.G.H.I.J.K.L.M. 00C0 00 50 4C 49 4C 49 42 20-20 49 52 4C 02 00 00 5C .PLILIB IRL...\ 00D0 4E 00 4F 00 50 00 51 00-52 00 53 00 00 00 00 00 N.O.P.Q.R.S..... 00E0 00 52 4D 41 43 20 20 20-20 43 4F 4D 00 00 00 6B .RMAC COM...k 00F0 54 00 55 00 56 00 57 00-58 00 59 00 5A 00 00 00 T.U.V.W.X.Y.Z... |
D>dir dfact.* D: DFACT PLI D>pli dfact PL/I-80 V1.0, COMPILATION OF: DFACT NO ERROR(S) IN PASS 1 NO ERROR(S) IN PASS 2 CODE SIZE = 00A5 DATA AREA = 0028 END COMPILATION D>dir dfact.* D: DFACT PLI : DFACT REL D>link dfact LINK 1.0 F 0100 /SYSIN/ 1BAD /SYSPRI/ 1BD2 ABSOLUTE 0000 CODE SIZE 1A54 (0100-1B53) DATA SIZE 01E5 (1C28-1E0C) COMMON SIZE 00D4 (1B54-1C27) USE FACTOR 5E D>dir dfact.* D: DFACT PLI : DFACT REL : DFACT COM : DFACT SYM D>dfact Factorial( 0 )= 1 Factorial( 1 )= 1 Factorial( 2 )= 2 Factorial( 3 )= 6 Factorial( 4 )= 24 Factorial( 5 )= 120 Factorial( 6 )= 720 Factorial( 7 )= 5040 Factorial( 8 )= 40320 Factorial( 9 )= 362880 Factorial( 10 )= 3628800 Factorial( 11 )= 39916800 Factorial( 12 )= 479001600 Factorial( 13 )= 6227020800 Factorial( 14 )= 87178291200 Factorial( 15 )= 1307674368000 Factorial( 16 )= 20922789888000 Factorial( 17 )= 355687428096000 Factorial( 18 )= FIXED OVERFLOW (1) Traceback: 0007 019F 0018 0000 # 2809 6874 0355 0141 End of Execution D> |
