アセンブリ言語によるアンケート・データ３次元集計の事例研究－複数回答、多重回答項目の復元の自動化－: 沖縄地域学リポジトリ

(1)

Title

アセンブリ言語によるアンケート・データ３次元集計の

_{事例研究−複数回答、多重回答項目の復元の自動化−}

Author(s)

阿部, 亮一

Citation

沖大経済論叢 = OKIDAI KEIZAI RONSO, 12(2): 69-118

Issue Date

1988-03-31

URL

http://hdl.handle.net/20.500.12001/6785

(2)

アセンブリ言語によるアンケート

３次元集計の事例研究

・デ

夕

－複数回答、多重回答項目の復元の自動化一

阿部亮Ｉ課題と対策はじめに１前作プログラムの問題点１．１限定された自動処理の対象項目１．２使用言語の問題２対策２．１対象項目２．２使用言語 Ⅱプログラムの詳細 lAssemblerSourcefileの基本構成２定数定義およびマクロ定義２．１定数定義２．２マクロ定義３諸元テーブル等

４ｐｒｏｇＯ（その１）対象項目番号の入力

５ｐｒｏｇＯ（その２）対象項目諸元テーブルの作成

６ｐｒｏｇｌデータ読みこみと計数

６．１ｐｒｏｇｌ主要部６．２３次元分類と計数Subroutine ６．３ＢＵＦＦＥＲ内Record移動Subroutine ７ｐｒｏｇ２合計算出７．１ｐｒｏｇ２主要部７．２Ｘ軸方向合計Subroutine ７．３残余合計routine ８終末処理ほか

９ｐｒｏｇ３ＢＡＳＩＣ配列領域への配列転送

１０ＢＡＳＩＣからの利用例おわりに－６９－

(3)

Ｉ課題と対策はじめに報告者はこれまで、パソコンによるアンケート調査の集計と分析に関する２つの報告を本誌に掲載してきた〔文献１～３参照〕。それらで述べたように、この調査は科学研究費助成研究の一環として行われた沖縄県内の１千余の家族を対象にした大規模なもので、質問も多方面にわたり、コンピュータ処理に適さないものも含まれていた。これをデータ構造の決定から、入力の実施とチェック、クロス・テーブルへの集計、その棒グラフ化を含む表示まで、多くの時間を費やして実行したが、その経過を再検討し、他の同様の処理にも適用できるようにプログラムを整理拡張して発表したのであった。本誌前号および本号〔文献２，３〕に掲載したプログラムｗＱＮＲ－ＡＮＬＬＢＡＳ，，で、多様な処理とかなりの汎用性とを両立させた自動処理システムが一応完成しているが、そこで指摘したようにいくつかの問題点が残されている。ことに、自動処理可能な項目が、１つの'且Ｉ答肢（選択肢）だけを選択するものに限定されているのは、汎用1性を損ねている。また、使用言語がインタープリタのＢＡＳＩＣであったため、実行速度も遅く、他機種への移植が難しいという実行上の問題のほか、プログラムの規模が大きくなるにつれ作成や修正が加速的に困難さを増していろ。この２点の改善を試みたのがこの報告である。前者については、多重回答項目の処理まで自動処理可能にした。後者については、マクロ機能のあるアセンブリ言語で記述することにした。これによってより汎用性の高いシステムを作ることができ、さらに見通しの比較的よいプログラムで処理の飛躍的な高速化を実現できた。なお、使用したパソコンは、これまでと同様、ＮＥＣ社の１６ピット機PC-9801 Eに８インチおよび５２５インチのFloppyDiskDriveを外付けし、printerにはブラザー社製Ｍ－１０２４Ｐ（１０インチ輻）を用いたシステムである。使用ＯＳは、米国MicroSoft社のライセンスをえてＮＥＣ社から発表されているＭＳ－ＤＯＳ（Version211）、使用言語は、これに付属していたマクロ･アセンブラＭＡＳＭである。また、表示等に、前作のプログラムを使うため、同ＤＯＳ上の－７０－

(4)

BＡＳＩＣ（ＮＥＣ社製、Ｎ８８日本語ＢＡＳＩＣ（８６）VersionLO）も用いている。１前作プログラムの問題点１゜１限定された自動処理の対象項目先の文献２，３に掲載したプログラムｗＱＮＲ－ＡＮＬＬＢＡＳ，，では、自動処理できる項目は、回答肢の中から１つだけ選択する形式の項目（単純な形式であるため単純回答項目あるいはたんに単純項目と称した）、それも回答肢の数は記録と処理の都合から無答とその他回答をいれて１６以下のものに限られていた。その

ほかの項目が現れたらプログラムの一部を個別に手直しして処理したのである。

この方針は、この単純項目がもっとも多く見られる形式のため、合理的であった。

実際、例外項目の処理問題はおもに分類集計のところだから（総計や平均、百分

率のとり方にも影響が出るが）、ここにスペースを設けておき特殊処理用の

routineを書きこめるようにしておいた。㈱1.1 単純項目以外の項目でも、できるだけ自動処理の対象に加えることが好ましい。その可能性をみるため、自動化の対象とならなかった項目を分類してみてみよう。ただし、名称は便宜的につけたものである。また上記のように自動処理に適した

回答肢数計１６以下の項目を普通項目とよび、これを越えるものを過大項目とよ

ぶことにする。 ①複数（回答）項目Pluralmns.）ｉｔｅｍ「３つ選べ」というような、回答肢を既定の回数選択させる形式をさす。この処理は過大項目でなければ簡単である。単純項目がその回数分並んでいるものとして、対象位置を1桁（ｂｙte)ずつずらしながら繰り返し集計すればよいからである。 ②多重（回答）項目Multiplex（ansjitem 「いくつでも選べ」というような、回数に制限をおかずに回答させる形式をさす。適当な言葉が見あたらず、また記録のさいにデータを多重化圧縮しているので、このように称した。この種のデータは、単純に対応すると回答肢の数だけ欄数を設けること|こなり、ＲａｎｄｏｍｆｉｌｅのRecordの標準容量２５６bytesを超過する要因になる。これを回避するために､データの圧縮を当初から意識して行っていろ。－７１－

(5)

回答肢選択の有無を１と０で表せば、その並びは２進数とみなせるので、それを４つごとに区切って１６進数1桁に変換して記録処理することにしたのである。４分の1に圧縮できるが、反面、参考リスト１に見るように、専用のcodingと解

読（decoding）のroutineの作成が必要になり、さらにＢＡＳＩＣ使用のためか

なりの時間をとられることになった。由Ｌ２ ③過大項目回答肢が１５以上もあって、printerへの打ちだしなどが複雑になる項目である。表示するだけなら、その項目が縦軸方向にくるように指定すれば可能であるが、他項目と相関関係が不明瞭になりやすいし、それ自体でもあまり細かな分類はデータが分散しすぎて統計的な意義が薄くなるので、一般には避けるべきである。もしあれば、まずより大きな分類に統合してから分析にかけろ。住所や年齢、家族類型がその例であった。 ④実数項目面積や収入韻のように連続した数値一数学的意味とは異なるが現実の数値という意味でここでは実数と呼ぶ－を、そのまま記入させた項目である。区分けの数が非常に多いことに相当するから、上記の過大項目の１種でもある。したがって同様に、他項目との関係を分析するには、階層分けの作業が必要になるから、この種の項目は避けてあらかじめ階層分けをして選択させるようにしておくのが

望ましい。ただし、対象の統計的構造が不明確な第一次接近の段階では、まず実

数で記入し後で分類を繰り返しながら最適な分類基準を求める必要がある場合も

ある。住宅広さがその例であった。この場合にはその過程で、怪我の功名に近いが、

回答が５坪の整数倍に集中していることが見いだされ、５の公倍数を中央値にし

た区分をすべきことが明らかになった。と同時に、回答の情度を推測させる資料にもなった。〔文献３、Ⅳ。１．⑤参照〕 ⑤複合項目関連した複数の`情報を複数のｃｏｄｅ系で、たとえば記号化情報と実数の組み合せの形で、データに盛り込んだ項目である。②と同様、占有桁数を節約できるが、その解読などは困難をともない、処理に時間を要することになる。この例の１つは、年齢の項目で、1桁目は年齢階層をアルファベットで、２桁－７２－

(6)

目は年齢の下1桁を表示していろ。また、出身地の項目はもっと複雑で、１桁目

は、県内出身の場合に県内用数字codeの上位桁が入り、県外の場合にそのアル

ファベッルcodeが入って、国。県の内外区分も兼ねている。また２桁目は県内

のみで、通常は数字codeの下位桁が入り、配偶者と同部落出身の場合は上記下

位桁に対応したアルファベット（０にＡ、１にＢのように）が入っていろ。この

ように２桁をそれぞれ２重に使うことで所要桁数を半減しているのである。その反面、復元は専用routineを必要とし、煩雑になるのは避けられない。詳しくは後述するが、これらのうち出現例の多かった①と②が自動処理化の対象となった。）曲1.1ＢＡＳＩＣで記述されている前作プログラムでは､：リスト６「原データ読み込み、集計」が分類集計を担当しているが〔文献２，９５頁〕、この部分が

１９６０行で終ると、続くリスト８「合計計算Summing」は３０００行からはじめ

ており、１０００行分の余裕が特殊処理routineのために設けてある。実際組み込んだVersionもあったが、複雑になりすぎて、bugが出やすかったうえ、第３者

の理解をよりむずかしくするので発表用には単純な方式にした。参考リストｌは

多重項目の処理を組みこんだ例である。㈱1.2参考リスト１は、文献２のプログラムの原データ読み込み、集計部（同リスト６）の一部を、多重項目（番号１３４、問７ほか)の処理用に修正したものである。１８３０行のSubroutine名を書き換え、この処理のためのSub

routine↑＊Ｑ7．ＲＤ，を2000行から書き加えていろ。ｌｒｅｃｏｒｄＣとに変数Ｇ

を増加させて桁をずらしながら（Ｑ７は３桁表記なので３回）、８までの２のべき乗と論理積（ＡＮＤ）をとって解読し、,＊ＣＣ，でCellの数値を増加させていくのである。２０６０行は無答処理である。〔㈱11参照〕参考リスト１ＢＡＳＩＣによる多重項目の処理例

1720,==＝二二二二＝==＝原データ読み込み、集計

1730＊CALC －７３－

(7)

l7700PENGDRV$+":FAMFLoDAT，，ＡＳ＃1

1820PRINT，,StartedReadingdataon，,TIME＄

l830GOSUB傘Q7oRD

，*NORMLRD，##＃point

l840PRINT，，Endedabove，andStartedSummingon

l850GOTO＊SUN 1860, 1870＊NORMLRD 1960RETURN 1970’ 2000＊Q７.ＲＤ２０１０ＦＯＲＩ=ｌＴＯ１１９２

２０２０ＧＥＴ＃1,I

2030YA=VAL("&Ⅱ''+P$(YN)）

2040ＺＡ=VAL("Ｍ，w+P$(ZN)）

2050M$二P$(XN）

20601ＦＭ$=''000'，ＴＨＥＮＸＡ=O:GOSUB＊cc:GOTO2140

2070FORG=ｌＴＯ３：ＱＭ=VAL("&H"+HID$(N$,Ｇ’1)）

2080ＩＦＱＭ=０ＴＨＥＮ2130

2090ＩＦＱＮＡＮＤ１ＴＨＥＮＵ=G*４：GOSUB＊CC

2100ＩＦＱＮＡＮＤ２ＴＨＥＮＷ二G*4-1:GOSUB＊CC

2110ＩＦＱＮＡＮＤ４ＴＩｌＥＮＷ二G*4-2:GOSUB＊CC

2120ＩＦＱ１ＵＩＡＮＤ８ＴＨＥＮＷ=G*4-3:GOSUB＊ＣＣ

２ＢＯＮＥＸＴ，G 2140NEXT，I

2150CLOSE＃l

2160RETURN 2170＊CC

2180C(Ｍ,YA,ZA)二C(XA,YZ,ZA)+1

2190RETURN

3000’---Summing---ｔｏｉｍｐ

，,TIME＄

ユｍｐｒｏｖｅ１．２使用言語の問題プログラムの記述は、上述プログラムの記述は、上述のようにパソコンではもっとも多用されているMicro Soft社系のインタプリタＢＡＳＩＣのＭＳ－ＤＯＳ版で行った。このＢＡＳＩＣは、与えられたすべての機能を単独で実行できるインタープリタなので、操作が簡単で、記述や修正が容易なうえ、暴走しにくいなど使いやすい言語であるが、広〈－７４－

(8)

指摘されているように大きな問題点を抱えている。今回もそれらに災いされている。まずプログラム作成に関して、行番号に縛られ、局所変数が使えないため、部分的な挿入や移動がむずかしく、機能のブロック化も徹底できず、したがって既成routineの部品化（別プログラムでの活用）も他のコンパイラなどより困難で

ある。本例でも、行数が増えろと急速に行番号やラベルの管理が面倒になり、誤

謬も多くなっている。さらに、機種による個別化が進んでいるため、他機種への

移植性が極めて悪い点も問題である。

つぎに実行上の問題では、やはり実行速度が低いことに集約されよう。低速の

外部機器に出力する分析の段階では必ずしも遅いとはいえないが、原データの読

み込み、集計（合計算出を含め）では、ＲＡＭＤｉｓｋを使用し単純な項目ばかり

を対象にしても２０秒近くを要し、これが複数回答の時には急増して、複数の条

件をつけろと２分を越えた例もあり、かなり待たされることになる。高速化が望

まれろ。ところで、これらの欠点はＢＡＳＩＣ言語そのものに由来しているのではないことに注意しておく必要がある。速度の点では、ここで用いたインタプリタとコンパチブルなコンパイラがセットで販売されており、これを使えば一応解決する。

また、行番号も不可欠なものではなく、これを使わない構造化プログラミングに

適した製品もあるのである。㈱Ｌ３

しかしこれらは、日本の現状ではポピュラーでなく、他方に普及した高性能な

言語が複数あるので、固執すべき理由はない。

曲１３米国では最近、機能を大幅に向上させたＢＡＳＩＣコンパイラが発売さ

れていろ。MicroSoft社のＱｕｉｃｋＢＡＳＩＣと、Borlandlnternational社の

ＴｕｒｂｏＢＡＳＩＣがそれで、行番号は不川で、優れたデバッグ・ツール等を備え、

「ＭＳ－ＤＯＳ上で単独に尾行可能なプログラムやデータ」（文献４，２１８頁）を

作成する本格的なコンパイラに成長しているようである。２対策そこで、次のように対応することにした。－７５－

(9)

２．１対象項目自動化対象外の項目のうち、出現率が３回以上と高く、分析担当者から要請の多く出た①の複数（回答）項目と②の多重(回答）項目を対象に加えることにした。 ③の過大項目以下、実数項目や複合項目は、個別的に処理するのが妥当であろ

う。多用される年齢階層別や地域区分は、すでに別プログラムで再分類し新たに

設けた項目に書きこんでしまっており、分析にはこれで十分対応できている。

ところで、①の複数（回答）項目は、単純項目がその桁数分並んでいるにすぎ

ないから、対象位置を１桁（bytｅ）ずつずらしながら単純項目用の集計を繰り

返せばよく、処理は簡単である。②の多重（回答）項目は、４桁ごとに２進数化

されているのを効率的に解読する工夫が必要である。２．２使用言語

言語は、最高速を実現できるが使用がむずかしいといわれるAssembly言語を

使うことにした。先のＢＡＳＩＣインタプリタとの、作成上および実行上の差異を

見いだすことができようし、Assembly言語の社会科学分野への応用におけるその可能性と問題点を考える素材もえられよう。具体的な使用言語は、わが国の１６ビット機用ではもっとも普及しているＭＳ－

ＤＯＳ上のマクロ機能つきのAssembler、ＭＡＳＭ（MicroSoft社製、Version

l27)とした。これは、ＭＳ－ＤＯＳのSystemＤｉｓｋに付属していたもので、古

いｖｅ｢sionだがこれしか手元にないためやむをえなかった（その後機能拡充して独立のソフトウェアとして販売されていろ）。さてこのＭＡＳＭは、「一般に大型コンピュータのアセンブラにしかみられなかった多くの特徴を備えています。……他のマイクロコンピュータのアセンブラに比べて多少複雑ですが、使い易くなっています。..…･リロケータブルなオブジェ

クトコードを作成します。……したがって、……最も効率のよい場所で実行で…

時間を節約することができます。……マクロ機能によって、頻用される一連の命

令に)Ｈいるコードブロックの書き込みを行うことができます。したがって..…･新

たにコーディングする時間が節約できます」〔文献５，１－２頁〕。

このほか「マクロはｗネスト”できます。つまり、マクロは他のマクロ内部か

ら呼びだすことができるのです。……また……その名前をマクロ名として使うと

－７６－

(10)

とによって任意の命令、あるいはディレクティブの働きを、変更するためにも使用できます］〔同、３－４頁〕。さらに、条件ディレクティブの拡張セットもサポートしており、間違ったオペランドのタイプ選択をある程度訂正する能力もあるなど、かなり高機能のAssemblerである。プログラムの作成手順は、まずAssemblerの書式、文法にしたがってsource プログラムを作成し油Ｌ４、これをAssemblerにかけ、errorが出れば書きなおし、無事通過すればＯｂｊｅｃｔｆｉｌｅをうろ。これを、必要ならLibraryを参照・引用しながら、Linkerに通して、実行可能なＥＸＥ型ｆｉｌｅをうろ。コンパクトなＣＯＭ型ｆｉｌｅにするには、さらにＥＸＥ２ＢＩＮプログラムを通さなければならない。こうした煩さな手続きを要するが、これは高機能なコンパイラに共通のものであり、これによりSoftware資産の蓄積と活H1、他言語との連結が可能になるので、甘受しなければならないであろう。なお、Sourceｆｉｌｅの作成などに、Editｏｒと呼ばれる編集プログラムが使われるが、ＭＳ－ＤＯＳに付属しているＥＤＬＩＮＥＸＥは、１行ずつ編集していく古いタイプのいわゆるLineeditorで、複数行の一括転送などはできず、文字の挿入訂正なども面倒であるなど、非常に使いにくい。そこでカーソルの移動が '二1由で、記述や訂正が容易かつ高速であり、複数行の一括処剛やWindow機能による複数Ｆｉｌｅの参照複写などの高度な機能を侍ったFullscreeneditorが多用されている。その多くはＣｈｉｌｄ磯能をもち、上記のコンパイル全過程の実行や実行ｆｉｌｅの試行を向らを終了させることなく行えろなど、Ｓｏｆｔｗａｒｅ開発の要（かなめ）の役割を果たすものになっている。ここでは、その中で機能は少な目だがコンパクトでI高i速なＥＺＥｄｉｔｏｒを使月]した。樹Ｌ５油Ｌ４ＭＡＳＭでのＥＸＥ、ＣＯＭそれぞれの書式については、文献６の２８「・ＣＯＭモデル（８０８０モデル）のコーディング書式」ほかにわかりやすい解説がある。油1５パソコンでは、Fullscreenedit()ｒとして、当初はWordstarとかＷｏｒｄMasterといった英語wordprocessorが使われた。その後、それら入力編集部分を独立させ、機能強化を図ったものが続々製品化され、本文で述べたように、その役割は非常に大きくなっていろ。それだけにEditｏｒには、速度、使一７７－

(11)

い勝手、機能の質量、メモリ占有量などできびしい条件がつけられている。わが国では日本語表記の問題が加わり困難さが増すが、メーカー間のはげしい競争もあって、今日では実用性の高い製品が登場していろ。ＭＩＦＥＳ－９８（メガソフト社）とFinal（エー・エス・ピー社)がその代表格とされていろ〔文献７，１４５頁参照〕。しかし両者とも廉価ではなく、メモリを

８０kbytes以上も占有する。筆者は、必要な機能を一とおり揃え最高速を誇りな

がら、安価でメモリをわずか２０ｋbyteｓしか占めないＥＺｅｄｉｔｏｒ（パソコン・

ワールドＪＡＰＡＮ社）を専ら使用していろ。「ＥＺは……数々の新機能を有し、

かつ……モニター・ユーザーの意見を取り入れ、改良を重ねて……そのプログラ

ム・サイズからは想像もつかない高機能・高操作性」（文献８，３頁）を実現し

ている。Sourcelist付で改造も可能という極めてユーザ・フレンドリなSoftware

である。文献７でも取り上げられている（１５０－１５２頁)が、西田雅昭氏が詳し

く紹介しておられろ〔文献９，１２６－１２９頁参照〕。

さらにEditｏｒは、その高速性と高い編集機能をかわれて日本語入力プロセッ

サ（ＦＥＰ）と組み合せて専用の日本語wordprocessorよりはるかに高速で便利

な文書作成Softwareとしても使われていろ（本稿もこの方法で書かれている)。

Ⅱプログラムの詳細１AssembIerSourcefiIeの基本構成

とのプログラムの目的は、、ＦＡＭＦＬ･ＤＡＴ，という名前のRandomfileに収

まっているアンケート調査データ（１７０項目、２５３bytes／record）約1200件

を対象に、特殊なものを除く任意の３項目を軸とする合計欄つきの３次元配列を

設定し、これに全Recordを分類・計数し、各軸の合計も算出して配列を完成さ

せ、表や図に利用できるようにすることである。

なお配列は、全要素が２byteｓの整数を表示する形式とし、先頭の軸から添了：

数を順次増加する'１頂で並べることにする。これは、各要素がサイズの面で、アン

ケート集計の一般的な形として該当する件数とその合計を入れるだけでいわゆる

ＩＮＴＥＧＥＲで十分（65,000余まで表示可能)なため、またＢＡＳＩＣプログラ

ムとの連係にもその整数配列としてそのまま使えるためである。

－７８－

(12)

プログラムの名称は、３ＤimenSionsCountingの意味で、３Ｄ＿ＣＯＵＮＴとした。そして構成は、リスト１の６－１２行燭2.1にも略記されているが、以下のようになっていろ。冒頭には、Assemblerの書式にしたがって、定数定義とマクロ定義の領域がある〔文献５，６参照〕o 続いて、ｐｒｏｇＯ（０段階とでもいうべきか）と名付けた準備段階がある。そこでは項目番号を入力させ、それに応じたさまざまな定数等をｆｉｌｅの中のテーブル（Table）に書きこみ、３次元の配列用領域を確保する。次のｐｒｏｇｌがこのプログラムの中枢といえる部分で、原データのはいったfile

をｏｐｅｎし、lRecordずつ読みこんでは、３項目の回答を調べ上記配列内の対応

欄を特定し、そこの数値を１つ増加させる計数作業を行う。なお、複数（回答）項目と多重（回答）項目の場合は、それぞれ解読のroutineへの自動的に導かれ処理されろ。ｐｒｏｇ２では、３つの次元の合計を計算し、上記配列の全欄を埋める。

ｐｒｏｇ３は、ＢＡＳＩＣと連結する場合に、この配列をＢＡＳＩＣの配列領域に機

械語で最高速で転送し、直ちに利用できるようにするroutineである。以下、内容を見ていこう。曲２１リストに行番号がついているが、これは本来ないもので、説明の便の

ために印刷時に印刷用のUtilityPU・ＣＯＭに行番号付けのoption指定をし

ただけのものである〔文献１０参照〕･一般のＢＡＳＩＣでは行番号は不可欠であるが、AssemblerやCompilerはそれから自由であり、むしろコンパイルのさいに1よ取り外さなければならない。 Ⅲ一ａ一ｒ－９一。ｌｒｌＰｎＵ’ １１’ ９ローｎ句フ一一．ｍｌ－ｎＱＵ－ｕ０ゴーｓｑ１一一０．ｌｅ一一、ＩＯＤ一一Ｔ△ａ八Ａ’ －４８・厄ｏｌ－ｎＵａｎＫ一一。■。一一、しｙ－－ＲＢ０ｄ０Ｄ一一Ｈ叩ｅ一一八Ａｓ一一【脳ｓ－ｅ一一ｒｒ一一九ｍ一鉢一ｏｌｃ一ｓ刃一ｒｒ一叩一一ｅｏ一勺Ｌ－０ｄｆ一一屯１－。－０－ｃｒ一千一一ｅｅ一一【ＵＢｄ一ｓｏｌａ－０ｎＣ一一十Ｕｅ一ｓ－．１０．－０Ｋ一Ｕ一ｒ一０，Ｍ胆一ｏ一ｔＳ一日一ＭＭ．１Ａ八一一【、９．－Ⅲ ｌＡＡＪ１守１一ａ一ｏｔＮｍ－ｒｌｍｌｎＭＵ’９－ＮｍｕｎｖｌＯｌｗＵｏｒ〕一ｒｌｎｖＣ一一Ｐ｜〔しｎ】一１０－－０．勺。ｌｓｌｎＵ－．１日卜一つ。ｔｅｌ０ｎｒＶ一＄１

スー

０ａ一ｓｓ一＊ Ⅲシ一一＊ ●ｐ●９●？●９●、●Ｐ ●●●●●●●●●■●● 。■■■▲〈Ｆ〃ぬ】（、くり）△ｎｍ一二戸．【Ｄ二一口』⑪〉

(13)

■●●●●●●●■●ロ●●●●●●●●●●●●●●■●●●●●■●●●●●● 【〃ＪＵｎＨｍ》〈皿訂聿《ｎｍｍ〉●■■０－（】〃尻】（・く、）二ｍ加『」一・【ロニニグ（叩〉［ＵＵｎ０（叩■、）（叩四訂》〈、ｕ〉①□Ⅱ（〈■〃必】へ、（Ⅱ）二ｍ扣些△芦阯【Ⅱ三つⅡ■△｜■■□へ△Ⅱ■』ロロ■■△ＱＤ０二・一■■一・、ロ。△ｄ００△ニヨロロユ。。Ⅱ△（、／】（四〃巫】、〃〃】ｎ〃丘】《叩〃必】ハグヱ】 ;pro９０．．．ｉｎｐｕｔｌｔｅｍｎｏ．＆makeconstantstable ;pro９１．．．ｒｅａｄｄａｔａｆｒｏｍｄｉｓｋ，sortthemto3dimension_，＆countarrayscell(arry-offs~）ｕｐ（multiplexitemsareautomaticallydecoded） ;pro９２．．．sumupeachdimensionofabovearray ;pro９３．．．optionallytransferabovearraytoBASICarrayarea ；－.‐－－－－－－－－－－－－－－－－＝－－－－一一一一＝＝－－‐‐－＝一；ConstantsDefinitionS ；－．－－－‐－～＝－－～へ－－－－－－－－＝－－－－－－－＝－－＝－ item-no-buf-szequ ６１００ｈｒｅｃ－ｓユｚｅｅｑｕｌｌ９２１ａｓｔ－ｒｅｃ－ｎｏｅｑｕ；４A8ｈ犯 records､bufferequ；8clst/trk・４rec/clst＝１track arry-offSequ3000ｈ；<－ｍＯＯｈ CSEGSEGMENT ASSUNECS:CSEG,ＤＳ:CSEG ２定数定義およびマクロ定義２．１定数定義（リスト１，１４－２１行）参照や修正を容易にするために、プログラム中で使用する定数を冒頭に一括しで定義しておく。《ｅｑｕ，文で定数名と数値をリストｌのように並べていく。大規模なプログラムでは、この定義だけでfileを作り、ブロック化された各部分プログラムでは、これを《include，命令で読みこんで、他部分と統一を保っていろ。そのさいには、あるブロックで使うが他ブロックで定義されている定数は、，ｅｘｔｒｎ，（external）指定しておく必要があり、この定義邪分が長大になることも珍しくない。本件では、sourcefileを分割しなかったため定数を厳格に管理しなくてよい

ので、少なくなっていろ。内容はつぎのとおりである。〔〕内は行番号である。

〔１７〕ｉｔｅｍ－ｎｏ－ｂｕｆ－ｓｚは、Keyboardからの項目番号入力のさいに使うbufferのサイズを６に指定する。これはマクロ３で指示するためである。〔１８〕ｒｅｃ－ｓｉＺｅは、recordのサイズの』意で、１６進数で１００，１０進数で２５６である。

〔１９〕last-rec-noは、最終record番号の意である。通常はfileの終端

－８０－

(14)

，ＥＯＦ，をチェックするが、事前にわかっているときには番号を直接指定した方

がチェックが簡単で早くなる。〔２０〕records＠．bufferは、Ｄｉｓｋからの原データを受け入れる入力buffer の容量をrecord数で表示している。このＢＵＦＦＥＲ（他と区別するためこの bufferのみ大文字で表記する）は、８インチＤｉｓｋのltrack分を一度に収容

するサイズ（１６進数で２０００，８ｋbyteｓ）としているので、record数として

は３２となる。油２．２〔２１〕arry-offsは、集計用配列の頭の位置（offset）を示す。ここでは、１６進数で３０００番地からである。

その後、segmentの指示（ディレクティブ)がなされて〔２３，２４〕、つぎに移

っていく。油２．２bufferのサイズをltrack分と大きくしたのは、これ以下では､ＲａｍＤｉｓｋを使った処理時間がかかるためである。lrecord分でも、読みだし単位であるlkbytes（４records分)でも＄ほとんど変わらず、ltrack分一括転送

すると急に速くなった。時間のかかるrecord位置の確認や転送の操作が、１周

分の場合は連続してできるためではないかと推測されろ。２．２マクロ定義（リスト２，２６－１９６行）

Assemblerは､ＣＰＵに直接指令を与える言語であるため､高速性と講密性

を期待できる反面、非常に細かな記述が必要で、勘違いや書き違いにより微細な

誤りが発生しやすい。記述の上では微小な誤りでもプログラムとしてはしばしば

致命的となる。しかも言語の性質上、その誤謬の検出と対策はむずかしい。そこで誤謬のなくなった基本的ないし部分的な機能ブロックをマクロとして切りだし、

再利用に備えておくことが有効かつ必要となる。Libraryに加えて蓄積していけ

ば、より利用しやすくなり、生産性も確実に高まる。「マクロディレクティブを用いることにより、ユーザーは、何度も繰り返して現れるコードブロックをマクロで書き換えることができ」（文献５，９１頁)ることを利用して、「あるまとまった機能を持ったマクロをいくつか定義しておくことによってあたかも高級言語でプログラムをしているように効率的にプログラムす－８１－

(15)

ることができろ」（文献１１，１２８頁）のである。マクロはユーザー間でも共通化するのが望ましいので、ここでは、マクロ Assemblerのマニュアルに掲載されているのは、できるだけそのまま利用することにした。ＭＳ－ＤＯＳのシステム・コール（ＩＮＴ２１Ｈ）の利用に関するもので、簡単に列記しておこう。号１２３５６７８番名称ｄｉｓｐｌａｙｂｅｅｐｆｌａｓｈ－ｇｅｔ－ｓｔｒｉｎｇｓｅｔ－ｄｉｓｋ－ｂｕｆｏｐｅｎｒｎｄ－ｂｌｏｃｋ－ｒｅａｄｃｌｏｓｅ機能〔文献５での頁〕文字列（string）の表示に関するｃａｌｌ〔４４〕音出力。文字のScreen出力の１種〔３２〕 keyboardからの文字列入力〔５０〕Ｄｉｓｋとの入出力bufferの番地設定〔７４〕ｆｉｌｅのｏｅｐｎ〔５４〕ランダムなblock読みだし〔９０〕ｆｉｌｅのｃｌｏｓｅ _〔５６〕なお、システム・コールによるｆｉｌｅの管理には、初期型のFunction（ＯＦＨから２８Ｈに存在）と新型のもの（３ＤＨから）とがあり、「古いファンクションに

は、ファイルの階層構造がサポートされていないなど、いろいろな支障がありま

すので、特別の目的以外には使用しない万がよいＩ（文献１２，１８９頁）とされて

いる。しかし前者は、Filecontrolblockを直接操作できる利点があるため、

このプログラムでは、こちらを使用していろ。

つぎに、独自に作成したマクロ定義の名称と機能を簡単に列記しておこう。そ

れを呼びだす箇所で詳細に説明されるものもある。号４９０１２１１１番名称 decimal-inp-chk block-storew ｈａｓｃ２ｂｉｎｌｔｅｍ－ｃｏｎｔｅｎｔｓｒｅｓｔ－ｒｅｃ－ｎｕｍ機能入力した文字の１０進数チェック。非該当は再入力へ。ｗｏｒｄ埴位のblock転送

16進Ascii表示を内部処理の２進数(binary)に変換。

指定する項目の内容を取り出す。 bufferblock中の残りのrecord数－８２－

(16)

l3base-adr-＠aray １１番と組み合せて、Ｙ、Ｚの値を解読しそれに対する３次元配列の基準（Ｘ＝Ｏの）番地を算定 Directionflagのｓｅｔをチェックする。１３番の番地にＸの偏値を加え、番地を特定する。Ｙ、Ｚの値に対する３次元配列の基準(Ｚ＝０の）番地算定４５６１１１ｃｈｋ－ｄｉｒ－Ｈａｇａｄｒ－Ｘ－ｃｏｕｎｔｕｐ ser-base-adr＠ary ４ｔ４ｕＰｐｎ１１一一ｍｄｔｌ一ｎｒｕｌｌａａＰｌ一田加、一一■．・１ｔ一一ｆｙｕ「一一ｅｅｒＰ一ｌｒＫａｎ一一く１．ユー一ｄｕ一一一ｅｇｅ一一ｒｅｒ一－９１ｅｒｌ一、１ｆｒｎ一－．１ａｆ．Ⅱｅ一一ｒｃｕｈ－一ｔＢｆｔ一一ｓ・ｋ・１．－一ｃｃ ●、●９－一ｙｎｅｔ一一ａｕｈ・１一’１ｆｃ Ⅲ ｅｌ｜Ｐ・１ｒｌ一ｓｓｒｌｒｕｌ－．１０。ＯｄＲ－一．Ｄｆｒａ・工一一●９■ｐ●、 ●９．ｌｆｌｌｇａｇｔｌｌｎｌｎ・ュｒｌ一・工９．１田ｄＪｌｌｒｎｒ・１ａＸｌ一ｔ・工ｔ１ｂｌ一ｓｒｓ９Ｐに ’一ｔｒｎｔｒｌｌｔｓｔｄ・１．１ｅｄｌ一ｅｅａＸｒａ－一ｓ０ｓｌｅｕ一一一ｇｆＲｆｇｈｈ０，９Ｐｈ－ｓ一ｎｆＣｆｎＡｃＲｔ・工ｎ０ｔ一ｎ一・１ｏ９２７Ａ。・１００Ｃ１ｆ・１３１》Ｃｌｒ，，ｈ，０ｈＮｏｒ００ｈＡｕ，，，ｕ一位一二帥血小皿二ｈ１１きｘｔ１ｈ１二ⅡａＸ１１ａ二ａｄ２二ｄｓａａ２二ｆｂａａｆ－・工一宝一一三ｇ一一一ｎｌｎｋ－．１－・工ｈ一ｆ一１０２０３ｒ４ｃ１－肥－０肌ｖＶｔ０ＯＣｖｖｔＤＯｓｖＶＶＶｔ０ＯＰｃＶＶｂＨＲＨｔＨｌａｌ一肌肌函、．ｍ剛肌朋、、．ｍ剛肌ｔ－ｍｍｍｍ。ｍ剛肌・ｍｍｍｍ則北一０－ＡＡＡｅＡ’ ２一Ｒ一ＮｙＨＨｇＨ１トー肌一ｍａｈ Ⅲ スーⅡ一幸卵二ｐ二ｓ二・工二ｅ二ｕ二ｃリ」，。，」，Ｅ，血二ｅ二１二ｅ・，ｂ．，ｆ。，ｄ ■●●●●●●●■●●●●●●●●●●●●●●●●●●●●●、●●●●●●●●●■●●●●●●●●●■●●●●●●●●●●●●●●● ６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８２２２２３３３３３３３３３３４４４４４４４４４４５５５５５５５５５－８３－

(17)

cmp

a1,9.

jbe

exit

,

MACRO

5 ---set_disk_buf

MACRO

buffer

;set Disk Transfer Address

(p74

mov

dx,offset buffer

mov

ah, lAh

int

21h

DOS func. call

ENDM

;===

MACRO

7 ===

rnd_block_read

MACRO

fcb,eount,rec_size ;random block read (p90

mov

dx,offset fcb

.

mav

cX,count

mov

word ptr fcb(OEh),rec_size

mov

ah,27h

;Block Read

int

21h

ENDM

,

---

MACRO

8 ---close

MACRO

fcb

:file close

(i>56

mav

dx,offset feb

mav

ah

.lOh

int

21h

DOS fune. call

ENDH

. 3eh

;g~neral

case; moy al,OFFh

MACRO

offs,nums,wordl

di,offs

eX,nums

ax,wordl

ENDM

beep

display re_inp

jmp'

no_inp

,---

MACRO

6 ---open

MACRO

fcb

;open file

(p54

mov

dx,offset fcb

moy

ah,OFh

;open file

int

21h

,

DOS func. call

ENDM

,

MACRO

9 block_storew

moy

mov

cld

exit:

fault:

59:

60:

61:

62:

63:

64:

65:

66:

67:

68:

69·:

70:

71:

72:

73:

74:

75:

76:

77:

78:

79:

80:

81:

82:

83:

84:

85:

86:

87:

88:

89:

90:

91:

92:

93:

94:

95:

96:

97:

98:

99:

100:

101:

102:

103:

(18)

-84-104:

rep stosw

105:

ENDM

106:

107:

;===

MACRO 10

---108: hasc2bin

MACRO

;(a1) ascii -) binary

FEh=no

go~d

109:

local

a2b_2,a2b_3,a2b_ng,a2b_o

110:

cmp

al,30h

;if

{o

111:

jb

a2b_ng

;then

NG

112:

cmp

al,39h

;i£

}9

113:

ja

a2b_ 2

;then nex·t chk

114:

sub

al,30h

;0'9 -)al

115:

jmp short a2b_o

116: a2b_2:

cmp

al,41h

;if

<A

117:

jb

a2b_ng ,

;then

NG

118:

cmp

al,45h

;i£

)F

119:

ja

a2b_3

;then next chk

120:

sub

al,37h

;yes -)Oah'Ofh

121:

jmp short a2b_o

122: a2b_3:

cap

a1,61h

;if

<a

123:

jb

a2b_ng

;then

NG

124:

cap

al,65h

;if)f

.

125:

ja

a2b_ng

;then

NG

126:

sub'

a1,57h

;a'f

-)ah"'fh

127:

jmp short a2b_o

128: a2b_ng: mov

al,OFEh

;no good data=FEh

129: a2b_o:

xor

ah,ah

130:

ENDM

131:

132: ;===

MACRO 11

---133: item_contents

MACRO Address,Size

. 134:

local

it_ct_o

135:

mav

si,Address

136:

DQV

dX,Size

137:

mav

al,BUFFER(si)

138:

hasc2bin

139:

cmp

a1,dl

140:

jb

it_ct_o

141:

!1OV

al,dl

142:

dec

a1

143: it_ct_o: xor

ah,ah

144:

ENDM

145:

146: ;===

MACRO 12

---147: rest_rec_num

MACRO

records@buffer

-)cx

148:

xor

ax ,ax

149:

mov

al,FCB(20h)

;current rec. offset

(19)

-85-

-86-dec

ax

;last

rec~

offset no.

BOV

cl,records@buffer

;

I

block read size

div

cl

;residual -)ah

ItOV

cl,ah

;residual rec. no. ah _·)cx

END"

,

MACRO

16 ---ser_base_adr@ary

MACRO Y?,Z?

Y?

Ibx,Z Icx II

=)di

moy

di,arry_offs

mov

ax,YT

;Y;

mul

Y?

;bl

;YT*Y?

-)ax

add

di,ax

moy

aX,ZT;Z

mul

Z?

;Z1.Z?

-}ax

add

di,ax

ENDH

MACRO

base_adr,X_ans_no

;=es,dx

Idi

di,base_adr

:di (-base adr. in array

di,X_ans_no

,

di,X_ans_no

; ..

+

X.2 (= true adr.)

word ptr(di)

cout up above

;test for

OF

;check direction flag(ah) on=)ZFon

;Z1.Z

-)ax

;di(- arry_offs+YT.Y+ZT*Z

;Y

-)ax

;YT.Y

-}ax

;di(- ax

;di(- YT.Y+arry_offs

;Z

-)ax

; base address of

'3

dimensions array

MACRO

ax

ah,4

,

MACRO 14

chk_dir_flag

pushf

pop

test

ENDM

,--- MACRO 15

adr_X_countup

mov

add

inc

ENDM

,

MACRO

13 ---base_adr_@array

MACRO

local

y_offs,z_offs

y_offs: item_contents

YA,YS

IJOV

bx,YT

lIul

bx

mov

di,ax

add

di,arry~offs

z_offs: item_contents ZA,ZS

mov

bx,ZT

lIuI

bx

add

di,ax

aov

es,di

ENDM

150:

151:

152:

153:

154:

155:

156:

157:

158:

159:

160:

161:

162:

163:

164:

165:

166:

167:

168:

169:

170:

171:

172:

173:

174:

175:

176:

177:

178:

179:

180:

181:

182:

183:

184:

185:

186:

187:

188:

189:

190:

191:

192:

193:

194:

195:

196:

(20)

３諸元テーブル等（リスト３，１９９－２３７行）ＣＯＭ形式のプログラムは、ｆｉｌｅｌｏａｄのsegmentのoffsetlOOHから展開されろ。これを１１９行で指示し、次いでラベルＳＴＡＲＴを書いてプログラム開始の印とする。なお、項目番号１３４，１０，１７０を選択したときのこの部分の作動前のdumplistが図表ｌに、終了後のそれが同２に示されているので、これを参照しながら見ていこう６曲2.３まずJumpテーブルがある（ｄｕｍｐｌｉｓｔｌ行目）。各部分プログラムへの移動を指示しているだけであるが、これによって、各部分プログラムの変更があっても呼びだし口は固定でき、点検や利用が便利になる。同時に、プログラム外からも参照や書きこみの行われる諸元テーブルの各元（変数・定数）の番地も固定され、非常に扱いやすくなる。完成した段階では、ここにはプログラム本体の頭のｐｒｏｇＯへのエントリとＢＡＳＩＣへ引き継ぐためのｐｒｏｇ３へのエントリしか残っ

ていない〔２０４－２０６行〕・残りは行末まで？jmp-tbl，という実際には使

ないdummyラベル名で０を埋めて、後方が移動しないようにしている。図表１では以下３行は０で埋められているだけだが、起動後は図表２のようにそこに諸元テーブルが書きこまれることになる。まず入力した３つの項目の諸元、番号（ＸＮ等）、Ｒｅｃｏｒｄ上の位置（ＸＡ等）、回答肢全数（ＸＳ等）、配列上の位置要素（その項目のoffset分、ＸＴ等)を１６進数としてきりがよくｄｕｍｐｌｉｓｔでは１行で見やすい１０Ｈごとに（それぞれ１１０，１２０，１３０Ｈから順に）配置し、それぞれ後ろにRecord番号（ＲＥＣ－ＮＯ)、項目番号入力のbuffer（ＩＴＥＭ－ＩＮ)、ＢＡＳＩＣ配列のSegment（Ｂ－ＡＲＲＹ）、配列サイズ（ＡＲＲＹ－ＳＺ）といった定数等をおき参照しやすいようになっていろ。さらに、テスト川の１０Ｈ分のあき（ＦＦで埋めろ）をおいて、１５０Ｈ番地から３７ｂｙｔｅのFileControlBlocMFCBと略称）が配置されている。外部装置にある（ileを入出力するのに使われるこのブロックは、図表３にみるように１１のフィールドからなっていろ。１ｂｙｔｅ目は、ＲＡＭＤｉｓｋ上に原データｆｉｌｅを

おいているので４（＝Ｄ：）とし、ついでｆｊｌｅ名を，､ＦＡＭＦＬＤＡＴ，，と全体が

８＋３byteｓになるように記入してある（前図表右側のＡＳＣＩＩ表示を参照のこと）。第４，５，１０，１１のフイールドは本プログラムでは、頻繁に書きこみ参照が行われる。－８７－

(21)

幽2３これらのdumplistは、ＭＳ－ＤＯＳ付属の機械語レベルの点検修正用ＵｔｉｌｉｔｙＤＥＢＵＧ・ＣＯＭのDump機能で表示したものである。その手続きは、図表１では、入力待ち状態で,debugb:３d-count、ｃｏｍ，と打ちこみ、ついでプロンプト’－，が出てからｄｕｍｐを指示する､。，とそのaddressのoffset 値（１６進）’１００，（default値が１００Ｈなのでここでは指定しなくてもよい）を打ちこむだけである。図表２は図表４の操作をした結果である。リスト３ ●－－－￣－－－－－－－－－－－－－－－－－－－－－－－－， ●●●●●●●●●●●●●●●■●■●●●●●●●●●●●●●●■●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●● 【Ｊ０Ｕｎｘ叩》（叩司虫〈、叩》二勺０口（〈叩クヱ】（・くⅡ》△几］△Ｐ．ｎ口》（□ｎｍ〉【ＴｐＤ０（叩再皿》〈Ⅷ部》《一ｍｍ》ロロ日ロー《叩〃』へ。こ■）△扣夘］△Ｆ【、》｛〃■叩）【〃〃，、■、〉（血ｕロシ《、叩》■■Ⅱ△〈囮〃】ヘロニコユムハ『今Ｐ【、》〆』血〉［〃Ⅱ，（叩伺）（叩■》《、皿ｖ〈叩】｜シ（ｍ切望《、〕々》《ｎＷ》（、叩Ｕ《ｎｕｕ《、叩》〈、ｕ》へⅢｕ》〈仰山》へ一ｍ叩〉（、叩》《、叩》幻ⅡⅡ（①ⅡⅡ△勺ⅡⅡ（。□日日（｜勺ⅡⅡ▲。Ⅱ０」。｜ⅡⅡ一心ⅡⅡ▲幻０Ⅱ（己０Ⅱ△ｎ℃〃】（Ｔ〃】、ロ〃ｕｎＵ〃】、〃〃】〈叩〃■ｎ〃正】｜、刀尻】ｎ〃妃］（切〆】（・くⅡ］勺一日■（｜屯Ⅱ■一口■■▲｜【で〃】くむ〃】、刀庇】一ｍ／】一ｍ刀庇】（Ⅵ〃】、〃庇】一（刃〃】（Ｔ〃■〈うめ】、〃必】（叩久］《》〃】《西／】、夕狂】、クニ】〈亜〃尻】、〃庇】《Ｕ〃】バグ歴】〈Ｔ”】。（咀〆】（ツェ】ｎ〃狂】（Ｔ〃】、クヱ】（宅〃】、〃妃】（刃巫】くむ〃】へ■〃】 ActualStartingPoint 一一一一一一一一 _一一一一一一一一一一一一一一一一一一一一」一 _一一一一ａｅｒａＣＩｌ一ｓ一一ＡｌｌＢ一一一－００’一一ｔ一一四・一一ａｙ－－ｒａ－－９ｒｄｌ一。ｒｅｌ』ｒａｖ－－Ｐｒｌｌｒｅ一一ｆｅｓｌｌｏｆｅ一一ｓＲ－一．ｎ一一ａａ７－－ｅｒｈ－－ｈｔＦ－．’ ０一一，，１一一一ｈｈ｛ ’ ’０２５－－０００－－１１１一一●９●９●０－－－一一一一一一一一一一一、１－－０－－く一－０３一’９ｇＰｌ－ＣＯｕ Ⅱ一一ｒｒｄ０一ｌＰＰ０－－１１一一ｔ１一ｌｒｌｌＣｌｌｈｌｅ一ｓ一１－６｜ｂ一ＰＰＲ｜ａ｜凪ｍｂ０一ｔ一・Ｊ・Ｊｄｌ一一ｐ一１．．一ｎ－ｂＴ一ｕｌｔＲ一Ｊ一一Ａｌ－ＰＴ一一ｍＳ；；．，。』；－－－＝一二~＝－－－－－－一＝－－－－一一二－－＝＝＝￣￣￣三一一一一；MainVariablestableonltems＆FileControleB1ock ;－－エーーーーーー一＝-－－－－－－－－－＝－－＝－－－=－－－ XＮｄｗｌｄｕｐ（O）；110h，Ｘ－ｉｔｅｍＮｏ， XＡｄｗｌｄｕｐ（O）；112h，X-itemAdr、 XＳｄｖｌ _{ｌｄｕｐ（O）；114h，X-Ans.､。./oｆｆｓｅｔｏｆｓｕｍｃｏＬ}

ＸＴｄｕｉ１ｄｕｐ（0）；116h，０fｆｓｅｔｏｆＸＳｉｎａｒｒａｙ（XS*2）

RＥＣ－ＮＯｄｗ

_{ｌｄｕｐ（0）；118h，recordnumbercount}

dumlyldb４ｄｕｐ（O）；11A~11Dｈ

ＸＫｄｗｌｄｕｐ（O）；11Eh，ＦｉｇｕｒｅｓｏｆＸ

YN YA YS YT dummy2 1TElllN １ｄｕｐ（0）１ｄｕｐ（O）１ｄｕｐ（O） lｄｕｐ（0）２ｄｕｐ〈O）６ｄｕｐ（?） ⅣⅣＵＵ０Ｄ０Ｄｕｄ０ｑ０ｑｕｄ０ｄ０ｄ ;120h，Ｙ－ｉｔｅｍＮｏ． ;122h，Y-itemAdr． ;124h，Y-Ans・no./offsetofsumcol． ;126h，Y-Intervalinarray（XS+1)*２ ;128~129ｈ ;１２A~12Fh，ｉｔｅｍＮｏ、inputbuffer lｄｕｐ（0）１ｄｕｐ（O）ｌｄｕｐ（0） lｄｕｐ（0）ｌｄｕｐ（0）酬酬四Ｈｑ０ｄ０ｄ日ｄｈｄ ⅣⅣＵＵＰ ;130h， ;132h， ;l34h， ;136h， ;138h，Ｚ－ｉｔｅｍＮｏ、 Z-itemAdr、 Z-Ans.､｡./offsetofsumcoL Z-IntervalinarrayYT(YS+1） Segmentofbasicarray ZT B-ARRY 8８

(22)

231: dUDUDy3

db

4 dup

(0)

;13A"'13Dh

232: ARRY_SZ dw

,1dup

(0)

;13Eh,

array s

,

size +1

233:

234:

tst

db

16 dup

(OFFH)

;140h,

write-in area for test

235:

FeB

db

4,"

FAMFL

OAT"

;150"'174h, File Control Block (37d)

236:

db

25 dup

(?)

header=drive .no.{3=C: ,4=D:}

237: dummy4

db

3 dup(OFFh)

;175"'177h, fill,FF as end mark

238:

rgJ.l

~O~7k%~~~U*~$~~/~

A>debu~ b: 3d_count. com

-d100 4755:0100 EB 76 E9 04 07 00 00 00-00 00 00 00 00 00 00 00 kvi . . . . 4755:0110 00 00 00 00 00 00 00 00-00 00 00 00 O{) 00 00 00

...

4755:0120 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

4755:0130 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

4755:0140 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF

...

4755:0150 04 46 41 40 46 4C 20 20-20 44 41 54 00 00 00 00 · FAMFL OAT.... 4755:0160 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

4755:0170 00 00 00 00 00 FF FF FF-56 I.E 8C C8 8E 08 8E CO ... V.•H~.X•• -d7eO

4755:07EO 03 F8 03 FB 03 FB 8B 05-01 04 41 EB DC 46 46 43 · x.

t.

i....Ak¥FFC 4755:0 7F

9

EB CF EB 38 90 2A 70 67-33 2C 54 72 61 6£ 73 20 tOk8. tpg3, Trans 4755:0800 74 6F 20 62 61 73 69 63-2A 56 IE 8C C8 8E 08 8E to basictV..H. X. 4755:0810 06 38 01 33 FF BE 00 30-Al 36 01 88 16 34 01 42 · 8. 3.

>.

0I6... 4. B 4755:0820 F7 E2 01 E8 8B C8 FC F3-A5 IF 5E CF IF 5E B4 4C wbQh.HIs%. "0. "4 L 4755:0830 CO 21 2A 42 55 46 46 45-52 2A 00 00 00 00 00 00 IltBUFFERt ... 4755:0840 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

4755:0850 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

-d 28'00 4755:2800 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

4755:2810 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

4755:2820 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

4755:2830 00 00 00 00 00 00 00 00-00 00 2A 54 61 69 6C 20 · ... traiI 4755:2840 6F 66 20 46 69 6C 65 2A-24 00 00 00 00 00 00 00 of FiIet$ ... 4155:2850 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

4,155: 2860 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

4155:2870 0'0 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

...

-g

181.2

~7~~~~~~U*~$~¥/~OO -d 3220 0100 EB 16 E9 04 01 00 00 00-00 00 00 00 00 00 00 00 kv i ... 3220 0110 86 00 C1 00 00 00 1A 00-00 00 00 00 00 00 00 03 .. A... 3220 0120 OA 00 11 00 OC 00 lC 00-00 00 06 03 31 37 30 00 · ... 110. 3220 0130 AA 00 FC 00 OA 00 6C 01-00 00 00 00 00 00 ,A4 OF t. I ...I ...$. 3220 0140 FF FF 01 00 FF FF FF FF-FF FF FF FF FF FF FF FF

...

3220 0150 04 46 41 40 46 4C 20 20-20 44 41 54 09 00 00 01 · FAMFL OAT.... 3220 0160 00 A8 04 00 5A 11 CO A3-43 02 00 29 01 2B 01 00 • t••

z.

'#C .. ).t .. 3220 0110 28 A8 04 00 00 FF FF FF-56 IE 8C C8 8E 08 8E CO (( .•.... V..H. X., -d8'3 , 94f 3220 0830 CD 21 2A 42 55 46 46 45-52 2A 30 39 35 31 35 31 HltBUFFERt095151 3220 0840 35 32 43 30 30 31 4F 39-35 32 31 31 30 38 33 32 52C0010952110832 3220 0850 30 31 32 4E 34 30 37 31-31 44 35 33 30 30 30 30 012N401110530000 322D 0860 30 30 30 30 30 30 30 30-30 30 30 30 30 30 30 30 0000000000000000 322D 0810 30 30 30 30 30 30 30 30-30 30 30 30 30 30 30 30 0000000000000000

(23)

-89-３２２，：0８８０３０３０３０３０３０３０３０〕Ｏ－３Ｏ３Ｏ３Ｏ３０３０３０３０３０３２２Ｄ：０８９０３０３０３０３０３０３０３０３０－３０３０３０３０３０３０３０３０３２２，：Ｏ８ＡＯ３０３０３０３０３０３Ｏ３０３０－３０３Ｏ３０３０３０３０３０３０３２２Ｄ：O８ＢＯ３０３０３０３０３０３０３０３０－３０３０３０３０３０３０３０３０〕２２，：Ｏ８ＣＯ３０３Ｏ３０３Ｏ３Ｏ３０３０３０－３Ｏ３０３０３０３０３０３０３０３２２Ｄ：０８，０３０３１３０３７３３３０３３３８-３０３３３５３４３２３０３０３１３２２，：O８ＥＯ３４３０３０３０３０３２３４３０－３０３Ｏ３０３２３４３０３０３０３２２Ｄ：Ｏ８ＦＯ３０３２４３３０３０３０３０３０－３４３０３０３０３０３２３４３０３２２，：０９００３０３０３０３２４３３０３０３０－３０３０４３〕Ｏ３０３０３０３０３２２Ｄ：０９１０３５３１３１３３３２３０３Ｏ３０－３Ｏ３０３０３１３１３１３０３０３２２Ｄ：0９２０３０３０３０３０３０３０３０３０＝３０３０３０３１３０３２３２４２３２２，：0９３０３１３２３２３６３４３０３８００－００００３Ｏ３９３５３１３５３１３２２Ｄ：0９４０３５３２４３３０３０３１４Ｆ３９－３５３２３１３１３０３８３３．３２０００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００１０７３０３８０３５４２００１４００００２４００００２４００００２ＣＯＯＯＯＯ４００００２４００００２ＣＯＯＯＯＯＣＯＯＯＯＯ５１１３２００００００１１１０００００００００００００１Ｏ２２Ｂ１２２６４０８．．．０９５１５１５２ＣＯＯ１００５２１１０８３２ルド群図表３ＦＣＢのブイ名前く大きさオフセットパイ－８３２２４２２８１４トｊ１６進Ｏ０ＨＯｌ～Ｏ８ＨＯ９～ＯＢＨＯＣＨ，ＯＤＨＯＥＨ，ＯＦＨｌＯ～１３Ｈ１４Ｈ，１５Ｈｌ６Ｈ，ｌ７Ｈ１８～lＦＨ２０Ｈ２１～２４Ｈ

進０８１３５９１３１２６

１１１１２２３３３０－－，，－－－１１９２４６０２４３１１１２２２３ドライバ番号ファイル名拡張子カレント(現在の)プロックレコードサイズファイルの大きさ最後に書き込みが行われた日付最後に書き込みが行われた時刻予約域カレント(現在の）レコード相対レコード出所文献１３，３頁デバッガ起動の実行画面図表４

A＞ｃｏｐｙｂ：ｆａｍｆＬｄａｔｄ：／ｖ

1個のファイルをコピーしました A＞ｄｅｂｕｇｂ３ｄ－ｃｏｕｎｔ・ｃｏｍ－ｇ

ｌｎｐｕｔＤｒｉｖｅＮｏ，ｏｆＦＡＭＦＬ・ＤＡＴＩＣ，Ｄ，Ｅ｝

ｌｎｐｕｔｔｈｅＯｂｊｅｃｔｌｔｅｍＮｏ．（ＰＩｕｒａｌｏｒ

ｌｔｅｍｂｅａｐｐｏｉｕｔｅｄｔｏＸ）Ｘ＝１３４ V＝１０Ｚ＝１７０ＰｒｏｇｒａｍｔｅｒｍｉｎａｔｅｄｎｏｒｍａＩ１ｙｄＭｕｌｔｉｐｕｌＡｎｓ。 9０

(24)

４ｐｒｏｇＯ（その１）対象項目番号の入力（リスト４，２３９三359行）

〔２４３－２４７〕まず、registerの退避とsegmentの統一を行う。

〔２４８－２６３〕つぎに、原データＦＡＭＦＬ・ＤＡＴの入っているＤｉｓｋDrive の番号（Ｃ、Ｄ、Ｅ）を入力させる。もしＣＲ（CarriageReturn）キーが押されたときにはdefault値として４（Ｄ）を、ＦＣＢの頭に書きこむ。〔２６４－２７８〕そして、図表４の実行画面に示されているように、下記のＳｕｄｒｏｕｔｉｎｅ，item-no，を呼びだしながら、分析する３つの項目の番号をＸ、Ｙ、Ｚ軸の順に入力させ、諸元テーブルの欄に書きこむ。そして、､ｃｈｋ－Ｘ，へとんで、チェックした後作業にはいる。〔２８０－２９０〕ｐｒｏｇＯまでに使用する表示用の文字列をまとめてある。変

数名の次の,ｄｂ’はdefinebyteの略でｂｙtｅ単位で割り付けることを意味する。

続く画１３，１０”はカーソルの復帰と改行のcodeである。そして表示は。＄，

マークが来るまで一度になされる（２８４－２８６行も）。その他詳しくは文献５の

５８－６０頁ほかを参照されたい。

〔２９２－３２４〕Keyboardから項目番号を入力させるSubroutine,item-

no’である。項目番号は３桁までの１０進数で入力される(マクロ３，flash-get-string）から、内部処理の形式である２進数に変換しなければならない。それは位ごとに処理しなければならないので、マクロ４の１０進数チェックをへて、３回積算しているのである。〔３２６－３５９〕《ｃｈｋ－ＸＡ特殊項目をチェックするroutineである。前述のように、複数項目と多重項目を処理対象に加えているので、それらのチェックをここで行う。なお処理の都合上、特殊項目は最初に（Ｘ軸に）指定することにしている。複数項目には、１４８番（回答回数あるいは桁数３）以下、１５２，１５６，１５８番(同すべて２）があり、該当すればその回答回数を変数ＸＫに書きこむ〔３４３行まで〕・多重項目には、１１７番(記録桁数２）、１２５番～１４０番（同３）、１６１番（同４）がある。この場合には、各桁数を１６進で２桁左にずらし２００Ｈのようにして、変数ＸＫに書きこむ〔３４４行以下〕。こうして後で区別できるようにしているのである。－９１－

(25)

I)~ ~

4 ;

strings for instructions above

;---~---=======================================================

J

-=======================================================

J

;-} YN

;-} ZN

;display macro (displ)

;input item number

;-) XN

;then a1=4=0 {default}

;assign drv. no. to FCB

;if CR

;hex ascii code -)binary numeric

;if

<C

;then retry

;if

}F

;then retry

;hexascii(COE) -)binary(345)

;display macro

;OF. Read Keyboard

&

Echo

Object Item No. Input

display disp2

call

item_no

mov

YN,cx

displa.y crlf

jmp

chk_X

display

disp3

call

item_no

mov

ZN,cx

;---~---progO:

push

si

push

ds

mov

ax,cs

mov

ds,ax

110 V

eS,ax

;---

input source Drive no.

pOi:

xor

cX,CX

display drv_no

mov

ah,1

int

21h

cmp

a1,ODh

je

pOi_l

hasc2bin

CIBp

a1,OCh

jb

pOi

cmp

a1,OEh

ja

pOi

sub

a1,9

jllP

short

pOi_2

pOi_l:

mov

a1,4

pOi_2:

mov

FCB(O),al

:---

input Item No.

display displ

call

item_no

mov

XN,cx

;

programO

239:

240:

241:

242:

243:

244:

245:

246:

247:

248:

249:

250:

251:

252:

253:

254:

255:

256:

257:

258:

259:

260:

261:

262:

263:

264:

265:

266:

267:'

268:

269:

270:

. 271:

272:

273:

274:

275:

276:

277:

278:

279:

280:

281:

282:

-

(26)

92-

---xO=multi ans.

---_

...

---;2nd-keta*10 -}ax(al)

;+

-}cl

.

;3rd-keta*100 -}ax(al)

;+

-}cl

;real figures -}bx

;tail numeric

;tail or last figure

item_in,bx

;-} cl

13,10,'Input Drive No. of FAMFL.DAT tC,D,E} $'

13,10,'Input the Object Item No. '

'(Plural or Multipul Ans. Item be appointed to X )'

13,10,'

X=

$'

13,10,'

y=

$'

13,10,'

Z=

$'

13,10,'$'

;=Carriage Return

&

Line Feed

, re-input!

$'

drv_no

db

disp1

db

ret

disp2

disp3

crlf

re_inp

;=======

Sub rout.0_1 : Item No. Input

item_no proc

;-- buffered keyboard input of item number

no_inp:

flush_get_string

item_in,item_no_buf_sz

;-- decimal -} binary

xor

bx,bx

moy

cx,bx

moy

bl,item_in(l)

inc

bx

;--

fig

1 decimal_inp_chk

moy

cl,al

dec

bx

cmp

bx,1

;if item's figure(keta)=l

je

pOi_r

;then exit

;--

fig

2 ;

last 2 figure

decimal_inp_chk

item_in,bx

mov

ah,

10 mul

ah

add

cl,al

dec

bx

cmp

bx,l

;if item's figute=2

je

pOi_r

;then exit

;--

fig

3 ;last

3 figure

decimal_inp_chk

item_in,bx

mov

ah,

100 mul

ah

add

cl,al

;============

Check Ans. Form of

X

; (XK) 01=single ans.

Ox=plural ans.

283:

284:

285:

286:

287:

288:

289:

290:

291:

292:

293:

294:

295:

296:

297:

298:

299:

300:

301:

302:

303:

304:

305:

306:

307:

308:

309:

310:

311:

312:

313:

314:

315:

316:

317:

318:

319:

320:

321:

322:

323:

324:

325:

326:

327:

-

(27)

93-１ｂｔ１ｈｈｈ』８ｏ２６８田。７０ｏ４１０．１ＯｅＮ４１－５２５２５２－－．１２０－２３４３０’６０ｋ１ＩｌＰ３０１Ｐ１Ｐ１Ｐ０２０ｓ１■２０１囚１国３０１ｏ４ａ，９７－，Ｐ・一・’９一ＰＤＰ、ＤｌＤＰ９｜，】，Ｐ０－０皿

肌励団伽加川ｔ伽Ｗ伽Ⅶ肱汕ｔ肌ｔａ伽加川ｔ駆加伽加川ｔ伽加川ｔ

ｎｒｒｒＸｒｒｒａｏｏｏｅｏｏｏｈｈｈ１ｈｈｈｌｓｓｓＰｓｓｓａ・工ｖｖｒ・ＰｅｖＰＰＰＰｐｖＰｔＰｅｖｐＰａＰｂｖＰＰｅｖＰ

ｍｍ皿國・卯函・狐函・罪四・覗函・肥・狐函・狐乢叩・加印・狐函・加國・加印・狐函・加配・狐

Ｐ凪 ●●一 ●●｜●ＤＸ’ １２－１２３一・９ＰＰ。，凪ｎ国ｏｋｈ００００００ｃ・ＰｐＰＰＰＰ ■●●●■●●●●●●●●●●●●●●■●●●●■●●●●●●●●●●●●●●●●●●■●●●●●●●●●●●●●●●●●●●●●●

別四列弧犯兜測箔犯羽犯羽仙虹咄岨仏岨妬靭蛆岨別別兜兜別弱究引別別Ⅲ

〔｜こ□］（。（口｝へ］兵、》（｜竺口］《・くり）へワニ■］へ．こり］つく口》へ宮ご口）へ一矼口》〔ロベロ）（刀こり》へ口昼ロニヘロこり｝へ．くり》へ臣こ□）（・くり）（●垈曰二へロベロ》へこく、）（ワニ、）へ□冬Ⅱ》へ●二口）へロニロ｝（・■ロゴへ］こ■》《・矼口》へ．■■）ヘロニロニヘロ已口》（・垈已｝（］冬ロ）へ皀笙□） ;Ｑ12-2,3mg． ;Ｑ１５，２fig． ;Ｑ１８，，． ;Q19,“ ;Ｑ２／ＩＦＸＮ=ｌ１７ＴＨＥＮＸＫ=２ ;Ｑ７／ＩＦＸＮ>ｌ２４ＡＮＤＸＭ１４１ＴＨＥＮＸＫ=３ ;Q２１／ＩＦＸＮ=l61THENXK=４５ｐｒｏｇＯ（その２）対象項目諸元テーブルの作成（リスト５，３６１－４５９行）ｐｒｏｇＯの後半で、各項目の諸元を作成記入する《make-tbl，routineである。

〔３６３〕冒頭の文字列のラベル,Ｍ０，は、修正（debug）のため、機械語

に変換後も見分けられる部分プログラムの頭（ＨｅａＤ）の標識としていれてある（以後区切りごとに同様のものが出てくる）。〔３６５－３７８〕ＸＹＺ項目それぞれのRecord上の位置（Address）と回答

肢数（Width）を、下記のOadr-width，Subroutineを呼んで定め、テープ

－９k１－

(28)

ルに書きこむ。〔４０６－４３９〕Subroutine,adr-width，項目番号から数値テーブル（４４１－４５９行、，size’は回答肢数、《adr’はその項目の各群内でのoffset 値)を参照しながら、そのRecord上の位置と回答肢数(注)２４を求めてａｘおよ

びdxRegisterに入れreturnする。項目番号４から１１３番までは家族Face

sheetで、１人１０項目が１１人分あるので、数値テーブルは、１人分だけを第

２群として表示し、その前の項目群を１群、後のを３群として記述を節約してい

る。

〔３７９－３９４〕《interval，ＸＹＺの値(回答肢番号）に対応する配列中の

Cellの位置算定のための、各軸ごとの間隔（interval）を計算し、テーブルへ

書きこむ。Ｙの間隔ＹＴはＸ軸項目の合計欄を含めた占有幅が１周期となるので

（ＸＳ＋１）の２倍のｂｙtｅ数、Ｚの間隔ＺＴはさらにＹ軸項目の合計欄を含め

た占有幅が周期になるからＹＴ×（ＹＳ＋１）bytesになる。なおＸ軸について

は周期は単純に２byteｓごとなのでこれを謝意する必要はなく合計欄の位置を示

す値ＸＳ×２としてＸＴを定めろ（曲2.4参照)。

〔３９５－４０４〕,array-clr，配列の入る領域をマクロ９のOblock-storew

を用いてＯで埋め清掃する。続く１６bytesは配列終端の目印としてＦＦＨで埋

めろ。これは、総合計欄が入っている終端部は各部分の動作の適否をチェックするのに重要な部位だからであり、しかも繰り返し使用すると以前の数値が残って終端が不明になってしまうのを防ぐためにも必要なのである。

油2.4数値テーブルの,size，には、有効回数(掲示されている選択肢数の

意)が入っているが、例外の処理のため無答(番号０）とその他回答の欄とを設け

る必要から、２を加えたものを回答肢数として諸元テーブルに書きこんでいる。

そしてこの数値の２倍は、無答欄が０番地(基準番地）であるため、合計欄の

offset値となる。－９５－