Fscs_Interface - Andover Controls Infinity Manual

Technical Manuals Online! - http://www.tech-man.com

FSCS_Interface

Type: Program
FlowType: Looping
Description: Controls the RS-232 interface between the CX9200
and the FSCS.
Code:
Numeric Result, Timeout
Begin_Prog:
Timeout = 4
If COMM1 Mode = Raw then Goto Send_Request Else Goto ~
Open_Comm1
Open_Comm1:
Result = Open(COMM1)
Test_Open:
If Result = Success then Goto Send_Request Else Goto ~
Found_Problem
Send_Request:
Print "(SPR)(?SBK1)"; to COMM1
Goto Wait_For_Print
Wait_For_Print:
If COMM1 PrintDone then Goto Read_Comm1
If TS > Timeout then Goto Found_Problem
Read_Comm1:
Result = read(COMM1, 100, InBuffer, 500, ")")
Test_Read:
If COMM1 TimedOut then Goto Found_Problem
If Result = Success then Goto Decode_Data Else Goto
Found_Problem
Decode_Data:
DecodeSwitches()
Goto Output_Lamp
Output_Lamp:
Print OutputLampString(); to COMM1
Goto Wait_For_Output
Wait_For_Output:
If COMM1 PrintDone then
Status2 = Off
5-19
Smoke Control Programs
Infinity Smoke Control Guide
TOC