ブログパーツUL5

RZ-1自身でI2Cのテスト(?)

 私のRZ-1は本体の胸にLCD表示器を搭載しているので、I2Cテストプログラムで表示することができるのです。

 ROBONOVAのマニュアルにあったサンプルプログラムを参考にして作ってあったI2Cの内容を表示するサンプルプログラムを以下に記載しました。


'================================
' I2C Sample Program
'================================

DIM RR AS BYTE
DIM A AS BYTE
DIM i AS BYTE
DIM code AS BYTE

CONST scl = 22
CONST sda = 23

'---------------------------
A = IN(sda)
s1:
OUT scl,1
OUT sda,0
s3:
OUT sda,1
OUT scl,0
OUT scl,1

OUT sda,1
OUT scl,0
OUT scl,1

OUT sda,1
OUT scl,0
OUT scl,1

OUT sda,1
OUT scl,0
OUT scl,1

OUT sda,1
OUT scl,0
OUT scl,1

OUT sda,1
OUT scl,0
OUT scl,1

OUT sda,1
OUT scl,0
OUT scl,1

OUT sda,1
OUT scl,0
OUT scl,1

OUT scl,0
OUT scl,1

A = IN(sda)
PRINT "ACK="
PRINT FORMAT(A,DEC,3)
DELAY 1000

code=0
PRINT 12 'CLS:LCD_clear

FOR i=0 TO 7
OUT scl,0
OUT scl,1
A=IN(sda)
A=A< code =code OR A
PRINT FORMAT(code,DEC,3)
PRINT " "
DELAY 500

NEXT i

DELAY 1000
PRINT 12 'CLS:LCD_clear
PRINT "ROMPEEK DATA"
DELAY 1000

PRINT 12 'CLS:LCD_clear

FOR i=0 TO 255

PRINT " "
A= ROMPEEK(i)
PRINT FORMAT(A,HEX,2)
PRINT " "
DELAY 100

NEXT i

END

'======-=== Program End ==========
0

    コメント
    コメントする








       
    この記事のトラックバックURL
    トラックバック

    カレンダ

       1234
    567891011
    12131415161718
    19202122232425
    262728293031 
    << August 2018 >>