ＣＡＳＬ２

プログラミングＣＡＳＬ選択したのですがいくら考えても問題が解けません。解き方と回答を教えていただきたいです。長い質問ですみませんがよろしくお願いします。
2つのプログラムＢＣＮＴ１　ＢＣＮＴ２はいずれも与えられた１語の中のビット値1の個数を数える副プログラムである。
1.処理対象となる１語の値はＧＲ１に設定されて主プログラムから渡される。
2.副プログラムで数えたビット値1の個数はＧＲ０に格納して主プログラムに戻る。
3.たとえばＧＲ１に＃００ＦＥを設定して副プログラムＢＣＮＴ1を呼び出すとＧＲ０に＃０００７が返却される。副プログラムＢＣＮＴ２も同様である。
（プログラムＢＣＮＴ１）
（行番号）
101ＢＣＮＴ１ＳＴＡＲＴ
102ＲＰＵＳＨ
103ａ
104Ｌ１０ＳＬＬ　ＧＲ１，１
105ｂ
106ＪＺＥ　Ｌ１２
107ＪＵＭＰ　Ｌ１０
108Ｌ１１　ＡＤＤＡ　ＧＲ０，＝１
109ＪＵＭＰ　Ｌ１０
110Ｌ１２ＲＰＯＰ
111ＲＥＴ
112ＥＮＤ
　　　　　　
（プログラムＢＣＮＴ２）
（行番号）
201ＢＣＮＴ２ＳＴＡＲＴ
202ＲＰＵＳＨ
203ａ
204ＬＡＤ　ＧＲ３，＃０００１
205Ｌ２０ＬＤ　ＧＲ２，ＧＲ１
206ＡＮＤ　ＧＲ２，ＧＲ３
207ｃ
208ＡＤＤＡ　ＧＲ０，＝１
209Ｌ２１ｄ
210ＪＮＺ　Ｌ２０
211Ｌ２２ＲＰＯＰ
212ＲＥＴ
213ＥＮＤ

ａ
アＬＡＤ　ＧＲ０，０イＬＤ　ＧＲ０，０ウＬＤ　ＧＲ１，ＧＲ
エＰＵＳＨ　０，ＧＲ１オＳＴ　ＧＲ０，０
　
ｂ
アＪＭＩ　Ｌ１１イＪＭＩ　Ｌ１２ウＪＯＶ　Ｌ１１
エＪＯＶ　Ｌ１２オＪＰＬ　Ｌ１１カＪＰＬ　Ｌ１２

ｃ
アＪＭＩ　Ｌ２１イＪＭＩ　Ｌ２２ウＪＮＺ　Ｌ２１
エＪＮＺ　Ｌ２２オＪＺＥ　Ｌ２１カＪＺＥ　Ｌ２２

ｄ
アＳＬＬ　ＧＲ１，１イＳＲＬ　ＧＲ２，１ウＳＬＬ　ＧＲ２，１
エＳＬＬ　ＧＲ３，１

No.2 回答者： kaneoka 回答日時： 2008/02/23 23:01

BCNT2のほうは、あまり見てないけど、BCNT1はホントに間違いないですかね。

103行目はGR0をクリアーする命令に間違いないと思いますので、「LAD GR0,0」でしょう。
このプログラムは、16回ループしなければなりませんから、この比較が必要です。
104行目を見ると、GR1を左論理シフトしてますから、シフトして無くなったビットが1なら、フラグレジスタOFに1がセットされます。
ということで、105行目は、「JOV　L11」だと思うのですが、そうするとどこにも「16回ループしたか」を判定するところがありません。
変ですね・・・

この回答へのお礼

お礼遅くなってすみません。回答していただきありがとうございます。
ＢＣＮＴ1見直しましたが間違いありませんでした。
ＣＡＳＬ２は本屋さんにもほとんど置いてなくて、私は全くの初心者で通信教育はじめたのですがプログラミングになるとテキストいくら読んでもわからないのです。ましてや応用問題になると時間だけがすぎていきます。この問題で一ヶ月ぐらいすぎようとしています。
何かいい方法ありますか？

お礼日時：2008/02/27 19:26

No.1 回答者： neKo_deux 回答日時： 2008/02/20 14:00

CASL2シミュレータに実際の4通りのプログラムをぶち込んで実行、動作を解析、確認してみては？

Vector> ダウンロード> Windows> プログラミング> 情報処理用 CASL・COMET
http://www.vector.co.jp/vpack/filearea/win/prog/ …

この回答へのお礼

お礼が遅くなってすみません。
回答していただきありがとうございます。
ただシミュレータがダウンロードできません～。私のやり方がおかしいと思うのですが残念です。

お礼日時：2008/02/27 21:17