ADLINK Technology RTV Series User Manual page 120

var
Result: SmallInt;
PortNo: SmallInt;
Logic: SmallInt;
PortNo := 0;
Logic := 0;
Result := AngeloRTV_Set_GPIO_Int_Logic (PortNo,
Logic);
AngeloRTV_Write_EEPROM
AngeloRTV_Read_EEPROM
Var
Result : SmallInt;
PortNo : SmallInt;
Offset: Byte;
Value: Byte;
PortNo:=0;
Offset:=0;
Value:=128;
Result := AngeloRTV_Write_EEPROM (PortNo, Offset,
Value);
Result := AngeloRTV_Read_EEPROM (PortNo, Offset,
Value);
AngeloRTV_Set_LED_Sts –
var
Result: Smallint;
PortNo: Smallint;
LEDStatus: Byte;
PortNo := 0;
LEDStatus := 1;
Result := AngeloRTV_Set_LED_Sts (PortNo,
LEDStatus);
110 Function Library