add sdm630 emulator script

Author: gemu2015

docs/Smart-Meter-Interface.md

@@ -3598,6 +3598,187 @@ Set device parity to NONE
     1,010404ffffffff@i8:1,Active Power P3,W,Power_P3,2  
     #  
     ```
+
+### SDM630-Emulator (MODBus)
+Show how to emulate an SDM630 e.g. to interact with a GROWATT solar inverter.
+
+??? summary "View script"
+    ```
+    >D
+    ; simulate eastron sdm630 modbus meter
+    IP=192.168.188.114
+    ; need this additional defs
+    ; due to speed requirements this script needs an ESP32
+    ;#define USE_SCRIPT_TASK
+    ;#define USE_SCRIPT_SERIAL
+    ;#define USE_SML_M
+    ; for debugging uncomment print statements below
+    ; receive pin
+    rec=21
+    ; transmit pin
+    trx=20
+    ; meter address
+    addr=2
+    ; current meter power, negativ on export
+    cmpwr=0
+    res=0
+    M:req=0 8
+    M:resp=0 128
+    regs=0
+    startreg=0
+    cnt=0
+    index=0
+    mtime=0
+    curr1=0
+    cpw1=0
+    cvol1=230
+    >B
+    =>sensor53 r
+    >BS
+    ; should be hardware serial pins
+    res=so(rec trx 9600 8N1 1024)
+    if res==0 {
+    	print serial open failed
+    } else {
+	; create task every 1 ms
+	ct(1 1 1 3 8000)
+    }
+    ; meter descriptor
+    \>M 1
+    ; sml serial receive GPIO, here pin4
+    +1,4,s,0,9600,SML
+    1,77070100010800ff@1000,Verbrauch,KWh,Total_in,4
+    1,77070100020800ff@1000,Einspeisung,KWh,Total_out,4
+    1,77070100100700ff@1,Aktueller Verbrauch,W,Power_curr,0
+    1,77070100000009ff@#,Zähler Nr,,Meter_number,0
+    #
+    ; respond to request
+    #response
+    index=1
+    for cnt 1 regs 1
+    	switch startreg
+     		case 0
+			; voltage p1
+			resp[index]=cvol1
+		case 2
+			; voltage p2
+			resp[index]=cvol1
+		case 4
+			; voltage p3
+			resp[index]=cvol1
+		case 6
+			; current p1
+			resp[index]=curr1
+		case 8
+			; current p2
+			resp[index]=curr1
+		case 10
+			; current p3
+			resp[index]=curr1
+		case 12
+			; power p1
+			resp[index]=cpw1
+		case 14
+			; power p2
+			resp[index]=cpw1
+		case 16
+			; power p3
+			resp[index]=cpw1
+		case 18
+			; app power p1
+			resp[index]=cpw1
+		case 20
+			; app power p2
+			resp[index]=cpw1
+		case 22
+			; app power p3
+			resp[index]=cpw1
+		case 30
+			; power factor p1
+			resp[index]=1
+		case 32
+			; power factor p2
+			resp[index]=1
+		case 34
+			; power factor p3
+			resp[index]=1
+		case 48
+			; current sum
+			resp[index]=230/cmpwr
+		case 52
+			; total system power
+			resp[index]=cmpwr
+		case 56
+			; total system va
+			resp[index]=cmpwr
+		case 70
+			; 50 Hz frequency
+			resp[index]=50
+		case 72
+			;total Import
+			resp[index]=sml[1]
+		case 74
+			;total export
+			resp[index]=sml[2]
+		case 342
+			;total kWh
+			resp[index]=sml[1]
+	ends
+	index+=1
+	startreg+=2	
+next
+; write response
+smw(addr 3 resp regs)
+
+; multitasking every 1 ms
+\>t1
+
+; get current power from meter
+cmpwr=sml[3]
+
+; fake power 
+;cmpwr=3000+rnd(1000)
+curr1=cmpwr/230/3
+cpw1=cmpwr/3
+
+; check for incomming request
+res=sa()
+if res>=8 {
+	mtime=millis
+	; read request, returns 8 if OK
+	res=sra(req)
+	if res==8 
+	and req[1]==addr
+	and req[2]==4 {
+		; valid request
+		;print request = %0req[1]% - %0req[2]% - %0req[3]% - %0req[4]% - %0req[5]% - %0req[6]%
+		; slave adress,function code,start adress Hi,start adress Lo,np Hi,np Lo,crc Lo,crc Hi
+		regs=req[6]/2
+		startreg=req[3]<<8|req[4]
+		;print addr= %0req[1]%, startaddr=%0startreg%, numregs=%0regs%
+		=#response
+		res=sa()
+		res=sra(resp)
+		;print duration %0(millis-mtime)%
+	} else {
+		if res<0 {
+			print crc error
+		} else {
+			print iqnore request
+		}
+		; empty serial queue
+		res=sa()
+		res=sra(resp)
+	}
+	
+}
+
+
+\>R
+; close serial port
+sc()
+```
+
     
 ### SDM630 (MODBus)
 Show how to request multiple registers.