ポケコンRUN

![PXL_20211206_001238732.jpg](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/234533/0b19f684-b0d7-e88f-b39a-c338766189d8.jpeg)

#■40年前のポケコンでEV CAR
##約40年ほど前に発売されたSHARPのポケコン**PC-1245**のBASICとマシン語で走る車を作りました。
##走行機構は対向2輪とし、2つの小型ギヤードDC Motor FM90で走らせました。
タイトルの**ポケコンRUN**は、もちろん**ポケモンGO**のパクリです。
なのに運転手は**ポケモン**ではなく**くまモン**という、ややこしい構成です。
#■ポケコンRUN!!!
<blockquote class="twitter-tweet"><p lang="ja" dir="ltr">ポケコンRUN!!!<br>約40年前に発売されたSHARPのポケコンPC-1245のカセットI/F端子をハックしてDual Motor Driverに接続し対向2輪のモータを制御。 <a href="https://t.co/8Nxsc0Uqzl">pic.twitter.com/8Nxsc0Uqzl</a></p>&mdash; Google Homer (@google_homer_) <a href="https://twitter.com/google_homer_/status/1467696739654471680?ref_src=twsrc%5Etfw">December 6, 2021</a></blockquote> <script async src="https://platform.twitter.com/widgets.js" charset="utf-8"></script>
#■カセット端子をハックしデジタル出力
カセットI/Fのとこに**Port F**と**Port B**のネイティブな端子が出ているのを発見。
この端子をマシン語でOn/Offし、Dual Motor Driverをコントロール。
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/234533/c6d809f5-031b-0445-eea1-6ec71d0a5fdd.png)
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/234533/66a84f5f-c39e-9b78-e311-71b15715b7a5.png)
#■モータや電池などをいい感じに盛り付け
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/234533/1763d8e6-ec0c-d767-c242-6094dcddbf9c.png)
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/234533/4f33335e-4740-ad7a-1d01-2b629330d224.png)


#■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**を設定
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/234533/00db1093-aa4a-a8a7-9caf-16b773749fc3.png)
#■マシン語部分のニーモニック表記
```
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」
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/234533/5f13debd-1646-6e05-bd26-977bb98f49ec.png)

#■おっきいやつも走らせてみた
Digitalなので当たり前なのだが、おっきいやつも走った。
<blockquote class="twitter-tweet"><p lang="ja" dir="ltr">ポケコンRUN!!!<br>約40年前に発売されたSHARPのポケコンPC-1245で、ちょっと大きめロボットカー走らせてみた。 <a href="https://t.co/PBbY7jgz32">pic.twitter.com/PBbY7jgz32</a></p>&mdash; Google Homer (@google_homer_) <a href="https://twitter.com/google_homer_/status/1467723410239557632?ref_src=twsrc%5Etfw">December 6, 2021</a></blockquote> <script async src="https://platform.twitter.com/widgets.js" charset="utf-8"></script>

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

![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/234533/28c38a61-696c-82fd-61f3-187ef921573d.png)