Ported VMWareTools

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8198 8c9fc860-2736-0410-a75d-ab315db34111

source/Release.Tool

@@ -1126,7 +1126,7 @@ PACKAGE GuiApplications ARCHIVE "GuiApplications.zip" SOURCE "GuiApplicationsSrc
 
 	HotKeysCommands.Mod
 
-	I386 { I386.VMWareTools.Mod }		# VMWare
+	BIOS { VMWareTools.Mod }		# VMWare
 	SynergyClient.Mod			# Synergy
 
 	NATIVE {

source/I386.VMWareTools.Mod → source/VMWareTools.Mod

@@ -31,122 +31,250 @@ VAR
 	textbuffer : Strings.String;
 
 PROCEDURE -ReadMouse() : LONGINT;
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
+	PUSH ECX
 	MOV ECX, 4
 	MOV DX, 5658H
 	IN EAX, DX;
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	PUSH RCX
+	MOV ECX, 4
+	MOV DX, 5658H
+	IN EAX, DX;
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END ReadMouse;
 
 PROCEDURE -WriteMouse(pos : LONGINT);
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
 	POP EBX
+	PUSH ECX
 	MOV ECX, 5
 	MOV DX, 5658H
 	OUT DX, EAX;
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	POP EBX
+	PUSH RCX
+	MOV ECX, 5
+	MOV DX, 5658H
+	OUT DX, EAX;
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END WriteMouse;
 
 PROCEDURE -SendLength(l : LONGINT);
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
 	POP EBX
+	PUSH ECX
 	MOV ECX, 8
 	MOV DX, 5658H
 	OUT DX, EAX;
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	POP EBX
+	PUSH RCX
+	MOV ECX, 8
+	MOV DX, 5658H
+	OUT DX, EAX;
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END SendLength;
 
 PROCEDURE -Send4Chars(chars : LONGINT);
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
 	POP EBX
+	PUSH ECX
 	MOV ECX, 9
 	MOV DX, 5658H
 	OUT DX, EAX;
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	POP EBX
+	PUSH RCX
+	MOV ECX, 9
+	MOV DX, 5658H
+	OUT DX, EAX;
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END Send4Chars;
 
 PROCEDURE -ReceiveLength() : LONGINT;
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
+	PUSH ECX
 	MOV ECX, 6
 	MOV DX, 5658H
 	IN EAX, DX;
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	PUSH RCX
+	MOV ECX, 6
+	MOV DX, 5658H
+	IN EAX, DX;
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END ReceiveLength;
 
 PROCEDURE -Receive4Chars() : LONGINT;
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
+	PUSH ECX
 	MOV ECX, 7
 	MOV DX, 5658H
 	IN EAX, DX
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	PUSH RCX
+	MOV ECX, 7
+	MOV DX, 5658H
+	IN EAX, DX
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END Receive4Chars;
 
 PROCEDURE -GetVirtualHWVersion() : LONGINT;
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
+	PUSH ECX
 	MOV ECX, 11H
 	MOV DX, 5658H
 	IN EAX, DX
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	PUSH RCX
+	MOV ECX, 11H
+	MOV DX, 5658H
+	IN EAX, DX
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END GetVirtualHWVersion;
 
 PROCEDURE -GetVMWareVersion() : LONGINT;
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
+	PUSH ECX
 	MOV ECX, 0AH
 	MOV DX, 5658H
 	IN EAX, DX
 	MOV EAX, ECX
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	PUSH RCX
+	MOV ECX, 0AH
+	MOV DX, 5658H
+	IN EAX, DX
+	MOV EAX, ECX
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END GetVMWareVersion;
 
 (*
 PROCEDURE -GetDeviceInformation(nrnr : LONGINT) : LONGINT;
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
 	POP EBX
+	PUSH ECX
 	MOV ECX, 0BH
 	MOV DX, 5658H
 	IN EAX, DX
 	MOV EAX, EBX
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	POP EBX
+	PUSH RCX
+	MOV ECX, 0BH
+	MOV DX, 5658H
+	IN EAX, DX
+	MOV EAX, EBX
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END GetDeviceInformation;
 *)
 
 PROCEDURE -SetGUIOptions(options: SET);
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
 	POP EBX
+	PUSH ECX
 	MOV ECX, 0EX
 	MOV DX, 5658H
 	OUT DX, EAX;
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	POP EBX
+	PUSH RCX
+	MOV ECX, 0EX
+	MOV DX, 5658H
+	OUT DX, EAX;
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END SetGUIOptions;
 
 PROCEDURE -GetGUIOptions(): SET;
-CODE {SYSTEM.i386}
-	PUSH ECX
+CODE
+#IF I386 THEN
 	MOV EAX, 564D5868H
+	PUSH ECX
 	MOV ECX, 0DX
 	MOV DX, 5658H
 	IN EAX, DX;
 	POP ECX
+#ELSIF AMD64 THEN
+	MOV EAX, 564D5868H
+	PUSH RCX
+	MOV ECX, 0DX
+	MOV DX, 5658H
+	IN EAX, DX;
+	POP RCX
+#ELSE
+	unimplemented
+#END
 END GetGUIOptions;
 
 PROCEDURE SetMousePos(x, y : LONGINT);