ＰＩＣＢＡＳＩＣコンパイラ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
まるでインタプリタ。でもコンパイラです。超カンタン超シンプルです。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

［第２５０回］



●新ＰＩＣＢＳ０２（ＰＩＣ１８Ｆ４５Ｋ５０）ＬＥＤチカチカ

ＬＥＤチカチカはＰＩＣプログラムの定番です。
いまどきは大抵はＣ言語でしょうけれど。
ＰＩＣに限らずＣ（Ｃ＋＋）はなかなかに大変です。
かといってアセンブラはもっと大変です。
いえ。
私に言わせればＰＩＣの場合アセンブラのほうがＣ＋＋よりもなんぼか簡単だと思います。
ＰＩＣのアセンブラはクセツヨですけれどＣ＋＋のほうがもっとクセツヨで慣れるまでが大変です（どちらも同じか）。
その点ＢＡＳＩＣは実に簡単です。
前口上はそのくらいにしてさっそく取り掛かりましょう。

ＰＯＲＴＤのビット０とビット１を交互に点灯させます。
ＴＲＩＳＤはＰＯＲＴＤの方向定義レジスタです。
０のビットが出力、１のビットが入力になります。
ＴＲＩＳＤ＝０は００ですから全ビットが出力になります。
ＰＯＲＴＤ＝１は０００００００１です。
ビット０が１（ビット１は０）になります。
ＰＯＲＴＤ＝２は００００００１０です。
ビット１が１（ビット０は０）になります。
ｗａｉｔ　０はこのＢＡＳＩＣでのローカルな関数です。
ｗａｉｔ　０は２５６ｍｓｅｃのタイマーです。
プログラムはこれだけです。
とっても簡単です。
プログラムを実行するには／ＲＵＮコマンドを入力します。

／ＲＵＮを実行するとコンパイラが起動してＰＩＣのマシン語コードに翻訳されたあとそのコードがＰＩＣ１８Ｆ４５Ｋ５０に書き込まれてそのあとプログラムが実行されます。
実行中の写真を撮ろうとしたのですが２５６ｍｓｅｃではちょっと時間が短すぎてタイミングが取りにくかったのでもう少し長くウエイト時間を取ることにしました。
プログラムの実行を中止するには［Ｃｔｒｌ］［ｂ］を入力します。

マシン語コードで実行されているのですがちゃんとプログラムを中止することができます。
ＬＩＳＴコマンドを入力するとソースプログラムが表示されます。
ｗａｉｔ関数のパラメータは０〜２５５で０が最大値（２５６ｍｓｅｃ）です。

ですのでｗａｉｔ　０を４回実行するようにプログラムを変更しました。
何をやっているかわかりますでしょうか？
スクリーンエディタ機能が使えますからカーソルを移動して行番号のみ書き換えて［Ｅｎｔｅｒ］を入力するだけで新規行が追加されます。
便利です。
ＬＩＳＴコマンドで確認しました。

これで約１秒のウエイト時間になりました。
／ＳＡＶＥコマンドでソースプログラム（テキストファイル）を保存しました。


もう一度／ＲＵＮコマンドでプログラムを実行しました。

コンパイラの表示が多くて／ＲＵＮコマンドがスクロールして見えなくなってしまいました。
ｐｒｏｇｒａｍ　ｓｔａｒｔｅｄと表示されてマシン語コードに翻訳されたプログラムが実行開始されました。

実行中の写真です。

ビット１が点灯しています。

１秒後にビット１が消灯してビット０が点灯しました。

１秒間隔で上記を交互に繰り返しています。

ＰＩＣＢＡＳＩＣコンパイラ［第２５０回］
２０２６．１０．９　ｕｐｌｏａｄ

前へ
次へ
ホームページトップへ戻る