#include <16f648A.h>
#fuses HS,NOWDT,PROTECT
#use delay(clock=10000000)

void main()
　{
　　int data[32]={0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,
　　　　　　　　　0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
　　　　　　　　　0x00,0x10,0x20,0x30,0x40,0x50,0x60,0x70,
　　　　　　　　　0x80,0x90,0xA0,0xB0,0xC0,0xD0,0xE0,0xF0};
　　int *ptr=&data;
　　int atai,i;
　　set_tris_b(0x00);
　　set_tris_a(0x00);
　　output_b(0x00);
　　output_a(0x00);
　　while(1){
　　　　　　　ptr=data;
　　　　　　　for(i=0;i<=31;i++)
　　　　　　　　{
　　　　　　　　　if(i<15){
　　　　　　　　　　　　output_bit(PIN_A2,0);
　　　　　　　　　　　　output_bit(PIN_A3,1);
　　　　　　　　　　　　}
　　　　　　　　　if(i>15){
　　　　　　　　　　　　output_bit(PIN_A2,1);
　　　　　　　　　　　　output_bit(PIN_A3,0);
　　　　　　　　　　　　}
　　　　　　　　atai=*ptr;
　　　　　　　　output_b(atai);
　　　　　　　　delay_ms(100);
　　　　　　　　ptr++;
　　　　　　　}
　　　　　}
　}

　HC154の最大出力電流は25ｍAです。ここでは青のLEDを使い,15mA程度にするため抵抗値は１００Ωにしました。この回路図には記していませんが、HC154に２SA1015をエミッタ接地でバッファとしていれて，パワーLEDも駆動できるようにしています。コレクタの最大電流は１００ｍAで、日亜の白LED NSPW510BSを3個パラ接続して実験しました。フラッシュのように点灯しました。Dutyが低いダイナミック点灯にすればより高輝度で使えます。

　回路はＰＩＣ１６Ｆ６４８ＡとＨＣ１５４を２個の構成になっています。ＬＥＤは全部で３２個あります。ポートはＡ，ＢポートありますがＬＥＤの点灯はＢポートだけ使います。Ｂポートは８ビット分ありますが、これを２グループに分け各々のグループで４to16のＨＣ１５４を使い最大３２個のＬＥＤを制御します。HC１５４はABCDの4ビットのアドレス指定により、０から１５の指定された出力ラインに取り出すデマルチプレクサで、入出力ともLowActiveです。

　ＬＥＤを３２個一列に並べ、１個ずつ順次点灯していきます。ＰＩＣのＢポートの８ビットだけを使って、３２個のＬＥＤを制御します。ＬＥＤは74HC154Aのポートに直接つなぎ、ダイナミック点灯させています。

　ＢポートのＲＢ０からＲＢ３の４ビットをＨＣ１５４に入力します。４ビットの１６進数の値に応じて、ＨＣ１５４のポートをLowにしてＬＥＤを点灯させます。Ｂポートの残りのＲＢ４からＲＢ７は、もう一つのＨＣ１５４に同じようにつながります。今回は順次フローとしてＬＥＤを点灯させるので、点灯させるＬＥＤのヘキサ値は、１次の配列としてその配列のデータをポインタで読み出していきます。０ｘ００は２個のＨＣ１５４で存在するため,一方のＨＣ１５４の値を読むときは、他方のＨＣ１５４はＰＩＣのＲＡ２，ＲＡ３でディスエーブルしています。int*ptr=&dataはdataのアドレスをポインタに入れます。atai=*ptrはアドレスが示す場所のデータを読みます。ポートは全て出力に設定します。後は、While文を実行し続けていくことになります。