Commit: e7737e5c3e44fb1055636f016c09e641e0cd7c3f - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Revision: e7737e5c3e44fb1055636f016c09e641e0cd7c3f (tree)
• Time: 2019-01-10 07:00:02
• Author: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Log Message

Class CIOEX for using I/O expander, MCP23017

Change Summary

• add: mips/classes/CIOEX/CIOEX.bas
• add: mips/classes/CIOEX/help.txt

Incremental Difference

--- /dev/null
+++ b/mips/classes/CIOEX/CIOEX.bas
@@ -0,0 +1,159 @@
+REM CIOEX.BAS ver 0.1
+REM Class CIOEX for MachiKania Type M 
+REM using I/O expander MCP23017
+
+FIELD PRIVATE RET,ADDR7
+FIELD PRIVATE TRISAV,TRISBV,LATAV,LATBV,CNPUAV,CNPUBV
+
+REM Constructor
+REM 1st argument is 3 bit address
+REM  (default 0)
+REM 2nd argument is clock frequency in kHz
+REM   (default 400)
+METHOD INIT
+  REM Address setting
+  if 1<=args(0) then ADDR7=args(1) else ADDR7=0
+  ADDR7=0x20 | (ADDR7 and 0x07)
+  REM Initialize I2C
+  if 2<=args(0) then I2C args(2) else I2C 400
+  REM Initialize MCP23017
+  REM Note that IOCON address is either
+  REM 0x05 (BANK=1) or 0x0A (BANK=0)
+  I2CWRITE ADDR7,0x05,0x00
+  I2CWRITE ADDR7,0x0A,0x00
+  if I2CERROR() then
+    print "MCP23017 is not connected at ";ADDR7
+    end
+  endif
+  REM Default values
+  gosub TRISA,0xFF
+  gosub TRISB,0xFF
+  gosub CNPUA,0x00
+  gosub CNPUB,0x00
+  gosub LATA,0x00
+  gosub LATB,0x00
+  REM All intializations done
+  return
+
+REM TRISA():   Read current value
+REM TRISA x:   Set byte value
+REM TRISA x,y: Set bit value
+METHOD TRISA
+  if args(0)=0 then return TRISAV
+  if args(1)=1 then
+    SET8 &TRISAV,0x00,args(1)
+  else
+    SETBIT &TRISAV,0x00,args(1),args(2)
+  endif
+  return
+
+REM TRISB():   Read current value
+REM TRISB x:   Set byte value
+REM TRISB x,y: Set bit value
+METHOD TRISB
+  if args(0)=0 then return TRISBV
+  if args(1)=1 then
+    SET8 &TRISBV,0x01,args(1)
+  else
+    SETBIT &TRISBV,0x01,args(1),args(2)
+  endif
+  return
+
+REM LATA():   Read current value
+REM LATA x:   Set byte value
+REM LATA x,y: Set bit value
+METHOD LATA
+  if args(0)=0 then return LATAV
+  if args(1)=1 then
+    SET8 &LATAV,0x14,args(1)
+  else
+    SETBIT &LATAV,0x14,args(1),args(2)
+  endif
+  return
+
+REM LATB():   Read current value
+REM LATB x:   Set byte value
+REM LATB x,y: Set bit value
+METHOD LATB
+  if args(0)=0 then return LATBV
+  if args(1)=1 then
+    SET8 &LATBV,0x15,args(1)
+  else
+    SETBIT &LATBV,0x15,args(1),args(2)
+  endif
+  return
+
+REM CNPUA():   Read current value
+REM CNPUA x:   Set byte value
+REM CNPUA x,y: Set bit value
+METHOD CNPUA
+  if args(0)=0 then return CNPUAV
+  if args(1)=1 then
+    SET8 &CNPUAV,0x0C,args(1)
+  else
+    SETBIT &CNPUAV,0x0C,args(1),args(2)
+  endif
+  return
+
+REM CNPUB():   Read current value
+REM CNPUB x:   Set byte value
+REM CNPUB x,y: Set bit value
+METHOD CNPUB
+  if args(0)=0 then return CNPUBV
+  if args(1)=1 then
+    SET8 &CNPUBV,0x0D,args(1)
+  else
+    SETBIT &CNPUBV,0x0D,args(1),args(2)
+  endif
+  return
+
+REM PORTA():  Read current input byte value
+REM PORTA(x): Read current x-th input bit value
+METHOD PORTA
+  RET=I2CREAD(ADDR7,0x12)
+  if args(0)<1 then
+    return RET
+  elseif RET and (1<<args(1)) then
+    return 0
+  else
+    return 1
+  endif
+
+REM PORTB():  Read current input byte value
+REM PORTB(x): Read current x-th input bit value
+METHOD PORTB
+  RET=I2CREAD(ADDR7,0x13)
+  if args(0)<1 then
+    return RET
+  elseif RET and (1<<args(1)) then
+    return 0
+  else
+    return 1
+  endif
+
+REM SET8:         Set specific setting
+REM 1st argument: pointer to val of private field
+REM 2nd argument: address in MCP23017
+REM 3rd argument: setting value in byte
+LABEL SET8
+  poke args(1), args(3) and 0xff
+  I2CWRITE ADDR7,args(2),args(3)
+  return
+
+REM SETBIT:       Set specific bit
+REM 1st argument: pointer to val of private field
+REM 2nd argument: address in MCP23017
+REM 3rd argument: setting bit position
+REM 4th argument: setting value (1 or 0)
+LABEL SETBIT
+  var i
+  i=1<<(args(3) and 0x07)
+  if args(4) then
+    i=peek(args(1)) or i
+  else
+    i=peek(args(1)) and (i xor 0xff)
+  endif
+  poke args(1),i
+  I2CWRITE ADDR7,args(2),i
+  return
+

--- /dev/null
+++ b/mips/classes/CIOEX/help.txt
@@ -0,0 +1,110 @@
+＜クラス名およびバージョン＞
+CIOEX
+ver 0.1
+
+＜ファイル名＞
+CIOEX.BAS
+
+＜概要＞
+I/Oエキスパンダー、MCP23017を制御するためのクラス。最大８個まで接続可。
+
+＜コンストラクター＞
+第１引数
+	３ビットの接続アドレスを指定。省略した場合は、０。
+
+第２引数
+	I2Cクロックを、kHz単位で指定。省略した場合は、400。
+
+＜パブリックフィールド＞
+なし
+
+＜パブリックメソッド＞
+TRISA()
+	現在のTRISA値を返す。TRIS値は、ポートを入力で使うか出力で使うかの値で、ビッ
+	トごとに１で入力、０で出力。デフォルトは、0xFF（全て入力）。
+
+TRISA x
+	TRISA値を、８ビットの値、xで指定。
+
+TRISA x,y
+	TRISA値の、下位からxビット目を、yに指定。
+
+TRISB()
+	現在のTRISB値を返す。TRIS値は、ポートを入力で使うか出力で使うかの値で、ビッ
+	トごとに１で入力、０で出力。デフォルトは、0xFF（全て入力）。
+
+TRISB x
+	TRISB値を、８ビットの値、xで指定。
+
+TRISB x,y
+	TRISB値の、下位からxビット目を、yに指定。
+
+LATA()
+	現在のLATA値を返す。LAT値は、ポートを出力で使う場合の出力値で、ビットごと
+	に設定。デフォルトは、0x00（全て0を出力）。
+
+LATA x
+	LATA値を、８ビットの値、xで指定。
+
+LATA x,y
+	LATA値の、下位からxビット目を、yに指定。
+
+LATB()
+	現在のLATB値を返す。LAT値は、ポートを出力で使う場合の出力値で、ビットごと
+	に設定。デフォルトは、0x00（全て0を出力）。
+
+LATB x
+	LATB値を、８ビットの値、xで指定。
+
+LATB x,y
+	LATB値の、下位からxビット目を、yに指定。
+
+CNPUA()
+	現在のCNPUA値を返す。CNPU値は、ポートを入力で使う場合のプルアップの設定で、
+	ビットごとに１で使用、０で不使用。デフォルトは、0x00（全て不使用）。
+
+CNPUA x
+	CNPUA値を、８ビットの値、xで指定。
+
+CNPUA x,y
+	CNPUA値の、下位からxビット目を、yに指定。
+
+CNPUB()
+	現在のCNPUB値を返す。CNPU値は、ポートを入力で使う場合のプルアップの設定で、
+	ビットごとに１で使用、０で不使用。デフォルトは、0x00（全て不使用）。
+
+CNPUB x
+	CNPUB値を、８ビットの値、xで指定。
+
+CNPUB x,y
+	CNPUB値の、下位からxビット目を、yに指定。
+
+PORTA()
+	ポートＡから８ビットの値を読み込み、返す。
+
+PORTA(x)
+	ポートＡの下位からxビット目を読み込み、返す。
+
+PORTB()
+	ポートＢから８ビットの値を読み込み、返す。
+
+PORTB(x)
+	ポートＢの下位からxビット目を読み込み、返す。
+
+＜使用例＞
+
+MCP23017を２つ接続し、一つはアドレス０(A0=0, A1=0, A2=0)で、もう一つはアドレス
+１で使う例です。アドレス０の石はPORTAを出力PORTBを入力で、アドレス１の石は
+PORTAを入力PORTBを出力で使う設定です。
+
+USECLASS CIOEX
+USEVAR IO0,IO1
+IO0=NEW(CIOEX,0x00)
+IO1=NEW(CIOEX,0x01)
+CALL IO0.TRISA(0x00)
+CALL IO1.TRISB(0x00)
+CALL IO0.LATA(0x55)
+CALL IO1.LATB(0xAA)
+PRINT HEX$(IO0.PORTB(),2)
+PRINT HEX$(IO1.PORTA(),2)
+