シャープのポケコンをシフト・レジスタに繋げてパラレル出力：Connecting a pocket computer to a shift register for parallel output

Описание: 字幕ONにしてください。前に6足ロボット・フォロにシフト・レジスタ74HC595を使ったLEDディスプレイの付加をアップロードしましたが、そのシフト・レジスタとLED部分をモジュールとして取り外して、シャープのポケコンPC-G850VSに接続しました。
これで3本の信号線で8ビットの出力が制御でき、さらにシフト・レジスタをさらに繋げることもできます。
8と15ビットで動作させる実験を行い、プログラム言語はBASICを用いました（16ビットでなくて15ビットなのはこのBASICの事情によります）。

   • プロポRC化フォロ：ロボットのスピードで変化するLEDディスプレイの製作：RC FO...  
前にアップロードしたフォロへのLEDディスプレイ搭載です。

   • シャープポケコンPC-G850VSの11ピンI/0使用例集：Sharp Pocket...  
以前アップロードしたポケコンの11ピンI/0の使用例集です。

00:00 経緯と概要
01:02 フォロのLED回路
01:12 抜き出したモジュール
01:35 シフトレジスタ連結の回路
01:47 メニュー画面
02:11 8ビット入力動画
03:38 8ビットのインクリメント動画
04:21 16ビット入力動画
05:05 16ビットのインクリメント動画
05:17 プログラム・リスト
05:51 LEDの明るさの調整

全プログラム・リストです。
'******* SHIFT REGISTER 74HC595 PARALLEL OUT *****
W=8
'
CLS
OPEN "PIO:"
PIOSET &HF8 'BIT0..2 OUTPUT
'
*LP
POF=0 'PARALLEL OUT MODE FLAG
CLS
LOCATE 15,0:PRINT "EMPTY:END"
PRINT "1:INPUT MODE 1"
PRINT "2:INPUT MODE 2"
PRINT "3:INCREMENT"
PRINT "4:SWITCH 8/15 : ";W
PRINT "SELECT 1..4 ";
GOSUB *ISUB
IF EFLG=1 THEN END
IF V=4 THEN
IF W=8 THEN W=15 ELSE W=8
GOTO *LP
ENDIF
IF V=3 THEN GOSUB *INC: GOTO *LP
IF V=2 THEN POF=1
PRINT '1 OR 2
GOSUB *IND
GOTO *LP
'
'INPUT SUB:SET EFLG,V
*ISUB
M$=""
INPUT M$
IF M$="" THEN EFLG=1 ELSE EFLG=0:V=VAL M$
RETURN
'
'INPUT AND SEND D DATA
*IND
PRINT "DATA : ";
GOSUB *ISUB
IF EFLG=1 THEN RETURN
D=V
GOSUB *SENDD
GOTO *IND
'
'INCREMENT
*INC
PRINT
PRINT "START ";
GOSUB *ISUB
IF EFLG=1 THEN RETURN
ST=V
PRINT "LAST ";:INPUT LA
FOR D=ST TO LA
GOSUB *SENDD
NEXT D
GOTO *INC
'
'SEND W BIT D DATA TO SHIFT REGISTER
*SENDD
IF W=8 THEN B=&H80 ELSE B=&H4000 'SET LSB
'
FOR C=1 TO W
IF (D AND B)=0 THEN X=0 ELSE X=1
PIOPUT X
X=X OR 2
PIOPUT X
IF POF=1 THEN PIOPUT 4
B=B/2
NEXT C
'
PIOPUT 4 'PARALLEL OUTPUT
RETURN