体重と今日食べたもの

k1segawa.exblog.jp

ダイエット

ブログトップ

ポケコン PC-G850Vで電子回路工作(6/1)

BASICプログラムを配列化してみたけどあまりスピードは変わらない。READが遅いと思ったがそんなことはなかったという事。ついでにCS=HIにするのを最後2拍にしたのを1拍にしたが、悪いことは起きなかった。DATA文の最後の「8,12,」は不要という事で。

【BASIC配列化プログラム】
10:*MAIN DIM A(34):I=0
20:REM POKE &H60,1,1
30:OUT &H60,1
40:OUT &H61,1
45:*DATA READ A(I):IF A(I)<>99 THEN I=I+1:GOTO *DATA
50:*INIT C=10:D=0:I=-1
60:*READ I=I+1
70:IF A(I)=99 GOTO *INIT
80:REM POKE &H62,(A(I) AND &HFE)
90:OUT &H62,(A(I) AND &HFE)
100:IF (A(I) AND 1)=0 GOTO *READ
110:REM A= PEEK &H62
120:A= INP &H62
130:REM NullBit SKIP
140:IF C=10 GOTO *NEXT
150:IF A=1 THEN D=D+(2^C)
160:IF C=0 PRINT D
170:*NEXT C=C-1
180:GOTO *READ
190:*RESTORE
200:DATA 8,0,2,6,2,6,0,4,2,6,0,5,0,5,0,5,0,5,0,
5,0,5,0,5,0,5,0,5,0,5,0,5,8,12,99
[PR]
by k1segawa | 2015-06-01 23:24 | ポケコン | Comments(0)