(since 1998/11)(更新　2004/02/26)

ＴＮＯ２:ＣＡＳＬ入門[7]
情報系/IT系の広告を掲載しています。(広告一覧)
©Copyright 1998-2001,2003,2004 小野智章(小野情報設計)
無断転載を禁止します。
本ページは、「Ｒｏｏｋ」仕様に対応済みです。
ＣＡＳＬ入門[目次]
ＣＡＳＬ入門[索引]
ＣＡＳＬ入門[6]
ＣＡＳＬ入門[8]
(chapter7-page1)
７-１．数値の入力とアドレス計算

　「ＩＮ」命令と「ＯＵＴ」命令で文字列の入力と出力が出来ました。 同様に、数値を出力する「ＷＲＩＴＥ」命令に対応して、 数値を入力する命令もあります。 数値を入力するには、 「ＲＥＡＤ」命令を使います。 但し、「ＲＥＡＤ」命令も「ＷＲＩＴＥ」命令も、 本来のＣＡＳＬIIには無い、学習に便利な様にＲｏｏｋに追加された命令です。
　それでは、数値を入力して対応する血液型を表示するプログラムを作ってみましょう。
　まず、血液型に対応する数値を決めておきます。 この様な数値を、血液型コードと呼ぶことにします。 （一般に、何か意味のあるものを表す数値のことを、コードと言いましたね。）

　　 血液型 　　　Ｏ　　Ａ　Ｂ　 ＡＢ
　血液型コード　　０　　１ 　２　 ３
　この血液型コードを入力して、対応する血液型の文字列を表示させます。
ＳＡＭＰＬＥ 　ＳＴＡＲＴ
　 ＲＥＡＤ 　１
　 ＬＤ 　ＧＲ０，Ｔ１，ＧＲ１ ；１−ＭＯＪＩＭＥ
　 ＳＴ 　ＧＲ０，Ｏ１
　 ＬＤ 　ＧＲ０，Ｔ２，ＧＲ１ ；２−ＭＯＪＩＭＥ
　 ＳＴ 　ＧＲ０，Ｏ２
　 ＯＵＴ 　ＳＴＲＩＮＧ，ＬＥＮ
　 ＥＸＩＴ
ＳＴＲＩＮＧ 　ＤＣ 　’ＴＹＰＥ＝’
Ｏ１ 　ＤＳ 　１ ；１−ＭＯＪＩＭＥ
Ｏ２ 　ＤＳ 　１ ；２−ＭＯＪＩＭＥ
ＬＥＮ 　ＤＣ 　７
Ｔ１ 　ＤＣ 　’ＯＡＢＡ’ ；１−ＭＯＪＩＭＥ
Ｔ２ 　ＤＣ 　’　　　Ｂ’ ；２−ＭＯＪＩＭＥ
　 ＥＮＤ
(chapter7-page2)
　次の出力例は、「３」を入力した場合の実行例です。
Input : GR1 = 3(0003)
TYPE=AB
 プログラムは、PR[0012;SAMPLE+18]が指定したEXIT命令で終了しました。
　プログラム中に何ケ所か出てくる「；」は、 その行の「；」より右がコメントであることを表しています。 このコメントはプログラムの実行には何の影響もありませんが、 プログラムを読み易くするために付け加えられます。
　「ＲＥＡＤ　１」は、キーボードから数値をＧＲ１に入力します。 「ＲＥＡＤ」命令の記述形式は「ＷＲＩＴＥ」命令と同様です。
　アドレス「Ｔ１」とアドレス「Ｔ２」に それぞれ血液型コードを加算したアドレスからの１文字づつを、 出力用文字列に入れています。 その文字と血液型コードの関係は、次の様になります。
　 血液型コード 　　　　　 ０　 １ 　　 ２ 　　 ３
「ＬＤ　ＧＲ０，Ｔ１，ＧＲ１」
　　　の後のＧＲ０の値　　　　		 ’Ｏ’ ’Ａ’ ’Ｂ’ ’Ａ’
「ＬＤ　ＧＲ０，Ｔ２，ＧＲ１」
　　　の後のＧＲ０の値　　　　		 ’　’ ’　’ ’　’ ’Ｂ’
　 表示される血液型の文字列 　’Ｏ　’’Ａ　’’Ｂ　’’ＡＢ’
(chapter7-page3)
７-２．アドレス・テーブル

　このプログラムでは、 血液型を表す文字がプログラム上でバラバラになっていて、 どの様な表示になるのか分かりにくくなっています。 例えば、血液型ＡＢを表す文字列が、 「’ＡＢ’」の形で出て来る方が分かり易いですね。
　それでは、表示される血液型の文字列が そのままプログラム中に出て来る様なプログラムを、作ってみましょう。
ＳＡＭＰＬＥ 　ＳＴＡＲＴ
　 ＲＥＡＤ １
　 ＬＤ 　ＧＲ１，ＡＤＲＳ，ＧＲ１
　 ＬＤ 　ＧＲ０，０，ＧＲ１ ；１−ＭＯＪＩＭＥ
　 ＳＴ 　ＧＲ０，Ｏ１
　 ＬＤ 　ＧＲ０，１，ＧＲ１ ；２−ＭＯＪＩＭＥ
　 ＳＴ 　ＧＲ０，Ｏ２
　 ＯＵＴ 　ＳＴＲＩＮＧ，ＬＥＮ
　 ＥＸＩＴ
ＳＴＲＩＮＧ 　ＤＣ 　’ＴＹＰＥ＝’
Ｏ１ 　ＤＳ 　１ ；１−ＭＯＪＩＭＥ
Ｏ２ 　ＤＳ 　１ ；２−ＭＯＪＩＭＥ
ＬＥＮ 　ＤＣ 　７
ＡＤＲＳ 　ＤＣ 　□□□
　 ＤＣ 　□□□
　 ＤＣ 　□□□
　 ＤＣ 　□□□
ＴＯ 　ＤＣ 　’Ｏ　’
ＴＡ 　ＤＣ 　’Ａ　’
ＴＢ 　ＤＣ 　’Ｂ　’
ＴＡＢ 　ＤＣ 　’ＡＢ’
　 ＥＮＤ
(chapter7-page4)
　「□」の部分をどうすれば、 次の様な正しい結果が得られるでしょう。
　この例は、「２」を入力した場合の実行例です。
Input : GR1 = 2(0002)
TYPE=B
プログラムは、PR[0014;SAMPLE+20]が指定したEXIT命令で終了しました。
　さて、正しいプログラムが出来ましたか？答えは次の様になります。
［穴埋め部分］
ＡＤＲＳ 　ＤＣ 　□□□
　 ＤＣ 　□□□
　 ＤＣ 　□□□
　 ＤＣ 　□□□
［答え］
ＡＤＲＳ 　ＤＣ 　ＴＯ
　 ＤＣ 　ＴＡ
　 ＤＣ 　ＴＢ
　 ＤＣ 　ＴＡＢ
　「ＬＤ　ＧＲ１，ＡＤＲＳ，ＧＲ１」で血液型コードの「０〜３」に対応して、 アドレス「ＴＯ〜ＴＡＢ」がＧＲ１に入ります。 そのアドレスからの２文字分を、その後、アドレス「Ｏ１，Ｏ２」に入れています。
　アドレス「ＡＤＲＳ」からの４語にはアドレスが入っています。 この様なアドレスの 入った表のことをアドレス・テーブルといいます。 （コンピュータの世界では、表のことをテーブルと呼ぶことがあります。） アセンブリ言語では、 この様にアドレス・テーブルを使って アドレスをレジスタに読み込む事が良くあるので、 覚えておきましょう。

(chapter7-page5)
　次のプログラムの様に、アドレス・テーブルを使わない方法もあります。
ＳＡＭＰＬＥ 　ＳＴＡＲＴ
　 ＲＥＡＤ 　１
　 ＡＤＤＡ 　ＧＲ１，ＧＲ１
　 ＬＤ 　ＧＲ０，ＴＯ，ＧＲ１ ；１−ＭＯＪＩＭＥ
　 ＳＴ 　ＧＲ０，Ｏ１
　 ＬＡＤ 　ＧＲ１，１，ＧＲ１
　 ＬＤ 　ＧＲ０，ＴＯ，ＧＲ１ ；２−ＭＯＪＩＭＥ
　 ＳＴ 　ＧＲ０，Ｏ２
　 ＯＵＴ 　ＳＴＲＩＮＧ，ＬＥＮ
　 ＥＸＩＴ
ＳＴＲＩＮＧ 　ＤＣ 　’ＴＹＰＥ＝’
Ｏ１ 　ＤＳ 　１ ；１−ＭＯＪＩＭＥ
Ｏ２ 　ＤＳ 　１ 　；２−ＭＯＪＩＭＥ
ＬＥＮ 　ＤＣ 　７
ＴＯ 　ＤＣ 　’Ｏ＿’
ＴＡ 　ＤＣ 　’Ａ＿’
ＴＢ 　ＤＣ 　’Ｂ＿’
ＴＡＢ 　ＤＣ 　’ＡＢ’
　 ＥＮＤ
　入力された血液型コードを２倍してアドレス「ＴＯ」を加算し、 そのアドレスからの２文字を出力する文字列に入れています。 血液型コードの２倍とアドレス「ＴＯ」の和は、 ＴＯ＋０，ＴＯ＋２，ＴＯ＋４，ＴＯ＋６となります。 これはＴＯ，ＴＡ，ＴＢ，ＴＡＢと同じになります。 「ＤＣ」命令のデータの格納場所は、出現した順に確保されているからです。 従って、求める結果が得られることが、分かりますね。
　この例では、２文字の出力でしたが、 ３文字や４文字以上の場合にどの様にするかも、考えておいて下さい。
ＣＡＳＬ入門[目次]
ＣＡＳＬ入門[索引]
ＣＡＳＬ入門[6]
ＣＡＳＬ入門[8]
学習室
トップ・ページへ
質問・ご意見等、お待ちしております。
小野智章(小野情報設計)　
Mail to Mail連絡先
©Copyright 1998-2001,2003,2004 小野智章(小野情報設計)
無断転載を禁止します。