8052AH-BASIC SBC
8052AH-BASIC
- 8052AH-BASIC
8052-AH BASICをなかなか見つけられないでいたが偶然見つけた。
マルツの特価半導体を眺めていたら特価現品限りで8052AHが出ていた。web上の画像はマーキングが消してあったので、P8052AH-BASICかどうかは判らなかったけど、まあ１つ買ってみるかと注文したらP8052AH-BASICだった。
バージョン1.1 (1991/11週か)
じゃあSBCを作ってBASIC-52で遊んでみるかと - 回路図
回路図はMCS BASIC-52に掲載されているRAMとEEPROMを使ったもの
マニュアルは74LS138(3to8 Demultiplexer)を使っているが、74HCT139(Dual 2to4 Demultiplexer)を使うようにした。74HCT139を使うとA000h-BFFFhにEEPROMのイメージが見えるが、IOアドレスはC000h、D000h、E000h、F000hがI/Oアドレスとして使えるようになる。74LS138を使うと使えるのはC000h、E000hだ。
MCS BASIC-52のマニュアルは方々で公開されていて検索すると簡単に見つかる。(IntelがPDSにしたらしい) - 部品配置
主要な部品は、8052-AH(40pin DIP)、RAM 62256(28pin DIP)、EEPROM HN58V65(28pin DIP)、74HCT573(20pin DIP)、74HCT08(14pin DIP)、74HCT138(16pin DIP)なのでサンハヤトのICB-293U に載りそうだ。
ユニバーサル基板エディタPasSを使ってICB-293Uに載せてみた
アドレスラッチの74HCT573と74HCT08は8052-AHの下に配置してスペースを稼ぐ。
以前は行き当たりばったりで配線していたのだが、PasS を知ってからは予め置いてみるようにしている。実際に配線し始めると変わることもよくあるのだが．．．
- 配線
表
裏
ポリウレタン線を使って裏面で配線している。
手配線を減らすためにサンハヤトのシール基板ICB-055 を使ってRAMとEEPROMを配線した。
この基板はちょっと高いのだがちょっと横着をした。
RAMとEEPROMはピン配列がほぼ同じなので、この基板を使って配線すると大幅に配線作業が減る。
このシール基板は半分が600mil×5 でもう半分が300mil×8だ。今回は600milの部分2個分を切って使った。
そして完成。
- 起動
ターミナルを繋いで、スペースを押すとシリアルのスピードが自動検出されてオープニングメッセージが表示される。
*MCS-51(tm) BASIC V1.1*
READY
>
九九の表を表示させるプログラムを動かしてみた
ちゃんと動いているようだ。 - プログラム
何はともあれメモリダンププログラムを書いてみた。
久しぶりにBASICのプログラムを書くと違和感があるなあ。
100 REM
110 REM ###############################
120 REM dump memory
130 REM ###############################
140 STRING 11,5 : DIM ASCI(16)
150 REM INPUT "address: ",ADR
160 INPUT "length: ",L
170 REM == dump ==
180 FOR I=ADR TO (ADR+L-1)
190 IF (I.AND.0FH)=0 THEN GOSUB 4000
200 C=XBY(I)
210 HH=C : GOSUB 2000
215 PRINT " ",
220 ASCI(I.AND.0FH)=C
230 IF C<20H.OR.7EH<C THEN ASCI(I.AND.0FH)=ASC(.)
240 NEXT I
320 GOSUB 3000
325 PRINT
330 INPUT "next:1 end:0 ?",ANS
340 IF ANS<>1 THEN STOP
350 ADR=ADR+L
360 FOR II=0 TO 15
370 ASCI(II)=0
380 NEXT II
390 GOTO 180
900 STOP
990 REM ===================================
1000 REM print 16bit data / HHHH:print data
1010 HH=INT(HHHH/256) : GOSUB 2000
1020 HH=HHHH-HH*256 : GOSUB 2000
1030 PRINT ": ",
1040 RETURN
2000 REM print 8bit data / HH: print data
2010 BB=INT(HH/16)
2020 PRINT CHR(30H+(BB>9)/65535*7+BB),
2030 BB=HH-BB*16
2040 PRINT CHR(30H+(BB>9)/65535*7+BB),
2050 RETURN
2990 REM ===================================
3000 REM print ascii data
3020 FOR II=0 TO 15
3030 PRINT CHR(ASCI(II)),
3040 NEXT II
3050 PRINT
3060 RETURN
4000 REM
4010 HHHH=I : GOSUB 3000 : GOTO 1000
LISTコマンドで表示したこのインデントには、なじめないなあ。
お約束の8Queen問題
遅いなあ。インタプリタだから仕方ないけど。1 REM ################################
2 REM 8Queen
3 REM Nov. 2012 / Yoshi
4 REM ################################
10 REM init
20 TRUE=(0=0)
30 FALSE=(0=1)
40 N=0 : rem pattern
50 D=0 : rem debug level
60 FOR Y=1 TO 8
70 A(Y)=0 : REM init array
80 NEXT Y
100 REM
110 REM main routine
120 REM
130 S=1
140 FOR Y=1 TO 8
150 FOR X=S TO 8
160 YY=Y : XX=X : GOSUB 1000 : REM check
170 IF CHK=FALSE THEN GOTO 220 : REM end if
180 A(Y)=X
190 X=8
200 S=1
210 REM gosub 2000
220 REM end if
230 NEXT X
240 IF CHK=TRUE THEN GOTO 330 : REM end if
250 S=A(Y-1)+1
260 A(Y-1)=0
270 Y=Y-2
280 IF S<9 THEN GOTO 320 : REM end if
290 S=A(Y)+1
300 A(Y)=0
310 Y=Y-1
320 REM end if
330 REM end if
340 IF D>=1 THEN GOSUB 2000
350 NEXT Y
360 N=N+1
370 GOSUB 2000
390 REM
900 STOP
990 REM =====================================
1000 REM check : pos(x,y)
1010 IF D>=2 THEN PRINT "(",X,",",Y,")"
1020 CHK=TRUE
1030 IF Y=1 THEN GOTO 1100 : REM end if
1040 FOR YY=1 TO Y-1
1050 IF A(Y-YY)=X THEN CHK=FALSE
1060 IF A(Y-YY)=X+YY THEN CHK=FALSE
1070 IF A(Y-YY)=X-YY THEN CHK=FALSE
1080 IF CHK=FALSE THEN YY=Y
1090 NEXT YY
1100 REM endif
1110 RETURN
1120 REM
1990 REM ======================================
2000 REM print array
2010 PRINT "--",N,"--"
2020 IF D>=2 THEN PRINT "(",X,",",Y,")","S:",S
2030 FOR YY=1 TO 8
2040 FOR XX=1 TO 8
2050 IF A(YY)=XX THEN PRINT "|X", ELSE PRINT "| ",
2060 NEXT XX
2070 PRINT "|"
2080 NEXT YY
2090 RETURN
2100 REM
BASIC52ではNEXTをGO TOやRETURNで飛び越してはいけないらしい。ERROR: C-STACKの意味がわからずハマってしまった。
プログラムはPC上のviで書いてターミナル経由でアップロードしている。
１行入力して改行したときにBASIC52が1行分のプログラムを処理する時間が必要で、処理時間を考慮しないで次の行を送ると文字を落としてしまうので、ターミナル側で１行送信後ウエイトを入れる。TeraTermではシリアルポートの設定→送信遅延である。
長い行は処理時間が必要なので300msくらい必要である。
行番号１と行番号２の間はわざと空けてある。
NEWコマンド実行後最初の行の処理時間は更に長い。かといって、この時間に合わせてウエイトを入れるとアップロードが遅くてイライラするので、改行を２つ入れて処理時間を稼ぐとうまくいく。
- EEPROM書き込み
RAMで動作しているプログラムはPROG、FPROGコマンドでEEPROMに保存しEEPROM上で実行することができる。(トラブルはあったけど)
メモリダンププログラムをダウンロードしてROMに書いたところ。
ROMに書かれたプログラムを一覧するプログラムを作ろうかと考えていたら、既に作っている人がいて、ここにあった。
プログラム番号、先頭アドレス、サイズ、先頭のREMを表示してくれる。
- つれづれ
8052-AH BASIC SBCを作ろうと思ったきっかけは、本棚から「エレクトロニクスライフ 1990/8 」を引っ張り出してきたことだ。 それまでBASICでプログラムを書いていてBASICで構造化（流行っていたなあ）なんてことを一生懸命考えていたが、1990頃はCでプログラムを書いていたので、どうやってZ80 SBCのプログラムをCで書くかを考えていた。
そんなとき、「エレクトロニクスライフ」を読んだのだが、8052-AH BASICやEEPROMが結構高価だったので結局スルーしたと記憶している。
電源ONで自分が書いたBASICが走るのは便利かもしれない。市販のボードもいくつもあった。 8052AH BASICやEEPROMが高いと思ったくらいだから、とても手が出る価格ではなかった。
リアルタイム性を求めるならインタプリタでは厳しいのでアセンブラでプログラムを書く必要がある。 アセンブラでプログラム書くにしても１から書いてROM化するのは大変なので、BASIC-52ボードにEEPROMを積んで、アセンブラルーチンをEEPROMに置いてBASICからCALLする方が楽だ。
というわけで、結構ニーズはあったのかと思う。
コメント