Commit: 7ebd7151e8ef73c5e7556dbcf66924356aff8948 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Revision: 7ebd7151e8ef73c5e7556dbcf66924356aff8948 (tree)
• Zeit: 2019-01-07 09:07:04
• Autor: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Log Message

Class C23LC for dip-8 SRAM 23LC512.

Ändern Zusammenfassung

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

Diff

--- /dev/null
+++ b/mips/classes/C23LC/C23LC.bas
@@ -0,0 +1,126 @@
+REM C23LC.BAS ver 0.1
+REM Class C23LC for MachiKania Type M 
+REM using SPI 8-pin SRAM 23LC512
+
+FIELD PUBLIC ADDR
+USEVAR BUFF,NUM
+
+REM Constructor. Parameters are: 
+REM 1st: Clock. Default 20000
+REM 2nd: CS port. Default 0x39
+
+METHOD INIT
+  var i
+  dim BUFF(1)
+  REM Initialize SPI module.
+  if args(0)<1 then
+    SPI 20000
+  elseif args(0)<2 then
+    SPI args(1)
+  else
+    SPI args(1),0,8,args(2)
+  endif
+  REM Check connection
+  i=gosub(RD8,0) XOR 0xFF
+  gosub WR8,i,0
+  if gosub(RD8,0)!=i then
+    print "SRAM 23LC512 not connected"
+    end
+  endif
+  gosub WR8,i XOR 0xFF,0
+  ADDR=0
+  return
+
+REM WR8: Write byte (8 bits)
+METHOD WR8
+  NUM=1
+LABEL WRMAIN
+  REM Second parameter is address
+  if 2<=args(0) then ADDR=args(2)
+  POKE BUFF+2,ADDR>>8
+  POKE BUFF+3,ADDR
+  REM First parameter is word to write
+  BUFF(1)=args(1)
+  SPIWRITEDATA BUFF+2,NUM+2,0x02
+  REM Increment address
+  ADDR=(ADDR+NUM) and 0xffff
+  REM All done
+  return
+
+REM WR16: Write 16 bit word
+METHOD WR16
+  NUM=2
+  goto WRMAIN
+
+REM WR32: Write 32 bit word
+METHOD WR32
+  NUM=4
+  goto WRMAIN
+
+REM WRDATA: Write data
+METHOD WRDATA
+  REM 1st parameter is buffer
+  REM 2nd parameter is # of write
+  REM 3rd parameter is address
+  if 3<=args(0) then ADDR=args(3)
+  SPIWRITEDATA args(1),args(2),0x02,ADDR>>8,ADDR
+  ADDR=(ADDR+args(2)) and 0xffff
+  return
+
+REM WRSTR: Write string
+METHOD WRSTR
+  REM 1st parameter is string
+  REM 2nd parameter is address
+  if 2<=args(0) then ADDR=args(2)
+  gosub WRDATA,args(1),len(args$(1))+1
+  return
+
+REM RD8: Read byte (8 bits)
+METHOD RD8
+  NUM=1
+LABEL RDMAIN
+  REM First parameter is address
+  if 1<=args(0) then ADDR=args(1)
+  BUFF(0)=0
+  SPIREADDATA BUFF,NUM,0x03,ADDR>>8,ADDR
+  REM Increment address
+  ADDR=(ADDR+NUM) and 0xffff
+  REM All done
+  return BUFF(0)
+
+REM RD16: Read 16 bit word
+METHOD RD16
+  NUM=2
+  goto RDMAIN
+
+REM RD32: Read 32 bit word
+METHOD RD32
+  NUM=4
+  goto RDMAIN
+
+REM RDDATA: Read page
+METHOD RDDATA
+  REM 1st parameter is buffer
+  REM 2nd parameter is # of write
+  REM 3rd parameter is address
+  if 3<=args(0) then ADDR=args(3)
+  SPIREADDATA args(1),args(2),0x03,ADDR>>8,ADDR
+  ADDR=(ADDR+args(2)) and 0xffff
+  return
+
+REM RDSTR: Read string
+METHOD RDSTR
+  var i,T
+  REM 1st parameter is address
+  if 1<=args(0) then ADDR=args(1)
+  REM 2nd parameter is buffer size
+  REM Default 128 bytes.
+  if 2<=args(0) then NUM=args(2) else NUM=128
+  dim T((NUM-1)/4)
+  SPIREADDATA T,NUM,0x03,ADDR>>8,ADDR
+  for i=0 to NUM-1
+    if not(PEEK(T+i)) then break
+  next
+  NUM=i+1
+  ADDR=(ADDR+NUM+1) and 0xffff
+  return T$

--- /dev/null
+++ b/mips/classes/C23LC/help.txt
@@ -0,0 +1,63 @@
+＜クラス名およびバージョン＞
+C23LC
+ver 0.1
+
+＜ファイル名＞
+C23LC.BAS
+
+＜概要＞
+SRAM 23LC512読み書きの為のクラス。
+
+＜コンストラクター＞
+第１引数
+	SPIクロックを、kHz単位で指定する。省略した場合は、20000。
+第２引数
+	CS端子にどのポートを使うかを指定する。省略した場合は、0x39(PORTD9)。
+	MachiKania type Mのhelpファイルを参照。
+MachiKania type Mのhelpファイル、
+
+＜パブリックフィールド＞
+ADDR
+	次の読み書きを行なうアドレス(16 bits)。
+
+＜パブリックメソッド＞
+WR8(x[,y])
+	１バイト値、xを書き込む。yにアドレスを指定した場合は、指定位置に書き込む。
+WR16(x[,y])
+	16ビット値、xを書き込む。yにアドレスを指定した場合は、指定位置に書き込む。
+WR32(x[,y])
+	32ビット値、xを書き込む。yにアドレスを指定した場合は、指定位置に書き込む。
+WRSTR(x$[,y])
+	文字列、x$を書き込む。yにアドレスを指定した場合は、指定位置に書き込む。
+WRDATA(x,y[,z])
+	バッファーxからyバイトを書き込む。zにアドレスを指定した場合は、指定位置に書
+	き込む。
+RD8([x])
+	１バイト値を読み込み、返す。xにアドレスを指定した場合は、指定位置から読み込
+	む。
+RD16([x])
+	16ビット値を読み込み、返す。xにアドレスを指定した場合は、指定位置から読み込
+	む。
+RD32([x])
+	32ビット値を読み込み、返す。xにアドレスを指定した場合は、指定位置から読み込
+	む。
+RDSTR([x,[y]])
+	文字列(127文字以内)を読み込み、ポインターとして返す。xにアドレスを指定した
+	場合は、指定位置から読み込む。yは読み込みバッファーサイズ。省略した場合は、
+	128。
+WRDATA(x,y[,z])
+	yバイトを読み込み、バッファーxに保存する。zにアドレスを指定した場合は、指定
+	位置から読み込む。
+
+＜使用例＞
+
+アドレス0に文字列を書き込み、読み出す例。読み出し時の文字列ポインターの扱いに注
+意。
+
+USECLASS C23LC
+E=NEW(C23LC)
+T=E.RDSTR():T$=T$
+PRINT T$
+CALL E.WRSTR("Hello objective MachiKania!",0)
+T=E.RDSTR(0):T$=T$
+PRINT T$