DATA  &h5,  &h1                ' USAGE_PAGE (Generic Desktop) 
 DATA  &h9,  &h5                ' USAGE (Game Pad) 
 DATA &ha1,  &h1                ' COLLECTION (Application) 
 DATA  &h9,  &h1                '   USAGE (Pointer) 
 DATA &ha1,  &h0                '   COLLECTION (Physical) 
 DATA  &h9, &h30                '     USAGE (X) 
 DATA  &h9, &h31                '     USAGE (Y) 
 DATA &h15, &hff                '     LOGICAL_MINIMUM (-1) 
 DATA &h25,  &h1                '     LOGICAL_MAXIMUM (1) 
 DATA &h95,  &h2                '     REPORT_COUNT (2) 
 DATA &h75,  &h2                '     REPORT_SIZE (2) 
 DATA &h81,  &h2                '     INPUT (Data,Var,Abs) 
 DATA &hc0                      '   END_COLLECTION 
 DATA &h95,  &h4                '   REPORT_COUNT (4) 
 DATA &h75,  &h1                '   REPORT_SIZE (1) 
 DATA &h81,  &h3                '   INPUT (Cnst,Var,Abs) 
 DATA  &h5,  &h9                '   USAGE_PAGE (Button) 
 DATA &h19,  &h1                '   USAGE_MINIMUM (Button 1) 
 DATA &h29,  &h8                '   USAGE_MAXIMUM (Button 8) 
 DATA &h25,  &h1                '   LOGICAL_MAXIMUM (1) 
 DATA &h15,  &h0                '   LOGICAL_MINIMUM (0) 
 DATA &h95,  &h8                '   REPORT_COUNT (8) 
 DATA &h75,  &h1                '   REPORT_SIZE (1) 
 DATA &h81,  &h2                '   INPUT (Data,Var,Abs) 
 DATA &hc0                         ' END_COLLECTION

 
 #USB_PID          = $33 
 #USB_VID          = $4D8 
  
 #PK_END_OF_BUFFER = $AD 
 #PK_PACKET_SIZE   =  65 
 #PK_FIRMWARE_VERSION = $76 
  
 Procedure PK_VddOn(Handle) ; Включить питание 
  Protected Dim OutBuffer.a(#PK_PACKET_SIZE+2) 
  FillMemory(@OutBuffer()+1, #PK_PACKET_SIZE, #PK_END_OF_BUFFER, #PB_Byte) 
  OutBuffer(0)=0 
  OutBuffer(1)=$A6 ; EXECUTE_SCRIPT 
  OutBuffer(2)=2 
  OutBuffer(3)=$FC ; _VDD_GND_OFF 
  OutBuffer(4)=$FF ; _VDD_ON 
 ProcedureReturn HID_Lib_WriteDevice(Handle, @OutBuffer(), #PK_PACKET_SIZE) 
 EndProcedure 
  
 Procedure PK_SetVDDVoltage(Handle, voltage.f, threshold.f) ; Установка напряжения 
  Protected Dim OutBuffer.a(#PK_PACKET_SIZE+2) 
  FillMemory(@OutBuffer()+1, #PK_PACKET_SIZE, #PK_END_OF_BUFFER, #PB_Byte) 
  If voltage < 2.5 
    voltage = 2.5 
  EndIf 
   
  ccpValue.u = voltage * 32 + 10.5 
  ccpValue << 6 
   
  vFault.a=((threshold * voltage) / 5) * 255 
  If vFault > 210 
    vFault = 210 
  EndIf 
   
  OutBuffer(0)= 0 
  OutBuffer(1)= $A0 ; SETVDD 
  OutBuffer(2)= (ccpValue & $FF) 
  OutBuffer(3)= (ccpValue >> 8) 
  OutBuffer(4)= vFault 
 ProcedureReturn HID_Lib_WriteDevice(Handle, @OutBuffer(), #PK_PACKET_SIZE) 
 EndProcedure 
  
 Procedure PK_SetMCLRTemp(Handle, State.a) ; Управление напряжением на MCLR: 1 - есть напряжение; 0 - нет 
  Protected Dim OutBuffer.a(#PK_PACKET_SIZE+2) 
  FillMemory(@OutBuffer()+1, #PK_PACKET_SIZE, #PK_END_OF_BUFFER, #PB_Byte) 
  OutBuffer(0)=0 
  OutBuffer(1)=$A6 ; EXECUTE_SCRIPT 
  OutBuffer(2)=1   ; Длина скрипта 
  If State=1 
    OutBuffer(3)=$F7 ; _MCLR_GND_ON 
  Else 
    OutBuffer(3)=$F6 ; _MCLR_GND_OFF 
  EndIf 
 ProcedureReturn HID_Lib_WriteDevice(Handle, @OutBuffer(), #PK_PACKET_SIZE) 
 EndProcedure 
  
 Handle=HID_Lib_OpenDevice(#USB_PID, #USB_VID) 
 If Handle 
  PK_SetMCLRTemp(Handle, 0) 
  PK_SetVDDVoltage(Handle, 5, 1)  
  PK_VddOn(Handle) 
  HID_Lib_CloseDevice(Handle) 
 Else 
  MessageRequester("", "Нет связи с PicKit2!", #MB_OK|#MB_ICONWARNING) 
 EndIf