Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

rdos.S @ 444

Last change on this file since 444 was 444, checked in by satin@…, 6 years ago
add newlib,libalmos-mkh, restructure shared_syscalls.h and mini-libc
File size: 130.6 KB

Line
1	/*#######################################################################
2	# RDOS operating system
3	# Copyright (C) 1988-2006, Leif Ekblad
4	#
5	# This library is free software; you can redistribute it and/or modify
6	# it under the terms of the GNU Lesser General Public License as published
7	# by the Free Software Foundation; either version 2.1 of the License, or
8	# (at your option) any later version.
9	#
10	# This library is distributed in the hope that it will be useful,
11	# but WITHOUT ANY WARRANTY; without even the implied warranty of
12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13	# GNU Lesser General Public License for more details.
14	#
15	# You should have received a copy of the GNU Lesser General Public
16	# License along with this library; if not, write to the Free Software
17	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18	#
19	# The author of this program may be contacted at leif@rdos.net
20	#
21	# rdos.S
22	# GCC based interface to RDOS kernel
23	#
24	##########################################################################*/
25
26	#include "user.def"
27
28	.macro UserGate nr
29	.byte 0x9A
30	.long \nr
31	.word 2
32	.endm
33
34	/*##########################################################################
35	#
36	# Name : RdosSwapShort
37	#
38	# Purpose....: Byte reverse a short int
39	#
40	# Returns....: Result
41	#
42	##########################################################################*/
43
44	.global RdosSwapShort
45
46	RdosSwapShort:
47	pushl %ebp
48	movl %esp,%ebp
49	movw 8(%ebp),%ax
50	xchgb %ah,%al
51	leave
52	ret
53
54
55	/*##########################################################################
56	#
57	# Name : RdosSwapLong
58	#
59	# Purpose....: Byte reverse a long int
60	#
61	# Returns....: Result
62	#
63	##########################################################################*/
64
65	.global RdosSwapLong
66
67	RdosSwapLong:
68	pushl %ebp
69	movl %esp,%ebp
70	movl 8(%ebp),%eax
71	xchgb %ah,%al
72	roll $16,%eax
73	xchgb %ah,%al
74	leave
75	ret
76
77
78	/*##########################################################################
79	#
80	# Name : LocalToNetworkLong
81	#
82	# Purpose....: Convert a local long to network format
83	#
84	# Returns....: Network format
85	#
86	##########################################################################*/
87
88	.global LocalToNetworkLong
89
90	LocalToNetworkLong:
91	pushl %ebp
92	movl %esp,%ebp
93	movl 8(%ebp),%eax
94	xchgb %ah,%al
95	roll $16,%eax
96	xchgb %ah,%al
97	leave
98	ret
99
100	/*##########################################################################
101	#
102	# Name : NetworkToLocalLong
103	#
104	# Purpose....: Convert a network long to local format
105	#
106	# Returns....: Local format
107	#
108	##########################################################################*/
109
110	.global NetworkToLocalLong
111
112	NetworkToLocalLong:
113	pushl %ebp
114	movl %esp,%ebp
115	movl 8(%ebp),%eax
116	xchgb %ah,%al
117	roll $16,%eax
118	xchgb %ah,%al
119	leave
120	ret
121
122	/*##########################################################################
123	#
124	# Name : RdosGetThreadHandle
125	#
126	# Purpose....: Get current thread handle
127	#
128	# Returns....: Thread ID
129	#
130	##########################################################################*/
131
132	.global RdosGetThreadHandle
133
134	RdosGetThreadHandle:
135	pushl %ebp
136	movl %esp,%ebp
137	UserGate get_thread_nr
138	movzx %ax,%eax
139	leave
140	ret
141
142	/*##########################################################################
143	#
144	# Name : RdosGetThreadState
145	#
146	# Purpose....: Get thread state
147	#
148	# Parameters.: Thread #
149	# State buffer
150	#
151	##########################################################################*/
152
153	.global RdosGetThreadState
154
155	RdosGetThreadState:
156	pushl %ebp
157	movl %esp,%ebp
158	push %edi
159
160	movl 8(%ebp),%eax
161	movl 12(%ebp),%edx
162	UserGate get_thread_state_nr
163	jc rgtsFail
164
165	movl $1,%eax
166	jmp rgtsDone
167
168	rgtsFail:
169	xorl %eax,%eax
170
171	rgtsDone:
172	popl %edi
173	leave
174	ret
175
176	/*##########################################################################
177	#
178	# Name : RdosSuspendThread
179	#
180	# Purpose....: Suspend thread
181	#
182	# Parameters.: Thread #
183	#
184	##########################################################################*/
185
186	.global RdosSuspendThread
187
188	RdosSuspendThread:
189	pushl %ebp
190	movl %esp,%ebp
191
192	movl 8(%ebp),%eax
193	UserGate suspend_thread_nr
194	jc rsfFail
195
196	movl $1,%eax
197	jmp rsfDone
198
199	rsfFail:
200	xorl %eax,%eax
201
202	rsfDone:
203	leave
204	ret
205
206
207	/*##########################################################################
208	#
209	# Name : RdosExec
210	#
211	# Purpose....: Execute a program
212	#
213	# Parameters.: Program
214	# Commandline
215	#
216	##########################################################################*/
217
218	.global RdosExec
219
220	RdosExec:
221	pushl %ebp
222	movl %esp,%ebp
223	pushl %esi
224	pushl %edi
225
226	movl 8(%ebp),%esi
227	movl 12(%ebp),%edi
228
229	UserGate load_exe_nr
230	UserGate get_exit_code_nr
231
232	popl %edi
233	popl %esi
234	leave
235	ret
236
237	/*##########################################################################
238	#
239	# Name : RdosSpawn
240	#
241	# Purpose....: Create new process and run a program
242	#
243	# Parameters.: Program
244	# Commandline
245	# StartDir
246	#
247	##########################################################################*/
248
249	.global RdosSpawn
250
251	RdosSpawn:
252	pushl %ebp
253	movl %esp,%ebp
254	pushl %fs
255	pushl %ebx
256	pushl %edx
257	pushl %esi
258	pushl %edi
259
260	movw %ds,%dx
261	movw %dx,%fs
262	xorl %edx,%edx
263	movl 8(%ebp),%esi
264	movl 12(%ebp),%edi
265	movl 16(%ebp),%ebx
266	UserGate spawn_exe_nr
267	jc rsFail
268
269	movzx %dx,%eax
270	jmp rsDone
271
272	rsFail:
273	xorl %eax,%eax
274
275	rsDone:
276	popl %edi
277	popl %esi
278	popl %edx
279	popl %ebx
280	popw %fs
281	leave
282	ret
283
284	/*##########################################################################
285	#
286	# Name : RdosCpuReset
287	#
288	# Purpose....: Cpu reset
289	#
290	##########################################################################*/
291
292	.global RdosCpuReset
293
294	RdosCpuReset:
295	pushl %ebp
296	movl %esp,%ebp
297	UserGate cpu_reset_nr
298	leave
299	ret
300
301	/*##########################################################################
302	#
303	# Name : RdosGetVersion
304	#
305	# Purpose....: Get RDOS version
306	#
307	# Parameters.: &major
308	# &minor
309	# &release
310	#
311	##########################################################################*/
312
313	.global RdosGetVersion
314
315	RdosGetVersion:
316	pushl %ebp
317	movl %esp,%ebp
318	pushl %eax
319	pushl %ecx
320	pushl %edx
321	pushl %edi
322
323	UserGate get_version_nr
324
325	movzx %dx,%edx
326	movl 8(%ebp),%edi
327	movl %edx,(%edi)
328
329	movzx %ax,%eax
330	movl 12(%ebp),%edi
331	movl %eax,(%edi)
332
333	movzx %cx,%eax
334	movl 16(%ebp),%edi
335	movl %eax,(%edi)
336
337	popl %edi
338	popl %edx
339	popl %ecx
340	popl %eax
341	leave
342	ret
343
344	/*##########################################################################
345	#
346	# Name : RdosAllocateMem
347	#
348	# Purpose....: Allocate memory
349	#
350	# Parameters.: Bytes to allocate
351	#
352	# Returns....: Memory pointer
353	#
354	##########################################################################*/
355
356	.global RdosAllocateMem
357
358	RdosAllocateMem:
359	pushl %ebp
360	movl %esp,%ebp
361	pushl %edx
362
363	movl 8(%ebp),%eax
364	UserGate allocate_app_mem_nr
365	movl %edx,%eax
366
367	popl %edx
368	leave
369	ret
370
371	/*##########################################################################
372	#
373	# Name : RdosFreeMem
374	#
375	# Purpose....: Free memory
376	#
377	# Parameters.: Memory pointer
378	#
379	##########################################################################*/
380
381	.global RdosFreeMem
382
383	RdosFreeMem:
384	pushl %ebp
385	movl %esp,%ebp
386	pushl %edx
387
388	movl 8(%ebp),%edx
389	UserGate free_app_mem_nr
390
391	popl %edx
392	leave
393	ret
394
395	/*##########################################################################
396	#
397	# Name : RdosAppDebug
398	#
399	# Purpose....: App debug
400	#
401	##########################################################################*/
402
403	.global RdosAppDebug
404
405	RdosAppDebug:
406	pushl %ebp
407	movl %esp,%ebp
408	UserGate app_debug_nr
409	leave
410	ret
411
412	/*##########################################################################
413	#
414	# Name : RdosWaitMilli
415	#
416	# Purpose....: Wait a number of milliseconds
417	#
418	# Parameters.: Milliseconds to wait
419	#
420	##########################################################################*/
421
422	.global RdosWaitMilli
423
424	RdosWaitMilli:
425	pushl %ebp
426	movl %esp,%ebp
427	pushl %eax
428
429	movl 8(%ebp),%eax
430	UserGate wait_milli_nr
431
432	popl %eax
433	leave
434	ret
435
436	/*##########################################################################
437	#
438	# Name : RdosCreateSection
439	#
440	# Purpose....: Create section
441	#
442	# Returns....: Section handle
443	#
444	##########################################################################*/
445
446	.global RdosCreateSection
447
448	RdosCreateSection:
449	pushl %ebp
450	movl %esp,%ebp
451	pushl %ebx
452
453	UserGate create_user_section_nr
454	movzx %bx,%eax
455
456	popl %ebx
457	leave
458	ret
459
460	/*##########################################################################
461	#
462	# Name : RdosDeleteSection
463	#
464	# Purpose....: Delete section
465	#
466	# Parameters.: Section handle
467	#
468	##########################################################################*/
469
470	.global RdosDeleteSection
471
472	RdosDeleteSection:
473	pushl %ebp
474	movl %esp,%ebp
475	pushl %ebx
476
477	movw 8(%ebp),%bx
478	UserGate delete_user_section_nr
479
480	popl %ebx
481	leave
482	ret
483
484	/*##########################################################################
485	#
486	# Name : RdosEnterSection
487	#
488	# Purpose....: Enter section
489	#
490	# Parameters.: Section handle
491	#
492	##########################################################################*/
493
494	.global RdosEnterSection
495
496	RdosEnterSection:
497	pushl %ebp
498	movl %esp,%ebp
499	pushl %ebx
500
501	movw 8(%ebp),%bx
502	UserGate enter_user_section_nr
503
504	popl %ebx
505	leave
506	ret
507
508	/*##########################################################################
509	#
510	# Name : RdosLeaveSection
511	#
512	# Purpose....: Leave section
513	#
514	# Parameters.: Section handle
515	#
516	##########################################################################*/
517
518	.global RdosLeaveSection
519
520	RdosLeaveSection:
521	pushl %ebp
522	movl %esp,%ebp
523	pushl %ebx
524
525	movw 8(%ebp),%bx
526	UserGate leave_user_section_nr
527
528	popl %ebx
529	leave
530	ret
531
532	/*##########################################################################
533	#
534	# Name : RdosCreateWait
535	#
536	# Purpose....: Create wait object
537	#
538	# Returns....: Wait handle
539	#
540	##########################################################################*/
541
542	.global RdosCreateWait
543
544	RdosCreateWait:
545	pushl %ebp
546	movl %esp,%ebp
547	pushl %ebx
548
549	UserGate create_wait_nr
550	movzx %bx,%eax
551
552	popl %ebx
553	leave
554	ret
555
556	/*##########################################################################
557	#
558	# Name : RdosCloseWait
559	#
560	# Purpose....: Close wait
561	#
562	# Parameters.: Wait handle
563	#
564	##########################################################################*/
565
566	.global RdosCloseWait
567
568	RdosCloseWait:
569	pushl %ebp
570	movl %esp,%ebp
571	pushl %ebx
572
573	movw 8(%ebp),%bx
574	UserGate close_wait_nr
575
576	popl %ebx
577	leave
578	ret
579
580	/*##########################################################################
581	#
582	# Name : RdosCheckWait
583	#
584	# Purpose....: Check wait state
585	#
586	# Parameters.: Wait handle
587	#
588	# Returns....: Signalled ID or 0
589	#
590	##########################################################################*/
591
592	.global RdosCheckWait
593
594	RdosCheckWait:
595	pushl %ebp
596	movl %esp,%ebp
597	pushl %ebx
598	pushl %ecx
599
600	movw 8(%ebp),%bx
601	UserGate is_wait_idle_nr
602	movl %ecx,%eax
603
604	popl %ecx
605	popl %ebx
606	leave
607	ret
608
609	/*##########################################################################
610	#
611	# Name : RdosWaitForever
612	#
613	# Purpose....: Wait forever
614	#
615	# Parameters.: Wait handle
616	#
617	# Returns....: Signalled ID or 0
618	#
619	##########################################################################*/
620
621	.global RdosWaitForever
622
623	RdosWaitForever:
624	pushl %ebp
625	movl %esp,%ebp
626	pushl %ebx
627	pushl %ecx
628
629	movw 8(%ebp),%bx
630	UserGate wait_no_timeout_nr
631	jc rwfFail
632
633	movl %ecx,%eax
634	jmp rwfDone
635
636	rwfFail:
637	xorl %eax,%eax
638
639	rwfDone:
640	popl %ecx
641	popl %ebx
642	leave
643	ret
644
645	/*##########################################################################
646	#
647	# Name : RdosWaitTimeout
648	#
649	# Purpose....: Wait with timeout
650	#
651	# Parameters.: Wait handle
652	# Timeout in ms
653	#
654	# Returns....: Signalled ID or 0
655	#
656	##########################################################################*/
657
658	.global RdosWaitTimeout
659
660	RdosWaitTimeout:
661	pushl %ebp
662	movl %esp,%ebp
663	pushl %ebx
664	pushl %ecx
665	pushl %edx
666
667	movl 12(%ebp),%eax
668	movl $1193,%edx
669	mull %edx
670	pushl %edx
671	pushl %eax
672	UserGate get_system_time_nr
673	popl %ebx
674	addl %ebx,%eax
675	popl %ebx
676	adcl %ebx,%edx
677	movw 8(%ebp),%bx
678	UserGate wait_timeout_nr
679	jc rwtFail
680
681	movl %ecx,%eax
682	jmp rwtDone
683
684	rwtFail:
685	xorl %eax,%eax
686
687	rwtDone:
688	popl %edx
689	popl %ecx
690	popl %ebx
691	leave
692	ret
693
694	/*##########################################################################
695	#
696	# Name : RdosStopWait
697	#
698	# Purpose....: Stop wait
699	#
700	# Parameters.: Wait handle
701	#
702	##########################################################################*/
703
704	.global RdosStopWait
705
706	RdosStopWait:
707	pushl %ebp
708	movl %esp,%ebp
709	pushl %ebx
710
711	movw 8(%ebp),%bx
712	UserGate stop_wait_nr
713
714	popl %ebx
715	leave
716	ret
717
718	/*##########################################################################
719	#
720	# Name : RdosRemoveWait
721	#
722	# Purpose....: Remove wait object from wait handle
723	#
724	# Parameters.: Wait handle
725	# ID
726	#
727	##########################################################################*/
728
729	.global RdosRemoveWait
730
731	RdosRemoveWait:
732	pushl %ebp
733	movl %esp,%ebp
734	pushl %ebx
735	pushl %ecx
736
737	movw 8(%ebp),%bx
738	movl 12(%ebp),%ecx
739	UserGate remove_wait_nr
740
741	popl %ecx
742	popl %ebx
743	leave
744	ret
745
746	/*##########################################################################
747	#
748	# Name : RdosCreateSignal
749	#
750	# Purpose....: Create signal object
751	#
752	# Returns....: Signal handle
753	#
754	##########################################################################*/
755
756	.global RdosCreateSignal
757
758	RdosCreateSignal:
759	pushl %ebp
760	movl %esp,%ebp
761	pushl %ebx
762
763	UserGate create_signal_nr
764	movzx %bx,%eax
765
766	popl %ebx
767	leave
768	ret
769
770	/*##########################################################################
771	#
772	# Name : RdosResetSignal
773	#
774	# Purpose....: Reset signal
775	#
776	# Parameters.: Signal handle
777	#
778	##########################################################################*/
779
780	.global RdosResetSignal
781
782	RdosResetSignal:
783	pushl %ebp
784	movl %esp,%ebp
785	pushl %ebx
786
787	movw 8(%ebp),%bx
788	UserGate reset_signal_nr
789
790	popl %ebx
791	leave
792	ret
793
794	/*##########################################################################
795	#
796	# Name : RdosIsSignalled
797	#
798	# Purpose....: Check if signalled
799	#
800	# Parameters.: Signal handle
801	#
802	# Returns....: TRUE if signalled
803	#
804	##########################################################################*/
805
806	.global RdosIsSignalled
807
808	RdosIsSignalled:
809	pushl %ebp
810	movl %esp,%ebp
811	pushl %ebx
812
813	movw 8(%ebp),%bx
814	UserGate is_signalled_nr
815	jc risdFree
816
817	movl $1,%eax
818	jmp risdDone
819
820	risdFree:
821	xorl %eax,%eax
822
823	risdDone:
824	popl %ebx
825	leave
826	ret
827
828	/*##########################################################################
829	#
830	# Name : RdosSetSignal
831	#
832	# Purpose....: Set signal
833	#
834	# Parameters.: Signal handle
835	#
836	##########################################################################*/
837
838	.global RdosSetSignal
839
840	RdosSetSignal:
841	pushl %ebp
842	movl %esp,%ebp
843	pushl %ebx
844
845	movw 8(%ebp),%bx
846	UserGate set_signal_nr
847
848	popl %ebx
849	leave
850	ret
851
852	/*##########################################################################
853	#
854	# Name : RdosFreeSignal
855	#
856	# Purpose....: Free signal handle
857	#
858	# Parameters.: Signal handle
859	#
860	##########################################################################*/
861
862	.global RdosFreeSignal
863
864	RdosFreeSignal:
865	pushl %ebp
866	movl %esp,%ebp
867	pushl %ebx
868
869	movw 8(%ebp),%bx
870	UserGate free_signal_nr
871
872	popl %ebx
873	leave
874	ret
875
876	/*##########################################################################
877	#
878	# Name : RdosAddWaitForSignal
879	#
880	# Purpose....: Add signal object to wait handle
881	#
882	# Parameters.: Wait handle
883	# Signal handle
884	# ID
885	#
886	##########################################################################*/
887
888	.global RdosAddWaitForSignal
889
890	RdosAddWaitForSignal:
891	pushl %ebp
892	movl %esp,%ebp
893	pushl %ebx
894	pushl %ecx
895
896	movw 8(%ebp),%bx
897	movw 12(%ebp),%ax
898	movl 16(%ebp),%ecx
899	UserGate add_wait_for_signal_nr
900
901	popl %ecx
902	popl %ebx
903	leave
904	ret
905
906	/*##########################################################################
907	#
908	# Name : RdosAddWaitForKeyboard
909	#
910	# Purpose....: Add keyboard to wait handle
911	#
912	# Parameters.: Wait handle
913	# ID
914	#
915	##########################################################################*/
916
917	.global RdosAddWaitForKeyboard
918
919	RdosAddWaitForKeyboard:
920	pushl %ebp
921	movl %esp,%ebp
922	pushl %ebx
923	pushl %ecx
924
925	movw 8(%ebp),%bx
926	movl 12(%ebp),%ecx
927	UserGate add_wait_for_keyboard_nr
928
929	popl %ecx
930	popl %ebx
931	leave
932	ret
933
934	/*##########################################################################
935	#
936	# Name : RdosAddWaitForMouse
937	#
938	# Purpose....: Add mouse to wait handle
939	#
940	# Parameters.: Wait handle
941	# ID
942	#
943	##########################################################################*/
944
945	.global RdosAddWaitForMouse
946
947	RdosAddWaitForMouse:
948	pushl %ebp
949	movl %esp,%ebp
950	pushl %ebx
951	pushl %ecx
952
953	movw 8(%ebp),%bx
954	movl 12(%ebp),%ecx
955	UserGate add_wait_for_mouse_nr
956
957	popl %ecx
958	popl %ebx
959	leave
960	ret
961
962	/*##########################################################################
963	#
964	# Name : RdosAddWaitForCom
965	#
966	# Purpose....: Add com object to wait handle
967	#
968	# Parameters.: Wait handle
969	# Com handle
970	# ID
971	#
972	##########################################################################*/
973
974	.global RdosAddWaitForCom
975
976	RdosAddWaitForCom:
977	pushl %ebp
978	movl %esp,%ebp
979	pushl %ebx
980	pushl %ecx
981
982	movw 8(%ebp),%bx
983	movw 12(%ebp),%ax
984	movl 16(%ebp),%ecx
985	UserGate add_wait_for_com_nr
986
987	popl %ecx
988	popl %ebx
989	leave
990	ret
991
992	/*##########################################################################
993	#
994	# Name : RdosAddWaitForAdc
995	#
996	# Purpose....: Add ADC object to wait handle
997	#
998	# Parameters.: Wait handle
999	# Adc handle
1000	# ID
1001	#
1002	##########################################################################*/
1003
1004	.global RdosAddWaitForAdc
1005
1006	RdosAddWaitForAdc:
1007	pushl %ebp
1008	movl %esp,%ebp
1009	pushl %ebx
1010	pushl %ecx
1011
1012	movw 8(%ebp),%bx
1013	movw 12(%ebp),%ax
1014	movl 16(%ebp),%ecx
1015	UserGate add_wait_for_adc_nr
1016
1017	popl %ecx
1018	popl %ebx
1019	leave
1020	ret
1021
1022	/*##########################################################################
1023	#
1024	# Name : RdosSetTextMode
1025	#
1026	# Purpose....: Set text mode
1027	#
1028	##########################################################################*/
1029
1030	.global RdosSetTextMode
1031
1032	RdosSetTextMode:
1033	pushl %ebp
1034	movl %esp,%ebp
1035
1036	movw $3,%ax
1037	UserGate set_video_mode_nr
1038
1039	leave
1040	ret
1041
1042	/*##########################################################################
1043	#
1044	# Name : RdosSetVideoMode
1045	#
1046	# Purpose....: Set video mode
1047	#
1048	# Parameters.: &xres
1049	# &yres
1050	# &linesize
1051	# &LFB
1052	#
1053	# Returns....: Bitmap handle
1054	#
1055	##########################################################################*/
1056
1057	.global RdosSetVideoMode
1058
1059	RdosSetVideoMode:
1060	pushl %ebp
1061	movl %esp,%ebp
1062	pushl %ebx
1063	pushl %ecx
1064	pushl %edx
1065	pushl %esi
1066	pushl %edi
1067
1068	movl 8(%ebp),%edi
1069	movw (%edi),%ax
1070
1071	movl 12(%ebp),%edi
1072	movw (%edi),%cx
1073
1074	movl 16(%ebp),%edi
1075	movw (%edi),%dx
1076
1077	UserGate get_video_mode_nr
1078	jc set_video_fail
1079
1080	UserGate set_video_mode_nr
1081	jc set_video_fail
1082
1083	pushl %edi
1084	movl 8(%ebp),%edi
1085	movzx %ax,%eax
1086	movl %eax,(%edi)
1087
1088	movl 12(%ebp),%edi
1089	movzx %cx,%ecx
1090	movl %ecx,(%edi)
1091
1092	movl 16(%ebp),%edi
1093	movzx %dx,%edx
1094	movl %edx,(%edi)
1095
1096	movl 20(%ebp),%edi
1097	movzx %si,%esi
1098	movl %esi,(%edi)
1099	popl %edi
1100
1101	movl 24(%ebp),%eax
1102	movl %edi,(%eax)
1103
1104	movzx %bx,%eax
1105	jmp set_video_done
1106
1107	set_video_fail:
1108	xorl %eax,%eax
1109	movl 8(%ebp),%edi
1110	movl %eax,(%edi)
1111	movl 12(%ebp),%edi
1112	movl %eax,(%edi)
1113	movl 16(%ebp),%edi
1114	movl %eax,(%edi)
1115	movl 20(%ebp),%edi
1116	movl %eax,(%edi)
1117	movl 24(%ebp),%edi
1118	movl %eax,(%edi)
1119
1120	set_video_done:
1121	popl %edi
1122	popl %esi
1123	popl %edx
1124	popl %ecx
1125	popl %ebx
1126	leave
1127	ret
1128
1129	/*##########################################################################
1130	#
1131	# Name : RdosSetClipRect
1132	#
1133	# Purpose....: Set clip rectangle
1134	#
1135	# Parameters.: Bitmap handle
1136	# xmin, xmax, ymin, ymax
1137	#
1138	##########################################################################*/
1139
1140	.global RdosSetClipRect
1141
1142	RdosSetClipRect:
1143	pushl %ebp
1144	movl %esp,%ebp
1145	pushl %ebx
1146	pushl %ecx
1147	pushl %edx
1148	pushl %esi
1149	pushl %edi
1150
1151	movw 8(%ebp),%bx
1152	movw 12(%ebp),%cx
1153	movw 16(%ebp),%dx
1154	movw 20(%ebp),%si
1155	movw 24(%ebp),%di
1156	UserGate set_clip_rect_nr
1157
1158	popl %edi
1159	popl %esi
1160	popl %edx
1161	popl %ecx
1162	popl %ebx
1163	leave
1164	ret
1165
1166	/*##########################################################################
1167	#
1168	# Name : RdosClearClipRect
1169	#
1170	# Purpose....: Clear clip rectangle
1171	#
1172	# Parameters.: Bitmap handle
1173	#
1174	##########################################################################*/
1175
1176	.global RdosClearClipRect
1177
1178	RdosClearClipRect:
1179	pushl %ebp
1180	movl %esp,%ebp
1181	pushl %ebx
1182
1183	movw 8(%ebp),%bx
1184	UserGate clear_clip_rect_nr
1185
1186	popl %ebx
1187	leave
1188	ret
1189
1190	/*##########################################################################
1191	#
1192	# Name : RdosSetDrawColor
1193	#
1194	# Purpose....: Set draw color
1195	#
1196	# Parameters.: Bitmap handle
1197	# Color
1198	#
1199	##########################################################################*/
1200
1201	.global RdosSetDrawColor
1202
1203	RdosSetDrawColor:
1204	pushl %ebp
1205	movl %esp,%ebp
1206	pushl %eax
1207	pushl %ebx
1208
1209	movw 8(%ebp),%bx
1210	movl 12(%ebp),%eax
1211	UserGate set_drawcolor_nr
1212
1213	popl %ebx
1214	popl %eax
1215	leave
1216	ret
1217
1218	/*##########################################################################
1219	#
1220	# Name : RdosSetLGOP
1221	#
1222	# Purpose....: Set draw color
1223	#
1224	# Parameters.: Bitmap handle
1225	# LGOP
1226	#
1227	##########################################################################*/
1228
1229	.global RdosSetLGOP
1230
1231	RdosSetLGOP:
1232	pushl %ebp
1233	movl %esp,%ebp
1234	pushl %eax
1235	pushl %ebx
1236
1237	movw 8(%ebp),%bx
1238	movw 12(%ebp),%ax
1239	UserGate set_lgop_nr
1240
1241	popl %ebx
1242	popl %eax
1243	leave
1244	ret
1245
1246	/*##########################################################################
1247	#
1248	# Name : RdosSetHollowStyle
1249	#
1250	# Purpose....: Set hollow fill style
1251	#
1252	# Parameters.: Bitmap handle
1253	#
1254	##########################################################################*/
1255
1256	.global RdosSetHollowStyle
1257
1258	RdosSetHollowStyle:
1259	pushl %ebp
1260	movl %esp,%ebp
1261	pushl %ebx
1262
1263	movw 8(%ebp),%bx
1264	UserGate set_hollow_style_nr
1265
1266	popl %ebx
1267	leave
1268	ret
1269
1270	/*##########################################################################
1271	#
1272	# Name : RdosSetFilledStyle
1273	#
1274	# Purpose....: Set filled fill style
1275	#
1276	# Parameters.: Bitmap handle
1277	#
1278	##########################################################################*/
1279
1280	.global RdosSetFilledStyle
1281
1282	RdosSetFilledStyle:
1283	pushl %ebp
1284	movl %esp,%ebp
1285	pushl %ebx
1286
1287	movw 8(%ebp),%bx
1288	UserGate set_filled_style_nr
1289
1290	popl %ebx
1291	leave
1292	ret
1293
1294	/*##########################################################################
1295	#
1296	# Name : RdosOpenFont
1297	#
1298	# Purpose....: Open a font
1299	#
1300	# Parameters.: height
1301	#
1302	# Returns....: Font handle
1303	#
1304	##########################################################################*/
1305
1306	.global RdosOpenFont
1307
1308	RdosOpenFont:
1309	pushl %ebp
1310	movl %esp,%ebp
1311	pushl %ebx
1312
1313	movw 8(%ebp),%ax
1314	UserGate open_font_nr
1315	movzx %bx,%eax
1316
1317	popl %ebx
1318	leave
1319	ret
1320
1321	/*##########################################################################
1322	#
1323	# Name : RdosCloseFont
1324	#
1325	# Purpose....: Close font handle
1326	#
1327	# Parameters.: Font handle
1328	#
1329	##########################################################################*/
1330
1331	.global RdosCloseFont
1332
1333	RdosCloseFont:
1334	pushl %ebp
1335	movl %esp,%ebp
1336	pushl %ebx
1337
1338	movw 8(%ebp),%bx
1339	UserGate close_font_nr
1340
1341	popl %ebx
1342	leave
1343	ret
1344
1345	/*##########################################################################
1346	#
1347	# Name : RdosGetStringMetrics
1348	#
1349	# Purpose....: Get string metrics for text using font
1350	#
1351	# Parameters.: Font handle
1352	# String
1353	# &width
1354	# &height
1355	#
1356	##########################################################################*/
1357
1358	.global RdosGetStringMetrics
1359
1360	RdosGetStringMetrics:
1361	pushl %ebp
1362	movl %esp,%ebp
1363	pushl %ebx
1364	pushl %ecx
1365	pushl %edx
1366	pushl %edi
1367
1368	movw 8(%ebp),%bx
1369	movl 12(%ebp),%edi
1370	UserGate get_string_metrics_nr
1371
1372	movl 16(%ebp),%edi
1373	movzx %cx,%ecx
1374	movl %ecx,(%edi)
1375
1376	movl 20(%ebp),%edi
1377	movzx %dx,%edx
1378	movl %edx,(%edi)
1379
1380	popl %edi
1381	popl %edx
1382	popl %ecx
1383	popl %ebx
1384	leave
1385	ret
1386
1387	/*##########################################################################
1388	#
1389	# Name : RdosSetFont
1390	#
1391	# Purpose....: Set font
1392	#
1393	# Parameters.: Bitmap handle
1394	# Font handle
1395	#
1396	##########################################################################*/
1397
1398	.global RdosSetFont
1399
1400	RdosSetFont:
1401	pushl %ebp
1402	movl %esp,%ebp
1403	pushl %eax
1404	pushl %ebx
1405
1406	movw 8(%ebp),%bx
1407	movw 12(%ebp),%ax
1408	UserGate set_font_nr
1409
1410	popl %ebx
1411	popl %eax
1412	leave
1413	ret
1414
1415	/*##########################################################################
1416	#
1417	# Name : RdosGetPixel
1418	#
1419	# Purpose....: Get pixel
1420	#
1421	# Parameters.: Bitmap handle
1422	# x, y
1423	#
1424	##########################################################################*/
1425
1426	.global RdosGetPixel
1427
1428	RdosGetPixel:
1429	pushl %ebp
1430	movl %esp,%ebp
1431	pushl %ebx
1432	pushl %ecx
1433	pushl %edx
1434
1435	movw 8(%ebp),%bx
1436	movw 12(%ebp),%cx
1437	movw 16(%ebp),%dx
1438	UserGate get_pixel_nr
1439
1440	popl %edx
1441	popl %ecx
1442	popl %ebx
1443	leave
1444	ret
1445
1446	/*##########################################################################
1447	#
1448	# Name : RdosSetPixel
1449	#
1450	# Purpose....: Set pixel
1451	#
1452	# Parameters.: Bitmap handle
1453	# x, y
1454	#
1455	##########################################################################*/
1456
1457	.global RdosSetPixel
1458
1459	RdosSetPixel:
1460	pushl %ebp
1461	movl %esp,%ebp
1462	pushl %ebx
1463	pushl %ecx
1464	pushl %edx
1465
1466	movw 8(%ebp),%bx
1467	movw 12(%ebp),%cx
1468	movw 16(%ebp),%dx
1469	UserGate set_pixel_nr
1470
1471	popl %edx
1472	popl %ecx
1473	popl %ebx
1474	leave
1475	ret
1476
1477	/*##########################################################################
1478	#
1479	# Name : RdosBlit
1480	#
1481	# Purpose....: Blit
1482	#
1483	# Parameters.: SrcHandle
1484	# DestHandle
1485	# width, height
1486	# SrcX, SrcY
1487	# DestX, DestY
1488	#
1489	##########################################################################*/
1490
1491	.global RdosBlit
1492
1493	RdosBlit:
1494	pushl %ebp
1495	movl %esp,%ebp
1496	pushl %eax
1497	pushl %ebx
1498	pushl %ecx
1499	pushl %edx
1500	pushl %esi
1501	pushl %edi
1502	;
1503	movw 8(%ebp),%ax
1504	movw 12(%ebp),%bx
1505	movw 16(%ebp),%cx
1506	movw 20(%ebp),%dx
1507	movw 28(%ebp),%si
1508	shll $16,%esi
1509	movw 24(%ebp),%si
1510	movw 36(%ebp),%di
1511	shll $16,%edi
1512	movw 32(%ebp),%di
1513	UserGate blit_nr
1514
1515	popl %edi
1516	popl %esi
1517	popl %edx
1518	popl %ecx
1519	popl %ebx
1520	popl %eax
1521	leave
1522	ret
1523
1524	/*##########################################################################
1525	#
1526	# Name : RdosDrawMask
1527	#
1528	# Purpose....: Draw mask
1529	#
1530	# Parameters.: Bitmap handle
1531	# mask
1532	# RowSize
1533	# width, height
1534	# SrcX, SrcY
1535	# DestX, DestY
1536	#
1537	##########################################################################*/
1538
1539	.global RdosDrawMask
1540
1541	RdosDrawMask:
1542	pushl %ebp
1543	movl %esp,%ebp
1544	pushl %eax
1545	pushl %ebx
1546	pushl %ecx
1547	pushl %edx
1548	pushl %esi
1549	pushl %edi
1550	;
1551	movw 8(%ebp),%bx
1552	movl 12(%ebp),%edi
1553	movw 16(%ebp),%ax
1554	movw 24(%ebp),%si
1555	shll $16,%esi
1556	movw 20(%ebp),%si
1557	movw 32(%ebp),%cx
1558	shll $16,%ecx
1559	movw 28(%ebp),%cx
1560	movw 40(%ebp),%dx
1561	shll $16,%edx
1562	movw 36(%ebp),%dx
1563	UserGate draw_mask_nr
1564
1565	popl %edi
1566	popl %esi
1567	popl %edx
1568	popl %ecx
1569	popl %ebx
1570	popl %eax
1571	leave
1572	ret
1573
1574	/*##########################################################################
1575	#
1576	# Name : RdosDrawLine
1577	#
1578	# Purpose....: Draw a line
1579	#
1580	# Parameters.: Bitmap handle
1581	# x1, y1
1582	# x2, y2
1583	#
1584	##########################################################################*/
1585
1586	.global RdosDrawLine
1587
1588	RdosDrawLine:
1589	pushl %ebp
1590	movl %esp,%ebp
1591	pushl %ebx
1592	pushl %ecx
1593	pushl %edx
1594	pushl %esi
1595	pushl %edi
1596	;
1597	movw 8(%ebp),%bx
1598	movw 12(%ebp),%cx
1599	movw 16(%ebp),%dx
1600	movw 20(%ebp),%si
1601	movw 24(%ebp),%di
1602	UserGate draw_line_nr
1603
1604	popl %edi
1605	popl %esi
1606	popl %edx
1607	popl %ecx
1608	popl %ebx
1609	leave
1610	ret
1611
1612	/*##########################################################################
1613	#
1614	# Name : RdosDrawString
1615	#
1616	# Purpose....: Draw a string
1617	#
1618	# Parameters.: Bitmap handle
1619	# x, y
1620	# string
1621	#
1622	##########################################################################*/
1623
1624	.global RdosDrawString
1625
1626	RdosDrawString:
1627	pushl %ebp
1628	movl %esp,%ebp
1629	pushl %ebx
1630	pushl %ecx
1631	pushl %edx
1632	pushl %edi
1633	;
1634	movw 8(%ebp),%bx
1635	movw 12(%ebp),%cx
1636	movw 16(%ebp),%dx
1637	movl 20(%ebp),%edi
1638	UserGate draw_string_nr
1639
1640	popl %edi
1641	popl %edx
1642	popl %ecx
1643	popl %ebx
1644	leave
1645	ret
1646
1647	/*##########################################################################
1648	#
1649	# Name : RdosDrawRect
1650	#
1651	# Purpose....: Draw a rect
1652	#
1653	# Parameters.: Bitmap handle
1654	# x, y
1655	# width, height
1656	#
1657	##########################################################################*/
1658
1659	.global RdosDrawRect
1660
1661	RdosDrawRect:
1662	pushl %ebp
1663	movl %esp,%ebp
1664	pushl %ebx
1665	pushl %ecx
1666	pushl %edx
1667	pushl %esi
1668	pushl %edi
1669
1670	movw 8(%ebp),%bx
1671	movw 12(%ebp),%cx
1672	movw 16(%ebp),%dx
1673	movw 20(%ebp),%si
1674	movw 24(%ebp),%di
1675	UserGate draw_rect_nr
1676
1677	popl %edi
1678	popl %esi
1679	popl %edx
1680	popl %ecx
1681	popl %ebx
1682	leave
1683	ret
1684
1685	/*##########################################################################
1686	#
1687	# Name : RdosDrawEllipse
1688	#
1689	# Purpose....: Draw an ellipse
1690	#
1691	# Parameters.: Bitmap handle
1692	# x, y
1693	# width, height
1694	#
1695	##########################################################################*/
1696
1697	.global RdosDrawEllipse
1698
1699	RdosDrawEllipse:
1700	pushl %ebp
1701	movl %esp,%ebp
1702	pushl %ebx
1703	pushl %ecx
1704	pushl %edx
1705	pushl %esi
1706	pushl %edi
1707
1708	movw 8(%ebp),%bx
1709	movw 12(%ebp),%cx
1710	movw 16(%ebp),%dx
1711	movw 20(%ebp),%si
1712	movw 24(%ebp),%di
1713	UserGate draw_ellipse_nr
1714
1715	popl %edi
1716	popl %esi
1717	popl %edx
1718	popl %ecx
1719	popl %ebx
1720	leave
1721	ret
1722
1723	/*##########################################################################
1724	#
1725	# Name : RdosCreateBitmap
1726	#
1727	# Purpose....: Create a bitmap
1728	#
1729	# Parameters.: BitsPerPixel
1730	# width, height
1731	#
1732	# Returns....: Bitmap handle
1733	#
1734	##########################################################################*/
1735
1736	.global RdosCreateBitmap
1737
1738	RdosCreateBitmap:
1739	pushl %ebp
1740	movl %esp,%ebp
1741	pushl %ebx
1742	pushl %ecx
1743	pushl %edx
1744
1745	movw 8(%ebp),%ax
1746	movw 12(%ebp),%cx
1747	movw 16(%ebp),%dx
1748	UserGate create_bitmap_nr
1749	movzx %bx,%eax
1750	;
1751	popl %edx
1752	popl %ecx
1753	popl %ebx
1754	leave
1755	ret
1756
1757	/*##########################################################################
1758	#
1759	# Name : RdosDuplicateBitmapHandle
1760	#
1761	# Purpose....: Duplicate bitmap handle for use in another thread / object
1762	#
1763	# Parameters.: Bitmap handle
1764	#
1765	# Returns....: Bitmap handle
1766	#
1767	##########################################################################*/
1768
1769	.global RdosDuplicateBitmapHandle
1770
1771	RdosDuplicateBitmapHandle:
1772	pushl %ebp
1773	movl %esp,%ebp
1774	pushl %ebx
1775
1776	movw 8(%ebp),%bx
1777	UserGate dup_bitmap_handle_nr
1778	movzx %bx,%eax
1779
1780	popl %ebx
1781	leave
1782	ret
1783
1784	/*##########################################################################
1785	#
1786	# Name : RdosCloseBitmap
1787	#
1788	# Purpose....: Close bitmap handle
1789	#
1790	# Parameters.: Bitmap handle
1791	#
1792	##########################################################################*/
1793
1794	.global RdosCloseBitmap
1795
1796	RdosCloseBitmap:
1797	pushl %ebp
1798	movl %esp,%ebp
1799	pushl %ebx
1800
1801	movw 8(%ebp),%bx
1802	UserGate close_bitmap_nr
1803
1804	popl %ebx
1805	leave
1806	ret
1807
1808	/*##########################################################################
1809	#
1810	# Name : RdosCreateStringBitmap
1811	#
1812	# Purpose....: Create bitmap from string & font
1813	#
1814	# Parameters.: Font
1815	# string
1816	#
1817	# Returns....: Bitmap handle
1818	#
1819	##########################################################################*/
1820
1821	.global RdosCreateStringBitmap
1822
1823	RdosCreateStringBitmap:
1824	pushl %ebp
1825	movl %esp,%ebp
1826	pushl %ebx
1827	pushl %edi
1828
1829	movw 8(%ebp),%bx
1830	movl 12(%ebp),%edi
1831	UserGate create_string_bitmap_nr
1832	movzx %bx,%eax
1833	;
1834	popl %edi
1835	popl %ebx
1836	leave
1837	ret
1838
1839	/*##########################################################################
1840	#
1841	# Name : RdosGetBitmapInfo
1842	#
1843	# Purpose....: Get info about bitmap
1844	#
1845	# Parameters.: Bitmap handle
1846	# &BitsPerPixel
1847	# &width, &height
1848	# &linesize
1849	# &LFB
1850	#
1851	##########################################################################*/
1852
1853	.global RdosGetBitmapInfo
1854
1855	RdosGetBitmapInfo:
1856	pushl %ebp
1857	movl %esp,%ebp
1858	pushl %eax
1859	pushl %ebx
1860	pushl %ecx
1861	pushl %edx
1862	pushl %esi
1863	pushl %edi
1864
1865	movw 8(%ebp),%bx
1866	UserGate get_bitmap_info_nr
1867	jc gbiFail
1868
1869	pushl %edi
1870	movl 12(%ebp),%edi
1871	movzx %al,%eax
1872	movl %eax,(%edi)
1873
1874	movl 16(%ebp),%edi
1875	movzx %cx,%ecx
1876	movl %ecx,(%edi)
1877
1878	movl 20(%ebp),%edi
1879	movzx %dx,%edx
1880	movl %edx,(%edi)
1881
1882	movl 24(%ebp),%edi
1883	movzx %si,%esi
1884	movl %esi,(%edi)
1885	popl %edi
1886
1887	movl 28(%ebp),%eax
1888	movl %edi,(%eax)
1889	jmp gbiDone
1890
1891	gbiFail:
1892	xorl %eax,%eax
1893	movl 12(%ebp),%edi
1894	movl %eax,(%edi)
1895
1896	movl 16(%ebp),%edi
1897	movl %eax,(%edi)
1898
1899	movl 20(%ebp),%edi
1900	movl %eax,(%edi)
1901
1902	movl 24(%ebp),%edi
1903	movl %eax,(%edi)
1904
1905	movl 28(%ebp),%edi
1906	movl %eax,(%edi)
1907
1908	gbiDone:
1909	popl %edi
1910	popl %esi
1911	popl %edx
1912	popl %ecx
1913	popl %ebx
1914	popl %eax
1915	leave
1916	ret
1917
1918	/*##########################################################################
1919	#
1920	# Name : RdosCreateSprite
1921	#
1922	# Purpose....: Create a sprite
1923	#
1924	# Parameters.: dest
1925	# bitmap
1926	# mask
1927	# LGOP
1928	#
1929	# Returns....: Sprite handle
1930	#
1931	##########################################################################*/
1932
1933	.global RdosCreateSprite
1934
1935	RdosCreateSprite:
1936	pushl %ebp
1937	movl %esp,%ebp
1938	pushl %ebx
1939	pushl %ecx
1940	pushl %edx
1941
1942	movw 8(%ebp),%bx
1943	movw 12(%ebp),%cx
1944	movw 16(%ebp),%dx
1945	movw 20(%ebp),%ax
1946	UserGate create_sprite_nr
1947	movzx %bx,%eax
1948
1949	popl %edx
1950	popl %ecx
1951	popl %ebx
1952	leave
1953	ret
1954
1955	/*##########################################################################
1956	#
1957	# Name : RdosCloseSprite
1958	#
1959	# Purpose....: Close sprite handle
1960	#
1961	# Parameters.: Sprite handle
1962	#
1963	##########################################################################*/
1964
1965	.global RdosCloseSprite
1966
1967	RdosCloseSprite:
1968	pushl %ebp
1969	movl %esp,%ebp
1970	pushl %ebx
1971
1972	movw 8(%ebp),%bx
1973	UserGate close_sprite_nr
1974
1975	popl %ebx
1976	leave
1977	ret
1978
1979	/*##########################################################################
1980	#
1981	# Name : RdosShowSprite
1982	#
1983	# Purpose....: Show sprite
1984	#
1985	# Parameters.: Sprite handle
1986	#
1987	##########################################################################*/
1988
1989	.global RdosShowSprite
1990
1991	RdosShowSprite:
1992	pushl %ebp
1993	movl %esp,%ebp
1994	pushl %ebx
1995
1996	movw 8(%ebp),%bx
1997	UserGate show_sprite_nr
1998
1999	popl %ebx
2000	leave
2001	ret
2002
2003	/*##########################################################################
2004	#
2005	# Name : RdosHideSprite
2006	#
2007	# Purpose....: Hide sprite
2008	#
2009	# Parameters.: Sprite handle
2010	#
2011	##########################################################################*/
2012
2013	.global RdosHideSprite
2014
2015	RdosHideSprite:
2016	pushl %ebp
2017	movl %esp,%ebp
2018	pushl %ebx
2019
2020	movw 8(%ebp),%bx
2021	UserGate hide_sprite_nr
2022
2023	popl %ebx
2024	leave
2025	ret
2026
2027	/*##########################################################################
2028	#
2029	# Name : RdosMoveSprite
2030	#
2031	# Purpose....: Move sprite
2032	#
2033	# Parameters.: Sprite handle
2034	# x, y
2035	#
2036	##########################################################################*/
2037
2038	.global RdosMoveSprite
2039
2040	RdosMoveSprite:
2041	pushl %ebp
2042	movl %esp,%ebp
2043	pushl %ebx
2044	pushl %ecx
2045	pushl %edx
2046
2047	movw 8(%ebp),%bx
2048	movw 12(%ebp),%cx
2049	movw 16(%ebp),%dx
2050	UserGate move_sprite_nr
2051
2052	popl %edx
2053	popl %ecx
2054	popl %ebx
2055	leave
2056	ret
2057
2058	/*##########################################################################
2059	#
2060	# Name : RdosSetForeColor
2061	#
2062	# Purpose....: Set text-mode fore color
2063	#
2064	# Parameters.: palette index
2065	#
2066	##########################################################################*/
2067
2068	.global RdosSetForeColor
2069
2070	RdosSetForeColor:
2071	pushl %ebp
2072	movl %esp,%ebp
2073	pushl %eax
2074
2075	movb 8(%ebp),%al
2076	UserGate set_forecolor_nr
2077
2078	popl %eax
2079	leave
2080	ret
2081
2082	/*##########################################################################
2083	#
2084	# Name : RdosSetBackColor
2085	#
2086	# Purpose....: Set text-mode back color
2087	#
2088	# Parameters.: palette index
2089	#
2090	##########################################################################*/
2091
2092	.global RdosSetBackColor
2093
2094	RdosSetBackColor:
2095	pushl %ebp
2096	movl %esp,%ebp
2097	pushl %eax
2098
2099	movb 8(%ebp),%al
2100	UserGate set_backcolor_nr
2101
2102	popl %eax
2103	leave
2104	ret
2105
2106	/*##########################################################################
2107	#
2108	# Name : RdosGetSysTime
2109	#
2110	# Purpose....: Get system time
2111	#
2112	# Parameters.: &year, &month, &day
2113	# &hour, &min, &sec, &ms
2114	#
2115	##########################################################################*/
2116
2117	.global RdosGetSysTime
2118
2119	RdosGetSysTime:
2120	pushl %ebp
2121	movl %esp,%ebp
2122	pushal
2123
2124	UserGate get_system_time_nr
2125	pushl %eax
2126	UserGate binary_to_time_nr
2127	pushl %edx
2128
2129	movl 8(%ebp),%esi
2130	movzx %dx,%edx
2131	movl %edx,(%esi)
2132
2133	movl 12(%ebp),%esi
2134	movzx %ch,%edx
2135	movl %edx,(%esi)
2136
2137	movl 16(%ebp),%esi
2138	movzx %cl,%edx
2139	movl %edx,(%esi)
2140
2141	movl 20(%ebp),%esi
2142	movzx %bh,%edx
2143	movl %edx,(%esi)
2144
2145	movl 24(%ebp),%esi
2146	movzx %bl,%edx
2147	movl %edx,(%esi)
2148
2149	movl 28(%ebp),%esi
2150	movzx %ah,%edx
2151	movl %edx,(%esi)
2152
2153	popl %edx
2154	UserGate time_to_binary_nr
2155	movl %eax,%ebx
2156	popl %eax
2157	subl %ebx,%eax
2158	xorl %edx,%edx
2159	movl $1192,%ebx
2160	divl %ebx
2161
2162	movl 32(%ebp),%esi
2163	movzx %ax,%eax
2164	movl %eax,(%esi)
2165
2166	popal
2167	leave
2168	ret
2169
2170	/*##########################################################################
2171	#
2172	# Name : RdosGetTime
2173	#
2174	# Purpose....: Get time
2175	#
2176	# Parameters.: &year, &month, &day
2177	# &hour, &min, &sec, &ms
2178	#
2179	##########################################################################*/
2180
2181	.global RdosGetTime
2182
2183	RdosGetTime:
2184	pushl %ebp
2185	movl %esp,%ebp
2186	pushal
2187
2188	UserGate get_time_nr
2189	pushl %eax
2190	UserGate binary_to_time_nr
2191	pushl %edx
2192
2193	movl 8(%ebp),%esi
2194	movzx %dx,%edx
2195	movl %edx,(%esi)
2196
2197	movl 12(%ebp),%esi
2198	movzx %ch,%edx
2199	movl %edx,(%esi)
2200
2201	movl 16(%ebp),%esi
2202	movzx %cl,%edx
2203	movl %edx,(%esi)
2204
2205	movl 20(%ebp),%esi
2206	movzx %bh,%edx
2207	movl %edx,(%esi)
2208
2209	movl 24(%ebp),%esi
2210	movzx %bl,%edx
2211	movl %edx,(%esi)
2212
2213	movl 28(%ebp),%esi
2214	movzx %ah,%edx
2215	movl %edx,(%esi)
2216
2217	popl %edx
2218	UserGate time_to_binary_nr
2219	movl %eax,%ebx
2220	popl %eax
2221	subl %ebx,%eax
2222	xorl %edx,%edx
2223	movl $1192,%ebx
2224	divl %ebx
2225
2226	movl 32(%ebp),%esi
2227	movzx %ax,%eax
2228	movl %eax,(%esi)
2229
2230	popal
2231	leave
2232	ret
2233
2234	/*##########################################################################
2235	#
2236	# Name : RdosSetTime
2237	#
2238	# Purpose....: Set time
2239	#
2240	# Parameters.: year, month, day
2241	# hour, min, sec, ms
2242	#
2243	##########################################################################*/
2244
2245	.global RdosSetTime
2246
2247	RdosSetTime:
2248	pushl %ebp
2249	movl %esp,%ebp
2250	pushal
2251
2252	movw 8(%ebp),%dx
2253	movb 12(%ebp),%ch
2254	movb 16(%ebp),%cl
2255	movb 20(%ebp),%bh
2256	movb 24(%ebp),%bl
2257	movb 28(%ebp),%ah
2258	UserGate time_to_binary_nr
2259
2260	movl %edx,%edi
2261	movl %eax,%esi
2262
2263	movl 32(%ebp),%eax
2264	movl $1192,%edx
2265	mull %edx
2266	addl %eax,%esi
2267	adcl $0,%edi
2268
2269	UserGate get_system_time_nr
2270	subl %eax,%esi
2271	sbbl %edx,%edi
2272	movl %esi,%eax
2273	movl %edi,%edx
2274	UserGate update_time_nr
2275
2276	popal
2277	leave
2278	ret
2279
2280	/*##########################################################################
2281	#
2282	# Name : RdosTicsToRecord
2283	#
2284	# Purpose....: Convert tics to record format
2285	#
2286	# Parameters.: MSB, LSB
2287	# &year, &month, &day
2288	# &hour, &min, &sec, &ms
2289	#
2290	##########################################################################*/
2291
2292	.global RdosTicsToRecord
2293
2294	RdosTicsToRecord:
2295	pushl %ebp
2296	movl %esp,%ebp
2297	pushal
2298
2299	movl 8(%ebp),%edx
2300	movl 12(%ebp),%eax
2301	addl $596,%eax
2302	adcl $0,%edx
2303	UserGate binary_to_time_nr
2304	pushl %edx
2305
2306	movl 16(%ebp),%esi
2307	movzx %dx,%edx
2308	movl %edx,(%esi)
2309
2310	movl 20(%ebp),%esi
2311	movzx %ch,%edx
2312	movl %edx,(%esi)
2313
2314	movl 24(%ebp),%esi
2315	movzx %cl,%edx
2316	movl %edx,(%esi)
2317
2318	movl 28(%ebp),%esi
2319	movzx %bh,%edx
2320	movl %edx,(%esi)
2321
2322	movl 32(%ebp),%esi
2323	movzx %bl,%edx
2324	movl %edx,(%esi)
2325
2326	movl 36(%ebp),%esi
2327	movzx %ah,%edx
2328	movl %edx,(%esi)
2329
2330	popl %edx
2331	UserGate time_to_binary_nr
2332	movl %eax,%ebx
2333	movl 12(%ebp),%eax
2334	subl %edx,%eax
2335	xorl %edx,%edx
2336	movl $1192,%ebx
2337	divl %ebx
2338
2339	movl 40(%ebp),%esi
2340	cmpw %ax,1000
2341	jne rttrSaveMs
2342
2343	decw %ax
2344
2345	rttrSaveMs:
2346	movzx %ax,%eax
2347	movl %eax,(%esi)
2348
2349	popal
2350	leave
2351	ret
2352
2353	/*##########################################################################
2354	#
2355	# Name : RdosRecordToTics
2356	#
2357	# Purpose....: Convert from record format to tics
2358	#
2359	# Parameters.: &MSB, &LSB
2360	# year, month, day
2361	# hour, min, sec, ms
2362	#
2363	##########################################################################*/
2364
2365	.global RdosRecordToTics
2366
2367	RdosRecordToTics:
2368	pushl %ebp
2369	movl %esp,%ebp
2370	pushal
2371
2372	movl 40(%ebp),%eax
2373	movl $1192,%edx
2374	mull %edx
2375	pushl %eax
2376	movw 16(%ebp),%dx
2377	movb 20(%ebp),%ch
2378	movb 24(%ebp),%cl
2379	movb 28(%ebp),%bh
2380	movb 32(%ebp),%bl
2381	movb 36(%ebp),%ah
2382	UserGate time_to_binary_nr
2383	popl %ebx
2384	addl %ebx,%eax
2385	adcl $0,%edx
2386
2387	movl 8(%ebp),%esi
2388	movl %edx,(%esi)
2389
2390	movl 12(%ebp),%esi
2391	movl %eax,(%esi)
2392
2393	popal
2394	leave
2395	ret
2396
2397	/*##########################################################################
2398	#
2399	# Name : RdosDecodeMsbTics
2400	#
2401	# Purpose....: Decode MSB tics
2402	#
2403	# Parameters.: MSB
2404	# &day, &hour
2405	#
2406	##########################################################################*/
2407
2408	.global RdosDecodeMsbTics
2409
2410	RdosDecodeMsbTics:
2411	pushl %ebp
2412	movl %esp,%ebp
2413	pushal
2414
2415	movl 8(%ebp),%eax
2416	xorl %edx,%edx
2417	movl $24,%ecx
2418	divl %ecx
2419
2420	movl 12(%ebp),%ebx
2421	movl %eax,(%ebx)
2422
2423	movl 16(%ebp),%ebx
2424	movl %edx,(%ebx)
2425
2426	popal
2427	leave
2428	ret
2429
2430	/*##########################################################################
2431	#
2432	# Name : RdosDecodeLsbTics
2433	#
2434	# Purpose....: Decode LSB tics
2435	#
2436	# Parameters.: LSB
2437	# &min, &sec, &ms, &us
2438	#
2439	##########################################################################*/
2440
2441	.global RdosDecodeLsbTics
2442
2443	RdosDecodeLsbTics:
2444	pushl %ebp
2445	movl %esp,%ebp
2446	pushal
2447
2448	movl 8(%ebp),%eax
2449	movl $60,%edx
2450	mull %edx
2451	movl 12(%ebp),%ebx
2452	movl %edx,(%ebx)
2453
2454	movl $60,%edx
2455	mull %edx
2456	movl 16(%ebp),%ebx
2457	movl %edx,(%ebx)
2458
2459	movl $1000,%edx
2460	mull %edx
2461	movl 20(%ebp),%ebx
2462	movl %edx,(%ebx)
2463
2464	movl $1000,%edx
2465	mull %edx
2466	movl 24(%ebp),%ebx
2467	movl %edx,(%ebx)
2468
2469	popal
2470	leave
2471	ret
2472
2473	/*##########################################################################
2474	#
2475	# Name : RdosDayOfWeek
2476	#
2477	# Purpose....: Get day of week
2478	#
2479	# Parameters.: year, month, day
2480	#
2481	# Returns....: day of week
2482	#
2483	##########################################################################*/
2484
2485	.global RdosDayOfWeek
2486
2487	RdosDayOfWeek:
2488	pushl %ebp
2489	movl %esp,%ebp
2490	pushl %ebx
2491	pushl %ecx
2492	pushl %edx
2493
2494	movl 8(%ebp),%edx
2495	movb 12(%ebp),%ch
2496	movb 16(%ebp),%cl
2497	xorw %bx,%bx
2498	xorb %ah,%ah
2499	UserGate adjust_time_nr
2500	pushw %dx
2501	movl $365,%eax
2502	imulw %dx
2503	pushw %dx
2504	pushw %ax
2505	popl %ebx
2506	popw %dx
2507	UserGate passed_days_nr
2508	decw %dx
2509	shrw $2,%dx
2510	incw %dx
2511	addw %dx,%ax
2512	addl %ebx,%eax
2513	xorl %edx,%edx
2514	addl $5,%eax
2515	movl $7,%ebx
2516	divl %ebx
2517	movzx %dl,%eax
2518
2519	popl %edx
2520	popl %ecx
2521	popl %ebx
2522	leave
2523	ret
2524
2525	/*##########################################################################
2526	#
2527	# Name : RdosGetTics
2528	#
2529	# Purpose....: Get system tics
2530	#
2531	# Parameters.: &MSB, &LSB
2532	#
2533	##########################################################################*/
2534
2535	.global RdosGetTics
2536
2537	RdosGetTics:
2538	pushl %ebp
2539	movl %esp,%ebp
2540	pushl %edx
2541	pushl %esi
2542
2543	UserGate get_time_nr
2544	movl 8(%ebp),%esi
2545	movl %edx,(%esi)
2546	movl 12(%ebp),%esi
2547	movl %eax,(%esi)
2548
2549	popl %esi
2550	popl %edx
2551	leave
2552	ret
2553
2554	/*##########################################################################
2555	#
2556	# Name : RdosAddTics
2557	#
2558	# Purpose....: Add tics to binary time
2559	#
2560	# Parameters.: &MSB, &LSB
2561	# tics
2562	#
2563	##########################################################################*/
2564
2565	.global RdosAddTics
2566
2567	RdosAddTics:
2568	pushl %ebp
2569	movl %esp,%ebp
2570	pushl %ebx
2571
2572	movl 16(%ebp),%eax
2573	movl 12(%ebp),%ebx
2574	addl %eax,(%ebx)
2575	movl 8(%ebp),%ebx
2576	adcl $0,(%ebx)
2577
2578	popl %ebx
2579	leave
2580	ret
2581
2582	/*##########################################################################
2583	#
2584	# Name : RdosAddMilli
2585	#
2586	# Purpose....: Add milliseconds to binary time
2587	#
2588	# Parameters.: &MSB, &LSB
2589	# milli
2590	#
2591	##########################################################################*/
2592
2593	.global RdosAddMilli
2594
2595	RdosAddMilli:
2596	pushl %ebp
2597	movl %esp,%ebp
2598	pushl %ebx
2599
2600	movl 16(%ebp),%eax
2601	movl $1193,%edx
2602	mull %edx
2603	movl 12(%ebp),%ebx
2604	addl %eax,(%ebx)
2605	movl 8(%ebp),%ebx
2606	adcl %edx,(%ebx)
2607
2608	popl %ebx
2609	leave
2610	ret
2611
2612	/*##########################################################################
2613	#
2614	# Name : RdosAddSec
2615	#
2616	# Purpose....: Add milliseconds to binary time
2617	#
2618	# Parameters.: &MSB, &LSB
2619	# sec
2620	#
2621	##########################################################################*/
2622
2623	.global RdosAddSec
2624
2625	RdosAddSec:
2626	pushl %ebp
2627	movl %esp,%ebp
2628	pushl %ebx
2629
2630	movl 16(%ebp),%eax
2631	movl $1193000,%edx
2632	mull %edx
2633	movl 12(%ebp),%ebx
2634	addl %eax,(%ebx)
2635	movl 8(%ebp),%ebx
2636	adcl %edx,(%ebx)
2637
2638	popl %ebx
2639	leave
2640	ret
2641
2642	/*##########################################################################
2643	#
2644	# Name : RdosAddMin
2645	#
2646	# Purpose....: Add minutes to binary time
2647	#
2648	# Parameters.: &MSB, &LSB
2649	# min
2650	#
2651	##########################################################################*/
2652
2653	.global RdosAddMin
2654
2655	RdosAddMin:
2656	pushl %ebp
2657	movl %esp,%ebp
2658	pushl %ebx
2659
2660	movl 16(%ebp),%eax
2661	movl $71582760,%edx
2662	mull %edx
2663	movl 12(%ebp),%ebx
2664	addl %eax,(%ebx)
2665	movl 8(%ebp),%ebx
2666	adcl %edx,(%ebx)
2667
2668	popl %ebx
2669	leave
2670	ret
2671
2672	/*##########################################################################
2673	#
2674	# Name : RdosAddHour
2675	#
2676	# Purpose....: Add hour to binary time
2677	#
2678	# Parameters.: &MSB, &LSB
2679	# hour
2680	#
2681	##########################################################################*/
2682
2683	.global RdosAddHour
2684
2685	RdosAddHour:
2686	pushl %ebp
2687	movl %esp,%ebp
2688	pushl %ebx
2689
2690	movl 16(%ebp),%eax
2691	movl 8(%ebp),%ebx
2692	adc %eax,(%ebx)
2693
2694	popl %ebx
2695	leave
2696	ret
2697
2698	/*##########################################################################
2699	#
2700	# Name : RdosAddDay
2701	#
2702	# Purpose....: Add days to binary time
2703	#
2704	# Parameters.: &MSB, &LSB
2705	# days
2706	#
2707	##########################################################################*/
2708
2709	.global RdosAddDay
2710
2711	RdosAddDay:
2712	pushl %ebp
2713	movl %esp,%ebp
2714	pushl %ebx
2715
2716	movl 16(%ebp),%eax
2717	movl $24,%edx
2718	mull %edx
2719	movl 8(%ebp),%ebx
2720	adc %eax,(%ebx)
2721
2722	popl %ebx
2723	leave
2724	ret
2725
2726	/*##########################################################################
2727	#
2728	# Name : RdosSyncTime
2729	#
2730	# Purpose....: Synchronize time with NTP
2731	#
2732	# Parameters.: IP
2733	#
2734	##########################################################################*/
2735
2736	.global RdosSyncTime
2737
2738	RdosSyncTime:
2739	pushl %ebp
2740	movl %esp,%ebp
2741	pushal
2742
2743	movl 8(%ebp),%edx
2744	UserGate sync_time_nr
2745	jc RdosSyncTimeFail
2746
2747	movl $1,%eax
2748	jmp RdosSyncTimeDone
2749
2750	RdosSyncTimeFail:
2751	xorl %eax,%eax
2752
2753	RdosSyncTimeDone:
2754	popal
2755	leave
2756	ret
2757
2758	/*##########################################################################
2759	#
2760	# Name : RdosOpenCom
2761	#
2762	# Purpose....: Open com-port
2763	#
2764	# Parameters.: ID
2765	# baudrate
2766	# parity
2767	# data bits
2768	# stop bits
2769	# SendBufferSize
2770	# RecBufferSize
2771	#
2772	# Returns...: Com handle
2773	#
2774	##########################################################################*/
2775
2776	.global RdosOpenCom
2777
2778	RdosOpenCom:
2779	pushl %ebp
2780	movl %esp,%ebp
2781	pushl %ebx
2782	pushl %ecx
2783	pushl %edx
2784	pushl %esi
2785	pushl %edi
2786
2787	movb 8(%ebp),%al
2788	movb 20(%ebp),%ah
2789	movb 24(%ebp),%bl
2790	movb 16(%ebp),%bh
2791	movl 12(%ebp),%ecx
2792	movw 28(%ebp),%si
2793	movw 32(%ebp),%di
2794	UserGate open_com_nr
2795	movzx %bx,%eax
2796
2797	popl %edi
2798	popl %esi
2799	popl %edx
2800	popl %ecx
2801	popl %ebx
2802	leave
2803	ret
2804
2805	/*##########################################################################
2806	#
2807	# Name : RdosCloseCom
2808	#
2809	# Purpose....: Close com-port
2810	#
2811	# Parameters.: Com handle
2812	#
2813	##########################################################################*/
2814
2815	.global RdosCloseCom
2816
2817	RdosCloseCom:
2818	pushl %ebp
2819	movl %esp,%ebp
2820	pushl %ebx
2821
2822	movw 8(%ebp),%bx
2823	UserGate close_com_nr
2824
2825	popl %ebx
2826	leave
2827	ret
2828
2829	/*##########################################################################
2830	#
2831	# Name : RdosFlushCom
2832	#
2833	# Purpose....: Flush com-port
2834	#
2835	# Parameters.: Com handle
2836	#
2837	##########################################################################*/
2838
2839	.global RdosFlushCom
2840
2841	RdosFlushCom:
2842	pushl %ebp
2843	movl %esp,%ebp
2844	pushl %ebx
2845
2846	movw 8(%ebp),%bx
2847	UserGate flush_com_nr
2848
2849	popl %ebx
2850	leave
2851	ret
2852
2853	/*##########################################################################
2854	#
2855	# Name : RdosReadCom
2856	#
2857	# Purpose....: Read com-port
2858	#
2859	# Parameters.: Com handle
2860	#
2861	# Returns....: Character
2862	#
2863	##########################################################################*/
2864
2865	.global RdosReadCom
2866
2867	RdosReadCom:
2868	pushl %ebp
2869	movl %esp,%ebp
2870	pushl %ebx
2871
2872	movw 8(%ebp),%bx
2873	UserGate read_com_nr
2874
2875	popl %ebx
2876	leave
2877	ret
2878
2879	/*##########################################################################
2880	#
2881	# Name : RdosWriteCom
2882	#
2883	# Purpose....: Write com-port
2884	#
2885	# Parameters.: Com handle
2886	# char
2887	#
2888	# Returns....: 0 for success
2889	#
2890	##########################################################################*/
2891
2892	.global RdosWriteCom
2893
2894	RdosWriteCom:
2895	pushl %ebp
2896	movl %esp,%ebp
2897	pushl %ebx
2898
2899	movw 8(%ebp),%bx
2900	movb 12(%ebp),%al
2901	UserGate write_com_nr
2902	movzx %al,%eax
2903
2904	popl %ebx
2905	leave
2906	ret
2907
2908	/*##########################################################################
2909	#
2910	# Name : RdosWaitForSendCompletedCom
2911	#
2912	# Purpose....: Wait until send buffer is empty
2913	#
2914	# Parameters.: Com handle
2915	#
2916	##########################################################################*/
2917
2918	.global RdosWaitForSendCompletedCom
2919
2920	RdosWaitForSendCompletedCom:
2921	pushl %ebp
2922	movl %esp,%ebp
2923	pushl %ebx
2924
2925	movw 8(%ebp),%bx
2926	UserGate wait_for_send_completed_com_nr
2927
2928	popl %ebx
2929	leave
2930	ret
2931
2932	/*##########################################################################
2933	#
2934	# Name : RdosEnableCts
2935	#
2936	# Purpose....: Enable CTS signal
2937	#
2938	# Parameters.: Com handle
2939	#
2940	##########################################################################*/
2941
2942	.global RdosEnableCts
2943
2944	RdosEnableCts:
2945	pushl %ebp
2946	movl %esp,%ebp
2947	pushl %ebx
2948
2949	movw 8(%ebp),%bx
2950	UserGate enable_cts_nr
2951
2952	popl %ebx
2953	leave
2954	ret
2955
2956	/*##########################################################################
2957	#
2958	# Name : RdosDisableCts
2959	#
2960	# Purpose....: Disable CTS signal
2961	#
2962	# Parameters.: Com handle
2963	#
2964	##########################################################################*/
2965
2966	.global RdosDisableCts
2967
2968	RdosDisableCts:
2969	pushl %ebp
2970	movl %esp,%ebp
2971	pushl %ebx
2972
2973	movw 8(%ebp),%bx
2974	UserGate disable_cts_nr
2975
2976	popl %ebx
2977	leave
2978	ret
2979
2980	/*##########################################################################
2981	#
2982	# Name : RdosEnableAutoRts
2983	#
2984	# Purpose....: Enable auto RTS signal generation for RS485
2985	#
2986	# Parameters.: Com handle
2987	#
2988	##########################################################################*/
2989
2990	.global RdosEnableAutoRts
2991
2992	RdosEnableAutoRts:
2993	pushl %ebp
2994	movl %esp,%ebp
2995	pushl %ebx
2996
2997	movw 8(%ebp),%bx
2998	UserGate enable_auto_rts_nr
2999
3000	popl %ebx
3001	leave
3002	ret
3003
3004	/*##########################################################################
3005	#
3006	# Name : RdosDisableAutoRts
3007	#
3008	# Purpose....: Disable auto RTS signal generation for RS485
3009	#
3010	# Parameters.: Com handle
3011	#
3012	##########################################################################*/
3013
3014	.global RdosDisableAutoRts
3015
3016	RdosDisableAutoRts:
3017	pushl %ebp
3018	movl %esp,%ebp
3019	pushl %ebx
3020
3021	movw 8(%ebp),%bx
3022	UserGate disable_auto_rts_nr
3023
3024	popl %ebx
3025	leave
3026	ret
3027
3028	/*##########################################################################
3029	#
3030	# Name : RdosSetDtr
3031	#
3032	# Purpose....: Set DTR active
3033	#
3034	# Parameters.: Com handle
3035	#
3036	##########################################################################*/
3037
3038	.global RdosSetDtr
3039
3040	RdosSetDtr:
3041	pushl %ebp
3042	movl %esp,%ebp
3043	pushl %ebx
3044
3045	movw 8(%ebp),%bx
3046	UserGate set_dtr_nr
3047
3048	popl %ebx
3049	leave
3050	ret
3051
3052	/*##########################################################################
3053	#
3054	# Name : RdosResetDtr
3055	#
3056	# Purpose....: Set DTR inactive
3057	#
3058	# Parameters.: Com handle
3059	#
3060	##########################################################################*/
3061
3062	.global RdosResetDtr
3063
3064	RdosResetDtr:
3065	pushl %ebp
3066	movl %esp,%ebp
3067	pushl %ebx
3068
3069	movw 8(%ebp),%bx
3070	UserGate reset_dtr_nr
3071
3072	popl %ebx
3073	leave
3074	ret
3075
3076	/*##########################################################################
3077	#
3078	# Name : RdosSetRts
3079	#
3080	# Purpose....: Set RTS active
3081	#
3082	# Parameters.: Com handle
3083	#
3084	##########################################################################*/
3085
3086	.global RdosSetRts
3087
3088	RdosSetRts:
3089	pushl %ebp
3090	movl %esp,%ebp
3091	pushl %ebx
3092
3093	movw 8(%ebp),%bx
3094	UserGate set_rts_nr
3095
3096	popl %ebx
3097	leave
3098	ret
3099
3100	/*##########################################################################
3101	#
3102	# Name : RdosResetRts
3103	#
3104	# Purpose....: Set RTS inactive
3105	#
3106	# Parameters.: Com handle
3107	#
3108	##########################################################################*/
3109
3110	.global RdosResetRts
3111
3112	RdosResetRts:
3113	pushl %ebp
3114	movl %esp,%ebp
3115	pushl %ebx
3116
3117	movw 8(%ebp),%bx
3118	UserGate reset_rts_nr
3119
3120	popl %ebx
3121	leave
3122	ret
3123
3124	/*##########################################################################
3125	#
3126	# Name : RdosGetReceiveBufferSpace
3127	#
3128	# Purpose....: Get receive buffer free space
3129	#
3130	# Parameters.: Com handle
3131	#
3132	# Returns....: Free bytes
3133	#
3134	##########################################################################*/
3135
3136	.global RdosGetReceiveBufferSpace
3137
3138	RdosGetReceiveBufferSpace:
3139	pushl %ebp
3140	movl %esp,%ebp
3141	pushl %ebx
3142
3143	movw 8(%ebp),%bx
3144	UserGate get_com_receive_space_nr
3145
3146	popl %ebx
3147	leave
3148	ret
3149
3150	/*##########################################################################
3151	#
3152	# Name : RdosGetSendBufferSpace
3153	#
3154	# Purpose....: Get send buffer free space
3155	#
3156	# Parameters.: Com handle
3157	#
3158	# Returns....: Free bytes
3159	#
3160	##########################################################################*/
3161
3162	.global RdosGetSendBufferSpace
3163
3164	RdosGetSendBufferSpace:
3165	pushl %ebp
3166	movl %esp,%ebp
3167	pushl %ebx
3168
3169	movw 8(%ebp),%bx
3170	UserGate get_com_send_space_nr
3171
3172	popl %ebx
3173	leave
3174	ret
3175
3176	/*##########################################################################
3177	#
3178	# Name : RdosOpenFile
3179	#
3180	# Purpose....: Open file
3181	#
3182	# Parameters.: Filename
3183	# Access
3184	#
3185	# Returns...: File handle
3186	#
3187	##########################################################################*/
3188
3189	.global RdosOpenFile
3190
3191	RdosOpenFile:
3192	pushl %ebp
3193	movl %esp,%ebp
3194	pushl %ebx
3195	pushl %ecx
3196	pushl %edi
3197
3198	movl 8(%ebp),%edi
3199	movb 12(%ebp),%cl
3200	UserGate open_file_nr
3201	jc OpenFileFailed
3202
3203	movzx %bx,%eax
3204	jmp OpenFileDone
3205
3206	OpenFileFailed:
3207	xorl %eax,%eax
3208
3209	OpenFileDone:
3210	popl %edi
3211	popl %ecx
3212	popl %ebx
3213	leave
3214	ret
3215
3216	/*##########################################################################
3217	#
3218	# Name : RdosCreateFile
3219	#
3220	# Purpose....: Create file
3221	#
3222	# Parameters.: Filename
3223	# Attribute
3224	#
3225	# Returns...: File handle
3226	#
3227	##########################################################################*/
3228
3229	.global RdosCreateFile
3230
3231	RdosCreateFile:
3232	pushl %ebp
3233	movl %esp,%ebp
3234	pushl %ebx
3235	pushl %ecx
3236	pushl %edi
3237
3238	movl 8(%ebp),%edi
3239	movw 12(%ebp),%cx
3240	UserGate create_file_nr
3241	jc CreateFileFailed
3242
3243	movzx %bx,%eax
3244	jmp CreateFileDone
3245
3246	CreateFileFailed:
3247	xorl %eax,%eax
3248
3249	CreateFileDone:
3250	popl %edi
3251	popl %ecx
3252	popl %ebx
3253	leave
3254	ret
3255
3256	/*##########################################################################
3257	#
3258	# Name : RdosCloseFile
3259	#
3260	# Purpose....: Close file
3261	#
3262	# Parameters.: File handle
3263	#
3264	##########################################################################*/
3265
3266	.global RdosCloseFile
3267
3268	RdosCloseFile:
3269	pushl %ebp
3270	movl %esp,%ebp
3271	pushl %ebx
3272
3273	movw 8(%ebp),%bx
3274	UserGate close_file_nr
3275
3276	popl %ebx
3277	leave
3278	ret
3279
3280	/*##########################################################################
3281	#
3282	# Name : RdosIsDevice
3283	#
3284	# Purpose....: Check if file is device
3285	#
3286	# Parameters.: TRUE if device
3287	#
3288	##########################################################################*/
3289
3290	.global RdosIsDevice
3291
3292	RdosIsDevice:
3293	pushl %ebp
3294	movl %esp,%ebp
3295	pushl %ebx
3296
3297	movw 8(%ebp),%bx
3298	UserGate get_ioctl_data_nr
3299	testw $0x8000,%dx
3300	jz ridFail
3301
3302	movl $1,%eax
3303	jmp ridDone
3304
3305	ridFail:
3306	xorl %eax,%eax
3307
3308	ridDone:
3309	popl %ebx
3310	leave
3311	ret
3312
3313	/*##########################################################################
3314	#
3315	# Name : RdosDuplFile
3316	#
3317	# Purpose....: Duplicate file handle
3318	#
3319	# Parameters.: File handle
3320	#
3321	# Returns....: File handle
3322	#
3323	##########################################################################*/
3324
3325	.global RdosDuplFile
3326
3327	RdosDuplFile:
3328	pushl %ebp
3329	movl %esp,%ebp
3330	pushl %ebx
3331
3332	movw 8(%ebp),%bx
3333	UserGate dupl_file_nr
3334	jc DuplFileFailed
3335
3336	movzx %bx,%eax
3337	jmp DuplFileDone
3338
3339	DuplFileFailed:
3340	xorl %eax,%eax
3341
3342	DuplFileDone:
3343	popl %ebx
3344	leave
3345	ret
3346
3347	/*##########################################################################
3348	#
3349	# Name : RdosGetFileSize
3350	#
3351	# Purpose....: Get file size
3352	#
3353	# Parameters.: File handle
3354	#
3355	# Returns....: Size
3356	#
3357	##########################################################################*/
3358
3359	.global RdosGetFileSize
3360
3361	RdosGetFileSize:
3362	pushl %ebp
3363	movl %esp,%ebp
3364	pushl %ebx
3365
3366	movw 8(%ebp),%bx
3367	UserGate get_file_size_nr
3368	jnc GetFileSizeDone
3369
3370	GetFileSizeFail:
3371	xorl %eax,%eax
3372
3373	GetFileSizeDone:
3374	popl %ebx
3375	leave
3376	ret
3377
3378	/*##########################################################################
3379	#
3380	# Name : RdosSetFileSize
3381	#
3382	# Purpose....: Set file size
3383	#
3384	# Parameters.: File handle
3385	# Size
3386	#
3387	##########################################################################*/
3388
3389	.global RdosSetFileSize
3390
3391	RdosSetFileSize:
3392	pushl %ebp
3393	movl %esp,%ebp
3394	pushl %eax
3395	pushl %ebx
3396
3397	movw 8(%ebp),%bx
3398	movl 12(%ebp),%eax
3399	UserGate set_file_size_nr
3400
3401	popl %ebx
3402	popl %eax
3403	leave
3404	ret
3405
3406	/*##########################################################################
3407	#
3408	# Name : RdosGetFilePos
3409	#
3410	# Purpose....: Get file position
3411	#
3412	# Parameters.: File handle
3413	#
3414	# Returns....: Position
3415	#
3416	##########################################################################*/
3417
3418	.global RdosGetFilePos
3419
3420	RdosGetFilePos:
3421	pushl %ebp
3422	movl %esp,%ebp
3423	pushl %ebx
3424
3425	movw 8(%ebp),%bx
3426	UserGate get_file_pos_nr
3427	jnc GetFilePosDone
3428
3429	GetFilePosFail:
3430	xorl %eax,%eax
3431
3432	GetFilePosDone:
3433	popl %ebx
3434	leave
3435	ret
3436
3437	/*##########################################################################
3438	#
3439	# Name : RdosSetFilePos
3440	#
3441	# Purpose....: Set file position
3442	#
3443	# Parameters.: File handle
3444	# Position
3445	#
3446	##########################################################################*/
3447
3448	.global RdosSetFilePos
3449
3450	RdosSetFilePos:
3451	pushl %ebp
3452	movl %esp,%ebp
3453	pushl %eax
3454	pushl %ebx
3455
3456	movw 8(%ebp),%bx
3457	movl 12(%ebp),%eax
3458	UserGate set_file_pos_nr
3459
3460	popl %ebx
3461	popl %eax
3462	leave
3463	ret
3464
3465	/*##########################################################################
3466	#
3467	# Name : RdosGetFileTime
3468	#
3469	# Purpose....: Get file time & date
3470	#
3471	# Parameters.: File handle
3472	# &MSB, &LSB
3473	#
3474	##########################################################################*/
3475
3476	.global RdosGetFileTime
3477
3478	RdosGetFileTime:
3479	pushl %ebp
3480	movl %esp,%ebp
3481	pushl %ebx
3482	pushl %edi
3483
3484	movw 8(%ebp),%bx
3485	UserGate get_file_time_nr
3486	jc GetFileTimeDone
3487
3488	movl 12(%ebp),%edi
3489	movl %edx,(%edi)
3490
3491	movl 16(%ebp),%edi
3492	movl %eax,(%edi)
3493
3494	GetFileTimeDone:
3495	popl %edi
3496	popl %ebx
3497	leave
3498	ret
3499
3500	/*##########################################################################
3501	#
3502	# Name : RdosSetFileTime
3503	#
3504	# Purpose....: Set file time & date
3505	#
3506	# Parameters.: File handle
3507	# MSB, LSB
3508	#
3509	##########################################################################*/
3510
3511	.global RdosSetFileTime
3512
3513	RdosSetFileTime:
3514	pushl %ebp
3515	movl %esp,%ebp
3516	pushl %eax
3517	pushl %ebx
3518	pushl %edx
3519
3520	movw 8(%ebp),%bx
3521	movl 12(%ebp),%edx
3522	movl 16(%ebp),%eax
3523	UserGate set_file_time_nr
3524
3525	popl %edx
3526	popl %ebx
3527	popl %eax
3528	leave
3529	ret
3530
3531	/*##########################################################################
3532	#
3533	# Name : RdosReadFile
3534	#
3535	# Purpose....: Read from file
3536	#
3537	# Parameters.: File handle
3538	# buffer
3539	# count
3540	#
3541	# Returns....: Read count
3542	#
3543	##########################################################################*/
3544
3545	.global RdosReadFile
3546
3547	RdosReadFile:
3548	pushl %ebp
3549	movl %esp,%ebp
3550	pushl %ebx
3551	pushl %ecx
3552	pushl %edi
3553
3554	movw 8(%ebp),%bx
3555	movl 12(%ebp),%edi
3556	movl 16(%ebp),%ecx
3557	UserGate read_file_nr
3558
3559	popl %edi
3560	popl %ecx
3561	popl %ebx
3562	leave
3563	ret
3564
3565	/*##########################################################################
3566	#
3567	# Name : RdosWriteFile
3568	#
3569	# Purpose....: Write to file
3570	#
3571	# Parameters.: File handle
3572	# buffer
3573	# count
3574	#
3575	# Returns....: Written count
3576	#
3577	##########################################################################*/
3578
3579	.global RdosWriteFile
3580
3581	RdosWriteFile:
3582	pushl %ebp
3583	movl %esp,%ebp
3584	pushl %ebx
3585	pushl %ecx
3586	pushl %edi
3587
3588	movw 8(%ebp),%bx
3589	movl 12(%ebp),%edi
3590	movl 16(%ebp),%ecx
3591	UserGate write_file_nr
3592
3593	popl %edi
3594	popl %ecx
3595	popl %ebx
3596	leave
3597	ret
3598
3599	/*##########################################################################
3600	#
3601	# Name : RdosCreateMapping
3602	#
3603	# Purpose....: Create file mapping
3604	#
3605	# Parameters.: Size
3606	#
3607	# Returns...: Filemap handle
3608	#
3609	##########################################################################*/
3610
3611	.global RdosCreateMapping
3612
3613	RdosCreateMapping:
3614	pushl %ebp
3615	movl %esp,%ebp
3616	pushl %ebx
3617
3618	movl 8(%ebp),%eax
3619	UserGate create_mapping_nr
3620	movzx %bx,%eax
3621
3622	popl %ebx
3623	leave
3624	ret
3625
3626	/*##########################################################################
3627	#
3628	# Name : RdosCreateNamedMapping
3629	#
3630	# Purpose....: Create named file mapping
3631	#
3632	# Parameters.: Name
3633	# Size
3634	#
3635	# Returns...: Filemap handle
3636	#
3637	##########################################################################*/
3638
3639	.global RdosCreateNamedMapping
3640
3641	RdosCreateNamedMapping:
3642	pushl %ebp
3643	movl %esp,%ebp
3644	pushl %ebx
3645	pushl %edi
3646
3647	movl 8(%ebp),%edi
3648	movl 12(%ebp),%eax
3649	UserGate create_named_mapping_nr
3650	movzx %bx,%eax
3651
3652	popl %edi
3653	popl %ebx
3654	leave
3655	ret
3656
3657	/*##########################################################################
3658	#
3659	# Name : RdosCreateNamedFileMapping
3660	#
3661	# Purpose....: Create file named file mapping
3662	#
3663	# Parameters.: Name
3664	# Size
3665	# File handle
3666	#
3667	# Returns...: Filemap handle
3668	#
3669	##########################################################################*/
3670
3671	.global RdosCreateNamedFileMapping
3672
3673	RdosCreateNamedFileMapping:
3674	pushl %ebp
3675	movl %esp,%ebp
3676	pushl %ebx
3677	pushl %edi
3678
3679	movl 8(%ebp),%edi
3680	movl 12(%ebp),%eax
3681	movw 16(%ebp),%bx
3682	UserGate create_named_file_mapping_nr
3683	movzx %bx,%eax
3684
3685	popl %edi
3686	popl %ebx
3687	leave
3688	ret
3689
3690	/*##########################################################################
3691	#
3692	# Name : RdosOpenNamedMapping
3693	#
3694	# Purpose....: Open named file mapping
3695	#
3696	# Parameters.: Name
3697	#
3698	# Returns...: Filemap handle
3699	#
3700	##########################################################################*/
3701
3702	.global RdosOpenNamedMapping
3703
3704	RdosOpenNamedMapping:
3705	pushl %ebp
3706	movl %esp,%ebp
3707	pushl %ebx
3708	pushl %edi
3709
3710	movl 8(%ebp),%edi
3711	UserGate open_named_mapping_nr
3712	movzx %bx,%eax
3713
3714	popl %edi
3715	popl %ebx
3716	leave
3717	ret
3718
3719	/*##########################################################################
3720	#
3721	# Name : RdosSyncMapping
3722	#
3723	# Purpose....: Sync file mapping
3724	#
3725	# Parameters.: Filemap handle
3726	#
3727	##########################################################################*/
3728
3729	.global RdosSyncMapping
3730
3731	RdosSyncMapping:
3732	pushl %ebp
3733	movl %esp,%ebp
3734	pushl %ebx
3735
3736	movw 8(%ebp),%bx
3737	UserGate sync_mapping_nr
3738
3739	popl %ebx
3740	leave
3741	ret
3742
3743	/*##########################################################################
3744	#
3745	# Name : RdosCloseMapping
3746	#
3747	# Purpose....: Close file mapping
3748	#
3749	# Parameters.: Filemap handle
3750	#
3751	##########################################################################*/
3752
3753	.global RdosCloseMapping
3754
3755	RdosCloseMapping:
3756	pushl %ebp
3757	movl %esp,%ebp
3758	pushl %ebx
3759
3760	movw 8(%ebp),%bx
3761	UserGate close_mapping_nr
3762
3763	popl %ebx
3764	leave
3765	ret
3766
3767	/*##########################################################################
3768	#
3769	# Name : RdosMapView
3770	#
3771	# Purpose....: Map view of file into memory
3772	#
3773	# Parameters.: Filemap handle
3774	# Offset
3775	# Address
3776	# Size
3777	#
3778	##########################################################################*/
3779
3780	.global RdosMapView
3781
3782	RdosMapView:
3783	pushl %ebp
3784	movl %esp,%ebp
3785	pushl %ebx
3786	pushl %ecx
3787	pushl %edi
3788
3789	movw 8(%ebp),%bx
3790	movl 12(%ebp),%eax
3791	movl 16(%ebp),%edi
3792	movl 20(%ebp),%ecx
3793	UserGate map_view_nr
3794
3795	popl %edi
3796	popl %ecx
3797	popl %ebx
3798	leave
3799	ret
3800
3801	/*##########################################################################
3802	#
3803	# Name : RdosUnmapView
3804	#
3805	# Purpose....: Unmap view of file
3806	#
3807	# Parameters.: Filemap handle
3808	#
3809	##########################################################################*/
3810
3811	.global RdosUnmapView
3812
3813	RdosUnmapView:
3814	pushl %ebp
3815	movl %esp,%ebp
3816	pushl %ebx
3817
3818	movw 8(%ebp),%bx
3819	UserGate unmap_view_nr
3820
3821	popl %ebx
3822	leave
3823	ret
3824
3825	/*##########################################################################
3826	#
3827	# Name : RdosSetCurDrive
3828	#
3829	# Purpose....: Set current drive
3830	#
3831	# Parameters.: Drive
3832	#
3833	##########################################################################*/
3834
3835	.global RdosSetCurDrive
3836
3837	RdosSetCurDrive:
3838	pushl %ebp
3839	movl %esp,%ebp
3840
3841	movb 8(%ebp),%al
3842	UserGate set_cur_drive_nr
3843	jc rscdrFail
3844
3845	movl $1,%eax
3846	jmp rscdrDone
3847
3848	rscdrFail:
3849	xorl %eax,%eax
3850
3851	rscdrDone:
3852	leave
3853	ret
3854
3855	/*##########################################################################
3856	#
3857	# Name : RdosGetCurDrive
3858	#
3859	# Purpose....: Get current drive
3860	#
3861	# Returns....: Drive
3862	#
3863	##########################################################################*/
3864
3865	.global RdosGetCurDrive
3866
3867	RdosGetCurDrive:
3868	pushl %ebp
3869	movl %esp,%ebp
3870
3871	xorl %eax,%eax
3872	UserGate get_cur_drive_nr
3873	movzx %al,%eax
3874
3875	leave
3876	ret
3877
3878	/*##########################################################################
3879	#
3880	# Name : RdosSetCurDir
3881	#
3882	# Purpose....: Set current directory
3883	#
3884	# Parameters.: Pathname
3885	#
3886	##########################################################################*/
3887
3888	.global RdosSetCurDir
3889
3890	RdosSetCurDir:
3891	pushl %ebp
3892	movl %esp,%ebp
3893	pushl %edi
3894
3895	movl 8(%ebp),%edi
3896	UserGate set_cur_dir_nr
3897	jc rscdFail
3898
3899	movl $1,%eax
3900	jmp rscdDone
3901
3902	rscdFail:
3903	xorl %eax,%eax
3904
3905	rscdDone:
3906	popl %edi
3907	leave
3908	ret
3909
3910	/*##########################################################################
3911	#
3912	# Name : RdosGetCurDir
3913	#
3914	# Purpose....: Get current directory
3915	#
3916	# Parameters.: Drive
3917	# Pathname
3918	#
3919	##########################################################################*/
3920
3921	.global RdosGetCurDir
3922
3923	RdosGetCurDir:
3924	pushl %ebp
3925	movl %esp,%ebp
3926	pushl %edi
3927
3928	movb 8(%ebp),%al
3929	movl 12(%ebp),%edi
3930	UserGate get_cur_dir_nr
3931	jc rgcdFail
3932
3933	movl $1,%eax
3934	jmp rgcdDone
3935
3936	rgcdFail:
3937	xorl %eax,%eax
3938
3939	rgcdDone:
3940	popl %edi
3941	leave
3942	ret
3943
3944	/*##########################################################################
3945	#
3946	# Name : RdosMakeDir
3947	#
3948	# Purpose....: Create directory
3949	#
3950	# Parameters.: Pathname
3951	#
3952	##########################################################################*/
3953
3954	.global RdosMakeDir
3955
3956	RdosMakeDir:
3957	pushl %ebp
3958	movl %esp,%ebp
3959	pushl %edi
3960
3961	movl 8(%ebp),%edi
3962	UserGate make_dir_nr
3963	jc mdFail
3964
3965	movl $1,%eax
3966	jmp mdDone
3967
3968	mdFail:
3969	xorl %eax,%eax
3970
3971	mdDone:
3972	popl %edi
3973	leave
3974	ret
3975
3976	/*##########################################################################
3977	#
3978	# Name : RdosRemoveDir
3979	#
3980	# Purpose....: Remove directory
3981	#
3982	# Parameters.: Pathname
3983	#
3984	##########################################################################*/
3985
3986	.global RdosRemoveDir
3987
3988	RdosRemoveDir:
3989	pushl %ebp
3990	movl %esp,%ebp
3991	pushl %edi
3992
3993	movl 8(%ebp),%edi
3994	UserGate remove_dir_nr
3995	jc rdFail
3996
3997	movl $1,%eax
3998	jmp rdDone
3999
4000	rdFail:
4001	xorl %eax,%eax
4002
4003	rdDone:
4004	popl %edi
4005	leave
4006	ret
4007
4008	/*##########################################################################
4009	#
4010	# Name : RdosRenameFile
4011	#
4012	# Purpose....: Rename file
4013	#
4014	# Parameters.: ToName
4015	# FromName
4016	#
4017	##########################################################################*/
4018
4019	.global RdosRenameFile
4020
4021	RdosRenameFile:
4022	pushl %ebp
4023	movl %esp,%ebp
4024	pushl %esi
4025	pushl %edi
4026
4027	movl 8(%ebp),%edi
4028	movl 12(%ebp),%esi
4029	UserGate rename_file_nr
4030	jc rfFail
4031
4032	mov $1,%eax
4033	jmp rfDone
4034
4035	rfFail:
4036	xorl %eax,%eax
4037
4038	rfDone:
4039	popl %edi
4040	popl %esi
4041	leave
4042	ret
4043
4044	/*##########################################################################
4045	#
4046	# Name : RdosDeleteFile
4047	#
4048	# Purpose....: Delete file
4049	#
4050	# Parameters.: Pathname
4051	#
4052	##########################################################################*/
4053
4054	.global RdosDeleteFile
4055
4056	RdosDeleteFile:
4057	pushl %ebp
4058	movl %esp,%ebp
4059	pushl %edi
4060
4061	movl 8(%ebp),%edi
4062	UserGate delete_file_nr
4063	jc dfFail
4064
4065	mov $1,%eax
4066	jmp dfDone
4067
4068	dfFail:
4069	xorl %eax,%eax
4070
4071	dfDone:
4072	popl %edi
4073	leave
4074	ret
4075
4076	/*##########################################################################
4077	#
4078	# Name : RdosGetFileAttribute
4079	#
4080	# Purpose....: Get file attribute
4081	#
4082	# Parameters.: Pathname
4083	# &Attrib
4084	#
4085	##########################################################################*/
4086
4087	.global RdosGetFileAttribute
4088
4089	RdosGetFileAttribute:
4090	pushl %ebp
4091	movl %esp,%ebp
4092	pushl %ecx
4093	pushl %edi
4094
4095	movl 8(%ebp),%edi
4096	UserGate get_file_attribute_nr
4097	jc gfaFail
4098
4099	movl 12(%ebp),%edi
4100	movzx %cx,%ecx
4101	movl %ecx,(%edi)
4102	movl $1,%eax
4103	jmp gfaDone
4104
4105	gfaFail:
4106	xorl %eax,%eax
4107
4108	gfaDone:
4109	popl %edi
4110	popl %ecx
4111	leave
4112	ret
4113
4114	/*##########################################################################
4115	#
4116	# Name : RdosSetFileAttribute
4117	#
4118	# Purpose....: Set file attribute
4119	#
4120	# Parameters.: Pathname
4121	# Attrib
4122	#
4123	##########################################################################*/
4124
4125	.global RdosSetFileAttribute
4126
4127	RdosSetFileAttribute:
4128	pushl %ebp
4129	movl %esp,%ebp
4130	pushl %ecx
4131	pushl %edi
4132
4133	movl 8(%ebp),%edi
4134	movw 12(%ebp),%cx
4135	UserGate set_file_attribute_nr
4136	jc sfaFail
4137
4138	movl $1,%eax
4139	jmp sfaDone
4140
4141	sfaFail:
4142	xorl %eax,%eax
4143
4144	sfaDone:
4145	popl %edi
4146	popl %ecx
4147	leave
4148	ret
4149
4150	/*##########################################################################
4151	#
4152	# Name : RdosOpenDir
4153	#
4154	# Purpose....: Open directory
4155	#
4156	# Parameters.: Pathname
4157	#
4158	# Returns....: Dir handle
4159	#
4160	##########################################################################*/
4161
4162	.global RdosOpenDir
4163
4164	RdosOpenDir:
4165	pushl %ebp
4166	movl %esp,%ebp
4167	pushl %ebx
4168	pushl %edi
4169
4170	movl 8(%ebp),%edi
4171	UserGate open_dir_nr
4172	jc odFail
4173
4174	movzx %bx,%eax
4175	jmp odDone
4176
4177	odFail:
4178	xorl %eax,%eax
4179
4180	odDone:
4181	popl %edi
4182	popl %ebx
4183	leave
4184	ret
4185
4186	/*##########################################################################
4187	#
4188	# Name : RdosCloseDir
4189	#
4190	# Purpose....: Close directory
4191	#
4192	# Parameters.: Dir handle
4193	#
4194	##########################################################################*/
4195
4196	.global RdosCloseDir
4197
4198	RdosCloseDir:
4199	pushl %ebp
4200	movl %esp,%ebp
4201	pushl %ebx
4202
4203	movw 8(%ebp),%bx
4204	UserGate close_dir_nr
4205
4206	popl %ebx
4207	leave
4208	ret
4209
4210	/*##########################################################################
4211	#
4212	# Name : RdosReadDir
4213	#
4214	# Purpose....: Read directory entry
4215	#
4216	# Parameters.: Dir handle
4217	# Entry #
4218	# MaxNameSize
4219	# Name buffer
4220	# &FileSize
4221	# &Attribute
4222	# &Msb time
4223	# &Lsb time
4224	#
4225	##########################################################################*/
4226
4227	.global RdosReadDir
4228
4229	RdosReadDir:
4230	pushl %ebp
4231	movl %esp,%ebp
4232	pushl %ebx
4233	pushl %ecx
4234	pushl %edi
4235
4236	movw 8(%ebp),%bx
4237	movw 12(%ebp),%dx
4238	movw 16(%ebp),%cx
4239	movl 20(%ebp),%edi
4240	UserGate read_dir_nr
4241	jc rdiFail
4242
4243	movl 24(%ebp),%edi
4244	movl %ecx,(%edi)
4245
4246	movl 28(%ebp),%edi
4247	movzx %bx,%ebx
4248	movl %ebx,(%edi)
4249
4250	movl 32(%ebp),%edi
4251	movl %edx,(%edi)
4252
4253	movl 36(%ebp),%edi
4254	movl %eax,(%edi)
4255
4256	movl $1,%eax
4257	jmp rdiDone
4258
4259	rdiFail:
4260	xorl %eax,%eax
4261
4262	rdiDone:
4263	popl %edi
4264	popl %ecx
4265	popl %ebx
4266	leave
4267	ret
4268
4269	/*##########################################################################
4270	#
4271	# Name : RdosSetFocus
4272	#
4273	# Purpose....: Set input focus
4274	#
4275	# Parameters.: Focus handle
4276	#
4277	##########################################################################*/
4278
4279	.global RdosSetFocus
4280
4281	RdosSetFocus:
4282	pushl %ebp
4283	movl %esp,%ebp
4284
4285	movl 8(%ebp),%eax
4286	UserGate set_focus_nr
4287
4288	leave
4289	ret
4290
4291	/*##########################################################################
4292	#
4293	# Name : RdosGetFocus
4294	#
4295	# Purpose....: Get input focus
4296	#
4297	# Returns....: Focus handle
4298	#
4299	##########################################################################*/
4300
4301	.global RdosGetFocus
4302
4303	RdosGetFocus:
4304	pushl %ebp
4305	movl %esp,%ebp
4306
4307	UserGate get_focus_nr
4308
4309	leave
4310	ret
4311
4312	/*##########################################################################
4313	#
4314	# Name : RdosClearKeyboard
4315	#
4316	# Purpose....: Clear keyboard buffer
4317	#
4318	##########################################################################*/
4319
4320	.global RdosClearKeyboard
4321
4322	RdosClearKeyboard:
4323	pushl %ebp
4324	movl %esp,%ebp
4325
4326	UserGate flush_keyboard_nr
4327
4328	leave
4329	ret
4330
4331	/*##########################################################################
4332	#
4333	# Name : RdosPollKeyboard
4334	#
4335	# Purpose....: Poll keyboard buffer
4336	#
4337	# Returns....: TRUE if non-empty
4338	#
4339	##########################################################################*/
4340
4341	.global RdosPollKeyboard
4342
4343	RdosPollKeyboard:
4344	pushl %ebp
4345	movl %esp,%ebp
4346
4347	UserGate poll_keyboard_nr
4348	jc rpkEmpty
4349
4350	mov $1,%eax
4351	jmp rpkDone
4352
4353	rpkEmpty:
4354	xorl %eax,%eax
4355
4356	rpkDone:
4357	leave
4358	ret
4359
4360	/*##########################################################################
4361	#
4362	# Name : RdosReadKeyboard
4363	#
4364	# Purpose....: Read keyboard buffer
4365	#
4366	# Returns....: Scan code
4367	#
4368	##########################################################################*/
4369
4370	.global RdosReadKeyboard
4371
4372	RdosReadKeyboard:
4373	pushl %ebp
4374	movl %esp,%ebp
4375
4376	UserGate read_keyboard_nr
4377	movzx %ax,%eax
4378
4379	leave
4380	ret
4381
4382	/*##########################################################################
4383	#
4384	# Name : RdosGetKeyboardState
4385	#
4386	# Purpose....: Get keyboard buffer
4387	#
4388	# Returns....: Keyboard state
4389	#
4390	##########################################################################*/
4391
4392	.global RdosGetKeyboardState
4393
4394	RdosGetKeyboardState:
4395	pushl %ebp
4396	movl %esp,%ebp
4397
4398	UserGate get_keyboard_state_nr
4399	movzx %ax,%eax
4400
4401	leave
4402	ret
4403
4404	/*##########################################################################
4405	#
4406	# Name : RdosPutKeyboard
4407	#
4408	# Purpose....: Put scancode in keyboard buffer
4409	#
4410	##########################################################################*/
4411
4412	.global RdosPutKeyboard
4413
4414	RdosPutKeyboard:
4415	pushl %ebp
4416	movl %esp,%ebp
4417	pushl %edx
4418
4419	movw 8(%ebp),%ax
4420	movb 12(%ebp),%dl
4421	movb 16(%ebp),%dh
4422	UserGate put_keyboard_code_nr
4423
4424	popl %edx
4425	leave
4426	ret
4427
4428	/*##########################################################################
4429	#
4430	# Name : RdosPeekKeyEvent
4431	#
4432	# Purpose....: Peek keyboard event
4433	#
4434	##########################################################################*/
4435
4436	.global RdosPeekKeyEvent
4437
4438	RdosPeekKeyEvent:
4439	pushl %ebp
4440	movl %esp,%ebp
4441	pushl %ecx
4442	pushl %edx
4443	pushl %edi
4444
4445	UserGate peek_key_event_nr
4446	jc rpeFail
4447
4448	movl 8(%ebp),%edi
4449	movzx %ax,%eax
4450	movl %eax,(%edi)
4451
4452	movl 12(%ebp),%edi
4453	movzx %cx,%eax
4454	movl %eax,(%edi)
4455
4456	movl 16(%ebp),%edi
4457	movzx %dl,%eax
4458	movl %eax,(%edi)
4459
4460	movl 20(%ebp),%edi
4461	movzx %dh,%eax
4462	movl %eax,(%edi)
4463
4464	movl $1,%eax
4465	jmp rpeDone
4466
4467	rpeFail:
4468	xorl %eax,%eax
4469
4470	rpeDone:
4471	popl %edi
4472	popl %edx
4473	popl %ecx
4474	leave
4475	ret
4476
4477	/*##########################################################################
4478	#
4479	# Name : RdosReadKeyEvent
4480	#
4481	# Purpose....: Read keyboard event
4482	#
4483	##########################################################################*/
4484
4485	.global RdosReadKeyEvent
4486
4487	RdosReadKeyEvent:
4488	pushl %ebp
4489	movl %esp,%ebp
4490	pushl %ecx
4491	pushl %edx
4492	pushl %edi
4493
4494	UserGate read_key_event_nr
4495	jc rkeFail
4496
4497	movl 8(%ebp),%edi
4498	movzx %ax,%eax
4499	movl %eax,(%edi)
4500
4501	movl 12(%ebp),%edi
4502	movzx %cx,%eax
4503	movl %eax,(%edi)
4504
4505	movl 16(%ebp),%edi
4506	movzx %dl,%eax
4507	movl %eax,(%edi)
4508
4509	movl 20(%ebp),%edi
4510	movzx %dh,%eax
4511	movl %eax,(%edi)
4512
4513	movl $1,%eax
4514	jmp rkeDone
4515
4516	rkeFail:
4517	xorl %eax,%eax
4518
4519	rkeDone:
4520	popl %edi
4521	popl %edx
4522	popl %ecx
4523	leave
4524	ret
4525
4526	/*##########################################################################
4527	#
4528	# Name : RdosHideMouse
4529	#
4530	# Purpose....: Hide mouse cursor
4531	#
4532	##########################################################################*/
4533
4534	.global RdosHideMouse
4535
4536	RdosHideMouse:
4537	pushl %ebp
4538	movl %esp,%ebp
4539
4540	UserGate hide_mouse_nr
4541
4542	leave
4543	ret
4544
4545	/*##########################################################################
4546	#
4547	# Name : RdosShowMouse
4548	#
4549	# Purpose....: Show mouse cursor
4550	#
4551	##########################################################################*/
4552
4553	.global RdosShowMouse
4554
4555	RdosShowMouse:
4556	pushl %ebp
4557	movl %esp,%ebp
4558
4559	UserGate show_mouse_nr
4560
4561	leave
4562	ret
4563
4564	/*##########################################################################
4565	#
4566	# Name : RdosGetMousePosition
4567	#
4568	# Purpose....: Get mouse position
4569	#
4570	# Parameters.: &x, &y
4571	#
4572	##########################################################################*/
4573
4574	.global RdosGetMousePosition
4575
4576	RdosGetMousePosition:
4577	pushl %ebp
4578	movl %esp,%ebp
4579	pushl %ecx
4580	pushl %edx
4581
4582	UserGate get_mouse_position_nr
4583
4584	movl 8(%ebp),%eax
4585	movzx %cx,%ecx
4586	movl %ecx,(%eax)
4587
4588	movl 12(%ebp),%eax
4589	movzx %dx,%edx
4590	movl %edx,(%eax)
4591
4592	popl %edx
4593	popl %ecx
4594	leave
4595	ret
4596
4597	/*##########################################################################
4598	#
4599	# Name : RdosSetMousePosition
4600	#
4601	# Purpose....: Set mouse position
4602	#
4603	# Parameters.: x, y
4604	#
4605	##########################################################################*/
4606
4607	.global RdosSetMousePosition
4608
4609	RdosSetMousePosition:
4610	pushl %ebp
4611	movl %esp,%ebp
4612	pushl %ecx
4613	pushl %edx
4614
4615	movw 8(%ebp),%cx
4616	movw 12(%ebp),%dx
4617	UserGate set_mouse_position_nr
4618
4619	popl %edx
4620	popl %ecx
4621	leave
4622	ret
4623
4624	/*##########################################################################
4625	#
4626	# Name : RdosSetMouseWindow
4627	#
4628	# Purpose....: Set mouse window
4629	#
4630	# Parameters.: start x, start y
4631	# end x, end y
4632	#
4633	##########################################################################*/
4634
4635	.global RdosSetMouseWindow
4636
4637	RdosSetMouseWindow:
4638	pushl %ebp
4639	movl %esp,%ebp
4640	pushl %eax
4641	pushl %ebx
4642	pushl %ecx
4643	pushl %edx
4644
4645	movw 8(%ebp),%ax
4646	movw 12(%ebp),%bx
4647	movw 16(%ebp),%cx
4648	movw 20(%ebp),%dx
4649	UserGate set_mouse_window_nr
4650
4651	popl %edx
4652	popl %ecx
4653	popl %ebx
4654	popl %eax
4655	leave
4656	ret
4657
4658	/*##########################################################################
4659	#
4660	# Name : RdosSetMouseMickey
4661	#
4662	# Purpose....: Set mouse mickey
4663	#
4664	# Parameters.: x, y
4665	#
4666	##########################################################################*/
4667
4668	.global RdosSetMouseMickey
4669
4670	RdosSetMouseMickey:
4671	pushl %ebp
4672	movl %esp,%ebp
4673	pushl %ecx
4674	pushl %edx
4675
4676	movw 8(%ebp),%cx
4677	movw 12(%ebp),%dx
4678	UserGate set_mouse_mickey_nr
4679
4680	popl %edx
4681	popl %ecx
4682	leave
4683	ret
4684
4685	/*##########################################################################
4686	#
4687	# Name : RdosGetCursorPosition
4688	#
4689	# Purpose....: Get cursor position
4690	#
4691	# Parameters.: &x, &y
4692	#
4693	##########################################################################*/
4694
4695	.global RdosGetCursorPosition
4696
4697	RdosGetCursorPosition:
4698	pushl %ebp
4699	movl %esp,%ebp
4700	pushl %ecx
4701	pushl %edx
4702
4703	UserGate get_cursor_position_nr
4704
4705	movl 8(%ebp),%eax
4706	movzx %cx,%ecx
4707	movl %ecx,(%eax)
4708
4709	movl 12(%ebp),%eax
4710	movzx %dx,%edx
4711	movl %edx,(%eax)
4712
4713	popl %edx
4714	popl %ecx
4715	leave
4716	ret
4717
4718	/*##########################################################################
4719	#
4720	# Name : RdosSetCursorPosition
4721	#
4722	# Purpose....: Set cursor position
4723	#
4724	# Parameters.: x, y
4725	#
4726	##########################################################################*/
4727
4728	.global RdosSetCursorPosition
4729
4730	RdosSetCursorPosition:
4731	pushl %ebp
4732	movl %esp,%ebp
4733	pushl %ecx
4734	pushl %edx
4735
4736	movw 8(%ebp),%cx
4737	movw 12(%ebp),%dx
4738	UserGate set_cursor_position_nr
4739
4740	popl %edx
4741	popl %ecx
4742	leave
4743	ret
4744
4745	/*##########################################################################
4746	#
4747	# Name : RdosGetLeftButton
4748	#
4749	# Purpose....: Check if left button is pressed
4750	#
4751	# Returns....: TRUE if pressed
4752	#
4753	##########################################################################*/
4754
4755	.global RdosGetLeftButton
4756
4757	RdosGetLeftButton:
4758	pushl %ebp
4759	movl %esp,%ebp
4760
4761	UserGate get_left_button_nr
4762	jc get_left_rel
4763
4764	mov $1,%eax
4765	jmp get_left_done
4766
4767	get_left_rel:
4768	xorl %eax,%eax
4769
4770	get_left_done:
4771	leave
4772	ret
4773
4774	/*##########################################################################
4775	#
4776	# Name : RdosGetRightButton
4777	#
4778	# Purpose....: Check if right button is pressed
4779	#
4780	# Returns....: TRUE if pressed
4781	#
4782	##########################################################################*/
4783
4784	.global RdosGetRightButton
4785
4786	RdosGetRightButton:
4787	pushl %ebp
4788	movl %esp,%ebp
4789
4790	UserGate get_right_button_nr
4791	jc get_right_rel
4792
4793	mov $1,%eax
4794	jmp get_right_done
4795
4796	get_right_rel:
4797	xorl %eax,%eax
4798
4799	get_right_done:
4800	leave
4801	ret
4802
4803	/*##########################################################################
4804	#
4805	# Name : RdosGetLeftButtonPressPosition
4806	#
4807	# Purpose....: Get left button press position
4808	#
4809	# Parameters.: &x, &y
4810	#
4811	##########################################################################*/
4812
4813	.global RdosGetLeftButtonPressPosition
4814
4815	RdosGetLeftButtonPressPosition:
4816	pushl %ebp
4817	movl %esp,%ebp
4818
4819	pushl %ecx
4820	pushl %edx
4821
4822	UserGate get_left_button_press_position_nr
4823
4824	movl 8(%ebp),%eax
4825	movzx %cx,%ecx
4826	movl %ecx,(%eax)
4827
4828	movl 12(%ebp),%eax
4829	movzx %dx,%edx
4830	movl %edx,(%eax)
4831
4832	popl %edx
4833	popl %ecx
4834	leave
4835	ret
4836
4837	/*##########################################################################
4838	#
4839	# Name : RdosGetRightButtonPressPosition
4840	#
4841	# Purpose....: Get right button press position
4842	#
4843	# Parameters.: &x, &y
4844	#
4845	##########################################################################*/
4846
4847	.global RdosGetRightButtonPressPosition
4848
4849	RdosGetRightButtonPressPosition:
4850	pushl %ebp
4851	movl %esp,%ebp
4852
4853	pushl %ecx
4854	pushl %edx
4855
4856	UserGate get_right_button_press_position_nr
4857
4858	movl 8(%ebp),%eax
4859	movzx %cx,%ecx
4860	movl %ecx,(%eax)
4861
4862	movl 12(%ebp),%eax
4863	movzx %dx,%edx
4864	movl %edx,(%eax)
4865
4866	popl %edx
4867	popl %ecx
4868	leave
4869	ret
4870
4871	/*##########################################################################
4872	#
4873	# Name : RdosGetLeftButtonReleasePosition
4874	#
4875	# Purpose....: Get left button release position
4876	#
4877	# Parameters.: &x, &y
4878	#
4879	##########################################################################*/
4880
4881	.global RdosGetLeftButtonReleasePosition
4882
4883	RdosGetLeftButtonReleasePosition:
4884	pushl %ebp
4885	movl %esp,%ebp
4886
4887	pushl %ecx
4888	pushl %edx
4889
4890	UserGate get_left_button_release_position_nr
4891
4892	movl 8(%ebp),%eax
4893	movzx %cx,%ecx
4894	movl %ecx,(%eax)
4895
4896	movl 12(%ebp),%eax
4897	movzx %dx,%edx
4898	movl %edx,(%eax)
4899
4900	popl %edx
4901	popl %ecx
4902	leave
4903	ret
4904
4905	/*##########################################################################
4906	#
4907	# Name : RdosGetRightButtonReleasePosition
4908	#
4909	# Purpose....: Get right button release position
4910	#
4911	# Parameters.: &x, &y
4912	#
4913	##########################################################################*/
4914
4915	.global RdosGetRightButtonReleasePosition
4916
4917	RdosGetRightButtonReleasePosition:
4918	pushl %ebp
4919	movl %esp,%ebp
4920
4921	pushl %ecx
4922	pushl %edx
4923
4924	UserGate get_right_button_release_position_nr
4925
4926	movl 8(%ebp),%eax
4927	movzx %cx,%ecx
4928	movl %ecx,(%eax)
4929
4930	movl 12(%ebp),%eax
4931	movzx %dx,%edx
4932	movl %edx,(%eax)
4933
4934	popl %edx
4935	popl %ecx
4936	leave
4937	ret
4938
4939	/*##########################################################################
4940	#
4941	# Name : RdosReadLine
4942	#
4943	# Purpose....: Read a line from keyboard
4944	#
4945	# Parameters.: Buffer
4946	# Size
4947	#
4948	# Returns....: Read count
4949	#
4950	##########################################################################*/
4951
4952	.global RdosReadLine
4953
4954	RdosReadLine:
4955	pushl %ebp
4956	movl %esp,%ebp
4957	pushl %ecx
4958	pushl %edi
4959
4960	movl 8(%ebp),%edi
4961	movl 12(%ebp),%ecx
4962	UserGate read_con_nr
4963
4964	popl %edi
4965	popl %ecx
4966	leave
4967	ret
4968
4969	/*##########################################################################
4970	#
4971	# Name : RdosWriteChar
4972	#
4973	# Purpose....: Write a character to screen
4974	#
4975	# Parameters.: Char
4976	#
4977	##########################################################################*/
4978
4979	.global RdosWriteChar
4980
4981	RdosWriteChar:
4982	pushl %ebp
4983	movl %esp,%ebp
4984
4985	movb 8(%ebp),%al
4986	UserGate write_char_nr
4987
4988	leave
4989	ret
4990
4991	/*##########################################################################
4992	#
4993	# Name : RdosWriteSizeString
4994	#
4995	# Purpose....: Write a fixed number of characters to screen
4996	#
4997	# Parameters.: String
4998	# Count
4999	#
5000	##########################################################################*/
5001
5002	.global RdosWriteSizeString
5003
5004	RdosWriteSizeString:
5005	pushl %ebp
5006	movl %esp,%ebp
5007	pushl %ecx
5008	pushl %edi
5009
5010	movl 8(%ebp),%edi
5011	movl 12(%ebp),%ecx
5012	UserGate write_size_string_nr
5013
5014	popl %edi
5015	popl %ecx
5016	leave
5017	ret
5018
5019	/*##########################################################################
5020	#
5021	# Name : RdosWriteString
5022	#
5023	# Purpose....: Write a string to screen
5024	#
5025	# Parameters.: String
5026	#
5027	##########################################################################*/
5028
5029	.global RdosWriteString
5030
5031	RdosWriteString:
5032	pushl %ebp
5033	movl %esp,%ebp
5034	pushl %edi
5035
5036	movl 8(%ebp),%edi
5037	UserGate write_asciiz_nr
5038
5039	popl %edi
5040	leave
5041	ret
5042
5043	/*##########################################################################
5044	#
5045	# Name : RdosNameToIp
5046	#
5047	# Purpose....: Convert host name to IP address
5048	#
5049	# Parameters.: Name
5050	#
5051	# Returns....: IP
5052	#
5053	##########################################################################*/
5054
5055	.global RdosNameToIp
5056
5057	RdosNameToIp:
5058	pushl %ebp
5059	movl %esp,%ebp
5060	pushl %edi
5061
5062	movl 8(%ebp),%edi
5063	UserGate name_to_ip_nr
5064	jc rntiFail
5065
5066	movl %edx,%eax
5067	jmp rntiDone
5068
5069	rntiFail:
5070	xorl %eax,%eax
5071
5072	rntiDone:
5073	popl %edi
5074	leave
5075	ret
5076
5077	/*##########################################################################
5078	#
5079	# Name : RdosGetIp
5080	#
5081	# Purpose....: Get my IP
5082	#
5083	# Returns....: IP
5084	#
5085	##########################################################################*/
5086
5087	.global RdosGetIp
5088
5089	RdosGetIp:
5090	pushl %ebp
5091	movl %esp,%ebp
5092
5093	UserGate get_ip_address_nr
5094	movl %edx,%eax
5095
5096	leave
5097	ret
5098
5099	/*##########################################################################
5100	#
5101	# Name : RdosIpToName
5102	#
5103	# Purpose....: Convert IP address to host name
5104	#
5105	# Parameters.: IP
5106	# Name
5107	# Size
5108	#
5109	##########################################################################*/
5110
5111	.global RdosIpToName
5112
5113	RdosIpToName:
5114	pushl %ebp
5115	movl %esp,%ebp
5116	pushl %ecx
5117	pushl %edx
5118	pushl %edi
5119	;
5120	movl 8(%ebp),%edx
5121	movl 12(%ebp),%edi
5122	movl 16(%ebp),%ecx
5123	UserGate ip_to_name_nr
5124	jnc ritnDone
5125
5126	ritnFail:
5127	xorl %eax,%eax
5128
5129	ritnDone:
5130	popl %edi
5131	popl %edx
5132	popl %ecx
5133	leave
5134	ret
5135
5136	/*##########################################################################
5137	#
5138	# Name : RdosPing
5139	#
5140	# Purpose....: Ping node
5141	#
5142	# Parameters.: IP
5143	# Timeout
5144	#
5145	##########################################################################*/
5146
5147	.global RdosPing
5148
5149	RdosPing:
5150	pushl %ebp
5151	movl %esp,%ebp
5152	pushl %edx
5153	;
5154	movl 8(%ebp),%edx
5155	movl 12(%ebp),%eax
5156	UserGate ping_nr
5157	jc ping_failed
5158
5159	movl $1,%eax
5160	jmp ping_done
5161
5162	ping_failed:
5163	xorl %eax,%eax
5164
5165	ping_done:
5166	popl %edx
5167	leave
5168	ret
5169
5170	/*##########################################################################
5171	#
5172	# Name : RdosOpenTcpConnection
5173	#
5174	# Purpose....: Open an active connection over TCP
5175	#
5176	# Parameters.: RemoteIp
5177	# LocalPort
5178	# RemotePort
5179	# Timeout in ms
5180	# BufferSize
5181	#
5182	# Returns....: Conn handle
5183	#
5184	##########################################################################*/
5185
5186	.global RdosOpenTcpConnection
5187
5188	RdosOpenTcpConnection:
5189	pushl %ebp
5190	movl %esp,%ebp
5191	pushl %ebx
5192	pushl %esi
5193	pushl %edi
5194
5195	movl 8(%ebp),%edx
5196	movw 12(%ebp),%si
5197	movw 16(%ebp),%di
5198	movl 20(%ebp),%eax
5199	movl 24(%ebp),%ecx
5200	UserGate open_tcp_connection_nr
5201	mov $0,%eax
5202	jc rotcDone
5203
5204	movl %ebx,%eax
5205
5206	rotcDone:
5207	popl %edi
5208	popl %esi
5209	popl %ebx
5210	leave
5211	ret
5212
5213	/*##########################################################################
5214	#
5215	# Name : RdosCreateTcpListen
5216	#
5217	# Purpose....: Create listen handle
5218	#
5219	# Parameters.: Port
5220	# MaxConnections
5221	# BufferSize
5222	#
5223	# Returns....: Listen handle
5224	#
5225	##########################################################################*/
5226
5227	.global RdosCreateTcpListen
5228
5229	RdosCreateTcpListen:
5230	pushl %ebp
5231	movl %esp,%ebp
5232	pushl %ebx
5233	pushl %esi
5234
5235	movw 8(%ebp),%si
5236	movw 12(%ebp),%ax
5237	movl 16(%ebp),%ecx
5238	UserGate create_tcp_listen_nr
5239	movzx %bx,%eax
5240	jnc ctlDone
5241
5242	xorl %eax,%eax
5243
5244	ctlDone:
5245	popl %esi
5246	popl %ebx
5247	leave
5248	ret
5249
5250	/*##########################################################################
5251	#
5252	# Name : RdosGetTcpListen
5253	#
5254	# Purpose....: Get connection from listen
5255	#
5256	# Parameters.: Listen handle
5257	#
5258	# Returns....: Conn handle
5259	#
5260	##########################################################################*/
5261
5262	.global RdosGetTcpListen
5263
5264	RdosGetTcpListen:
5265	pushl %ebp
5266	movl %esp,%ebp
5267	pushl %ebx
5268
5269	movw 8(%ebp),%bx
5270	UserGate get_tcp_listen_nr
5271	movzx %ax,%eax
5272	jnc gtlDone
5273
5274	xorl %eax,%eax
5275
5276	gtlDone:
5277	popl %ebx
5278	leave
5279	ret
5280
5281	/*##########################################################################
5282	#
5283	# Name : RdosCloseTcpListen
5284	#
5285	# Purpose....: Close TCP listen
5286	#
5287	# Parameters.: Listen handle
5288	#
5289	##########################################################################*/
5290
5291	.global RdosCloseTcpListen
5292
5293	RdosCloseTcpListen:
5294	pushl %ebp
5295	movl %esp,%ebp
5296	pushl %ebx
5297
5298	movw 8(%ebp),%bx
5299	UserGate close_tcp_listen_nr
5300
5301	popl %ebx
5302	leave
5303	ret
5304
5305	/*##########################################################################
5306	#
5307	# Name : RdosAddWaitForTcpListen
5308	#
5309	# Purpose....: Add wait object to tcp listen
5310	#
5311	# Parameters.: Wait handle
5312	# Listen handle
5313	# ID
5314	#
5315	##########################################################################*/
5316
5317	.global RdosAddWaitForTcpListen
5318
5319	RdosAddWaitForTcpListen:
5320	pushl %ebp
5321	movl %esp,%ebp
5322	pushl %ebx
5323	pushl %ecx
5324
5325	movw 8(%ebp),%bx
5326	movw 12(%ebp),%ax
5327	movl 16(%ebp),%ecx
5328	UserGate add_wait_for_tcp_listen_nr
5329	movl $1,%eax
5330	jnc awftlDone
5331
5332	xorl %eax,%eax
5333
5334	awftlDone:
5335	popl %ecx
5336	popl %ebx
5337	leave
5338	ret
5339
5340	/*##########################################################################
5341	#
5342	# Name : RdosWaitForTcpConnection
5343	#
5344	# Purpose....: Wait for Tcp connection to be established
5345	#
5346	# Parameters.: Conn handle
5347	# Timeout ms
5348	#
5349	##########################################################################*/
5350
5351	.global RdosWaitForTcpConnection
5352
5353	RdosWaitForTcpConnection:
5354	pushl %ebp
5355	movl %esp,%ebp
5356	pushl %ebx
5357
5358	movw 8(%ebp),%bx
5359	movl 12(%ebp),%eax
5360	UserGate wait_for_tcp_connection_nr
5361	movl $1,%eax
5362	jnc wftcDone
5363
5364	xorl %eax,%eax
5365
5366	wftcDone:
5367	popl %ebx
5368	leave
5369	ret
5370
5371	/*##########################################################################
5372	#
5373	# Name : RdosAddWaitForTcpConnection
5374	#
5375	# Purpose....: Add wait object to tcp connection
5376	#
5377	# Parameters.: Wait handle
5378	# Conn handle
5379	# ID
5380	#
5381	##########################################################################*/
5382
5383	.global RdosAddWaitForTcpConnection
5384
5385	RdosAddWaitForTcpConnection:
5386	pushl %ebp
5387	movl %esp,%ebp
5388	pushl %ebx
5389	pushl %ecx
5390
5391	movw 8(%ebp),%bx
5392	movw 12(%ebp),%ax
5393	movl 16(%ebp),%ecx
5394	UserGate add_wait_for_tcp_connection_nr
5395	movl $1,%eax
5396	jnc awftcDone
5397
5398	xorl %eax,%eax
5399
5400	awftcDone:
5401	popl %ecx
5402	popl %ebx
5403	leave
5404	ret
5405
5406	/*##########################################################################
5407	#
5408	# Name : RdosCloseTcpConnection
5409	#
5410	# Purpose....: Close Tcp connection
5411	#
5412	# Parameters.: Conn handle
5413	#
5414	##########################################################################*/
5415
5416	.global RdosCloseTcpConnection
5417
5418	RdosCloseTcpConnection:
5419	pushl %ebp
5420	movl %esp,%ebp
5421	pushl %ebx
5422
5423	movw 8(%ebp),%bx
5424	UserGate close_tcp_connection_nr
5425
5426	popl %ebx
5427	leave
5428	ret
5429
5430	/*##########################################################################
5431	#
5432	# Name : RdosDeleteTcpConnection
5433	#
5434	# Purpose....: Delete Tcp connection
5435	#
5436	# Parameters.: Conn handle
5437	#
5438	##########################################################################*/
5439
5440	.global RdosDeleteTcpConnection
5441
5442	RdosDeleteTcpConnection:
5443	pushl %ebp
5444	movl %esp,%ebp
5445	pushl %ebx
5446
5447	movw 8(%ebp),%bx
5448	UserGate delete_tcp_connection_nr
5449
5450	popl %ebx
5451	leave
5452	ret
5453
5454	/*##########################################################################
5455	#
5456	# Name : RdosAbortTcpConnection
5457	#
5458	# Purpose....: Abort Tcp connection
5459	#
5460	# Parameters.: Conn handle
5461	#
5462	##########################################################################*/
5463
5464	.global RdosAbortTcpConnection
5465
5466	RdosAbortTcpConnection:
5467	pushl %ebp
5468	movl %esp,%ebp
5469	pushl %ebx
5470
5471	movw 8(%ebp),%bx
5472	UserGate abort_tcp_connection_nr
5473
5474	popl %ebx
5475	leave
5476	ret
5477
5478	/*##########################################################################
5479	#
5480	# Name : RdosPushTcpConnection
5481	#
5482	# Purpose....: Push Tcp connection
5483	#
5484	# Parameters.: Conn handle
5485	#
5486	##########################################################################*/
5487
5488	.global RdosPushTcpConnection
5489
5490	RdosPushTcpConnection:
5491	pushl %ebp
5492	movl %esp,%ebp
5493	pushl %ebx
5494
5495	movw 8(%ebp),%bx
5496	UserGate push_tcp_connection_nr
5497
5498	popl %ebx
5499	leave
5500	ret
5501
5502	/*##########################################################################
5503	#
5504	# Name : RdosPollTcpConnection
5505	#
5506	# Purpose....: Poll Tcp connection
5507	#
5508	# Parameters.: Conn handle
5509	#
5510	# Returns....: Available bytes in receive buffer
5511	#
5512	##########################################################################*/
5513
5514	.global RdosPollTcpConnection
5515
5516	RdosPollTcpConnection:
5517	pushl %ebp
5518	movl %esp,%ebp
5519	pushl %ebx
5520
5521	movw 8(%ebp),%bx
5522	UserGate poll_tcp_connection_nr
5523
5524	popl %ebx
5525	leave
5526	ret
5527
5528	/*##########################################################################
5529	#
5530	# Name : RdosIsTcpConnectionClosed
5531	#
5532	# Purpose....: Check if connection is closed
5533	#
5534	# Parameters.: Conn handle
5535	#
5536	# Returns....: TRUE if closed
5537	#
5538	##########################################################################*/
5539
5540	.global RdosIsTcpConnectionClosed
5541
5542	RdosIsTcpConnectionClosed:
5543	pushl %ebp
5544	movl %esp,%ebp
5545	pushl %ebx
5546
5547	movw 8(%ebp),%bx
5548	UserGate is_tcp_connection_closed_nr
5549	jc rptcClosed
5550
5551	xorl %eax,%eax
5552	jmp rptcDone
5553
5554	rptcClosed:
5555	movl $1,%eax
5556
5557	rptcDone:
5558	popl %ebx
5559	leave
5560	ret
5561
5562	/*##########################################################################
5563	#
5564	# Name : RdosGetRemoteTcpConnectionIp
5565	#
5566	# Purpose....: Get remote IP
5567	#
5568	# Parameters.: Conn handle
5569	#
5570	# Returns....: IP
5571	#
5572	##########################################################################*/
5573
5574	.global RdosGetRemoteTcpConnectionIp
5575
5576	RdosGetRemoteTcpConnectionIp:
5577	pushl %ebp
5578	movl %esp,%ebp
5579	pushl %ebx
5580
5581	movw 8(%ebp),%bx
5582	UserGate get_remote_tcp_connection_ip_nr
5583	jnc grtciDone
5584
5585	movl $0xFFFFFFFF,%eax
5586
5587	grtciDone:
5588	popl %ebx
5589	leave
5590	ret
5591
5592	/*##########################################################################
5593	#
5594	# Name : RdosGetRemoteTcpConnectionPort
5595	#
5596	# Purpose....: Get remote port
5597	#
5598	# Parameters.: Conn handle
5599	#
5600	# Returns....: Port
5601	#
5602	##########################################################################*/
5603
5604	.global RdosGetRemoteTcpConnectionPort
5605
5606	RdosGetRemoteTcpConnectionPort:
5607	pushl %ebp
5608	movl %esp,%ebp
5609	pushl %ebx
5610
5611	movw 8(%ebp),%bx
5612	UserGate get_remote_tcp_connection_port_nr
5613	jnc grtcpDone
5614
5615	movl $0,%eax
5616
5617	grtcpDone:
5618	movzx %ax,%eax
5619	popl %ebx
5620	leave
5621	ret
5622
5623	/*##########################################################################
5624	#
5625	# Name : RdosGetLocalTcpConnectionPort
5626	#
5627	# Purpose....: Get local port
5628	#
5629	# Parameters.: Conn handle
5630	#
5631	# Returns....: Port
5632	#
5633	##########################################################################*/
5634
5635	.global RdosGetLocalTcpConnectionPort
5636
5637	RdosGetLocalTcpConnectionPort:
5638	pushl %ebp
5639	movl %esp,%ebp
5640	pushl %ebx
5641
5642	movw 8(%ebp),%bx
5643	UserGate get_local_tcp_connection_port_nr
5644	jnc gltcpDone
5645
5646	movl $0,%eax
5647
5648	gltcpDone:
5649	movzx %ax,%eax
5650	popl %ebx
5651	leave
5652	ret
5653
5654	/*##########################################################################
5655	#
5656	# Name : RdosReadTcpConnection
5657	#
5658	# Purpose....: Read data from connection
5659	#
5660	# Parameters.: Conn handle
5661	# Buffer
5662	# Size
5663	#
5664	# Returns....: Read bytes
5665	#
5666	##########################################################################*/
5667
5668	.global RdosReadTcpConnection
5669
5670	RdosReadTcpConnection:
5671	pushl %ebp
5672	movl %esp,%ebp
5673	pushl %ebx
5674	pushl %ecx
5675	pushl %edi
5676
5677	movw 8(%ebp),%bx
5678	movl 12(%ebp),%edi
5679	movl 16(%ebp),%ecx
5680	UserGate read_tcp_connection_nr
5681
5682	popl %edi
5683	popl %ecx
5684	popl %ebx
5685	leave
5686	ret
5687
5688	/*##########################################################################
5689	#
5690	# Name : RdosWriteTcpConnection
5691	#
5692	# Purpose....: Write data fto connection
5693	#
5694	# Parameters.: Conn handle
5695	# Buffer
5696	# Size
5697	#
5698	# Returns....: Written bytes
5699	#
5700	##########################################################################*/
5701
5702	.global RdosWriteTcpConnection
5703
5704	RdosWriteTcpConnection:
5705	pushl %ebp
5706	movl %esp,%ebp
5707	pushl %ebx
5708	pushl %ecx
5709	pushl %edi
5710
5711	movw 8(%ebp),%bx
5712	movl 12(%ebp),%edi
5713	movl 16(%ebp),%ecx
5714	UserGate write_tcp_connection_nr
5715
5716	popl %edi
5717	popl %ecx
5718	popl %ebx
5719	leave
5720	ret
5721
5722	/*##########################################################################
5723	#
5724	# Name : RdosGetLocalMailslot
5725	#
5726	# Purpose....: Get local mailslot from name
5727	#
5728	# Parameters.: Name
5729	#
5730	# Returns....: Mailslot handle
5731	#
5732	##########################################################################*/
5733
5734	.global RdosGetLocalMailslot
5735
5736	RdosGetLocalMailslot:
5737	pushl %ebp
5738	movl %esp,%ebp
5739	pushl %ebx
5740	pushl %edi
5741
5742	movl 8(%ebp),%edi
5743	UserGate get_local_mailslot_nr
5744	jc rglmFail
5745
5746	movzx %bx,%eax
5747	jmp rglmDone
5748
5749	rglmFail:
5750	xorl %eax,%eax
5751
5752	rglmDone:
5753	popl %edi
5754	popl %ebx
5755	leave
5756	ret
5757
5758	/*##########################################################################
5759	#
5760	# Name : RdosGetRemoteMailslot
5761	#
5762	# Purpose....: Get remote mailslot from name
5763	#
5764	# Parameters.: IP
5765	# Name
5766	#
5767	# Returns....: Mailslot handle
5768	#
5769	##########################################################################*/
5770
5771	.global RdosGetRemoteMailslot
5772
5773	RdosGetRemoteMailslot:
5774	pushl %ebp
5775	movl %esp,%ebp
5776	pushl %ebx
5777	pushl %edx
5778	pushl %edi
5779
5780	movl 8(%ebp),%edx
5781	movl 12(%ebp),%edi
5782	UserGate get_remote_mailslot_nr
5783	jc rgrmFail
5784
5785	movzx %bx,%eax
5786	jmp rgrmDone
5787
5788	rgrmFail:
5789	xorl %eax,%eax
5790
5791	rgrmDone:
5792	popl %edi
5793	popl %edx
5794	popl %ebx
5795	leave
5796	ret
5797
5798	/*##########################################################################
5799	#
5800	# Name : RdosFreeMailslot
5801	#
5802	# Purpose....: Free mailslot
5803	#
5804	# Parameters.: Mailslot handle
5805	#
5806	##########################################################################*/
5807
5808	.global RdosFreeMailslot
5809
5810	RdosFreeMailslot:
5811	pushl %ebp
5812	movl %esp,%ebp
5813	pushl %ebx
5814
5815	movl 8(%ebp),%ebx
5816	UserGate free_mailslot_nr
5817
5818	popl %ebx
5819	leave
5820	ret
5821
5822	/*##########################################################################
5823	#
5824	# Name : RdosSendMailslot
5825	#
5826	# Purpose....: Send mailslot
5827	#
5828	# Parameters.: Mailslot handle
5829	# Msg
5830	# Size
5831	# ReplyBuf
5832	# MaxReplySize
5833	#
5834	# Returns....: Size of reply
5835	#
5836	##########################################################################*/
5837
5838	.global RdosSendMailslot
5839
5840	RdosSendMailslot:
5841	pushl %ebp
5842	movl %esp,%ebp
5843	pushl %ebx
5844	pushl %esi
5845	pushl %edi
5846
5847	movw 8(%ebp),%bx
5848	movl 12(%ebp),%esi
5849	movl 16(%ebp),%ecx
5850	movl 20(%ebp),%edi
5851	movl 24(%ebp),%eax
5852	UserGate send_mailslot_nr
5853	jc smFail
5854
5855	movl %ecx,%eax
5856	jmp smDone
5857
5858	smFail:
5859	movl $0xFFFFFFFF,%eax
5860
5861	smDone:
5862	popl %edi
5863	popl %esi
5864	popl %ebx
5865	leave
5866	ret
5867
5868	/*##########################################################################
5869	#
5870	# Name : RdosDefineMailslot
5871	#
5872	# Purpose....: Define mailslot
5873	#
5874	# Parameters.: Name
5875	# Max msg size
5876	#
5877	##########################################################################*/
5878
5879	.global RdosDefineMailslot
5880
5881	RdosDefineMailslot:
5882	pushl %ebp
5883	movl %esp,%ebp
5884	pushl %ecx
5885	pushl %edi
5886
5887	movl 8(%ebp),%edi
5888	movl 12(%ebp),%ecx
5889	UserGate define_mailslot_nr
5890
5891	popl %edi
5892	popl %ecx
5893	leave
5894	ret
5895
5896	/*##########################################################################
5897	#
5898	# Name : RdosReceiveMailslot
5899	#
5900	# Purpose....: Receive from mailslot
5901	#
5902	# Parameters.: Msg buffer
5903	#
5904	# Returns....: Msg size
5905	#
5906	##########################################################################*/
5907
5908	.global RdosReceiveMailslot
5909
5910	RdosReceiveMailslot:
5911	pushl %ebp
5912	movl %esp,%ebp
5913	pushl %ecx
5914	pushl %edi
5915
5916	movl 8(%ebp),%edi
5917	UserGate receive_mailslot_nr
5918	movl %ecx,%eax
5919
5920	popl %edi
5921	popl %ecx
5922	leave
5923	ret
5924
5925	/*##########################################################################
5926	#
5927	# Name : RdosReplyMailslot
5928	#
5929	# Purpose....: Reply to mailslot
5930	#
5931	# Parameters.: Msg buffer
5932	# Msg size
5933	#
5934	##########################################################################*/
5935
5936	.global RdosReplyMailslot
5937
5938	RdosReplyMailslot:
5939	pushl %ebp
5940	movl %esp,%ebp
5941	pushl %ecx
5942	pushl %edi
5943
5944	movl 8(%ebp),%edi
5945	movl 12(%ebp),%ecx
5946	UserGate reply_mailslot_nr
5947
5948	popl %edi
5949	popl %ecx
5950	leave
5951	ret
5952
5953	/*##########################################################################
5954	#
5955	# Name : RdosGetIdeDisc
5956	#
5957	# Purpose....: Get IDE disc
5958	#
5959	# Parameters.: Unit #
5960	#
5961	# Returns....: Disc #
5962	#
5963	##########################################################################*/
5964
5965	.global RdosGetIdeDisc
5966
5967	RdosGetIdeDisc:
5968	pushl %ebp
5969	movl %esp,%ebp
5970	pushl %ebx
5971
5972	movb 8(%ebp),%bl
5973	UserGate get_ide_disc_nr
5974	jc get_ide_disc_fail
5975
5976	movzx %al,%eax
5977	jmp get_ide_disc_done
5978
5979	get_ide_disc_fail:
5980	movl $0xFFFFFFFF,%eax
5981
5982	get_ide_disc_done:
5983	popl %ebx
5984	leave
5985	ret
5986
5987	/*##########################################################################
5988	#
5989	# Name : RdosGetFloppyDisc
5990	#
5991	# Purpose....: Get floppy disc
5992	#
5993	# Parameters.: Unit #
5994	#
5995	# Returns....: Disc #
5996	#
5997	##########################################################################*/
5998
5999	.global RdosGetFloppyDisc
6000
6001	RdosGetFloppyDisc:
6002	pushl %ebp
6003	movl %esp,%ebp
6004	pushl %ebx
6005
6006	movb 8(%ebp),%bl
6007	UserGate get_floppy_disc_nr
6008	jc get_floppy_disc_fail
6009
6010	movzx %al,%eax
6011	jmp get_floppy_disc_done
6012
6013	get_floppy_disc_fail:
6014	movl $0xFFFFFFFF,%eax
6015
6016	get_floppy_disc_done:
6017	popl %ebx
6018	leave
6019	ret
6020
6021	/*##########################################################################
6022	#
6023	# Name : RdosGetDiscInfo
6024	#
6025	# Purpose....: Get disc info
6026	#
6027	# Parameters.: Disc #
6028	# Bytes / sector
6029	# Total sectors
6030	# BIOS sectors / cyl
6031	# BIOS heads
6032	#
6033	# Returns....: TRUE if ok
6034	#
6035	##########################################################################*/
6036
6037	.global RdosGetDiscInfo
6038
6039	RdosGetDiscInfo:
6040	pushl %ebp
6041	movl %esp,%ebp
6042	pushl %ebx
6043	pushl %ecx
6044	pushl %edx
6045	pushl %esi
6046	pushl %edi
6047
6048	movb 8(%ebp),%al
6049	UserGate get_disc_info_nr
6050	jc get_disc_info_fail
6051
6052	movl 12(%ebp),%ebx
6053	movzx %cx,%ecx
6054	movl %ecx,(%ebx)
6055
6056	movl 16(%ebp),%ebx
6057	movl %edx,(%ebx)
6058
6059	movl 20(%ebp),%ebx
6060	movzx %si,%esi
6061	movl %esi,(%ebx)
6062
6063	movl 24(%ebp),%ebx
6064	movzx %di,%edi
6065	movl %edi,(%ebx)
6066
6067	movl $1,%eax
6068	jmp get_disc_info_done
6069
6070	get_disc_info_fail:
6071	xorl %eax,%eax
6072
6073	get_disc_info_done:
6074	popl %edi
6075	popl %esi
6076	popl %edx
6077	popl %ecx
6078	popl %ebx
6079	leave
6080	ret
6081
6082	/*##########################################################################
6083	#
6084	# Name : RdosSetDiscInfo
6085	#
6086	# Purpose....: Set disc info
6087	#
6088	# Parameters.: Disc #
6089	# Bytes / sector
6090	# Total sectors
6091	# BIOS sectors / cyl
6092	# BIOS heads
6093	#
6094	# Returns....: TRUE if ok
6095	#
6096	##########################################################################*/
6097
6098	.global RdosSetDiscInfo
6099
6100	RdosSetDiscInfo:
6101	pushl %ebp
6102	movl %esp,%ebp
6103	pushl %ebx
6104	pushl %ecx
6105	pushl %edx
6106	pushl %esi
6107	pushl %edi
6108
6109	movb 8(%ebp),%al
6110	movl 12(%ebp),%ecx
6111	movl 16(%ebp),%edx
6112	movl 20(%ebp),%esi
6113	movl 24(%ebp),%edi
6114	UserGate set_disc_info_nr
6115	jc set_disc_info_fail
6116
6117	movl $1,%eax
6118	jmp set_disc_info_done
6119
6120	set_disc_info_fail:
6121	xorl %eax,%eax
6122
6123	set_disc_info_done:
6124	popl %edi
6125	popl %esi
6126	popl %edx
6127	popl %ecx
6128	popl %ebx
6129	leave
6130	ret
6131
6132	/*##########################################################################
6133	#
6134	# Name : RdosReadDisc
6135	#
6136	# Purpose....: Read from disc
6137	#
6138	# Parameters.: Disc #
6139	# Sector #
6140	# Buffer
6141	# Size
6142	#
6143	# Returns....: TRUE if ok
6144	#
6145	##########################################################################*/
6146
6147	.global RdosReadDisc
6148
6149	RdosReadDisc:
6150	pushl %ebp
6151	movl %esp,%ebp
6152	pushl %ecx
6153	pushl %edx
6154	pushl %edi
6155
6156	movb 8(%ebp),%al
6157	movl 12(%ebp),%edx
6158	movl 16(%ebp),%edi
6159	movl 20(%ebp),%ecx
6160	UserGate read_disc_nr
6161	jc read_disc_fail
6162
6163	movl $1,%eax
6164	jmp read_disc_done
6165
6166	read_disc_fail:
6167	xorl %eax,%eax
6168
6169	read_disc_done:
6170	popl %edi
6171	popl %edx
6172	popl %ecx
6173	leave
6174	ret
6175
6176	/*##########################################################################
6177	#
6178	# Name : RdosWriteDisc
6179	#
6180	# Purpose....: Write to disc
6181	#
6182	# Parameters.: Disc #
6183	# Sector #
6184	# Buffer
6185	# Size
6186	#
6187	# Returns....: TRUE if ok
6188	#
6189	##########################################################################*/
6190
6191	.global RdosWriteDisc
6192
6193	RdosWriteDisc:
6194	pushl %ebp
6195	movl %esp,%ebp
6196	pushl %ecx
6197	pushl %edx
6198	pushl %edi
6199
6200	movb 8(%ebp),%al
6201	movl 12(%ebp),%edx
6202	movl 16(%ebp),%edi
6203	movl 20(%ebp),%ecx
6204	UserGate write_disc_nr
6205	jc write_disc_fail
6206
6207	movl $1,%eax
6208	jmp write_disc_done
6209
6210	write_disc_fail:
6211	xorl %eax,%eax
6212
6213	write_disc_done:
6214	popl %edi
6215	popl %edx
6216	popl %ecx
6217	leave
6218	ret
6219
6220	/*##########################################################################
6221	#
6222	# Name : RdosAllocateFixedDrive
6223	#
6224	# Purpose....: Allocate fixed drive
6225	#
6226	# Parameters.: Drive #
6227	#
6228	# Returns....: TRUE if ok
6229	#
6230	##########################################################################*/
6231
6232	.global RdosAllocateFixedDrive
6233
6234	RdosAllocateFixedDrive:
6235	pushl %ebp
6236	movl %esp,%ebp
6237
6238	movb 8(%ebp),%al
6239	UserGate allocate_fixed_drive_nr
6240	jc allocate_fixed_drive_fail
6241
6242	movl $1,%eax
6243	jmp allocate_fixed_drive_done
6244
6245	allocate_fixed_drive_fail:
6246	xorl %eax,%eax
6247
6248	allocate_fixed_drive_done:
6249	leave
6250	ret
6251
6252	/*##########################################################################
6253	#
6254	# Name : RdosAllocateStaticDrive
6255	#
6256	# Purpose....: Allocate static drive
6257	#
6258	# Returns....: Drive #
6259	#
6260	##########################################################################*/
6261
6262	.global RdosAllocateStaticDrive
6263
6264	RdosAllocateStaticDrive:
6265	pushl %ebp
6266	movl %esp,%ebp
6267
6268	UserGate allocate_static_drive_nr
6269	jc allocate_static_drive_fail
6270
6271	movzx %al,%eax
6272	jmp allocate_static_drive_done
6273
6274	allocate_static_drive_fail:
6275	xorl %eax,%eax
6276
6277	allocate_static_drive_done:
6278	leave
6279	ret
6280
6281	/*##########################################################################
6282	#
6283	# Name : RdosAllocateDynamicDrive
6284	#
6285	# Purpose....: Allocate dynamic drive
6286	#
6287	# Returns....: Drive #
6288	#
6289	##########################################################################*/
6290
6291	.global RdosAllocateDynamicDrive
6292
6293	RdosAllocateDynamicDrive:
6294	pushl %ebp
6295	movl %esp,%ebp
6296
6297	UserGate allocate_dynamic_drive_nr
6298	jc allocate_dynamic_drive_fail
6299
6300	movzx %al,%eax
6301	jmp allocate_dynamic_drive_done
6302
6303	allocate_dynamic_drive_fail:
6304	xorl %eax,%eax
6305
6306	allocate_dynamic_drive_done:
6307	leave
6308	ret
6309
6310	/*##########################################################################
6311	#
6312	# Name : RdosGetRdfsInfo
6313	#
6314	# Purpose....: Get rdfs info
6315	#
6316	# Parameters.: Crypt tab
6317	# Key tab
6318	# Extent size tab
6319	#
6320	##########################################################################*/
6321
6322	.global RdosGetRdfsInfo
6323
6324	RdosGetRdfsInfo:
6325	pushl %ebp
6326	movl %esp,%ebp
6327	pushl %ebx
6328	pushl %esi
6329	pushl %edi
6330
6331	movl 8(%ebp),%esi
6332	movl 12(%ebp),%edi
6333	movl 16(%ebp),%ebx
6334	UserGate get_rdfs_info_nr
6335
6336	popl %edi
6337	popl %esi
6338	popl %ebx
6339	leave
6340	ret
6341
6342	/*##########################################################################
6343	#
6344	# Name : RdosGetDriveInfo
6345	#
6346	# Purpose....: Get drive info
6347	#
6348	# Parameters.: Drive #
6349	# Free units
6350	# Bytes per unit
6351	# Total units
6352	#
6353	# Returns....: TRUE if ok
6354	#
6355	##########################################################################*/
6356
6357	.global RdosGetDriveInfo
6358
6359	RdosGetDriveInfo:
6360	pushl %ebp
6361	movl %esp,%ebp
6362	pushl %ebx
6363	pushl %ecx
6364	pushl %edx
6365
6366	movb 8(%ebp),%al
6367	UserGate get_drive_info_nr
6368	jc get_drive_info_fail
6369
6370	movl 12(%ebp),%ebx
6371	movl %eax,(%ebx)
6372
6373	movl 16(%ebp),%ebx
6374	movzx %cx,%ecx
6375	movl %ecx,(%ebx)
6376
6377	movl 20(%ebp),%ebx
6378	movl %edx,(%ebx)
6379
6380	movl $1,%eax
6381	jmp get_drive_info_done
6382
6383	get_drive_info_fail:
6384	xorl %eax,%eax
6385
6386	get_drive_info_done:
6387	popl %edx
6388	popl %ecx
6389	popl %ebx
6390	leave
6391	ret
6392
6393	/*##########################################################################
6394	#
6395	# Name : RdosDemandLoadDrive
6396	#
6397	# Purpose....: Demand load drive
6398	#
6399	# Parameters.: Drive #
6400	#
6401	##########################################################################*/
6402
6403	.global RdosDemandLoadDrive
6404
6405	RdosDemandLoadDrive:
6406	pushl %ebp
6407	movl %esp,%ebp
6408
6409	movb 8(%ebp),%al
6410	UserGate demand_load_drive_nr
6411
6412	leave
6413	ret
6414
6415	/*##########################################################################
6416	#
6417	# Name : RdosGetDriveDiscParam
6418	#
6419	# Purpose....: Get drive disc parameters
6420	#
6421	# Parameters.: Drive #
6422	# Disc #
6423	# Start sector
6424	# Total sectors
6425	#
6426	# Returns....: TRUE if ok
6427	#
6428	##########################################################################*/
6429
6430	.global RdosGetDriveDiscParam
6431
6432	RdosGetDriveDiscParam:
6433	pushl %ebp
6434	movl %esp,%ebp
6435	pushl %ebx
6436	pushl %ecx
6437	pushl %edx
6438
6439	movb 8(%ebp),%al
6440	UserGate get_drive_disc_param_nr
6441	jc get_drive_disc_param_fail
6442
6443	movl 12(%ebp),%ebx
6444	movzx %al,%eax
6445	movl %eax,(%ebx)
6446
6447	movl 16(%ebp),%ebx
6448	movl %edx,(%ebx)
6449
6450	movl 20(%ebp),%ebx
6451	movl %ecx,(%ebx)
6452
6453	movl $1,%eax
6454	jmp get_drive_disc_param_done
6455
6456	get_drive_disc_param_fail:
6457	xorl %eax,%eax
6458
6459	get_drive_disc_param_done:
6460	popl %edx
6461	popl %ecx
6462	popl %ebx
6463	leave
6464	ret
6465
6466	/*##########################################################################
6467	#
6468	# Name : RdosFormatDrive
6469	#
6470	# Purpose....: Format drive
6471	#
6472	# Parameters.: Disc #
6473	# Start sector
6474	# Sectors
6475	# FS name
6476	#
6477	# Returns....: Drive #
6478	#
6479	##########################################################################*/
6480
6481	.global RdosFormatDrive
6482
6483	RdosFormatDrive:
6484	pushl %ebp
6485	movl %esp,%ebp
6486	pushl %ecx
6487	pushl %edx
6488	pushl %edi
6489
6490	movb 8(%ebp),%al
6491	movl 12(%ebp),%edx
6492	movl 16(%ebp),%ecx
6493	movl 20(%ebp),%edi
6494	UserGate format_drive_nr
6495	jc rfdFail
6496
6497	movzx %al,%eax
6498	jmp rfdDone
6499
6500	rfdFail:
6501	xorl %eax,%eax
6502
6503	rfdDone:
6504	popl %edi
6505	popl %edx
6506	popl %ecx
6507	leave
6508	ret
6509
6510	/*##########################################################################
6511	#
6512	# Name : RdosGetExeName
6513	#
6514	# Purpose....: Get name of executable file
6515	#
6516	# Returns....: Exe pathname
6517	#
6518	##########################################################################*/
6519
6520	.global RdosGetExeName
6521
6522	RdosGetExeName:
6523	pushl %ebp
6524	movl %esp,%ebp
6525	pushl %edi
6526
6527	UserGate get_exe_name_nr
6528	jc rgenFail
6529
6530	movl %edi,%eax
6531	jmp rgenDone
6532
6533	rgenFail:
6534	xorl %eax,%eax
6535
6536	rgenDone:
6537	popl %edi
6538	leave
6539	ret
6540
6541	/*##########################################################################
6542	#
6543	# Name : RdosOpenAdc
6544	#
6545	# Purpose....: Open handle to ADC channel
6546	#
6547	# Parameters.: Channel #
6548	#
6549	# Returns....: Adc handle
6550	#
6551	##########################################################################*/
6552
6553	.global RdosOpenAdc
6554
6555	RdosOpenAdc:
6556	pushl %ebp
6557	movl %esp,%ebp
6558	pushl %ebx
6559
6560	movl 8(%ebp),%eax
6561	UserGate open_adc_nr
6562	movw %bx,%ax
6563
6564	popl %ebx
6565	leave
6566	ret
6567
6568	/*##########################################################################
6569	#
6570	# Name : RdosCloseAdc
6571	#
6572	# Purpose....: Close ADC handle
6573	#
6574	# Parameters.: Adc handle
6575	#
6576	##########################################################################*/
6577
6578	.global RdosCloseAdc
6579
6580	RdosCloseAdc:
6581	pushl %ebp
6582	movl %esp,%ebp
6583	pushl %ebx
6584
6585	movl 8(%ebp),%ebx
6586	UserGate close_adc_nr
6587
6588	popl %ebx
6589	leave
6590	ret
6591
6592	/*##########################################################################
6593	#
6594	# Name : RdosDefineAdcTime
6595	#
6596	# Purpose....: Define time of next conversion
6597	#
6598	# Parameters.: Adc handle
6599	# MSB time
6600	# LSB time
6601	#
6602	##########################################################################*/
6603
6604	.global RdosDefineAdcTime
6605
6606	RdosDefineAdcTime:
6607	pushl %ebp
6608	movl %esp,%ebp
6609	pushl %ebx
6610	pushl %edx
6611
6612	movl 8(%ebp),%ebx
6613	movl 12(%ebp),%edx
6614	movl 16(%ebp),%eax
6615	UserGate define_adc_time_nr
6616
6617	popl %edx
6618	popl %ebx
6619	leave
6620	ret
6621
6622	/*##########################################################################
6623	#
6624	# Name : RdosReadAdc
6625	#
6626	# Purpose....: Read ADC
6627	#
6628	# Parameters.: Adc handle
6629	#
6630	# Returns....: Value
6631	#
6632	##########################################################################*/
6633
6634	.global RdosReadAdc
6635
6636	RdosReadAdc:
6637	pushl %ebp
6638	movl %esp,%ebp
6639	pushl %ebx
6640
6641	movl 8(%ebp),%ebx
6642	UserGate read_adc_nr
6643
6644	popl %ebx
6645	leave
6646	ret
6647
6648	/*##########################################################################
6649	#
6650	# Name : RdosReadSerialLines
6651	#
6652	# Purpose....: Read serial lines
6653	#
6654	# Parameters.: Device
6655	# &Value
6656	#
6657	# Returns....: TRUE if ok
6658	#
6659	##########################################################################*/
6660
6661	.global RdosReadSerialLines
6662
6663	RdosReadSerialLines:
6664	pushl %ebp
6665	movl %esp,%ebp
6666	pushl %edx
6667	pushl %esi
6668
6669	movb 8(%ebp),%dh
6670	UserGate read_serial_lines_nr
6671	jc rdsFail
6672
6673	movzx %al,%eax
6674	movl 12(%ebp),%esi
6675	movl %eax,(%esi)
6676	movl $1,%eax
6677	jmp rdsDone
6678
6679	rdsFail:
6680	xorl %eax,%eax
6681
6682	rdsDone:
6683	popl %esi
6684	popl %edx
6685	leave
6686	ret
6687
6688	/*##########################################################################
6689	#
6690	# Name : RdosToggleSerialLine
6691	#
6692	# Purpose....: Toggle serial line
6693	#
6694	# Parameters.: Device
6695	# Line
6696	#
6697	# Returns....: TRUE if ok
6698	#
6699	##########################################################################*/
6700
6701	.global RdosToggleSerialLine
6702
6703	RdosToggleSerialLine:
6704	pushl %ebp
6705	movl %esp,%ebp
6706	pushl %edx
6707
6708	movb 8(%ebp),%dh
6709	movb 12(%ebp),%dl
6710	UserGate toggle_serial_line_nr
6711	jc rtsFail
6712
6713	movl $1,%eax
6714	jmp rtsDone
6715
6716	rtsFail:
6717	xorl %eax,%eax
6718
6719	rtsDone:
6720	popl %edx
6721	leave
6722	ret
6723
6724	/*##########################################################################
6725	#
6726	# Name : RdosReadSerialVal
6727	#
6728	# Purpose....: Read serial value
6729	#
6730	# Parameters.: Device
6731	# Line
6732	# &Val
6733	#
6734	# Returns....: TRUE if ok
6735	#
6736	##########################################################################*/
6737
6738	.global RdosReadSerialVal
6739
6740	RdosReadSerialVal:
6741	pushl %ebp
6742	movl %esp,%ebp
6743	pushl %edx
6744	pushl %esi
6745
6746	movb 8(%ebp),%dh
6747	movb 12(%ebp),%dl
6748	UserGate read_serial_val_nr
6749
6750	pushfw
6751	shll $8,%eax
6752	movl 16(%ebp),%esi
6753	movl %eax,(%esi)
6754	popfw
6755	jc rdvFail
6756
6757	movl $1,%eax
6758	jmp rdvDone
6759
6760	rdvFail:
6761	xorl %eax,%eax
6762
6763	rdvDone:
6764	popl %esi
6765	popl %edx
6766	leave
6767	ret
6768
6769	/*##########################################################################
6770	#
6771	# Name : RdosWriteSerialVal
6772	#
6773	# Purpose....: Write serial value
6774	#
6775	# Parameters.: Device
6776	# Line
6777	# Val
6778	#
6779	# Returns....: TRUE if ok
6780	#
6781	##########################################################################*/
6782
6783	.global RdosWriteSerialVal
6784
6785	RdosWriteSerialVal:
6786	pushl %ebp
6787	movl %esp,%ebp
6788	pushl %edx
6789
6790	movb 8(%ebp),%dh
6791	movb 12(%ebp),%dl
6792	movl 16(%ebp),%eax
6793	sarl $8,%eax
6794	UserGate write_serial_val_nr
6795	jc rwvFail
6796
6797	movl $1,%eax
6798	jmp rwvDone
6799
6800	rwvFail:
6801	xorl %eax,%eax
6802
6803	rwvDone:
6804	popl %edx
6805	leave
6806	ret
6807
6808	/*##########################################################################
6809	#
6810	# Name : RdosReadSerialRaw
6811	#
6812	# Purpose....: Read serial raw value
6813	#
6814	# Parameters.: Device
6815	# Line
6816	# &Val
6817	#
6818	# Returns....: TRUE if ok
6819	#
6820	##########################################################################*/
6821
6822	.global RdosReadSerialRaw
6823
6824	RdosReadSerialRaw:
6825	pushl %ebp
6826	movl %esp,%ebp
6827	pushl %edx
6828	pushl %esi
6829
6830	movb 8(%ebp),%dh
6831	movb 12(%ebp),%dl
6832	UserGate read_serial_val_nr
6833
6834	pushfw
6835	movl 16(%ebp),%esi
6836	movl %eax,(%esi)
6837	popfw
6838	jc rdrFail
6839
6840	movl $1,%eax
6841	jmp rdrDone
6842
6843	rdrFail:
6844	xorl %eax,%eax
6845
6846	rdrDone:
6847	popl %esi
6848	popl %edx
6849	leave
6850	ret
6851
6852	/*##########################################################################
6853	#
6854	# Name : RdosWriteSerialRaw
6855	#
6856	# Purpose....: Write serial raw value
6857	#
6858	# Parameters.: Device
6859	# Line
6860	# Val
6861	#
6862	# Returns....: TRUE if ok
6863	#
6864	##########################################################################*/
6865
6866	.global RdosWriteSerialRaw
6867
6868	RdosWriteSerialRaw:
6869	pushl %ebp
6870	movl %esp,%ebp
6871	pushl %edx
6872
6873	movb 8(%ebp),%dh
6874	movb 12(%ebp),%dl
6875	movl 16(%ebp),%eax
6876	UserGate write_serial_val_nr
6877	jc rwrFail
6878
6879	movl $1,%eax
6880	jmp rwrDone
6881
6882	rwrFail:
6883	xorl %eax,%eax
6884
6885	rwrDone:
6886	popl %edx
6887	leave
6888	ret
6889
6890	/*##########################################################################
6891	#
6892	# Name : RdosOpenSysEnv
6893	#
6894	# Purpose....: Open system environment
6895	#
6896	# Returns....: Env handle
6897	#
6898	##########################################################################*/
6899
6900	.global RdosOpenSysEnv
6901
6902	RdosOpenSysEnv:
6903	pushl %ebp
6904	movl %esp,%ebp
6905	pushl %ebx
6906
6907	UserGate open_sys_env_nr
6908	jc oseFail
6909
6910	movzx %bx,%eax
6911	jmp oseDone
6912
6913	oseFail:
6914	xorl %eax,%eax
6915
6916	oseDone:
6917	popl %ebx
6918	leave
6919	ret
6920
6921	/*##########################################################################
6922	#
6923	# Name : RdosOpenProcessEnv
6924	#
6925	# Purpose....: Open process environment
6926	#
6927	# Returns....: Env handle
6928	#
6929	##########################################################################*/
6930
6931	.global RdosOpenProcessEnv
6932
6933	RdosOpenProcessEnv:
6934	pushl %ebp
6935	movl %esp,%ebp
6936	pushl %ebx
6937
6938	UserGate open_proc_env_nr
6939	jc opeFail
6940
6941	movzx %bx,%eax
6942	jmp opeDone
6943
6944	opeFail:
6945	xorl %eax,%eax
6946
6947	opeDone:
6948	popl %ebx
6949	leave
6950	ret
6951
6952	/*##########################################################################
6953	#
6954	# Name : RdosCloseEnv
6955	#
6956	# Purpose....: Close environment
6957	#
6958	# Parameters.: Env handle
6959	#
6960	##########################################################################*/
6961
6962	.global RdosCloseEnv
6963
6964	RdosCloseEnv:
6965	pushl %ebp
6966	movl %esp,%ebp
6967	pushl %ebx
6968
6969	movl 8(%ebp),%ebx
6970	UserGate close_env_nr
6971
6972	popl %ebx
6973	leave
6974	ret
6975
6976	/*##########################################################################
6977	#
6978	# Name : RdosAddEnvVar
6979	#
6980	# Purpose....: Add environment variable
6981	#
6982	# Parameters.: Env handle
6983	# var
6984	# data
6985	#
6986	##########################################################################*/
6987
6988	.global RdosAddEnvVar
6989
6990	RdosAddEnvVar:
6991	pushl %ebp
6992	movl %esp,%ebp
6993	pushl %ebx
6994	pushl %esi
6995	pushl %edi
6996
6997	movl 8(%ebp),%ebx
6998	movl 12(%ebp),%esi
6999	movl 16(%ebp),%edi
7000	UserGate add_env_var_nr
7001
7002	popl %edi
7003	popl %esi
7004	popl %ebx
7005	leave
7006	ret
7007
7008	/*##########################################################################
7009	#
7010	# Name : RdosDeleteEnvVar
7011	#
7012	# Purpose....: Delete environment variable
7013	#
7014	# Parameters.: Env handle
7015	# var
7016	#
7017	##########################################################################*/
7018
7019	.global RdosDeleteEnvVar
7020
7021	RdosDeleteEnvVar:
7022	pushl %ebp
7023	movl %esp,%ebp
7024	pushl %ebx
7025	pushl %esi
7026
7027	movl 8(%ebp),%ebx
7028	movl 12(%ebp),%esi
7029	UserGate delete_env_var_nr
7030
7031	popl %esi
7032	popl %ebx
7033	leave
7034	ret
7035
7036	/*##########################################################################
7037	#
7038	# Name : RdosFindEnvVar
7039	#
7040	# Purpose....: Find environment variable
7041	#
7042	# Parameters.: Env handle
7043	# var
7044	# data
7045	#
7046	##########################################################################*/
7047
7048	.global RdosFindEnvVar
7049
7050	RdosFindEnvVar:
7051	pushl %ebp
7052	movl %esp,%ebp
7053	pushl %ebx
7054	pushl %esi
7055	pushl %edi
7056
7057	movl 8(%ebp),%ebx
7058	movl 12(%ebp),%esi
7059	movl 16(%ebp),%edi
7060	UserGate find_env_var_nr
7061	jc fevFail
7062
7063	movl $1,%eax
7064	jmp fevDone
7065
7066	fevFail:
7067	xorl %eax,%eax
7068
7069	fevDone:
7070	popl %edi
7071	popl %esi
7072	popl %ebx
7073	leave
7074	ret
7075
7076	/*##########################################################################
7077	#
7078	# Name : RdosGetEnvData
7079	#
7080	# Purpose....: Get raw environment data
7081	#
7082	# Parameters.: Env handle
7083	# data
7084	#
7085	##########################################################################*/
7086
7087	.global RdosGetEnvData
7088
7089	RdosGetEnvData:
7090	pushl %ebp
7091	movl %esp,%ebp
7092	pushl %ebx
7093	pushl %edi
7094
7095	movl 8(%ebp),%ebx
7096	movl 12(%ebp),%edi
7097	UserGate get_env_data_nr
7098	jnc gedDone
7099
7100	xorw %ax,%ax
7101	stosw
7102
7103	gedDone:
7104	popl %edi
7105	popl %ebx
7106	leave
7107	ret
7108
7109	/*##########################################################################
7110	#
7111	# Name : RdosSetEnvData
7112	#
7113	# Purpose....: Set raw environment data
7114	#
7115	# Parameters.: Env handle
7116	# data
7117	#
7118	##########################################################################*/
7119
7120	.global RdosSetEnvData
7121
7122	RdosSetEnvData:
7123	pushl %ebp
7124	movl %esp,%ebp
7125	pushl %ebx
7126	pushl %edi
7127
7128	movl 8(%ebp),%ebx
7129	movl 12(%ebp),%edi
7130	UserGate set_env_data_nr
7131
7132	popl %edi
7133	popl %ebx
7134	leave
7135	ret
7136
7137	/*##########################################################################
7138	#
7139	# Name : RdosOpenSysIni
7140	#
7141	# Purpose....: Open system ini-file
7142	#
7143	# Returns....: Ini handle
7144	#
7145	##########################################################################*/
7146
7147	.global RdosOpenSysIni
7148
7149	RdosOpenSysIni:
7150	pushl %ebp
7151	movl %esp,%ebp
7152	pushl %ebx
7153
7154	UserGate open_sys_ini_nr
7155	jc osiFail
7156
7157	movzx %bx,%eax
7158	jmp osiDone
7159
7160	osiFail:
7161	xorl %eax,%eax
7162
7163	osiDone:
7164	popl %ebx
7165	leave
7166	ret
7167
7168	/*##########################################################################
7169	#
7170	# Name : RdosCloseIni
7171	#
7172	# Purpose....: Close ini-file
7173	#
7174	# Parameters.: Ini handle
7175	#
7176	##########################################################################*/
7177
7178	.global RdosCloseIni
7179
7180	RdosCloseIni:
7181	pushl %ebp
7182	movl %esp,%ebp
7183	pushl %ebx
7184
7185	movl 8(%ebp),%ebx
7186	UserGate close_ini_nr
7187
7188	popl %ebx
7189	leave
7190	ret
7191
7192	/*##########################################################################
7193	#
7194	# Name : RdosGotoIniSection
7195	#
7196	# Purpose....: Goto ini section
7197	#
7198	# Parameters.: Ini handle
7199	# SectionName
7200	#
7201	##########################################################################*/
7202
7203	.global RdosGotoIniSection
7204
7205	RdosGotoIniSection:
7206	pushl %ebp
7207	movl %esp,%ebp
7208	pushl %ebx
7209	pushl %edi
7210
7211	movl 8(%ebp),%ebx
7212	movl 12(%ebp),%edi
7213	UserGate goto_ini_section_nr
7214	jc gisFail
7215
7216	movl $1,%eax
7217	jmp gisDone
7218
7219	gisFail:
7220	xorl %eax,%eax
7221
7222	gisDone:
7223	popl %edi
7224	popl %ebx
7225	leave
7226	ret
7227
7228	/*##########################################################################
7229	#
7230	# Name : RdosRemoveIniSection
7231	#
7232	# Purpose....: Remove current ini section
7233	#
7234	# Parameters.: Ini handle
7235	#
7236	##########################################################################*/
7237
7238	.global RdosRemoveIniSection
7239
7240	RdosRemoveIniSection:
7241	pushl %ebp
7242	movl %esp,%ebp
7243	pushl %ebx
7244
7245	movl 8(%ebp),%ebx
7246	UserGate remove_ini_section_nr
7247	jc risFail
7248
7249	movl $1,%eax
7250	jmp risDone
7251
7252	risFail:
7253	xorl %eax,%eax
7254
7255	risDone:
7256	popl %ebx
7257	leave
7258	ret
7259
7260	/*##########################################################################
7261	#
7262	# Name : RdosReadIni
7263	#
7264	# Purpose....: Read ini var in current section
7265	#
7266	# Parameters.: Ini handle
7267	# VarName
7268	# Data
7269	# MaxSize
7270	#
7271	##########################################################################*/
7272
7273	.global RdosReadIni
7274
7275	RdosReadIni:
7276	pushl %ebp
7277	movl %esp,%ebp
7278	pushl %ebx
7279	pushl %ecx
7280	pushl %esi
7281	pushl %edi
7282
7283	movl 8(%ebp),%ebx
7284	movl 12(%ebp),%esi
7285	movl 16(%ebp),%edi
7286	movl 20(%ebp),%ecx
7287	UserGate read_ini_nr
7288	jc riFail
7289
7290	movl $1,%eax
7291	jmp riDone
7292
7293	riFail:
7294	xorl %eax,%eax
7295
7296	riDone:
7297	popl %edi
7298	popl %esi
7299	popl %ecx
7300	popl %ebx
7301	leave
7302	ret
7303
7304	/*##########################################################################
7305	#
7306	# Name : RdosWriteIni
7307	#
7308	# Purpose....: Write ini var in current section
7309	#
7310	# Parameters.: Ini handle
7311	# VarName
7312	# Data
7313	#
7314	##########################################################################*/
7315
7316	.global RdosWriteIni
7317
7318	RdosWriteIni:
7319	pushl %ebp
7320	movl %esp,%ebp
7321	pushl %ebx
7322	pushl %esi
7323	pushl %edi
7324
7325	movl 8(%ebp),%ebx
7326	movl 12(%ebp),%esi
7327	movl 16(%ebp),%edi
7328	UserGate write_ini_nr
7329	jc wiFail
7330
7331	movl $1,%eax
7332	jmp wiDone
7333
7334	wiFail:
7335	xorl %eax,%eax
7336
7337	wiDone:
7338	popl %edi
7339	popl %esi
7340	popl %ebx
7341	leave
7342	ret
7343
7344	/*##########################################################################
7345	#
7346	# Name : RdosDeleteIni
7347	#
7348	# Purpose....: Delete ini var in current section
7349	#
7350	# Parameters.: Ini handle
7351	# VarName
7352	#
7353	##########################################################################*/
7354
7355	.global RdosDeleteIni
7356
7357	RdosDeleteIni:
7358	pushl %ebp
7359	movl %esp,%ebp
7360	pushl %ebx
7361	pushl %esi
7362
7363	movl 8(%ebp),%ebx
7364	movl 12(%ebp),%esi
7365	UserGate delete_ini_nr
7366	jc diFail
7367
7368	movl $1,%eax
7369	jmp diDone
7370
7371	diFail:
7372	xorl %eax,%eax
7373
7374	diDone:
7375	popl %esi
7376	popl %ebx
7377	leave
7378	ret
7379
7380	/*##########################################################################
7381	#
7382	# Name : RdosCreateFileDrive
7383	#
7384	# Purpose....: Create a new file-drive
7385	#
7386	# Parameters.: Drive
7387	# Size
7388	# FS name
7389	# Filename
7390	#
7391	##########################################################################*/
7392
7393	.global RdosCreateFileDrive
7394
7395	RdosCreateFileDrive:
7396	pushl %ebp
7397	movl %esp,%ebp
7398	pushl %ecx
7399	pushl %esi
7400	pushl %edi
7401
7402	movb 8(%ebp),%al
7403	movl 12(%ebp),%ecx
7404	movl 16(%ebp),%esi
7405	movl 20(%ebp),%edi
7406	UserGate create_file_drive_nr
7407	jnc cfdOk
7408
7409	xorl %eax,%eax
7410	jmp cfdDone
7411
7412	cfdOk:
7413	movl $1,%eax
7414
7415	cfdDone:
7416	popl %edi
7417	popl %esi
7418	popl %ecx
7419	leave
7420	ret
7421
7422	/*##########################################################################
7423	#
7424	# Name : RdosOpenFileDrive
7425	#
7426	# Purpose....: Open a new file-drive
7427	#
7428	# Parameters.: Drive
7429	# Filename
7430	#
7431	##########################################################################*/
7432
7433	.global RdosOpenFileDrive
7434
7435	RdosOpenFileDrive:
7436	pushl %ebp
7437	movl %esp,%ebp
7438	pushl %edi
7439
7440	movb 8(%ebp),%al
7441	movl 12(%ebp),%edi
7442	UserGate open_file_drive_nr
7443	jnc ofdOk
7444
7445	xorl %eax,%eax
7446	jmp ofdDone
7447
7448	ofdOk:
7449	movl $1,%eax
7450
7451	ofdDone:
7452	popl %edi
7453	leave
7454	ret
7455
7456	/*##########################################################################
7457	#
7458	# Name : RdosEnableStatusLed
7459	#
7460	# Purpose....: Enable status LED
7461	#
7462	##########################################################################*/
7463
7464	.global RdosEnableStatusLed
7465
7466	RdosEnableStatusLed:
7467	pushl %ebp
7468	movl %esp,%ebp
7469	UserGate enable_status_led_nr
7470	leave
7471	ret
7472
7473	/*##########################################################################
7474	#
7475	# Name : RdosDisableStatusLed
7476	#
7477	# Purpose....: Disable status LED
7478	#
7479	##########################################################################*/
7480
7481	.global RdosDisableStatusLed
7482
7483	RdosDisableStatusLed:
7484	pushl %ebp
7485	movl %esp,%ebp
7486	UserGate disable_status_led_nr
7487	leave
7488	ret
7489
7490	/*##########################################################################
7491	#
7492	# Name : RdosStartWatchdog
7493	#
7494	# Purpose....: Start watchdog
7495	#
7496	# Parameters.: Timeout, ms
7497	#
7498	##########################################################################*/
7499
7500	.global RdosStartWatchdog
7501
7502	RdosStartWatchdog:
7503	pushl %ebp
7504	movl %esp,%ebp
7505	;
7506	movl 8(%ebp),%eax
7507	UserGate start_watchdog_nr
7508	;
7509	leave
7510	ret
7511
7512	/*##########################################################################
7513	#
7514	# Name : RdosKickWatchdog
7515	#
7516	# Purpose....: Kick watchdog
7517	#
7518	##########################################################################*/
7519
7520	.global RdosKickWatchdog
7521
7522	RdosKickWatchdog:
7523	pushl %ebp
7524	movl %esp,%ebp
7525	UserGate kick_watchdog_nr
7526	leave
7527	ret
7528

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format