x 愛用していたSTTS751の入手が難しくなったので代用品は、S-5851A。(おもにアドレスの違い)

前にichigojam用に書いたプログラム
書いたのは、本人だからコピーでは、ない。
説明は、特にない。


10 'AQM0802A STTS751 ONDO
20 POKE #700,#0,#38,#0,#39,#0,#04,#0,#14,#0,#70,#0,#56,#0,#6C,#0,#38,#0,#C,#0,#1,#40,#41
30 FOR I=0 TO 10:R=I2CW(#3E,#700+I*2,2):NEXT
40 'READ TMP
50 POKE #700,0
60 R=I2CR(#39,#700,1,#701,1)
70 T=PEEK(#701):?T
80 'WRITE TMP
90 POKE #700,0,1
100 R=I2CW(#3E,#700,2)
110 POKE#700,#40,48+T/10,48+T%10
120 R=I2CW(#3E,#700,3):WAIT 30
130 GOTO 50