ポケコンRUN

#■40年前のポケコンでEV CAR
##約40年ほど前に発売されたSHARPのポケコンPC-1245のBASICとマシン語で走る車を作りました。
##走行機構は対向2輪とし、2つの小型ギヤードDC Motor FM90で走らせました。
タイトルのポケコンRUNは、もちろんポケモンGOのパクリです。
なのに運転手はポケモンではなくくまモンという、ややこしい構成です。
#■ポケコンRUN!!!

ポケコンRUN!!!
約40年前に発売されたSHARPのポケコンPC-1245のカセットI/F端子をハックしてDual Motor Driverに接続し対向2輪のモータを制御。 pic.twitter.com/8Nxsc0Uqzl

— Google Homer (@google_homer_) December 6, 2021

#■カセット端子をハックしデジタル出力 カセットI/Fのとこに**Port F**と**Port B**のネイティブな端子が出ているのを発見。 この端子をマシン語でOn/Offし、Dual Motor Driverをコントロール。   #■モータや電池などをいい感じに盛り付け  

#■BASICプログラム
###100～120行が機械語部分、200行～が走行部分

100 D=&C200:B=&C202:F=&C20A
110 POKE B,&12,&5D,&10,&C2,&00,&55,&DD,&37
120 POKE F,&12,&5E,&10,&C2,&00,&55,&5F,&37
200 FOR N=1 TO 10
210 POKE D,&00:CALL F:POKE D,&40:CALL B:FOR T=1 TO 11:NEXT T
220 POKE D,&01:CALL F:POKE D,&00:CALL B:FOR T=1 TO 10:NEXT T
230 NEXT N
300 POKE D,&02:CALL F:POKE D,&80:CALL B:FOR T=1 TO 50:NEXT T
400 POKE D,&01:CALL F:POKE D,&80:CALL B:FOR T=1 TO 99:NEXT T
500 POKE D,&02:CALL F:POKE D,&40:CALL B:FOR T=1 TO 99:NEXT T
600 POKE D,&01:CALL F:POKE D,&40:CALL B:FOR T=1 TO 50:NEXT T
900 POKE D,&00:CALL F:POKE D,&00:CALL B 

・C202～C209がPort FをOn/Offするルーチン
・C20A～C211がport BをOn/Offするルーチン
・C200にOnにするBitを設定

#■マシン語部分のニーモニック表記

C200 **            : (On bit DATA)

C202 12 5D         : LIP    REG_IB
C204 10 C2 00      : LIDP   0xC200
C207 55            : MVMD
C208 DD            : OUTB
C209 37            : RTN

C20A 12 5E         : LIP    REG_FO
C20C 10 C2 00      : LIDP   0xC200
C20F 55            : MVMD 
C210 5F            : OUTF
C211 37            : RTN

#■起動コマンドはもちろん「RUN」

#■おっきいやつも走らせてみた
Digitalなので当たり前なのだが、おっきいやつも走った。

ポケコンRUN!!!
約40年前に発売されたSHARPのポケコンPC-1245で、ちょっと大きめロボットカー走らせてみた。 pic.twitter.com/PBbY7jgz32

— Google Homer (@google_homer_) December 6, 2021

#■最後に
#学内の発掘調査で、お宝がザックザク。ポケコンもその発掘品の一つ。発見当初は液晶が逝っちゃってたので臓器移植した話や、その他の品々の生命反応なども追々。発掘現場の写真上げときますね。