PROGRAM_NAME='PEAVEY, MEDIAMATRIX, RS-232, BASIC, 1-96, BA' (* DATE:05/20/99 TIME:16:17:50 *) (***********************************************************) (* The following code block is provided as a guide to *) (* programming the device(s) listed above. This is a *) (* sample only, and will most likely require modification *) (* to be integrated into a master program. *) (* *) (* Device-specific protocols should be obtained directly *) (* from the equipment manufacturer to ensure compliance *) (* with the most current versions. Within the limits *) (* imposed by any non-disclosure agreements, AMX will *) (* provide protocols upon request. *) (* *) (* If further programming assistance is required, please *) (* contact your AMX customer support team. *) (* *) (***********************************************************) (* GENERAL FUNCTION LIST - *) (* SWITCHING (2x1, 4x1, & 8x1), VOLUME *) (***********************************************************) (* DEVICE NUMBER DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_DEVICE AUDIO = 1 (* AXC-232 *) PNL = 128 (* AMX PANEL *) (***********************************************************) (* CONSTANT DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_CONSTANT (***********************************************************) (* VARIABLE DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_VARIABLE (* USER ID'S (ADD MORE AS NEEDED) *) PGM_LEFT_VOLUME_ID[3] PGM_RIGHT_VOLUME_ID[3] MIC_VOLUME_ID[3] ROUTER_2_X_1[3] ROUTER_4_X_1[3] ROUTER_8_X_1[3] (***********************************************************) (* LATCHING DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_LATCHING (***********************************************************) (* MUTUALLY EXCLUSIVE DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_MUTUALLY_EXCLUSIVE (***********************************************************) (* SUBROUTINE DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_CALL 'SET VALUE ON MEDIAMATRIX' (CARD,USERID[3],VALUE) { SEND_STRING CARD,"'S',USERID,ITOHEX(VALUE/16),ITOHEX(VALUE%16),'.'" } (***********************************************************) (* STARTUP CODE GOES BELOW *) (***********************************************************) DEFINE_START (* USER ID'S *) PGM_LEFT_VOLUME_ID = '001' PGM_RIGHT_VOLUME_ID = '002' MIC_VOLUME_ID = '003' ROUTER_2_X_1 = '010' ROUTER_4_X_1 = '011' ROUTER_8_X_1 = '012' (***********************************************************) (* THE ACTUAL PROGRAM GOES BELOW *) (***********************************************************) DEFINE_PROGRAM (*** VOLUME ***) PUSH[PNL,11] (* SET PROGRAM LEFT TO MID LEVEL *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,PGM_LEFT_VOLUME_ID,128) (* 50% OF 256 = 128 *) PUSH[PNL,12] (* SET PROGRAM RIGHT TO 0% *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,PGM_RIGHT_VOLUME_ID,0) PUSH[PNL,13] (* SET MIC VOLUME TO 75% *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,MIC_VOLUME_ID,192) (* 75% OF 256 = 192 *) (*** SWITCHING ***) PUSH[PNL,31] (* 2X1: INPUT 1 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$BF) PUSH[PNL,32] (* 2X1: INPUT 2 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$FF) PUSH[PNL,33] (* 2X1: OFF *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$3F) PUSH[PNL,41] (* 4X1: INPUT 1 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$5F) PUSH[PNL,42] (* 4X1: INPUT 2 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$9F) PUSH[PNL,43] (* 4X1: INPUT 3 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$3F) PUSH[PNL,44] (* 4X1: INPUT 4 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$FF) PUSH[PNL,45] (* 4X1: OFF *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$1F) PUSH[PNL,51] (* 8X1: INPUT 1 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$2F) PUSH[PNL,52] (* 8X1: INPUT 2 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$4F) PUSH[PNL,53] (* 8X1: INPUT 3 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$6F) PUSH[PNL,54] (* 8X1: INPUT 4 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$8F) PUSH[PNL,55] (* 8X1: INPUT 5 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$AF) PUSH[PNL,56] (* 8X1: INPUT 6 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$CF) PUSH[PNL,57] (* 8X1: INPUT 7 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$EF) PUSH[PNL,58] (* 8X1: INPUT 8 *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$FF) PUSH[PNL,59] (* 8X1: OFF *) CALL 'SET VALUE ON MEDIAMATRIX' (AUDIO,ROUTER_8_X_1,$0F) (***********************************************************) (* END OF PROGRAM *) (* DO NOT PUT ANY CODE BELOW THIS COMMENT *) (***********************************************************)