Subversion Repositories Kolibri OS

Rev

Rev 9630 | Rev 9708 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9630 Rev 9648
Line 321... Line 321...
321 
PROCEDURE GetControlKeys* (): SET;
 321 
PROCEDURE GetControlKeys* (): SET;
322 
    RETURN BITS(KOSAPI.sysfunc2(66, 3))
 322 
    RETURN BITS(KOSAPI.sysfunc2(66, 3))
323 
END GetControlKeys;
 323 
END GetControlKeys;
Line 324... Line -...
324 
 
 - 
 
325 
 
 - 
 
326 
PROCEDURE SetIPC* (buffer: ARRAY OF INTEGER);
 - 
 
327 
BEGIN
 - 
 
328 
    KOSAPI.sysfunc4(60, 1, SYSTEM.ADR(buffer[0]), LEN(buffer)*SYSTEM.SIZE(INTEGER))
 - 
 
329 
END SetIPC;
 - 
 
330 
 
 - 
 
331 
 
 - 
 
332 
PROCEDURE SendIPC* (tid: INTEGER; msg: ARRAY OF INTEGER);
 - 
 
333 
BEGIN
 - 
 
334 
	KOSAPI.sysfunc5(60, 2, tid, SYSTEM.ADR(msg[0]), SYSTEM.SIZE(INTEGER)*LEN(msg))
 - 
 
335 
END SendIPC;
 - 
 
336 
 
 324 
 
337 
 
 325 
 
338 
PROCEDURE GetSystemColors*;
 326 
PROCEDURE GetSystemColors*;
339 
BEGIN
 327 
BEGIN