Subversion Repositories Kolibri OS

Rev

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

Rev 6647 Rev 6755
Line 58... Line 58...
58 
    END
 58 
    END
59 
  END
 59 
  END
60 
  RETURN Res
 60 
  RETURN Res
61 
END strncmp;
 61 
END strncmp;
Line 62... Line 62...
62 
 
 62 
 
63 
PROCEDURE [stdcall] sysfunc1(arg1: INTEGER): INTEGER;
 63 
PROCEDURE [stdcall] sysfunc1*(arg1: INTEGER): INTEGER;
64 
BEGIN
 64 
BEGIN
65 
  sys.CODE("8B4508");           (* mov     eax, [ebp + 08h] *)
 65 
  sys.CODE("8B4508");           (* mov     eax, [ebp + 08h] *)
66 
  sys.CODE("CD40");             (* int     40h              *)
 66 
  sys.CODE("CD40");             (* int     40h              *)
67 
  sys.CODE("C9");               (* leave                    *)
 67 
  sys.CODE("C9");               (* leave                    *)
68 
  sys.CODE("C20400");           (* ret     04h              *)
 68 
  sys.CODE("C20400");           (* ret     04h              *)
69 
  RETURN 0
 69 
  RETURN 0
Line 70... Line 70...
70 
END sysfunc1;
 70 
END sysfunc1;
71 
 
 71 
 
72 
PROCEDURE [stdcall] sysfunc2(arg1, arg2: INTEGER): INTEGER;
 72 
PROCEDURE [stdcall] sysfunc2*(arg1, arg2: INTEGER): INTEGER;
73 
BEGIN
 73 
BEGIN
74 
  sys.CODE("53");               (* push    ebx              *)
 74 
  sys.CODE("53");               (* push    ebx              *)
75 
  sys.CODE("8B4508");           (* mov     eax, [ebp + 08h] *)
 75 
  sys.CODE("8B4508");           (* mov     eax, [ebp + 08h] *)
Line 79... Line 79...
79 
  sys.CODE("C9");               (* leave                    *)
 79 
  sys.CODE("C9");               (* leave                    *)
80 
  sys.CODE("C20800");           (* ret     08h              *)
 80 
  sys.CODE("C20800");           (* ret     08h              *)
81 
  RETURN 0
 81 
  RETURN 0
82 
END sysfunc2;
 82 
END sysfunc2;
Line 83... Line 83...
83 
 
 83 
 
84 
PROCEDURE [stdcall] sysfunc3(arg1, arg2, arg3: INTEGER): INTEGER;
 84 
PROCEDURE [stdcall] sysfunc3*(arg1, arg2, arg3: INTEGER): INTEGER;
85 
BEGIN
 85 
BEGIN
86 
  sys.CODE("53");               (* push    ebx              *)
 86 
  sys.CODE("53");               (* push    ebx              *)
87 
  sys.CODE("8B4508");           (* mov     eax, [ebp + 08h] *)
 87 
  sys.CODE("8B4508");           (* mov     eax, [ebp + 08h] *)
88 
  sys.CODE("8B5D0C");           (* mov     ebx, [ebp + 0Ch] *)
 88 
  sys.CODE("8B5D0C");           (* mov     ebx, [ebp + 0Ch] *)