PROGRAM_NAME='VMI01,HQ AMC DOX,Master,209074,Rev0,BA' (*{{PS_SOURCE_INFO(PROGRAM STATS) *) (***********************************************************) (* FILE CREATED ON: 11/17/2000 AT: 14:16:59 *) (***********************************************************) (* FILE_LAST_MODIFIED_ON: 06/04/2002 AT: 10:31:29 *) (***********************************************************) (* ORPHAN_FILE_PLATFORM: 0 *) (***********************************************************) (***********************************************************) (*}}PS_SOURCE_INFO *) (***********************************************************) (***********************************************************) (* System Type : Axcent-3 *) (***********************************************************) (***********************************************************) (* DEVICE NUMBER DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_DEVICE (* Axcent-3 *) SWT_1 = 1 (* 232#1: Kramer VP-23 *) (* 9600,N,8,1 (702) *) SWT_2 = 2 (* 232#2: Kramer VP-23 *) (* 9600,N,8,1 (702) *) (* Panels & Receivers *) RADIO = 128 (* 418 MHz: TXC-32+ @ RC8 *) (***********************************************************) (* CONSTANT DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_CONSTANT (* Kramer VP-23 Switcher *) SWT_LVL_SVID = 2 SWT_LVL_VGA = 3 (***********************************************************) (* VARIABLE DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_VARIABLE (***********************************************************) (* LATCHING DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_LATCHING (***********************************************************) (* MUTUALLY EXCLUSIVE DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_MUTUALLY_EXCLUSIVE (***********************************************************) (* SUBROUTINE DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_CALL 'SWT Kramer VP23' (DEV,INP,LEV) { IF ((INP <= 7) AND (LEV <= 3)) SEND_STRING DEV,"$01,($80+INP),($80+LEV),$81" } (***********************************************************) (* STARTUP CODE GOES BELOW *) (***********************************************************) DEFINE_START (* Initialize Devices *) SEND_COMMAND SWT_1, 'SET BAUD 9600,N,8,1' SEND_COMMAND SWT_2, 'SET BAUD 9600,N,8,1' (***********************************************************) (* THE ACTUAL PROGRAM GOES BELOW *) (***********************************************************) DEFINE_PROGRAM PUSH[RADIO,129] (* PC 1 *) { CALL 'SWT Kramer VP23' (SWT_2,1,SWT_LVL_VGA) } PUSH[RADIO,137] (* PC 2 *) { CALL 'SWT Kramer VP23' (SWT_2,2,SWT_LVL_VGA) } PUSH[RADIO,161] (* PC 3 *) { CALL 'SWT Kramer VP23' (SWT_2,3,SWT_LVL_VGA) } PUSH[RADIO,130] (* Guest PC *) { CALL 'SWT Kramer VP23' (SWT_2,4,SWT_LVL_VGA) } (*** VTC ***) PUSH[RADIO,147] { CALL 'SWT Kramer VP23' (SWT_1,1,SWT_LVL_VGA) } (***********************************************************) (* END OF PROGRAM *) (* DO NOT PUT ANY CODE BELOW THIS COMMENT *) (***********************************************************)