Pelco-D Module

INTEGER CAM1_COMMANDS[][]=
{
{$FF,$01,$88,$88,$25,$35,$6B} // UP
,{$FF,$01,$88,$90,$25,$35,$73} // DOWN
,{$FF,$01,$88,$84,$35,$25,$67} // LEFT
,{$FF,$01,$88,$82,$35,$25,$65} // RIGHT
,{$FF,$01,$88,$C0,$25,$00,$6E} // TELE Wide
,{$FF,$01,$88,$A0,$25,$00,$4E} // TELE Zoom
,{$FF,$01,$00,$00,$00,$00,$01} // STOP
}
BUTTON_EVENT[dvTP,46] // UP
BUTTON_EVENT[dvTP,47] // DOWN
BUTTON_EVENT[dvTP,48] // LEFT
BUTTON_EVENT[dvTP,49] // RIGHT
BUTTON_EVENT[dvTP,50] // ENTER
BUTTON_EVENT[dvTP,51] // DISPLAY
BUTTON_EVENT[dvTP,52] // GUIDE
BUTTON_EVENT[dvTP,57] // SUBTITLE
{
PUSH:
{
nTP_NUM=GET_LAST(dvTP) // WHICH TP IS THIS?
SWITCH(nSOURCE[nTP_NUM])
{

CASE 271: // Camera
{
IF( BUTTON.INPUT.CHANNEL=50 OR // tele wide and tele zoom need a stop to make press and hold work
BUTTON.INPUT.CHANNEL=51)
{
SEND_STRING dvEquipPelco,"CAM1_COMMANDS[BUTTON.INPUT.CHANNEL-45]"
SEND_STRING dvEquipPelco,"CAM1_COMMANDS[7]"
}
else SEND_STRING dvEquipPelco,"CAM1_COMMANDS[BUTTON.INPUT.CHANNEL-45]"
}
}
}
HOLD[2,REPEAT]:
{
SWITCH(nSOURCE[nTP_NUM])
{
CASE 271:
{
IF( BUTTON.INPUT.CHANNEL=50 OR // tele wide and tele zoom need a stop to make press and hold work
BUTTON.INPUT.CHANNEL=51)
{
SEND_STRING dvEquipPelco,"CAM1_COMMANDS[BUTTON.INPUT.CHANNEL-45]"
SEND_STRING dvEquipPelco,"CAM1_COMMANDS[7]"
}
else SEND_STRING dvEquipPelco,"CAM1_COMMANDS[BUTTON.INPUT.CHANNEL-45]"
}
}
}
RELEASE:
{
SWITCH(nSOURCE[nTP_NUM])
{
CASE 271:
{
SEND_STRING dvEquipPelco,"CAM1_COMMANDS[7]"
}
}
}
}
}

BUTTON_EVENT[TP2,70] //UP
{
	PUSH:
	{
		HOLDTIME=20
		PELCO_SEND($00,$08,$00,$14)
	}
	HOLD [1,REPEAT]:
	{
		HOLDTIME=HOLDTIME+2
		IF (HOLDTIME<=63)
			PELCO_SEND($00,$08,$00,HOLDTIME)
		ELSE
			PELCO_SEND($00,$08,$00,$3F)
	}
	RELEASE:
	{
		PELCO_SEND($00,$00,$00,$00)
	}
}