2006-01-31 Leif Ekblad <leif@rdos.net>

        * configure.host: RDOS support added
        * libc/include/sys/config.h: Ditto.
        * libc/sys/rdos/Makefile.am, libc/sys/rdos/Makefile.in: New files.
        * libc/sys/rdos/aclocal.m4, libc/sys/rdos/chown.c: Ditto.
        * libc/sys/rdos/close.c, libc/sys/rdos/config.h: Ditto.
        * libc/sys/rdos/configure, libc/sys/rdos/configure.in: Ditto.
        * libc/sys/rdos/crt0.S, libc/sys/rdos/execve.c: Ditto.
        * libc/sys/rdos/fork.c, libc/sys/rdos/fstat.c: Ditto.
        * libc/sys/rdos/getenv.c, libc/sys/rdos/getpid.c: Ditto.
        * libc/sys/rdos/gettod.c, libc/sys/rdos/isatty.c: Ditto.
        * libc/sys/rdos/kill.c, libc/sys/rdos/link.c: Ditto.
        * libc/sys/rdos/lseek.c, libc/sys/rdos/open.c: Ditto.
        * libc/sys/rdos/rdos.S, libc/sys/rdos/rdos.h: Ditto.
        * libc/sys/rdos/rdoshelp.c, libc/sys/rdos/read.c: Ditto.
        * libc/sys/rdos/readlink.c, libc/sys/rdos/sbrk.c: Ditto.
        * libc/sys/rdos/stat.c, libc/sys/rdos/symlink.c: Ditto.
        * libc/sys/rdos/times.c, libc/sys/rdos/unlink.c: Ditto.
        * libc/sys/rdos/user.def, libc/sys/rdos/wait.c: Ditto.
        * libc/sys/rdos/write.c: Ditto.

1 files changed, 7528 insertions, 0 deletions

diff --git a/newlib/libc/sys/rdos/rdos.S b/newlib/libc/sys/rdos/rdos.S
new file mode 100644
index 000000000..d99be7345
--- /dev/null
+++ b/newlib/libc/sys/rdos/rdos.S
@@ -0,0 +1,7528 @@
+/*#######################################################################
+# RDOS operating system
+# Copyright (C) 1988-2006, Leif Ekblad
+#
+# This library is free software; you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published
+# by the Free Software Foundation; either version 2.1 of the License, or
+# (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 
+#
+# The author of this program may be contacted at leif@rdos.net
+#
+# rdos.S                                                                
+# GCC based interface to RDOS kernel                                    
+#
+##########################################################################*/
+
+#include "user.def"
+
+    .macro UserGate nr 
+    .byte 0x9A
+    .long \nr
+    .word 2
+    .endm 
+
+/*##########################################################################
+#
+#   Name       : RdosSwapShort
+#
+#   Purpose....: Byte reverse a short int
+#
+#   Returns....: Result
+#
+##########################################################################*/
+
+    .global RdosSwapShort
+    
+RdosSwapShort:
+	pushl %ebp
+	movl %esp,%ebp
+	movw 8(%ebp),%ax
+	xchgb %ah,%al
+	leave
+	ret
+
+
+/*##########################################################################
+#
+#   Name       : RdosSwapLong
+#
+#   Purpose....: Byte reverse a long int
+#
+#   Returns....: Result
+#
+##########################################################################*/
+
+    .global RdosSwapLong
+    
+RdosSwapLong:
+	pushl %ebp
+	movl %esp,%ebp
+	movl 8(%ebp),%eax
+	xchgb %ah,%al
+	roll $16,%eax
+	xchgb %ah,%al
+	leave
+	ret
+
+
+/*##########################################################################
+#
+#   Name       : LocalToNetworkLong
+#
+#   Purpose....: Convert a local long to network format
+#
+#   Returns....: Network format
+#
+##########################################################################*/
+
+    .global LocalToNetworkLong
+    
+LocalToNetworkLong:
+	pushl %ebp
+	movl %esp,%ebp
+	movl 8(%ebp),%eax
+	xchgb %ah,%al
+	roll $16,%eax
+	xchgb %ah,%al
+	leave
+	ret
+
+/*##########################################################################
+#
+#   Name       : NetworkToLocalLong
+#
+#   Purpose....: Convert a network long to local format
+#
+#   Returns....: Local format
+#
+##########################################################################*/
+
+    .global NetworkToLocalLong
+    
+NetworkToLocalLong:
+	pushl %ebp
+	movl %esp,%ebp
+	movl 8(%ebp),%eax
+	xchgb %ah,%al
+	roll $16,%eax
+	xchgb %ah,%al
+	leave
+	ret
+
+/*##########################################################################
+#
+#   Name       : RdosGetThreadHandle
+#
+#   Purpose....: Get current thread handle
+#
+#   Returns....: Thread ID
+#
+##########################################################################*/
+
+    .global RdosGetThreadHandle
+    
+RdosGetThreadHandle:
+	pushl %ebp
+	movl %esp,%ebp
+	UserGate get_thread_nr
+	movzx %ax,%eax
+	leave
+	ret
+
+/*##########################################################################
+#
+#   Name       : RdosGetThreadState
+#
+#   Purpose....: Get thread state
+#
+#   Parameters.: Thread #
+#                State buffer
+#
+##########################################################################*/
+
+    .global RdosGetThreadState
+    
+RdosGetThreadState:
+	pushl %ebp
+	movl %esp,%ebp
+	push %edi
+
+	movl 8(%ebp),%eax
+	movl 12(%ebp),%edx
+	UserGate get_thread_state_nr
+	jc rgtsFail
+	
+    movl $1,%eax
+    jmp rgtsDone
+    
+rgtsFail:
+    xorl %eax,%eax
+
+rgtsDone:
+	popl %edi
+	leave
+	ret
+
+/*##########################################################################
+#
+#   Name       : RdosSuspendThread
+#
+#   Purpose....: Suspend thread
+#
+#   Parameters.: Thread #
+#
+##########################################################################*/
+
+    .global RdosSuspendThread
+    
+RdosSuspendThread:
+	pushl %ebp
+	movl %esp,%ebp
+
+	movl 8(%ebp),%eax
+	UserGate suspend_thread_nr
+	jc rsfFail
+
+    movl $1,%eax
+    jmp rsfDone
+    
+rsfFail:
+    xorl %eax,%eax
+
+rsfDone:
+    leave
+    ret
+    
+
+/*##########################################################################
+#
+#   Name       : RdosExec
+#
+#   Purpose....: Execute a program
+#
+#   Parameters.: Program
+#                Commandline
+#
+##########################################################################*/
+
+    .global RdosExec
+    
+RdosExec:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %esi
+	pushl %edi
+
+	movl 8(%ebp),%esi
+	movl 12(%ebp),%edi
+
+	UserGate load_exe_nr
+	UserGate get_exit_code_nr
+
+	popl %edi
+	popl %esi
+	leave
+	ret
+    
+/*##########################################################################
+#
+#   Name       : RdosSpawn
+#
+#   Purpose....: Create new process and run a program
+#
+#   Parameters.: Program
+#                Commandline
+#                StartDir
+#
+##########################################################################*/
+
+    .global RdosSpawn
+    
+RdosSpawn:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %fs
+	pushl %ebx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+
+    movw %ds,%dx
+    movw %dx,%fs
+    xorl %edx,%edx
+	movl 8(%ebp),%esi
+	movl 12(%ebp),%edi
+	movl 16(%ebp),%ebx
+	UserGate spawn_exe_nr
+	jc rsFail
+	
+    movzx %dx,%eax
+    jmp rsDone
+    
+rsFail:
+    xorl %eax,%eax
+
+rsDone:
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ebx
+	popw %fs
+	leave
+	ret
+    
+/*##########################################################################
+#
+#   Name       : RdosCpuReset
+#
+#   Purpose....: Cpu reset
+#
+##########################################################################*/
+
+    .global RdosCpuReset
+    
+RdosCpuReset:
+	pushl %ebp
+	movl %esp,%ebp
+	UserGate cpu_reset_nr
+	leave
+	ret
+    
+/*##########################################################################
+#
+#   Name       : RdosGetVersion
+#
+#   Purpose....: Get RDOS version
+#
+#   Parameters.: &major
+#                &minor
+#                &release
+#
+##########################################################################*/
+
+    .global RdosGetVersion
+    
+RdosGetVersion:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ecx
+	pushl %edx
+	pushl %edi
+
+	UserGate get_version_nr
+
+    movzx %dx,%edx
+	movl 8(%ebp),%edi
+	movl %edx,(%edi)
+
+    movzx %ax,%eax
+	movl 12(%ebp),%edi
+	movl %eax,(%edi)
+
+    movzx %cx,%eax
+	movl 16(%ebp),%edi
+	movl %eax,(%edi)
+
+	popl %edi
+	popl %edx
+	popl %ecx
+	popl %eax
+	leave
+	ret
+    
+/*##########################################################################
+#
+#   Name       : RdosAllocateMem
+#
+#   Purpose....: Allocate memory
+#
+#   Parameters.: Bytes to allocate
+#
+#   Returns....: Memory pointer
+#
+##########################################################################*/
+
+    .global RdosAllocateMem
+    
+RdosAllocateMem:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edx
+
+	movl 8(%ebp),%eax
+	UserGate allocate_app_mem_nr
+	movl %edx,%eax
+
+	popl %edx
+	leave
+	ret
+    
+/*##########################################################################
+#
+#   Name       : RdosFreeMem
+#
+#   Purpose....: Free memory
+#
+#   Parameters.: Memory pointer
+#
+##########################################################################*/
+
+    .global RdosFreeMem
+
+RdosFreeMem:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edx
+
+	movl 8(%ebp),%edx
+	UserGate free_app_mem_nr
+
+	popl %edx
+	leave
+	ret
+	    
+/*##########################################################################
+#
+#   Name       : RdosAppDebug
+#
+#   Purpose....: App debug
+#
+##########################################################################*/
+
+    .global RdosAppDebug
+    
+RdosAppDebug:
+	pushl %ebp
+	movl %esp,%ebp
+	UserGate app_debug_nr
+	leave
+	ret
+		    
+/*##########################################################################
+#
+#   Name       : RdosWaitMilli
+#
+#   Purpose....: Wait a number of milliseconds
+#
+#   Parameters.: Milliseconds to wait
+#
+##########################################################################*/
+
+    .global RdosWaitMilli
+    
+RdosWaitMilli:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+
+	movl 8(%ebp),%eax
+	UserGate wait_milli_nr
+
+	popl %eax
+	leave
+	ret
+			    
+/*##########################################################################
+#
+#   Name       : RdosCreateSection
+#
+#   Purpose....: Create section
+#
+#   Returns....: Section handle
+#
+##########################################################################*/
+
+    .global RdosCreateSection
+    
+RdosCreateSection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	
+	UserGate create_user_section_nr
+	movzx %bx,%eax
+
+	popl %ebx
+	leave
+	ret
+			    
+/*##########################################################################
+#
+#   Name       : RdosDeleteSection
+#
+#   Purpose....: Delete section
+#
+#   Parameters.: Section handle
+#
+##########################################################################*/
+
+    .global RdosDeleteSection
+    
+RdosDeleteSection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate delete_user_section_nr
+
+	popl %ebx
+	leave
+	ret
+				    
+/*##########################################################################
+#
+#   Name       : RdosEnterSection
+#
+#   Purpose....: Enter section
+#
+#   Parameters.: Section handle
+#
+##########################################################################*/
+
+    .global RdosEnterSection
+    
+RdosEnterSection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate enter_user_section_nr
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosLeaveSection
+#
+#   Purpose....: Leave section
+#
+#   Parameters.: Section handle
+#
+##########################################################################*/
+
+    .global RdosLeaveSection
+    
+RdosLeaveSection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate leave_user_section_nr
+
+	popl %ebx
+	leave
+	ret
+				    
+/*##########################################################################
+#
+#   Name       : RdosCreateWait
+#
+#   Purpose....: Create wait object
+#
+#   Returns....: Wait handle
+#
+##########################################################################*/
+
+    .global RdosCreateWait
+    
+RdosCreateWait:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	UserGate create_wait_nr
+	movzx %bx,%eax
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosCloseWait
+#
+#   Purpose....: Close wait
+#
+#   Parameters.: Wait handle
+#
+##########################################################################*/
+
+    .global RdosCloseWait
+    
+RdosCloseWait:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate close_wait_nr
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosCheckWait
+#
+#   Purpose....: Check wait state
+#
+#   Parameters.: Wait handle
+#
+#   Returns....: Signalled ID or 0
+#
+##########################################################################*/
+
+    .global RdosCheckWait
+    
+RdosCheckWait:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+
+	movw 8(%ebp),%bx
+	UserGate is_wait_idle_nr
+    movl %ecx,%eax
+
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosWaitForever
+#
+#   Purpose....: Wait forever
+#
+#   Parameters.: Wait handle
+#
+#   Returns....: Signalled ID or 0
+#
+##########################################################################*/
+
+    .global RdosWaitForever
+    
+RdosWaitForever:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+
+	movw 8(%ebp),%bx
+	UserGate wait_no_timeout_nr
+	jc rwfFail
+
+    movl %ecx,%eax
+    jmp rwfDone
+
+rwfFail:
+    xorl %eax,%eax
+
+rwfDone:
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosWaitTimeout
+#
+#   Purpose....: Wait with timeout
+#
+#   Parameters.: Wait handle
+#                Timeout in ms
+#
+#   Returns....: Signalled ID or 0
+#
+##########################################################################*/
+
+    .global RdosWaitTimeout
+    
+RdosWaitTimeout:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+
+	movl 12(%ebp),%eax
+	movl $1193,%edx
+	mull %edx
+	pushl %edx
+	pushl %eax
+    UserGate get_system_time_nr
+    popl %ebx
+    addl %ebx,%eax
+    popl %ebx
+    adcl %ebx,%edx
+	movw 8(%ebp),%bx
+	UserGate wait_timeout_nr
+	jc rwtFail
+
+    movl %ecx,%eax
+    jmp rwtDone
+
+rwtFail:
+    xorl %eax,%eax
+
+rwtDone:
+    popl %edx
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosStopWait
+#
+#   Purpose....: Stop wait
+#
+#   Parameters.: Wait handle
+#
+##########################################################################*/
+
+    .global RdosStopWait
+    
+RdosStopWait:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate stop_wait_nr
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosRemoveWait
+#
+#   Purpose....: Remove wait object from wait handle
+#
+#   Parameters.: Wait handle
+#                ID
+#
+##########################################################################*/
+
+    .global RdosRemoveWait
+    
+RdosRemoveWait:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%ecx
+	UserGate remove_wait_nr
+
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+				    
+/*##########################################################################
+#
+#   Name       : RdosCreateSignal
+#
+#   Purpose....: Create signal object
+#
+#   Returns....: Signal handle
+#
+##########################################################################*/
+
+    .global RdosCreateSignal
+    
+RdosCreateSignal:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	UserGate create_signal_nr
+	movzx %bx,%eax
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosResetSignal
+#
+#   Purpose....: Reset signal
+#
+#   Parameters.: Signal handle
+#
+##########################################################################*/
+
+    .global RdosResetSignal
+    
+RdosResetSignal:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate reset_signal_nr
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosIsSignalled
+#
+#   Purpose....: Check if signalled
+#
+#   Parameters.: Signal handle
+#
+#   Returns....: TRUE if signalled
+#
+##########################################################################*/
+
+    .global RdosIsSignalled
+    
+RdosIsSignalled:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate is_signalled_nr
+	jc risdFree
+
+    movl $1,%eax
+    jmp risdDone	
+
+risdFree:
+    xorl %eax,%eax
+
+risdDone:
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosSetSignal
+#
+#   Purpose....: Set signal
+#
+#   Parameters.: Signal handle
+#
+##########################################################################*/
+
+    .global RdosSetSignal
+    
+RdosSetSignal:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate set_signal_nr
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosFreeSignal
+#
+#   Purpose....: Free signal handle
+#
+#   Parameters.: Signal handle
+#
+##########################################################################*/
+
+    .global RdosFreeSignal
+    
+RdosFreeSignal:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate free_signal_nr
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosAddWaitForSignal
+#
+#   Purpose....: Add signal object to wait handle
+#
+#   Parameters.: Wait handle
+#                Signal handle
+#                ID
+#
+##########################################################################*/
+
+    .global RdosAddWaitForSignal
+    
+RdosAddWaitForSignal:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%ax
+	movl 16(%ebp),%ecx
+	UserGate add_wait_for_signal_nr
+
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosAddWaitForKeyboard
+#
+#   Purpose....: Add keyboard to wait handle
+#
+#   Parameters.: Wait handle
+#                ID
+#
+##########################################################################*/
+
+    .global RdosAddWaitForKeyboard
+    
+RdosAddWaitForKeyboard:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%ecx
+	UserGate add_wait_for_keyboard_nr
+
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosAddWaitForMouse
+#
+#   Purpose....: Add mouse to wait handle
+#
+#   Parameters.: Wait handle
+#                ID
+#
+##########################################################################*/
+
+    .global RdosAddWaitForMouse
+    
+RdosAddWaitForMouse:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%ecx
+	UserGate add_wait_for_mouse_nr
+
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosAddWaitForCom
+#
+#   Purpose....: Add com object to wait handle
+#
+#   Parameters.: Wait handle
+#                Com handle
+#                ID
+#
+##########################################################################*/
+
+    .global RdosAddWaitForCom
+    
+RdosAddWaitForCom:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%ax
+	movl 16(%ebp),%ecx
+	UserGate add_wait_for_com_nr
+
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosAddWaitForAdc
+#
+#   Purpose....: Add ADC object to wait handle
+#
+#   Parameters.: Wait handle
+#                Adc handle
+#                ID
+#
+##########################################################################*/
+
+    .global RdosAddWaitForAdc
+    
+RdosAddWaitForAdc:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%ax
+	movl 16(%ebp),%ecx
+	UserGate add_wait_for_adc_nr
+
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosSetTextMode
+#
+#   Purpose....: Set text mode
+#
+##########################################################################*/
+
+    .global RdosSetTextMode
+    
+RdosSetTextMode:
+	pushl %ebp
+	movl %esp,%ebp
+
+	movw $3,%ax
+    UserGate set_video_mode_nr
+
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosSetVideoMode
+#
+#   Purpose....: Set video mode
+#
+#   Parameters.: &xres
+#                &yres
+#                &linesize
+#                &LFB
+#
+#   Returns....: Bitmap handle
+#
+##########################################################################*/
+
+    .global RdosSetVideoMode
+    
+RdosSetVideoMode:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movw (%edi),%ax
+
+	movl 12(%ebp),%edi
+	movw (%edi),%cx
+
+	movl 16(%ebp),%edi
+	movw (%edi),%dx
+
+	UserGate get_video_mode_nr
+	jc set_video_fail
+
+    UserGate set_video_mode_nr
+    jc set_video_fail
+
+	pushl %edi
+	movl 8(%ebp),%edi
+	movzx %ax,%eax
+	movl %eax,(%edi)
+
+	movl 12(%ebp),%edi
+	movzx %cx,%ecx
+	movl %ecx,(%edi)
+
+	movl 16(%ebp),%edi
+	movzx %dx,%edx
+	movl %edx,(%edi)
+
+	movl 20(%ebp),%edi
+	movzx %si,%esi
+	movl %esi,(%edi)
+	popl %edi
+
+	movl 24(%ebp),%eax
+	movl %edi,(%eax)
+
+	movzx %bx,%eax
+	jmp set_video_done
+
+set_video_fail:
+	xorl %eax,%eax
+	movl 8(%ebp),%edi
+	movl %eax,(%edi)
+	movl 12(%ebp),%edi
+	movl %eax,(%edi)
+	movl 16(%ebp),%edi
+	movl %eax,(%edi)
+	movl 20(%ebp),%edi
+	movl %eax,(%edi)
+	movl 24(%ebp),%edi
+	movl %eax,(%edi)
+
+set_video_done:
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosSetClipRect
+#
+#   Purpose....: Set clip rectangle
+#
+#   Parameters.: Bitmap handle
+#                xmin, xmax, ymin, ymax
+#
+##########################################################################*/
+
+    .global RdosSetClipRect
+    
+RdosSetClipRect:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%cx
+	movw 16(%ebp),%dx
+	movw 20(%ebp),%si
+	movw 24(%ebp),%di
+	UserGate set_clip_rect_nr
+
+    popl %edi
+    popl %esi
+    popl %edx
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosClearClipRect
+#
+#   Purpose....: Clear clip rectangle
+#
+#   Parameters.: Bitmap handle
+#
+##########################################################################*/
+
+    .global RdosClearClipRect
+    
+RdosClearClipRect:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate clear_clip_rect_nr
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosSetDrawColor
+#
+#   Purpose....: Set draw color
+#
+#   Parameters.: Bitmap handle
+#                Color
+#
+##########################################################################*/
+
+    .global RdosSetDrawColor
+    
+RdosSetDrawColor:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%eax
+	UserGate set_drawcolor_nr
+
+	popl %ebx
+	popl %eax
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosSetLGOP
+#
+#   Purpose....: Set draw color
+#
+#   Parameters.: Bitmap handle
+#                LGOP
+#
+##########################################################################*/
+
+    .global RdosSetLGOP
+    
+RdosSetLGOP:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%ax
+	UserGate set_lgop_nr
+
+	popl %ebx
+	popl %eax
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosSetHollowStyle
+#
+#   Purpose....: Set hollow fill style
+#
+#   Parameters.: Bitmap handle
+#
+##########################################################################*/
+
+    .global RdosSetHollowStyle
+    
+RdosSetHollowStyle:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate set_hollow_style_nr
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosSetFilledStyle
+#
+#   Purpose....: Set filled fill style
+#
+#   Parameters.: Bitmap handle
+#
+##########################################################################*/
+
+    .global RdosSetFilledStyle
+    
+RdosSetFilledStyle:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate set_filled_style_nr
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosOpenFont
+#
+#   Purpose....: Open a font
+#
+#   Parameters.: height
+#
+#   Returns....: Font handle
+#
+##########################################################################*/
+
+    .global RdosOpenFont
+    
+RdosOpenFont:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%ax
+	UserGate open_font_nr
+	movzx %bx,%eax
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosCloseFont
+#
+#   Purpose....: Close font handle
+#
+#   Parameters.: Font handle
+#
+##########################################################################*/
+
+    .global RdosCloseFont
+    
+RdosCloseFont:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate close_font_nr
+
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosGetStringMetrics
+#
+#   Purpose....: Get string metrics for text using font
+#
+#   Parameters.: Font handle
+#                String
+#                &width
+#                &height
+#
+##########################################################################*/
+
+    .global RdosGetStringMetrics
+    
+RdosGetStringMetrics:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%edi
+	UserGate get_string_metrics_nr
+
+	movl 16(%ebp),%edi
+	movzx %cx,%ecx
+	movl %ecx,(%edi)
+	
+	movl 20(%ebp),%edi
+	movzx %dx,%edx
+	movl %edx,(%edi)
+
+	popl %edi
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetFont
+#
+#   Purpose....: Set font
+#
+#   Parameters.: Bitmap handle
+#                Font handle
+#
+##########################################################################*/
+
+    .global RdosSetFont
+    
+RdosSetFont:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%ax
+	UserGate set_font_nr
+
+	popl %ebx
+	popl %eax
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetPixel
+#
+#   Purpose....: Get pixel
+#
+#   Parameters.: Bitmap handle
+#                x, y
+#
+##########################################################################*/
+
+    .global RdosGetPixel
+    
+RdosGetPixel:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%cx
+	movw 16(%ebp),%dx
+	UserGate get_pixel_nr
+
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetPixel
+#
+#   Purpose....: Set pixel
+#
+#   Parameters.: Bitmap handle
+#                x, y
+#
+##########################################################################*/
+
+    .global RdosSetPixel
+    
+RdosSetPixel:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%cx
+	movw 16(%ebp),%dx
+	UserGate set_pixel_nr
+
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosBlit
+#
+#   Purpose....: Blit
+#
+#   Parameters.: SrcHandle
+#                DestHandle
+#                width, height
+#                SrcX, SrcY
+#                DestX, DestY
+#
+##########################################################################*/
+
+    .global RdosBlit
+    
+RdosBlit:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+;
+	movw 8(%ebp),%ax
+	movw 12(%ebp),%bx
+	movw 16(%ebp),%cx
+	movw 20(%ebp),%dx
+	movw 28(%ebp),%si
+	shll $16,%esi
+	movw 24(%ebp),%si
+	movw 36(%ebp),%di
+	shll $16,%edi
+	movw 32(%ebp),%di
+	UserGate blit_nr
+
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ecx
+	popl %ebx
+	popl %eax
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDrawMask
+#
+#   Purpose....: Draw mask
+#
+#   Parameters.: Bitmap handle
+#                mask
+#                RowSize
+#                width, height
+#                SrcX, SrcY
+#                DestX, DestY
+#
+##########################################################################*/
+
+    .global RdosDrawMask
+    
+RdosDrawMask:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+;
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%edi
+	movw 16(%ebp),%ax
+	movw 24(%ebp),%si
+	shll $16,%esi
+	movw 20(%ebp),%si
+	movw 32(%ebp),%cx
+	shll $16,%ecx
+	movw 28(%ebp),%cx
+	movw 40(%ebp),%dx
+	shll $16,%edx
+	movw 36(%ebp),%dx
+	UserGate draw_mask_nr
+
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ecx
+	popl %ebx
+	popl %eax
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDrawLine
+#
+#   Purpose....: Draw a line
+#
+#   Parameters.: Bitmap handle
+#                x1, y1
+#                x2, y2
+#
+##########################################################################*/
+
+    .global RdosDrawLine
+    
+RdosDrawLine:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+;
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%cx
+	movw 16(%ebp),%dx
+	movw 20(%ebp),%si
+	movw 24(%ebp),%di
+	UserGate draw_line_nr
+
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDrawString
+#
+#   Purpose....: Draw a string
+#
+#   Parameters.: Bitmap handle
+#                x, y
+#                string
+#
+##########################################################################*/
+
+    .global RdosDrawString
+    
+RdosDrawString:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %edi
+;
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%cx
+	movw 16(%ebp),%dx
+	movl 20(%ebp),%edi
+	UserGate draw_string_nr
+
+	popl %edi
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDrawRect
+#
+#   Purpose....: Draw a rect
+#
+#   Parameters.: Bitmap handle
+#                x, y
+#                width, height
+#
+##########################################################################*/
+
+    .global RdosDrawRect
+    
+RdosDrawRect:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%cx
+	movw 16(%ebp),%dx
+	movw 20(%ebp),%si
+	movw 24(%ebp),%di
+	UserGate draw_rect_nr
+
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDrawEllipse
+#
+#   Purpose....: Draw an ellipse
+#
+#   Parameters.: Bitmap handle
+#                x, y
+#                width, height
+#
+##########################################################################*/
+
+    .global RdosDrawEllipse
+    
+RdosDrawEllipse:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%cx
+	movw 16(%ebp),%dx
+	movw 20(%ebp),%si
+	movw 24(%ebp),%di
+	UserGate draw_ellipse_nr
+
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosCreateBitmap
+#
+#   Purpose....: Create a bitmap
+#
+#   Parameters.: BitsPerPixel
+#                width, height
+#
+#   Returns....: Bitmap handle
+#
+##########################################################################*/
+
+    .global RdosCreateBitmap
+    
+RdosCreateBitmap:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+
+	movw 8(%ebp),%ax
+	movw 12(%ebp),%cx
+	movw 16(%ebp),%dx
+	UserGate create_bitmap_nr
+	movzx %bx,%eax
+;
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDuplicateBitmapHandle
+#
+#   Purpose....: Duplicate bitmap handle for use in another thread / object
+#
+#   Parameters.: Bitmap handle
+#
+#   Returns....: Bitmap handle
+#
+##########################################################################*/
+
+    .global RdosDuplicateBitmapHandle
+    
+RdosDuplicateBitmapHandle:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate dup_bitmap_handle_nr
+	movzx %bx,%eax
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseBitmap
+#
+#   Purpose....: Close bitmap handle
+#
+#   Parameters.: Bitmap handle
+#
+##########################################################################*/
+
+    .global RdosCloseBitmap
+    
+RdosCloseBitmap:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate close_bitmap_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCreateStringBitmap
+#
+#   Purpose....: Create bitmap from string & font
+#
+#   Parameters.: Font
+#                string
+#
+#   Returns....: Bitmap handle
+#
+##########################################################################*/
+
+    .global RdosCreateStringBitmap
+    
+RdosCreateStringBitmap:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%edi
+	UserGate create_string_bitmap_nr
+	movzx %bx,%eax
+;
+	popl %edi
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetBitmapInfo
+#
+#   Purpose....: Get info about bitmap
+#
+#   Parameters.: Bitmap handle
+#                &BitsPerPixel
+#                &width, &height
+#                &linesize
+#                &LFB
+#
+##########################################################################*/
+
+    .global RdosGetBitmapInfo
+    
+RdosGetBitmapInfo:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	UserGate get_bitmap_info_nr
+	jc gbiFail
+
+	pushl %edi
+	movl 12(%ebp),%edi
+	movzx %al,%eax
+	movl %eax,(%edi)
+
+	movl 16(%ebp),%edi
+	movzx %cx,%ecx
+	movl %ecx,(%edi)
+	
+	movl 20(%ebp),%edi
+	movzx %dx,%edx
+	movl %edx,(%edi)
+
+	movl 24(%ebp),%edi
+	movzx %si,%esi
+	movl %esi,(%edi)
+	popl %edi
+	
+	movl 28(%ebp),%eax
+	movl %edi,(%eax)
+	jmp gbiDone
+
+gbiFail:
+	xorl %eax,%eax
+	movl 12(%ebp),%edi
+	movl %eax,(%edi)
+
+	movl 16(%ebp),%edi
+	movl %eax,(%edi)
+
+	movl 20(%ebp),%edi
+	movl %eax,(%edi)
+
+	movl 24(%ebp),%edi
+	movl %eax,(%edi)
+
+	movl 28(%ebp),%edi
+	movl %eax,(%edi)
+
+gbiDone:
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ecx
+	popl %ebx
+	popl %eax
+	leave
+	ret
+					    
+/*##########################################################################
+#
+#   Name       : RdosCreateSprite
+#
+#   Purpose....: Create a sprite
+#
+#   Parameters.: dest
+#                bitmap
+#                mask
+#                LGOP
+#
+#   Returns....: Sprite handle
+#
+##########################################################################*/
+
+    .global RdosCreateSprite
+    
+RdosCreateSprite:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%cx
+	movw 16(%ebp),%dx
+	movw 20(%ebp),%ax
+	UserGate create_sprite_nr
+	movzx %bx,%eax
+
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseSprite
+#
+#   Purpose....: Close sprite handle
+#
+#   Parameters.: Sprite handle
+#
+##########################################################################*/
+
+    .global RdosCloseSprite
+    
+RdosCloseSprite:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate close_sprite_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosShowSprite
+#
+#   Purpose....: Show sprite
+#
+#   Parameters.: Sprite handle
+#
+##########################################################################*/
+
+    .global RdosShowSprite
+    
+RdosShowSprite:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate show_sprite_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosHideSprite
+#
+#   Purpose....: Hide sprite
+#
+#   Parameters.: Sprite handle
+#
+##########################################################################*/
+
+    .global RdosHideSprite
+    
+RdosHideSprite:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate hide_sprite_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosMoveSprite
+#
+#   Purpose....: Move sprite
+#
+#   Parameters.: Sprite handle
+#                x, y
+#
+##########################################################################*/
+
+    .global RdosMoveSprite
+    
+RdosMoveSprite:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%cx
+	movw 16(%ebp),%dx
+	UserGate move_sprite_nr
+
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetForeColor
+#
+#   Purpose....: Set text-mode fore color
+#
+#   Parameters.: palette index
+#
+##########################################################################*/
+
+    .global RdosSetForeColor
+    
+RdosSetForeColor:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+
+	movb 8(%ebp),%al
+	UserGate set_forecolor_nr
+
+	popl %eax
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetBackColor
+#
+#   Purpose....: Set text-mode back color
+#
+#   Parameters.: palette index
+#
+##########################################################################*/
+
+    .global RdosSetBackColor
+    
+RdosSetBackColor:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+
+	movb 8(%ebp),%al
+	UserGate set_backcolor_nr
+
+	popl %eax
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetSysTime
+#
+#   Purpose....: Get system time
+#
+#   Parameters.: &year, &month, &day
+#                &hour, &min, &sec, &ms
+#
+##########################################################################*/
+
+    .global RdosGetSysTime
+    
+RdosGetSysTime:
+	pushl %ebp
+	movl %esp,%ebp
+	pushal
+
+	UserGate get_system_time_nr
+	pushl %eax
+	UserGate binary_to_time_nr
+	pushl %edx
+
+	movl 8(%ebp),%esi
+	movzx %dx,%edx
+	movl %edx,(%esi)
+
+	movl 12(%ebp),%esi
+	movzx %ch,%edx
+	movl %edx,(%esi)
+
+	movl 16(%ebp),%esi
+	movzx %cl,%edx
+	movl %edx,(%esi)
+
+	movl 20(%ebp),%esi
+	movzx %bh,%edx
+	movl %edx,(%esi)
+
+	movl 24(%ebp),%esi
+	movzx %bl,%edx
+	movl %edx,(%esi)
+
+	movl 28(%ebp),%esi
+	movzx %ah,%edx
+	movl %edx,(%esi)
+
+	popl %edx
+	UserGate time_to_binary_nr
+	movl %eax,%ebx
+	popl %eax
+	subl %ebx,%eax
+	xorl %edx,%edx
+	movl $1192,%ebx
+	divl %ebx
+
+	movl 32(%ebp),%esi
+	movzx %ax,%eax
+	movl %eax,(%esi)
+
+	popal
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetTime
+#
+#   Purpose....: Get time
+#
+#   Parameters.: &year, &month, &day
+#                &hour, &min, &sec, &ms
+#
+##########################################################################*/
+
+    .global RdosGetTime
+    
+RdosGetTime:
+	pushl %ebp
+	movl %esp,%ebp
+	pushal
+
+	UserGate get_time_nr
+	pushl %eax
+	UserGate binary_to_time_nr
+	pushl %edx
+
+	movl 8(%ebp),%esi
+	movzx %dx,%edx
+	movl %edx,(%esi)
+
+	movl 12(%ebp),%esi
+	movzx %ch,%edx
+	movl %edx,(%esi)
+
+	movl 16(%ebp),%esi
+	movzx %cl,%edx
+	movl %edx,(%esi)
+
+	movl 20(%ebp),%esi
+	movzx %bh,%edx
+	movl %edx,(%esi)
+
+	movl 24(%ebp),%esi
+	movzx %bl,%edx
+	movl %edx,(%esi)
+
+	movl 28(%ebp),%esi
+	movzx %ah,%edx
+	movl %edx,(%esi)
+
+	popl %edx
+	UserGate time_to_binary_nr
+	movl %eax,%ebx
+	popl %eax
+	subl %ebx,%eax
+	xorl %edx,%edx
+	movl $1192,%ebx
+	divl %ebx
+
+	movl 32(%ebp),%esi
+	movzx %ax,%eax
+	movl %eax,(%esi)
+
+	popal
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetTime
+#
+#   Purpose....: Set time
+#
+#   Parameters.: year, month, day
+#                hour, min, sec, ms
+#
+##########################################################################*/
+
+    .global RdosSetTime
+    
+RdosSetTime:
+	pushl %ebp
+	movl %esp,%ebp
+	pushal
+
+	movw 8(%ebp),%dx
+	movb 12(%ebp),%ch
+	movb 16(%ebp),%cl
+	movb 20(%ebp),%bh
+	movb 24(%ebp),%bl
+	movb 28(%ebp),%ah
+	UserGate time_to_binary_nr
+
+    movl %edx,%edi
+    movl %eax,%esi
+
+	movl 32(%ebp),%eax
+    movl $1192,%edx
+    mull %edx
+    addl %eax,%esi
+    adcl $0,%edi    
+
+	UserGate get_system_time_nr
+    subl %eax,%esi
+    sbbl %edx,%edi
+    movl %esi,%eax
+    movl %edi,%edx
+    UserGate update_time_nr
+
+	popal
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosTicsToRecord
+#
+#   Purpose....: Convert tics to record format
+#
+#   Parameters.: MSB, LSB
+#                &year, &month, &day
+#                &hour, &min, &sec, &ms
+#
+##########################################################################*/
+
+    .global RdosTicsToRecord
+    
+RdosTicsToRecord:
+	pushl %ebp
+	movl %esp,%ebp
+	pushal
+
+	movl 8(%ebp),%edx
+	movl 12(%ebp),%eax
+	addl $596,%eax
+	adcl $0,%edx
+	UserGate binary_to_time_nr
+	pushl %edx
+
+	movl 16(%ebp),%esi
+	movzx %dx,%edx
+	movl %edx,(%esi)
+
+	movl 20(%ebp),%esi
+	movzx %ch,%edx
+	movl %edx,(%esi)
+
+	movl 24(%ebp),%esi
+	movzx %cl,%edx
+	movl %edx,(%esi)
+
+	movl 28(%ebp),%esi
+	movzx %bh,%edx
+	movl %edx,(%esi)
+
+	movl 32(%ebp),%esi
+	movzx %bl,%edx
+	movl %edx,(%esi)
+
+	movl 36(%ebp),%esi
+	movzx %ah,%edx
+	movl %edx,(%esi)
+
+	popl %edx
+	UserGate time_to_binary_nr
+	movl %eax,%ebx
+	movl 12(%ebp),%eax
+	subl %edx,%eax
+	xorl %edx,%edx
+	movl $1192,%ebx
+	divl %ebx
+
+	movl 40(%ebp),%esi
+	cmpw %ax,1000
+	jne rttrSaveMs
+
+	decw %ax
+
+rttrSaveMs:	
+	movzx %ax,%eax
+	movl %eax,(%esi)
+
+	popal
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosRecordToTics
+#
+#   Purpose....: Convert from record format to tics
+#
+#   Parameters.: &MSB, &LSB
+#                year, month, day
+#                hour, min, sec, ms
+#
+##########################################################################*/
+
+    .global RdosRecordToTics
+    
+RdosRecordToTics:
+	pushl %ebp
+	movl %esp,%ebp
+	pushal
+
+	movl 40(%ebp),%eax
+	movl $1192,%edx
+	mull %edx
+	pushl %eax
+	movw 16(%ebp),%dx
+	movb 20(%ebp),%ch
+	movb 24(%ebp),%cl
+	movb 28(%ebp),%bh
+	movb 32(%ebp),%bl
+	movb 36(%ebp),%ah
+	UserGate time_to_binary_nr
+	popl %ebx
+	addl %ebx,%eax
+	adcl $0,%edx
+
+	movl 8(%ebp),%esi
+	movl %edx,(%esi)
+
+	movl 12(%ebp),%esi
+	movl %eax,(%esi)
+
+	popal
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDecodeMsbTics
+#
+#   Purpose....: Decode MSB tics
+#
+#   Parameters.: MSB
+#                &day, &hour
+#
+##########################################################################*/
+
+    .global RdosDecodeMsbTics
+    
+RdosDecodeMsbTics:
+	pushl %ebp
+	movl %esp,%ebp
+	pushal
+
+	movl 8(%ebp),%eax
+	xorl %edx,%edx
+	movl $24,%ecx
+	divl %ecx
+
+	movl 12(%ebp),%ebx
+	movl %eax,(%ebx)
+
+	movl 16(%ebp),%ebx
+	movl %edx,(%ebx)
+
+	popal
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDecodeLsbTics
+#
+#   Purpose....: Decode LSB tics
+#
+#   Parameters.: LSB
+#                &min, &sec, &ms, &us
+#
+##########################################################################*/
+
+    .global RdosDecodeLsbTics
+    
+RdosDecodeLsbTics:
+	pushl %ebp
+	movl %esp,%ebp
+	pushal
+
+	movl 8(%ebp),%eax
+	movl $60,%edx
+	mull %edx
+	movl 12(%ebp),%ebx
+	movl %edx,(%ebx)
+
+	movl $60,%edx
+	mull %edx
+	movl 16(%ebp),%ebx
+	movl %edx,(%ebx)
+
+	movl $1000,%edx
+	mull %edx
+	movl 20(%ebp),%ebx
+	movl %edx,(%ebx)
+
+	movl $1000,%edx
+	mull %edx
+	movl 24(%ebp),%ebx
+	movl %edx,(%ebx)
+
+	popal
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDayOfWeek
+#
+#   Purpose....: Get day of week
+#
+#   Parameters.: year, month, day
+#
+#   Returns....: day of week
+#
+##########################################################################*/
+
+    .global RdosDayOfWeek
+    
+RdosDayOfWeek:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+
+	movl 8(%ebp),%edx
+	movb 12(%ebp),%ch
+	movb 16(%ebp),%cl
+    xorw %bx,%bx
+    xorb %ah,%ah
+	UserGate adjust_time_nr
+	pushw %dx
+	movl $365,%eax
+	imulw %dx
+	pushw %dx
+	pushw %ax
+	popl %ebx
+	popw %dx
+	UserGate passed_days_nr
+	decw %dx
+	shrw $2,%dx
+	incw %dx
+	addw %dx,%ax
+	addl %ebx,%eax
+    xorl %edx,%edx
+    addl $5,%eax
+    movl $7,%ebx
+    divl %ebx
+    movzx %dl,%eax
+
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetTics
+#
+#   Purpose....: Get system tics
+#
+#   Parameters.: &MSB, &LSB
+#
+##########################################################################*/
+
+    .global RdosGetTics
+    
+RdosGetTics:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edx
+	pushl %esi
+
+	UserGate get_time_nr
+	movl 8(%ebp),%esi
+	movl %edx,(%esi)
+	movl 12(%ebp),%esi
+	movl %eax,(%esi)
+
+	popl %esi
+	popl %edx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAddTics
+#
+#   Purpose....: Add tics to binary time
+#
+#   Parameters.: &MSB, &LSB
+#                tics
+#
+##########################################################################*/
+
+    .global RdosAddTics
+    
+RdosAddTics:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 16(%ebp),%eax
+	movl 12(%ebp),%ebx
+	addl %eax,(%ebx)
+	movl 8(%ebp),%ebx
+	adcl $0,(%ebx)
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAddMilli
+#
+#   Purpose....: Add milliseconds to binary time
+#
+#   Parameters.: &MSB, &LSB
+#                milli
+#
+##########################################################################*/
+
+    .global RdosAddMilli
+    
+RdosAddMilli:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 16(%ebp),%eax
+	movl $1193,%edx
+	mull %edx
+	movl 12(%ebp),%ebx
+	addl %eax,(%ebx)
+	movl 8(%ebp),%ebx
+	adcl %edx,(%ebx)
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAddSec
+#
+#   Purpose....: Add milliseconds to binary time
+#
+#   Parameters.: &MSB, &LSB
+#                sec
+#
+##########################################################################*/
+
+    .global RdosAddSec
+    
+RdosAddSec:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 16(%ebp),%eax
+	movl $1193000,%edx
+	mull %edx
+	movl 12(%ebp),%ebx
+	addl %eax,(%ebx)
+	movl 8(%ebp),%ebx
+	adcl %edx,(%ebx)
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAddMin
+#
+#   Purpose....: Add minutes to binary time
+#
+#   Parameters.: &MSB, &LSB
+#                min
+#
+##########################################################################*/
+
+    .global RdosAddMin
+    
+RdosAddMin:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 16(%ebp),%eax
+	movl $71582760,%edx
+	mull %edx
+	movl 12(%ebp),%ebx
+	addl %eax,(%ebx)
+	movl 8(%ebp),%ebx
+	adcl %edx,(%ebx)
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAddHour
+#
+#   Purpose....: Add hour to binary time
+#
+#   Parameters.: &MSB, &LSB
+#                hour
+#
+##########################################################################*/
+
+    .global RdosAddHour
+    
+RdosAddHour:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 16(%ebp),%eax
+	movl 8(%ebp),%ebx
+	adc %eax,(%ebx)
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAddDay
+#
+#   Purpose....: Add days to binary time
+#
+#   Parameters.: &MSB, &LSB
+#                days
+#
+##########################################################################*/
+
+    .global RdosAddDay
+    
+RdosAddDay:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 16(%ebp),%eax
+	movl $24,%edx
+	mull %edx
+	movl 8(%ebp),%ebx
+	adc %eax,(%ebx)
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSyncTime
+#
+#   Purpose....: Synchronize time with NTP
+#
+#   Parameters.: IP
+#
+##########################################################################*/
+
+    .global RdosSyncTime
+    
+RdosSyncTime:
+	pushl %ebp
+	movl %esp,%ebp
+	pushal
+
+	movl 8(%ebp),%edx
+	UserGate sync_time_nr
+	jc RdosSyncTimeFail
+
+	movl $1,%eax
+	jmp RdosSyncTimeDone
+
+RdosSyncTimeFail:
+	xorl %eax,%eax
+
+RdosSyncTimeDone:
+	popal
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosOpenCom
+#
+#   Purpose....: Open com-port
+#
+#   Parameters.: ID
+#                baudrate
+#                parity
+#                data bits
+#                stop bits
+#                SendBufferSize
+#                RecBufferSize
+#
+#    Returns...: Com handle
+#
+##########################################################################*/
+
+    .global RdosOpenCom
+    
+RdosOpenCom:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+
+	movb 8(%ebp),%al
+	movb 20(%ebp),%ah
+	movb 24(%ebp),%bl
+	movb 16(%ebp),%bh
+	movl 12(%ebp),%ecx
+	movw 28(%ebp),%si
+	movw 32(%ebp),%di
+	UserGate open_com_nr
+	movzx %bx,%eax
+
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseCom
+#
+#   Purpose....: Close com-port
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosCloseCom
+    
+RdosCloseCom:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate close_com_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosFlushCom
+#
+#   Purpose....: Flush com-port
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosFlushCom
+    
+RdosFlushCom:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate flush_com_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadCom
+#
+#   Purpose....: Read com-port
+#
+#   Parameters.: Com handle
+#
+#   Returns....: Character
+#
+##########################################################################*/
+
+    .global RdosReadCom
+    
+RdosReadCom:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate read_com_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWriteCom
+#
+#   Purpose....: Write com-port
+#
+#   Parameters.: Com handle
+#                char
+#
+#   Returns....: 0 for success
+#
+##########################################################################*/
+
+    .global RdosWriteCom
+    
+RdosWriteCom:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	movb 12(%ebp),%al
+	UserGate write_com_nr
+	movzx %al,%eax
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWaitForSendCompletedCom
+#
+#   Purpose....: Wait until send buffer is empty
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosWaitForSendCompletedCom
+    
+RdosWaitForSendCompletedCom:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate wait_for_send_completed_com_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosEnableCts
+#
+#   Purpose....: Enable CTS signal
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosEnableCts
+    
+RdosEnableCts:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate enable_cts_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDisableCts
+#
+#   Purpose....: Disable CTS signal
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosDisableCts
+    
+RdosDisableCts:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate disable_cts_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosEnableAutoRts
+#
+#   Purpose....: Enable auto RTS signal generation for RS485
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosEnableAutoRts
+    
+RdosEnableAutoRts:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate enable_auto_rts_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDisableAutoRts
+#
+#   Purpose....: Disable auto RTS signal generation for RS485
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosDisableAutoRts
+    
+RdosDisableAutoRts:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate disable_auto_rts_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetDtr
+#
+#   Purpose....: Set DTR active
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosSetDtr
+    
+RdosSetDtr:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate set_dtr_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosResetDtr
+#
+#   Purpose....: Set DTR inactive
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosResetDtr
+    
+RdosResetDtr:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate reset_dtr_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetRts
+#
+#   Purpose....: Set RTS active
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosSetRts
+    
+RdosSetRts:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate set_rts_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosResetRts
+#
+#   Purpose....: Set RTS inactive
+#
+#   Parameters.: Com handle
+#
+##########################################################################*/
+
+    .global RdosResetRts
+    
+RdosResetRts:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate reset_rts_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetReceiveBufferSpace
+#
+#   Purpose....: Get receive buffer free space
+#
+#   Parameters.: Com handle
+#
+#   Returns....: Free bytes
+#
+##########################################################################*/
+
+    .global RdosGetReceiveBufferSpace
+    
+RdosGetReceiveBufferSpace:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate get_com_receive_space_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetSendBufferSpace
+#
+#   Purpose....: Get send buffer free space
+#
+#   Parameters.: Com handle
+#
+#   Returns....: Free bytes
+#
+##########################################################################*/
+
+    .global RdosGetSendBufferSpace
+    
+RdosGetSendBufferSpace:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate get_com_send_space_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosOpenFile
+#
+#   Purpose....: Open file
+#
+#   Parameters.: Filename
+#                Access
+#
+#    Returns...: File handle
+#
+##########################################################################*/
+
+    .global RdosOpenFile
+    
+RdosOpenFile:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movb 12(%ebp),%cl
+	UserGate open_file_nr
+	jc OpenFileFailed
+
+	movzx %bx,%eax
+	jmp OpenFileDone
+
+OpenFileFailed:
+	xorl %eax,%eax
+
+OpenFileDone:
+	popl %edi
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCreateFile
+#
+#   Purpose....: Create file
+#
+#   Parameters.: Filename
+#                Attribute
+#
+#    Returns...: File handle
+#
+##########################################################################*/
+
+    .global RdosCreateFile
+    
+RdosCreateFile:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movw 12(%ebp),%cx
+	UserGate create_file_nr
+	jc CreateFileFailed
+
+	movzx %bx,%eax
+	jmp CreateFileDone
+
+CreateFileFailed:
+	xorl %eax,%eax
+
+CreateFileDone:
+	popl %edi
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseFile
+#
+#   Purpose....: Close file
+#
+#   Parameters.: File handle
+#
+##########################################################################*/
+
+    .global RdosCloseFile
+    
+RdosCloseFile:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate close_file_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosIsDevice
+#
+#   Purpose....: Check if file is device
+#
+#   Parameters.: TRUE if device
+#
+##########################################################################*/
+
+    .global RdosIsDevice
+    
+RdosIsDevice:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate get_ioctl_data_nr
+	testw $0x8000,%dx
+	jz ridFail
+
+	movl $1,%eax
+	jmp ridDone
+
+ridFail:
+	xorl %eax,%eax
+
+ridDone:
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDuplFile
+#
+#   Purpose....: Duplicate file handle
+#
+#   Parameters.: File handle
+#
+#   Returns....: File handle
+#
+##########################################################################*/
+
+    .global RdosDuplFile
+    
+RdosDuplFile:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate dupl_file_nr
+	jc DuplFileFailed
+	
+	movzx %bx,%eax
+	jmp DuplFileDone
+
+DuplFileFailed:
+	xorl %eax,%eax
+
+DuplFileDone:
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetFileSize
+#
+#   Purpose....: Get file size
+#
+#   Parameters.: File handle
+#
+#   Returns....: Size
+#
+##########################################################################*/
+
+    .global RdosGetFileSize
+    
+RdosGetFileSize:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate get_file_size_nr
+	jnc GetFileSizeDone
+
+GetFileSizeFail:
+	xorl %eax,%eax
+
+GetFileSizeDone:
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetFileSize
+#
+#   Purpose....: Set file size
+#
+#   Parameters.: File handle
+#                Size
+#
+##########################################################################*/
+
+    .global RdosSetFileSize
+    
+RdosSetFileSize:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%eax
+	UserGate set_file_size_nr
+
+	popl %ebx
+	popl %eax
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetFilePos
+#
+#   Purpose....: Get file position
+#
+#   Parameters.: File handle
+#
+#   Returns....: Position
+#
+##########################################################################*/
+
+    .global RdosGetFilePos
+    
+RdosGetFilePos:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate get_file_pos_nr
+	jnc GetFilePosDone
+
+GetFilePosFail:
+	xorl %eax,%eax
+
+GetFilePosDone:
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetFilePos
+#
+#   Purpose....: Set file position
+#
+#   Parameters.: File handle
+#                Position
+#
+##########################################################################*/
+
+    .global RdosSetFilePos
+    
+RdosSetFilePos:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%eax
+	UserGate set_file_pos_nr
+
+	popl %ebx
+	popl %eax
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetFileTime
+#
+#   Purpose....: Get file time & date
+#
+#   Parameters.: File handle
+#                &MSB, &LSB
+#
+##########################################################################*/
+
+    .global RdosGetFileTime
+    
+RdosGetFileTime:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	UserGate get_file_time_nr
+	jc GetFileTimeDone
+
+	movl 12(%ebp),%edi
+	movl %edx,(%edi)
+
+	movl 16(%ebp),%edi
+	movl %eax,(%edi)
+
+GetFileTimeDone:
+	popl %edi
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetFileTime
+#
+#   Purpose....: Set file time & date
+#
+#   Parameters.: File handle
+#                MSB, LSB
+#
+##########################################################################*/
+
+    .global RdosSetFileTime
+    
+RdosSetFileTime:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ebx
+	pushl %edx
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%edx
+	movl 16(%ebp),%eax
+	UserGate set_file_time_nr
+
+	popl %edx
+	popl %ebx
+	popl %eax
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadFile
+#
+#   Purpose....: Read from file
+#
+#   Parameters.: File handle
+#                buffer
+#                count
+#
+#   Returns....: Read count
+#
+##########################################################################*/
+
+    .global RdosReadFile
+    
+RdosReadFile:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%edi
+	movl 16(%ebp),%ecx
+	UserGate read_file_nr
+
+	popl %edi
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWriteFile
+#
+#   Purpose....: Write to file
+#
+#   Parameters.: File handle
+#                buffer
+#                count
+#
+#   Returns....: Written count
+#
+##########################################################################*/
+
+    .global RdosWriteFile
+    
+RdosWriteFile:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%edi
+	movl 16(%ebp),%ecx
+	UserGate write_file_nr
+
+	popl %edi
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCreateMapping
+#
+#   Purpose....: Create file mapping
+#
+#   Parameters.: Size
+#
+#    Returns...: Filemap handle
+#
+##########################################################################*/
+
+    .global RdosCreateMapping
+    
+RdosCreateMapping:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 8(%ebp),%eax
+	UserGate create_mapping_nr
+	movzx %bx,%eax
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCreateNamedMapping
+#
+#   Purpose....: Create named file mapping
+#
+#   Parameters.: Name
+#                Size
+#
+#    Returns...: Filemap handle
+#
+##########################################################################*/
+
+    .global RdosCreateNamedMapping
+    
+RdosCreateNamedMapping:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movl 12(%ebp),%eax
+	UserGate create_named_mapping_nr
+	movzx %bx,%eax
+
+	popl %edi
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCreateNamedFileMapping
+#
+#   Purpose....: Create file named file mapping
+#
+#   Parameters.: Name
+#                Size
+#                File handle
+#
+#    Returns...: Filemap handle
+#
+##########################################################################*/
+
+    .global RdosCreateNamedFileMapping
+    
+RdosCreateNamedFileMapping:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movl 12(%ebp),%eax
+	movw 16(%ebp),%bx
+	UserGate create_named_file_mapping_nr
+	movzx %bx,%eax
+
+	popl %edi
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosOpenNamedMapping
+#
+#   Purpose....: Open named file mapping
+#
+#   Parameters.: Name
+#
+#    Returns...: Filemap handle
+#
+##########################################################################*/
+
+    .global RdosOpenNamedMapping
+    
+RdosOpenNamedMapping:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate open_named_mapping_nr
+	movzx %bx,%eax
+
+	popl %edi
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSyncMapping
+#
+#   Purpose....: Sync file mapping
+#
+#   Parameters.: Filemap handle
+#
+##########################################################################*/
+
+    .global RdosSyncMapping
+    
+RdosSyncMapping:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate sync_mapping_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseMapping
+#
+#   Purpose....: Close file mapping
+#
+#   Parameters.: Filemap handle
+#
+##########################################################################*/
+
+    .global RdosCloseMapping
+    
+RdosCloseMapping:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate close_mapping_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosMapView
+#
+#   Purpose....: Map view of file into memory
+#
+#   Parameters.: Filemap handle
+#                Offset
+#                Address
+#                Size
+#
+##########################################################################*/
+
+    .global RdosMapView
+    
+RdosMapView:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%eax
+	movl 16(%ebp),%edi
+	movl 20(%ebp),%ecx
+	UserGate map_view_nr
+
+	popl %edi
+	popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosUnmapView
+#
+#   Purpose....: Unmap view of file
+#
+#   Parameters.: Filemap handle
+#
+##########################################################################*/
+
+    .global RdosUnmapView
+    
+RdosUnmapView:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate unmap_view_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetCurDrive
+#
+#   Purpose....: Set current drive
+#
+#   Parameters.: Drive
+#
+##########################################################################*/
+
+    .global RdosSetCurDrive
+    
+RdosSetCurDrive:
+	pushl %ebp
+	movl %esp,%ebp
+
+	movb 8(%ebp),%al
+	UserGate set_cur_drive_nr
+	jc rscdrFail
+
+    movl $1,%eax
+    jmp rscdrDone
+
+rscdrFail:
+    xorl %eax,%eax
+
+rscdrDone:
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetCurDrive
+#
+#   Purpose....: Get current drive
+#
+#   Returns....: Drive
+#
+##########################################################################*/
+
+    .global RdosGetCurDrive
+    
+RdosGetCurDrive:
+	pushl %ebp
+	movl %esp,%ebp
+
+    xorl %eax,%eax
+	UserGate get_cur_drive_nr
+	movzx %al,%eax
+
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetCurDir
+#
+#   Purpose....: Set current directory
+#
+#   Parameters.: Pathname
+#
+##########################################################################*/
+
+    .global RdosSetCurDir
+    
+RdosSetCurDir:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate set_cur_dir_nr
+	jc rscdFail
+
+    movl $1,%eax
+    jmp rscdDone
+
+rscdFail:
+    xorl %eax,%eax
+
+rscdDone:
+	popl %edi
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetCurDir
+#
+#   Purpose....: Get current directory
+#
+#   Parameters.: Drive
+#                Pathname
+#
+##########################################################################*/
+
+    .global RdosGetCurDir
+    
+RdosGetCurDir:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edi
+
+	movb 8(%ebp),%al
+	movl 12(%ebp),%edi
+	UserGate get_cur_dir_nr
+	jc rgcdFail
+
+    movl $1,%eax
+    jmp rgcdDone
+
+rgcdFail:
+    xorl %eax,%eax
+
+rgcdDone:
+	popl %edi
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosMakeDir
+#
+#   Purpose....: Create directory
+#
+#   Parameters.: Pathname
+#
+##########################################################################*/
+
+    .global RdosMakeDir
+    
+RdosMakeDir:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate make_dir_nr
+	jc mdFail
+
+    movl $1,%eax
+    jmp mdDone
+
+mdFail:
+    xorl %eax,%eax
+
+mdDone:
+	popl %edi
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosRemoveDir
+#
+#   Purpose....: Remove directory
+#
+#   Parameters.: Pathname
+#
+##########################################################################*/
+
+    .global RdosRemoveDir
+    
+RdosRemoveDir:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate remove_dir_nr
+	jc rdFail
+
+    movl $1,%eax
+    jmp rdDone
+
+rdFail:
+    xorl %eax,%eax
+
+rdDone:
+	popl %edi
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosRenameFile
+#
+#   Purpose....: Rename file
+#
+#   Parameters.: ToName
+#                FromName
+#
+##########################################################################*/
+
+    .global RdosRenameFile
+    
+RdosRenameFile:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %esi
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movl 12(%ebp),%esi
+	UserGate rename_file_nr
+	jc rfFail
+
+    mov $1,%eax
+    jmp rfDone
+
+rfFail:
+    xorl %eax,%eax
+
+rfDone:
+	popl %edi
+	popl %esi
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDeleteFile
+#
+#   Purpose....: Delete file
+#
+#   Parameters.: Pathname
+#
+##########################################################################*/
+
+    .global RdosDeleteFile
+    
+RdosDeleteFile:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate delete_file_nr
+	jc dfFail
+
+    mov $1,%eax
+    jmp dfDone
+
+dfFail:
+    xorl %eax,%eax
+
+dfDone:
+	popl %edi
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetFileAttribute
+#
+#   Purpose....: Get file attribute
+#
+#   Parameters.: Pathname
+#                &Attrib
+#
+##########################################################################*/
+
+    .global RdosGetFileAttribute
+    
+RdosGetFileAttribute:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate get_file_attribute_nr
+	jc gfaFail
+
+	movl 12(%ebp),%edi
+    movzx %cx,%ecx
+	movl %ecx,(%edi)
+    movl $1,%eax
+    jmp gfaDone
+
+gfaFail:
+    xorl %eax,%eax
+
+gfaDone:
+	popl %edi
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetFileAttribute
+#
+#   Purpose....: Set file attribute
+#
+#   Parameters.: Pathname
+#                Attrib
+#
+##########################################################################*/
+
+    .global RdosSetFileAttribute
+    
+RdosSetFileAttribute:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movw 12(%ebp),%cx
+	UserGate set_file_attribute_nr
+	jc sfaFail
+
+    movl $1,%eax
+    jmp sfaDone
+
+sfaFail:
+    xorl %eax,%eax
+
+sfaDone:
+	popl %edi
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosOpenDir
+#
+#   Purpose....: Open directory
+#
+#   Parameters.: Pathname
+#
+#   Returns....: Dir handle
+#
+##########################################################################*/
+
+    .global RdosOpenDir
+    
+RdosOpenDir:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate open_dir_nr
+	jc odFail
+
+    movzx %bx,%eax
+    jmp odDone
+
+odFail:
+    xorl %eax,%eax
+
+odDone:
+	popl %edi
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseDir
+#
+#   Purpose....: Close directory
+#
+#   Parameters.: Dir handle
+#
+##########################################################################*/
+
+    .global RdosCloseDir
+    
+RdosCloseDir:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate close_dir_nr
+
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadDir
+#
+#   Purpose....: Read directory entry
+#
+#   Parameters.: Dir handle
+#                Entry #
+#                MaxNameSize
+#                Name buffer
+#                &FileSize
+#                &Attribute
+#                &Msb time
+#                &Lsb time
+#
+##########################################################################*/
+
+    .global RdosReadDir
+    
+RdosReadDir:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%dx
+	movw 16(%ebp),%cx
+	movl 20(%ebp),%edi
+	UserGate read_dir_nr
+	jc rdiFail
+
+	movl 24(%ebp),%edi
+	movl %ecx,(%edi)
+
+	movl 28(%ebp),%edi
+    movzx %bx,%ebx
+	movl %ebx,(%edi)
+
+	movl 32(%ebp),%edi
+	movl %edx,(%edi)
+
+	movl 36(%ebp),%edi
+	movl %eax,(%edi)
+
+    movl $1,%eax
+    jmp rdiDone
+
+rdiFail:
+    xorl %eax,%eax
+    
+rdiDone:
+    popl %edi
+    popl %ecx
+	popl %ebx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetFocus
+#
+#   Purpose....: Set input focus
+#
+#   Parameters.: Focus handle
+#
+##########################################################################*/
+
+    .global RdosSetFocus
+    
+RdosSetFocus:
+	pushl %ebp
+	movl %esp,%ebp
+	
+	movl 8(%ebp),%eax
+	UserGate set_focus_nr
+
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetFocus
+#
+#   Purpose....: Get input focus
+#
+#   Returns....: Focus handle
+#
+##########################################################################*/
+
+    .global RdosGetFocus
+    
+RdosGetFocus:
+	pushl %ebp
+	movl %esp,%ebp
+	
+	UserGate get_focus_nr
+
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosClearKeyboard
+#
+#   Purpose....: Clear keyboard buffer
+#
+##########################################################################*/
+
+    .global RdosClearKeyboard
+    
+RdosClearKeyboard:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate flush_keyboard_nr
+
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosPollKeyboard
+#
+#   Purpose....: Poll keyboard buffer
+#
+#   Returns....: TRUE if non-empty
+#
+##########################################################################*/
+
+    .global RdosPollKeyboard
+    
+RdosPollKeyboard:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate poll_keyboard_nr
+	jc rpkEmpty
+
+	mov $1,%eax
+	jmp rpkDone
+
+rpkEmpty:
+	xorl %eax,%eax
+
+rpkDone:
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadKeyboard
+#
+#   Purpose....: Read keyboard buffer
+#
+#   Returns....: Scan code
+#
+##########################################################################*/
+
+    .global RdosReadKeyboard
+    
+RdosReadKeyboard:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate read_keyboard_nr
+	movzx %ax,%eax
+
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetKeyboardState
+#
+#   Purpose....: Get keyboard buffer
+#
+#   Returns....: Keyboard state
+#
+##########################################################################*/
+
+    .global RdosGetKeyboardState
+    
+RdosGetKeyboardState:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate get_keyboard_state_nr
+	movzx %ax,%eax
+
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosPutKeyboard
+#
+#   Purpose....: Put scancode in keyboard buffer
+#
+##########################################################################*/
+
+    .global RdosPutKeyboard
+    
+RdosPutKeyboard:
+	pushl %ebp
+	movl %esp,%ebp
+    pushl %edx
+
+	movw 8(%ebp),%ax
+	movb 12(%ebp),%dl
+	movb 16(%ebp),%dh
+	UserGate put_keyboard_code_nr
+
+    popl %edx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosPeekKeyEvent
+#
+#   Purpose....: Peek keyboard event
+#
+##########################################################################*/
+
+    .global RdosPeekKeyEvent
+    
+RdosPeekKeyEvent:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+	pushl %edi
+
+	UserGate peek_key_event_nr
+	jc rpeFail
+
+	movl 8(%ebp),%edi
+	movzx %ax,%eax
+	movl %eax,(%edi)
+
+	movl 12(%ebp),%edi
+	movzx %cx,%eax
+	movl %eax,(%edi)
+
+	movl 16(%ebp),%edi
+	movzx %dl,%eax
+	movl %eax,(%edi)
+
+	movl 20(%ebp),%edi
+	movzx %dh,%eax
+	movl %eax,(%edi)
+
+	movl $1,%eax
+	jmp rpeDone
+
+rpeFail:
+	xorl %eax,%eax
+
+rpeDone:
+	popl %edi
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadKeyEvent
+#
+#   Purpose....: Read keyboard event
+#
+##########################################################################*/
+
+    .global RdosReadKeyEvent
+    
+RdosReadKeyEvent:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+	pushl %edi
+
+	UserGate read_key_event_nr
+	jc rkeFail
+
+	movl 8(%ebp),%edi
+	movzx %ax,%eax
+	movl %eax,(%edi)
+
+	movl 12(%ebp),%edi
+	movzx %cx,%eax
+	movl %eax,(%edi)
+
+	movl 16(%ebp),%edi
+	movzx %dl,%eax
+	movl %eax,(%edi)
+
+	movl 20(%ebp),%edi
+	movzx %dh,%eax
+	movl %eax,(%edi)
+
+	movl $1,%eax
+	jmp rkeDone
+
+rkeFail:
+	xorl %eax,%eax
+
+rkeDone:
+	popl %edi
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosHideMouse
+#
+#   Purpose....: Hide mouse cursor
+#
+##########################################################################*/
+
+    .global RdosHideMouse
+    
+RdosHideMouse:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate hide_mouse_nr
+
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosShowMouse
+#
+#   Purpose....: Show mouse cursor
+#
+##########################################################################*/
+
+    .global RdosShowMouse
+    
+RdosShowMouse:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate show_mouse_nr
+
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetMousePosition
+#
+#   Purpose....: Get mouse position
+#
+#   Parameters.: &x, &y
+#
+##########################################################################*/
+
+    .global RdosGetMousePosition
+    
+RdosGetMousePosition:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+
+	UserGate get_mouse_position_nr
+
+	movl 8(%ebp),%eax
+	movzx %cx,%ecx
+	movl %ecx,(%eax)
+
+	movl 12(%ebp),%eax
+	movzx %dx,%edx
+	movl %edx,(%eax)
+
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetMousePosition
+#
+#   Purpose....: Set mouse position
+#
+#   Parameters.: x, y
+#
+##########################################################################*/
+
+    .global RdosSetMousePosition
+    
+RdosSetMousePosition:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+
+	movw 8(%ebp),%cx
+	movw 12(%ebp),%dx
+	UserGate set_mouse_position_nr
+
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetMouseWindow
+#
+#   Purpose....: Set mouse window
+#
+#   Parameters.: start x, start y
+#                end x, end y
+#
+##########################################################################*/
+
+    .global RdosSetMouseWindow
+    
+RdosSetMouseWindow:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %eax
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+
+	movw 8(%ebp),%ax
+	movw 12(%ebp),%bx
+	movw 16(%ebp),%cx
+	movw 20(%ebp),%dx
+	UserGate set_mouse_window_nr
+
+	popl %edx
+	popl %ecx
+	popl %ebx
+	popl %eax
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetMouseMickey
+#
+#   Purpose....: Set mouse mickey
+#
+#   Parameters.: x, y
+#
+##########################################################################*/
+
+    .global RdosSetMouseMickey
+    
+RdosSetMouseMickey:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+
+	movw 8(%ebp),%cx
+	movw 12(%ebp),%dx
+	UserGate set_mouse_mickey_nr
+
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetCursorPosition
+#
+#   Purpose....: Get cursor position
+#
+#   Parameters.: &x, &y
+#
+##########################################################################*/
+
+    .global RdosGetCursorPosition
+    
+RdosGetCursorPosition:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+
+	UserGate get_cursor_position_nr
+
+	movl 8(%ebp),%eax
+	movzx %cx,%ecx
+	movl %ecx,(%eax)
+
+	movl 12(%ebp),%eax
+	movzx %dx,%edx
+	movl %edx,(%eax)
+
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetCursorPosition
+#
+#   Purpose....: Set cursor position
+#
+#   Parameters.: x, y
+#
+##########################################################################*/
+
+    .global RdosSetCursorPosition
+    
+RdosSetCursorPosition:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+
+	movw 8(%ebp),%cx
+	movw 12(%ebp),%dx
+	UserGate set_cursor_position_nr
+
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetLeftButton
+#
+#   Purpose....: Check if left button is pressed
+#
+#   Returns....: TRUE if pressed
+#
+##########################################################################*/
+
+    .global RdosGetLeftButton
+    
+RdosGetLeftButton:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate get_left_button_nr
+	jc get_left_rel
+
+	mov $1,%eax
+	jmp get_left_done
+
+get_left_rel:
+	xorl %eax,%eax
+
+get_left_done:
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetRightButton
+#
+#   Purpose....: Check if right button is pressed
+#
+#   Returns....: TRUE if pressed
+#
+##########################################################################*/
+
+    .global RdosGetRightButton
+    
+RdosGetRightButton:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate get_right_button_nr
+	jc get_right_rel
+
+	mov $1,%eax
+	jmp get_right_done
+
+get_right_rel:
+	xorl %eax,%eax
+
+get_right_done:
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetLeftButtonPressPosition
+#
+#   Purpose....: Get left button press position
+#
+#   Parameters.: &x, &y
+#
+##########################################################################*/
+
+    .global RdosGetLeftButtonPressPosition
+    
+RdosGetLeftButtonPressPosition:
+	pushl %ebp
+	movl %esp,%ebp
+
+	pushl %ecx
+	pushl %edx
+
+	UserGate get_left_button_press_position_nr
+
+	movl 8(%ebp),%eax
+	movzx %cx,%ecx
+	movl %ecx,(%eax)
+
+	movl 12(%ebp),%eax
+	movzx %dx,%edx
+	movl %edx,(%eax)
+
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetRightButtonPressPosition
+#
+#   Purpose....: Get right button press position
+#
+#   Parameters.: &x, &y
+#
+##########################################################################*/
+
+    .global RdosGetRightButtonPressPosition
+    
+RdosGetRightButtonPressPosition:
+	pushl %ebp
+	movl %esp,%ebp
+
+	pushl %ecx
+	pushl %edx
+
+	UserGate get_right_button_press_position_nr
+
+	movl 8(%ebp),%eax
+	movzx %cx,%ecx
+	movl %ecx,(%eax)
+
+	movl 12(%ebp),%eax
+	movzx %dx,%edx
+	movl %edx,(%eax)
+
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetLeftButtonReleasePosition
+#
+#   Purpose....: Get left button release position
+#
+#   Parameters.: &x, &y
+#
+##########################################################################*/
+
+    .global RdosGetLeftButtonReleasePosition
+    
+RdosGetLeftButtonReleasePosition:
+	pushl %ebp
+	movl %esp,%ebp
+
+	pushl %ecx
+	pushl %edx
+
+	UserGate get_left_button_release_position_nr
+
+	movl 8(%ebp),%eax
+	movzx %cx,%ecx
+	movl %ecx,(%eax)
+
+	movl 12(%ebp),%eax
+	movzx %dx,%edx
+	movl %edx,(%eax)
+
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetRightButtonReleasePosition
+#
+#   Purpose....: Get right button release position
+#
+#   Parameters.: &x, &y
+#
+##########################################################################*/
+
+    .global RdosGetRightButtonReleasePosition
+    
+RdosGetRightButtonReleasePosition:
+	pushl %ebp
+	movl %esp,%ebp
+
+	pushl %ecx
+	pushl %edx
+
+	UserGate get_right_button_release_position_nr
+
+	movl 8(%ebp),%eax
+	movzx %cx,%ecx
+	movl %ecx,(%eax)
+
+	movl 12(%ebp),%eax
+	movzx %dx,%edx
+	movl %edx,(%eax)
+
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadLine
+#
+#   Purpose....: Read a line from keyboard
+#
+#   Parameters.: Buffer
+#                Size
+#
+#   Returns....: Read count
+#
+##########################################################################*/
+
+    .global RdosReadLine
+    
+RdosReadLine:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movl 12(%ebp),%ecx
+	UserGate read_con_nr
+
+	popl %edi
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWriteChar
+#
+#   Purpose....: Write a character to screen
+#
+#   Parameters.: Char
+#
+##########################################################################*/
+
+    .global RdosWriteChar
+    
+RdosWriteChar:
+	pushl %ebp
+	movl %esp,%ebp
+
+	movb 8(%ebp),%al
+	UserGate write_char_nr
+
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWriteSizeString
+#
+#   Purpose....: Write a fixed number of characters to screen
+#
+#   Parameters.: String
+#                Count
+#
+##########################################################################*/
+
+    .global RdosWriteSizeString
+    
+RdosWriteSizeString:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movl 12(%ebp),%ecx
+	UserGate write_size_string_nr
+
+	popl %edi
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWriteString
+#
+#   Purpose....: Write a string to screen
+#
+#   Parameters.: String
+#
+##########################################################################*/
+
+    .global RdosWriteString
+    
+RdosWriteString:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate write_asciiz_nr
+
+	popl %edi
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosNameToIp
+#
+#   Purpose....: Convert host name to IP address
+#
+#   Parameters.: Name
+#                
+#   Returns....: IP
+#
+##########################################################################*/
+
+    .global RdosNameToIp
+    
+RdosNameToIp:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate name_to_ip_nr
+	jc rntiFail
+
+	movl %edx,%eax
+	jmp rntiDone
+
+rntiFail:
+	xorl %eax,%eax
+
+rntiDone:
+	popl %edi
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetIp
+#
+#   Purpose....: Get my IP
+#                
+#   Returns....: IP
+#
+##########################################################################*/
+
+    .global RdosGetIp
+    
+RdosGetIp:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate get_ip_address_nr
+	movl %edx,%eax
+
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosIpToName
+#
+#   Purpose....: Convert IP address to host name
+#
+#   Parameters.: IP
+#                Name                
+#                Size
+#
+##########################################################################*/
+
+    .global RdosIpToName
+    
+RdosIpToName:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+	pushl %edi
+;
+	movl 8(%ebp),%edx
+	movl 12(%ebp),%edi
+	movl 16(%ebp),%ecx
+	UserGate ip_to_name_nr
+	jnc ritnDone
+
+ritnFail:
+	xorl %eax,%eax
+
+ritnDone:
+	popl %edi
+	popl %edx
+	popl %ecx
+	leave
+	ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosPing
+#
+#   Purpose....: Ping node
+#                
+#   Parameters.: IP
+#                Timeout
+#
+##########################################################################*/
+
+    .global RdosPing
+    
+RdosPing:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edx
+;
+	movl 8(%ebp),%edx
+	movl 12(%ebp),%eax
+	UserGate ping_nr
+	jc ping_failed
+
+	movl $1,%eax
+	jmp ping_done
+
+ping_failed:
+	xorl %eax,%eax
+
+ping_done:
+	popl %edx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosOpenTcpConnection
+#
+#   Purpose....: Open an active connection over TCP
+#                
+#   Parameters.: RemoteIp
+#                LocalPort
+#                RemotePort
+#                Timeout in ms
+#                BufferSize
+#
+#   Returns....: Conn handle
+#
+##########################################################################*/
+
+    .global RdosOpenTcpConnection
+    
+RdosOpenTcpConnection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %esi
+	pushl %edi
+
+	movl 8(%ebp),%edx
+	movw 12(%ebp),%si
+	movw 16(%ebp),%di
+	movl 20(%ebp),%eax
+	movl 24(%ebp),%ecx
+	UserGate open_tcp_connection_nr
+	mov $0,%eax
+	jc rotcDone
+
+	movl %ebx,%eax
+
+rotcDone:
+	popl %edi
+	popl %esi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCreateTcpListen
+#
+#   Purpose....: Create listen handle
+#                
+#   Parameters.: Port
+#                MaxConnections
+#                BufferSize
+#
+#   Returns....: Listen handle
+#
+##########################################################################*/
+
+    .global RdosCreateTcpListen
+    
+RdosCreateTcpListen:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %esi
+
+	movw 8(%ebp),%si
+	movw 12(%ebp),%ax
+	movl 16(%ebp),%ecx
+	UserGate create_tcp_listen_nr
+	movzx %bx,%eax
+	jnc ctlDone
+
+    xorl %eax,%eax
+
+ctlDone:
+	popl %esi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetTcpListen
+#
+#   Purpose....: Get connection from listen
+#                
+#   Parameters.: Listen handle
+#
+#   Returns....: Conn handle
+#
+##########################################################################*/
+
+    .global RdosGetTcpListen
+    
+RdosGetTcpListen:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate get_tcp_listen_nr
+	movzx %ax,%eax
+	jnc gtlDone
+
+    xorl %eax,%eax
+
+gtlDone:
+    popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseTcpListen
+#
+#   Purpose....: Close TCP listen
+#                
+#   Parameters.: Listen handle
+#
+##########################################################################*/
+
+    .global RdosCloseTcpListen
+    
+RdosCloseTcpListen:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate close_tcp_listen_nr
+	
+    popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAddWaitForTcpListen
+#
+#   Purpose....: Add wait object to tcp listen
+#                
+#   Parameters.: Wait handle
+#                Listen handle
+#                ID
+#
+##########################################################################*/
+
+    .global RdosAddWaitForTcpListen
+    
+RdosAddWaitForTcpListen:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%ax
+	movl 16(%ebp),%ecx
+	UserGate add_wait_for_tcp_listen_nr
+	movl $1,%eax
+	jnc awftlDone
+
+	xorl %eax,%eax
+
+awftlDone:
+    popl %ecx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWaitForTcpConnection
+#
+#   Purpose....: Wait for Tcp connection to be established
+#                
+#   Parameters.: Conn handle
+#                Timeout ms
+#
+##########################################################################*/
+
+    .global RdosWaitForTcpConnection
+    
+RdosWaitForTcpConnection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%eax
+	UserGate wait_for_tcp_connection_nr
+	movl $1,%eax
+	jnc wftcDone
+
+	xorl %eax,%eax
+
+wftcDone:
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAddWaitForTcpConnection
+#
+#   Purpose....: Add wait object to tcp connection
+#                
+#   Parameters.: Wait handle
+#                Conn handle
+#                ID
+#
+##########################################################################*/
+
+    .global RdosAddWaitForTcpConnection
+    
+RdosAddWaitForTcpConnection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+
+	movw 8(%ebp),%bx
+	movw 12(%ebp),%ax
+	movl 16(%ebp),%ecx
+	UserGate add_wait_for_tcp_connection_nr
+	movl $1,%eax
+	jnc awftcDone
+
+	xorl %eax,%eax
+
+awftcDone:
+    popl %ecx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseTcpConnection
+#
+#   Purpose....: Close Tcp connection
+#                
+#   Parameters.: Conn handle
+#
+##########################################################################*/
+
+    .global RdosCloseTcpConnection
+    
+RdosCloseTcpConnection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate close_tcp_connection_nr
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDeleteTcpConnection
+#
+#   Purpose....: Delete Tcp connection
+#                
+#   Parameters.: Conn handle
+#
+##########################################################################*/
+
+    .global RdosDeleteTcpConnection
+    
+RdosDeleteTcpConnection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate delete_tcp_connection_nr
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAbortTcpConnection
+#
+#   Purpose....: Abort Tcp connection
+#                
+#   Parameters.: Conn handle
+#
+##########################################################################*/
+
+    .global RdosAbortTcpConnection
+    
+RdosAbortTcpConnection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate abort_tcp_connection_nr
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosPushTcpConnection
+#
+#   Purpose....: Push Tcp connection
+#                
+#   Parameters.: Conn handle
+#
+##########################################################################*/
+
+    .global RdosPushTcpConnection
+    
+RdosPushTcpConnection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate push_tcp_connection_nr
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosPollTcpConnection
+#
+#   Purpose....: Poll Tcp connection
+#                
+#   Parameters.: Conn handle
+#
+#   Returns....: Available bytes in receive buffer
+#
+##########################################################################*/
+
+    .global RdosPollTcpConnection
+    
+RdosPollTcpConnection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate poll_tcp_connection_nr
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosIsTcpConnectionClosed
+#
+#   Purpose....: Check if connection is closed
+#                
+#   Parameters.: Conn handle
+#
+#   Returns....: TRUE if closed
+#
+##########################################################################*/
+
+    .global RdosIsTcpConnectionClosed
+    
+RdosIsTcpConnectionClosed:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate is_tcp_connection_closed_nr
+	jc rptcClosed
+
+	xorl %eax,%eax
+	jmp rptcDone
+
+rptcClosed:
+	movl $1,%eax
+	
+rptcDone:
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetRemoteTcpConnectionIp
+#
+#   Purpose....: Get remote IP
+#                
+#   Parameters.: Conn handle
+#
+#   Returns....: IP
+#
+##########################################################################*/
+
+    .global RdosGetRemoteTcpConnectionIp
+    
+RdosGetRemoteTcpConnectionIp:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate get_remote_tcp_connection_ip_nr
+	jnc grtciDone
+
+	movl $0xFFFFFFFF,%eax
+	
+grtciDone:
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetRemoteTcpConnectionPort
+#
+#   Purpose....: Get remote port
+#                
+#   Parameters.: Conn handle
+#
+#   Returns....: Port
+#
+##########################################################################*/
+
+    .global RdosGetRemoteTcpConnectionPort
+    
+RdosGetRemoteTcpConnectionPort:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate get_remote_tcp_connection_port_nr
+	jnc grtcpDone
+
+	movl $0,%eax
+	
+grtcpDone:
+    movzx %ax,%eax
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetLocalTcpConnectionPort
+#
+#   Purpose....: Get local port
+#                
+#   Parameters.: Conn handle
+#
+#   Returns....: Port
+#
+##########################################################################*/
+
+    .global RdosGetLocalTcpConnectionPort
+    
+RdosGetLocalTcpConnectionPort:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movw 8(%ebp),%bx
+	UserGate get_local_tcp_connection_port_nr
+	jnc gltcpDone
+
+	movl $0,%eax
+	
+gltcpDone:
+    movzx %ax,%eax
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadTcpConnection
+#
+#   Purpose....: Read data from connection
+#                
+#   Parameters.: Conn handle
+#                Buffer
+#                Size
+#
+#   Returns....: Read bytes
+#
+##########################################################################*/
+
+    .global RdosReadTcpConnection
+    
+RdosReadTcpConnection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%edi
+	movl 16(%ebp),%ecx
+	UserGate read_tcp_connection_nr
+
+	popl %edi
+	popl %ecx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWriteTcpConnection
+#
+#   Purpose....: Write data fto connection
+#                
+#   Parameters.: Conn handle
+#                Buffer
+#                Size
+#
+#   Returns....: Written bytes
+#
+##########################################################################*/
+
+    .global RdosWriteTcpConnection
+    
+RdosWriteTcpConnection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%edi
+	movl 16(%ebp),%ecx
+	UserGate write_tcp_connection_nr
+
+	popl %edi
+	popl %ecx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetLocalMailslot
+#
+#   Purpose....: Get local mailslot from name
+#                
+#   Parameters.: Name
+#
+#   Returns....: Mailslot handle
+#
+##########################################################################*/
+
+    .global RdosGetLocalMailslot
+    
+RdosGetLocalMailslot:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate get_local_mailslot_nr
+	jc rglmFail
+
+	movzx %bx,%eax
+	jmp rglmDone
+
+rglmFail:
+	xorl %eax,%eax
+
+rglmDone:
+	popl %edi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetRemoteMailslot
+#
+#   Purpose....: Get remote mailslot from name
+#                
+#   Parameters.: IP
+#                Name
+#
+#   Returns....: Mailslot handle
+#
+##########################################################################*/
+
+    .global RdosGetRemoteMailslot
+    
+RdosGetRemoteMailslot:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edx
+	pushl %edi
+
+	movl 8(%ebp),%edx
+	movl 12(%ebp),%edi
+	UserGate get_remote_mailslot_nr
+	jc rgrmFail
+
+	movzx %bx,%eax
+	jmp rgrmDone
+
+rgrmFail:
+	xorl %eax,%eax
+
+rgrmDone:
+	popl %edi
+	popl %edx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosFreeMailslot
+#
+#   Purpose....: Free mailslot
+#                
+#   Parameters.: Mailslot handle
+#
+##########################################################################*/
+
+    .global RdosFreeMailslot
+    
+RdosFreeMailslot:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 8(%ebp),%ebx
+	UserGate free_mailslot_nr
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSendMailslot
+#
+#   Purpose....: Send mailslot
+#                
+#   Parameters.: Mailslot handle
+#				 Msg
+#				 Size
+#				 ReplyBuf
+#				 MaxReplySize
+#
+#   Returns....: Size of reply
+#
+##########################################################################*/
+
+    .global RdosSendMailslot
+    
+RdosSendMailslot:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %esi
+	pushl %edi
+
+	movw 8(%ebp),%bx
+	movl 12(%ebp),%esi
+	movl 16(%ebp),%ecx
+	movl 20(%ebp),%edi
+	movl 24(%ebp),%eax
+	UserGate send_mailslot_nr
+	jc smFail
+
+	movl %ecx,%eax
+	jmp smDone
+
+smFail:
+	movl $0xFFFFFFFF,%eax
+
+smDone:
+	popl %edi
+	popl %esi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDefineMailslot
+#
+#   Purpose....: Define mailslot
+#                
+#   Parameters.: Name
+#                Max msg size
+#
+##########################################################################*/
+
+    .global RdosDefineMailslot
+    
+RdosDefineMailslot:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movl 12(%ebp),%ecx
+	UserGate define_mailslot_nr
+
+	popl %edi
+	popl %ecx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReceiveMailslot
+#
+#   Purpose....: Receive from mailslot
+#                
+#   Parameters.: Msg buffer
+#
+#   Returns....: Msg size
+#
+##########################################################################*/
+
+    .global RdosReceiveMailslot
+    
+RdosReceiveMailslot:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	UserGate receive_mailslot_nr
+	movl %ecx,%eax
+
+	popl %edi
+	popl %ecx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReplyMailslot
+#
+#   Purpose....: Reply to mailslot
+#                
+#   Parameters.: Msg buffer
+#                Msg size
+#
+##########################################################################*/
+
+    .global RdosReplyMailslot
+    
+RdosReplyMailslot:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edi
+
+	movl 8(%ebp),%edi
+	movl 12(%ebp),%ecx
+	UserGate reply_mailslot_nr
+
+	popl %edi
+	popl %ecx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetIdeDisc
+#
+#   Purpose....: Get IDE disc
+#                
+#   Parameters.: Unit #
+#
+#   Returns....: Disc #
+#
+##########################################################################*/
+
+    .global RdosGetIdeDisc
+    
+RdosGetIdeDisc:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movb 8(%ebp),%bl
+	UserGate get_ide_disc_nr
+	jc get_ide_disc_fail
+
+    movzx %al,%eax
+	jmp get_ide_disc_done
+
+get_ide_disc_fail:
+	movl $0xFFFFFFFF,%eax
+
+get_ide_disc_done:
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetFloppyDisc
+#
+#   Purpose....: Get floppy disc
+#                
+#   Parameters.: Unit #
+#
+#   Returns....: Disc #
+#
+##########################################################################*/
+
+    .global RdosGetFloppyDisc
+    
+RdosGetFloppyDisc:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movb 8(%ebp),%bl
+	UserGate get_floppy_disc_nr
+	jc get_floppy_disc_fail
+
+    movzx %al,%eax
+	jmp get_floppy_disc_done
+
+get_floppy_disc_fail:
+	movl $0xFFFFFFFF,%eax
+
+get_floppy_disc_done:
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetDiscInfo
+#
+#   Purpose....: Get disc info
+#                
+#   Parameters.: Disc #
+#				 Bytes / sector
+#				 Total sectors
+#				 BIOS sectors / cyl
+#				 BIOS heads
+#
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosGetDiscInfo
+    
+RdosGetDiscInfo:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+
+	movb 8(%ebp),%al
+	UserGate get_disc_info_nr
+	jc get_disc_info_fail
+
+	movl 12(%ebp),%ebx
+	movzx %cx,%ecx
+	movl %ecx,(%ebx)
+
+	movl 16(%ebp),%ebx
+	movl %edx,(%ebx)
+
+	movl 20(%ebp),%ebx
+	movzx %si,%esi
+	movl %esi,(%ebx)
+
+	movl 24(%ebp),%ebx
+	movzx %di,%edi
+	movl %edi,(%ebx)
+
+	movl $1,%eax
+	jmp get_disc_info_done
+
+get_disc_info_fail:
+	xorl %eax,%eax
+
+get_disc_info_done:
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ecx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetDiscInfo
+#
+#   Purpose....: Set disc info
+#                
+#   Parameters.: Disc #
+#				 Bytes / sector
+#				 Total sectors
+#				 BIOS sectors / cyl
+#				 BIOS heads
+#
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosSetDiscInfo
+    
+RdosSetDiscInfo:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+	pushl %esi
+	pushl %edi
+
+	movb 8(%ebp),%al
+	movl 12(%ebp),%ecx
+	movl 16(%ebp),%edx
+	movl 20(%ebp),%esi
+	movl 24(%ebp),%edi
+	UserGate set_disc_info_nr
+	jc set_disc_info_fail
+
+	movl $1,%eax
+	jmp set_disc_info_done
+
+set_disc_info_fail:
+	xorl %eax,%eax
+
+set_disc_info_done:
+	popl %edi
+	popl %esi
+	popl %edx
+	popl %ecx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadDisc
+#
+#   Purpose....: Read from disc
+#                
+#   Parameters.: Disc #
+#				 Sector #
+#				 Buffer
+#				 Size
+#
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosReadDisc
+    
+RdosReadDisc:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+	pushl %edi
+
+	movb 8(%ebp),%al
+	movl 12(%ebp),%edx
+	movl 16(%ebp),%edi
+	movl 20(%ebp),%ecx
+	UserGate read_disc_nr
+	jc read_disc_fail
+
+	movl $1,%eax
+	jmp read_disc_done
+
+read_disc_fail:
+	xorl %eax,%eax
+
+read_disc_done:
+	popl %edi
+	popl %edx
+	popl %ecx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWriteDisc
+#
+#   Purpose....: Write to disc
+#                
+#   Parameters.: Disc #
+#				 Sector #
+#				 Buffer
+#				 Size
+#
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosWriteDisc
+    
+RdosWriteDisc:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+	pushl %edi
+
+	movb 8(%ebp),%al
+	movl 12(%ebp),%edx
+	movl 16(%ebp),%edi
+	movl 20(%ebp),%ecx
+	UserGate write_disc_nr
+	jc write_disc_fail
+
+	movl $1,%eax
+	jmp write_disc_done
+
+write_disc_fail:
+	xorl %eax,%eax
+
+write_disc_done:
+	popl %edi
+	popl %edx
+	popl %ecx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAllocateFixedDrive
+#
+#   Purpose....: Allocate fixed drive
+#                
+#   Parameters.: Drive #
+#
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosAllocateFixedDrive
+    
+RdosAllocateFixedDrive:
+	pushl %ebp
+	movl %esp,%ebp
+
+	movb 8(%ebp),%al
+	UserGate allocate_fixed_drive_nr
+	jc allocate_fixed_drive_fail
+
+	movl $1,%eax
+	jmp allocate_fixed_drive_done
+
+allocate_fixed_drive_fail:
+	xorl %eax,%eax
+
+allocate_fixed_drive_done:
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAllocateStaticDrive
+#
+#   Purpose....: Allocate static drive
+#                
+#   Returns....: Drive #
+#
+##########################################################################*/
+
+    .global RdosAllocateStaticDrive
+    
+RdosAllocateStaticDrive:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate allocate_static_drive_nr
+	jc allocate_static_drive_fail
+
+    movzx %al,%eax
+	jmp allocate_static_drive_done
+
+allocate_static_drive_fail:
+	xorl %eax,%eax
+
+allocate_static_drive_done:
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAllocateDynamicDrive
+#
+#   Purpose....: Allocate dynamic drive
+#                
+#   Returns....: Drive #
+#
+##########################################################################*/
+
+    .global RdosAllocateDynamicDrive
+    
+RdosAllocateDynamicDrive:
+	pushl %ebp
+	movl %esp,%ebp
+
+	UserGate allocate_dynamic_drive_nr
+	jc allocate_dynamic_drive_fail
+
+    movzx %al,%eax
+	jmp allocate_dynamic_drive_done
+
+allocate_dynamic_drive_fail:
+	xorl %eax,%eax
+
+allocate_dynamic_drive_done:
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetRdfsInfo
+#
+#   Purpose....: Get rdfs info
+#                
+#   Parameters.: Crypt tab
+#                Key tab
+#                Extent size tab
+#
+##########################################################################*/
+
+    .global RdosGetRdfsInfo
+    
+RdosGetRdfsInfo:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %esi
+	pushl %edi
+
+	movl 8(%ebp),%esi
+	movl 12(%ebp),%edi
+	movl 16(%ebp),%ebx
+	UserGate get_rdfs_info_nr
+
+	popl %edi
+	popl %esi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetDriveInfo
+#
+#   Purpose....: Get drive info
+#                
+#   Parameters.: Drive #
+#                Free units
+#                Bytes per unit
+#                Total units
+#
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosGetDriveInfo
+    
+RdosGetDriveInfo:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+
+	movb 8(%ebp),%al
+	UserGate get_drive_info_nr
+	jc get_drive_info_fail
+
+	movl 12(%ebp),%ebx
+	movl %eax,(%ebx)
+
+	movl 16(%ebp),%ebx
+	movzx %cx,%ecx
+	movl %ecx,(%ebx)
+
+	movl 20(%ebp),%ebx
+	movl %edx,(%ebx)
+
+	movl $1,%eax
+	jmp get_drive_info_done
+
+get_drive_info_fail:
+	xorl %eax,%eax
+
+get_drive_info_done:
+	popl %edx
+	popl %ecx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDemandLoadDrive
+#
+#   Purpose....: Demand load drive
+#                
+#   Parameters.: Drive #
+#
+##########################################################################*/
+
+    .global RdosDemandLoadDrive
+    
+RdosDemandLoadDrive:
+	pushl %ebp
+	movl %esp,%ebp
+
+	movb 8(%ebp),%al
+	UserGate demand_load_drive_nr
+
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetDriveDiscParam
+#
+#   Purpose....: Get drive disc parameters
+#                
+#   Parameters.: Drive #
+#                Disc #
+#                Start sector
+#                Total sectors
+#
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosGetDriveDiscParam
+    
+RdosGetDriveDiscParam:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %edx
+
+	movb 8(%ebp),%al
+	UserGate get_drive_disc_param_nr
+	jc get_drive_disc_param_fail
+
+	movl 12(%ebp),%ebx
+	movzx %al,%eax
+	movl %eax,(%ebx)
+
+	movl 16(%ebp),%ebx
+	movl %edx,(%ebx)
+
+	movl 20(%ebp),%ebx
+	movl %ecx,(%ebx)
+
+	movl $1,%eax
+	jmp get_drive_disc_param_done
+
+get_drive_disc_param_fail:
+	xorl %eax,%eax
+
+get_drive_disc_param_done:
+	popl %edx
+	popl %ecx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosFormatDrive
+#
+#   Purpose....: Format drive
+#                
+#   Parameters.: Disc #
+#                Start sector
+#                Sectors
+#                FS name
+#
+#   Returns....: Drive #
+#
+##########################################################################*/
+
+    .global RdosFormatDrive
+    
+RdosFormatDrive:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %edx
+	pushl %edi
+
+	movb 8(%ebp),%al
+	movl 12(%ebp),%edx
+	movl 16(%ebp),%ecx
+	movl 20(%ebp),%edi
+	UserGate format_drive_nr
+	jc rfdFail
+
+    movzx %al,%eax
+    jmp rfdDone
+
+rfdFail:
+    xorl %eax,%eax
+
+rfdDone:
+	popl %edi
+	popl %edx
+	popl %ecx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetExeName
+#
+#   Purpose....: Get name of executable file
+#
+#   Returns....: Exe pathname
+#
+##########################################################################*/
+
+    .global RdosGetExeName
+    
+RdosGetExeName:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edi
+
+	UserGate get_exe_name_nr
+	jc rgenFail
+
+    movl %edi,%eax
+    jmp rgenDone
+
+rgenFail:
+    xorl %eax,%eax
+
+rgenDone:
+	popl %edi
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosOpenAdc
+#
+#   Purpose....: Open handle to ADC channel
+#
+#   Parameters.: Channel #
+#
+#   Returns....: Adc handle
+#
+##########################################################################*/
+
+    .global RdosOpenAdc
+    
+RdosOpenAdc:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 8(%ebp),%eax
+	UserGate open_adc_nr
+	movw %bx,%ax
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseAdc
+#
+#   Purpose....: Close ADC handle
+#
+#   Parameters.: Adc handle
+#
+##########################################################################*/
+
+    .global RdosCloseAdc
+    
+RdosCloseAdc:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 8(%ebp),%ebx
+	UserGate close_adc_nr
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDefineAdcTime
+#
+#   Purpose....: Define time of next conversion
+#
+#   Parameters.: Adc handle
+#                MSB time
+#                LSB time
+#
+##########################################################################*/
+
+    .global RdosDefineAdcTime
+    
+RdosDefineAdcTime:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edx
+
+	movl 8(%ebp),%ebx
+	movl 12(%ebp),%edx
+	movl 16(%ebp),%eax
+	UserGate define_adc_time_nr
+
+    popl %edx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadAdc
+#
+#   Purpose....: Read ADC
+#
+#   Parameters.: Adc handle
+#                
+#   Returns....: Value
+#
+##########################################################################*/
+
+    .global RdosReadAdc
+    
+RdosReadAdc:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 8(%ebp),%ebx
+	UserGate read_adc_nr
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadSerialLines
+#
+#   Purpose....: Read serial lines
+#
+#   Parameters.: Device
+#                &Value
+#                
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosReadSerialLines
+    
+RdosReadSerialLines:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edx
+	pushl %esi
+
+	movb 8(%ebp),%dh
+	UserGate read_serial_lines_nr
+	jc rdsFail
+
+	movzx %al,%eax
+	movl 12(%ebp),%esi
+	movl %eax,(%esi)
+	movl $1,%eax
+	jmp rdsDone
+
+rdsFail:
+	xorl %eax,%eax
+
+rdsDone:
+	popl %esi
+	popl %edx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosToggleSerialLine
+#
+#   Purpose....: Toggle serial line
+#
+#   Parameters.: Device
+#                Line
+#                
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosToggleSerialLine
+    
+RdosToggleSerialLine:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edx
+
+	movb 8(%ebp),%dh
+	movb 12(%ebp),%dl
+	UserGate toggle_serial_line_nr
+	jc rtsFail
+
+	movl $1,%eax
+	jmp rtsDone
+
+rtsFail:
+	xorl %eax,%eax
+
+rtsDone:
+	popl %edx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadSerialVal
+#
+#   Purpose....: Read serial value
+#
+#   Parameters.: Device
+#                Line
+#                &Val
+#                
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosReadSerialVal
+    
+RdosReadSerialVal:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edx
+	pushl %esi
+
+	movb 8(%ebp),%dh
+	movb 12(%ebp),%dl
+	UserGate read_serial_val_nr
+
+    pushfw
+	shll $8,%eax
+	movl 16(%ebp),%esi
+	movl %eax,(%esi)
+    popfw
+	jc rdvFail
+
+	movl $1,%eax
+	jmp rdvDone
+
+rdvFail:
+	xorl %eax,%eax
+
+rdvDone:
+	popl %esi
+	popl %edx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWriteSerialVal
+#
+#   Purpose....: Write serial value
+#
+#   Parameters.: Device
+#                Line
+#                Val
+#                
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosWriteSerialVal
+    
+RdosWriteSerialVal:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edx
+
+	movb 8(%ebp),%dh
+	movb 12(%ebp),%dl
+	movl 16(%ebp),%eax
+	sarl $8,%eax
+	UserGate write_serial_val_nr
+	jc rwvFail
+
+	movl $1,%eax
+	jmp rwvDone
+
+rwvFail:
+	xorl %eax,%eax
+
+rwvDone:
+	popl %edx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadSerialRaw
+#
+#   Purpose....: Read serial raw value
+#
+#   Parameters.: Device
+#                Line
+#                &Val
+#                
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosReadSerialRaw
+    
+RdosReadSerialRaw:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edx
+	pushl %esi
+
+	movb 8(%ebp),%dh
+	movb 12(%ebp),%dl
+	UserGate read_serial_val_nr
+
+    pushfw
+	movl 16(%ebp),%esi
+	movl %eax,(%esi)
+    popfw
+	jc rdrFail
+
+	movl $1,%eax
+	jmp rdrDone
+
+rdrFail:
+	xorl %eax,%eax
+
+rdrDone:
+	popl %esi
+	popl %edx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWriteSerialRaw
+#
+#   Purpose....: Write serial raw value
+#
+#   Parameters.: Device
+#                Line
+#                Val
+#                
+#   Returns....: TRUE if ok
+#
+##########################################################################*/
+
+    .global RdosWriteSerialRaw
+    
+RdosWriteSerialRaw:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edx
+
+	movb 8(%ebp),%dh
+	movb 12(%ebp),%dl
+	movl 16(%ebp),%eax
+	UserGate write_serial_val_nr
+	jc rwrFail
+
+	movl $1,%eax
+	jmp rwrDone
+
+rwrFail:
+	xorl %eax,%eax
+
+rwrDone:
+	popl %edx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosOpenSysEnv
+#
+#   Purpose....: Open system environment
+#                
+#   Returns....: Env handle
+#
+##########################################################################*/
+
+    .global RdosOpenSysEnv
+    
+RdosOpenSysEnv:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	UserGate open_sys_env_nr
+	jc oseFail
+
+	movzx %bx,%eax
+	jmp oseDone
+
+oseFail:
+	xorl %eax,%eax
+
+oseDone:
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosOpenProcessEnv
+#
+#   Purpose....: Open process environment
+#                
+#   Returns....: Env handle
+#
+##########################################################################*/
+
+    .global RdosOpenProcessEnv
+    
+RdosOpenProcessEnv:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	UserGate open_proc_env_nr
+	jc opeFail
+
+	movzx %bx,%eax
+	jmp opeDone
+
+opeFail:
+	xorl %eax,%eax
+
+opeDone:
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseEnv
+#
+#   Purpose....: Close environment
+#
+#   Parameters.: Env handle
+#
+##########################################################################*/
+
+    .global RdosCloseEnv
+    
+RdosCloseEnv:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 8(%ebp),%ebx
+	UserGate close_env_nr
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosAddEnvVar
+#
+#   Purpose....: Add environment variable
+#
+#   Parameters.: Env handle
+#                var
+#                data
+#
+##########################################################################*/
+
+    .global RdosAddEnvVar
+    
+RdosAddEnvVar:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %esi
+	pushl %edi
+
+	movl 8(%ebp),%ebx
+	movl 12(%ebp),%esi
+	movl 16(%ebp),%edi
+	UserGate add_env_var_nr
+
+	popl %edi
+	popl %esi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDeleteEnvVar
+#
+#   Purpose....: Delete environment variable
+#
+#   Parameters.: Env handle
+#                var
+#
+##########################################################################*/
+
+    .global RdosDeleteEnvVar
+    
+RdosDeleteEnvVar:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %esi
+
+	movl 8(%ebp),%ebx
+	movl 12(%ebp),%esi
+	UserGate delete_env_var_nr
+
+	popl %esi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosFindEnvVar
+#
+#   Purpose....: Find environment variable
+#
+#   Parameters.: Env handle
+#                var
+#                data
+#
+##########################################################################*/
+
+    .global RdosFindEnvVar
+    
+RdosFindEnvVar:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %esi
+	pushl %edi
+
+	movl 8(%ebp),%ebx
+	movl 12(%ebp),%esi
+	movl 16(%ebp),%edi
+	UserGate find_env_var_nr
+	jc fevFail
+
+	movl $1,%eax
+	jmp fevDone
+
+fevFail:
+	xorl %eax,%eax
+
+fevDone:
+	popl %edi
+	popl %esi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGetEnvData
+#
+#   Purpose....: Get raw environment data
+#
+#   Parameters.: Env handle
+#                data
+#
+##########################################################################*/
+
+    .global RdosGetEnvData
+    
+RdosGetEnvData:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edi
+
+	movl 8(%ebp),%ebx
+	movl 12(%ebp),%edi
+	UserGate get_env_data_nr
+	jnc gedDone
+
+	xorw %ax,%ax
+	stosw
+
+gedDone:
+	popl %edi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosSetEnvData
+#
+#   Purpose....: Set raw environment data
+#
+#   Parameters.: Env handle
+#                data
+#
+##########################################################################*/
+
+    .global RdosSetEnvData
+    
+RdosSetEnvData:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edi
+
+	movl 8(%ebp),%ebx
+	movl 12(%ebp),%edi
+	UserGate set_env_data_nr
+
+	popl %edi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosOpenSysIni
+#
+#   Purpose....: Open system ini-file
+#
+#   Returns....: Ini handle
+#
+##########################################################################*/
+
+    .global RdosOpenSysIni
+    
+RdosOpenSysIni:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	UserGate open_sys_ini_nr
+	jc osiFail
+
+	movzx %bx,%eax
+	jmp osiDone
+
+osiFail:
+	xorl %eax,%eax
+
+osiDone:
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCloseIni
+#
+#   Purpose....: Close ini-file
+#
+#   Parameters.: Ini handle
+#
+##########################################################################*/
+
+    .global RdosCloseIni
+    
+RdosCloseIni:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 8(%ebp),%ebx
+	UserGate close_ini_nr
+
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosGotoIniSection
+#
+#   Purpose....: Goto ini section
+#
+#   Parameters.: Ini handle
+#                SectionName
+#
+##########################################################################*/
+
+    .global RdosGotoIniSection
+    
+RdosGotoIniSection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %edi
+
+	movl 8(%ebp),%ebx
+	movl 12(%ebp),%edi
+	UserGate goto_ini_section_nr
+	jc gisFail
+
+	movl $1,%eax
+	jmp gisDone
+
+gisFail:
+	xorl %eax,%eax
+
+gisDone:
+	popl %edi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosRemoveIniSection
+#
+#   Purpose....: Remove current ini section
+#
+#   Parameters.: Ini handle
+#
+##########################################################################*/
+
+    .global RdosRemoveIniSection
+    
+RdosRemoveIniSection:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+
+	movl 8(%ebp),%ebx
+	UserGate remove_ini_section_nr
+	jc risFail
+
+	movl $1,%eax
+	jmp risDone
+
+risFail:
+	xorl %eax,%eax
+
+risDone:
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosReadIni
+#
+#   Purpose....: Read ini var in current section
+#
+#   Parameters.: Ini handle
+#                VarName
+#                Data
+#                MaxSize
+#
+##########################################################################*/
+
+    .global RdosReadIni
+    
+RdosReadIni:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %ecx
+	pushl %esi
+	pushl %edi
+
+	movl 8(%ebp),%ebx
+	movl 12(%ebp),%esi
+	movl 16(%ebp),%edi
+	movl 20(%ebp),%ecx
+	UserGate read_ini_nr
+	jc riFail
+
+	movl $1,%eax
+	jmp riDone
+
+riFail:
+	xorl %eax,%eax
+
+riDone:
+	popl %edi
+	popl %esi
+	popl %ecx
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosWriteIni
+#
+#   Purpose....: Write ini var in current section
+#
+#   Parameters.: Ini handle
+#                VarName
+#                Data
+#
+##########################################################################*/
+
+    .global RdosWriteIni
+    
+RdosWriteIni:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %esi
+	pushl %edi
+
+	movl 8(%ebp),%ebx
+	movl 12(%ebp),%esi
+	movl 16(%ebp),%edi
+	UserGate write_ini_nr
+	jc wiFail
+
+	movl $1,%eax
+	jmp wiDone
+
+wiFail:
+	xorl %eax,%eax
+
+wiDone:
+	popl %edi
+	popl %esi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDeleteIni
+#
+#   Purpose....: Delete ini var in current section
+#
+#   Parameters.: Ini handle
+#                VarName
+#
+##########################################################################*/
+
+    .global RdosDeleteIni
+    
+RdosDeleteIni:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ebx
+	pushl %esi
+
+	movl 8(%ebp),%ebx
+	movl 12(%ebp),%esi
+	UserGate delete_ini_nr
+	jc diFail
+
+	movl $1,%eax
+	jmp diDone
+
+diFail:
+	xorl %eax,%eax
+
+diDone:
+	popl %esi
+	popl %ebx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosCreateFileDrive
+#
+#   Purpose....: Create a new file-drive
+#
+#   Parameters.: Drive
+#                Size
+#                FS name
+#                Filename
+#
+##########################################################################*/
+
+    .global RdosCreateFileDrive
+    
+RdosCreateFileDrive:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %ecx
+	pushl %esi
+	pushl %edi
+
+	movb 8(%ebp),%al
+	movl 12(%ebp),%ecx
+	movl 16(%ebp),%esi
+	movl 20(%ebp),%edi
+	UserGate create_file_drive_nr
+	jnc cfdOk
+
+    xorl %eax,%eax
+    jmp cfdDone
+
+cfdOk:
+	movl $1,%eax
+
+cfdDone:
+	popl %edi
+	popl %esi
+	popl %ecx
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosOpenFileDrive
+#
+#   Purpose....: Open a new file-drive
+#
+#   Parameters.: Drive
+#                Filename
+#
+##########################################################################*/
+
+    .global RdosOpenFileDrive
+    
+RdosOpenFileDrive:
+	pushl %ebp
+	movl %esp,%ebp
+	pushl %edi
+
+	movb 8(%ebp),%al
+	movl 12(%ebp),%edi
+	UserGate open_file_drive_nr
+	jnc ofdOk
+
+	xorl %eax,%eax
+	jmp ofdDone
+
+ofdOk:
+	movl $1,%eax
+
+ofdDone:
+	popl %edi
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosEnableStatusLed
+#
+#   Purpose....: Enable status LED
+#
+##########################################################################*/
+
+    .global RdosEnableStatusLed
+    
+RdosEnableStatusLed:
+	pushl %ebp
+	movl %esp,%ebp
+	UserGate enable_status_led_nr
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosDisableStatusLed
+#
+#   Purpose....: Disable status LED
+#
+##########################################################################*/
+
+    .global RdosDisableStatusLed
+    
+RdosDisableStatusLed:
+	pushl %ebp
+	movl %esp,%ebp
+	UserGate disable_status_led_nr
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosStartWatchdog
+#
+#   Purpose....: Start watchdog
+#
+#   Parameters.: Timeout, ms
+#
+##########################################################################*/
+
+    .global RdosStartWatchdog
+    
+RdosStartWatchdog:
+	pushl %ebp
+	movl %esp,%ebp
+;
+	movl 8(%ebp),%eax
+	UserGate start_watchdog_nr
+;	
+    leave
+    ret
+					    					    
+/*##########################################################################
+#
+#   Name       : RdosKickWatchdog
+#
+#   Purpose....: Kick watchdog
+#
+##########################################################################*/
+
+    .global RdosKickWatchdog
+    
+RdosKickWatchdog:
+	pushl %ebp
+	movl %esp,%ebp
+	UserGate kick_watchdog_nr
+    leave
+    ret
+