Siemens MD-P1, User Manual, Page: 63 / 76

Appendices
Appendix F - Measuring Consumption (kWh), Demand, and Other Applications
63
Siemens Industry, Inc. 125-201
09/30/2019
04020 “%X%CDL” = “%Z%”
04994 C
04996 C CALCULATE THE PROPER DAY.
04998 C
05000 IF (DAY .NE. 1) THEN GOTO 5020
05010 SAMPLE(60) “%X%MON” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X %CD L”)
05020 IF (DAY .NE. 2) THEN GOTO 5040
05030 SAMPLE(60) “%X%TUE” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL")
05040 IF (DAY .NE. 3) THEN GOTO 5060
05050 SAMPLE(60) “%X%WED” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL”)
05060 IF (DAY .NE. 4) THEN GOTO 5080
05070 SAMPLE(60) “%X%THU” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL”)
05080 IF (DAY .NE. 5) THEN GOTO 5100
05090 SAMPLE(6 0) “%X%FRI” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL”)
05100 IF (DAY .NE. 6) THEN GOTO 5120
05110 SAMPLE(60) “%X%SAT” = (“%Y%” – “ %X% CDH”) + (“%Z%” – “%X%CDL”)
05120 IF (DAY .NE. 7) THEN GOTO 6000
05130 SAMPLE(60) “%X%SUN” = (“%Y%” – “%X%CDH”) + (“%Z%” – “%X%CDL”)
05998 C
05990 C ------- WEEKLY CONSUMPTION -------
05992 C IF IT IS THE LAST DY OF THE WEEK AND IT IS 12:00 AM, THEN SET THE
05994 C VIRTUAL METER CONSUMPTION POINT EQUAL TO THE ACTUAL DEM VALUES.
05996 C OTHERWISE, SKIP AND CALCULATE THE WEEKLY VALUE.
05998 C
06000 IF (DAY .EQ. 7.0 .AND. CRTIME .GE. 23.99) THEN GOTO 6010 ELSE GOTO 7000
06010 “%X%CWH” = “%Y%”
06020 “%X%CWL” = “%Z%”
06994 C
06996 C CALCULATE THE PROPER WEEK.
06998 C
07000 SAMPLE(60) “%X%WEK” = (“%Y%” – “%X%CWH”) + (“%Z%” – “%X%CWL”)
10000 GOTO 1000