>D
;start, define variables
cnt=0

>B

;setup sensor
->sensor53 r

>S
if upsecs%60==0 {
print read meter
;=#readmeter
}

#
#readmeter
print wakeup start
;set serial protocol
sml(-1 1 "2400:8N1")
;send 520 times 0x55 with 8N1, 2400 baud (wakeup sequence)
for cnt 1 72 1
sml(1 1 "55555555555555555555")
next
print wakeup end

print wait for the meter
;wait for the meter to wake up
delay(350)
;switch serial protocol
sml(-1 1 "2400:8E1")
print request data
;reset application code
sml(1 1 "6804046853FE5000A116"
;set string to send to "105BFE5916" (REQ_UD2)
sml(1 1 "105BFE5916")

>M 1
+1,3,rE1,0,2400,WAERME,1
1,0C06bcd8@1,Total Energy,kWh,w_total,0
1,0C13bcd8@1000,Total volume,m³,v_total,2
1,0C2Bbcd8@1,Current power,W,p_act,0
1,0B3Bbcd6@1000,Current flow,m³/h,F_akt,3
1,0A5Abcd4@10,Flow temp,°C,t_flow,1
1,0A5Ebcd4@10,Return temp,°C,t_return,1
1,0A62bcd4@10,Temp diff,°C,t_diff,2
#