00002 C ------------------ PROGRAM FOR MEC100K ------------------
00010 C THIS PROGRAM USES THE MEC 100K THERMISTOR PLUG (549-646).
00012 C INSTALLING PLUG ON A MEC ANALOG INPUT POINT PROVIDES A
00014 C VOLTAGE INPUT WHICH THIS PROGRAM CONVERTS TO A VIRTUAL
00016 C TEMPERATURE ONCE EACH SECOND. PROGRAM USES PAL (125-1804)
00018 C RESISTANCE-TEMPERATURE TABLE FOR LINEARIZATION PARAMETERS.
00020 C
00022 C ----------------------- CAUTION! ------- -----------------
00024 C THIS PROGRAM MUST REMAIN ENABLED IN THE MEC MONITORING THE
00026 C 100K THERMISTOR AT ALL TIMES FOR UP TO DATE TEMPERATURE.
00028 C
00030 C THIS SOFTWARE IS OWNED AND MAINTAINED BY SIEMENS BUILDING
00032 C TECHNOLOGIES INC., BUILDING AUTOMATION UNIT ALL RIGHTS
00034 C RESERVED. MODIFICATIONS WITHOUT EXPRESS, WRITTEN CONSENT
00036 C FROM SIEMENS BUILDING TECHNOLOGIES, INC. MAY VOID WARRANTY.
00038 C
00040 C SEE INSTALLATION INSTRUCTION (586-679)
00042 C FOR CONFIGURATION AND SEQUENCE OF OPERATION.
00044 C SAVE PROGRAM AS "SYSTEM NAME OF FIELD PANEL.MEC100K.PPCL"
00046 C ADDING OTHER PPCL TO THIS PROGRAM IS NOT RECOMMENDED.
00048 C
00050 C VER DATE ENG/SPEC COMMENTS
00052 C 0 10/24/2003 TAD PPCL FIXES PROGRAM PUBLISHED
00054 C
01000 C ---------------- MAIN PROGRAM FOR MEC100K ----------------
01002 C CREATE A GOSUB STATEMENT FOR EACH 100K THERMISTOR POINT
01004 C $ARG1 IS MEC PHYSICAL VOLTAGE INPUT POINT WITH 100K PLUG
01006 C $ARG2 IS MEC VIRTUAL TEMPERATURE INPUT POINT RESULT
01008 C
01010 C GOSUB 2000 "SYSTEM NAME OF TEMPERATURE POINT.100K",
01012 C "SYSTEM NAME OF TEMPERATURE POINT"
01014 C EXAMPLE:
01016 C GOSUB 2000 "BAU.ENG.OATEMP.100K", "BAU.ENG.OATEMP"
01018 C
01020 SAMPLE(1) GOTO 1040
01030 GOTO 2200
01040 C --------------- ENTER GOSUB STATEMENTS HERE ---------------
01980 GOTO 2200
01982 C ------------------- END MAIN PROGRAM ----------------------
01984 C
01990 C ---------------- SUBROUTINE FOR MEC100K -------------------
01992 C CAUTION!: DO NOT ADJUST VALUES IN TABLE STATEMENTS
01994 C $ARG1 VOLTAGE FOR EACH ENTRY IN PAL 100K RES-TEMP TABLE
01996 C $ARG2 LINEARIZED EACH 5 DEGREE FROM -45 TO 255 FARENHEIGHT
01998 C
02000 IF($ARG1 .GE. 1.04172 .AND. $ARG1 .LT. 1.72757) THEN TABLE($ARG1,$ARG2,1.04172,40.556,1.12967,37.778,1.23875,35.0,1.3417,32.222,1.46782,29.445,1.58508,26.667,1.72757,23.889) ELSE GOTO 2020
02010 GOTO 2190
02020 IF($ARG1 .GE. 1.72757 .AND. $ARG1 .LT. 2.65442) THEN TABLE($ARG1,$ARG2,1.72757,23.889,1.8584,21.111,2.01595,18.334,2.1581,15.556,2.32752,12.778,2.47716,10.0,2.65442,7.222) ELSE GOTO 2040
02030 GOTO 2190
02040 IF($ARG1 .GE. 2.65442 .AND. $ARG1 .LT. 3.60785) THEN TABLE($ARG1,$ARG2,2.65442,7.222,2.80645,4.445,2.98405,1.667,3.13403,-1.111,3.30652,-3.889,3.44764,-6.667,3.60785,-9.444) ELSE GOTO 2060
02050 GOTO 2190
02060 IF($ARG1 .GE. 3.60785 .AND. $ARG1 .LT. 4.30938) THEN TABLE($ARG1,$ARG2,3.60785,-9.444,3.73637,-12.223,3.87885,-15.0,3.991,-17.778,4.11338,-20.556,4.20746,-23.334,4.30938,-26.111) ELSE GOTO 2080
02070 GOTO 2190
02080 IF($ARG1 .GE. 4.30938) THEN TABLE($ARG1,$ARG2,4.30938,-26.111,4.38506,-28.889,4.46687,-31.667,4.52618,-34.444,4.58958,-37.222,4.63445,-40.0,4.68464,-42.778) ELSE GOTO 2100
02090 GOTO 2190
02100 IF($ARG1 .GE. 0.6112 .AND. $ARG1 .LT. 1.04172) THEN TABLE($ARG1,$ARG2,0.6112,57.222,0.66539,54.445,0.7305,51.667,0.7939,48.889,0.87265,46.111,0.94866,43.333,1.04172,40.556) ELSE GOTO 2120
02110 GOTO 2190
02120 IF($ARG1 .GE. 0.36031 .AND. $ARG1 .LT. 0.6112) THEN TABLE($ARG1,$ARG2,0.36031,73.889,0.39269,71.111,0.42917,68.334,0.46666,65.556,0.51237,62.778,0.55631,60.0,0.6112,57.222) ELSE GOTO 2140
02130 GOTO 2190
02140 IF($ARG1 .GE. 0.2185 .AND. $ARG1 .LT. 0.36031) THEN TABLE($ARG1,$ARG2,0.2185,90.556,0.23623,87.778,0.25706,85.0,0.2785,82.223,0.30543,79.444,0.33031,76.667,0.36031,73.889) ELSE GOTO 2160
02150 GOTO 2190
02160 IF($ARG1 .GE. 0.13669 .AND. $ARG1 .LT. 0.2185) THEN TABLE($ARG1,$ARG2,0.13669,107.223,0.1476,104.444,0.15817,101.667,0.17214,98.889,0.18578,96.111,0.20214,93.333,0.2185,90.556) ELSE GOTO 2180
02170 GOTO 2190
02180 IF($ARG1 .LT. 0.13669) THEN TABLE($ARG1,$ARG2,0.08726,123.889,0.09545,121.111,0.10124,118.333,0.10942,115.556,0.1176,112.778,0.12578,110.0,0.13669,107.223)
02190 RETURN
02200 GOTO 1020
02210 C -------------------- END PROGRAM MEC100K -------------------