Document pmJbJ7j7q7YEgbBp3bRJKkQLj

5P (conoco) Interoffice Communication to Ron Bryan From Si W. Sommer Date April 3, 1984 subject IBM PC-XT Replacement for the Perkin-Elmer Interdata Computer Attached is the complete documentation for the hardware, software, maintenance, and operating procedures for the IBM Personal Computer XT which has replaced the Perkin-Elmer Interdata Computer. The IBM PC-XT will be used for the fixed point monitoring/leak detection program (as part of the VCM Plant's Leak Detection and Elimination Plan), for Oxychlorination reactor flammability monitoring, and for calculation of the Oxychlorination reactors' reduced pressure drops and steam/air ratios. In mid-1983, Perkin-Elmer notified the VCM Plant that the printer/keyboard which interfaced with the Interdata computer would no longer be serviceable under the maintenance contract with Perkin-Elmer. In order for the printer/ keyboard to be serviceable, approximately $6000 would had to have been invested in a new printer/keyboard of a different model. In December 1983, the plant decided to purchase an IBM PC-XT and a compatible multiplexer to perform the same functions as the Interdata computer. The decision was based on the required cost to upgrade the Interdata system and on several other factors: 1) The Interdata computer had a high hardware failure rate and was unreliable. 2) Upgrading the software for Interdata took months or up to a year to complete because the software was maintained in Ponca City, not in the plant. 3) The FORTRAN computer language used by Interdata made input/ output requests, debugging, and maintenance difficult. 4) The VCM Plant had an $800/month maintenance contract with Perkin-Elmer. The savings from cancelling this contract will payout the total cost of the new system within 2 years. The IBM PC-XT software is written in BASIC, is easy to understand, and will be maintained in the plant, allowing software changes to be made quickly. The IBM PC-XT hardware is reliable and can be maintained in the plant. No maintenance contract will be carried on the IBM PC-XT. Since the VCM Plant has two additional IBM PC-XT computers with interchangeable hardware, down time of the system will be minimized. When hardware problems do arise, parts will be taken from the IBM PC-XT's in the main office building and placed in the IBM PC-XT which is replacing the Interdata computer. Replacement parts will then be ordered for the office computers. In this way, the stream factor of the fixed point monitoring system will be maximized. CCR 000018906 The new system includes an IBM PC-XT and a Burr-Brown data multiplexer. The IBM PC-XT and the multiplexer communicate via a standard RS-232-C interface. All analog and discrete devices (transmitters, Provox outputs, annunicators, and gas chromatographs) are wired directly to the multiplexer. The IBM PC-XT requests data from the multiplexer via the RS-232-C interface, and the multi plexer responds to the request. The multiplexer data is then received and processed by the IBM PC-XT, and calculations are performed and logs or alarm messages are generated as directed by the BASIC program. 1 s or comments, please call me at 5058. Process Engineer CC: RAC-JWW MLA -MCM - JRH - CRH (3) DLD - JGC - PDD - VMF -MWC - MJA - SJR - SCR CCR 000018907 TABLE OF CONTENTS I. General System Description II. Burr-Brown Multiplexer III. IBM PC-XT computer IV. Description of "FIXEDPT.BAS" V. Auxiliary Programs VI. Operating the System VII. System Maintenance VIII. System Troubleshooting IX. Supplies Figures Figure 1. Burr-Brown Multiplexer Figure 2. Simplified "FIXEDPT.BAS" Logic Diagram Figure 3. CAR-171 Monitoring Points Figure 4. CAR-401 Monitoring Points Figure 5. Leak Detection Logic Diagram Figure VCM-BB-l-SWS. FY-302 Loop Drawing Figure VCM-BB-2-SWS. FY-303 Loop Drawing Figure VCM-BB-3-SWS. FY-304 Loop Drawing v Figure VCM-BB-4-SWS. FY-306 Loop Drawing Figure VCM-BB-5-SWS. FY-307 Loop Drawing Figure VCM-BB-6-SWS. FY-308 Loop Drawing Figure VCM-BB-7-SWS. FY-309 Loop Drawing Figure VCM-BB-8-SWS. FY 312 Loop Drawing Figure VCM-BB-9-SWS. FY 320 Loop Drawing Figure VCM-BB-10-SWS. PR-302 Loop Drawing Figure VCM-BB-ll-SWS. PD 1-304 Figure VCM-BB-12-SWS. PDI-308 Figure VCM-BB-13-SWS. PDI-317 Figure VCM-BB-14-SWS. TI-302-1A/TI-302-12A/ TI-304-12A/TI-305-12A Loop Drawing Figure VCM-BB-15-SWS. CAR-171/CAR-401/CAR-904 Figure VCM-BB-16-SWS. Terminal Block No. 1 Figure VCM-BB-17-SWS. Terminal Block No. 2 Figure VCM-BB-18-SWS. Terminal Block No. 3 Figure VCM-BB-19-SWS. Terminal Block No. 4 Figure VCM-BB-20-SWS. Terminal Block No. 5 PAGE 1 1 4 6 15 16 17 17 17 35 36 38 39 40 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 cc 000018908 TABLE OF CONTENTS (CONT.) Tables Table I. MCS50A System Configuration Table II. Analog Inputs Table III. Discrete Inputs Table IV. Discrete Outputs Table V. MCS50A Error Codes Table VI. ASCII Character Codes Table VII. Hexadecimal Conversion Tables Table VIII. MCS50A Commands/Responses Table IX. Software Configuration Table X. VCM Leak Detection Areas Table XI. IBM PC-XT/Burr-Brown Troubleshooting Appendices Appendix 1. Appendix 2. Appendix 3. Appendix 4. Appendix 5. Program Listing of "FIXEDPT.BAS" Alphabetical Listing of Variable Names in "FIXEDPT.BAS" Program Listing of "FAIL.BAS" File Listing of "M0NIT0R.BAT" File Listing of "AUTOEXEC.BAT" PAGE 18 19 20 21 22 23 25 26 30 32 33 64 95 103 104 105 -) 1 OOOOl"09 CCR IBM PC-XT/BURR-BROWN DOCUMENTATION (1) I. GENERAL SYSTEM DESCRIPTION The system installed to perform the VCM Plant's VCM fixed point monitorning/leak detection, Oxychlorination flammability monitoring,, and calculation of the Oxychlorination reactors' reduced pressure drops and steam/air ratios consists of an IBM Model 5160 Personal Computer XT and a Burr-Brown Model MCS 50A multiplexer. The computer and multi plexer are connected via an RS-232-C interface and cable. All field transmitters, Provox outputs, annunicators, and gas chromatographs are wired directly to termination strips inside the multiplexer unit housing. The IBM PC-XT requests data from the Burr-Brown multiplexer, and the multiplexer decodes the request and sends a response to the IBM-PC-XT. The IBM PC-XT then decodes the response, processes the data, and performs calculations using the data as directed by the BASIC program. II. BURR-BROWN MULTIPLEXER System Configuration A general layout of the Burr-Brown MCS50A multiplexer is shown in Figure 1. The three main components of the Burr-Brown multiplexer are the card cage, which houses the processor (.CPU) card and all input/output cards, the field wiring termination strips, and the power supply. These three components are described below. 1. Termination strips: Field analog and discrete input and output signals are physically connected to screw-type terminations which are integral to the MCS50A. Each termination strip is connected to an input/output by means of a flat ribbon cable which snaps in at the termination strip and connects to the input/output card via a card edge connector. The plant's MCS50A has a termination strip for analog input channels J.-15, one for analog input channels 16-39, one for analog channels 40-63, one for discrete input channels 1-16, and one for discrete output channels 1-16. 2. Card cage assembly; The card cage assembly houses all of the logic, processing, and input/output cards. The card cage has a "back-plane" which has a standard Intel Multibus configuration. All of the cards plug into the Multibus back-plane. Card size, connections, voltage levels, signal distribution, and data levels are standardized by Multibus specifications. The MCS50A card cage may house up to five cards, one of which must be the processor card (CPU). The flat ribbon cables from the termination strips are connected to the appropriate cards by means of a card-edge connector. The processor card is connected by a flat ribbon cable to the auxiliary card which is mounted on the front of the card cage. The auxiliary card is the communications card, which sends the RS-232-C communications signal from the CCR 000018910 (2) processor card to the RS-232-C connector installed on the auxiliary card. A redundant RS-232-C port is included, but is not used in the plant's system. 3. Power supply: The power supply converts the 110VAC line supply voltage to +5VDC, -5VDC, +12VDC, and-12VDC signals for use by the processor and input/output cards. Table I gives a description of the plant's MCS50A configuration system. Loop Drawings The field analog inputs, discrete inputs, and discrete outputs to/from the MCS5QA are listed in Tables II, III, and IV, respectively. The loop drawing for each input and output are shown in Figures VCM-BB-l-SWS through VCMBB-15-SWS. Terminations are shown in Figures VCM-BB-16-SWS through VCM-BB-20-SWS. Diagnostics There are two diagnostic functions of the MCS50A. One function performs a hardware integrity check, and the other provides a firmware integrity check. The MCS50A continually performs internal integrity routines and provides the results by means of seven LED indicators on the auxiliary card. These indicators are: PWR RUN SCAN XMIT REC LI L2 Power is on. The processor card is operating properly. The MCS5QA is properly configured. Data is being transmitted to the IBM PC-XT. The MCS50A is receiving data from the IBM PC-XT. Communication port LI is currently being used (normally used). Communication port L2 is currently being used (not used in the plant's system). The MCS50A also checks for firmware errors, including parity errors, check sum errors, and command errors. If any of these firmware errors is found, and error message is sent to the IBM PC-XT. A list of errors the MCS50A checks for are listed in Table Y. Checksum calculations are optional and are not made in the plant's system. Error codes are sent only as a response to a command sent from the IBM PC-XT. If no command is received by the MCS50A, no error message (or other responses) will be sent. This prevents the communications line from becoming saturated whenever an error occurs. See the MCS50A User's Guide for additional information concerning parity and checksum errors. Communications and Data Transmission All analog and discrete inputs and outputs are multiplexed and converted to 12-bit resolution digital signals by their respective input/output cards. The digital data is then presented on the Multibus for interface with the CCR 000018911 (3) processor card. The digital data passes to the processor card and is stored in the processor card's random access memory (RAM). The data is represented by four ASCII characters (analog data) or by two ASCII characters (discrete data). The processor firmware continuously scans each analog and discrete channel and updates the data in its memory. The processor contains 4K of RAM. The data scan and digital data manipulation is controlled in the processor by a configuration command which is downloaded from the IBM PC-XT. The configuration command is sent only once to the MCS50A and is stored in RAM. Communications with the IBM PC-XT are handled by the auxiliary card. The VCM Plant's system uses an RS-232-C interface with the MCS50A. All communications between the IBM PC-XT and the MCS50A travel along a standard RS-232-C cable with 25-pin connectors. The communications rate for both the IBM PC-XT and the MCS50A has been set at 300 BAUD (300 bits per seconds), with a data wordlength of 8 bits, all data with even parity, and one stop bit. Communications are performed in the following sequence: 1. The IBM opens a communications file and writes a command to the file. 2. The command is sent along the RS-232-C cable and is controlled by the asynchronous communications adapter in the IBM PC-XT (explained later). 3. The MCS50A receives the commands, performs parity and check sum calculations, interprets the command, gathers the requested data, and sends a response via the auxiliary card to the IBM PC-XT. 4. The MCS50A response is stored in the IBM PC-XT communications buffer. 5. The IBM PC-XT loads the communications buffer data into RAM, decodes the response, and processes the data. Commands and Responses The first command sent by the IBM PC-XT is a configuration command. This command is stored in RAM of the MCS5QA. If another command is sent before a configuration command is sent, the MCS50A will respond with an error code, indicating an unconfigured status. The configuration command consists of five parts: 1. MCS50A address. Since only one MCS50A is employed in the VCM Plant's system, the address used is: 01. 2. Configuration command code. This code is Jl. 3. Card types and number of channels. Each card type (analog input, discrete output, etc.) and the number of channels to be scanned must be given. 4. Checksum. Since checksums are not used by the system, the checksum characters are: XX. 5. Carriage return. An ASCII carriage return symbol is placed at the end of each command to signify the end of the command. CCR 000018912 (4) The MCS50A will respond to the configuration command by restating the command. The IBM PC-XT checks to see that the response matches the command. If so, the configuration is complete and execution of the computer program continues. All commands are sent by the IBM PC-XT in ASCII code. See Table VI for a list of ASCII codes. The configuration command sent to the MCS50A by the IBM PC-XT is: CHECKSUM ASCII CODE CARRIAGE RETURN Notice that all numerical valves are in hexadecimal form (hex, or base 16). For example, 63 analog channels is represented by 03F, which is hex for 63. See Table VII for a list of hexadecimal to decimal conversions. The group of zeros unidentified in the configuration command above represent channel numbers for card types not used in the plant's system. For information on additional card types, see the MCS50A Users Manual. The MCS50A responds to the above configuration command with the response: "01J103FOOOOOOOOC00001000Q0002D"+CHR$(13) Note that the MCS50A calculated a checksum of 2D (decimal equivalent = 45) for the configuration string. The MCS50A always calculates a checksum, even if XX was specified in the command. The XX only tells the MCS50A to not compare checksums. The carriage return code from Table VI is 13. This is represented in BASIC by the character code CHR$(13). This code signals the end of a command. The form of all other MCS50A commands are similar in structure to the configuration command. The other commands and data responses used and decoded, respectively, in the IBM PC-XT BASIC program are given in Table VIII. See the MCS50A User's Manual for additional information on the MCS50A commands. III. IBM PC-XT COMPUTER System Configuration The IBM computer system employed is a Model 5160 Personal Computer-XT (IBM PC-XT) with 384K of installed RAM, a 340K floppy disk drive, a 10Mb Winchester (hard) disk drive, a color graphics monitor, an 80 character CCR 000018913 (5) per second (CPS) dot matrix graphics printer, and an asynchronous communications adapter. All parts of the PC-XT are interchangeable with parts from the other two PC-XT computers at the VCM Plant. Diagnostics Run-time diagnostics on the IBM PC-XT are limited to errors encountered during execution of the main BASIC program. The main program contains error trapping and identification routines to help the user to trouble shoot the system. The error trapping routines used in the program will be described with the program software and logic. Communications and Data Transmission Data transmission to the MCS50A is handled by the asynchronous communica tions adapter on the IBM PC-XT. The asynchronous communications adapter is an RS-232-C interface which can be linked directly with the MCS50A without the use of a modem or other interfacing device. The MCS50A requires an asynchronous data interface, as opposed to a synchronous data interface. Asynchronous communications refers to a communications link where data is transmitted only when available, whereas synchronous communications (as with TSO) requires a continuous transmission of data. Data transmission with the MCS50A is also half-duplex, which means data transmissions are sent by either the IBM PC-XT or the MCS50A but not both at any instant in time. Another way to think of half-duplex communica tions is to think of the communication cable as a one-lane data bridge over which data traffic can pass in either direction. Software Configuration The main BASIC computer program is contained in the file"FIXEDPT.EXE" on the hard disk. This file is an executable machine language file created from the compilation of the BASIC program "FIXEDPT.BAS", which also resides on the hard disk. This program includes the code which performs all the data input, calculations, and output for the VCM leak detection monitoring, oxychlorination flammability monitoring, and Oxychlorination reduced pressure drops and stem-to-air ratios table. The executable file "FAIL. EXE" illuminates an annunciator and gives an audible alarm upon an IBM PC-XT software or communications failure. "FAIL.EXE" also resides on the hard disk. Both "FIXEDPT.EXE" and "FAIL.EXE" are included in the batch file "M0NIT0R.BAT". The batch file is included to provide continuity in execution. If a software or communications failure should occur in "FIXEDPT.EXE" the file will stop execution, return to the computer's disk operating system (DOS) and execute the next command in the batch file "M0NIT0R.BAT", which illuminates the computer failer alarm. Without the batch file, execution of "FIXEDPT.EXE" would end with no way to automatically annunciate an alarm. More information on batch files can be obtained from the IBM DOS Manual. Table IX shows the way in which the hard disk and floppy disk drives are configured. A brief description of the function of each of the files is also included in this table. ) CCR 000018914 (6) IV. DESCRIPTION OF "FIXEDPT.BAS" The main BASIC program is contained in the file "FIXEDPT.BAS" and is listed in Appendix 1. The program is comprised of an executive timing routine and 21 subroutines. All of the calculational tasks are handled by the subroutines, and all "housekeeping" chores and timekeeping functions are initiated by the executive timing routine. Each portion of the program will be described in detail. A logic diagram for this program is shown in Figure 2, and an alphabetical listing of all variable names is given in Appendix 2. The executive timing routine is the task scheduler for the program. This routine keeps the performance of each task on a rigid time schedule and directs the printing of all logs. Scheduling tasks in a real-time computer application is essential since all major tasks depend on time. The executive timing routine includes lines 260 through 370 of the main program. A plot plan of the process area with the CAR-171 monitoring points indicated and a plot plan of the offsites area with the CAR-401 monitoring points indicated are shown in Figures 3 and 4, respectively. These diagrams will be used in the definition of a VCM leak as described below. The description below has been used to formulate the leak detection logic of the leak detection subroutine. A logic diagram of the leak detection routine is shown in Figure 5. A VCM leak has been defined as a VCM concentration exceeding lOppm in a monitoring area on both of two successive gas chromatograph scans. An area (or monitoring area) is comprised of one or more analyzer points. See Table X for the area definitions. Restated, a VCM leak occurs whenever the VCM concentration in any area exceeds lOppm on two successive GC scans, regardless of which point in the area shows the high VCM concentration. For example, if analyzer CAR-171 point #1 showed 20 ppm VCM and point #3 showed 16ppm during one GC scan, no leak has occurred since the high VCM readings occurred on the same 10-point GC scan. If on the next scan, CAR-171 point #2 showed 12ppm VCM, a leak in Area #1 will have occurred, since points #1, #2, and #3 are all in the same area. Also, notice some GC points are located in more than one area. All of these are on CAR-171. Point #1 is in Area 1, Area 2, and Area 4. Point #4 is in Area 2 and Area 3. These overlaps have been added because these areas are so close together, if a leak occurred near CAR-171 Point #1 or #4, the wind could cause the VCM leaked to drift into adjacent areas. To eliminate recording multiple leaks when a single leak occurs (two successive high VCM readings for CAR171 Point #1 would show a leak in Area 1, Area 2 and Area 4 simultaneously otherwise), the following logic has been installed in the computer program: CCR 000018915 IF HIGH VCM OCCURS FOR CAR-171 POINT: 1, 2, or 3 4 9 5 1 but not 4 4 but not 1 4 but not 9 9 but not 4 1 but not 5 5 but not 1 AND ON THE NEXT SCAN OCCURS FOR POINT: 1, 2, or 3 4 9 5 4 but not 1 1 but not 4 9 but not 4 4 but not 9 5 but not J. 1 but not 5 (7) A LEAK IS IN AREA: 1 2 3 4 1 2 2 3 1 4 t CCR 000018916 (8) A detailed description of "FIXEDPT.BAS" follows. LINE NO. 1-14 19-30 35-95 100 102-104 105-155 156-160 240 245-247 250 260 270 280 290 300 3Q5 310-320 330 331 334-335 337 340-35Q 355 360-370 280-390 DESCRIPTION Executive Timing Routine Program headings Clear the monitor screen, define arrays base value, and declare all variables beginning with I, K, or L as integers Dimension all arrays Turn off monitor "softkeys" (function key indicators at bottom of BASIC screen). Input of yesterday's date and calculation of current date. Qxy flammability program enthalpy functions defined. Monitor screen headings displayed. Set error trapping routine as subroutine beginning at line 15000. Start of executive timing routine. Initial configuration of Burr-Brown set. Set time at beginning of executive timing loop. Reset discrete outputs for annunicator alarms which have cleared. Check GC status. Input GC analog inputs. Calculate Qxy reactor flammabilities. Update time. Check for end of hour and print hourly log if end of hour. If end of day, print daily log. Reset daily log printing flag. Display time and date on monitor screen. Update time. Test for 7:00 am; if 7:00 am, calculate and print oxy reactor d/p's and steam/air ratios. Update time Calculate time elapsed since beginning of current executive timing loop. If 16 seconds or greater, begin executive loop again. Program end. CCR 000018917 LINE NO. 1000-1020 1030-1110 1120-1130 1135-1170 1180 1190-1200 1210-1270 1280-1350 1360-1370 2000-2070 2080-2100 2110 2120-2190 2200-2280 2290 3000-3070 3080-3130 3140 3150 (9) DESCRIPTION Burr-Brown Initialization Routine Start of Burr-Brown initialization routine. Establish communications with Burr-Brown. If not able to establish communications after six attempts, stop execution. Open permanent communication file with Burr-Brown. Send configuration command to Burr-Brown and wait 150 milliseconds before inputting the Burr-Brown response. Test response for error codes. If incorrect response is received, print error message. Repeat command/response sequence for setting the analog input data gain to 1. Repeat command/response sequence for setting the response turnaround time to 0 milliseconds. Set GC flags and return to executive. GC Status Determination Request discrete input data from Burr-Brown and receive the data. Check response for error codes. Extract hexadecimal data from the response and convert to a decimal number. Convert the data from decimal to binary. Check the binary data for the status of each GC, and display the status on the monitor screen. If a GC has been turned off since the last GC check, print a message and set the GC status flag. Return to the executive timing routine. GC Analog Data Input Request analog data for the leak detection routine from Burr-Brown and receive the data. Check the response for error codes. Extract the hexadecimal data and gain for each channel of data requested. Convert the analog data to engineering units. Return to the executive timing routine. OCR 000018918 LINE NO. 4000-4050 4060-3110 4115-4117 4120-4124 4130 4140-4160 4180 4190-4230 4235 4240 4250-4270 4280 4290 4300 4305-4330 4335-4550 4555-4760 4770-4771 4775-4840 (10) DESCRIPTION Conversion of GC Analog Data to Engineering Units Convert the raw hexadecimal analog input data to decimal number form. Convert each channel of data from decimal two'scomplement into volts. Program headings, begin CAR-171 calculations. If CAR-171 is off, reset the previous pass hi VCM indicator array and skip to the CAR-401 calculations. Calculate CAR-171 stream ID. Print message if stream ID is out of range. If stream ID has changed since the last GC pass, skip to the CAR-401 calculations since the CAR-171 data for the new channel is not available yet. If data for the present stream ID has already been recorded on a previous scan, skip to the CAR-401 calculations. If stream ID=1, do leak detection routine. Convert GC data to PPM VCM. If GC data is out of range, print message and set GC data = 0 if GC data is less than zero. Add current GC data to cumulative sum for daily average concentration calculation. Add 1 to the total number of GC scans for the current day. If the current data for the current point is the highest for the current day, store the data value. Alarm the annunicator if the current VCM concentration is above lOppm. Add 1 to the number of times the concentration has exceeded lOppm. Repeat the loop (lines 4115-4330) for CAR-401 Repeat the loop (.lines 4115-4330) for CAR 904, except the leak detection routine is not done. Set the old stream ID variable equal to the last stream ID and set the last stream ID equal to the current stream ID. Display the current VCM concentrations for each GC point on the monitor screen. ooooia^9 CCR LINE NO. 4845-4390 4940 5000-5260 5265-5390 5400-5500 5510 6000-6040 6042-6045 6050-6220 6230-6280 6290-6310 6314-6317 6320 7000-7250 7260 8000-8020 8021 8022 (11) DESCRIPTION Write the current VCM concentration data on the fixed disk. Return to the executive timing routine. O^ty Flammability Analoq Data Input Input all analog data for the oxy reactor flammability program and convert the raw data into volts . Convert all analog data from volts into percent of full range. Convert all analog data from percent of full range into engineering units. Return to Oxy reactor flammability calculation routine. Process Area Leak Detection Set high VCM flag for GC data which exceeds lOppm for CAR-171. Set leak detection area flag variables. Set arrays for leak detection based on high VCM concentrations for current GC scan. Check leak detection array for last GC scan. If high VCM concentrations occurred in both the last scan and the current scan, record a leak, alarm the annunicator, and print a leak message. Set the leak detection array for the last GC scan equal to the current leak detection array for the next GC scan. Set the leak detection flag variables equal to the current flag variables for the next GC scan. Return to the GC analog input routine. Off-sites Area Leak Detection Repeat the leak detection routine for CAR-401. Return to the GC analog input routine. Hourly Report Generation and Printing Set the current hour equal to the last hour variable. If it is the end of the day, update the date. If it is the end of the day, set the flag to print the daily log once the program returns to the executive timing routine. CCR 000018920 LINE NO. 8025-8200 8205-8380 8400-8430 8440 9000-9017 9020-9410 9419-9750 9760-9860 9870 10000-10080 10090 10100 10110-10790 10795-10880 10890 11000-11030 11040 11050-11610 (12) ________ DESCRIPTION Print the hourly log. Record the hourly data on the floppy disk. Set the cumulative number of times above lOppm VCM through last hour equal to the "old" number of lOppm exceedences. Return to the executive timing routine. Daily Report Generation and Printinq Set the GC scan counters to 1 if the counters are 0 to avoid dividing by 0. Print daily report. Record daily report on the floppy disk. Reset counting and data arrays, counters, and hard disk data files. Return to the executive timing routine. Oxy Flammability Calculation Initialize variables and set number of conduc tivity cycles in the Oxy steam drums. Input analog values and convert to engineering units in subroutine beginning at line 5000. If the HCL flow to Oxy is less than 500 Lbs/Hr. or if the oxygen flow to Oxy is less than 100 Lbs./ Hr., Oxy is down and skip the flammability calculations. Calculate the Oxy reactor flammabilities and display the results on the monitor screen. If the flammability at any point has exceeded 80%, alarm the annunicator and print out a message. Return to the executive timing routine. Error Identification and Message Printing Ring the bell on the printer and print the time and date for the error message. Decode the value of FLAG and go to the appropriate error message. Print the appropriate error message 0000X8921 CC8 LINE NO, 12000-12020 12030-12180 12190 13000-13140 13150-13260 13270-13300 13310-13360 13370-13480 13490 14000-14090 14160 15000-15050 15055 15060 (13) DESCRIPTION Hexadecimal to Decimal Conversion Obtain the length of the hexadecimal string to convert to decimal form. Calculate the decimal equivalent of the hexadecimal string. Return to the statement which called this subroutine. Ox.y Reactor Pressure Drop Calculation Input all analog data to be used in the Qxy reactor DP and steam/air ratio calculations. Divide the Burr-Brown response into data and data gain strings. Convert the analog data into percent of full range. Convert analog data into engineering units. Calculate the denominator and numerator factors, respectively, for the Oxy reactor reduced pressure drop equations. Calculate and print the Oxy reactor reduced pressure drops and steam/air ratios. Return to executive timing routine. Decimal To Binary Number Conversion Convert a decimal number into a binary string. Return to the statement which called this sub routine . IBM Error Trapping Routine Identify and print the IBM error message and error number. Clear the screen and redisplay the monitor screen headings. Resume at the statement immediately preceeding the statement which caused the error. CCR 000018922 LINE NO. 16000-16041 16050-16070 16075 16080 17000-17030 17040 18000-18110 18120 19000-19165 19170 19180 20000-20060 20070 21000-21120 21130 21140 (14) DESCRIPTION Burr-Brown Error Identification Routine Identify the Burr-Brown error number and print a message. If the error number is 03, reconfigure the Burr-Brown and print a message. Clear the screen and redisplay the monitor screen headings. Return to the Burr-Brown error trapping routine. Burr-Brown Error Trapping Routine Check the Burr-Brown responses for the "N" bit which indicates an error message. Return to the statement which called this subroutine. Print Monitor Screen Headinqs Clear the monitor screen and redisplay the monitor screen headings. Return to the statement which called this sub routine. Current Date Calculation Calculate new date. Assemble the new date string. Return to the hourly log printout routine. Calculation of Number of Seconds Past Midnight Calculate the number of seconds past midnight by using the JIME$ function. Return to the executive timing routine. Annum'cator Alarming Routine Check which annunciators should be in alarm and send the appropriate discrete output command to Burr-Brown. Check the discrete output command response for an error code. Return to the statement which called this subroutine. CCR oooi8923 (15) V. AUXILIARY PROGRAMS A program listing and description of "FAIL.BAS", "MQNITOR.BAT" and "AUTOEXEC.BAT" are given in Appendices 3, 4, and 5, respectively. VI. OPERATING THE SYSTEM Operation of the IBM/Burr-Brown system is very simple. To bring the system online from a "cold start", follow the steps below. 1. Turn the power to the IBM Computer system unit, printer, and monitor on with the floppy disk drive empty. 2. Turn the power to the Burr-Brown multiplexer on. 3. Enter the current time and date at the DOS prompts on the IBM PC-XT. 4. Place a floppy disk containing the files given in Table IX in the floppy disk drive. A master floppy with these files is available, so the master may be copied directly to obtain a working disk. A copy of the master diskette should be kept in the fireproof cabinet in B. J. Rogers office. 5. At the DOS prompt C>, type in "MONITOR". 6. Enter the current time and date when prompted. 7. Enter yesterday's date as: Month, Yesterday, Year. Example: 3,14,1984. 8. The program is now running. The screen titles and GC data, GC status indicators, and Oxy flammability data should all be present on the screen within 30 seconds. The GC data will begin updating in about 45 seconds. If this does not happen or if an error occurs during execution, refer to the trouble shooting section below for corrective actions. 9. To start the programs if DOS has already been loaded, make sure the properly configured floppy disk is in the floppy disk drive and begin at step 5 above. VII. SYSTEM MAINTENANCE Process Engineering Responsibilities The responsibilities of Process Engineering regarding the maintenance of the IBM/Burr-Brown system are given below: 1) Program changes should be made only as required and should be documented fully by making revisions or additions to this manual. After program changes are made to a BASIC program, the program must be compiled again to obtain an updated executable file. Program changes should be made and the programs should be compiled on the IBM PC-XT*1s in the main office in order to minimize downtime of the fixed point monitor system. The updated program can then be loaded directed from a floppy onto the fixed point monitor computer. 2) All hardware changes must be documented by updating the loop drawings. Loop drawings should conform to the format in Figures VCM-BB-l-SWS through VCM-BB-20-SWS. CCR 000018924 (16) 3) The floppy disk should be changed each Tuesday and Friday to avoid a "DISK FULL" error which will halt program execution. Full diskettes should be kept by the Environmental Coordinator. The diskettes should be kept four weeks and then should be reused. Any data on the diskettes which needs to be kept for environ mental documentation, inspections, or audits should be printed from the diskette before reusing it. 4) The system documentation should periodically be reviewed and updated as necessary. 5) The environmental coordinator will have the primary responsibility for insuring the continued operation of the system. Operations Department Responsibilities 1) All printer outputs should be collected by Operations and forwarded to M. L. Ashby. The daily report will be copied and distributed, and all other printer output should be sent to the Process Engineering environmental coordinator. No output should ever be discarded. 2) An hourly printout should be generated every hour on the hour. The printer should be checked periodically to see if the hourly reports are being generated. If the reports are not being generated, start taking manual GC readings at once. 3) If the execution of the program should stop for any reason, manual GC readings should be taken starting immediately, even if the "COMPUTER PROBLEM" annunicator is not lit. 4) If problems with the system develop, the call-out order will be: 1) Process Engineering environmental coordinator (weekdays) or the Process Engineer with weekend duty (weekends). 2) Scott Sommer, Office Phone: Ext. 5058 Home Phone: 477-4465 3) Any Process Engineer during weekdays. 5) Operations will be responsible for responding to any alarms and making the necessary operating changes or initiating maintenance. 6) Operations will be responsible for filling out a leak report upon every leak occurrence and forwarding the leak report to M. L. Ashby and the Process Engineering environmental coordinator. CCR 000018925 07) 7) Operations will be responsible for calibrating the GC's during the weekend. The GC's roust be turned off before calibrating so that the voltage signals outputted by the GC's are not recorded as data by the IBM PC-XT during the calibration. Instrument Department Responsibilities 1) The Instrument Department should calibrate the GC's every day (Operations will calibrate the GC's on the weekends). The GC's must be turned off before calibrating so that the voltage signals outputted by the GC's are not recorded as data by the IBM PC-XT during calibration. 2) The Instrument Department will assist Process Engineering with all hardware changes made to the system. VIII. SYSTEM TROUBLESHOOTING The IBM PC-XT and the Burr-Brown multiplexer both are fairly simple to troubleshoot. Table XI is a troubleshooting chart which will aid in correcting most problems when they occur. The IBM reference books and the Burr-Brown User's Manual should be used as further reference sources. IX. SUPPLIES The following is a list of replacement parts and supplies for the IBM PC-XT. All parts should be charged to operating supplies (charge code #8611-801-355-3-17). ITEM DESCRIPTION STOCK NO. 5%" Floppy Diskettes Printer Paper for IBM 80 CPS Graphics Printer Ribbon for IBM 80CPS Graphics Printer 57-445-16 32-500-01 57-446-01 CCR 000018926 08) TABLE I MCS5QA SYSTEM CONFIGURATION CARD CAGE TERMINATION SLOT 1: SM51623 PROCESSOR CARD SLOT 2: SM51401 DISCRETE OUTPUT CARD SLOT 3: SMB1200 DISCRETE INPUT CARD SLOT 4: SMS1102 ANALOG INPUT EXPANDER CARD SLOT 5: SM51100 ANALOG INPUT CARD NONE SM50020 16 CHANNELS SM50018 12 CHANNELS SM51525 CHANNELS 40 - 63 SM51523 CHANNELS 16 - 39 SM51521 CHANNELS 1 - 5 POWER SUPPLY INPUT VOLTAGE: 110VAC OUTPUT VOLTAGES: 5VDC, 12VDC ENCLOSURE NEMA TYPE 4 EXPLOSION PROOF AUXILIARY CARD SM51820 RS-232-C AUXILIARY CARD DUAL PORTS RIBBON CABLES SM50037-000 RIBBON CABLES MALE SNAP-IN CONNECTOR FEMALE CARD EDGE CONNECTOR CCR 0 0 0 0 1 8 9 2 7 CHANNEL NO. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 - 63 09) TABLE II ANALOG INPUTS INPUT CAR-171 ID CAR-171 DATA CAR-401 ID CAR-401 DATA CAR-904 ID CAR-904 DATA SPARE R-301 TEMP IN (TI-302-1A) R-302 TEMP IN (TI-302-12A) R-303 TEMP IN (TI-304-12A) R-303 TEMP OUT (TI-305-12A) S-301 STEAM (FI-304) S-302 STEAM (FI-307) S-303 STEAM (FI-309) 02 TO R-301 02 TO R-302 02 TO R-303 C2H4 TO R-301 HCL TO OXY (TOTAL) HCL TO R-302 SPARE SPARE SPARE R-301 PRESS. IN R-301 D/P R-302 D/P R-303 D/P SPARES ORIGIN CAR-171 CAR-171 CAR-401 CAR-401 CAR-904 CAR-904 FIELD FIELD FIELD FIELD PROVOX PROVOX PROVOX PROVOX PROVOX PROVOX PROVOX PROVOX PROVOX PROVOX PROVOX PROVOX PROVOX CCR 000018928 CHANNEL NO. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 TABLE III DISCRETE INPUTS INPUT SPARE SPARE SPARE SPARE SPARE SPARE SPARE SPARE CAR-171 IN SERVICE CAR-401 IN SERVICE CAR-904 IN SERVICE SPARE SPARE SPARE SPARE SPARE (20) ORIGIN CAR-171 CAR-401 CAR-904 CCR 000018929 CHANNEL NO. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 TABLE IV DISCRETE OUTPUTS OUTPUT HI VCM CONCENTRATION VCM LEAK HIGH OXY FLAMMABILITY COMPUTER FAILURE SPARE SPARE SPARE SPARE SPARE SPARE SPARE SPARE SPARE SPARE SPARE SPARE (21) DESTINATION ANNUNCIATOR ANNUNCIATOR ANNUNCIATOR ANNUNCIATOR 00OO19930 OCR ERROR CODE 01 02 03 04 05 06 07 08 09 OA OB OC OD OE OF 10 TABLE V (22) MCS50A ERROR CODES ERROR DESCRIPTION * Checksum error. Checksum in conmand does not agree with checksum calculated by the MCS50A. Parity error. No configuration. Scan LED will be extinguished if no configuration is present. * No new class G data. * Invalid subcommand. Invalid command. Channel number out of range. Output date has the wrong number of characters. Bad command format. Command not supported by software. Illegal command caused by sending a configuration command while configured. * Greater number of Type M cards specified than are in the system. * Bad M card subtype letter. * Bad M card subconmand number. * Bad X conmand subtype letter. * Bad X command subcommand number. * = These error codes should not be returned by the MCS50A because these errors apply to cards, conmands or functions not utilized by the plant's system. ) OCR 000018931 TATbLe ASCXX CH/VACTET2- GoDS ASCII value 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 Character c u e a a a a Q Ae e e i ; i A A E ae Al A0 o b Au u y 6 u <t Pt / ASCII value 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 Character a i 6 u n N a i r~ Vz V.i i )) g&S 1 H H -A 'A\ f| ^1 =J -It .J "l ASCII value 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 Character L T V -- -f 1=. Ilit lr JL TT > = JL -- nr IT ti ts F rr -H+ r i i mm ASCII value 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 Character a a r JT I IT P r 0 -e- 6 00 0 l n = + > < r j 4=s 0' * J n 2 m (blank 'FF TAfeLS CcoM-r.^) \ (24) ASCII value 000 001 002 003 004 005 006 007 008 009 010 Oil 012 013 014 015 016 017 018 019 020 021 022 023 024 025 026 027 028 029 030 031 Character (null) o * (beep) D (tab) (line feed) (home) (form feed) (carriage return) ft -4 it o !! 73 IT O rO O(I'J-'l r 1. o tw J ---- (cursor right) (cursor left) (cursor up) (cursor down) Control character NUL SOH STX ETX EOT ENQ ACK BEL BS HT LF VT FF CR SO SI OLE DC1 DC2 DC3 DC4 NAK SYN ETB CAN EM SUB ESC FS GS RS * US ASCII value 032 033 034 035 036 037 038 039 040 041 042 043 044 045 046 047 048 049 050 051 052 053 054 055 056 057 058 059 060 061 062 063 Character (space) ! tt #' $ 0/Q/ & t ( ) * + , - l 0 1 2 3 4 5 6 7 8 9 \ 1 < = > 7 ASCII value 064 065 066 067 068 069 070 071 072 073 074 075 076 077 078 079 080 081 082 083 084 085 086 087 088 089 090 091 092 093 094 095 Character @ A B C D E F G H 1 J K L M N 0 P Q R S T U V w X Y z [ \ ] A -- ASCII value 096 097 098 099 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 Character i a b c d e f 9 h i i k 1 m n 0 P q r s t u V w X Y z { 1 ! ~ O Tfc&UE.3tlAl. (25) HEXADECIMAL CONVERSION TABLES Hex 1 2 3 4 5 6 7 8 9 A B C D E F 100 200 300 400 500 600 700 800 900 A00 BOO COO D00 EOO F00 Decimal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 256 512 768 1024 1280 15 36 1792 2048 2 304 2560 2816 3072 3328 3584 3840 Hex 10 20 30 40 50 60 70 80 90 AO BO CO DO EO FO 1000 2000 3000 4000 5000 6000 7000 8000 9000 AOOO B000 Cooo Dooo E000 F000 Decimal 16 ' 32 48 64 80 96 112 128 144 160 176 192 208 224 240 4096 8192 12288 16384 20480 24576 28672 32768 36864 40960 45056 49152 53248 57344 61440 Binary to Hexadecimal Conversion Table Binary bit pattern 0001 0010 0011 0100 0101 0110 0111 1000 1001 1010 1011 1100 1101 1110 1111 Hex value 1 2 3 4 5 6 7 8 9 A B C D E F Decimal value 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 CCR 0 0 0 0 1 8 9 3 4 (26) TABLE VIII MCS50A Commands/Responses 1. Analog Input Gain The analog input data gain is set to 1 by the following command: Q1A2Q0103FQ1XX" + C H R $ ( 1 3 ) Set gain command The response is an echo of the comnand. 2. Command/Response Turnaround The turnaround time for thedelay between command and response has been set to zero milliseconds. "01K000XX" + C H R $ (13) return Turnaround set command The response is an echo of the command. CCR 000018935 (27) TABLE VIII (cont.) 3. Discrete Input Data Request " 01D0030QBXX" + CHR$(13) MCS50A address Discrete Input Command Checksum Carriage Carriage return First and last Discrete input channels to be scanned The response to the discrete input data request command is as follows: "01D4E53XX" + CH R $ ( 13 ) MCS50A address Discrete input corrmand \ Checksum \ Discrete input data Carriage return Converting the hex response to individual channel states: 4E53 hex Corresponding channels = 0 10 0 1110 0 10 10 0 11 8 7 6 5 4 3 2 1 16................... 9 000018936 CCR I :) 1 (28) TABLE VIII (cont.) 4. Analog Input Data Request 01A10Q1QQ3XX" + CHR$(13) MCS50A address Analog Input Command Checksum First and last Channels to be Scanned Carriage return The response to the analog input data request command is as follows: " 01A110F1D64176A1XX" + C H R $ ( 1 3 ) T MCS50A Channel 1 Channel 3 'Carriage return address Data Data Analog Input Channel 2 Checksum Command Data The hexadecimal analog data is in two's complement form, which is decoded as follows: For channel 1 data: hex 1 0 F 1 7^ Data x Gain a. hex 10F = 271 decimal b. Since 271 2048, (271/2048) * 10 = 1.323 Volts at Channel 1. c. If Channel 1 is a 1V-5V signal representing 0-30 ppm VCM, then: (1.323-l)/4 * 30 = 2.42 ppm VCM d. 2.42 ppm X GAIN = 2.42 X 1 = 2.42 ppm CCft 000018937 (29) TABLE VIII (cont.) For channel 2 data: hex D 6 4 1 Data Gain a. hex D64 = 3428 decimal b. Since 3428 > 2048, (3428 - 4096) / 2048 X 10 = -3.26V at channel 2 For a transmitter signal, a voltage of less than zero would indicate an input underrange. 5. Discrete Output Command Eight channels of discrete output data must be sent at one time. To send a logic 1 to discrete output channel 2, send the command: "01F100200202XX" + C H R $ ( 1 3 ) MCS50A address Discrete Output Command Carriage return Discrete output data The discrete output data corresponds to binary: 00000 010= 02 decimal channel: 87654321 The response is an echo of the command. OCR 000018938 (30) TABLE IX SOFTWARE CONFIGURATION FLOPPY DISK HARD DISK FILE(S) DESCRIPTION FILE(S) DESCRIPTION DOS FILES "AUTOEXEC.BAT" "EPADATA" Disk operating system. Allows IBM PC-XT to restart automatically after a power fai1ure Contains the commands nece ssary to restart the system and programs automatically after a power failure. DOS FILES BASIC COMPILER This file contains the hourly and daily printout informa- "FIXEDPT.BAS" tion. This data is stored in "EPADATA" as a safeguard against losing the hard copy printouts. Allows the operating system to run off the hard disk during normal computer operations. The files necessary to compile a basic program are located on the hard disk. If changes to "FAIL.BAS" or "FIXEDPT.BAS" are required, these programs must be re-compiled. The basic program which performs VCM leak detection, OXY flamma bility and OXY pressure drop and steam/air ratio calculations, input and output. "FIXEDPT.EXE" The compiled "FIXEDPT.BAS." program. "FAIL.BAS" The basic program used to annun ciate a computer failure alarm. "FAIL.EXE" The compiled "FAIL.BAS" program. o "MONITOR.BAT" The batch file containing the o o ot-1 03 commands necessary to execute "FIXEDPT.EXE" and "FAIL.EXE", "MONITOR.BAT" controls the timing UvOJ and execution of these files. CCR 000019940 FILE(S) n o FLOPPY DISK DESCRIPTION TABLE IX (cont.) HARD DISK FILE(S) DESCRIPTION "FIXEDPT1.BAS" Same as "FIXEDPT.BAS", except line #102 has been deleted so that the manual input of the pre vious day's date is bypassed. Therefore, on a power failure, the system will re-start automat ically. A message is displayed on the monitor screen to indicate a power failure has occurred. The time and date will have to be reset after a power failure has occurred. Execution of "FIXEDPT1.BAS" will need to be halted to do this. The system should be restarted using "MONITOR.BAT." "FIXEDPT1.EXE" The compiled "FIXEDPT1.BAS" program. "HOURDATA" This file stores all leak detection data generated during the day. This file is cleared and re-initialized at the end of each day following the printing of the daily log. AREA # 1 2 3 4 5 6 7 8 9 10 11 12 13 14 TABLE X VCM LEAK DETECTION AREAS GC# CAR-171 CAR-171 CAR-171 CAR-171 CAR-171 CAR-171 CAR-171 CAR-171 CAR-401 CAR-401 CAR-401 CAR-401 CAR-401 CAR-401 (32) POINTS (1) 1, 2, and 3 1 and 4 4 and 9 1 and 5 6 7 8 10 1 2 3, 4, 5 and < 6 7 9 and 10 OCR 000019901 TABLE XI IBM PC-XT/BURR-BROWN TROUBLESHOOTING GUIDE PROBLEM DESCRIPTION 1. No display on monitor. PROBABLE CAUSES No power to monitor. 2. Continuous printout of logs. Cable not connected to PC-XT. Bad video tube. Software problem - program is stuck in a printing loop. 3. Continuous printout of error messages Hardware or software problem. 4. Program stops execution and error message displayed on screen, 5. Continuous input underrange messages for GO data IBM PC-XT software error. Memory card failure in GC. REMEDY Check power to monitor. If power is on, green LED on front of monitor will be on. Check connection of monitor to PC-XT and reconnect if necessary. If power is on and monitor is connected properly, video tube may be bad. Stop program execution by pressing`cntlbreak - check screen for line number at break point. Check software and reload program. Note the errornumber and device {IBM, PC-XT or Burr-Brown), refer to the IBM Basic Manual, Appendix A for IBM, PC-XT errors or Table V for Burr-Brown errors. Refer to Appendix A of IBM Basic Manual for error descriptions. Check voltage output from suspected memory card and replace card if neces sary. ? ^ 6 8 t0 0 0 0 tfDo CCR 0 0 0 0 1 8 9 4 3 PROBLEM DESCRIPTION 6. Device I/O error on screen TABLE XI (cont.) PROBABLE CAUSES Burr-Brown Communications failure Burr-Brown failure. 7. Disk full error on screen. 8. Device Timeout error on screen. 9. Program not executing and no error messages on screen or printer. 10. Power failure. Floppy disk is ful 1. Printer not on line. Burr-Brown failure. Burr-Brown failure. REMEDY Check Burr-Brown status LED's. If L2 lamp is on, turn off the Burr-Brown and re-power. Restart the IBM PC programs. Check the scan LED on the Burr-Brown. If not illuminated, the processor card has failed. Reseat the processor card If scan light not on after restarting the IBM PC programs, replace the pro cessor card. Replace floppy disk with a new configured disk (See Table IX). Make sure printer is powered up and on line. Check Burr-Brown status LED's. (See #6, above.) Check Burr-Brown status LED's. (See #6, above.) None required. The IBM PC-XT will automatically boot up. The time and date must be reentered by halting pro gram execution at some convenient time if not correct. (35) MCS SERIES NEMA 4 Enclosure NEMA 12, Explosion-Proof and Rack Mount also available. Cable Trays provided in Panel Mounted Systems. Simple, screw terminations for all I/O. lEEEsurgewithstand protection available. 120V, AC Power Supply Standard. 220V,24V,and UPS optional. LED Status Indicators for Quick Check of System Activity. Monitors; CPU and Communication Status. 4 (MCS50A) or 9 (MCS100A) I/O slots in Multibus Card Cage. I/O cards and terminations may be added in the field-. Multiple Communications Options including; - RS-232-C - RS-422 - 20mA Current-Loop All include DUAL PORT INPUTS CPU Card with 24k PROM. 4k RAM, Communications Port and 24 TTL I/O points. SMART I/O MULTIPLEXERS CCR 00001894-4 Fitkuej- jl. Kucn pi_e*e-.. 4-llA FC ncv. FLOW CHART AND BLOCK DIAGRAM (37) 4 m2 pe HKV. 10.1-41 FLOW CHART AND BLOCK DIAGRAM (41) 4-111 1C *CV. 1O-1.O FLOW CHART AND BLOCK DIAGRAM (43) lift.' 'M' V ^ 1- lX If *"T< ) *r * I I (44) (45) n o 30 o o o o t-1 CO <0 t' -Z-'^rL-W3A XL I , ! L --iOi 1------ --to I- i 10 .. [ : *lo . 30-+- _L a fcO- - -- n 1 TO 90 i _ _ L 2AMM. --J "to to C------- i Ito------- 2+viDt tt-0------ 1 i rq ;tm4 A. FP1 C-Zo*. ;p*f CkU ' &UCTT ^3 pt-* _____ S_ . !1 Kw.T'PLE'pce.p, n jI I i O O 6 o "J 1+ - W+ 13+ Ar0fj:% 6>1D 1- ia- IS- 6iXi 6flO o o __JL O Tfvh r-io M F6., Ji.L'--. VJ-0 Ti-SrM'-lATlOiJ _ TW.l. MODeL S.HSIS2-1 TgA.lStAiV-nOKi 1I TWs rio fS-3Q3-S fAFti. TKA> y-.HA-riOfJ t^ Qua_ __ 35E>CH~___ Peirfc2tt.ice OfcftLjkjJ' B-T+mt-A1) I 1 '>k\h\ ISU OATS Loop tJiLAuJhJiS DESCRIPTION SuK ev CKD CONTINENTAL OIL COMPANY LAKE CHARLES VCM PLANT LAKE CHARLES, LA. 11 . SHEET -3lOF APPItOVIOs DATE: 1 FS-3C3 Loop Di'iAWi Fi fcv SCALE, S)0U VCM-BB-Z-3uOS O ill MTUNING 4Q-SS4 57340 BRUNIN6 40-534 57340 (47) (49) - i ..... i*^i'!*>'+! t * r' *-7 ni* * i't * f` .' (50) o n50 O O o H* 00 'O O' 1 !i H- `3 cl 'WDA P^OxlO)^ i ' i ' ! ' ! | z 1 - -- ~~ T 4 1 , ; --T : | ;' ii ' 5 1 ' , 11 :<b=*f h ll i '! . A. 1L 1i ti <\ 1i 10 ; i i ll ! !fi iz I L ! i |4 [ [ IS i 1C i Tf^ Ao C.lVi. 3 Fi<-eslot ** 12. rtuii * i .' 1 i :I (51) ; ' tAucneigxeg. -1---------- - - t '. 1 i; 1 O '* ; i0 r> i4a \20 6 wo ... I o to\< i TO- Caslij o L/ i r .................... 1 i l I Tftca NlO' FS-'llZHP6. _By.&&-E^aatl_ TEfU^iOftna-l Tft 4;'Z~ t^ot>eL SijX^_ i IBU DATE j LO()p 0lAcOlr4Gi DESCRIPTION CiO^ BY CKO APD CONTINENTAL OIL COMPANY LAKE CHARLES VCM PLANT LAKE CHARLES, LA. FM-ZAZ. :! . ! Bu& EeovOt-1 LOOP SHEET OF `'AO I Dk2AL))kJI 6\ SCALE APPROVED. DATE. vcm -E>'8"xOS> (52) L-?l'a -W3A i[ 1 i i --,-j . j . pF :I ii a 4-i- >-. i i i i i \~s-TnL ielb 14- L no T/Va lio T^ej Jb 3fl 1 73 (-Mi. x-M i O O fiLe. .Z . o ilot o(-1 MUii# 4- 00 Iv0 O' i: ; tAULT'pbexeg- 1 l 1 i ___ 1 ou it 6 o 26,0-r 20-1+ J a1,. i** wo - .2O1-0.-. zO\- ciiw;ti 1 I TftCa FH-'^Po HF6. __ Ttru-iiiOPmoii -n^-2_ i j oneL 1SH.S lCj?2_3 i 2/l-iM LOOP ISU DATE OCSCflIPTION itOt CUOj BY CKO APD CONTINENTAL OIL COMPANY LAKE CHARLES VCM PLANT ____LAKE CHARLES, LA. fM-'i'Zo :i Bu. E.0OyJt-i LOOP -fLor^O APPROVED: DATE, vcm- I SCALE- fOQtJ^ o BftUNlNG 4 0 4 3 4 57340 -WDA .i pLo-Joyl 1 I; I: (53) A is -me, >10. Pg.-SO^ HF6. Bueii- K.a&.OrJ__ TtreMnOftnoi H ofieL SitA^lS 1 ZIj 1 2/iAhi Loop OZfr'+yuXC* lOS Suli o ISU DATE DESCRIPTION BY CKO. APD o 7> TAt, i-Vo. VfZr aco. CONTINENTAL OIL COMPANY O cMi. ___ XzS- O o AflL. ___ Zefeaence pgftjitxv- B-T^ioi-AjEAAil. LAKE CHARLES VCM PLANT LAKE CHARLES, LA. j o t-* CO SUJT __ MU'/* _ ;.. 1 Pfi-'io-i. o Buf^ S(20vOk1 LOOP DAx>)kI6( O' r\j r la,. SCALE fOOl 'll: i : APPROVED: DATE, VCM - BB-lcvSvJS o (54) ScriS~ll -WDA Pto-Joyj i:: 1 i i. iiji it .i SUieUb i; HULTteueneg- I .J 1 L i 1 i Ll '* o o cS j o u k 2^ <9 t- : 2.C+. <0 ---->AA -' , l- [ 2M- 25"- 2b- o ----------0----------------,--'-i-1j------- 0 --------------- t T T lF th(3 mo. PFX-Xc4 HF6 _By Cl? - ____ Tt-RMiomioi TB* 'X ijoijCL X|- r> n o TT* ao. P'Cax-^o4 o Moo CAli. _ Fice. _ surr _ Xl-S JtL CD oo MU'/* . XL i!I tii1i RpKe< VC X[V/v.)u 5 s E-TH'lql -/ Ml Vi ?A F i ISU DATE LOOP 0Ai*WC, DESCRIPTION CUL BY CKD APO CONTINENTAL OIL COMPANY LAKE CHARLES VCM PLANT ! LAKE CHARLES, LA. l SHEET _Ll_Or PD)T-'X>\ loop dA^)^L\ SCALE kJOjOtl APPROVED: DATS. VCM -Bfe'U-Su)S (55) 'A'i'z-z.i -g^a. -wda !; 1 peo\to)< i'1 l1 A It 10 o o73 o o o o C>jO0 O' -S' |4 is --4 K> TN C.A&- . Rul.. slot . MUid# PtjjX ..x.-s #4 #3 nutT'PLe*eg- 1 --- r "1 ! 1 :- ! l TA6* I'io PDT-3?oS 0 0 06 1 k =55+ 3>n-va :6|0u 1u 5S- 5R- 1 ft'1' NF6 _ Bu g - RiZOlOJ__ TeiLhMKjfrnoi TE.+ ~Z_ O O :O ? iJotiCL LLH SlGZ.3 1 11 r 4-- 4.-^^^. -i P^AuJif-G.' B-T*not --A422.Au 1 2/24M ISU DATE Loop O*i0i,.l&, DESCRIPTION Suli BY CKD APO CONTINENTAL OIL COMPANY LAKE CHARLES VCM PLANT LAKE CHARLES, LA. , PDX- -oft :` I , I Bufc feeovotd LOOP D^A^)m6 SHEET ^or BCJLI (00r>4 APPROVED: OATE VCM-BB-l'Z.-SbOi 8RUNING 40-534 57340 -'R'2 *W3A PtovlQ^ o n Tfit. i^o. oo o to~> 00 G \Oji' (56) K<JLt\ Pu*g>t- ko H ? r o 1 o b1 1 oC Z<-* ; 7t- 21 - 2Z.-1 61OO 9O O V L_ I t1 Tft> '*ic- BOA ~ __. HF6 _JBu(?--E^CfcL>tA_ TtiU'WPrnail ~TB 4 '. f Jolll >VAS1M 3 Ml 1 Loop D^AlOhJC, Suli 1SU DATE DESCRIPTION BY CKO. APD CONTINENTAL OIL COMPANY LAKE CHARLES VCM PlANT 1 LAKE CHARLES, LA. 'puQ - L\~\ E>(2o^Ok1 LOOP D(2AiO|ivl6i I'a jn SHEET J_fcOF KCii l : POfltj APPROVED. DATE VCM - BB-]3-6uJS (57) w t i :j L * f , . i-i-t.' v Tif * V I t>.' -H-T- .ii* i ;-fH ,iy;rv^1jJ.^JVl,ri # Wwi-W (58) I'1 > J n jw , `s t , t (59) PRUNING 40-554 57340 * , i'1,'** ^ >'*-* :i<v - 4; 11 **!! jUTj} VI r' * * ' i * > ft1, * ITT1v ***/* *? r -a- . > (60) (61) BRUNING 40-534 57340 'jitk*1 ! '' i-i'i * fytJ j-fi- v ,j F (62) (63) StAS-OH-39 "WDA !lU i i; :t LU-t-U 'M!l! ::,ii 1:,! : I i : i n ii 1 ! I! ;i}H ii i i;t ru . Tfe*S i; i 11 I iI ^hsoqt-o TtRjAw-itmcUl &ux_vt f*P80l PiSCReTE OaTfVT Cfrfct> rMj-j-U 11'!!! i i! i I ! ,| P ; i ! jAbJULC^aftTOg. |PftiQgL. I WVoS.VL cM.Crt ., . l'JzL.mrt , ', o*irtlrtouH>tn CToerovup&mcTetR. . n o & o o o o CO >o 'w K> r i rii i ______I_______Jk_. 6 4 d 4eeeeeee9ee l* 2.-* Z* A* S, f "V* 8* A* ICn- I'* W rs^ 1*4* IV ttrt v- '2.- . ir 4- 5- d- ~i- 8- 1- \o- n- a- is- w- is j> " ' ' 0 0 0 00 9 0 6 -t--i--i--!-------------------- U iH u it: I iI 4-_j 2 21 / vfel ISlf DATE rtp&ov ovsciecre (xatpiaT DESCRIPTION BY CJCt> CONTINENTAL OIL COMPANY LAKE CHARLES VCM PLANT LAKE CHARLES, LA. APO ` 1 -I- ! !i , t ii |'! \ BuL(2_ VJI(2.uJC9 Te^iOAL. &LOLK. Difth* 1 ;. ! ; i-nif \:V.i [ ii ' iiii'i-h :i )! +11 i! M [ 1 i 1 MiawJteg. aCoCLC slo- s st^_of^o 1 i SCALt; ! :':i APPROVED: DATE: 1 : VCM - Br 20 - SvJ & \*EV AXXXX xxx x Y APPeMDi'Xl i. XXX (64) 7 ' FIXED POINT MO!' I 1 '! C'P '-'I-'HORAN AMD REACTOR a INCLUDING REACTOR REDUCED PRESSURE DROP 9 10 VERSION 1,0 11 VERSION .1.1 OUTIMPL 8.W. V / Lir r' ",v ,U!H0P-; S.l'L SUMNER 12 VERSION 2.0 AUTHOR8. W. Oil!1' :: 13 14 19 CLS 20 OPTION BASE 1 21 LPRINT CURT(27);OHPT (US) 30 DEFINT 1,F FL INI'ME I L CAI .CUE. . ! I Oi-,! Ls on to:::: . rof : i MBRUARX '! , 1 vo o-oo;n i, 1 984 MARSH J. , J 984 36 ' DI MENS UN , .RRAYS 37 ' 40 DIN AIR i 2 , i VO (..:2 ,T' '' ,02'3) , ' TM 50 DIM AIRE (3) .RICO:;.") 'ETDA.M , XHTB (3) , PFI M 4- 60 I)I ;! A 1 MDAl iM- ( 26 ) ,, DA T ' 23.' . h IN (1 6, vi2 V A (3 , J 0 , 70 DIM H [COUNT'D f5,10i> ,, i-i IAH7, f 3,1 0 i , AREA ' 1 4 .,/JLr. i 80 DIM OLDCHUNT 2 . 3 ,, 10 ) , 8 TLB ' 3 ) , STM '3,' .DIM 3 > ,, R X ; 'I 90 DIM HCLL3) , I'-'LmG 1 7 ^ 10) , FLAG 401 X ( ,L <7 ) , Ei_.X 95 1DIM L..K TIM EM ' ' ,('3 ,L..L LEV OFF '"y INFO 11 "MOi\!:;! ,, VEST1'": .. _ G0S1 i rj '| Tf-.fT i 2 A MONT MX , 2'f i EfiRX 104 loci)AT--ir- ` !lY RS 105 106 ' DEF" J ME Si!'! HALF''-' 107 110 DEF FNEMTH1 (A ) - M 6 120 DEF FNENTH2 (A)=12 7oA -i-. 00 128 3^A*A-317.6 1 oO DEF FNENTH3 (A ) = J. 2 2 x A +. 00265 1 * A -* A - 304.7 140 DEF FNE! IT 144 (A)=22 150 DEF FNENTH5(A)=13 155 156 ' PRINT SCREEN HEADINGS 157 ' 160 GOSUB 18000 240 ON ERROR GOTO .15000 245 246 ' START EXECUTIVE TIMING ROUTINE 247 ' 250 GOSUB 1000 260 OL.DT 1ME-TI MLR 270 GOSUB 21000 i-30 PjfjJBiJ0 '''OOO 390 GOSUB 3000 :00 GOSUB IvOOO GOSUB 20000 A) T.IME^TIMER/4 : HOUR== f [MFM'OO 220 [F HOUR-:. HILDHuUK TOLU vOSUH 2EXM ,230 IF LOGSET"'L THEN GOSUB 900') 231 L0GSET--0 . PCM! R ( i t , i. 'j; , :-!MVi L, ` M ] u, ms (1 !) , OLDLEAK<14: 'i -i Wi >{ ' f - ) ,LA 23 ML! MAG ( 10) , (FLAG ( ), I _CL!Li , H ON CCR 000018973 LG!.: AYE 1 , 1 LGCr.V! ,64 |f7 GOLUB 20000 1: p r i t if (Timer:. >2200 0 IF TIMER>22321' !EM GQLiUE 20000 :60 DIFFTIME"T[MEP - >70 IF DIFFTIME'13 210 STOP >90 END l'! 11:.: '.! i..ii (65) }! c-,- m1 r i' > ) CCR 000018974 (66) 1 OCX.! 101 o 070 |-!30 40 3. 050 1060 1070 1080 1090 1100 1110 1120 1130 1135 1136 1137 1140 1150 1160 1 1 70 1180 1190 1200 1210 1220 1230 1240 0250 60 .70 1280 1290 1300 1310 1320 1330 1340 1350 1360 1370 J in.!'! ializh nor: pttpam i up u-il ' B U F< R - B R 0 5 N MULT 7P Li.-:, f1P L J N I "I" TR I ES-:6 : ' LOOP ''"0 LC TALL J. 2! i ' OR' " LP 0 E T E C "" ON ERROR GOTO 10 3 A GF'EN "CONI : TOO M , ,, . i . OS , X.i, i. CX.T O'." .T. Tl ON ERROR GOTO CLOSE -111 GOTO 11.2'J TR I ESL~ TRI F.5-- 1 IF TRIES-' ' T'!LT Or: SPPGR GOTO 0 r ' GIVE Or' RESUME OPEN "COM 1 : 00'"'i!, , L S , US , 002C0O" AS !X GOTO 1760 I" IT ,r"l ' SEND OONFIGUT. iTTljM COMMAND TO THE RUKR--Tl.OJN CONFIGT---" 0 1. /1 '"'IF OuOOOOOOCOOOc, XjOL' 'O' XX " K.RIP T L : ) PRINT !!U. , OONF 007? FOR XT IC FT' ' HEX'!' a ' 1;L. > , 7 i 50 MIL.!... .1.6 ECU: Tx LINE INPHT XL .I'LL0 GOSUti X.R.'M! IF CMIIX L.XSp.xT , .XL! . MI XF (COMP I GO , 3 , 2S; ) NIX'! R 1 GO LCD 1. X.00 OAlNSiXl 1 00 * 1. XX" xCHPF X.3; ; '1:2 T PRINT 71 . GA I NOE T 7 FOR X-1 70 X/' : ' CHI' j ' DELAY l 5, i i - * ' _* r._ f v) <\ COFL'L XT 'L' T p ( m y j; ,i- p !" s y p ! it }i,/-{' v i.,j , ii 'j , -t | \ s 0OS'JO 1 J 0'"'m THREE IT -"f o r XT r v J X " OF 7 TJRNARhUNA i ' PRINT !.T . 5',F'-E"--ir FOR IT. '] 1.50 : P "XT : DLL AY 150 MILLISECONDS LINE INPUT ' /1 ,RLGPT 60BUB 1700V IF <MID-t t RF.S'F'T , 1 6 ; : MID7 Ci ARSETT , J. ,, 6 3 ) THEN FLAG GOSUB 11000 ON ERROR GOTO 15000 GCSE T1 -- 1 : GCSET2 = 1 s GCSET3~1 RETURN "U{ If',"'! . 7". T<XK:`i I '.ViLUl. w-tilf W' 7 ELSE GOTO 1.3: 1 i OCR 000018975 (67) 2000 2010 GAS CHROMATOGRAPH STATUS PROGRAM DINREQT="01D00900B/X"-M'.:HR7 C 13) : ' REQUEST LON CHANNELS 1-11 PRINT tt 1,DINREQT; ! 0 FOR 1= 1 TO 20 : NEXT : 'DELAY 20 hILL1 SECONDS 2050 LINE INPUT IT1 , RESFDI NT 3 ' INPUT FROM BURR-BROWN 2060 RE5PT=RESRDIN7 2070 GOSUB 17000 20G0 DINDATA$=M IDT (PESPUI NT . 4, 2) 2090 HD:f = DINDATA7 2100 GOSUD 12000 : HEX TO REuIMAL CONVERSION 2110 GOSUB 14000 : 'DECIMAL TO BINARY CONVERSION 2120 IF (BIN(1)=1) THEN CAR171T-"OFF" ELSE CAR 171 P= "UN" 2130 IF CAR 171T="ON" THEN GCSET1 = 1 2140 IF (BIN (2) == 1 ; I HEN CAR:-!01 "OFF" ELSE CAR40 1 T--"ON" 2150 IF CAR401T--'-"QN" THEN GCSET2=1 2160 IF (BIN (3)^0) THEN CAR904$= "OFF" ELSE CAR904 $= "ON" 2170 IF CAR9u4T=~" ON" THEN GCSET3-1 2180 LOCATE 21,1 2190 PRINT USING "CAR-171; S CAR-401: A 904; ?, " ; CAR 17 1X , CAF'41.11X , CAR9< -1 X 2200 IF CAP. 1 7 1 -T-"OFF" AND 8CSET1--1 THEN !-LAb= 1. 4 2210 GCSET1 -=(') LjL! 2220 GGSUB 11000 2230 IF CAR4017= "OF!- " AND GCSET2=1 THEN FLAG - 15 2240 GCSET2-O iQ T: JoO 2250 2260 GOSUB 11000 IF CAR904-T~"" CFF" GCSET L' 0 GOSUB 1 Guu AND GCGET3==1 THEN FLAG^I.6 iOTO p 9 ;"i RETURN 00001a976 OCR (68) 3000 ' ANALOG INPUT PE AD PR! 3010 ' 3020 A I! NREAD-T- " 0 i A1001006Y, X 3030 PR I NT tt 1 , AI NREADT 3040 FOR 1=1 TO 20 : NEXT : 3050 LINE INPUT sH , .A LMRESPT 3060 RESF'$=A I NRESF'T 3070 GOSUB 17000 3080 FOR 1=1 TO 12 STEP 2 ; 3090 L= I-s-2+3 3100 AINDAT Af- (I ) =M IDT CA1NRE3PT , L , 3) 3110 L~L+3 3120 AINDATAT (I +1 ) =M IDT ( A11IRESPT , L , 1 ) 3130 NEXT 3140 GOSUB 4000 : ' CONVERT ANALOG DATA TO ENGINEERING UNITS 3150 RETURN CCft 000018977 (69) 4000 4010 kp20 Id 30 40 40 SO 4060 4070 40 BO 4090 4100 4110 4115 4116 41 17 4120 4121 4122 4123 4124 4130 4 1 40 4150 4160 4 ISO 4190 4200 4210 |20 mo _o 4240 4250 4260 4270 4280 4290 4300 717.) 4305 4310 4320 4330 4335 4336 4337 4340 4341 4342 434c 4344 CRT?"' 4360 -I "O ? 0 ,350 je 6-/1 c- ;l420 4 430 ' CONVERSION Of" ^ '4-6-1 3.. ' OR-- ! ' TO ENGINEERING UNI I'S for i = i to i2 "0 ftp . HD4-=AINDATA'f ( ! ` G03UB 12000 ; ' ' } L L,' rMAL 30:10:3'''::.! O-1 OAT(I)-DEO IF (DAT (1 L-t.> i 1 'Uj. w.UO : s 1 mRkATi Ai-i lC. jUiN-; ',. '1 r.u ION i u ,"jl DAT (I ) = < OAT ; O' GOTO 4110 DAT tl ) -= ( i DAT 33 - 6; /204b) MO NEXT l ' PROCESS AREA TIXED POINT MONITOR CONCENTRATION CALCOLAT JON IF ]-.! IN v 1 j ' ci !X: 0 '! 1 FOR I =1 TO AOL D ( I ) -.(; NGX r [ ' GOT 0 4 3 4 0 S ID 17 1.7 ' L S\ , I ' i I F S [ R 1 7' " i 'JR GCS UB 1 I ;-w T ' i r DA I"A CDTi'/P'- '7: UN CR CAR-1 71 SI or715. 1/' r TEN EI.AU -I'' Ei. ...6 iUT(! M/JA GOT U ! 7 -10 II- ( SID 1 7 1 OLD J. 7 17; GUTS i 34 0 IF f-- 1 _ ,J \ [j 1 7 1 V [ D 1 71 7) "= 1 GOTO 437 0 FL: b' 1 7 1 , u C) i - K- -1i / ! ,'u 4 71 [ D =6 iD1 -1 T !-" 1' D== ' 1 1 M M NM 1' FL, G .1 7 1 *t t 0 ) 4= o t r- G I i'. ! .... l ,Fri bbGU.z OOOO GOD A TA ; ' J /..) 1, 71.'/,; ( (DAT' c;s) -i > , t ( .,. : I F iCD; i III1 -1 L Ct I L 1 7 1 7) --1.5 TIT BN 1-! 7.6 ' ) ! L.L6 GO'TO T276? GOG UB 1 106 0 IF SC DA TA c i J ^ !. 7'\ tJ 1 /'"J .1. 7)7.0!. THEN G6:l a ! A ' 1 !, i. 3 1 7 !. 7) <.)! DAYA'v'G ; 1 , S IDl 71 7) = DAYA'/O ( t , S LD1717) -rGODiA ! ') ( 1 , SI D L 7 17 5 1.1 E I D1 7 17 -- 1 THEN FOUNT 1-4.CIUNI I t 1 IF GCDA TA ( .L I D i 7 1 7 5 THIDATA( 1,9101715) ''"HE T H I DA i A ( 1 O O') CCLAT, id ,SID1 IF C3CDATA {1 , SID 171 75 < 10 ! THEN D0LJT1=U ELSE IF GCDATA (1,31D1717) 0 .10 ! GOTO 4340 HI COUNT7 (1 , SID1717) ==H ICDUNT7 (1 , SID17 17 > -! 1. FLAG := 1 ; GO SUB 11000 D01JT1M ' OFF-SITES AREA FIXED POINT MONITOR CONCENTRATION CALCLJLATI ON IF BIN(2)=U GOTO 4350 FOR 1=9 TO 14 AOLD(I)=0 NEXT I GOTO 4560 -13 O'!cl 7- ( DAI C., / + r ` , -.r'.1 n 6 TA /OM'-P: ;bJ O: I ; OR CA1-' if ciim-m:; i or muioii o then FLAi c: i R !litre LMGUB 11 C'OTC 4 560 IF (I D 4 01 1: > 0!.!,' 4 01.7 ) GOTO 456b IF F1..A04012 (SID4TA.V)-= t GOTO 4560 FLAG4017 C S11)401^ i [ D -SID401,7-1 CCR 000018978 4440 4450 ^P-60 70 4 SO 4490 4500 4510 4520 IF ] J"0 TH F Mr ' FI.. A0401 % C I 0 \ i IF STD40 41 /. -- 1 THEN GCDATA(2 <-- r [1 /!./' `i u' IF GCDATA( -1 S ID 4 0 GO1SUB 1 1 ooc IF GCDAT A t ;; S J D $ DAYAVG(2 Ti D 40 in: IF SID 4 0 3. 7. :n: 1, r i !!- * IF GCDAT H ( T i 3 [ u' 0 . f i - *1 ;--'Trr: ; r n ,i (70) v / , r 5ID4 017.) 4525 IF GCDAT A ( 1 '1 G INTO 4530 IF GCDAT A ( -j.[ D 4C' 1 0 1 "! WEN LON I - LIE DDUTj '1 4540 141 COUNT 7. (i: ,, j. I!; 1011 4550 FL AG--2 : r 0 t~ ! L '7 11 4555 ' -H (COUNTS (2,5 JD40? TO + i, 4556 4557 4560 4570 4 580 INC]NE RA "I" R API.., ' IF DIM \ - f 1 GOT A G I D704 7." DA r * 9; .-2 IF '3 J P 7 ' -1 ,1 ; 4I-.KI DATA CONVERSION POP CAN -rO'l : i , i : i`r- r,.ii 1 1 ! ,- 1 on 4590 GO SUB 1 1 46( )0 4 61 (!) 4620 GO TS 'l"1"" IF ( G I D''' P" IF FI..AI'-? ( 1 u , ' | 'i! 1 ': [ y Ij . liT'j 2 GOTO '! 770 4630 4640 4650 ^>60 w70 . ..30 4690 4700 47.10 4720 4730 047.) 4735 4740 4750 FL AG 9 O'1 7 ',>0 ' ID -SJ. 1 =*' IF 1' r', (' \ F- .j j j-i 1' n* FL. AG9A 17. -f' 00 L / -t i i i ` i - i r - jK 4 ' IF SODA T A < i G 1 0 /O GO SUL ! 1 i If . i IF GCDAT A ; 1 ,, 0 11'90 DA VANS( ' , , , T Pi j Tj, t t j ] 1 i '/ 1 ' I " n \ H T-~"' !ur-!T"-"=-:.Ti!.iN....i-t IF GCDA r A ( **! =) E1--1 DD97H '( DATA (3,3 I D9047. ) IF GCDAT : 1 ' -i '} SID90 IF GCDATA( f; f S [ D90 HI COUN 17. (3 OuJ ID904 1 THEN NI DATA ' 3 , 21D90 47.) "GCCl'ATA (0 , 5109 4760 FLAG-3 : G0SU3 HOOu 4770 OLD171 7.=NEW 1 7 17. : QLD401.7. = MEW401 % 4 L D 9 0 -!7.=N E W90471 4771 NEW 171 Y.--S ID1717. i MEW4017-SID4017. NEW9047.--S ID9047 4775 ' 4776 ' UPDATE CURRENT CONCENTRATION RATA ON 0GREEN 477S ' 4780 LOCATE 9,1 4790 FOP I 1 TO 2 4800 PRINT USING " 4# ##.# NL -it It.#"; I , GCDAT A ( 1 , I) , CCD.'; TA ` 2 , [) , GCLA 7,'UG, I) 1810 NEXT 1 4820 FOP I "3 1 'D350 PRINT AGING " IN* ,i!L ir ijCla iv, (i.,:) itCOA ta (2, ::) *^40 NE X "1 1j P>5 - 4846 ' HR I "i 484 7 4 850 OPEN 11 p NX HD LIE CCR 000018979 4 8 h. 0 F-`R r; r 143,11 c;o.'^ - i 7 1 487(' FOR t:==1 TO 2 W|E30 PRINT #3,03100 " 4 ., ! 13 C DATA(3,1) ?0 NEXT 4900 FOR i=3 TO TO 4 910 PRINT #7, UST.NO 11 . U 4920 NEXT 4930 CLOSE #3 4940 RETURN ' > 1 -R401. 'Ml - !; 0; ,R-901 1" (71) l! !-!" '* ;! , I! " 1 4# ,, :i" - oci;a r 1 , I ; , CCR 000018980 5000 ' '; iFHJT OF i'T-i.'.L.OO 5010 ' CONVERSION 05 r AO ' READ ONALG0 VALUES? FbP | (MHAB - L .ALC'.'i. 5030 A T MREAD-f m j. A1 OC'201 OO M '1 ! i ' * < 12 ; 5040 PRINT 41, OtNREOD O 5050 FOR [ 1 JO 20 : NEXT : ' : 53, . : 2 3060 LINE INPUT M 1 ONPECFP 5070 RESP-T-'-AJ MPEEPT 5080 (30-UP 17000 5090 FDR 1 1 TO 26 3TIP 2 5100 L= [ *2 AT 5110 AINDA TAT " 1 ) ""M l L, 0 0,1 NRECP T , L .3) 5.120 L L ! 6 5130 A1NDA I'AT t 1 ! 1 : - Pi l DT (2 I f ,i :EGF'..:: , L , 1) 5140 HEX T [ 5150 FOP ]o~i. 10 26 Tr2P 5160 HDT-A t NDA TAT < I ) 5170 faOSUB COO'' 5180 DAT ' r ) -D"0': 5190 IF OJA I (1 "'00 4 22 02! A . 226' 5200 DAT ( OJAT ( r ; / .05) ; l 5210 ROTO 22;.,!- 5220 DAT ; ! . ( ;;A i ; ROOD 200; 6 i 5250 [F DA't"'!!0 1! 'r` 'E! ! DAT l ) "=1 . O01 5260 NEXT : 5263 IT .. .70 1(1) - ( DO !` ! 1 . O "'0 ! 26) 5230 10 2; -=,, DO 0.0 - O - 4 ! ; OOO ! -f-1.52; 5290 TO-; o (DA I o - j ) , 1 ! ' .'-lOD ; ( 122 6 5296 5297 5300 5310 5320 5330 5340 5350 5360 5370 5380 5390 5400 5410 5420 5430 344 0 3430 3 46o 54 70 )?0 3500 5210 4 : 'i11 OlALUU '.'ALUS 3 I:! EMUii TM! ( (DA T ( - 1 ,0 4' ) * 1 CO ! -1- 1 50 STM ( 1 ) ' >' DA T (9) --1 ; / 4 ! ) * 100 ' STM 12; - ( ( DAT ( 1 1. > -1 ) / 4 ! > * 1 00 ! STM (30-0 (DA T ( 1 3) ~ 1 ) / 4 ! > * 106' ! AIR(1) = ( (DA r C15)~1;74! ) * 100! AIR (2) = ( (DAT (1.7; -1 ) 74 ! ) *100 ! AIR (3) " ( (DAT ( 19) -1.) 74 ! ) *100 ! ETH- ( (DAT (21) -1 ) /4 ! ) * 1 00 ! HCL (!>=--< ( DAT (23) -1) / 4 ! ) * 100 ! HCL (2) - < (DAT (25; -1) / 4 1 ' * 1 00 ! STLB C 1. > =2642*STM ( t ) STLB(2)=4S79*ETMf2> STLB (3) -= 24 1 0*S7M (3 ) AIRB (1) --= 16.65*8 OR < A [ P (l) ) A I F t) ( 2 1 - 1 6 . O 5.t/O P ' , U ( 2 ! A1E6(3; OT, 3*S8P 'A I: o' o ETHER (1; 723. 4 - 02 ' h f" ! ' HRMHR ( 1) -06. 32r OR Cl ;. ,, HCMHR ( 2) 9. ).9*Hf L ' 2 ' HCMHR (1 ) -'HCMHR ( 1 ; -!-`CMHR 06) ETMH-r-OT'-IHR ( 1 ` RETURN 'b 1 (72) CCR 000018981 (73) 6000 ' ERA LEAK DETECT !! ON FAGGRaN-----PROCESS 6010 ' 6020 FOR 1=1 TO 10 30 IF GCDATA ( 1 , 1 ) >- i o: THEM l-J] GHT i 1 , 1 ) = l ELBE MIG!HT ( Ini) 40 1 "11 jOL 43 6044 6045 NEXT I IF HI GHT (1,1; --1 IF HIGHT ( 1,4) -= 1 IF HIGHT(3,9)=i IF HIGHT(1,5)=1 ( Mv i-iND AT !ij AND I F!...i-.b 1 , FLAG t iL ,'!)=! FLAG ( 1 ,) -- 1 I Ft. AG < 1 , 5) -- 1. THEN I HEN "THEN THEN LEAK!"LAG ( 1 ) -1 L.EAKRL.AG () - L LEA! (FLAG / > ! LEAK! "LAi' /.i. \ = 1 ELSE ELSE ELSE ELSE LEAKELTiG (:! ) -0 LEAKFLr (0(2) -0 LEAKILY'Mi ( 3 =D LEA KELT 1 (( A 1 ("1 6050 FOR 1=1 TO 8 t ' GET A! iRA Y `"G VALUES FOR CURRENT' !H I VCM CON SEN :! A f ; Vi'! 6060 ON I GOTO 60~'0,,.. jM'-'O ,, h 1 A 4 6 1 30,6150,61 70,M90,o:210 6070 TF (MIGHT ( 1 , 1 ) -- 1 'J: ' H I GHT ( ! ., 2 ) 1. ) OR HIGHTM. ,3 :....,i. THEN AREA(!)=! Sl.SE AREA( 1) =0 6071 IF LEAKFLAG (2) --=1 OR LEAKFLAG (-1 ) = 1 GOTO 6074 6072 IF ( (AREA (1 ) "=0 AN0 MOLD ( 1 ) = 1 ) AND ( H1GHT ( 1 , 5) - 1 DR H IG! !7. ( 1 4) - i > (1) = 1 THEN AREA 6074 IF AREA ( 1 ) = 1 AND ,'V'J! D (1 ) = 1 THEM LEAKFLAG (15- 1. ELBE LEALFL.A0 ( 1 ) -O 6080 GOTO 6220 6090 IF HIGH7. ( 1. , '1 ) : -1 THEN AREA ( 2 ! -1 ELBE AREA f 1M -0 6091 IF LEAKFLAG ( 1 )-1 OR LEAKFLoG (4) = 1 GOTO 6094 6092 IF < (AREA , 2 ) -0 AMD A OLD (2 ) ~ 1 ) AMD U-i 1 LUX ! 1 , 1 > = 1 OR MIGHT. ( 1 9; | j i THEN AREA (2)=1 6094 IF AREA 12) 1. AMD A OLD i 2) "= 1 7 HEM LEAKFLAG ' A-- 1 ELSE LEAK!- L AG ( 2 ) ) 6100 GOTO 6220 6110 IF H J GMT f J , 9) 1 '"HEM AREA C 3 ; - 1 ELSE : 'LL A 61 12 IF LEAKFLAG 02) -1 GOTO 6116 6114 IF ((AREA (G)-O END AULD ( 3 ) " 1 ) AMD ( hi 1UHT ( . -!)' 1 ) ) ! HE!! ` iRE,( 3 ) - 1 6116 IF AREA (3) = L AND AOLD(3)-) THEM I _GAI FLAG < 3 ) -1 ELBE LEAK FLAG ( 3) "0 6120 GOTO 6220 30 IF MIGHT ( 1 .,5) -1 THEN DEEA ( t ; -J -REi-i (4) -0 IF LEAKFLAG ( 1 - -= 1 GOTO 6136 6x34 IF ( t AREA 4; AND GOLD ( 4 1 ? AND . H ! G; i>. ( 1 1 ,< -1 ) ) THEM , '-REA ( A ) - 1 6136 IF AREA ' 4 ) -1 AMD AOLD ( 4 ) - 1 THEN LEAKEI..AG ( ) - 1 ELBE LEAKFLau ( 4 ) -0 6140 GOTO 6220 6150 AREA (5) -H IGHT (1,6) 6160 GOTO 6220 6170 AREA(6)-HIGHT(1,7) 6180 GOTO 6220 6190 AREA (7)-HIGH"/. (.1,-8) 6200 BOTO 6220 6210 AREA (3) -HIGH"/ (1,10) 6220 NEXT I 6230 FOR 1=1 TO 8 : ' COMPARE TO LAST SCAN HI VCM CONCENTRATIONS 6235 IF AREA ( I) = 1 AND AOLD (I) =1 THEN D0UT2-1 ELSE D0UT2-0 6240 IF AREA(I ) = 1 AND AOLD(I)=1 THEN FLAG=4 ELSE GOTO 6280 6250 LEAKS (I) -LEAKS (1)4-1 6255 LEAKTOT-LEAKTOT+1 6256 LKTIMEi(LEAKTOT)-TIMET 6257 LKAREA(LEAKTOT)-I 6260 LEAKAREA=I 6270 GOSUB 11000 6280 NEXT I -290 FOR 1=1 TO C 6 400 AOLD ( I ? -:AREA < [ > 6310 NEXT 1 14 IFLAG ( 1,1)-N!GHT(1, 1) fe I FLAG(1,4)=HIGHT(1,4) j.316 IFI..AGC1,9)-MIGHT (1,9) Cc OOOOJa 1898 - 3317 IFLAG(1,5)=HIGHT(1,5) JRN (74) CCR 000018983 7000 LFA LEAK DETEG 7001 7007 FOR 1=1 TO 1 0 2 AREA (75) |oio IF GCDATA( 2,1) >' *020 NEXT I 030 FOR 1=1 TO 6 7040 ON I GOTO 7050,7 7050 AREA(9)=HIGHZ <2H 7060 GOTO 7160 7070 AREA f 10) =H IGHZ 72 7080 GOTO 7160 7090 IF (HIGHZ( 2,3) ~ ' Eft (1 1 > = 1 ELSE ftREA(i 1ft ^0 7100 GOTO 7160 7110 ftREft(12)~HIOHM(2,6) 7120 GOTO 7160 7130 AREA U 3 5 =14 I GHZ < 2,7 ) 7140 GOTO 7160 7150 IF HIGHZ C2,9) -1 OR ;!IGHZ (2.1- M. THEN ftRFA ( 1. 1-) 1. ELSE AREA (14) <> 7160 NF.XT I 7170 FOR ,l>9 TO 11: ' CGMF'ARE TO LAST SCAN Hi VON CONCENTRATIONS 7175 IF AREA ( I ) " ,1. AND :-,nLDa)=l I HEN DO LIT 2" 1 EL.OF D0UT2-U 7190 IF AREA ( I ) =-1 AMD AOLD ( I) = 1 THEN FLAG~5 ELSE GOTO 7220 7190 LEAK 5 ( H"LEAKS(I) + L 7195 LEA K T 01' = I... E ft K T 0 I i 1 7196 LKTIMEf(LEAKTQT) -= T I MET 7197 LKAREft (LEAKT OT) i 7200 LEAK AREA-- r 7210 GDSUE M.000 20 NEXT I 230 FOR I~9 TO 14 / 2 4 0 AOLD ( [ ) = ft RE.A ! i ) 7250 NEXT I 7260 RETURN CCR 000018984 (76) 8000 ' LEAK LOG PRINTOUT PROGRAM FOR HOURLY REPORT 8010 ' 20 OLDHOUR=HOUR R21 IF H0UR=0 THEM G0SU3 19000 22 IF H0UR=0 THEM LGGSET=1 ELSE LDGEET-0 8025 ' 8026 ' SEND OUTPUT TO PRINTER 8027 ' 8030 FOR 1=1 TO 10 8040 LPRIMT CHR^ ( 10) ; 8050 NEXT I 3060 LPRINT TIMET,DMYRT 8070 LPRINT "LEAKS DURING 'THE PAST HOUR;" 8082 LPRINT USING " AREA 1 (CAR-171 ,RTS 1 , 2,3) ## LEAKS" ;LEAKS(1)-QLDLEAK(1> 8083 LPRI NT USING " AREA (CAR-171 ,PTS 1, 4) = ## LEAKS" ;LEAKS(2)-OLDLEAK(2) 8084 LPRINT USING "AREA 3 (CAR-1 71 ,PTS 4, 9) = ## LEAKS" ;LEAKS(5)-OLDLEAK(3) 8085 LPRINT USING "AREA 4 (CAR-I71 FT'S 1, 5) = 4# LEAKS" ;LEAKS(4)-QLDLEAK(4) S09& LPRINT US ING "AREA (CAR- 71 , F'T 6; 4# LEAKS" LEAKS (5) -OLDLEAK (5) 8087 LPRINT USING "AREA 6 3088 LPRINT US I NG "AREA '~/7 (CAR-171 , FT 7) (CAR-171 ,PT 3) - ft# LEAKS" ;LEAKS(6)-OLDLEAK(6) ft# LEAKS" ;LEAKS(7)-QLDLEAK(7) 8089 LPRI NT US I NG "AREA 8 (CAR-171 , PT 1. 0 5 - ft# LEAKS" ; LEAKS ' 3 ) -QLDLEi )K. (8) '90 LPRINT US I NG "AREA 9 (CAR-401 , P r 1 ; - ft ft LEAKS" ;LEAKS(9)-QLDLEAK(9) 8091 LPRINT US I NG " AREA 10 (CAP-401 ,PT 2; z : ft ft LEAKS" ; LEAKS (10) -OLDLEAK (1 0) 8092 LPRINT US I NG "AREA 11 (CAR-401 ,PTG 3, 4,5,0) '= ## LEAKS" ;LEAKS(11)-OLDLEAK(1 1) 8093 LPRINT USING "AREA 12 (CAR-401 , PT 6) := ft# LEAKS" ;LEAKS(12)-OLDLEAK(1 2) 8094 LPRINT USING "AREA 13 (CAR-401 , PT 7 = ft# LEAKS" ;LEAKS(13)-OLDLEAK(1 3) 8095 LPRINT USING "AREA 14 (CAR-401 ,PTS 9, 10) = ft# LEAKS" ;LEAKS(14)-OLDLEAK(X 4) 8110 FOR 1=1 TO 3 : LPRINT CHRT(10) ;: NEXT 8120 LPRINT "NUMBER OF TIMES OVER 10 PPM FOR EACH POINT:" 8130 LPRINT 8140 LPRINT "POINT PROCESS AREA OFF-SITES INCINERATOR" 8150 FOR 1=1 TO 2 8160 LPRINT USING " ## #4 ft# "SI,HICO UNT7. (1 , I) -0LDC0UMT7. (1,1) ,HIC0UNT7. (2,1) -0LDC0UNT7. (2 , I) ,HIC0UNT7. (3,1) -QLDC0UNT7. (3 , I) 8170 NEXT I 8180 FOR 1=3 TO 10 8190 LPRINT USING " 4# ft# ft#" ; I , HI COUNTY. (1,1) -0LDC0UNT7. (1,1) , HI COUNT7. (2,1) -OLUCOUNTT. (2,1) 8200 NEXT I 1205 ' |06 ' WRITE HOURLY OUTPUT ON FLOPPY DISK T207 ' 3210 OPEN "A:EPADATA" FOR APPEND AS 42 8220 PRINT 42,USING ; TI MET , DMYRT CCR 000018985 (77) 3230 PR If IT #2, "LEAKS DURING I HE FAS !i 3240 FOR 1 = 1 TO 14 PRINT #2, US ING "AREA ## = ##.# LEAPS" I , I..EAKS ( I ) -OLDLEAK (I NEXT 270 PRINT #2,"NUMBER OF TIMES OVER 10 PPM FOR EACH POINT;" 0230 PRINT #2,"POINT PROCESS AREA OFFSITES INCINERATOR 8290 FOR 1=1 TO 2 8300 PRINT #2,USING " 4# II# ## ;i It " ; I , H 3 COUNT"/. <1 , I) -OLDCOUN TV. ( 1 , I ) , HI. COUNT"/. (2,1) -OLDCOUN T ,H[COUNT I ) -- !JLI)COUNT"/. ' 3,1) 8310 NEXT 8320 FOR 1=3 TO 10 8330 PRINT #2, US IMG " ## ## T7. (1,1) , FI I COUNT'/. (2, I ) -0LDCQUNT7, (2,1) ##" ; I , HICQUN TV. <1 , !) -OLDCOUN 8340 NEXT 8350 CLOSE #2 8355 ' 8356 ' SET LEAK COUNTERS 8357 ' 8360 FOR 1=1 TO 14 8370 OLDLEAK(I) =LEAI"S(I) 8380 NEXT J 8390 FOR 1=1 TO to 8400 0LDCQUNT7. (1,1) =H i COUNT!'. (1,1) 8410 OLDCOUN TV. (2 , I ) =H I COUNT"/. ( 2 , I) 8420 OLDCOUNT7. (3 , I) =H I COUNT"/. (3 , I) 8430 NEXT I 8440 RETURN CCR 000018986 (78) 9000 LEAK LOG PRINTOUT PF GGRAM FOR END L.F !,`A V REPORT 9003 ' rf?004 ' UPDATE DATE F006 ' 010 ' 9011 ' SEND OUTPUT TO PRINT ER 9012 ' 9015 IF KDUNT1 =0 THEN COUNT 1 = 1 9016 IF K0UNT2=0 THEN KGUNT 2 - 1 9017 IF K0UNT3=O THEN FOUNT 9020 FOR 1 = 1 TO 5 : LPRINT CHR't ( 10): : NEXT 9030 LPRINT TIMET,DMVPT 9040 LPRINT 9050 LPRINT "FIXED POINT MONITOR REPORT FOR ": 9060 LPRINT LOGOATT 9070 LPRINT 9080 LPRINT "NUMBER OF LEAK S DURING THE PAST 24 HOURS:" 9092 9093 9094 9095 LPRINT LPRINT L.PR (NT LPRINT USING USING USING USING "AREA "AREA "AREA "AREA 1 2 .1 1 (CAR- 171,PTS (CAR- 171,PTS (CAR- 171 , P T S < CAR- 171, PTS 1,2,3) 1,4) = 4,9) 1,3) -- =7 4# 1. EAKS" ;LEAKS (1 ) It# L EARS" ;LEAKS (2) i1 !r |i+r ii EAR'S" 1 LEAKS (3) ' j +t | L:.!/ " ;LEAKS (4 } 9096 LF-'R I NT USING "AREA 5 9097 LPRINT USING "AREA 6 (CAR- 171., PT T) -= (CAR- 171,PT 7) = :-hi i. EAKS" ;LEAKS < 5) INI L ,, i`!} CD n LEAK S (6) 909S LPRINT USING "AREA 7 (CAR- 171,PT S) ^ 44 L. EAKS" ;LEAKS ( 7) 9099 LPRINT USING 9100 LPRINT USCNO 9101 LPRINT USING "AREA 8 "AREA 10 "AREA 11 (CAR- 1.71 , PT 105 7= (CAR- 401,PT 2) = (CAR- 401,PTS 3,4,5,8) Ill) L EAKS " ; LEAKS (n) *}. ^ | EAKS" :: LEAKS (10) ^ 4 4 L EAKS " ", LEAKS cm 9102 LPRINT USING "AREA 12 (CAR- 401,Pf 6) = 44 1... EAKS" 1 LEAKS (12) S'103 LPRINT USING "AREA 13 < CAR- 40i,PT 7 = 411- E Et-iKL " ; LEAK.S ( i. 3) 104 LPRINT USING "AREA 14 (CAR- 4 01, PI'S 9,10) "7 44 L EAR'S" ;LEAKS i 1 4) 120 FOR I" 1 TO 3 : LF'RiNl CHRTUO); : NEXT 9122 FOR 1 = 1 Hi 1 EAKTOT 9123 LPRINT USING "A LEAK L CCU RE D AT T ";LKTT MET ( I! ) ; 9124 LPRINT USING " [N AREA 44 " ; LIRA PE A I ) 9125 LPRINT : LPRINT 7126 NEXT 9130 LPRINT "NUMBER OF TIMES OVER 10 F' P M F 0 R EACH P 01N T : ' 9140 LPRINT 9150 LPRINT "POINT PROCESS AREA OFF-SITES INCINERATOR" 9160 FOR 1=1 TO 2 9170 LPRINT USING ## ## TT Tr ##";I,HIC OUNT'/. (1,1) , HI COUNT'/. (2,1) , HI COUNT7. (3,1) 9180 NEXT I 9190 FOR 1=3 TO 10 9200 LPRINT USING " ## tttt ## " ; I , H1 COUNT'/, a , I) , HICOUM T7. (2,1) 9210 NEXT I 9220 FOR 1=1 TO 3 LPRINT CHRf(10); : NEXT 9230 LPRINT "HIGHEST CONCENTPAT ION PER POINT LAST 24 1 9240 LPRINT 9250 LPRINT "POINT O -a'j LPRINT PROCESS AREA OFF-SITES INCINERATOR" 9270 FOR 1 = 1. TO 2 9280 LPRINT USING " 44 UTL. it #4.4"-, I, HID TA( 1 , I) ,HI DATA(2,I) ,HI DATA(3 I ) 290 NEXT I /300 FOR [=3 TO 10 9310 LPRINT USING #4 It#, ft 4# ,, II" ", I ,,HIDATA(1, I ) , HI DATA ( 2,1) OCR 00001B987 9320 ME XT I! 9330 FOR 1 = 1 TO 3 ; LPRINT CHRT(IO).-, NEX' (79) r;.Q a ii ,, 350 LPRINT "POINT '360 FOR 1=1 TO 2 9370 LPRINT USING " tttt PROCESS AREA tttt.it OFF..SITES tttt.tt INCINERATOR" tttt. tt " - I , DAY,' VG (1,I) /KQUNT2 , DAY A VO (2,1) /K0UNT2 , DAY A VO (3,1) /KGUNT3 9380 NEXT I 9390 FOR 1=3 TO 10 9400 LPRINT USING " tttt ill!. II tttt.tt" I , DAYAVG d,I ; / K 0UNT2,1. AYAVG (2,1) /K01JNT2 9410 NEXT I 9419 ' 9420 ' WRITE DAILY OUTPUT ON FLOPPY DISK 9430 ' 9440 OPEN "A:EPADATA" FOR APPEND AS tt2 9450 PR I NT 112, US ING " C S;" ; TI NET , DNYRT 9460 PRINT #2,USING "FIXED POINT MONITOR REPORT FOR ?-";LCBDATET 9470 PRINT #2,"NUMBER OF LEAKS DURING THE PAST 24 HOURS:" 9480 FOR 11=1 TO 14 9490 PRINT 1t2, USING " AREA tttt = It# LEAKS" ; 1 1 , LEAKS PC 1) 9500 NEXT II 9510 PRINT 112, "NUMBER OF TINES OVER lO PPM FOR EACH POINT: " 9520 FRI NT 112 , " POIN f 9530 FOR 12=1 TO 2 PROCESS AREA OFF-SITES INCINERATOR" 9540 PRINT 112, US IMG " tttt 1111 I COUNTY. (1,12) , H l COUN T7. ( 2 , [ 2) , H C COUNT 7. (: 12) tttt tttt" ; 12,1 9550 NEXT 12 9560 FOR 12=3 TO 10 570 PRINT 112, USING " It# ,NT7. (2,12) 11# tttt " ; 12 , H ! OOUNTX (1,12) , HI Cl. 9580 NEXT 12 9590 PRINT #2,"HIGHEST CONCENTRATION PER POINT LAST 24 HOURS:" 9600 PRINT #2,"POINT PROCESS AREA OFFSITES INCINERATOR" 9610 FOR 13=1 TO 2 9620 PRINT #2,USING " tttt ##.# ##.# tttt.tt";I" ,HIDATA(1,13),HIDATA(2,[3),HIDATA(3,13) 9630 NEXT 13 9640 FOR 13=3 TO 10 9650 PRINT 112, USING " tttt tttt. # tttt. 13 ,HIDATA < 1 , 13) ,HIPA TA(2,13) 9660 NEXT 13 9670 PRINT #2,"AVERAGE CONCENTRATION PER POINT LAST 24 HOURS:" 9680 PRINT #2,"POINT PROCESS AREA 9690 FOR 14=1 TO 2 9700 PRINT #2,USING " tttt tttt.tt OFF-SITES tttt.tt INCINERATOR" tttt.tt";14,DAY AVG C1,14)/K0UNT1,DAYAVG(2,14)/K0UNT2,DAYAVG(3,14)/K0UNT3 9710 NEXT 14 9720 FOR 14=3 TO 10 9730 PRINT 112, USING " tttt ,DAYAVG(2,14)/KQUNT2 tttt.tt tttt.tt";14,DAYAVG(1,14)/KOUNT1 9740 NEXT 14 9750 CLOSE #2 9760 KOUNT1=0 : K0UNT2=O : K0UNT3=O .9765 LEAKTOT=0 )'767 ' 'i768 ' RESET AVERAGING AND COUNTING ARRAYS 9769 ' 9770 FOR K 1 TO 10 CCR 000018988 9780 9790 9800 9810 '820 9830 9833 9836 9837 9838 9840 9850 9860 9870 HIDATA(i,H)=0 H I DATA ( 2 ,! - > -O : H T UMTA < 3 , K =( ' HIC0LJNT7. (1 ,U> O : HI COLIN T M (2 J ) -O ; H ICUUNT7, C 3 , K > =(,,) OLDCOUNT'/. C1 , !< =0 : OLDCOUNT'/. (2,10 ==0 : OLD CO UN "13 < Z . I -) DAYAVG (1 , K) -=0 : DAYAVG (2 , K) =0 DAYAVG (3, K ) =0 NEXT K FOR 0=1 TO 14 : LEAK3 (Q> : OLDLEAK (Q) =0 EXT 0. ' CLEAR DATA FILE ON HARD DISK AND REINITIAL L FOR HEX ' LOGDAT$=DMYR:t OPEN "CsHQURDATA" FOR OUTPUT AS 43 PRINT #3, US I MG "DATA FOR S-:" ; LUGDAT-T CLOSE 43 RETURN (80) CCft 000018989 L 0000 DAY FLAMMABILI' 10010 S>020 T 1 --T <1) >030 T4=T(4) 1 n040HCMHR(3)=0! <30 "ini'll ro -'ROGP, ':M (81) i 0060 ' START PROCC SSI MS'. . 10070 CYC(1)=6.3 : CYC(2)r CYC(3)--6,,1 10080 10090 10100 10110 10120 GOSUB 5000 IF (HCMHR?1) READ ANALOG OR AIRB ( I : 'OXYGEN TO R-301... CHANNELS AND CCJNVER'1' 100) GOTO 10890 I" 0 ENG. JM ] 10130 02(1)=AIRB (1) 10140 10150 'HEAT OF REACTION ( BTLJ/LBNOLE ETHYLENE REACTED). 10160 HREAC-1130(_,(.>1 10170 10180 10190 10200 10210 10220 HTVAP=931! : ' STEAM HEAT OF VAPORIZATION TTM IN ( 1 ) ---ETMHR i 1 ) +HCMHR ( 1 ) +02 ( 1) 3 ' INLET XM=0! : X0B(l)=-0' XETBR-=. U2+ETMHR < 1 ) ETMHR (!>==. 98*ETMHR < 1 ) FLOW TO -301 10230 10240 FOR 1=0 TO LOOP FOR THREE REACTORS 10250 HEAT CONTENT OF STEAM FROM REACTORS... 10260 QTR=STLBtJ ) (HTVAP+123'/'CYC(I) -1 !) ) 10270 HEAT CONTENT OF REACTANTS... 0280 QIN=02 ( 1 ) -+FNEN Fi 13 (T1 ) + ETMHR ( 1 ) +FMENTH1 (. f 1 ) +HCMHR ( I > +FMFN I"I L: ( Tj ) + XEI'BR+FNEN 4<T1) 90 IF (I=-l) THEN 3 0 420 1.. -.00 ' HEAT CONTENT OF REACTANTS... 10310 QI N=DTO+AIRB l I ) -^FNEN TH3 (T1 ) +HCMHR 1 I ) *FNENT! 12 ( T1 > 10320 ' OXYGEN TO REACTOR.., 10330 02 ( I ) =A I RB ( I ) +X.OB (I- 1 ) 10340 HCL TO REACTOR... 10350 HCMHR(I)=HCMHR<I)+HCB(1-1) 10360 TOTAL FLOW TO REACTOR. 10370 TTMIN(I ) =ETMHR 11 ) +HCMHR ( I ) +02 (I ) +XETB < I -- 1 > +XIHTB < 1-1 ) 10380 ' SET EDC AND WATER OUTPUT TO ZERO ON FIRST PASS... 10390 XETZ=XETB(I-1) 10400 XHTZ=XHTB(1-1) 10410 GOTO 10450 10420 XETZ=XETBR 10430 XHTZ=0! 10440 ' REACTION FOR EACH REACTOR... 10450 TZ=T(1+1) 10460 X=(GTR-QIN+(ETMHR(I)*FNENTH1(TZ)+HCMHR(I)*FNENTH2(TZ)+02(I)*FNENTH3(TZ)+XE TZ*FNENTH4(TZ)+XHTZ+FNENTH5(TZ)))/(ETMHR(I)+(FNENTH1(TZ)+2!*FNENTH2(TZ)+.5*FNENT H3(TZ)-FNENTH4(TZ)-FNENTH5(TZ)+HREAC)) 10470 ETHYLENE FROM REACTOR..,, 10480 ETMHR (1 + 1 ) = < 1 I --X ) *ETMHR ( I ) 10490 HCL FROM REACTOR... i 0500 HCB ( I ) "HCMHR ( I ) -2 ! + (ETMHR ( I ; >. X) OXYGEN FROM REACTOR... XOB ( I) "02 (I ) -. 5* (. ETMHR (I ; *X ) CUMULATIVE ETHYLENE REACTED... 10540 XM-XM+X^ETMHR(I) 10550 ' EDC FROM REACTOR... CCR 000018990 10560 XETE 5 I ) = XM + X ETBR 1.0570 WATER FRO j)580 XPITD\I)= XM Pf)590 HEAT C'JN'I 1 400 QTO=-QTR+QIN+HREAC * ji 10 NEXT I 10620 XETA=0! 10630 XHTA=0' 10640 ' 10650 ` CALCULATE F'EPCEN F INLET, p- ! MEET 10660 'AND BL--307 INLET, 10670 PFLM(1)=02 Cl)/(TTM <!)*(. 114--. 0001 78+ r 1 ) + . 2'! -5 + X E HjR+. C 0 31 6 vPiCMHR ( 1 ) ) PFLM (1) >. 8 THEN COLOR 7 4 10680 PFLM (2) =82 (2) / (TTM1N (2) * < . 1 15+ ( . 243+XETB (2 ) + . 0031 8*-ICMHR i2) ) 'TIMIN C2> - 76*T(2)>) : IF PFLM(7)>,8 THEN COLOR 7,4 10690 PFLM (3) =02 (3) / ( TTM I N C 3) * ( . 1 17+ ( . 243* XETB 13 ) ^ . (.-03 3 -^14 CMC !P t 3) ) /TTMIIM i.3) - 176*T(3))) : IF PFLM<3?>.8 THEN COLOR 7,4 10700 PFLM (4) -XQD (3) / ' C TOO 03) +ETMHR (4? ) + . 0841 + . 2 4 3+. 03+ETMHR (4) ) : IF HELM (4 THEN COLOR 7,4 10710 FOR 11=1 TO / 10720 IF PFLM (I I) ; O . ?C5B?9f7 THEN PFLM t. 1 X ) --=? t cgj] cp q 10730 NEXT Cl 10740 LOCATE 23,1 10750 FOR I=t TO a 10760 IF PFLM (I) 0 THEN P'FLM c I) -"O 10770 NEXT I 10780 PRINT "FLAN . < Jl 10790 PRINT USINO 1 R~30 ! IN: 9,4## 3 02 IN: #.### R-303 IN: ##!? EL #. 4##" ; PFLM ( 1.) , PFI..M ( 2) , PFLM '.7) PFLM ! 4) )795 IF (PFLM<1) , ,, 3 OR F'PLil (2.) > . 3 OR PFLM C 3).:,,8 OR PF 3 -1 r )0UT3=0 lu600 IF PFLM Cl) : C<--ij THEN FLAG=17 ELSE GOTO 10820 10810 GOSUB 11000 10820 IF F FLM (2 ; . 3 THEN F L_AG =18 ELCE OUT 0 1 (.'840 10830 GOSUB 11000 10840 IF PFLM (3) . 3 THEN F LAG=19 ELSE GOTO 10860 10850 GOSUB 11000 10860 IF PFLM (4) ou THEN FLAG=20 ELSE GOTO 10870 GOSUB 11000 - 10880 10880 COLOR 7,0 10890 RETURN CCR 000018991 1 (_!(.) (J :FM)R. MESSAGES FPOoLoM (83) 1010 ' i5 GO SUB 21000 10 FOR 15=1 TO 5 : LF'R I I'll CURT : NE.\T !!5 .!. 0"'0 LF'R 1 NT TI NET , DNYR $ J. J ON FLAG GOTO 1 1 050,1 1030 , J 1 I 1 0,1 1. 1 40 , J. 1 1. 60 v 1 11LO , 1 1220,11 LUO , 1 1 2 VO . !. 520,1 550,11330,11410,11440,11460,11480,11500,11520,11540,11560 1050 LF'R I NT "**** HIGH UCM :N PROCESS AREA. ... POT. N'l 4 " ; BID1 ? i % ' 1060 LF'R I NT US I NG " VCM CONCENT IRA r I ON = ft It . 4 F'F'M " ; GCDA T A ( 1 , S 1 D1 715 i .1070 GOTO 11600 '1080 LF'R I NT " *** HIGH OCM JN OFF-SITES AREA.... POI NT 11 " S T 0 4 0 :i. 7 '1090 LF'R I NT USING " VCM CUNCENTRATI ON = 4-4. \\ F'F'N " ; GCDA'1'A (2 , SID4017,) .1100 GOTO 11600 1110 L P RIN T "***-* HIGH 0 C I'l IN i N CIN E R A T 0 R A REA. - . . ! ' U114T 11 " ; SI D90 47 .1120 L P RIN T USING "1 ' 0 N C 0 N C E N 1R A T I S3 N - it # ,, it I -' P N1' ; G C DA!' A < 3 , SID90 47.) '1130 GOTO 11600 '1140 LPRINT USING " LEAK IN PROCESS AREA ## ****";LEAK AREA `.1150 GOTO 11600 11160 LPRINT USING " LEAL IN OFF-SITES AREA it# ****'' LEA!- AREA 1170 GOTO 1.1600 1180 LPRINT "**-* BAD RESPONSE FROM BURR-BROWN * " 1190 LPRINT TO .CONI'I CURAT I ON OOMNAND... <***" `1200 LPRINT ".->*** CHI-L!- CGMNUN1 OAT I DNS INIEbRJ.IV - ' 11210 GOTO 1160-:> '.1220 LF'R I NT " **** BAD RESPONSE FRON BURR-BROWN v. " ',1230 LPRINT TO TURNAROUND GET TIME COMMAND... 1240 LPRINT "**** RE-EXECUTE uONFIGURATION LOOP ^-v-" '1250 GOTO 1160o 0 LPRINT " * x - t'NF'U !" UNDERRANGE. .. PROCESS AREA DAtO" 1 0 LPRINT STREAM ID T ";SID1713 11" O GOTO 11600 1L.0 LF'R I NT "**** INPUT UUDERRANGE. .. OFF-SITES AREA lii.l'A" 1300 LF'R I NT STREAM ID it " ;SID4017 11310 GOTO 11600 J 1320 LPRINT ".'*-** INPUT UNDERRAMGE. . . OF F-SI i'ES AREA uAl'A" .1330 LPRINT " *-*** STREAM ID it, -';SID9047 1340 GOTO 11600 '1350 LPRINT STREAM CD OUT OF RANGE. . . CAR-1 71" 11360 LPRINT "**** STREAM 4 " ; OLD 1717+1 :1370 GOTO 11600 .1380 LPRINT "**** STREAM ID OUT OF RANGE... CAR-401" 11390 LPRINT "**** STREAM it "; 0LD4017+-1 1400 GOTO 11600 .1410 LPRINT "**** STREAM ID OUT OF RANGE... CAR-904" .1420 LPRINT "**** STREAM it ";0LD9047+1 .1430 GOTO 11600 >1440 LPRINT "**** CAR-171 OFF LINE ****" '1450 GOTO 11600 1460 LPRINT "**#* CAR-401 OFF LINE ##**" 1470 GOTO 11600 1480 LPRINT "*#** CAR-904 LJFF LINE *-*-x-*" 1490 GOTO 11600 1500 LPRINT "k-**** HIGH PLoMMOfcfJ L1TY j. rJ R-3 01 INI...LIT * 1510 goto iisoo ifKtio LPRINT " *-*-*-** HIGH FI oNMAB I L i TV ! M R- 3 02 INLET -.'i-*-*-*-*" GOTO 11600 LPRINT "***** HIGH FLAMMABT LJTY IN R--3 03 INLET x-****" 1 %_/_> 'J GOTO 11600 1560 LPRINT "*-**"*-* HIGH FLAMMABILITY IN BL- 3u7 INLET ` *** 000018992 CCft 'O 'O 11570 00CO 116U0 11600 FLAO'-O 10 FOR 16=1 TO 10 : 20 RETURN LRRIMT CHkT'I'V:; - (84) CCR 000018993 12000 12010 12020 12030 12040 12050 12060 12070 12030 12090 12100 12110 12120 12130 12140 12150 12160 12170 121S0 12190 ' i SEXADECIMAL TO DECIMAL UUNVLESI ON ROUT ! N<- ' (85) L=LEN(HD:f) SLJM=0 : K=0 FOE I7=L TO 1 STEP -1 CHS=14I D$ (HD-t ,17,1) MULT ~ 16 "' L IF CH$="1" THEN VALUE-1 ELBE 1F Ci l$=11 'a n THEN VALUED IF CH:f="3" THEN VALUE"r ELSE IF CHT= 11 4" THEN VALUE -4 IF CH$="5" THEN V4LUE=5 ELSE IF CHS=" 6 " THEN VALUERS IF CH$="7" THEN VALUE== / ELSE X F CUT- " 3" THEN VALUE1--3 IF CHT= " 911 THEN VALUE"" 9 ELSE IF CHt=" A" THEN VALUE-10 IF CH*="B" THEN VALUE--11 ELSE IF CH:f = "C " rHEN VALUE-12 IF CH*="D" THEN VALUE=13 ELSE I F CH*= "E " THEN VALUES- i. 4 IF CH$="F" THEN VALUE1-15 ELSE IF CHT= "0 " THEN VALUE-0 SUM=SUM+MULT-* VALUE K=K-!-l NEXT 17 DEC"SUM RETURN 1 OCR 0 00019"4 1 3000 ' OXY DP PROGRAM 13010 (86) 3020 SET-1 3023 1 F <HCMHE ( 1 ) 250 OR A I RB (1 ; < 100 ) 0010 13490 1 3030 AI NREAD$~ " 0 1A10 1 Sc.' 1 B X X " +CHPT (13) : ' REDOES I" PGP ANALOG CHANNELS 4-37 040 PRINT #1,A INREAD; 13050 FDR 18=1 TO 20 : NEXT IB i 13060 LINE INPUT !tl , AIN RESIST 13070 RESPT=A I NREBPT ' DELAY 20 MILLISECONDS 13030 GOSLJB 17000 13090 FOR 19=1 10n 3 r; t p p ' DIVIDE ANALOG DATA [NPi ','aL,.OP AND Mil! I- _L'S 13100 L=I9*2+3 13110 AINDATAT (19) =M I DV ( A [ IMRESPT , L , 5 13120 L=L+3 13130 AINDATAT ( 19+1) -"M ID$ (A [ IMRESPT , L , l) 13140 NEXT 1.9 13150 FOR 1 = 1 TO S STEP 2 13160 HDT~-A INDATAT ( ii ) 13170 60SIJB 12000 ; HEX TO DECIMAL CONVERSION 13 ISO DAT ( I ) "-DEC 13190 IF (DAT (1 ) .-=^048) GOTO 13220 :: ' CONVERT TO ENGINEERING UNI "IS 13200 DAT ( I ) = (DAT ( I ) /2043.) +1 0 13210 GOTO 1 INTO 13220 DA T ( I ) = < ( DA F ( I ) -4096 ) /204S ) ~ 10 13230 IF DAT(I) .5 THEN FLAG=22 ELSE GOTO 13250 13240 GOSUB 11 QUO 13250 IF DAT Cl) .. 0 ! T HEM DAT (I ) =0 ' 13260 NEXT I L3270 R301PR=( (DAT i1 )- I >/4! )*200! F32S0 DP(1)=( (DAT CD-I) /4! )+20 1 290 DP(2) = ( (DAT (5 >-1>/4' >*30! L 3300 DP C 3) -= ( ( DA 1 ( /) - 1 > /4 ! > *40 1 13310 RX ( 1 ) =HCNMR < 1 ' + . 3 79+E TIMUR ( 1 ) *, 379-!-AIRB ( 1 ) *.379 13320 RX (2) =RX ( 1 ) -AIRB <1)*1. 13'-' + A !'RB *. 3 79+HCMHR <2.' *.379 13330 RX(3)=RX(2) -AIRB (2)*1. 137+AIRB(3)+.379 13340 RY ( 1)=R301PP-DP(1,< 13350 RY(2)=R Y(1>-DP(2> 13360 RY(3)=RY(2 ?-DP(3) 13370 FOR 1=1 TO 3 ' 13380 DROP (I) =99. 99 : ' CALCULATE RXR PRESSURE DROPS AND GTEAM--TQ-AIR RATIOS 13390 IF (RX(I)OO!) THEM DROP (I) = (DP ( I) *RY (I) ) / (RX (I) *RX C X ) ) * 10000 I 13400 RAT(I)=99.99 13410 IF (AIR(I)OO!) THEN RAT ( I) = (STLB (I ) ) / (AIRB < I) *10 ! ) 13420 NEXT I 13430 LPRINT CHR$(12); 13440 LPRINT "OXYCHLORINATIOIM REDUCED PRESSURE DROPS: 11 13450 FOR J1=1 TO 3 13460 LPRINT USING "R-30# REDUCED DP = RATIO = ###. 11#11; J 1 , DROP (J 1) , RAT(J1) 13470 NEXT J1 13480 LPRINT CHRT(12); 13490 RETURN OOOOV 89** OCR 14000 14010 4020 4030 14040 1050 14060 14070 14080 14090 14160 DECIMAL TO EI MAh:', NUMBER ' FOR 8= 1 TO 16 : 7. N (F ; ~: FOR I~1 TO 16 81N a)=DEC MOD 2 EEMAIN=DEC\2 DEC--EEMAIN L=I IF DEC=0 THEN 14160 NEXT I RETURN OUN', ME X !' J I; (87) ) 000018996 CCR (88) 15000 .15010 .5030 15040 .5050 15055 15060 'IBM PC-XT ERROR 1 X'OPr- T Nib ;: FOip-'AM ' FOR J3=l TO 5 : LPP l NT OIKIOO) ; : NEXT LPRINT USING" CBM PC~X !' ERROR. . .. ERROR I'll FOR J4=l TO 3 : LPRCNT CMR-f t 10) ; ; NEXT GOSUB 13000 RESUME NEXT JO i r. 1)4 !. in,; 4#### ERR, ERL CCR 0Oq0i 8997 16000 16010 16020 16030 16040 16041 16050 16060 BURR-BROWN ERROR 1 JEMTIF'IC/VTION PROGRAM (89) ERRNUMS=N IDT < PP-SF T ,, 4-2) FOR J5~ 1 TO 3 : LF'RINT C!tFR"R MO! ; : NEXT J5 LF'RXIMT "****- HURR--BROWN ERROR... ERROR 4 " ? F PNUNT LF'RINT " ****" IF ERRNUNT="03" THEN GOGUB 1140 ELSE GOTO LiO/O LF'RINT : LF'RINT "**** BURR-BROWN CONFIGURATION LOST-------CHECI ROWER SOURCE 16070 FOR J6=l TO 3 : LF'RINT CURT ( 10) ; : NEXT J6 16075 GOSLJB 18000 16080 RETURN j CCR 000018998 17000 17010 17020 17030 ,, 7040 TEST FOE EOF 2 MESSAGE n:,'U!'l OlJER- TESTCaMT=M 12 7'' REEF' !" , 3 , I ) IF TESTCQN:$="N" THEN GGSUB 160O0 RETURN M (90) CCR 000018999 i GO 00 1300 t LOCATE 2,1 VJQ .050 1 3030 18070 18080 18090 OR" 18100 __ II PRINT PR I j\JT PRINT PRINT PRINT PRINT " " " " " 18110 PRINT 18120 RETURN POINT .............. (91) "LI) p:!,!.!'! ! ppP1 ! L'R LNu NURPKN r 0 "01 -1 " ----- ---------------------- --- ----------------- RGLLGP ,N:.lP pT-'-TIP'TO .................... .......... - - - ------- CCR 000019000 19000 9010 ROUTINE TO :oi\ TE 020 D A V"/. = D A Y 7. + 1 9030 IF DAY7<29 GOTO 19170 '035 L_EAP"/.=YEARV. NOD 4 19037 IF MONTH'/.02 GOTO 19090 19040 CF N0NTH7.< >2 AND DAY"/."29 THE I -I GOTO 19090 19060 19070 19090 19095 IF LEAP7=0 GOT 19090 DAY7.= 1 : NON H7-3 IF ( (LEAP7.--0 HND DAY7.= DAY7."= 1 :.u) A r .10 MONT H 7. = 2 ) TI IE M NON "I" !' "1 = ELBE UU IT 1 ,J ! 90 19100 IF (DAY7.=31 hND (NON ITT -4 OR NON l'H7 = rt OR NC.!MTH7,,'"9 OR MON IH7.= 1 1: ) THEN H7.MGNTH7. + .1 ELSE GOTO 19 t 40 19120 DAY7.= 1 19140 IF (DAY7.--32; THEN NON rH2=MGNTH2+1 ELBE AO 10 19170 19150 DAY7.= 1 191.60 IF (DAY7." 1 ) AND ; NON THY.-- 1 3 ) THEN VEAR7.=YEAR7.-M ELBE 1010 1 /O 19165 M0NTH7.= 1 191.70 DMYRT=STRT (MONTH7.) + " -"h-STR-T DAY 7.) -t-" -- " t-STR(YEAR7.) 19ISO RETURN CCR 000019001 rO W 0000 ,.0010 fc0020 20030 0040 30050 20060 20070 ' ROUTINE TO COUNT NUMOEE ' TT'-TIMET SEC~VAL(MID$(T,7,2)) M I N=V AL (MID-f ( T-f , 4,2) ) HRS-=V AL (MI Df ( TT , 1,2) ) TIMER=SEC+60* MIN+3a00*HRS RETURN : IF (93) iLAi;'Sl.D ,".JNCE II i UNICH i CCR 000019002 21 OUu 21010 21020 21030 21040 21050 2106 O 210 70 210S0 21070 2110 0 21110 21120 21130 21140 'NNUNCI0 TOR , 'iLnr'OJT'L- I fl_" BOUT 1 ":0 ON D \T , >! 1"!"^ '< [F DOUT1-1 P.ND nou 12 ;') IF DOUT1=1 AND ou lit:, .---1 II- DOUT1-1 AND DUU !'0>O 1F DOUT1=o AN l,1 DCJU i ;j-o. XF DQUT1 =--'> AND DOU 'LL' i. IF DOUT1"0 AND DOU 1" 2 ' IF DOUT 1 1 ; DOU !' 2 = X PR X NT L 1 , D0UTT FOR L==1 TO 20 3 MELT ; LINE X N P U T !+ 1 , P E 0 P GOSUB 17000 RETURN i !ir /_il.l C MG. AND AND AND :-! ,'|l) , if ID VND AND' iXNl) DL'LJ ! r,0U I Dum 1'X.ilJT OULU DOUT DUU 1 uUU 1 ' DELAY 20 (94) THEN THEN mpri THEN TH'-:n THEN 1 HEN ! HEN DLJ'J rT=--" .'IF 1 O'' 1 O'l1 5.50 x x" L |-1 T t 1 DOU XT " 0 1 F LOOlUO :oi ;X" '-OH FT ( 1 3) L'UlJT T -11 _) i i-' J. 001 00 TO 3X X '' 4-1 ,HRT- 1 1 -t x OGU T::!: > 1F 10011"...' ;o!".'YX" i-'JHRT C 1 -u < iy. 11 l l/Ui ' j 1 i- _ _ 11 ! .IF' 1 0 0 !l A 0 306XX " ->-LHf-,r ' 1 Jx) DOU '!':1-'1 ' 1- 1OO100 ;o\:x.<" f-UHRT (1 3) DUU 1 T" '1 .* i 1 UU 1 t.H..' DC A XX1' h-L'HR-T t 1 1 D'i IU 12-=" .3 I-' 100 1.00 :\ry/x X " + 0! !RT (1 3) N X LI- X LELUNjJU CCR 000019003 ) A A AINDATA$(26) AINREADS AINRESPS AIR(3) AIRB(3) APPENDIX 2 ALPHABETICAL LISTING OF VARIABLE NAMES IN "FIXEDPT.BAS" (95) Enthalpy function dummy variable Analog input data string. GC Analog input request command Analog input response from Burr-Brown O2 to each OXY reactor (raw data, volts) O2 to each OXY reactor (Lb/Hr.) B BIN(16) DISCRETE INPUT DATA ARRAY C CAR171S CAR401S CAR904S CHS CONFIGS CYC(3) CAR-171 status. CAR-401 status CAR-904 status. Hexadecimal data bit identifier Burr-Brown configuration command. Cycles in steam drums in OXY. CCR 000019004 D DAT(26) DAY% DAYAVG (3,10) DEC DIFFTIME DINREQS DMYR$ D0UT$ D0UT1 D0UT2 D0UT3 DP (3) DR0P(3) E ERRNUM$ ETMH ETMHR(4) F FLAG FLAG171%(10) FLAG401%(10) FLAG904%(10) (96) Analog input data array, volts current day of month Average VCM concentration past 24 hrs., ppm. Decimal value of hex data from Burr-Brown Time elapsed since last GC scan, sec Discrete input data request command Current date in Day/Month/Year format Discrete output set command HI VCM concentration alarm flag. VCM leak alarm flag HI OXY Flammability alarm flag OXY reactor pressure drops (input), psi Reduced OXY reactor pressure drops, psi. Burr-Brown error number identifier Total ethylene to OXY, LBMOLE/Hr. Ethlyene to R-301, from OXY reactors, LBMOLE/HR Error identification flag CAR-171 data processing flag CAR-401 data processing flag. CAR-904 data processing flag CCR 000019005 (97) FNENTH1 FNENTH2 FNENTH3 FNENTH4 FNENTH5 G GAINSET$ GCDAT(3,10) GSET1 GSET2 GSET3 H HCB(3) HCL(3) HCMHR(3) HD$ HIC0UNT%(3, 10) HIDATA(3, 10) HIGH%(3, 10) HOUR HREAC HRS HTVAP Enthalpy function, ethylene Enthalpy function, HCL Enthalpy function. Oxygen Enthalpy function, EDC Enthalpy function, water Analog data gain set command GC Data array, data in PPM VCM GC status change flag. GC status change flag. GC status change flag. HCL out of each OXY reactor, LBMOLE/Hr. HCL to each OXY reactor, Volts HCL to each OXY reactor, LBMOLE/Hr. Hexadecimal Data String Variable Number of times 10 ppm VCM per GC point, last 24 hours Highest VCM Cone, per GC point, last 24 hrs, ppm Flag to indicate Hi VCM Cone, on GC scan Current Hour Change Indicator Oxy Reaction Heat of Reaction, BTU/LBMOLE Current Hour of Day, Hr. Heat of Vaporization of Water, BTU/Lb. CCR 000019006 I I ID I FLAG (3,10) II 11 12 13 14 16 17 19 J1 J3 J4 J5 J6 K K K0UNT1 K0UNT2 K0UNT3 (98) Loop Index Variable Previous GC Stream ID Leak Detection GC Hi VCM Flag Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Loop Index Variable Number of CAR-171GC Scans Per Day Number of CAR-401GC Scans Per Day Number of CAR-904GC Scans Per Day CCR 000019007 (99) L L LEAKAREA LEAKFLAG(IO) LEAKS (14) LEAKTOT LEAP% LKAREA(50) LKTIME$ (50) LOGDAT$ LOGSET M MIN MONTH% MULT 0 OLDCOUNT%(3,10) OLDHOUR 0LDLEAK(14) OLDTIME OLD! 71% 0LD401% 0LD904% 02(3) Hexadecimal Data String Length Area in which a Leak has Occurred Process Area Leak Detection Flag Cumulative Leaks in Each Area, Current Hour Total Number of Leaks, Current Day Leap Year Indicator Array to Keep Track of Areas Which had Leaks Time Leaks Occurred for Leaks in LKAREA(50) Date of Data for Daily Report Daily Log Printout Flag. Current Minute of Hour, Min. Current Month of Year Multiplier for Conversion of Hex to Decimal Data Cumulative 10 ppm per Point Through Last Hour Last Hour Cumulative Leaks per Point Through Last Hour Time at Beginning of Each Executive Loop Stream ID for CAR-171 Previous Pass. Steam ID for CAR-401 Previous Pass. Stream ID for CAR-904 Previous Pass. Oxygen to Oxy Reactors, LBMOLES/Hr. CCR 000019008 1) i p PFLM(4) Q Q QIN QTO QTR R RAT(3) REMAIN RESP$ RESPDIN$ RX(3) RY(3) S S SEC SET SID171% SID401% SID904% STLB(3) STM(3) SUM (100) Flammability into and out of Oxy Reactors, % Loop Index Variable Heat Content of Oxy Reactants, BTU Heat Content of Oxy Products, BTU Heat Content of Steam From Oxy, BTU Steam/Air Ratios From Oxy Remainder Variable in Binary to Decimal Routine Burr-Brown Responses Discrete input Response from Burr-Brown Calculated Denominator Function, Oxy D/P1s Calculated Numerator Function, Oxy D/P1s Loop Index Variable Current Second of Minute, SEC Oxy D/P Calculation Flag CAR-171 Stream ID CAR-401 Stream ID CAR-904 Stream ID Steam Flow from Oxy Steam Drums, Lbs./Hr. Steam Flow from Oxy Steam Drums (Raw Data, Volts) Summing variable in hexadecimal data conversion routine. CCR 000019009 T T(4) T$ TARSET$ TESTC0N$ TIME TIMES TIMER TRIES TTMIN(3) TZ V VALUE X X XETA XETB(3) XETBR XETZ XHTA XHTB(3) XHTZ XM X0B(3) (101) Oxy Reactor Inlet/Outlet Temperatures, C Current Time Turnaround Time Set Command for Burr-Brown String to Test for Burr-Brown Error Messages Time Function, Sec Current Time Number of Seconds Since Midnight, Sec Number of Tries to Establish Link w/Burr-Brown Inlet Flow to Each Oxy Reactor, LBMole/Hr. Oxy Reactor Outlet Temperature, C Value Corresponding to Each Hexadecimal Bit. Fraction of Ethylene Reacted in Each Reactor EDC Flow Out of Oxy, LBMole/Hr. EDC Flow From Each Reactor, LBMole/Hr. Fraction Impurities in Ethylene Feed EDC Out of Oxy, LbMole/Hr. Water Out of Oxy, LbMole/Hr. Water Flow From Each Reactor, LbMole/Hr. Water Flow From Previous Oxy Reactor, LbMole/Hr. Cumulative Ethylene Reacted, LbMole/Hr. Oxygen Out of Each Oxy Reactor, LbMole/Hr. 0o Y YEAR% Current Year (102) OCR 000019011 APPerOD^ 1b (103) CCR 000019012 APPENDIX 4 "MONITOR.BAT" (104) BATCH FILE COMMAND 1: BREAK ON 2: ECHO OFF 3: TIME 4: DATE 5: FIXEDPT 6: FAIL DESCRIPTION Allows CNTL-Break to stop execution of subsequent programs. Turns off screen "ECHO" of commands in "MONITOR.BAT". Allows current time to be set. Allows current date to be set. Runs "FIXEDPT" program. If "FIXEDPT" program stops execution, "FAIL" is run to alarm annunciator. CCR 000019013 APPENDIX 5 "AUTOEXEC.BAT." 005) BATCH FILE COMMAND 1: BREAK ON 2: ECHO OFF 3: C: 4: C: FIXEDPT1 5: C: FAIL DESCRIPTION Allows CNTL-Break to stop execution of subsequent programs. Turns off screen "ECHO" of command in "AUTOEXEC.BAT." Sets default disk drive to hard disk drive (Drive C:) Runs "FIXEDPT1" program on hard disk drive. If "FIXEDPT" program stops execution, "FAIL" is run to alarm annunciator. 000019014 CCR