IPC@CHIP Documentation - SC12 @CHIP-RTOS V1.10

Interrupt 0xAC service 0x20: API_REGISTERCALLBACK_PASCAL, Pascal user callback
Parameters
AH
BX
CX
ES:DI
Registers a user callback function written in Pascal for events occurring on a TCP socket.
0x20 (= API_REGISTERCALLBACK_PASCAL)
Socket descriptor
Event flag mask (see below)
Pointer to callback function (see below)
Return Value
Comments
DX = 0 success
DX != 0 AX: contains error code
The number of Pascal TCP callback functions is limited to 10.
The first action required in your callback function is to read the pointer to the PacCallBack record passed in
registers ES:DI. This can be accomplished by implementing the callback function as follows (Borland Pascal):
procedure socketCallBackFunc; interrupt;
var
ESReg : Integer;
DIReg : Integer;
CBParamPtr : CallBackParamPtr;
begin
(*********************************)
(* Required to get the Parameter *)
asm
mov ax, es
mov ESReg, ax
mov ax, di
mov DIReg, ax
end;
(*********************************)
end;
[... your code ...]
Before closing a socket, you should remove the callback function. This is done by calling this API function with
a null pointer in ES:DI and value 0 in register CX.
The event flags are defined as follows:
const
CB_CONNECT_COMPLT = $0001;
CB_ACCEPT = $0002;
CB_RECV = $0004;
CB_SEND_COMPLT = $0010;
CB_REMOTE_CLOSE = $0020;
Page 122 / 400