Use WORD instead of LONGINT as result type

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

source/AFM.Mod

@@ -50,7 +50,7 @@ TYPE
 			RETURN (w * size) / 1000
 		END GetStringWidth;
 
-		PROCEDURE LoadAFM(filename : ARRAY OF CHAR; VAR res : LONGINT);
+		PROCEDURE LoadAFM(filename : ARRAY OF CHAR; VAR res : WORD);
 		VAR f : Files.File; r : Files.Reader;
 			t  : ARRAY 32 OF CHAR;
 			hasName, hasCharMetrics, isC : BOOLEAN;
@@ -102,7 +102,7 @@ TYPE
 	END FontMetrics;
 
 VAR times*, helvetica*, helveticaBold*  : FontMetrics;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	NEW(times);
 	times.LoadAFM("TIR.AFM", res);

source/AM79C970.Mod

@@ -156,7 +156,7 @@ TYPE
 
 		PROCEDURE &Init*(dev: LinkDevice; base, irq: LONGINT);
 		VAR
-			res: LONGINT;
+			res: WORD;
 			s: SET;
 			i,x: INTEGER;
 

source/AMD64.ATADisks.Mod

@@ -224,7 +224,7 @@ TYPE
 			DeviceReset = SYSTEM.VAL(LONGINT, Protocol_DeviceReset);
 			NonData = SYSTEM.VAL(LONGINT, Protocol_NonData);
 		VAR
-			res: LONGINT;
+			res: WORD;
 			ch: CHAR;
 			dma: BOOLEAN;
 		BEGIN {EXCLUSIVE}
@@ -390,7 +390,7 @@ TYPE
 		VAR
 			ch: CHAR;
 			s: SET;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			(* Clear Interrupt & Errror *)
 			Machine.Portin8(bmbase + Ofs_BMStatus, ch); s := SYSTEM.VAL(SET, ORD(ch));
@@ -460,7 +460,7 @@ TYPE
 		VAR
 			t: Kernel.MilliTimer;
 			status: SET;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			IF state = 1 THEN RETURN Res_Err; END;
 			(* HSR0 *)
@@ -485,7 +485,7 @@ TYPE
 			cmdPacket: CommandPacket;
 			ch: CHAR;
 			status, devReg: SET;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			(* HI1 *)
 			res := WaitStatus({Status_BSY, Status_DRQ}, {}, {}, ms, status);
@@ -749,7 +749,7 @@ TYPE
 			States: HPD0(Check_Status_A), HPD1 (Send_Packet), HPD2 (Check_Status_B), HPD3 (INTRQ_wait), HPD4 (Transfer_Data) *)
 		PROCEDURE ProtPacketDMA(command: CommandPacket; ms: LONGINT; VAR status: SET): LONGINT;
 		VAR
-			res: LONGINT;
+			res: WORD;
 			ch: CHAR;
 			s: SET;
 			t: Kernel.MilliTimer;
@@ -801,7 +801,7 @@ TYPE
 
 		PROCEDURE CreateDevice(devNum: LONGINT): LONGINT;
 		VAR status: SET;
-			res: LONGINT; dev, devATA: Device; devATAPI: DeviceATAPI; ch: CHAR;
+			res: WORD; dev, devATA: Device; devATAPI: DeviceATAPI; ch: CHAR;
 			buf: ARRAY BS DIV 2 OF INTEGER;
 			command: Command;
 			devReg: SET;
@@ -968,7 +968,7 @@ TYPE
 		cmdLBA: CommandLBA;
 		cmdLBA48: CommandLBA48;
 
-		PROCEDURE Transfer*(op, block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: LONGINT);
+		PROCEDURE Transfer*(op, block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: WORD);
 		VAR
 			num1, try, ignore: LONGINT; bufAdr: ADDRESS;
 			dma: BOOLEAN;
@@ -1028,7 +1028,7 @@ TYPE
 			res := Disks.Ok;
 		END GetSize;
 
-		PROCEDURE Handle*(VAR msg: Disks.Message; VAR res: LONGINT);
+		PROCEDURE Handle*(VAR msg: Disks.Message; VAR res: WORD);
 		BEGIN
 			res := Disks.Unsupported;
 			IF msg IS Disks.GetGeometryMsg THEN
@@ -1081,7 +1081,7 @@ TYPE
 		END TransferEx;
 
 		PROCEDURE Reset(): LONGINT;
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			IF TraceVerbose & (trace * TraceCommands # {})  THEN Show(name); KernelLog.String(" reset controller"); KernelLog.Ln; END;
 			res := controller.Reset();
@@ -1105,7 +1105,7 @@ TYPE
 		END InitDevice;
 
 		PROCEDURE Flush(): LONGINT;
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			res := Disks.Unsupported;
 			IF FlushBit IN id.type THEN
@@ -1123,7 +1123,7 @@ TYPE
 		PROCEDURE MediaLock(lock: BOOLEAN): LONGINT;
 		VAR
 			command: CommandLBA;
-			res: LONGINT;
+			res: WORD;
 			status: SET;
 		BEGIN {EXCLUSIVE}
 			IF RMSNBit IN id.type THEN
@@ -1393,7 +1393,7 @@ TYPE
 		END Create;
 
 		PROCEDURE Finalize;
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			(* unregister device *)
 			Disks.registry.Remove(SELF);
@@ -1440,7 +1440,7 @@ TYPE
 			END;
 		END GetSize;
 
-		PROCEDURE Handle*(VAR msg: Disks.Message; VAR res: LONGINT);
+		PROCEDURE Handle*(VAR msg: Disks.Message; VAR res: WORD);
 		BEGIN
 			res := Disks.Unsupported;
 			IF msg IS Disks.GetGeometryMsg THEN
@@ -1489,7 +1489,7 @@ TYPE
 			RETURN res;
 		END ExecuteCommand;
 
-		PROCEDURE ProcessSense(VAR res: LONGINT);
+		PROCEDURE ProcessSense(VAR res: WORD);
 		BEGIN
 			IF res = Res_OK THEN
 				sense := 0; asc := 0; ascq := 0;
@@ -1530,7 +1530,7 @@ TYPE
 		END TransferEx;
 
 		PROCEDURE WaitUntilReady(): LONGINT;
-		VAR res: LONGINT; retry: BOOLEAN;
+		VAR res: WORD; retry: BOOLEAN;
 		BEGIN
 			REPEAT
 				retry := FALSE;
@@ -1582,7 +1582,7 @@ TYPE
 		VAR
 			command: CommandPacket;
 			buf: ARRAY 18 OF CHAR;
-			res: LONGINT;
+			res: WORD;
 			status: SET;
 		BEGIN
 			IF TraceVerbose & (trace * (TraceCommands + TraceAtapi) # {}) THEN
@@ -1619,7 +1619,7 @@ TYPE
 		PROCEDURE TestUnitReady*(): LONGINT;
 		VAR
 			command: CommandPacket;
-			res: LONGINT;
+			res: WORD;
 			status: SET;
 		BEGIN
 			IF TraceVerbose & (trace * (TraceCommands + TraceAtapi) # {}) THEN
@@ -1672,7 +1672,7 @@ TYPE
 		PROCEDURE MediaLock*(lock: BOOLEAN): LONGINT;
 		VAR
 			command: CommandPacket;
-			res: LONGINT;
+			res: WORD;
 			status: SET;
 		BEGIN {EXCLUSIVE}
 			command := NewCommandPacket(1EH); (* prevent/allow medium removal *)
@@ -1689,7 +1689,7 @@ TYPE
 		PROCEDURE Powersave(): LONGINT;
 		VAR
 			command: CommandPacket;
-			res: LONGINT;
+			res: WORD;
 			status: SET;
 		BEGIN {EXCLUSIVE}
 			command := NewCommandPacket(1BH); (* start/stop unit *)
@@ -1801,7 +1801,7 @@ TYPE
 		END NewCommandPacket;
 
 		PROCEDURE IdentifyDevice(buf: ARRAY OF INTEGER): LONGINT;
-		VAR res : LONGINT;
+		VAR res : WORD;
 		BEGIN
 			maxTransfer := 65535;
 
@@ -1880,7 +1880,7 @@ TYPE
 		END ShowDevice;
 
 		PROCEDURE &Create*(acontroller: Controller; adev: LONGINT; identifyDevice: ARRAY OF INTEGER);
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			INCL(id.type, AtapiBit);
 			NEW(cmdPacket);

source/AMD64.IP.Mod

@@ -89,7 +89,7 @@ TYPE
 			subnet as the "localAdr".
 			"domain" can be an empty string. It is normally used by a DNS implementation. It is not used in IP directly.
 			In IPv6 maskAdr is the prefix of the currently IP address *)
-		PROCEDURE SetAdrs*(localAdr, maskOrPrefixAdr, gatewayAdr: Adr; VAR res: LONGINT);
+		PROCEDURE SetAdrs*(localAdr, maskOrPrefixAdr, gatewayAdr: Adr; VAR res: WORD);
 		BEGIN
 			(* Extensions have to override this method.*)
 			HALT(99);
@@ -1489,7 +1489,7 @@ END SetIPv6AdrNil;
 
 
 (* Add the interface to the IP configuration. *)
-PROCEDURE AddInterface*(int: Interface; VAR res: LONGINT);
+PROCEDURE AddInterface*(int: Interface; VAR res: WORD);
 VAR
 	item: Interface;
 BEGIN {EXCLUSIVE}

source/AMD64.IPv4.Mod

@@ -48,7 +48,7 @@ TYPE
 			"name" must be a unique name for this interface (tested in "AddInterface").
 			"dev" must be a Network.LinkDevice that can be used in other interfaces => multiple IP addresses on the
 			same interface. *)
-		PROCEDURE &Constr*(name: IP.Name; dev: Network.LinkDevice; VAR res: LONGINT);
+		PROCEDURE &Constr*(name: IP.Name; dev: Network.LinkDevice; VAR res: WORD);
 		VAR
 			i: LONGINT;
 
@@ -338,7 +338,7 @@ TYPE
 			If "gatewayAdr" is "NilAdr", the subnet is considered to have no gateway, else it must be in the same
 			subnet as the "localAdr".
 			"domain" can be an empty string. It is normally used by a DNS implementation. It is not used in IP directly. *)
-		PROCEDURE SetAdrs*(localAdr, maskAdr, gatewayAdr: IP.Adr; VAR res: LONGINT);
+		PROCEDURE SetAdrs*(localAdr, maskAdr, gatewayAdr: IP.Adr; VAR res: WORD);
 		VAR
 			maskSet: SET;
 

source/AMD64.MemCache.Mod

@@ -86,7 +86,7 @@ END SetMTTRphysMask;
 
 (** Set the cache properties of the specified physical memory area on the current processor. {physAdr, size MOD PS = 0}  Must be called from supervisor mode. *)
 
-PROCEDURE LocalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: LONGINT);
+PROCEDURE LocalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: WORD);
 VAR i, n, f: LONGINT; mask, base: SET; j, k: ADDRESS;
 BEGIN
 	ASSERT((physAdr MOD PS = 0) & (size MOD PS = 0) & (size # 0));
@@ -151,7 +151,7 @@ END HandleSetCacheProperties;
 
 (** Broadcast a LocalSetCacheProperties operation to all processors. *)
 
-PROCEDURE GlobalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: LONGINT);
+PROCEDURE GlobalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: WORD);
 VAR i: LONGINT; msg: SetCacheMessage;
 BEGIN
 	NEW(msg); msg.physAdr := physAdr; msg.size := size; msg.type := type;

source/AMD64.MemInfo.Mod

@@ -176,7 +176,7 @@ END DisplayMTTR;
 
 (*
 PROCEDURE IntSetCache(VAR state: Machine.State);
-VAR res: LONGINT;
+VAR res: WORD;
 BEGIN
 	Machine.SetLocalCacheProperties(0FA800000H, 800000H, Machine.WC, res);
 	KernelLog.Enter; KernelLog.String("SetCache "); KernelLog.Int(res, 1); KernelLog.Exit
@@ -243,7 +243,7 @@ BEGIN
 END Test2;
 
 PROCEDURE Test3*;
-VAR res: LONGINT;
+VAR res: WORD;
 BEGIN
 	Processors.GlobalSetCacheProperties(0FA800000H, 800000H, Machine.WC, res);
 	KernelLog.Enter; KernelLog.String("SetCache "); KernelLog.Int(res, 1); KernelLog.Exit

source/AMD64.PCI.Mod

@@ -81,7 +81,7 @@ MODULE PCI;	(** non-portable *)
 	END BiosServiceDirectory;
 
 	PROCEDURE FindBios32Service*(serviceId, serviceFkt: LONGINT; VAR serviceAdr: ADDRESS; VAR serviceLen, entryOffset: LONGINT): LONGINT;
-	VAR ch: CHAR; res: LONGINT; state: SET;
+	VAR ch: CHAR; res: WORD; state: SET;
 	BEGIN {EXCLUSIVE}
 		IF bios32 THEN
 			state := Machine.DisableInterrupts();
@@ -342,7 +342,7 @@ MODULE PCI;	(** non-portable *)
 
 	(** Set bits included in <mask> in the PCI command register if not set already *)
 	PROCEDURE Enable*(mask : SET; busNr, devNr, fktNr : LONGINT) : LONGINT;
-	VAR cmdReg : LONGINT; res : LONGINT;
+	VAR cmdReg : LONGINT; res : WORD;
 	BEGIN
 		res := ReadConfigWord(busNr, devNr, fktNr, CmdReg, cmdReg);
 		IF (res = Done) THEN

source/AMD64.UsbKeyboard.Mod

@@ -482,7 +482,7 @@ END UsbScanTab;
 
 (* Maps USB key code to X11 keysym (/usr/include/X11/keysymdef.h). *)
 PROCEDURE KeySym*(VAR ch : CHAR; VAR leds : SET): LONGINT;
-VAR res: LONGINT;
+VAR res: WORD;
 BEGIN
 	CASE ch OF
 		028X: res := Inputs.KsReturn (* Return *)
@@ -553,7 +553,7 @@ BEGIN
 END KeySym;
 
 PROCEDURE GetModifierKeysym(modifier : LONGINT) : LONGINT;
-VAR res : LONGINT;
+VAR res : WORD;
 BEGIN
 	CASE modifier OF
 		|Inputs.LeftCtrl: res := Inputs.KsControlL;

source/ARM.IP.Mod

@@ -89,7 +89,7 @@ TYPE
 			subnet as the "localAdr".
 			"domain" can be an empty string. It is normally used by a DNS implementation. It is not used in IP directly.
 			In IPv6 maskAdr is the prefix of the currently IP address *)
-		PROCEDURE SetAdrs*(localAdr, maskOrPrefixAdr, gatewayAdr: Adr; VAR res: LONGINT);
+		PROCEDURE SetAdrs*(localAdr, maskOrPrefixAdr, gatewayAdr: Adr; VAR res: WORD);
 		BEGIN
 			(* Extensions have to override this method.*)
 			HALT(99);
@@ -1497,7 +1497,7 @@ END SetIPv6AdrNil;
 
 
 (* Add the interface to the IP configuration. *)
-PROCEDURE AddInterface*(int: Interface; VAR res: LONGINT);
+PROCEDURE AddInterface*(int: Interface; VAR res: WORD);
 VAR
 	item: Interface;
 BEGIN {EXCLUSIVE}

source/ARM.IPv4.Mod

@@ -50,7 +50,7 @@ TYPE
 			"name" must be a unique name for this interface (tested in "AddInterface").
 			"dev" must be a Network.LinkDevice that can be used in other interfaces => multiple IP addresses on the
 			same interface. *)
-		PROCEDURE &Constr*(name: IP.Name; dev: Network.LinkDevice; VAR res: LONGINT);
+		PROCEDURE &Constr*(name: IP.Name; dev: Network.LinkDevice; VAR res: WORD);
 		VAR
 			i: LONGINT;
 
@@ -340,7 +340,7 @@ TYPE
 			If "gatewayAdr" is "NilAdr", the subnet is considered to have no gateway, else it must be in the same
 			subnet as the "localAdr".
 			"domain" can be an empty string. It is normally used by a DNS implementation. It is not used in IP directly. *)
-		PROCEDURE SetAdrs*(localAdr, maskAdr, gatewayAdr: IP.Adr; VAR res: LONGINT);
+		PROCEDURE SetAdrs*(localAdr, maskAdr, gatewayAdr: IP.Adr; VAR res: WORD);
 		VAR
 			maskSet: SET;
 

source/AVI.Mod

@@ -267,7 +267,7 @@ IMPORT
 		videoFramePos: LONGINT;
 		audioFramePos: LONGINT;
 
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		BEGIN
 			r := in;
 			res := AOC.ResFailed;
@@ -1132,8 +1132,8 @@ IMPORT
 			END;
 		END GetData;
 
-		PROCEDURE SetStreamPos*(streamNr: LONGINT; seekType: LONGINT; pos: LONGINT; VAR itemSize: LONGINT; VAR res: LONGINT);
-		(* PROCEDURE SetStreamPos*(streamNr, pos : LONGINT; VAR res: LONGINT); *)
+		PROCEDURE SetStreamPos*(streamNr: LONGINT; seekType: LONGINT; pos: LONGINT; VAR itemSize: LONGINT; VAR res: WORD);
+		(* PROCEDURE SetStreamPos*(streamNr, pos : LONGINT; VAR res: WORD); *)
 		VAR
 			n0, n1, n, spos: LONGINT;
 			(* seekType, itemSize : LONGINT; *)

source/Adaptec7.Mod

@@ -1820,7 +1820,7 @@ BEGIN	WriteScsiState(firstBus)
 END ScsiState;
 
 PROCEDURE Test*;
-VAR  d: Bus;  res: LONGINT;
+VAR  d: Bus;  res: WORD;
 BEGIN
 	d := firstBus;
 	KernelLog.String("Adaptec7.Test"); KernelLog.Int(aCount, 0); KernelLog.Ln;
@@ -1830,7 +1830,7 @@ BEGIN
 END Test;
 
 PROCEDURE Scan*;
-VAR  d: Bus;  res: LONGINT;  i: SHORTINT;  inq: SCSI.InquiryData;
+VAR  d: Bus;  res: WORD;  i: SHORTINT;  inq: SCSI.InquiryData;
 BEGIN
 	d := firstBus;
 	KernelLog.String("Adaptec7.Scan"); KernelLog.Int(aCount, 0); KernelLog.Ln;

source/AlmSmtpReceiver.Mod

@@ -142,7 +142,7 @@ TYPE
 	SmtpAgent* = OBJECT (TCPServices.Agent)
 	VAR
 			ch: CHAR;				(*current input character*)
-			res: LONGINT;
+			res: WORD;
 			out: Streams.Writer; in: Streams.Reader;
 			log : Files.Writer;
 			env : Envelope;
@@ -382,7 +382,7 @@ TYPE
 
 	(* Begin Parser Productions *)
 	PROCEDURE HELO*;
-		VAR res : LONGINT;
+		VAR res : WORD;
 	BEGIN
 		Confirm(SyHelo);
 		sym := SyCopy; ToMemory (env.mta);
@@ -1027,7 +1027,7 @@ BEGIN
 END Announce;
 
 PROCEDURE Open*;
-VAR res : LONGINT;
+VAR res : WORD;
 BEGIN
 	IF smtp = NIL THEN
 		NEW(smtp, AlmSmtpReceiverPort, NewSmtpAgent, res);

source/AnimationCodec.Mod

@@ -70,12 +70,12 @@ TYPE
 		END ReportError;
 
 		(* open the decoder on an InputStream *)
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		VAR
 			scanner : XMLScanner.Scanner; parser : XMLParser.Parser; document : XML.Document;
 			content : XML.Content;
 
-			PROCEDURE CheckHeader(header : XML.Element; VAR res : LONGINT);
+			PROCEDURE CheckHeader(header : XML.Element; VAR res : WORD);
 			VAR name, version : Strings.String; ignore : BOOLEAN;
 			BEGIN
 				ASSERT(header # NIL);
@@ -129,7 +129,7 @@ TYPE
 			END;
 		END Open;
 
-		PROCEDURE ProcessFrame(frame : XML.Element; VAR desc : Codecs.ImageDescriptor; VAR res : LONGINT);
+		PROCEDURE ProcessFrame(frame : XML.Element; VAR desc : Codecs.ImageDescriptor; VAR res : WORD);
 		VAR string, imageName : Strings.String; from, to, current, minDigits : LONGINT; filename : Files.FileName; last, d : Codecs.ImageDescriptor;
 		BEGIN
 			NEW(desc);
@@ -185,7 +185,7 @@ TYPE
 			END;
 		END ProcessFrame;
 
-		PROCEDURE ProcessFrames(frames : XML.Element; VAR sequence : Codecs.ImageSequence; VAR res : LONGINT);
+		PROCEDURE ProcessFrames(frames : XML.Element; VAR sequence : Codecs.ImageSequence; VAR res : WORD);
 		VAR frame : XML.Content; name : Strings.String; desc, last : Codecs.ImageDescriptor; value : LONGINT;
 		BEGIN
 			ASSERT(frames # NIL);
@@ -221,7 +221,7 @@ TYPE
 			END;
 		END ProcessFrames;
 
-		PROCEDURE GetImageSequence*(VAR sequence : Codecs.ImageSequence; VAR res : LONGINT);
+		PROCEDURE GetImageSequence*(VAR sequence : Codecs.ImageSequence; VAR res : WORD);
 		VAR content : XML.Content; frames : XML.Element; string : Strings.String;
 		BEGIN
 			IF (animation = NIL) THEN res := Codecs.ResFailed; RETURN; END;

source/Archives.Mod

@@ -90,7 +90,7 @@ TYPE
 		a : StringObject;
 		archive : Archive;
 		config, factoryName : ARRAY 128 OF CHAR;
-		res : LONGINT;
+		res : WORD;
 	BEGIN
 		archive := NIL;
 		config := "Archives."; Strings.Append(config, type);
@@ -111,7 +111,7 @@ TYPE
 		a : StringObject;
 		archive : Archive;
 		config, factoryName : ARRAY 128 OF CHAR;
-		res : LONGINT;
+		res : WORD;
 	BEGIN
 		archive := NIL;
 		config := "Archives."; Strings.Append(config, type);

source/Autostart.Mod

@@ -10,7 +10,7 @@ CONST
 PROCEDURE Run*;
 VAR enum: XMLObjects.Enumerator; p: ANY; e: XML.Element; value: XML.String;
 	autostart : XML.Element;
-	msg: ARRAY 128 OF CHAR; res: LONGINT;
+	msg: ARRAY 128 OF CHAR; res: WORD;
 BEGIN
 	autostart := Configuration.GetSection("Autostart");
 	IF autostart # NIL THEN

source/BB.StdCoder.Mod

@@ -44,7 +44,7 @@ VAR
 	END ShowError;
 
 
-	PROCEDURE read( r: Streams.Reader; VAR res: LONGINT ): LONGINT;
+	PROCEDURE read( r: Streams.Reader; VAR res: WORD ): LONGINT;
 	VAR ch: CHAR; x: LONGINT;
 	BEGIN
 		IF res = 0 THEN
@@ -64,7 +64,7 @@ VAR
 
 
 	PROCEDURE ReadHeader(		r: Streams.Reader; 
-									VAR res: LONGINT;  VAR name: ARRAY OF CHAR;  VAR type: LONGINT );
+									VAR res: WORD;  VAR name: ARRAY OF CHAR;  VAR type: LONGINT );
 	VAR 
 		x, bits, i: LONGINT; ch: CHAR; tag: ARRAY 16 OF CHAR;
 	BEGIN
@@ -97,7 +97,7 @@ VAR
 	END ReadHeader;
 	
 	
-	PROCEDURE SkipFileType(r: Streams.Reader; VAR res: LONGINT ): BOOLEAN;
+	PROCEDURE SkipFileType(r: Streams.Reader; VAR res: WORD ): BOOLEAN;
 	VAR x, bits, i: LONGINT; ch: CHAR;  ftype: FileType; 
 	BEGIN
 		res := 0;  i := 0; bits := 0;  x := 0;
@@ -111,7 +111,7 @@ VAR
 	END SkipFileType;
 	
 	
-	PROCEDURE ReadInteger( r: Streams.Reader; VAR res: LONGINT ): LONGINT;
+	PROCEDURE ReadInteger( r: Streams.Reader; VAR res: WORD ): LONGINT;
 	VAR bits, val: LONGINT;
 	BEGIN
 		bits := 0;  val := 0;
@@ -120,7 +120,7 @@ VAR
 	END ReadInteger;
 	
 	
-	PROCEDURE ReadFile( r: Streams.Reader; VAR res: LONGINT ): Files.File;
+	PROCEDURE ReadFile( r: Streams.Reader; VAR res: WORD ): Files.File;
 	VAR 
 		hash, x, bits, i, len, sum, s: LONGINT; byte: SHORTINT;  f: Files.File;  w: Files.Writer;
 	BEGIN
@@ -155,7 +155,7 @@ VAR
 	
 	PROCEDURE NewFile( CONST name: ARRAY OF CHAR ): Files.File;
 	VAR
-		f: Files.File;  res: LONGINT;  name2: Files.FileName; 
+		f: Files.File;  res: WORD;  name2: Files.FileName; 
 	BEGIN
 		f := Files.Old( name );
 		IF f # NIL THEN
@@ -213,7 +213,7 @@ VAR
 	
 	
 	PROCEDURE DecodeFile( r: Streams.Reader; CONST name: Files.FileName );
-	VAR res: LONGINT; f: Files.File;
+	VAR res: WORD; f: Files.File;
 	BEGIN
 		IF SkipFileType( r, res ) THEN
 			f := ReadFile( r, res );
@@ -225,7 +225,7 @@ VAR
 	END DecodeFile;
 	
 	
-	PROCEDURE DecodeFileList ( r: Streams.Reader; VAR res: LONGINT );
+	PROCEDURE DecodeFileList ( r: Streams.Reader; VAR res: WORD );
 	VAR 
 		i: LONGINT; p, files: FileList; ch: CHAR;
 		f: Files.File; fr: Files.Reader; path: Files.FileName;

source/BMPCodec.Mod

@@ -34,7 +34,7 @@ TYPE
 		END Log;
 
 		(* open the decoder on a file *)
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		VAR
 			pix: Raster.Pixel; ch: CHAR;
 		BEGIN
@@ -144,7 +144,7 @@ TYPE
 		PROCEDURE SetQuality*(quality : LONGINT);
 		END SetQuality;
 
-		PROCEDURE WriteImage*(img : Raster.Image; VAR res : LONGINT);
+		PROCEDURE WriteImage*(img : Raster.Image; VAR res : WORD);
 		VAR
 			col, redMask, greenMask, blueMask: LONGINT;
 			palentries, dataSize: LONGINT; bpp: INTEGER;

source/BT848.Mod

@@ -3413,7 +3413,7 @@ END ScanPCI;
 (* Install procedure for installing a TV card. *)
 PROCEDURE InstallDevices;
 VAR
-	res: LONGINT;
+	res: WORD;
 	dev: VideoCaptureDevice;
 BEGIN {EXCLUSIVE}
 	IF nOfInstalledDevices = 0 THEN

source/BenchTCP.Mod

@@ -100,7 +100,7 @@ VAR
 	buf: Bytes;
 
 
-PROCEDURE Message(CONST msg1, msg2: ARRAY OF CHAR; res: LONGINT);
+PROCEDURE Message(CONST msg1, msg2: ARRAY OF CHAR; res: WORD);
 BEGIN
 	KernelLog.String(Header); KernelLog.String(msg1); KernelLog.String(msg2);
 	IF res # 0 THEN

source/BimboScanner.Mod

@@ -46,7 +46,7 @@ TYPE
 			NEW(data, initialSize); length := 0;
 		END Init;
 
-		PROCEDURE Add*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+		PROCEDURE Add*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD);
 		VAR i : LONGINT; n : Strings.String;
 		BEGIN
 			IF length + len + 1 >= LEN(data) THEN

source/BiosFreePCI.Mod

@@ -56,7 +56,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 
 
 	PROCEDURE PCIPresent*(VAR version, lastPCIbus, hwMech: LONGINT): LONGINT;
-	VAR res: LONGINT; pci: Pci; r0: LONGINT;
+	VAR res: WORD; pci: Pci; r0: LONGINT;
 	BEGIN {EXCLUSIVE}
 		IF pciEnabled THEN
 			StartIterate(pci);
@@ -142,7 +142,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 	END FindPCIClassCode;
 
 	PROCEDURE GenerateSpecialCycle*(busNr, specCycleData: LONGINT): LONGINT;
-	VAR res: LONGINT;
+	VAR res: WORD;
 	BEGIN {EXCLUSIVE}
 		IF pciEnabled THEN
 			(*
@@ -166,7 +166,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 	PROCEDURE GetIrqRoutingOptions*(VAR rt: RouteTable; VAR IrqBitmap: SET): LONGINT;
 	CONST dbN = 16*8;
 	VAR
-		res: LONGINT;
+		res: WORD;
 		(*eflags, state: SET;
 		rb: RouteBuffer; db: ARRAY dbN OF CHAR;
 		last: RouteTable;
@@ -214,7 +214,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 	END GetIrqRoutingOptions;
 
 	PROCEDURE SetPCIIrq*(IntPin, IrqNum, busNr, devNr, fktNr: LONGINT): LONGINT;
-	VAR res:LONGINT;
+	VAR res:WORD;
 	BEGIN {EXCLUSIVE}
 		IF pciEnabled THEN
 			(*
@@ -237,7 +237,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 
 	(** Set bits included in <mask> in the PCI command register if not set already *)
 	PROCEDURE Enable*(mask : SET; busNr, devNr, fktNr : LONGINT) : LONGINT;
-	VAR cmdReg : LONGINT; res : LONGINT;
+	VAR cmdReg : LONGINT; res : WORD;
 	BEGIN
 		res := ReadConfigWord(busNr, devNr, fktNr, CmdReg, cmdReg);
 		IF (res = Done) THEN
@@ -324,7 +324,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 	END GetAdr1;
 
 	PROCEDURE PCIReadConfig32(pciBus, pciDev, pciFn, reg: LONGINT; VAR val: LONGINT): LONGINT;
-	VAR adr, dataAdr: LONGINT; state: SET; res: LONGINT;
+	VAR adr, dataAdr: LONGINT; state: SET; res: WORD;
 	BEGIN
 		IF pciEnabled THEN
 			state := Machine.DisableInterrupts();
@@ -340,7 +340,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 	END PCIReadConfig32;
 
 	PROCEDURE PCIReadConfig16(pciBus, pciDev, pciFn, reg: LONGINT; VAR val: LONGINT): LONGINT;
-	VAR adr, dataAdr: LONGINT; state: SET;res: LONGINT; int: INTEGER;
+	VAR adr, dataAdr: LONGINT; state: SET;res: WORD; int: INTEGER;
 	BEGIN
 		IF pciEnabled THEN
 			state := Machine.DisableInterrupts();
@@ -357,7 +357,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 	END PCIReadConfig16;
 
 	PROCEDURE PCIReadConfig8(pciBus, pciDev, pciFn, reg: LONGINT; VAR val: LONGINT): LONGINT;
-	VAR adr, dataAdr: LONGINT; state: SET;res: LONGINT; chr: CHAR;
+	VAR adr, dataAdr: LONGINT; state: SET;res: WORD; chr: CHAR;
 	BEGIN
 		IF pciEnabled THEN
 			state := Machine.DisableInterrupts();
@@ -374,7 +374,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 	END PCIReadConfig8;
 
 	PROCEDURE PCIWriteConfig32(pciBus, pciDev, pciFn: LONGINT; reg: LONGINT;  val: LONGINT): LONGINT;
-	VAR adr, dataAdr: LONGINT; state: SET;res: LONGINT;
+	VAR adr, dataAdr: LONGINT; state: SET;res: WORD;
 	BEGIN
 		IF pciEnabled THEN
 			state := Machine.DisableInterrupts();
@@ -390,7 +390,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 	END PCIWriteConfig32;
 
 	PROCEDURE PCIWriteConfig16(pciBus, pciDev, pciFn: LONGINT; reg: LONGINT;  val: LONGINT): LONGINT;
-	VAR adr, dataAdr: LONGINT; state: SET;res: LONGINT;
+	VAR adr, dataAdr: LONGINT; state: SET;res: WORD;
 	BEGIN
 		IF pciEnabled THEN
 			state := Machine.DisableInterrupts();
@@ -406,7 +406,7 @@ MODULE PCI;	 (** author: fof -- PCI without using PCI bios (using PCI tables des
 	END PCIWriteConfig16;
 
 	PROCEDURE PCIWriteConfig8(pciBus, pciDev, pciFn: LONGINT; reg: LONGINT;  val: LONGINT): LONGINT;
-	VAR adr, dataAdr: LONGINT; state: SET;res: LONGINT;
+	VAR adr, dataAdr: LONGINT; state: SET;res: WORD;
 	BEGIN
 		IF pciEnabled THEN
 			state := Machine.DisableInterrupts();

source/Bluetooth.Mod

@@ -148,7 +148,7 @@ TYPE
 		END HandleTimeout;
 
 		(** blocks until a HCI packet is available or a timeout occurs. Packet filters are priorized over the Get request *)
-		PROCEDURE Get*(VAR p: Packet; timeout: LONGINT; VAR res: LONGINT);
+		PROCEDURE Get*(VAR p: Packet; timeout: LONGINT; VAR res: WORD);
 		VAR timer: IDTimer;
 		BEGIN {EXCLUSIVE}
 			IF (head = NIL) THEN
@@ -179,7 +179,7 @@ TYPE
 		END GetNextHandler;
 
 		(* naaa...won't work. besser: filter rein, der alles frisst, dann wieder rausnehmen *)
-		PROCEDURE GetNext*(VAR p: Packet; timeout: LONGINT; VAR res: LONGINT);
+		PROCEDURE GetNext*(VAR p: Packet; timeout: LONGINT; VAR res: WORD);
 		VAR f: Filter; timer: IDTimer;
 		BEGIN {EXCLUSIVE}
 			(* lock *)
@@ -277,19 +277,19 @@ TYPE
 		END GetSink;
 
 		(** send a HCI packet *)
-		PROCEDURE Send*(type: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: LONGINT);
+		PROCEDURE Send*(type: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: WORD);
 		BEGIN
 			HALT(301)
 		END Send;
 
-		PROCEDURE Send1H*(type: LONGINT; VAR hdr: ARRAY OF CHAR; hdrlen: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: LONGINT);
+		PROCEDURE Send1H*(type: LONGINT; VAR hdr: ARRAY OF CHAR; hdrlen: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: WORD);
 		BEGIN
 			HALT(301)
 		END Send1H;
 
 		PROCEDURE Send2H*(type: LONGINT; VAR hdr1: ARRAY OF CHAR; hdr1len: LONGINT;
 								VAR hdr2: ARRAY OF CHAR; hdr2len: LONGINT;
-								VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: LONGINT);
+								VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: WORD);
 		BEGIN
 			HALT(301)
 		END Send2H;

source/BluetoothHCI.Mod

@@ -390,7 +390,7 @@ TYPE
 
 		(** initialize the module, get BDADDR, MTUs, etc *)
 		PROCEDURE Initialize*(): LONGINT;
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			IF TraceHCI THEN
 				KernelLog.String(ModuleName);
@@ -455,7 +455,7 @@ TYPE
 		PROCEDURE SendCommand*(OGF, OCF: LONGINT; params: ARRAY OF CHAR; len: LONGINT;
 										VAR packet: Bluetooth.EventPacket;
 										 VAR pending: BOOLEAN;
-										 VAR res: LONGINT);
+										 VAR res: WORD);
 		BEGIN {EXCLUSIVE}
 			InSendCommand(OGF, OCF, params, len, packet, pending, res)
 		END SendCommand;
@@ -463,7 +463,7 @@ TYPE
 		PROCEDURE InSendCommand(OGF, OCF: LONGINT; params: ARRAY OF CHAR; len: LONGINT;
 										VAR packet: Bluetooth.EventPacket;
 										VAR pending: BOOLEAN;
-										VAR res: LONGINT);
+										VAR res: WORD);
 		VAR
 			cmd: POINTER TO ARRAY  OF CHAR; i: LONGINT;
 		BEGIN (* EXCLUSIVE *)
@@ -535,7 +535,7 @@ TYPE
 			END;
 		END InSendCommand;
 
-		PROCEDURE GetEvent*(timeout: LONGINT; VAR event: Bluetooth.EventPacket; VAR res: LONGINT);
+		PROCEDURE GetEvent*(timeout: LONGINT; VAR event: Bluetooth.EventPacket; VAR res: WORD);
 		VAR p: Bluetooth.Packet;
 		BEGIN
 			IF TraceHCI THEN
@@ -578,7 +578,7 @@ TYPE
 			par: ARRAY 5 OF CHAR;
 			event: Bluetooth.EventPacket;
 			pending: BOOLEAN;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			par[0] := CHR(lap MOD 100H);
 			par[1] := CHR((lap DIV 100H) MOD 100H);
@@ -612,7 +612,7 @@ TYPE
 			par: ARRAY 3 OF CHAR;
 			event: Bluetooth.EventPacket;
 			pending: BOOLEAN;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			par[0] := CHR(linkHandle MOD 100H);
 			par[1] := CHR(linkHandle DIV 100H);
@@ -626,7 +626,7 @@ TYPE
 		PROCEDURE SetEventMask*(eventMask : LONGINT) : LONGINT;
 		VAR
 			par : ARRAY 8 OF CHAR;
-			res: LONGINT;
+			res: WORD;
 			event: Bluetooth.EventPacket;
 			pending: BOOLEAN;
 		BEGIN
@@ -645,7 +645,7 @@ TYPE
 		VAR
 			pending: BOOLEAN;
 			event: Bluetooth.EventPacket;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			IF TraceHCI THEN
 				KernelLog.String(ModuleName);
@@ -702,7 +702,7 @@ TYPE
 			par: ARRAY 1 OF CHAR;
 			pending: BOOLEAN;
 			event: Bluetooth.EventPacket;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			par[0] := mode;
 			InSendCommand(ogfControl, ocfWriteScanEnable, par, 1, event, pending, res);
@@ -715,7 +715,7 @@ TYPE
 		VAR
 			pending: BOOLEAN;
 			event: Bluetooth.EventPacket;
-			res : LONGINT;
+			res : WORD;
 		BEGIN
 			InSendCommand(ogfControl,ocfReadScanEnable,"",0,event,pending,res);
 			scanEnable := event.params[4];
@@ -728,7 +728,7 @@ TYPE
 			par: ARRAY 4 OF CHAR;
 			pending: BOOLEAN;
 			event: Bluetooth.EventPacket;
-			res : LONGINT;
+			res : WORD;
 			outHandle : LONGINT;
 		BEGIN
 			par[0] := CHR(inHandle MOD 100H);
@@ -758,7 +758,7 @@ TYPE
 			par: ARRAY 2 OF CHAR;
 			pending: BOOLEAN;
 			event: Bluetooth.EventPacket;
-			res : LONGINT;
+			res : WORD;
 			outHandle : LONGINT;
 		BEGIN
 			par[0] := CHR(inHandle MOD 100H);
@@ -790,7 +790,7 @@ TYPE
 			par: ARRAY 1 OF CHAR;
 			pending: BOOLEAN;
 			event: Bluetooth.EventPacket;
-			res : LONGINT;
+			res : WORD;
 		BEGIN
 			par[0] := baudRate;
 			InSendCommand(ogfEricsson,ocfSetUARTBaudRate,par,LEN(par),event,pending,res);
@@ -833,7 +833,7 @@ TYPE
 		VAR
 			event: Bluetooth.EventPacket;
 			pending: BOOLEAN;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			InSendCommand(ogfInformational, ocfReadBufferSize, "", 0, event, pending, res);
 			IF pending THEN res := Bluetooth.ErrInvalidEvent
@@ -1175,7 +1175,7 @@ TYPE
 	DisconnectionComplete* = PROCEDURE {DELEGATE} (sender : HCI; status,handle,reason : LONGINT);
 	InquiryComplete* = PROCEDURE {DELEGATE} (sender: HCI; status: LONGINT);
 
-	ConnectionEvent* = PROCEDURE{DELEGATE} (sender: HCI; link: Link; res: LONGINT);
+	ConnectionEvent* = PROCEDURE{DELEGATE} (sender: HCI; link: Link; res: WORD);
 	(*OnReceiveACLDataEvent* = PROCEDURE{DELEGATE} (link: Link; acl: Bluetooth.ACLPacket); *)
 		(*handle, PB, PC, len: LONGINT; VAR data: ARRAY OF CHAR);*)
 	InquiryEvent* = PROCEDURE {DELEGATE} (sender: HCI; bdAddr: Bluetooth.BDAddr; deviceClass: Bluetooth.DeviceClass;

source/BluetoothL2CAP.Mod

@@ -337,7 +337,7 @@ TYPE
 		END Connect;
 
 		PROCEDURE ConnectResponse(identifier: CHAR; response, status: LONGINT): LONGINT;
-		VAR cmd: ARRAY 12 OF CHAR; res: LONGINT; sc: SignallingChannel;
+		VAR cmd: ARRAY 12 OF CHAR; res: WORD; sc: SignallingChannel;
 		BEGIN {EXCLUSIVE}
 			ASSERT(state = W4L2CAConnectRsp);
 			IF TraceChannel THEN
@@ -671,7 +671,7 @@ TYPE
 		PROCEDURE Write*(VAR buffer: ARRAY OF CHAR; ofs, len: LONGINT; VAR size: LONGINT): LONGINT;
 
 		VAR
-			res: LONGINT;
+			res: WORD;
 
 		BEGIN
 
@@ -835,7 +835,7 @@ TYPE
 		PROCEDURE Signal(link: HCI.Link; code, identifier: CHAR; command: ARRAY OF CHAR; len: LONGINT): LONGINT;
 
 		VAR
-				res : LONGINT;
+				res : WORD;
 
 		BEGIN (* {EXCLUSIVE} TODO *)
 
@@ -1533,7 +1533,7 @@ TYPE
 		END AcceptACLConnection;
 
 		(*----- lower layer events -----*)
-		PROCEDURE Connect(sender: HCI.HCI; link: HCI.Link; res: LONGINT);
+		PROCEDURE Connect(sender: HCI.HCI; link: HCI.Link; res: WORD);
 		BEGIN {EXCLUSIVE}
 			IF (res = 0) THEN
 				IF TraceHCIManager THEN
@@ -1551,7 +1551,7 @@ TYPE
 			END;
 		END Connect;
 
-		PROCEDURE Disconnect(sender: HCI.HCI; link: HCI.Link; res: LONGINT);
+		PROCEDURE Disconnect(sender: HCI.HCI; link: HCI.Link; res: WORD);
 		VAR p,q : L2CAP;
 		BEGIN {EXCLUSIVE}
 			IF TraceHCIManager THEN

source/BluetoothRFCOMM.Mod

@@ -444,7 +444,7 @@ TYPE
 
 		(* --------------------------------------------- *)
 
-		PROCEDURE Sender(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+		PROCEDURE Sender(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD);
 
 		VAR
 			info : ARRAY 127 OF CHAR;

source/BluetoothTest.Mod

@@ -32,7 +32,7 @@ TYPE
 		END ListHCIConnections;
 
 		PROCEDURE InitL2CAP;
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			IF (l2cap # NIL) THEN CloseL2CAP END;
 			(* NEW(l2cap, hci, res); *)
@@ -56,7 +56,7 @@ TYPE
 		END CloseL2CAP;
 
 		PROCEDURE ConnectIndication(indication: L2CAP.Indication);
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			KernelLog.String(ident); KernelLog.String(": connect indication!!!"); KernelLog.Ln;
 			WITH indication: L2CAP.ConnectInd DO
@@ -66,7 +66,7 @@ TYPE
 		END ConnectIndication;
 
 		PROCEDURE ConfigIndication(indication: L2CAP.Indication);
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			WITH indication: L2CAP.ConfigInd DO
 				KernelLog.String(ident); KernelLog.String(": configuration indication:"); KernelLog.Ln;
@@ -291,7 +291,7 @@ END ReadLocalName;
 PROCEDURE ChangeLocalName*(context : Commands.Context);
 VAR
 	ident: Ident; d: Device;
-	name: ARRAY 248 OF CHAR; event: Bluetooth.EventPacket; pending: BOOLEAN; res : LONGINT;
+	name: ARRAY 248 OF CHAR; event: Bluetooth.EventPacket; pending: BOOLEAN; res : WORD;
 BEGIN
 	IF context.arg.GetString(ident) & context.arg.GetString(name) THEN
 		d := Find(ident);
@@ -358,7 +358,7 @@ BEGIN
 END WriteClassOfDevice;
 
 PROCEDURE Reset*(context : Commands.Context);
-VAR ident: Ident; d: Device; res: LONGINT;
+VAR ident: Ident; d: Device; res: WORD;
 BEGIN
 	IF context.arg.GetString(ident) THEN
 		d := Find(ident);
@@ -376,7 +376,7 @@ END Reset;
 PROCEDURE ReadScanEnable*(context : Commands.Context);
 VAR
 	ident: Ident; d: Device;
-	res: LONGINT; event: Bluetooth.EventPacket; pending: BOOLEAN;
+	res: WORD; event: Bluetooth.EventPacket; pending: BOOLEAN;
 BEGIN
 	IF context.arg.GetString(ident) THEN
 		d := Find(ident);
@@ -426,7 +426,7 @@ END WriteScanEnable;
 PROCEDURE SetFilter*(context : Commands.Context);
 VAR
 	ident: Ident; d: Device;
-	cond: ARRAY 1 OF CHAR; res: LONGINT;
+	cond: ARRAY 1 OF CHAR; res: WORD;
 BEGIN
 	IF context.arg.GetString(ident) THEN
 		d := Find(ident);
@@ -654,7 +654,7 @@ END Supported;
 PROCEDURE ReadLocalSupportedFeatures*(context : Commands.Context);
 VAR
 	ident: Ident; d: Device;
-	res: LONGINT; event: Bluetooth.EventPacket; pending: BOOLEAN;
+	res: WORD; event: Bluetooth.EventPacket; pending: BOOLEAN;
 	s: SET;
 BEGIN
 	IF context.arg.GetString(ident) THEN

source/BluetoothUART.Mod

@@ -289,7 +289,7 @@ TYPE
 			RETURN res
 		END GetPacketType;
 
-		PROCEDURE Send*(type: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: LONGINT);
+		PROCEDURE Send*(type: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: WORD);
 		VAR  pt: CHAR; i: LONGINT;
 		BEGIN {EXCLUSIVE}
 			IF ~GetPacketType(type, pt) THEN
@@ -312,7 +312,7 @@ TYPE
 			res := out.res
 		END Send;
 
-		PROCEDURE Send1H*(type: LONGINT; VAR hdr: ARRAY OF CHAR; hdrlen: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: LONGINT);
+		PROCEDURE Send1H*(type: LONGINT; VAR hdr: ARRAY OF CHAR; hdrlen: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: WORD);
 		VAR pt: CHAR; i: LONGINT;
 		BEGIN
 			IF ~GetPacketType(type, pt) THEN
@@ -339,7 +339,7 @@ TYPE
 
 		PROCEDURE Send2H*(type: LONGINT; VAR hdr1: ARRAY OF CHAR; hdr1len: LONGINT;
 								VAR hdr2: ARRAY OF CHAR; hdr2len: LONGINT;
-								VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: LONGINT);
+								VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: WORD);
 		VAR pt: CHAR; i: LONGINT;
 		BEGIN
 			IF ~GetPacketType(type, pt) THEN

source/BluetoothUSB.Mod

@@ -191,7 +191,7 @@ TYPE
 			END;
 		END ReadACL;
 
-		PROCEDURE Send*(type: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: LONGINT);
+		PROCEDURE Send*(type: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: WORD);
 		VAR  i: LONGINT;
 		BEGIN {EXCLUSIVE}
 			IF TraceSend THEN
@@ -212,7 +212,7 @@ TYPE
 			END;
 		END Send;
 
-		PROCEDURE Send1H*(type: LONGINT; VAR hdr: ARRAY OF CHAR; hdrlen: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: LONGINT);
+		PROCEDURE Send1H*(type: LONGINT; VAR hdr: ARRAY OF CHAR; hdrlen: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: WORD);
 		VAR  i: LONGINT; buffer : POINTER TO ARRAY OF CHAR; bufferLen : LONGINT;
 		BEGIN
 			IF TraceSend THEN
@@ -242,7 +242,7 @@ TYPE
 		END Send1H;
 
 		PROCEDURE Send2H*(type: LONGINT; VAR hdr1: ARRAY OF CHAR; hdr1len: LONGINT;
-				VAR hdr2: ARRAY OF CHAR; hdr2len: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: LONGINT);
+				VAR hdr2: ARRAY OF CHAR; hdr2len: LONGINT; VAR data: ARRAY OF CHAR; ofs, len: LONGINT; VAR res: WORD);
 		VAR
 			i: LONGINT;
 			buffer : POINTER TO ARRAY OF CHAR;

source/BootConsole.Mod

@@ -67,7 +67,7 @@ END Error;
 
 PROCEDURE Generate(CONST name: ARRAY OF CHAR; par: Files.Parameters): BOOLEAN;
 VAR
-	factory : Files.FileSystemFactory; res: LONGINT; msg: ARRAY 256 OF CHAR;
+	factory : Files.FileSystemFactory; res: WORD; msg: ARRAY 256 OF CHAR;
 	moduleName, procedureName : Modules.Name;
 BEGIN
 	Commands.Split(name, moduleName, procedureName, res, msg);

source/BootShell.Mod

@@ -175,7 +175,7 @@ TYPE
 			editEndPosition := cursorPosition;
 		END SetEditStart;
 
-		PROCEDURE Send( CONST data: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+		PROCEDURE Send( CONST data: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD);
 		VAR i : LONGINT;
 		BEGIN
 			lock.Acquire;

source/CATServer.Mod

@@ -39,7 +39,7 @@ END NewCATAgent;
 
 
 PROCEDURE Start*;
-VAR res : LONGINT;
+VAR res : WORD;
 BEGIN
 	IF cat = NIL THEN
 		NEW(cat, CATPort, NewCATAgent, res);

source/CDRecord.Mod

@@ -330,7 +330,7 @@ TYPE
 
 		PROCEDURE AddTrack*(filename: Strings.String; trackType : LONGINT; permitCopy: BOOLEAN) : LONGINT;
 		VAR
-			res: LONGINT;
+			res: WORD;
 			track: InformationTrack;
 			file: Files.File;
 		BEGIN
@@ -390,7 +390,7 @@ TYPE
 		PROCEDURE GetBufferCapacity(VAR totalCapacity, unusedCapacity: LONGINT): LONGINT;
 		VAR
 			capacity: Lib.BufferCapacity;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			res := Lib.ReadBufferCapacity(dev, FALSE, ADDRESSOF(capacity), SIZEOF(Lib.BufferCapacity));
 			IF res = ResOk THEN
@@ -647,7 +647,7 @@ TYPE
 
 		PROCEDURE Write(op, startSec, nofBlocks: LONGINT; adr: ADDRESS): LONGINT;
 		VAR
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			LOOP
 				res := dev.TransferEx(op, startSec, nofBlocks, adr, dma & UseDma);
@@ -662,7 +662,7 @@ TYPE
 
 		PROCEDURE PadTrack(op: LONGINT; track: InformationTrack) : LONGINT;
 		VAR
-			res: LONGINT;
+			res: WORD;
 			startSec, secsToPad, nofBlocks: LONGINT;
 			buf: POINTER TO ARRAY OF CHAR;
 		BEGIN
@@ -823,7 +823,7 @@ TYPE
 
 		PROCEDURE GetWriteParams(VAR  params: WriteParams): LONGINT;
 		VAR
-			res: LONGINT;
+			res: WORD;
 			page: Lib.WriteParameterPage;
 		BEGIN
 			res := Lib.ModeSense(dev, Lib.MPCurrent, Lib.MPWriteParameters, ADDRESSOF(page), SIZEOF(Lib.WriteParameterPage));
@@ -919,7 +919,7 @@ TYPE
 		PROCEDURE CheckIncompatibleMedium(): BOOLEAN;
 		VAR
 			msg: ATADisks.GetSenseMsg;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			dev.Handle(msg, res);
 			RETURN (msg.sense = 5) & (msg.asc = 30);
@@ -945,7 +945,7 @@ TYPE
 		PROCEDURE CheckNoMediumPresent*(): BOOLEAN;
 		VAR
 			msg: ATADisks.GetSenseMsg;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			dev.Handle(msg, res);
 			RETURN (msg.sense = 2) & (msg.asc = 3AH) & ((msg.ascq = 0) OR (msg.ascq = 1) OR (msg.ascq = 2));
@@ -955,7 +955,7 @@ TYPE
 		PROCEDURE IsInProgress*(): BOOLEAN;
 		VAR
 			msg: ATADisks.GetSenseMsg;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			dev.Handle(msg, res);
 			RETURN (msg.sense = 2) & (msg.asc = 4) & ((msg.ascq = 4) OR (msg.ascq = 7) OR (msg.ascq = 8));
@@ -1170,7 +1170,7 @@ VAR
 	device : ATADisks.DeviceATAPI;
 	i, cur: LONGINT;
 	cap: Capabilities;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	res := ResErr;
 	FOR i := 0 TO MaxRecorders-1 DO
@@ -1315,7 +1315,7 @@ END InsertionSort;
 PROCEDURE GetSense*(dev: ATADisks.DeviceATAPI);
 VAR
 	msg: ATADisks.GetSenseMsg;
-	res: LONGINT;
+	res: WORD;
 BEGIN
 	res := dev.RequestSense();
 	dev.Handle(msg, res);
@@ -1370,7 +1370,7 @@ END MsfToSector;
 
 PROCEDURE Test*;
 VAR
-	res: LONGINT;
+	res: WORD;
 	settings: BurnSettings;
 	compilation: Compilation;
 	recorders: ARRAY MaxRecorders OF CDRecorder;

source/CDRecordLib.Mod

@@ -423,7 +423,7 @@ TYPE
 PROCEDURE GetNextAddress*(dev: Ata.DeviceATAPI; VAR adr: LONGINT): LONGINT;
 VAR
 	info: TrackInfo;
-	res: LONGINT;
+	res: WORD;
 BEGIN
 	res := ReadTrackInformation(dev, FALSE, TRAdrType1, TRInvisible, ADDRESSOF(info), SIZEOF(TrackInfo));
 	IF res = ResOk THEN
@@ -440,7 +440,7 @@ END ReadSessionInfo;
 PROCEDURE GetTrackDescriptor*(dev: Ata.DeviceATAPI; tno: LONGINT; VAR toc: TocDescriptor): LONGINT;
 VAR
 	buf: POINTER TO ARRAY OF CHAR;
-	res: LONGINT;
+	res: WORD;
 BEGIN
 	NEW(buf, SIZEOF(TocHeader) + SIZEOF(TocDescriptor));
 	res := ReadToc(dev, FALSE, TCFormatToc, tno, ADDRESSOF(buf^), LEN(buf));
@@ -537,7 +537,7 @@ END SetAllocationLength;
 PROCEDURE ModeSense*(dev: Ata.DeviceATAPI; pageControl, pageCode: LONGINT; adr: ADDRESS; len: LONGINT) : LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(5AH);
@@ -563,7 +563,7 @@ END ModeSense;
 PROCEDURE Blank*(dev: Ata.DeviceATAPI; immediate: BOOLEAN; type, tno: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(0A1H);
@@ -587,7 +587,7 @@ END Blank;
 PROCEDURE SendOPCInformation*(dev: Ata.DeviceATAPI; doOPC: BOOLEAN): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(54H);
@@ -610,7 +610,7 @@ END SendOPCInformation;
 PROCEDURE GetConfiguration*(dev: Ata.DeviceATAPI; rt, start: LONGINT; adr: ADDRESS; len: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(46H);
@@ -636,7 +636,7 @@ END GetConfiguration;
 PROCEDURE SynchronizeCache*(dev: Ata.DeviceATAPI; immediate: BOOLEAN): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(35H);
@@ -655,7 +655,7 @@ END SynchronizeCache;
 PROCEDURE ModeSelect*(dev: Ata.DeviceATAPI;  save: BOOLEAN; adr: ADDRESS; len: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(55H);
@@ -680,7 +680,7 @@ END ModeSelect;
 PROCEDURE ReadDiscInformation*(dev: Ata.DeviceATAPI; dataType: LONGINT; adr: ADDRESS; len: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(51H);
@@ -703,7 +703,7 @@ END ReadDiscInformation;
 PROCEDURE ReadToc*(dev: Ata.DeviceATAPI; msf: BOOLEAN; format, tno:  LONGINT; adr: ADDRESS; len: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(43H);
@@ -730,7 +730,7 @@ END ReadToc;
 PROCEDURE Verify*(dev: Ata.DeviceATAPI; lba, length: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(2FH);
@@ -754,7 +754,7 @@ END Verify;
 PROCEDURE ReadCD*(dev: Ata.DeviceATAPI; lba, length, adr, size, type, subChannel: LONGINT; flags: SET; dma: BOOLEAN): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(0BEH);
@@ -797,7 +797,7 @@ END ReadCD;
 PROCEDURE GetPerformance*(dev: Ata.DeviceATAPI; type, dataType, lba, maxDescr: LONGINT; adr: ADDRESS; len: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(0ACH);
@@ -829,7 +829,7 @@ END GetPerformance;
 PROCEDURE ReadTrackInformation*(dev: Ata.DeviceATAPI; appendable: BOOLEAN; adrType, adrnr: LONGINT; adr: ADDRESS; len: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(52H);
@@ -859,7 +859,7 @@ END ReadTrackInformation;
 PROCEDURE CloseTrackSess*(dev: Ata.DeviceATAPI; immediate: BOOLEAN; func, trackNr: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(5BH);
@@ -883,7 +883,7 @@ END CloseTrackSess;
 PROCEDURE ReadBufferCapacity*(dev: Ata.DeviceATAPI; block: BOOLEAN; adr: ADDRESS; len: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(5CH);
@@ -908,7 +908,7 @@ END ReadBufferCapacity;
 PROCEDURE SetCDSpeed*(dev: Ata.DeviceATAPI; readSpeed, writeSpeed, rotControl: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(0BBH);
@@ -933,7 +933,7 @@ END SetCDSpeed;
 PROCEDURE SendCueSheet*(dev: Ata.DeviceATAPI; adr: ADDRESS; len: LONGINT): LONGINT;
 VAR
 	command: Ata.CommandPacket;
-	res: LONGINT;
+	res: WORD;
 	status: SET;
 BEGIN
 	command := dev.NewCommandPacket(5DH);

source/CDRecordUtils.Mod

@@ -753,7 +753,7 @@ END SetBE32;
 
 PROCEDURE Mp3ToWave*(srcFileName, destFileName : Strings.String; onConvertStatusChanged: StatusProc) : LONGINT;
 VAR
-	res: LONGINT;
+	res: WORD;
 	srcFile, destFile : Files.File;
 	decoder: Codecs.AudioDecoder;
 	encoder: Codecs.AudioEncoder;
@@ -813,7 +813,7 @@ PROCEDURE GetFreeSpace*(CONST destination: ARRAY OF CHAR; VAR freeSpace: LONGINT
 VAR
 	fs: Files.FileSystem;
 	prefix, name: ARRAY MaxLen OF CHAR;
-	res: LONGINT;
+	res: WORD;
 BEGIN
 	res := ResErr;
 	Files.SplitName(destination, prefix, name);
@@ -829,7 +829,7 @@ PROCEDURE IsReadOnly*(CONST destination: ARRAY OF CHAR; VAR readOnly: BOOLEAN):
 VAR
 	fs: Files.FileSystem;
 	prefix, name: ARRAY MaxLen OF CHAR;
-	res: LONGINT;
+	res: WORD;
 BEGIN
 	res := ResErr;
 	Files.SplitName(destination, prefix, name);
@@ -844,7 +844,7 @@ END IsReadOnly;
 PROCEDURE GetDevice*(file: Files.File; VAR device: Disks.Device): LONGINT;
 VAR
 	fs: Files.FileSystem;
-	res: LONGINT;
+	res: WORD;
 BEGIN
 	res := ResErr;
 	fs := file.fs;

source/CRC.Mod

@@ -24,7 +24,7 @@ TYPE
 			InitWriter(Send, 256)
 		END InitStream;
 
-		PROCEDURE Send*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+		PROCEDURE Send*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD);
 			VAR fcs, idx: SET; i: LONGINT;
 		BEGIN
 			fcs := SYSTEM.VAL( SET, crc ) * SYSTEM.VAL( SET, 0FFFFH );
@@ -66,7 +66,7 @@ TYPE
 			crc := Init32
 		END Reset;
 
-		PROCEDURE Send*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+		PROCEDURE Send*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD);
 		VAR idx: LONGINT;
 		BEGIN
 			WHILE len > 0 DO

source/CSV.Test

@@ -22,7 +22,7 @@ positive: UNLOAD the CSV module before the tests
 
 	MODULE Test;
 	IMPORT Modules;
-	VAR res: LONGINT; msg: ARRAY 64 OF CHAR;
+	VAR res: WORD; msg: ARRAY 64 OF CHAR;
 	BEGIN
 		Modules.FreeModule("TestShared", res, msg);
 		Modules.FreeModule("CSV", res, msg);
@@ -62,7 +62,7 @@ positive: setup test base module with shared functions
 		END GetScanner;
 
 		PROCEDURE Cleanup;
-		VAR fnstr: Strings.String; res: LONGINT;
+		VAR fnstr: Strings.String; res: WORD;
 		BEGIN
 			IF canTest THEN
 				fnstr := Strings.NewString(fn);
@@ -328,7 +328,7 @@ positive: UNLOAD the CSV module after the tests
 
 	MODULE Test;
 	IMPORT Modules;
-	VAR res: LONGINT; msg: ARRAY 64 OF CHAR;
+	VAR res: WORD; msg: ARRAY 64 OF CHAR;
 	BEGIN
 		Modules.FreeModule("TestShared", res, msg);
 		Modules.FreeModule("CSV", res, msg);

source/Codecs.Mod

@@ -73,7 +73,7 @@ TYPE
 	AVDemultiplexer* = OBJECT
 
 		(** open the demultiplexer on an input stream *)
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		END Open;
 
 		PROCEDURE GetNumberOfStreams*() : LONGINT;
@@ -100,7 +100,7 @@ TYPE
 
 		(* seek the streamNr to position pos (defined bz seekType), res = 0 if Ok, otherwise an error number *)
 		(* this procedure should not be directly called - it is called by the DemuxStream object! *)
-		PROCEDURE SetStreamPos*(streamNr : LONGINT; seekType : LONGINT; pos : LONGINT; VAR itemSize : LONGINT; VAR res : LONGINT);
+		PROCEDURE SetStreamPos*(streamNr : LONGINT; seekType : LONGINT; pos : LONGINT; VAR itemSize : LONGINT; VAR res : WORD);
 		END SetStreamPos;
 
 	END AVDemultiplexer;
@@ -132,7 +132,7 @@ TYPE
 		END SetPos;
 
 		(* seek the streamNr to position pos with seekType. itemSize contains the size of the element seeked to, if known and applicable; res = 0 if Ok, otherwise an error number *)
-		PROCEDURE SetPosX*(seekType : LONGINT; pos : LONGINT; VAR itemSize : LONGINT; VAR res : LONGINT);
+		PROCEDURE SetPosX*(seekType : LONGINT; pos : LONGINT; VAR itemSize : LONGINT; VAR res : WORD);
 		BEGIN
 			demultiplexer.SetStreamPos(streamNr, seekType, pos, itemSize, res);
 			Reset
@@ -141,7 +141,7 @@ TYPE
 
 	AudioDecoder* = OBJECT
 		(* open the decoder on a file *)
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		END Open;
 
 		PROCEDURE HasMoreData*():BOOLEAN;
@@ -172,10 +172,10 @@ TYPE
 		PROCEDURE SetStreamLength*(length : LONGINT);
 		END SetStreamLength;
 
-		PROCEDURE SeekSample*(sample: LONGINT; goKeySample : BOOLEAN; VAR res : LONGINT);
+		PROCEDURE SeekSample*(sample: LONGINT; goKeySample : BOOLEAN; VAR res : WORD);
 		END SeekSample;
 
-		PROCEDURE SeekMillisecond*(millisecond : LONGINT; goKeySample : BOOLEAN; VAR res : LONGINT);
+		PROCEDURE SeekMillisecond*(millisecond : LONGINT; goKeySample : BOOLEAN; VAR res : WORD);
 		END SeekMillisecond;
 
 		(** Prepare the next audio bytes not yet filled into a buffer *)
@@ -189,20 +189,20 @@ TYPE
 
 	AudioEncoder* = OBJECT
 		(* open the encoder *)
-		PROCEDURE Open*(out : Streams.Writer; sRate, sRes, nofCh: LONGINT; VAR res : LONGINT);
+		PROCEDURE Open*(out : Streams.Writer; sRate, sRes, nofCh: LONGINT; VAR res : WORD);
 		END Open;
 
-		PROCEDURE Write*(buffer : SoundDevices.Buffer; VAR res : LONGINT);
+		PROCEDURE Write*(buffer : SoundDevices.Buffer; VAR res : WORD);
 		END Write;
 
-		PROCEDURE Close*(VAR res : LONGINT);
+		PROCEDURE Close*(VAR res : WORD);
 		END Close;
 
 	END  AudioEncoder;
 
 	VideoDecoder* = OBJECT
 		(* open the decoder on a file *)
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		END Open;
 
 		PROCEDURE HasMoreData*():BOOLEAN;
@@ -221,10 +221,10 @@ TYPE
 		PROCEDURE GetCurrentTime*() : LONGINT;
 		END GetCurrentTime;
 
-		PROCEDURE SeekFrame*(frame : LONGINT; goKeyFrame : BOOLEAN; VAR res : LONGINT);
+		PROCEDURE SeekFrame*(frame : LONGINT; goKeyFrame : BOOLEAN; VAR res : WORD);
 		END SeekFrame;
 
-		PROCEDURE SeekMillisecond*(millisecond : LONGINT; goKeyFrame : BOOLEAN; VAR res : LONGINT);
+		PROCEDURE SeekMillisecond*(millisecond : LONGINT; goKeyFrame : BOOLEAN; VAR res : WORD);
 		END SeekMillisecond;
 
 		(** Prepare the next frame *)
@@ -238,7 +238,7 @@ TYPE
 
 	ImageDecoder* = OBJECT
 		(* open the decoder on an InputStream *)
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		END Open;
 
 		PROCEDURE GetImageInfo*(VAR width, height, format, maxProgressionLevel : LONGINT);
@@ -272,7 +272,7 @@ TYPE
 		PROCEDURE SetQuality*(quality : LONGINT);
 		END SetQuality;
 
-		PROCEDURE WriteImage*(img : Raster.Image; VAR res : LONGINT);
+		PROCEDURE WriteImage*(img : Raster.Image; VAR res : WORD);
 		END WriteImage;
 
 	END ImageEncoder;
@@ -280,7 +280,7 @@ TYPE
 
 	TextDecoder* = OBJECT
 		(* open the decoder on an InputStream *)
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		END Open;
 
 		PROCEDURE GetText*() : Texts.Text;
@@ -294,12 +294,12 @@ TYPE
 		PROCEDURE Open*(out : Streams.Writer);
 		END Open;
 
-		PROCEDURE WriteText*(text : Texts.Text; VAR res : LONGINT);
+		PROCEDURE WriteText*(text : Texts.Text; VAR res : WORD);
 		END WriteText;
 	END TextEncoder;
 
 	CryptoDecoder* = OBJECT
-		PROCEDURE Open*(in: Streams.Reader; VAR res: LONGINT);
+		PROCEDURE Open*(in: Streams.Reader; VAR res: WORD);
 		END Open;
 
 		PROCEDURE GetReader*(): Streams.Reader;
@@ -357,10 +357,10 @@ TYPE
 	AnimationDecoder* = OBJECT
 
 		(* open the decoder on an InputStream *)
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		END Open;
 
-		PROCEDURE GetImageSequence*(VAR sequence : ImageSequence; VAR res : LONGINT);
+		PROCEDURE GetImageSequence*(VAR sequence : ImageSequence; VAR res : WORD);
 		END GetImageSequence;
 
 	END AnimationDecoder;
@@ -386,7 +386,7 @@ TYPE
 	AnimationDecoderFactory = PROCEDURE () : AnimationDecoder;
 
 
-PROCEDURE GetDemuxFactoryName(CONST name : ARRAY OF CHAR; VAR module , procedure : Modules.Name; VAR res : LONGINT);
+PROCEDURE GetDemuxFactoryName(CONST name : ARRAY OF CHAR; VAR module , procedure : Modules.Name; VAR res : WORD);
 VAR config, factoryName, msg : ARRAY 128 OF CHAR;
 BEGIN
 	res := ResFailed;
@@ -397,7 +397,7 @@ BEGIN
 	END
 END GetDemuxFactoryName;
 
-PROCEDURE GetDecoderFactoryName(CONST type, name : ARRAY OF CHAR; VAR module, procedure : Modules.Name; VAR res : LONGINT);
+PROCEDURE GetDecoderFactoryName(CONST type, name : ARRAY OF CHAR; VAR module, procedure : Modules.Name; VAR res : WORD);
 VAR config, factoryName, msg : ARRAY 128 OF CHAR;
 BEGIN
 	res := ResFailed;
@@ -409,7 +409,7 @@ BEGIN
 	END
 END GetDecoderFactoryName;
 
-PROCEDURE GetEncoderFactoryName(CONST type, name : ARRAY OF CHAR; VAR module, procedure : Modules.Name; VAR res : LONGINT);
+PROCEDURE GetEncoderFactoryName(CONST type, name : ARRAY OF CHAR; VAR module, procedure : Modules.Name; VAR res : WORD);
 VAR config, factoryName, msg : ARRAY 128 OF CHAR;
 BEGIN
 	res := ResFailed;
@@ -425,7 +425,7 @@ END GetEncoderFactoryName;
 PROCEDURE GetDemultiplexer*(CONST name : ARRAY OF CHAR) : AVDemultiplexer;
 VAR
 	demux : AVDemultiplexer; factory : DemuxFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	demux := NIL;
 	GetDemuxFactoryName(name, moduleName, procedureName, res);
@@ -442,7 +442,7 @@ END GetDemultiplexer;
 PROCEDURE GetImageDecoder*(CONST name : ARRAY OF CHAR) : ImageDecoder;
 VAR
 	decoder : ImageDecoder; factory : ImageDecoderFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	decoder := NIL;
 	GetDecoderFactoryName("Image", name, moduleName, procedureName, res);
@@ -459,7 +459,7 @@ END GetImageDecoder;
 PROCEDURE GetImageEncoder*(CONST name : ARRAY OF CHAR) : ImageEncoder;
 VAR
 	encoder : ImageEncoder; factory : ImageEncoderFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	encoder := NIL;
 	GetEncoderFactoryName("Image", name, moduleName, procedureName, res);
@@ -476,7 +476,7 @@ END GetImageEncoder;
 PROCEDURE GetVideoDecoder*(CONST name : ARRAY OF CHAR) : VideoDecoder;
 VAR
 	decoder : VideoDecoder; factory : VideoDecoderFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	decoder := NIL;
 	GetDecoderFactoryName("Video", name, moduleName, procedureName, res);
@@ -493,7 +493,7 @@ END GetVideoDecoder;
 PROCEDURE GetAudioDecoder*(CONST name : ARRAY OF CHAR) : AudioDecoder;
 VAR
 	decoder : AudioDecoder; factory : AudioDecoderFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	decoder := NIL;
 	GetDecoderFactoryName("Audio", name, moduleName, procedureName, res);
@@ -510,7 +510,7 @@ END GetAudioDecoder;
 PROCEDURE GetAudioEncoder*(CONST name : ARRAY OF CHAR) : AudioEncoder;
 VAR
 	encoder : AudioEncoder; factory : AudioEncoderFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	encoder := NIL;
 	GetEncoderFactoryName("Audio", name, moduleName, procedureName, res);
@@ -526,7 +526,7 @@ END GetAudioEncoder;
 PROCEDURE GetTextDecoder*(CONST name : ARRAY OF CHAR) : TextDecoder;
 VAR
 	decoder : TextDecoder; factory : TextDecoderFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	decoder := NIL;
 	GetDecoderFactoryName("Text", name, moduleName, procedureName, res);
@@ -543,7 +543,7 @@ END GetTextDecoder;
 PROCEDURE GetTextEncoder*(CONST name : ARRAY OF CHAR) : TextEncoder;
 VAR
 	encoder : TextEncoder; factory : TextEncoderFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	encoder := NIL;
 	GetEncoderFactoryName("Text", name, moduleName, procedureName, res);
@@ -560,7 +560,7 @@ END GetTextEncoder;
 PROCEDURE GetCryptoDecoder*(CONST name : ARRAY OF CHAR) : CryptoDecoder;
 VAR
 	decoder : CryptoDecoder; factory : CryptoDecoderFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	decoder := NIL;
 	GetDecoderFactoryName("Crypto", name, moduleName, procedureName, res);
@@ -577,7 +577,7 @@ END GetCryptoDecoder;
 PROCEDURE GetCryptoEncoder*(CONST name : ARRAY OF CHAR) : CryptoEncoder;
 VAR
 	encoder : CryptoEncoder; factory : CryptoEncoderFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	encoder := NIL;
 	GetEncoderFactoryName("Crypto", name, moduleName, procedureName, res);
@@ -594,7 +594,7 @@ END GetCryptoEncoder;
 PROCEDURE GetAnimationDecoder*(CONST name : ARRAY OF CHAR) : AnimationDecoder;
 VAR
 	decoder : AnimationDecoder; factory : AnimationDecoderFactory;
-	moduleName, procedureName : Modules.Name; res : LONGINT;
+	moduleName, procedureName : Modules.Name; res : WORD;
 BEGIN
 	decoder := NIL;
 	GetDecoderFactoryName("Animation", name, moduleName, procedureName, res);
@@ -640,7 +640,7 @@ VAR f : Files.File;
 	zf : Unzip.ZipFile;
 	entry : Unzip.Entry;
 	archive : Archives.Archive;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	SplitName(name, protocol, filename);
 	COPY(protocol, tp); Strings.LowerCase(tp);

source/CommandTest.Mod

@@ -8,7 +8,7 @@ TYPE Tester = OBJECT (TestSuite.Tester)
 	VAR tempname: Files.FileName;
 
 	PROCEDURE Handle (reader: Streams.Reader; position: LONGINT; CONST name: ARRAY OF CHAR; type: TestSuite.TestType): INTEGER;
-	VAR res: LONGINT; msg: ARRAY 128 OF CHAR; result: INTEGER; file: Files.File; writer: Files.Writer;
+	VAR res: WORD; msg: ARRAY 128 OF CHAR; result: INTEGER; file: Files.File; writer: Files.Writer;
 	BEGIN
 		result := TestSuite.Failure;
 		file := Files.New (tempname);

source/Commands.Mod

@@ -106,7 +106,7 @@ TYPE
 		proc : CommandProc;
 		commandProc : CommandContextProc;
 
-		msg : ARRAY 128 OF CHAR; res : LONGINT;
+		msg : ARRAY 128 OF CHAR; res : WORD;
 
 		module : Modules.Module;
 		state : LONGINT;
@@ -129,7 +129,7 @@ TYPE
 			state := Started;
 		END Init;
 
-		PROCEDURE Join(this : LONGINT; VAR res : LONGINT; VAR msg : ARRAY OF CHAR);
+		PROCEDURE Join(this : LONGINT; VAR res : WORD; VAR msg : ARRAY OF CHAR);
 		BEGIN {EXCLUSIVE}
 			AWAIT(state >= this);
 			res := SELF.res; COPY(SELF.msg, msg);
@@ -194,13 +194,13 @@ BEGIN
 	RETURN reader;
 END GetEmptyReader;
 
-PROCEDURE SendNothing(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+PROCEDURE SendNothing(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD);
 END SendNothing;
 
 (** Splits a command string of the form moduleName.commandProcName into its components. Can be used to check whether a
 	command string is syntactically correct, i.e. is of the form 'ModuleName "." [ProcedureName]' *)
 
-PROCEDURE Split*(CONST cmdstr : ARRAY OF CHAR; VAR moduleName, procedureName : Modules.Name; VAR res : LONGINT; VAR msg : ARRAY OF CHAR);
+PROCEDURE Split*(CONST cmdstr : ARRAY OF CHAR; VAR moduleName, procedureName : Modules.Name; VAR res : WORD; VAR msg : ARRAY OF CHAR);
 VAR i, j : LONGINT; maxlen, cmdlen : LONGINT;
 BEGIN
 	res := CommandParseError;
@@ -245,7 +245,7 @@ END GetContext;
 	Returns res = Ok if successful, otherwise msg contains error message.
 	The command can call GetConext() to get its context, which is also passed directly. *)
 
-PROCEDURE Activate*(CONST cmd : ARRAY OF CHAR; context : Context; flags : SET; VAR res : LONGINT; VAR msg : ARRAY OF CHAR);
+PROCEDURE Activate*(CONST cmd : ARRAY OF CHAR; context : Context; flags : SET; VAR res : WORD; VAR msg : ARRAY OF CHAR);
 VAR moduleName, commandName : Modules.Name; run : Runner;
 BEGIN
 
@@ -269,7 +269,7 @@ END Activate;
 		params = {<any character except ";">} .
 *)
 
-PROCEDURE Call*(cmds : ARRAY OF CHAR; flags : SET; VAR res : LONGINT; VAR msg : ARRAY OF CHAR);
+PROCEDURE Call*(cmds : ARRAY OF CHAR; flags : SET; VAR res : WORD; VAR msg : ARRAY OF CHAR);
 VAR  outer, context : Context; arg : Streams.StringReader; i, j, k : LONGINT; mode : ARRAY 5 OF CHAR;
 par : POINTER TO ARRAY OF CHAR;
 BEGIN

source/Configuration.Mod

@@ -76,7 +76,7 @@ BEGIN
 END GetElementX;
 
 (** 	Find the setting specified by the key, which is a path name through the sections to the setting, and return its value. *)
-PROCEDURE Get*(CONST key: ARRAY OF CHAR; VAR val: ARRAY OF CHAR; VAR res : LONGINT);
+PROCEDURE Get*(CONST key: ARRAY OF CHAR; VAR val: ARRAY OF CHAR; VAR res : WORD);
 VAR e: XML.Element; s: Strings.String; a: XML.Attribute;
 BEGIN {EXCLUSIVE}
 	e := GetElementX(Setting, key);
@@ -107,7 +107,7 @@ BEGIN {EXCLUSIVE}
 	END;
 END Get;
 
-PROCEDURE GetBoolean*(CONST key : ARRAY OF CHAR; VAR value : BOOLEAN; VAR res : LONGINT);
+PROCEDURE GetBoolean*(CONST key : ARRAY OF CHAR; VAR value : BOOLEAN; VAR res : WORD);
 VAR string : ARRAY 8 OF CHAR;
 BEGIN
 	Get(key, string, res);
@@ -122,7 +122,7 @@ BEGIN
 	END;
 END GetBoolean;
 
-PROCEDURE GetColor*(CONST key : ARRAY OF CHAR; VAR value : LONGINT; VAR res : LONGINT);
+PROCEDURE GetColor*(CONST key : ARRAY OF CHAR; VAR value : LONGINT; VAR res : WORD);
 VAR string : ARRAY 16 OF CHAR; tempres : LONGINT;
 BEGIN
 	Get(key, string, res);
@@ -134,7 +134,7 @@ BEGIN
 END GetColor;
 
 
-PROCEDURE GetInteger*(CONST key : ARRAY OF CHAR; VAR value : LONGINT; VAR res : LONGINT);
+PROCEDURE GetInteger*(CONST key : ARRAY OF CHAR; VAR value : LONGINT; VAR res : WORD);
 VAR string : ARRAY 16 OF CHAR;
 BEGIN
 	Get(key, string, res);
@@ -145,7 +145,7 @@ BEGIN
 END GetInteger;
 
 (** update (or insert if necessairy) the setting specified by the key. if the specified section/setting is not yet existing, it will be created *)
-PROCEDURE Put*(CONST key, val : ARRAY OF CHAR; VAR res : LONGINT);
+PROCEDURE Put*(CONST key, val : ARRAY OF CHAR; VAR res : WORD);
 VAR e, child : XML.Element; i, j : LONGINT; name : ARRAY 64 OF CHAR;
 BEGIN {EXCLUSIVE}
 	res := Ok;
@@ -175,19 +175,19 @@ BEGIN {EXCLUSIVE}
 	END
 END Put;
 
-PROCEDURE PutBoolean*(CONST key : ARRAY OF CHAR; value : BOOLEAN; VAR res : LONGINT);
+PROCEDURE PutBoolean*(CONST key : ARRAY OF CHAR; value : BOOLEAN; VAR res : WORD);
 BEGIN
 	IF value THEN Put(key, "TRUE", res) ELSE Put(key, "FALSE", res); END;
 END PutBoolean;
 
-PROCEDURE PutColor*(CONST key : ARRAY OF CHAR; value : LONGINT; VAR res : LONGINT);
+PROCEDURE PutColor*(CONST key : ARRAY OF CHAR; value : LONGINT; VAR res : WORD);
 VAR string : ARRAY 9 OF CHAR;
 BEGIN
 	Strings.IntToHexStr(value, 8, string);
 	Put(key, string, res);
 END PutColor;
 
-PROCEDURE PutInteger*(CONST key : ARRAY OF CHAR; value : LONGINT; VAR res : LONGINT);
+PROCEDURE PutInteger*(CONST key : ARRAY OF CHAR; value : LONGINT; VAR res : WORD);
 VAR string : ARRAY 16 OF CHAR;
 BEGIN
 	Strings.IntToStr(value, string);

source/ContextualDependency.Mod

@@ -762,7 +762,7 @@ TYPE
 			contextFound, validContext, charFound : BOOLEAN;
 			charString : XML.String;
 			charCode : Texts.Char32;
-			res : LONGINT;
+			res : WORD;
 			base16, neg : BOOLEAN;
 			genericRangeSize, offset : LONGINT;
 

source/Coop.MemCache.Mod

@@ -10,7 +10,7 @@ CONST
 
 (** Set the cache properties of the specified physical memory area on the current processor. {physAdr, size MOD PS = 0}  Must be called from supervisor mode. *)
 
-PROCEDURE LocalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: LONGINT);
+PROCEDURE LocalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: WORD);
 VAR i, n, f: LONGINT; mask, base: SET; j, k: ADDRESS;
 BEGIN
 	res := 1507	(* implementation restriction - fixed entries not supported *)
@@ -18,7 +18,7 @@ END LocalSetCacheProperties;
 
 (** Broadcast a LocalSetCacheProperties operation to all processors. *)
 
-PROCEDURE GlobalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: LONGINT);
+PROCEDURE GlobalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: WORD);
 BEGIN
 	res := 1507	(* implementation restriction - fixed entries not supported *)
 END GlobalSetCacheProperties;

source/Coop.Modules.Mod

@@ -112,7 +112,7 @@ TYPE
 
 	END Module;
 
-	LoaderProc* = PROCEDURE (CONST name, fileName: ARRAY OF CHAR; VAR res: LONGINT;
+	LoaderProc* = PROCEDURE (CONST name, fileName: ARRAY OF CHAR; VAR res: WORD;
 			VAR msg: ARRAY OF CHAR): Module;	(** load an object file *)
 
 VAR
@@ -401,7 +401,7 @@ END Initialize;
 	END SortExceptionTable;
 	
 (** Load the module if it is not already loaded. *)	(* Algorithm J. Templ, ETHZ, 1994 *)
-PROCEDURE ThisModule*(CONST name: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR): Module;
+PROCEDURE ThisModule*(CONST name: ARRAY OF CHAR; VAR res: WORD; VAR msg: ARRAY OF CHAR): Module;
 VAR m: Module; fileName: ARRAY 64 OF CHAR; i: LONGINT; registered: BOOLEAN;
 BEGIN
 	res := Ok; msg[0] := 0X; m := ByName(name, registered);
@@ -587,7 +587,7 @@ BEGIN
 END InstallTermHandler;
 
 (** Free a module. The module's termination handler, if any, is called first. Then all objects that have finalizers in this module are finalized (even if they are still reachable). Then the module's data and code are invalidated. *)
-PROCEDURE FreeModule*(CONST name: ARRAY OF CHAR; VAR res: LONGINT; VAR msg: ARRAY OF CHAR);
+PROCEDURE FreeModule*(CONST name: ARRAY OF CHAR; VAR res: WORD; VAR msg: ARRAY OF CHAR);
 VAR p, m: Module; term: TerminationHandler; i: LONGINT;
 BEGIN
 	m := ModuleByName(name);

source/Coop.Windows.Display.Mod

@@ -1084,7 +1084,7 @@ VAR
 
 	PROCEDURE DoInstall( w, h, left, top: LONGINT );
 	VAR ts: ARRAY 16 OF CHAR;
-		res: LONGINT;  create: CreateStruct;  win: Window;  hMenu: User32.HMenu;  x, y: LONGINT;
+		res: WORD;  create: CreateStruct;  win: Window;  hMenu: User32.HMenu;  x, y: LONGINT;
 	VAR border: LONGINT;  rect: User32.Rect;   (*ALEX 2005.11.30*)
 
 		hDC: User32.HDC;

source/CyberbitNetInstall.Mod

@@ -17,7 +17,7 @@ TYPE
 	Downloader = OBJECT
 
 		PROCEDURE &New*;
-		VAR res : LONGINT; temp : ARRAY 16 OF CHAR;
+		VAR res : WORD; temp : ARRAY 16 OF CHAR;
 			r : Streams.Reader; w : Files.Writer;
 			buf: ARRAY BufSize OF CHAR; len : LONGINT;
 			msg, s : ARRAY 256 OF CHAR; i, j : LONGINT;

source/CyrillicUtilities.Mod

@@ -62,7 +62,7 @@ TYPE
 			errors := TRUE
 		END Error;
 
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		VAR i, m: LONGINT;
 			tempUCS32 : ARRAY 1024 OF Char32;
 			ch, last : CHAR;
@@ -109,7 +109,7 @@ TYPE
 			END
 		END Open;
 
-		PROCEDURE WriteText*(text : Texts.Text; VAR res : LONGINT);
+		PROCEDURE WriteText*(text : Texts.Text; VAR res : WORD);
 		VAR r : Texts.TextReader; ch : Texts.Char32; i : LONGINT;
 			c: CHAR;
 		BEGIN
@@ -145,7 +145,7 @@ TYPE
 			errors := TRUE
 		END Error;
 
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		VAR i, m: LONGINT;
 			(*r : Files.Reader;*)
 			tempUCS32 : ARRAY 1024 OF Char32;
@@ -193,7 +193,7 @@ TYPE
 			END;
 		END Open;
 
-		PROCEDURE WriteText*(text : Texts.Text; VAR res : LONGINT);
+		PROCEDURE WriteText*(text : Texts.Text; VAR res : WORD);
 		VAR r : Texts.TextReader; ch : Texts.Char32; i : LONGINT;
 			c: CHAR;
 		BEGIN
@@ -229,7 +229,7 @@ TYPE
 			errors := TRUE
 		END Error;
 
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		VAR i, m: LONGINT;
 			tempUCS32 : ARRAY 1024 OF Char32;
 			ch, last : CHAR;
@@ -276,7 +276,7 @@ TYPE
 			END
 		END Open;
 
-		PROCEDURE WriteText*(text : Texts.Text; VAR res : LONGINT);
+		PROCEDURE WriteText*(text : Texts.Text; VAR res : WORD);
 		VAR r : Texts.TextReader; ch : Texts.Char32; i : LONGINT;
 			c: CHAR;
 		BEGIN
@@ -312,7 +312,7 @@ TYPE
 			errors := TRUE
 		END Error;
 
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		VAR i, m: LONGINT;
 			tempUCS32 : ARRAY 1024 OF Char32;
 			ch, last : CHAR;
@@ -359,7 +359,7 @@ TYPE
 			END;
 		END Open;
 
-		PROCEDURE WriteText*(text : Texts.Text; VAR res : LONGINT);
+		PROCEDURE WriteText*(text : Texts.Text; VAR res : WORD);
 		VAR r : Texts.TextReader; ch : Texts.Char32; i : LONGINT;
 			c: CHAR;
 		BEGIN
@@ -395,7 +395,7 @@ TYPE
 			errors := TRUE
 		END Error;
 
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		VAR i, m: LONGINT;
 			tempUCS32 : ARRAY 1024 OF Char32;
 			ch, last : CHAR;
@@ -442,7 +442,7 @@ TYPE
 			END
 		END Open;
 
-		PROCEDURE WriteText*(text : Texts.Text; VAR res : LONGINT);
+		PROCEDURE WriteText*(text : Texts.Text; VAR res : WORD);
 		VAR r : Texts.TextReader; ch : Texts.Char32; i : LONGINT;
 			c: CHAR;
 		BEGIN

source/DHCP.Mod

@@ -168,7 +168,7 @@ END CreateDHCPRequestMsg;
 (* Initiate the boot protocol. When successful, return res = 0 and set the parameters. *)
 
 PROCEDURE InitDHCP(int: IP.Interface; VAR localAdr, maskAdr, gatewayAdr: IP.Adr;
-		VAR dns: ARRAY OF IP.Adr; VAR domain: ARRAY OF CHAR; VAR res: LONGINT);
+		VAR dns: ARRAY OF IP.Adr; VAR domain: ARRAY OF CHAR; VAR res: WORD);
 VAR
 	p: UDP.Socket;
 	fport, len, time, start, offerDelay, requestDelay, i: LONGINT;
@@ -310,7 +310,7 @@ END InitDHCP;
 
 (** Run DHCP on specified interface and try to configure it directly. *)
 
-PROCEDURE RunDHCP*(int: IP.Interface; VAR res: LONGINT);
+PROCEDURE RunDHCP*(int: IP.Interface; VAR res: WORD);
 VAR
 	localAdr, maskAdr, gatewayAdr: IP.Adr;
 	dns: ARRAY IP.MaxNofDNS OF IP.Adr;

source/DNS.Mod

@@ -372,7 +372,7 @@ BEGIN
 	END
 END RetrieveInfo;
 
-PROCEDURE SendQuery(pcb: UDP.Socket; server: IP.Adr; name: ARRAY OF CHAR; type: LONGINT; VAR buf: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE SendQuery(pcb: UDP.Socket; server: IP.Adr; name: ARRAY OF CHAR; type: LONGINT; VAR buf: ARRAY OF CHAR; VAR res: WORD);
 VAR len: LONGINT;
 BEGIN
 	len := 0; res := 0;
@@ -435,7 +435,7 @@ END QueryDNS;
 
 (** Find the host responsible for mail exchange of the specified domain. *)
 
-PROCEDURE MailHostByDomain*(domain: ARRAY OF CHAR; VAR hostname: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE MailHostByDomain*(domain: ARRAY OF CHAR; VAR hostname: ARRAY OF CHAR; VAR res: WORD);
 VAR
 	buf: ARRAY 512 OF CHAR;
 	timeout: LONGINT;
@@ -458,7 +458,7 @@ END MailHostByDomain;
 
 (** Find the IP address of the specified host. *)
 
-PROCEDURE HostByName*(hostname: ARRAY OF CHAR; VAR adr: IP.Adr; VAR res: LONGINT);
+PROCEDURE HostByName*(hostname: ARRAY OF CHAR; VAR adr: IP.Adr; VAR res: WORD);
 VAR
 	buf: ARRAY 512 OF CHAR;
 	name: Name;
@@ -505,7 +505,7 @@ END HostByName;
 
 (** Find the host name of the specified IP address. *)
 
-PROCEDURE HostByNumber*(adr: IP.Adr; VAR hostname: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE HostByNumber*(adr: IP.Adr; VAR hostname: ARRAY OF CHAR; VAR res: WORD);
 VAR
 	buf: ARRAY 512 OF CHAR;
 	name: Name;

source/DTPEditor.Mod

@@ -410,7 +410,7 @@ TYPE
 		VAR name, msg: ARRAY 32 OF CHAR;
 			string: Strings.String;
 			i : LONGINT;
-			(* res : LONGINT;	*)
+			(* res : WORD;	*)
 		BEGIN
 			drawPanel.selectionON := FALSE;
 			msg := "";
@@ -1273,7 +1273,7 @@ TYPE
 			pixelPerMM : REAL;
 			renderCanvas: WMGraphics.BufferCanvas;
 			renderImg: Raster.Image;
-			res: LONGINT;
+			res: WORD;
 			oldDocOriginX, oldDocOriginY : LONGINT;
 			oldZoomFactor: REAL;
 			oldZoomMode: LONGINT;
@@ -2337,7 +2337,7 @@ TYPE
 		PROCEDURE InstantiatePlugin*(CONST name: ARRAY OF CHAR): DTPData.ContentObject;
 		VAR
 			contentObject : DTPData.ContentObject; gen: DTPData.ContentFactory;
-			moduleName, procedureName : Modules.Name; msg : ARRAY 16 OF CHAR; res : LONGINT;
+			moduleName, procedureName : Modules.Name; msg : ARRAY 16 OF CHAR; res : WORD;
 			pp : ANY;
 		BEGIN
 			contentObject := NIL;

source/DTPText.Mod

@@ -1953,7 +1953,7 @@ TYPE
 		VAR di : WMWindowManager.DragInfo;
 			dt : WMDropTarget.DropTarget;
 		(*	itf : WMDropTarget.DropInterface;
-			res : LONGINT;
+			res : WORD;
 			targetText, temp : Texts.Text;
 			pos, a, b : LONGINT; *)
 		BEGIN

source/DTPUtilities.Mod

@@ -160,7 +160,7 @@ TYPE
 			Hide;
 		END OKHandler;
 
-		PROCEDURE SetResult(res: LONGINT);
+		PROCEDURE SetResult(res: WORD);
 		BEGIN {EXCLUSIVE}
 			result := res;
 		END SetResult;

source/Darwin.AMD64.Unix.Mod

@@ -690,7 +690,7 @@ VAR
 		me: Thread_t;
 		old, new: Sigset;
 		param: Sched_param;
-		res: LONGINT;
+		res: WORD;
 	BEGIN
 		me := pthread_self();
 		SetSigaltstack();
@@ -722,7 +722,7 @@ VAR
 	VAR
 		attr: PThreadAttrType;
 		id: Thread_t;
-		res: LONGINT;
+		res: WORD;
 	BEGIN
 		pthread_attr_init( ADDRESSOF( attr ) );
 		pthread_attr_setscope( ADDRESSOF( attr ), PTHREAD_SCOPE_SYSTEM );
@@ -884,7 +884,7 @@ VAR
 
 
 	PROCEDURE getSysinfo;
-	VAR res: LONGINT;  p: INTEGER;
+	VAR res: WORD;  p: INTEGER;
 		buf: ARRAY 4096 OF CHAR;
 
 		PROCEDURE copy( VAR p: INTEGER;  VAR dest: ARRAY OF CHAR );
@@ -978,7 +978,7 @@ VAR
 
 
 	PROCEDURE {C} X11ErrorHandler(d: ADDRESS; err: ADDRESS): WORD;
-	VAR res: LONGINT;
+	VAR res: WORD;
 	BEGIN
 		TRACE(d,err);
 		IF oberonXErrorHandler # NIL THEN
@@ -988,7 +988,7 @@ VAR
 	END X11ErrorHandler;
 
 	PROCEDURE X11IOErrorHandler(d: ADDRESS): WORD;
-	VAR res: LONGINT;
+	VAR res: WORD;
 	BEGIN
 		TRACE(d);
 		IF oberonXIOErrorHandler # NIL THEN

source/Darwin.I386.Unix.Mod

@@ -695,7 +695,7 @@ VAR
 		me: Thread_t;
 		old, new: Sigset;
 		param: Sched_param;
-		res: LONGINT;
+		res: WORD;
 	BEGIN
 		me := pthread_self();
 		SetSigaltstack();
@@ -727,7 +727,7 @@ VAR
 	VAR
 		attr: PThreadAttrType;
 		id: Thread_t;
-		res: LONGINT;
+		res: WORD;
 	BEGIN
 		pthread_attr_init( ADDRESSOF( attr ) );
 		pthread_attr_setscope( ADDRESSOF( attr ), PTHREAD_SCOPE_SYSTEM );
@@ -889,7 +889,7 @@ VAR
 
 
 	PROCEDURE getSysinfo;
-	VAR res: LONGINT;  p: INTEGER;
+	VAR res: WORD;  p: INTEGER;
 		buf: ARRAY 4096 OF CHAR;
 
 		PROCEDURE copy( VAR p: INTEGER;  VAR dest: ARRAY OF CHAR );
@@ -983,7 +983,7 @@ VAR
 
 
 	PROCEDURE {C} X11ErrorHandler(d: ADDRESS; err: ADDRESS): WORD;
-	VAR res: LONGINT;
+	VAR res: WORD;
 	BEGIN
 		TRACE(d,err);
 		IF oberonXErrorHandler # NIL THEN
@@ -993,7 +993,7 @@ VAR
 	END X11ErrorHandler;
 
 	PROCEDURE X11IOErrorHandler(d: ADDRESS): WORD;
-	VAR res: LONGINT;
+	VAR res: WORD;
 	BEGIN
 		TRACE(d);
 		IF oberonXIOErrorHandler # NIL THEN

source/DataIO.Mod

@@ -26,7 +26,7 @@ TYPE
 		next: Card;
 
 		PROCEDURE Read( R: Reader );
-		VAR res: LONGINT;
+		VAR res: WORD;
 			msg: ARRAY 64 OF CHAR;
 			string: NbrStrings.String;  module: Modules.Module;  moduleName, typeName: Modules.Name;
 		BEGIN

source/DebugLog.Mod

@@ -364,7 +364,7 @@ END GetWriter;
 
 (* UNSAFE *)
 (** Send the specified characters to the trace output (cf. Streams.Sender). *)
-PROCEDURE Send*(CONST buf : ARRAY OF CHAR; ofs, len : LONGINT; propagate : BOOLEAN; VAR res : LONGINT);
+PROCEDURE Send*(CONST buf : ARRAY OF CHAR; ofs, len : LONGINT; propagate : BOOLEAN; VAR res : WORD);
 VAR i : LONGINT; str : POINTER TO ARRAY OF CHAR;
 BEGIN
 	NEW(str, len + 1);

source/Decoder.Mod

@@ -1779,7 +1779,7 @@ TYPE
 		PROCEDURE DecodeModuleHandler(sender, data : ANY);
 		VAR moduleNameStr, msg : ARRAY 256 OF CHAR;
 			module : Modules.Module;
-			res : LONGINT;
+			res : WORD;
 			moduleInfoMemory : ModuleInfoMemory;
 			header: ObjHeader;
 		BEGIN

source/DiskFS.Mod

@@ -638,7 +638,7 @@ TYPE
 			END
 		END Delete0;
 
-		PROCEDURE Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: LONGINT);
+		PROCEDURE Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: WORD);
 		VAR adr, newAdr: DiskAdr; oldbuf, newbuf: FileName;  head: FileHeader;
 		BEGIN {EXCLUSIVE}
 			Check(old, oldbuf, res);
@@ -672,7 +672,7 @@ TYPE
 		END Enumerate0;
 
 		PROCEDURE FileKey*(name: ARRAY OF CHAR): LONGINT;
-			VAR res: LONGINT; namebuf: FileName; header: DiskAdr;
+			VAR res: WORD; namebuf: FileName; header: DiskAdr;
 		BEGIN {EXCLUSIVE}
 			header := 0;
 			Check(name, namebuf, res);
@@ -1045,7 +1045,7 @@ TYPE
 			Files.JoinName(fs.prefix, SELF.name, name)
 		END GetName;
 
-		PROCEDURE Register0*(VAR res: LONGINT);
+		PROCEDURE Register0*(VAR res: WORD);
 		VAR oldAdr: DiskAdr; fs0: FileSystem;
 		BEGIN {EXCLUSIVE}
 			Unbuffer(SELF);
@@ -1187,7 +1187,7 @@ END enumerate;
 
 (* Check a file name. *)
 
-PROCEDURE Check(VAR s: ARRAY OF CHAR; VAR name: FileName; VAR res: LONGINT);
+PROCEDURE Check(VAR s: ARRAY OF CHAR; VAR name: FileName; VAR res: WORD);
 VAR i, k: LONGINT; ch: CHAR;
 BEGIN
 	ch := s[0]; i := 0; k := 0;

source/DiskTests.Mod

@@ -388,7 +388,7 @@ BEGIN
 	END;
 END TransferBlocks;
 
-PROCEDURE ShowDiskres(res : LONGINT; out : Streams.Writer);
+PROCEDURE ShowDiskres(res : WORD; out : Streams.Writer);
 BEGIN
 	IF res = Disks.Ok THEN out.String("Ok");
 	ELSIF res = Disks.MediaChanged THEN out.String("MediaChanged");

source/Diskettes.Mod

@@ -39,7 +39,7 @@ TYPE
 			size, sectors, heads, tracks: LONGINT;
 			gap, rate, spec1, spec2, fgap: CHAR;
 
-		PROCEDURE Transfer*(op, start, num: LONGINT;  VAR buf: ARRAY OF CHAR;  ofs: LONGINT;  VAR res: LONGINT);
+		PROCEDURE Transfer*(op, start, num: LONGINT;  VAR buf: ARRAY OF CHAR;  ofs: LONGINT;  VAR res: WORD);
 		BEGIN
 			Transfer1(SELF, op, start, num, buf, ofs, res);
 			IF Disks.Stats THEN
@@ -66,7 +66,7 @@ TYPE
 			GetSize1(SELF, size, res)
 		END GetSize;
 
-		PROCEDURE Handle*(VAR msg: Disks.Message;  VAR res: LONGINT);
+		PROCEDURE Handle*(VAR msg: Disks.Message;  VAR res: WORD);
 		BEGIN
 			Handle1(SELF, msg, res)
 		END Handle;
@@ -402,7 +402,7 @@ BEGIN
 	IF dev.media = media THEN RETURN Ok ELSE RETURN Disks.MediaChanged END
 END Do;
 
-PROCEDURE Transfer0(d: Disks.Device;  op, start, num: LONGINT;  VAR buf: ARRAY OF CHAR;  ofs: LONGINT;  VAR res: LONGINT);
+PROCEDURE Transfer0(d: Disks.Device;  op, start, num: LONGINT;  VAR buf: ARRAY OF CHAR;  ofs: LONGINT;  VAR res: WORD);
 VAR dev: Device; sector, head, track, s, ofs0, n, max, start0, num0: LONGINT;
 BEGIN
 	dev := d(Device);
@@ -435,7 +435,7 @@ BEGIN
 	END
 END Transfer0;
 
-PROCEDURE Transfer1(d: Disks.Device;  op, start, num: LONGINT;  VAR buf: ARRAY OF CHAR;  ofs: LONGINT;  VAR res: LONGINT);
+PROCEDURE Transfer1(d: Disks.Device;  op, start, num: LONGINT;  VAR buf: ARRAY OF CHAR;  ofs: LONGINT;  VAR res: WORD);
 BEGIN {EXCLUSIVE}
 	Transfer0(d, op, start, num, buf, ofs, res)
 END Transfer1;
@@ -448,7 +448,7 @@ BEGIN {EXCLUSIVE}
 	IF res = Disks.Ok THEN size := dev.size ELSE size := 0 END
 END GetSize1;
 
-PROCEDURE Handle1(d: Disks.Device;  VAR msg: Disks.Message;  VAR res: LONGINT);
+PROCEDURE Handle1(d: Disks.Device;  VAR msg: Disks.Message;  VAR res: WORD);
 VAR dev: Device;  buf: ARRAY BS OF CHAR;
 BEGIN {EXCLUSIVE}
 	dev := d(Device);

source/Disks.Mod

@@ -60,7 +60,7 @@ TYPE
 			NnofReads*, NnofWrites*, NnofOthers*, (** operation count *)
 			NnofErrors* : HUGEINT; (** read/write errors *)
 
-		PROCEDURE Transfer*(op, block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: LONGINT);
+		PROCEDURE Transfer*(op, block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: WORD);
 		BEGIN
 			res := Unsupported
 		END Transfer;
@@ -70,14 +70,14 @@ TYPE
 			res := Unsupported
 		END GetSize;
 
-		PROCEDURE Handle*(VAR msg: Message;  VAR res: LONGINT);
+		PROCEDURE Handle*(VAR msg: Message;  VAR res: WORD);
 		BEGIN
 			res := Unsupported
 		END Handle;
 
 		(** Open the device and increment its open count if successful. If the device is opened for the first time, lock it and update its partition table. *)
 
-		PROCEDURE Open*(VAR res: LONGINT);
+		PROCEDURE Open*(VAR res: WORD);
 		VAR lockMsg: LockMsg; unlockMsg: UnlockMsg; ignore: LONGINT;
 		BEGIN
 			res := Ok;
@@ -96,7 +96,7 @@ TYPE
 
 		(** Close the device and decrement its open count. Unlock it if the open count has reached 0. *)
 
-		PROCEDURE Close*(VAR res: LONGINT);
+		PROCEDURE Close*(VAR res: WORD);
 		VAR unlockMsg: UnlockMsg;
 		BEGIN
 			res := Ok; ASSERT(openCount > 0);
@@ -254,7 +254,7 @@ END ReadLogical;
 partition spanning the entire device, with type = 256. If the device has been opened before, do nothing and
 return DeviceInUse, otherwise return Ok. On any other error dev.table is set NIL. *)
 
-PROCEDURE UpdatePartitionTable*(dev: Device; VAR res: LONGINT);
+PROCEDURE UpdatePartitionTable*(dev: Device; VAR res: WORD);
 VAR p, t: PartitionTable; i, pn, tn, size: LONGINT; buf: DiskBlock; valid: BOOLEAN;
 BEGIN
 	IF dev.openCount = 0 THEN

source/DisplayNull.Mod

@@ -34,7 +34,7 @@ TYPE
 	END Display;
 
 PROCEDURE Install*;
-VAR d: Display; res: LONGINT;
+VAR d: Display; res: WORD;
 BEGIN
 	NEW(d); d.desc := "Null display driver";
 	Displays.registry.Add(d, res);

source/DriverDatabase.Mod

@@ -225,7 +225,7 @@ END HasBeenExecuted;
 PROCEDURE LoadDriver(driver : Driver) : BOOLEAN;
 VAR
 	commands : Strings.StringArray;
-	flags : SET; msg : ARRAY 256 OF CHAR; res : LONGINT;
+	flags : SET; msg : ARRAY 256 OF CHAR; res : WORD;
 	i : LONGINT;
 BEGIN {EXCLUSIVE}
 	res := -1;

source/EnsoniqSound.Mod

@@ -852,7 +852,7 @@ TYPE
 
 		PROCEDURE OpenPlayChannel*(VAR channel : SoundDevices.Channel;
 		samplingRate, samplingResolution, nofSubChannels, format : LONGINT;
-		VAR res : LONGINT);
+		VAR res : WORD);
 		VAR i, count : LONGINT;
 		BEGIN {EXCLUSIVE}
 			channel := NIL;
@@ -887,7 +887,7 @@ TYPE
 
 		PROCEDURE OpenRecordChannel*(VAR channel : SoundDevices.Channel;
 		samplingRate, samplingResolution, nofSubChannels, format : LONGINT;
-		VAR res: LONGINT);
+		VAR res: WORD);
 		VAR i : LONGINT;
 		BEGIN
 			channel := NIL;

source/Errors.Mod

@@ -50,7 +50,7 @@ END GetErrorString;
 
 (** Get error message for the specified error number. If no message can be found, a generic error message is generated *)
 PROCEDURE GetErrorMessage*(errorCode : LONGINT) : ErrorMessage;
-VAR errorMessage : ErrorMessage; res : LONGINT;
+VAR errorMessage : ErrorMessage; res : WORD;
 BEGIN {EXCLUSIVE}
 	res := -1;
 	Get(errorCode, errorMessage, res);
@@ -93,7 +93,7 @@ BEGIN
 	INC(index);
 END Add;
 
-PROCEDURE Get(number : LONGINT; VAR errorMessage : ErrorMessage; VAR res : LONGINT);
+PROCEDURE Get(number : LONGINT; VAR errorMessage : ErrorMessage; VAR res : WORD);
 VAR i : LONGINT;
 BEGIN
 	IF (cache # NIL) THEN
@@ -108,7 +108,7 @@ BEGIN
 	END;
 END Get;
 
-PROCEDURE ParseLine(reader : Streams.Reader; VAR errorMessage : ErrorMessage; VAR res : LONGINT);
+PROCEDURE ParseLine(reader : Streams.Reader; VAR errorMessage : ErrorMessage; VAR res : WORD);
 VAR line : ARRAY MaxLineLength OF CHAR;
 BEGIN
 	IF reader.GetInteger(errorMessage.code, FALSE) THEN
@@ -121,7 +121,7 @@ BEGIN
 	res := reader.res;
 END ParseLine;
 
-PROCEDURE ParseFile(CONST filename : Files.FileName; VAR res : LONGINT);
+PROCEDURE ParseFile(CONST filename : Files.FileName; VAR res : WORD);
 VAR file : Files.File; reader : Files.Reader; errorMessage : ErrorMessage; ch : CHAR;
 BEGIN
 	file := Files.Old(filename);
@@ -152,7 +152,7 @@ END ParseFile;
 
 (**	Load and parse a error message file. *)
 PROCEDURE Open*(context : Commands.Context); (** [filename] ~ *)
-VAR filename : Files.FileName; res : LONGINT;
+VAR filename : Files.FileName; res : WORD;
 BEGIN {EXCLUSIVE}
 	index := 0; cache := NIL;
 	context.arg.SkipWhitespace; context.arg.String(filename);

source/EventsUtils.Mod

@@ -101,7 +101,7 @@ TYPE
 
 	END EventContainer;
 
-PROCEDURE LoadFromFile*(CONST filename : ARRAY OF CHAR; VAR events : EventContainer; VAR msg : ARRAY OF CHAR; VAR res : LONGINT);
+PROCEDURE LoadFromFile*(CONST filename : ARRAY OF CHAR; VAR events : EventContainer; VAR msg : ARRAY OF CHAR; VAR res : WORD);
 VAR file : Files.File; r : Files.Reader; event : Events.Event; nofEvents : LONGINT;
 BEGIN
 	file := Files.Old(filename);
@@ -131,7 +131,7 @@ BEGIN
 	END;
 END LoadFromFile;
 
-PROCEDURE StoreToFile*(CONST filename : ARRAY OF CHAR; events : EventContainer; VAR msg : ARRAY OF CHAR; VAR res : LONGINT);
+PROCEDURE StoreToFile*(CONST filename : ARRAY OF CHAR; events : EventContainer; VAR msg : ARRAY OF CHAR; VAR res : WORD);
 VAR
 	file : Files.File; w : Files.Writer; wrapper : EventWrapper;
 	nofEvents, lastCleared, i, idx : LONGINT; full : BOOLEAN;
@@ -172,7 +172,7 @@ BEGIN
 	w.Update;
 END ToStream;
 
-PROCEDURE FromStream*(r : Streams.Reader; VAR event : Events.Event; VAR msg : ARRAY OF CHAR; VAR res : LONGINT);
+PROCEDURE FromStream*(r : Streams.Reader; VAR event : Events.Event; VAR msg : ARRAY OF CHAR; VAR res : WORD);
 VAR dt : Dates.DateTime; str : Events.Message; ch : CHAR; class, subclass, code : LONGINT;
 
 	PROCEDURE IsValid(value : LONGINT) : BOOLEAN;

source/FATFiles.Mod

@@ -98,7 +98,7 @@ TYPE
 	FilePurger = OBJECT
 		VAR count: LONGINT;
 		PROCEDURE EnumFile(f: ANY; VAR cont: BOOLEAN);
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN ASSERT(~f(File).registered);
 			KernelLog.Enter;
 			KernelLog.String(moduleName); KernelLog.String("purging anonymous file '"); KernelLog.String(f(File).long); KernelLog.String("'...");
@@ -310,7 +310,7 @@ TYPE
 		END Delete0X;
 
 		(* Rename a file. res = 0 indicates success.  End users use Files.Rename instead. *)
-		PROCEDURE Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: LONGINT);
+		PROCEDURE Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: WORD);
 		VAR oldpath, oldname, newpath, newname: Filename; r: File; dir: Directory; s: SearchByName;
 		BEGIN {EXCLUSIVE}
 			res := ErrInvalidFilename;
@@ -412,7 +412,7 @@ TYPE
 			RETURN key
 		END FileKey;
 
-		PROCEDURE CreateDirectory0*(path: ARRAY OF CHAR; VAR res: LONGINT);
+		PROCEDURE CreateDirectory0*(path: ARRAY OF CHAR; VAR res: WORD);
 		VAR f: File; d: Directory; i,j: LONGINT; name: Filename; lookup: BOOLEAN; s: SearchByName;
 		BEGIN {EXCLUSIVE}
 			IF (Files.ReadOnly IN vol.flags) THEN res := ErrReadOnly; RETURN END;
@@ -497,7 +497,7 @@ TYPE
 			END
 		END RemoveDirectory0;
 
-		PROCEDURE QuickFormat*(volLabel: ARRAY OF CHAR; VAR res: LONGINT);
+		PROCEDURE QuickFormat*(volLabel: ARRAY OF CHAR; VAR res: WORD);
 		VAR f: File; label: ARRAY 11 OF CHAR; i: LONGINT;
 			clean: FileEnumerator; c: CHAR; dummy: BOOLEAN;
 		BEGIN {EXCLUSIVE}
@@ -739,7 +739,7 @@ TYPE
 
 		(* Write logical cluster. Depending on buf.cluster, a new physical cluster may be allocated. cf. ReadBuffer *)
 		PROCEDURE WriteBuffer(buffer: Buffer);
-		VAR link: Address; res: LONGINT;
+		VAR link: Address; res: WORD;
 		BEGIN
 			IF (buffer.cluster < 2) THEN	(* allocate new cluster *)
 				IF (buffer.cluster = -EOC) THEN link := FATVolumes.FREE
@@ -913,7 +913,7 @@ TYPE
 
 		(* Register a file created with New in the directory, replacing the previous file in the directory with the same name.
 			The file is automatically updated.  End users use Files.Register instead. *)
-		PROCEDURE Register0*(VAR res: LONGINT);
+		PROCEDURE Register0*(VAR res: WORD);
 		VAR dir: Directory; old: File; s: SearchByName;
 		BEGIN {EXCLUSIVE}
 			IF ~registered THEN
@@ -963,7 +963,7 @@ TYPE
 			END
 		END UpdateX;
 
-		PROCEDURE DeleteClusterChain(VAR res: LONGINT);
+		PROCEDURE DeleteClusterChain(VAR res: WORD);
 		BEGIN {EXCLUSIVE}
 			UpdateX;
 			fs.vol(FATVolumes.Volume).FreeClusterChain(cluster, res);
@@ -1028,7 +1028,7 @@ TYPE
 	END;
 
 	ResultParam = POINTER TO RECORD(Parameter)
-		res: LONGINT
+		res: WORD
 	END;
 
 	TailGenParam = POINTER TO RECORD(Parameter)
@@ -1516,7 +1516,7 @@ TYPE
 			IF ro THEN INCL(attr, faReadOnly) END
 		END WriteFileHeaderX;
 
-		PROCEDURE NewSubdirectory(name: ARRAY OF CHAR; VAR res: LONGINT): Directory;
+		PROCEDURE NewSubdirectory(name: ARRAY OF CHAR; VAR res: WORD): Directory;
 		VAR upName: Filename; dir: Directory; f: File; i, t, d, p: LONGINT; r: Files.Rider; entry: ARRAY 32 OF CHAR;
 		BEGIN {EXCLUSIVE}
 			IF UTF8Strings.Valid(name) & ValidateName(name) THEN
@@ -1579,7 +1579,7 @@ TYPE
 			END
 		END DeleteCallback;
 
-		PROCEDURE DeleteContents(VAR res: LONGINT);
+		PROCEDURE DeleteContents(VAR res: WORD);
 		VAR par: ResultParam; enum: FileEnumerator;
 		BEGIN {EXCLUSIVE}
 			NEW(enum, cluster);
@@ -1673,7 +1673,7 @@ TYPE
 		END InitSize;
 
 		PROCEDURE ReadBuffer(buffer: Buffer; pos: LONGINT);
-		VAR vol: FATVolumes.FAT1216Volume; res: LONGINT;
+		VAR vol: FATVolumes.FAT1216Volume; res: WORD;
 		BEGIN
 			vol := fs.vol(FATVolumes.FAT1216Volume);
 			IF (pos < 0) OR (pos >= vol.numRootSectors) THEN HALT(ErrInvalidParams) END;
@@ -1683,7 +1683,7 @@ TYPE
 		END ReadBuffer;
 
 		PROCEDURE WriteBuffer(buffer: Buffer);
-		VAR vol: FATVolumes.FAT1216Volume; res: LONGINT;
+		VAR vol: FATVolumes.FAT1216Volume; res: WORD;
 		BEGIN
 			vol := fs.vol(FATVolumes.FAT1216Volume);
 			IF (buffer.cluster < 0) OR (buffer.cluster >= vol.numRootSectors) THEN HALT(ErrInvalidParams) END;
@@ -1723,7 +1723,7 @@ BEGIN
 END NewFS;
 
 PROCEDURE PurgeFile(f: ANY);
-VAR res: LONGINT;
+VAR res: WORD;
 BEGIN
 	WITH f: File DO
 		IF ~f.registered & (f.cluster # NotAssigned) THEN

source/FATScavenger.Mod

@@ -735,7 +735,7 @@ TYPE
 			collision : BOOLEAN;
 			vdf, clnShutdown, ioError : SET; (* Volume dirty flags (FAT16/32) *)
 			bpb : Block;
-			res : LONGINT;
+			res : WORD;
 		BEGIN
 			IF Trace THEN KernelLog.String("FATScavenger started on "); END;
 			SetStatus(state.status, "Scavenger starting...", 0, 0, 0, FALSE);
@@ -918,7 +918,7 @@ TYPE
 		PROCEDURE GetFSInfo(VAR freeCount, nextFree : LONGINT) : BOOLEAN;
 		VAR
 			bootsector : ARRAY FATVolumes.BS OF CHAR;
-			res : LONGINT;
+			res : WORD;
 		BEGIN
 			(* load the boot sector to get address of FSinfo block *)
 			dev.Transfer(Disks.Read, vol.start, 1, bootsector, 0, res);
@@ -958,7 +958,7 @@ TYPE
 		END GetFSInfo;
 
 		PROCEDURE SetFSInfo(freeCount, nextFree : LONGINT);
-		VAR res : LONGINT;
+		VAR res : WORD;
 		BEGIN
 			IF fsInfoLoaded THEN
 				FATVolumes.PutLongint(fsinfo, 488, freeCount); (* - deleted + created *)
@@ -1123,7 +1123,7 @@ TYPE
 			newBadClusters, cluster, link : LONGINT;
 			operation, string, temp : String;
 			address : Files.Address;
-			res : LONGINT;
+			res : WORD;
 		BEGIN
 			NEW(data,vol.clusterSize);
 			IF Trace THEN KernelLog.String("Surface scan started..."); END;
@@ -1469,7 +1469,7 @@ TYPE
 			entry : Entry; shortEntry : ShortEntry;
 			dirFragments, dirClusters : LONGINT;
 			collision : BOOLEAN;
-			res : LONGINT;
+			res : WORD;
 		BEGIN
 			IF Trace THEN KernelLog.String("Scanning FAT directory structure... "); END;
 			INC(curOp); operation := GetString(curOp, maxOp, "", "Scanning FAT directory: ");
@@ -1854,7 +1854,7 @@ TYPE
 		VAR
 			buf : POINTER TO ARRAY OF CHAR;
 			ofs, num : LONGINT;
-			res : LONGINT;
+			res : WORD;
 			temp: ARRAY 256 OF CHAR;
 		BEGIN
 			ASSERT(from < to);

source/FATVolumes.Mod

@@ -218,11 +218,11 @@ TYPE
 		END FlushCache;
 
 		(** ReadSector: reads a sector from the FAT area. Use ReadCluster to read a data cluster *)
-		PROCEDURE ReadSector*(adr: Address; VAR data: ARRAY OF CHAR; VAR res: LONGINT);
+		PROCEDURE ReadSector*(adr: Address; VAR data: ARRAY OF CHAR; VAR res: WORD);
 		BEGIN {EXCLUSIVE} ReadSectorX(adr, data, 0, res)
 		END ReadSector;
 
-		PROCEDURE ReadSectorX(adr: Address; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: LONGINT);
+		PROCEDURE ReadSectorX(adr: Address; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: WORD);
 		VAR block, idx: LONGINT;
 		BEGIN
 			INC(NreadSector);
@@ -245,11 +245,11 @@ TYPE
 		END ReadSectorX;
 
 		(** WriteSector: writes a sector to the FAT area. Use WriteCluster to write a data cluster *)
-		PROCEDURE WriteSector*(adr: Address; VAR data: ARRAY OF CHAR; VAR res: LONGINT);
+		PROCEDURE WriteSector*(adr: Address; VAR data: ARRAY OF CHAR; VAR res: WORD);
 		BEGIN {EXCLUSIVE} WriteSectorX(adr, data, 0, res)
 		END WriteSector;
 
-		PROCEDURE WriteSectorX(adr: Address; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: LONGINT);
+		PROCEDURE WriteSectorX(adr: Address; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: WORD);
 		VAR block, idx: LONGINT;
 		BEGIN
 			INC(NwriteSector);
@@ -280,20 +280,20 @@ TYPE
 		BEGIN HALT(301) (* abstract *)
 		END ReadFATEntryX;
 
-		PROCEDURE WriteFATEntry*(adr, link: Address; VAR res: LONGINT);
+		PROCEDURE WriteFATEntry*(adr, link: Address; VAR res: WORD);
 		BEGIN {EXCLUSIVE} WriteFATEntryX(adr, link, res)
 		END WriteFATEntry;
 
-		PROCEDURE WriteFATEntryX(adr, link: Address; VAR res: LONGINT);
+		PROCEDURE WriteFATEntryX(adr, link: Address; VAR res: WORD);
 		BEGIN HALT(301) (* abstract *)
 		END WriteFATEntryX;
 
 		(** ReadCluster: reads a cluster from the data area. Use ReadSector to read a sector from the FAT area *)
-		PROCEDURE ReadCluster*(adr: Address; VAR data: ARRAY OF CHAR; VAR res: LONGINT);
+		PROCEDURE ReadCluster*(adr: Address; VAR data: ARRAY OF CHAR; VAR res: WORD);
 		BEGIN {EXCLUSIVE} ReadClusterX(adr, data, res)
 		END ReadCluster;
 
-		PROCEDURE ReadClusterX(adr: Address; VAR data: ARRAY OF CHAR; VAR res: LONGINT);
+		PROCEDURE ReadClusterX(adr: Address; VAR data: ARRAY OF CHAR; VAR res: WORD);
 		VAR block, idx: LONGINT;
 		BEGIN
 			INC(NreadCluster);
@@ -316,11 +316,11 @@ TYPE
 		END ReadClusterX;
 
 		(** WriteCluster: writes a cluster to the data area. Use WriteSector to write a sector to the FAT area *)
-		PROCEDURE WriteCluster*(adr: Address; VAR data: ARRAY OF CHAR; VAR res: LONGINT);
+		PROCEDURE WriteCluster*(adr: Address; VAR data: ARRAY OF CHAR; VAR res: WORD);
 		BEGIN {EXCLUSIVE} WriteClusterX(adr, data, res)
 		END WriteCluster;
 
-		PROCEDURE WriteClusterX(adr: Address; VAR data: ARRAY OF CHAR; VAR res: LONGINT);
+		PROCEDURE WriteClusterX(adr: Address; VAR data: ARRAY OF CHAR; VAR res: WORD);
 		VAR block, idx: LONGINT;
 		BEGIN
 			INC(NwriteCluster);
@@ -343,7 +343,7 @@ TYPE
 			ioError := ioError OR (res # Ok)
 		END WriteClusterX;
 
-		PROCEDURE AllocCluster*(link: Address; VAR res: LONGINT): Address;
+		PROCEDURE AllocCluster*(link: Address; VAR res: WORD): Address;
 		VAR c, cnt, entry: Address;
 		BEGIN {EXCLUSIVE}
 			INC(NallocCluster);
@@ -374,7 +374,7 @@ TYPE
 			RETURN BAD
 		END AllocCluster;
 
-		PROCEDURE FreeClusterChain*(cluster: Address; VAR res: LONGINT);
+		PROCEDURE FreeClusterChain*(cluster: Address; VAR res: WORD);
 		VAR c, new: Address;
 		BEGIN {EXCLUSIVE}
 			c := cluster; res := Ok;
@@ -508,7 +508,7 @@ TYPE
 			RETURN entry
 		END ReadFATEntryX;
 
-		PROCEDURE WriteFATEntryX(adr, link: Address; VAR res: LONGINT);
+		PROCEDURE WriteFATEntryX(adr, link: Address; VAR res: WORD);
 		VAR offset, entry: Address; i: LONGINT;
 			data: ARRAY 2*BS OF CHAR;
 		BEGIN
@@ -564,7 +564,7 @@ CONST
 TYPE
 	FAT16Volume* = OBJECT(FAT1216Volume)
 		PROCEDURE Initialize(VAR bpb: BPB; MaxClusters: LONGINT): BOOLEAN;
-		VAR vcf: SET; res: LONGINT;
+		VAR vcf: SET; res: WORD;
 		BEGIN {EXCLUSIVE}
 			IF Initialize^(bpb, MaxClusters) THEN	(* see note in Volumes.Initialize *)
 				unsafe := TRUE; vcf := SYSTEM.VAL(SET, ReadFATEntryX(1));
@@ -587,7 +587,7 @@ TYPE
 		END Initialize;
 
 		PROCEDURE Finalize*;
-		VAR vcf: SET; res: LONGINT;
+		VAR vcf: SET; res: WORD;
 		BEGIN {EXCLUSIVE}
 			IF ~(Files.ReadOnly IN flags) THEN
 				unsafe := TRUE; vcf := SYSTEM.VAL(SET, ReadFATEntryX(1));
@@ -600,7 +600,7 @@ TYPE
 
 		PROCEDURE ReadFATEntryX(adr: Address): Address;
 		VAR offset, entry: Address;
-			res: LONGINT;
+			res: WORD;
 			data: ARRAY BS OF CHAR;
 		BEGIN
 			INC(NreadFAT);
@@ -623,7 +623,7 @@ TYPE
 			RETURN entry
 		END ReadFATEntryX;
 
-		PROCEDURE WriteFATEntryX(adr, link: Address; VAR res: LONGINT);
+		PROCEDURE WriteFATEntryX(adr, link: Address; VAR res: WORD);
 		VAR offset: Address; i: LONGINT;
 			data: ARRAY BS OF CHAR;
 		BEGIN
@@ -731,7 +731,7 @@ TYPE
 		END Initialize;
 
 		PROCEDURE Finalize*;
-		VAR vcf: SET; res: LONGINT; info: ARRAY BS OF CHAR;
+		VAR vcf: SET; res: WORD; info: ARRAY BS OF CHAR;
 		BEGIN {EXCLUSIVE}
 			IF ~(Files.ReadOnly IN flags) THEN
 				dev.Transfer(Disks.Read, start + fsInfo, 1, info, 0, res);
@@ -754,7 +754,7 @@ TYPE
 		END Finalize;
 
 		PROCEDURE InitRoot;
-		VAR cluster: POINTER TO ARRAY OF CHAR; res: LONGINT;
+		VAR cluster: POINTER TO ARRAY OF CHAR; res: WORD;
 		BEGIN
 			NEW(cluster,clusterSize);
 			WriteFATEntryX(rootCluster, EOC, res); (* ignore res *)
@@ -762,7 +762,7 @@ TYPE
 		END InitRoot;
 
 		PROCEDURE ReadFATEntryX(adr: Address): Address;
-		VAR offset, entry: Address; res: LONGINT; data: ARRAY BS OF CHAR;
+		VAR offset, entry: Address; res: WORD; data: ARRAY BS OF CHAR;
 		BEGIN
 			INC(NreadFAT);
 			IF ~unsafe & ((adr < 2) OR (adr > maxClusters+1)) THEN HALT(ErrInvalidParams) END;
@@ -784,7 +784,7 @@ TYPE
 			RETURN entry
 		END ReadFATEntryX;
 
-		PROCEDURE WriteFATEntryX(adr, link: Address; VAR res: LONGINT);
+		PROCEDURE WriteFATEntryX(adr, link: Address; VAR res: WORD);
 		VAR offset: Address; i: LONGINT; data: ARRAY BS OF CHAR;
 		BEGIN
 			INC(NwriteFAT);

source/FSTools.Mod

@@ -105,7 +105,7 @@ END ExpandAlias;
 PROCEDURE GetFileSystemFactory(CONST name : ARRAY OF CHAR; error : Streams.Writer) : Files.FileSystemFactory;
 VAR
 	factory : Files.FileSystemFactory;
-	moduleName, procedureName : Modules.Name; msg : ARRAY 128 OF CHAR; res : LONGINT;
+	moduleName, procedureName : Modules.Name; msg : ARRAY 128 OF CHAR; res : WORD;
 BEGIN
 	factory := NIL;
 	Commands.Split(name, moduleName, procedureName, res, msg);
@@ -399,7 +399,7 @@ VAR
 	enum : Files.Enumerator;
 	enumContext : Commands.Context;
 	arg : Streams.StringReader;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	NEW(options);
 	options.Add("s", "subdirectories", Options.Flag);
@@ -692,7 +692,7 @@ BEGIN
 END RenameFiles;
 
 PROCEDURE CreateDirectory*(context : Commands.Context); (* path ~ *)
-VAR path : Files.FileName; res : LONGINT;
+VAR path : Files.FileName; res : WORD;
 BEGIN
 	IF context.arg.GetString(path) THEN
 		Files.CreateDirectory(path, res);
@@ -706,7 +706,7 @@ BEGIN
 END CreateDirectory;
 
 PROCEDURE DeleteDirectory*(context : Commands.Context); (* path ~ *)
-VAR path : Files.FileName; res : LONGINT;
+VAR path : Files.FileName; res : WORD;
 BEGIN
 	IF context.arg.GetString(path) THEN
 		Files.RemoveDirectory(path, FALSE, res);
@@ -1084,7 +1084,7 @@ BEGIN
 	out.String("FSTools: Pattern matching is disabled in SAFE mode. Press FSTools.Unsafe ~ to enable pattern matching."); out.Ln;
 END ShowUnsafeMessage;
 
-PROCEDURE ShowRes(out : Streams.Writer; res : LONGINT);
+PROCEDURE ShowRes(out : Streams.Writer; res : WORD);
 BEGIN
 	out.String("(");
 	CASE res OF

source/FSTools64.Mod

@@ -105,7 +105,7 @@ END ExpandAlias;
 PROCEDURE GetFileSystemFactory(CONST name : ARRAY OF CHAR; error : Streams.Writer) : Files.FileSystemFactory;
 VAR
 	factory : Files.FileSystemFactory;
-	moduleName, procedureName : Modules.Name; msg : ARRAY 128 OF CHAR; res : LONGINT;
+	moduleName, procedureName : Modules.Name; msg : ARRAY 128 OF CHAR; res : WORD;
 BEGIN
 	factory := NIL;
 	Commands.Split(name, moduleName, procedureName, res, msg);
@@ -399,7 +399,7 @@ VAR
 	enum : Files.Enumerator;
 	enumContext : Commands.Context;
 	arg : Streams.StringReader;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	NEW(options);
 	options.Add("s", "subdirectories", Options.Flag);
@@ -692,7 +692,7 @@ BEGIN
 END RenameFiles;
 
 PROCEDURE CreateDirectory*(context : Commands.Context); (* path ~ *)
-VAR path : Files.FileName; res : LONGINT;
+VAR path : Files.FileName; res : WORD;
 BEGIN
 	IF context.arg.GetString(path) THEN
 		Files.CreateDirectory(path, res);
@@ -706,7 +706,7 @@ BEGIN
 END CreateDirectory;
 
 PROCEDURE DeleteDirectory*(context : Commands.Context); (* path ~ *)
-VAR path : Files.FileName; res : LONGINT;
+VAR path : Files.FileName; res : WORD;
 BEGIN
 	IF context.arg.GetString(path) THEN
 		Files.RemoveDirectory(path, FALSE, res);
@@ -1084,7 +1084,7 @@ BEGIN
 	out.String("FSTools64: Pattern matching is disabled in SAFE mode. Press FSTools64.Unsafe ~ to enable pattern matching."); out.Ln;
 END ShowUnsafeMessage;
 
-PROCEDURE ShowRes(out : Streams.Writer; res : LONGINT);
+PROCEDURE ShowRes(out : Streams.Writer; res : WORD);
 BEGIN
 	out.String("(");
 	CASE res OF

source/FTP.Mod

@@ -10,7 +10,7 @@ CONST
 
 VAR ftp : FTPClient.FTPClient;
 
-PROCEDURE PutFile(ftp : FTPClient.FTPClient; local, remote : ARRAY OF CHAR; VAR res : LONGINT);
+PROCEDURE PutFile(ftp : FTPClient.FTPClient; local, remote : ARRAY OF CHAR; VAR res : WORD);
 VAR buf: ARRAY BufSize OF CHAR; len: LONGINT;
 	f : Files.File; r : Files.Reader;
 	w : Streams.Writer;
@@ -29,7 +29,7 @@ BEGIN
 	END;
 END PutFile;
 
-PROCEDURE PutText(ftp : FTPClient.FTPClient; local, remote : ARRAY OF CHAR; VAR res : LONGINT);
+PROCEDURE PutText(ftp : FTPClient.FTPClient; local, remote : ARRAY OF CHAR; VAR res : WORD);
 VAR w : Streams.Writer;
         text: Texts.Text;
         r: Texts.TextReader;
@@ -53,7 +53,7 @@ BEGIN
 	text.ReleaseRead
 END PutText;
 
-PROCEDURE GetFile(ftp : FTPClient.FTPClient; remote, local : ARRAY OF CHAR; VAR res : LONGINT);
+PROCEDURE GetFile(ftp : FTPClient.FTPClient; remote, local : ARRAY OF CHAR; VAR res : WORD);
 VAR buf: ARRAY BufSize OF CHAR; len: LONGINT;
 	f : Files.File; w : Files.Writer;
 	r : Streams.Reader;
@@ -76,7 +76,7 @@ END GetFile;
 PROCEDURE  Open*(context : Commands.Context);
 VAR
 	host, user, password : ARRAY 256 OF CHAR;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	IF ftp # NIL THEN
 		context.out.String("Already open"); context.out.Ln;
@@ -107,7 +107,7 @@ PROCEDURE PutFiles*(context : Commands.Context);
 VAR
 	local, path, remote : ARRAY 256 OF CHAR;
 	tok : ARRAY 8 OF CHAR;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	IF ftp = NIL THEN
 		context.out.String("not connected"); context.out.Ln;
@@ -141,7 +141,7 @@ PROCEDURE PutTexts*(context : Commands.Context);
 VAR
 	local, path, remote : ARRAY 256 OF CHAR;
 	tok : ARRAY 8 OF CHAR;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	IF ftp = NIL THEN
 		context.out.String("not connected"); context.out.Ln;
@@ -174,7 +174,7 @@ PROCEDURE GetFiles*(context : Commands.Context);
 VAR
 	local, remote : ARRAY 256 OF CHAR;
 	tok : ARRAY 8 OF CHAR;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	IF ftp = NIL THEN
 		context.out.String("not connected"); context.out.Ln;
@@ -206,7 +206,7 @@ END GetFiles;
 PROCEDURE MakeDir*(context : Commands.Context);
 VAR
 	path : ARRAY 256 OF CHAR;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	IF ftp = NIL THEN
 		context.out.String("not open"); context.out.Ln;
@@ -223,7 +223,7 @@ END MakeDir;
 PROCEDURE ChangeDir*(context : Commands.Context);
 VAR
 	path : ARRAY 256 OF CHAR;
-	res : LONGINT;
+	res : WORD;
 BEGIN
 	IF ftp = NIL THEN
 		context.out.String("not open"); context.out.Ln;
@@ -253,7 +253,7 @@ BEGIN
 END Directory;
 
 PROCEDURE Close*(context : Commands.Context);
-VAR res : LONGINT;
+VAR res : WORD;
 BEGIN
 	IF ftp = NIL THEN
 		context.out.String("not connected"); context.out.Ln;

source/FTPClient.Mod

@@ -58,7 +58,7 @@ TYPE
 		END Init;
 
 
-		PROCEDURE Open*(CONST host, user, password : ARRAY OF CHAR; port : LONGINT; VAR res : LONGINT);
+		PROCEDURE Open*(CONST host, user, password : ARRAY OF CHAR; port : LONGINT; VAR res : WORD);
 		VAR fadr : IP.Adr;
 		BEGIN {EXCLUSIVE}
 			res := 0;
@@ -125,7 +125,7 @@ TYPE
 			END;
 		END ReadResponse;
 
-		PROCEDURE Close*(VAR res : LONGINT);
+		PROCEDURE Close*(VAR res : WORD);
 		BEGIN
 			w.String("QUIT"); w.Ln; w.Update;
 			ReadResponse(code, msg);
@@ -147,7 +147,7 @@ TYPE
 			RETURN (ch >= '0') & (ch <='9')
 		END IsNum;
 
-		PROCEDURE GetDataConnection( VAR res : LONGINT);
+		PROCEDURE GetDataConnection( VAR res : WORD);
 		VAR ch : CHAR; i, j : LONGINT; ipstr : ARRAY 16 OF CHAR; p0, p1, port : LONGINT;
 			str : ARRAY 32 OF CHAR;
 
@@ -235,7 +235,7 @@ TYPE
 			END
 		END WaitEstablished;
 
-		PROCEDURE OpenDataConnection(VAR connection : TCP.Connection; VAR res : LONGINT);
+		PROCEDURE OpenDataConnection(VAR connection : TCP.Connection; VAR res : WORD);
 		BEGIN
 			IF passiveTransfer THEN
 				NEW(connection); connection.Open(TCP.NilPort, dataIP, dataPort, res)
@@ -256,7 +256,7 @@ TYPE
 			END
 		END OpenDataConnection;
 
-		PROCEDURE OpenPut*(CONST remoteName : ARRAY OF CHAR; VAR outw : Streams.Writer; VAR res : LONGINT);
+		PROCEDURE OpenPut*(CONST remoteName : ARRAY OF CHAR; VAR outw : Streams.Writer; VAR res : WORD);
 		BEGIN
 			IF ~open OR busy THEN res := -2; RETURN END;
 			GetDataConnection(res);
@@ -281,7 +281,7 @@ TYPE
 			END
 		END OpenPut;
 
-		PROCEDURE ClosePut*(VAR res : LONGINT);
+		PROCEDURE ClosePut*(VAR res : WORD);
 		BEGIN
 			busy := FALSE;
 			IF dataCon # NIL THEN
@@ -297,7 +297,7 @@ TYPE
 			END
 		END ClosePut;
 
-		PROCEDURE OpenGet*(CONST remoteName : ARRAY OF CHAR; VAR r : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE OpenGet*(CONST remoteName : ARRAY OF CHAR; VAR r : Streams.Reader; VAR res : WORD);
 		BEGIN
 			IF ~open OR busy THEN res := -2; RETURN END;
 			busy := TRUE;
@@ -322,7 +322,7 @@ TYPE
 			END
 		END OpenGet;
 
-		PROCEDURE CloseGet*(VAR res : LONGINT);
+		PROCEDURE CloseGet*(VAR res : WORD);
 		BEGIN
 			IF dataCon # NIL THEN
 				dataCon.Close;
@@ -338,7 +338,7 @@ TYPE
 			END
 		END CloseGet;
 
-		PROCEDURE DeleteFile*(CONST remoteName : ARRAY OF CHAR; VAR res : LONGINT);
+		PROCEDURE DeleteFile*(CONST remoteName : ARRAY OF CHAR; VAR res : WORD);
 		BEGIN
 			IF ~open OR busy THEN res := -2; RETURN END;
 			w.String("DELE "); w.String(remoteName); w.Ln; w.Update;
@@ -346,7 +346,7 @@ TYPE
 			IF (code >= 200) & (code <300) THEN res := ResOk ELSE res := ResFailed END
 		END DeleteFile;
 
-		PROCEDURE ChangeDir*(CONST dir : ARRAY OF CHAR; VAR res : LONGINT);
+		PROCEDURE ChangeDir*(CONST dir : ARRAY OF CHAR; VAR res : WORD);
 		BEGIN
 			IF ~open OR busy THEN res := -2; RETURN END;
 			w.String("CWD "); w.String(dir); w.Ln; w.Update;
@@ -354,7 +354,7 @@ TYPE
 			IF (code >= 200) & (code <300) THEN res := ResOk ELSE res := ResFailed END
 		END ChangeDir;
 
-		PROCEDURE MakeDir*(CONST dir : ARRAY OF CHAR; VAR res : LONGINT);
+		PROCEDURE MakeDir*(CONST dir : ARRAY OF CHAR; VAR res : WORD);
 		BEGIN
 			IF ~open OR busy THEN res := -2; RETURN END;
 			w.String("MKD "); w.String(dir); w.Ln; w.Update;
@@ -362,7 +362,7 @@ TYPE
 			IF (code >= 200) & (code <300) THEN res := ResOk ELSE res := ResFailed END
 		END MakeDir;
 
-		PROCEDURE RemoveDir*(CONST dir : ARRAY OF CHAR; VAR res : LONGINT);
+		PROCEDURE RemoveDir*(CONST dir : ARRAY OF CHAR; VAR res : WORD);
 		BEGIN
 			IF ~open OR busy THEN res := -2; RETURN END;
 			w.String("RMD "); w.String(dir); w.Ln; w.Update;
@@ -370,7 +370,7 @@ TYPE
 			IF (code >= 200) & (code <300) THEN res := ResOk ELSE res := ResFailed END
 		END RemoveDir;
 
-		PROCEDURE RenameFile*(CONST currentName, newName : ARRAY OF CHAR; VAR res : LONGINT);
+		PROCEDURE RenameFile*(CONST currentName, newName : ARRAY OF CHAR; VAR res : WORD);
 		BEGIN
 			IF ~open OR busy THEN res := -2; RETURN END;
 			w.String("RNFR "); w.String(currentName); w.Ln; w.Update;
@@ -387,7 +387,7 @@ TYPE
 
 		PROCEDURE EnumerateNames*;
 		VAR
-			res : LONGINT;
+			res : WORD;
 			r : Streams.Reader; s, filename : ARRAY 256 OF CHAR;
 			flags : ARRAY 11 OF CHAR;
 			type : ARRAY 4 OF CHAR;
@@ -474,7 +474,7 @@ TYPE
 		END EnumerateNames;
 
 		PROCEDURE EnumerateDir*(CONST args : ARRAY OF CHAR);
-		VAR  res : LONGINT;
+		VAR  res : WORD;
 			r : Streams.Reader; s, filename : ARRAY 256 OF CHAR;
 			flags : ARRAY 11 OF CHAR;
 			type : ARRAY 4 OF CHAR;
@@ -611,7 +611,7 @@ TYPE
 			listing[nofEntries-1] := entry;
 		END AddFTPEntryToListing;
 
-		PROCEDURE GetCurrentDir*(VAR dir : ARRAY OF CHAR; VAR res : LONGINT);
+		PROCEDURE GetCurrentDir*(VAR dir : ARRAY OF CHAR; VAR res : WORD);
 		VAR p : LONGINT;
 		BEGIN
 			IF ~open OR busy THEN res := -2; RETURN END;
@@ -631,7 +631,7 @@ TYPE
 			END;
 		END GetCurrentDir;
 
-		PROCEDURE Raw*(CONST cmd : ARRAY OF CHAR; VAR res : LONGINT);
+		PROCEDURE Raw*(CONST cmd : ARRAY OF CHAR; VAR res : WORD);
 		VAR extMsg : ARRAY 4096 OF CHAR;
 			command : ARRAY 32 OF CHAR; arguments : ARRAY 512 OF CHAR;
 		BEGIN

source/FTPFS.Mod

@@ -605,7 +605,7 @@ TYPE
 	 *Closes the FTP connection after some delay time.
 	 *)
 		PROCEDURE HandleClose;
-			VAR res : LONGINT;
+			VAR res : WORD;
 		BEGIN
 			SELF.ftp.Close (res);
 			KernelLog.Enter;
@@ -651,7 +651,7 @@ TYPE
 			CONST
 				BufSize = 16*1024;
 
-			VAR res : LONGINT;
+			VAR res : WORD;
 				rd : Streams.Reader;
 				buf : ARRAY BufSize OF CHAR;
 				len : LONGINT;
@@ -777,7 +777,7 @@ TYPE
 			lock.Release
 		END Delete0;
 
-		PROCEDURE Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: LONGINT);
+		PROCEDURE Rename0*(old, new: ARRAY OF CHAR; f: Files.File; VAR res: WORD);
 		VAR adr: DiskAdr; oldbuf, newbuf: FileName;  head: FileHeader;
 		BEGIN (*{EXCLUSIVE}*)
 			lock.Acquire;
@@ -811,7 +811,7 @@ TYPE
 		END Enumerate0;
 
 		PROCEDURE FileKey*(name: ARRAY OF CHAR): LONGINT;
-			VAR res: LONGINT; namebuf: FileName; header: DiskAdr;
+			VAR res: WORD; namebuf: FileName; header: DiskAdr;
 		BEGIN (*{EXCLUSIVE}*)
 			lock.Acquire;
 			header := 0;
@@ -1010,7 +1010,7 @@ TYPE
 			Files.JoinName(fs.prefix, SELF.name, name)
 		END GetName;
 
-		PROCEDURE Register0*(VAR res: LONGINT);
+		PROCEDURE Register0*(VAR res: WORD);
 		BEGIN {EXCLUSIVE}
 			Unbuffer(SELF);
 			IF ~registered & (name # "") THEN
@@ -1154,7 +1154,7 @@ END enumerate;
 
 (* Check a file name. *)
 
-PROCEDURE Check(VAR s: ARRAY OF CHAR; VAR name: FileName; VAR res: LONGINT);
+PROCEDURE Check(VAR s: ARRAY OF CHAR; VAR name: FileName; VAR res: WORD);
 	VAR i: LONGINT; ch: CHAR;
 BEGIN
 	ch := s[0]; i := 0;

source/Files.Mod

@@ -122,7 +122,7 @@ TYPE
 		file : File;
 		r: Rider;
 
-		PROCEDURE Send(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+		PROCEDURE Send(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD);
 		BEGIN
 			r.file.WriteBytes(r, buf, ofs, len);
 			IF propagate THEN r.file.Update END;
@@ -286,7 +286,7 @@ TYPE
 
 		(** Rename a file. res = 0 indicates success.  End users use Files.Rename instead. *)
 
-		PROCEDURE Rename0*(old, new: ARRAY OF CHAR; f: File; VAR res: LONGINT);
+		PROCEDURE Rename0*(old, new: ARRAY OF CHAR; f: File; VAR res: WORD);
 		BEGIN HALT(301) END Rename0;	(* abstract *)
 
 		(** Enumerate canonical file names. mask may contain * wildcards.  For internal use only.  End users use Enumerator instead. *)
@@ -302,7 +302,7 @@ TYPE
 		(** Create a new directory structure. May not be supported by the actual implementation.
 			End users use Files.CreateDirectory instead.*)
 
-		PROCEDURE CreateDirectory0*(name: ARRAY OF CHAR; VAR res: LONGINT);
+		PROCEDURE CreateDirectory0*(name: ARRAY OF CHAR; VAR res: WORD);
 		BEGIN res := -1	(* not supported *)
 		END CreateDirectory0;
 
@@ -408,7 +408,7 @@ TYPE
 		BEGIN HALT(301) END GetName;	(* abstract *)
 
 		(** Register a file created with New in the directory, replacing the previous file in the directory with the same name. The file is automatically updated.  End users use Files.Register instead. *)
-		PROCEDURE Register0*(VAR res: LONGINT);
+		PROCEDURE Register0*(VAR res: WORD);
 		BEGIN HALT(301) END Register0;	(* abstract *)
 
 		(** Flush the changes made to a file from its buffers. Register0 will automatically update a file. *)
@@ -862,7 +862,7 @@ END New;
 
 (** Delete a file. res = 0 indicates success. *)
 
-PROCEDURE Delete*(VAR name: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE Delete*(VAR name: ARRAY OF CHAR; VAR res: WORD);
 VAR fs: FileSystem; f: File; key: LONGINT; prefix: Prefix; fname: FileName;
 BEGIN {EXCLUSIVE}
 	SplitName(name, prefix, fname);
@@ -887,7 +887,7 @@ BEGIN {EXCLUSIVE}
 END Delete;
 
 (* copies the file with the given name to the fileClipboard *)
-PROCEDURE Copy*(name: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE Copy*(name: ARRAY OF CHAR; VAR res: WORD);
 VAR file: File;
 BEGIN
 	res := -1;
@@ -898,7 +898,7 @@ BEGIN
 END Copy;
 
 (* pastes the fileClipboard into the file with the given name if it doesn't exist already *)
-PROCEDURE Paste*(name: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE Paste*(name: ARRAY OF CHAR; VAR res: WORD);
 VAR writer : Writer;
 	reader : Reader;
 	file : File;
@@ -929,7 +929,7 @@ END Paste;
  * @param overwrite: @in: Overwrite existing files? @out: Has an existing file been overwritten?
  * @param res: @out: Result code
  *)
-PROCEDURE CopyFile*(source, destination : ARRAY OF CHAR; VAR overwrite : BOOLEAN; VAR res : LONGINT);
+PROCEDURE CopyFile*(source, destination : ARRAY OF CHAR; VAR overwrite : BOOLEAN; VAR res : WORD);
 VAR
 	sprefix, dprefix : Prefix;
 	sname, dname, dpath, dfilename: FileName;
@@ -993,7 +993,7 @@ END CopyFile;
 
 (** Rename a file. res = 0 indicates success. *)
 
-PROCEDURE Rename*(CONST old, new: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE Rename*(CONST old, new: ARRAY OF CHAR; VAR res: WORD);
 VAR
 	key: LONGINT; ofs, nfs: FileSystem; f: File; pold, pnew: Prefix;
 	fold, fnew: FileName;
@@ -1018,7 +1018,7 @@ END Rename;
 (** Register a file created with New in the directory, replacing the previous file in the directory with the same name. The file is automatically closed. *)
 
 PROCEDURE Register*(f: File);
-VAR res: LONGINT;
+VAR res: WORD;
 BEGIN {EXCLUSIVE}
 	IF f # NIL THEN
 		f.Register0(res);
@@ -1031,7 +1031,7 @@ END Register;
 
 (** Create a directory structure. Directories are automatically registered. res=0 indicates success.
 	Use Files.RemoveDirectory to delete a directory *)
-PROCEDURE CreateDirectory*(path: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE CreateDirectory*(path: ARRAY OF CHAR; VAR res: WORD);
 VAR prefix: Prefix; fs: FileSystem; fpath: FileName;
 BEGIN {EXCLUSIVE}
 	SplitName(path, prefix, fpath);
@@ -1044,7 +1044,7 @@ BEGIN {EXCLUSIVE}
 END CreateDirectory;
 
 (** Remove a directory. res=0 indicates success. If force=TRUE, any files and subdirectories are automatically deleted. *)
-PROCEDURE RemoveDirectory*(path: ARRAY OF CHAR; force: BOOLEAN; VAR res: LONGINT);
+PROCEDURE RemoveDirectory*(path: ARRAY OF CHAR; force: BOOLEAN; VAR res: WORD);
 VAR prefix: Prefix; fs: FileSystem; f: File; key: LONGINT; fpath: FileName;
 BEGIN {EXCLUSIVE}
 	SplitName(path, prefix, fpath);
@@ -1115,7 +1115,7 @@ END Exists;
 
 (* add a search path to the system *)
 PROCEDURE AddSearchPath*(context: Commands.Context);
-VAR cmd: ARRAY 32 OF CHAR; msg: ARRAY 256 OF CHAR;  res: LONGINT;
+VAR cmd: ARRAY 32 OF CHAR; msg: ARRAY 256 OF CHAR;  res: WORD;
 BEGIN
 	(* preliminary implementation until we know how to solve this generically *)
 	IF Modules.ModuleByName("WinFS") # NIL THEN
@@ -1131,7 +1131,7 @@ END AddSearchPath;
 
 (* add a search path to the system *)
 PROCEDURE SetWorkPath*(context: Commands.Context);
-VAR cmd: ARRAY 32 OF CHAR; msg: ARRAY 256 OF CHAR;  res: LONGINT;
+VAR cmd: ARRAY 32 OF CHAR; msg: ARRAY 256 OF CHAR;  res: WORD;
 BEGIN
 	(* preliminary implementation until we know how to solve this generically *)
 	IF Modules.ModuleByName("WinFS") # NIL THEN

source/Files64.Mod

@@ -87,7 +87,7 @@ TYPE
 		file : File;
 		r: Rider;
 
-		PROCEDURE Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: TSize; VAR len: TSize; VAR res: LONGINT);
+		PROCEDURE Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: TSize; VAR len: TSize; VAR res: WORD);
 		BEGIN
 			file.ReadBytes(r, buf, ofs, size);
 			len := size - r.res;
@@ -125,7 +125,7 @@ TYPE
 		file : File;
 		r: Rider;
 
-		PROCEDURE Send(CONST buf: ARRAY OF CHAR; ofs, len: TSize; propagate: BOOLEAN; VAR res: LONGINT);
+		PROCEDURE Send(CONST buf: ARRAY OF CHAR; ofs, len: TSize; propagate: BOOLEAN; VAR res: WORD);
 		BEGIN
 			r.file.WriteBytes(r, buf, ofs, len);
 			IF propagate THEN r.file.Update END;
@@ -198,7 +198,7 @@ TYPE
 
 		(** Rename a file. res = 0 indicates success.  End users use Files.Rename instead. *)
 
-		PROCEDURE Rename0*(old, new: ARRAY OF CHAR; f: File; VAR res: LONGINT);
+		PROCEDURE Rename0*(old, new: ARRAY OF CHAR; f: File; VAR res: WORD);
 		BEGIN HALT(301) END Rename0;	(* abstract *)
 
 		(** Enumerate canonical file names. mask may contain * wildcards.  For internal use only.  End users use Enumerator instead. *)
@@ -214,7 +214,7 @@ TYPE
 		(** Create a new directory structure. May not be supported by the actual implementation.
 			End users use Files.CreateDirectory instead.*)
 
-		PROCEDURE CreateDirectory0*(name: ARRAY OF CHAR; VAR res: LONGINT);
+		PROCEDURE CreateDirectory0*(name: ARRAY OF CHAR; VAR res: WORD);
 		BEGIN res := -1	(* not supported *)
 		END CreateDirectory0;
 
@@ -320,7 +320,7 @@ TYPE
 		BEGIN HALT(301) END GetName;	(* abstract *)
 
 		(** Register a file created with New in the directory, replacing the previous file in the directory with the same name. The file is automatically updated.  End users use Files.Register instead. *)
-		PROCEDURE Register0*(VAR res: LONGINT);
+		PROCEDURE Register0*(VAR res: WORD);
 		BEGIN HALT(301) END Register0;	(* abstract *)
 
 		(** Flush the changes made to a file from its buffers. Register0 will automatically update a file. *)
@@ -770,7 +770,7 @@ END New;
 
 (** Delete a file. res = 0 indicates success. *)
 
-PROCEDURE Delete*(VAR name: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE Delete*(VAR name: ARRAY OF CHAR; VAR res: WORD);
 VAR fs: FileSystem; f: File; key: LONGINT; prefix: Prefix; fname: FileName;
 BEGIN {EXCLUSIVE}
 	SplitName(name, prefix, fname);
@@ -795,7 +795,7 @@ BEGIN {EXCLUSIVE}
 END Delete;
 
 (* copies the file with the given name to the fileClipboard *)
-PROCEDURE Copy*(name: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE Copy*(name: ARRAY OF CHAR; VAR res: WORD);
 VAR file: File;
 BEGIN
 	res := -1;
@@ -806,7 +806,7 @@ BEGIN
 END Copy;
 
 (* pastes the fileClipboard into the file with the given name if it doesn't exist already *)
-PROCEDURE Paste*(name: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE Paste*(name: ARRAY OF CHAR; VAR res: WORD);
 VAR writer : Writer;
 	reader : Reader;
 	file : File;
@@ -837,7 +837,7 @@ END Paste;
  * @param overwrite: @in: Overwrite existing files? @out: Has an existing file been overwritten?
  * @param res: @out: Result code
  *)
-PROCEDURE CopyFile*(source, destination : ARRAY OF CHAR; VAR overwrite : BOOLEAN; VAR res : LONGINT);
+PROCEDURE CopyFile*(source, destination : ARRAY OF CHAR; VAR overwrite : BOOLEAN; VAR res : WORD);
 VAR
 	sprefix, dprefix : Prefix;
 	sname, dname, dpath, dfilename: FileName;
@@ -901,7 +901,7 @@ END CopyFile;
 
 (** Rename a file. res = 0 indicates success. *)
 
-PROCEDURE Rename*(CONST old, new: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE Rename*(CONST old, new: ARRAY OF CHAR; VAR res: WORD);
 VAR
 	key: LONGINT; ofs, nfs: FileSystem; f: File; pold, pnew: Prefix;
 	fold, fnew: FileName;
@@ -926,7 +926,7 @@ END Rename;
 (** Register a file created with New in the directory, replacing the previous file in the directory with the same name. The file is automatically closed. *)
 
 PROCEDURE Register*(f: File);
-VAR res: LONGINT;
+VAR res: WORD;
 BEGIN {EXCLUSIVE}
 	IF f # NIL THEN
 		f.Register0(res);
@@ -939,7 +939,7 @@ END Register;
 
 (** Create a directory structure. Directories are automatically registered. res=0 indicates success.
 	Use Files.RemoveDirectory to delete a directory *)
-PROCEDURE CreateDirectory*(path: ARRAY OF CHAR; VAR res: LONGINT);
+PROCEDURE CreateDirectory*(path: ARRAY OF CHAR; VAR res: WORD);
 VAR prefix: Prefix; fs: FileSystem; fpath: FileName;
 BEGIN {EXCLUSIVE}
 	SplitName(path, prefix, fpath);
@@ -952,7 +952,7 @@ BEGIN {EXCLUSIVE}
 END CreateDirectory;
 
 (** Remove a directory. res=0 indicates success. If force=TRUE, any files and subdirectories are automatically deleted. *)
-PROCEDURE RemoveDirectory*(path: ARRAY OF CHAR; force: BOOLEAN; VAR res: LONGINT);
+PROCEDURE RemoveDirectory*(path: ARRAY OF CHAR; force: BOOLEAN; VAR res: WORD);
 VAR prefix: Prefix; fs: FileSystem; f: File; key: LONGINT; fpath: FileName;
 BEGIN {EXCLUSIVE}
 	SplitName(path, prefix, fpath);
@@ -1023,7 +1023,7 @@ END Exists;
 
 (* add a search path to the system *)
 PROCEDURE AddSearchPath*(context: Commands.Context);
-VAR cmd: ARRAY 32 OF CHAR; msg: ARRAY 256 OF CHAR;  res: LONGINT;
+VAR cmd: ARRAY 32 OF CHAR; msg: ARRAY 256 OF CHAR;  res: WORD;
 BEGIN
 	(* preliminary implementation until we know how to solve this generically *)
 	IF Modules.ModuleByName("HostFiles64") # NIL THEN
@@ -1037,7 +1037,7 @@ END AddSearchPath;
 
 (* add a search path to the system *)
 PROCEDURE SetWorkPath*(context: Commands.Context);
-VAR cmd: ARRAY 32 OF CHAR; msg: ARRAY 256 OF CHAR;  res: LONGINT;
+VAR cmd: ARRAY 32 OF CHAR; msg: ARRAY 256 OF CHAR;  res: WORD;
 BEGIN
 	(* preliminary implementation until we know how to solve this generically *)
 	IF Modules.ModuleByName("HostFiles64") # NIL THEN

source/FirewireSBP2.Mod

@@ -1081,7 +1081,7 @@ BEGIN
 END ScanUD;
 
 PROCEDURE AddStorageDevices(VAR dev: Sbp2Dev);
-VAR res: LONGINT;
+VAR res: WORD;
 BEGIN
 	(* now add to disk system *)
 	Disks.registry.Add(dev,res);

source/FoxAMDBackend.Mod

@@ -211,7 +211,7 @@ TYPE
 		VAR i,sizeInBits,length, form: LONGINT;
 
 			PROCEDURE GetGPHint(offset: LONGINT): LONGINT;
-			VAR res: LONGINT;
+			VAR res: WORD;
 			BEGIN
 				IF (hint # none) & (hint >= AL) & (hint <= EDI) & (toVirtual[hint MOD 32 + offset]=free) & ~Reserved(hint) THEN res := hint MOD 32 + offset ELSE res := none END;
 				hint := none;
@@ -219,7 +219,7 @@ TYPE
 			END GetGPHint;
 
 			PROCEDURE GetHint(from,to: LONGINT): LONGINT;
-			VAR res: LONGINT;
+			VAR res: WORD;
 			BEGIN
 				IF (hint # none) & (hint >= from) & (hint <= to) & (toVirtual[hint]=free) & ~Reserved(hint) THEN res := hint ELSE res := none END;
 				hint := none;
@@ -422,7 +422,7 @@ TYPE
 		VAR i: LONGINT;
 
 			PROCEDURE GetGPHint(offset: LONGINT): LONGINT;
-			VAR res: LONGINT;
+			VAR res: WORD;
 			BEGIN
 				IF (hint # none) & (hint >= AL) & (hint <= R15) & (toVirtual[hint MOD 32 + offset]=free) & ~Reserved(hint) THEN res := hint MOD 32 + offset ELSE res := none END;
 				hint := none;

source/FoxActiveCells.Mod

@@ -1585,7 +1585,7 @@ TYPE
 		platform: PlatformDesc;
 		fileName: Files.FileName;
 		mod: Modules.Module;
-		res: LONGINT;
+		res: WORD;
 		msg: ARRAY 8 OF CHAR;
 	BEGIN
 

source/FoxBasic.Mod

@@ -1621,7 +1621,7 @@ TYPE
 			InitWriter(Send, 256)
 		END InitStream;
 
-		PROCEDURE Send*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+		PROCEDURE Send*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD);
 		VAR idx: LONGINT;
 		BEGIN
 			WHILE len > 0 DO

source/FoxInterpreter.Mod

@@ -459,7 +459,7 @@ TYPE
 *)
 
 		PROCEDURE VisitIdentifierDesignator*(x: SyntaxTree.IdentifierDesignator);
-		VAR moduleName: Modules.Name; msg: ARRAY 128 OF CHAR; res: LONGINT;
+		VAR moduleName: Modules.Name; msg: ARRAY 128 OF CHAR; res: WORD;
 			 builtin : Builtin; anyValue: Any;
 		BEGIN
 			ASSERT(x.left = NIL);
@@ -884,7 +884,7 @@ TYPE
 		END TranslateString;
 		
 		PROCEDURE VisitCommandStatement(x: CommandStatement);
-		VAR t: Strings.String; res: LONGINT; msg: ARRAY 128 OF CHAR; i: LONGINT; array: Strings.StringArray; pos: LONGINT;
+		VAR t: Strings.String; res: WORD; msg: ARRAY 128 OF CHAR; i: LONGINT; array: Strings.StringArray; pos: LONGINT;
 			command: ARRAY 256 OF CHAR; context: Commands.Context;
 
 			PROCEDURE CreateContext(paramString : Strings.String; pos: LONGINT) : Commands.Context;

source/FoxInterpreterSymbols.Mod

@@ -1708,7 +1708,7 @@ TYPE
 	*)
 	
 	PROCEDURE GetModule*(CONST name: ARRAY OF CHAR): ModuleResult;
-	VAR msg: ARRAY 128 OF CHAR; res: LONGINT; mod:ModuleResult; m: Modules.Module; meta: Meta;
+	VAR msg: ARRAY 128 OF CHAR; res: WORD; mod:ModuleResult; m: Modules.Module; meta: Meta;
 	BEGIN
 		m := Modules.ThisModule(name, res, msg);
 		IF m # NIL THEN 

source/FoxScanner.Mod

@@ -198,7 +198,7 @@ TYPE
 			NEW(data, initialSize); length := 0;
 		END Init;
 
-		PROCEDURE Add*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+		PROCEDURE Add*(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD);
 		VAR i : LONGINT; n: StringType;
 		BEGIN
 			IF length + len + 1 >= LEN(data) THEN

source/FoxSections.Mod

@@ -206,7 +206,7 @@ TYPE
 		firstComment-,lastComment-: Comment; comments-: LONGINT;
 		getPC: GetPCProcedure;
 
-		PROCEDURE AppendToLine*( CONST buf: ARRAY OF CHAR;  ofs, len: LONGINT; propagate: BOOLEAN;  VAR res: LONGINT );
+		PROCEDURE AppendToLine*( CONST buf: ARRAY OF CHAR;  ofs, len: LONGINT; propagate: BOOLEAN;  VAR res: WORD );
 		VAR pos: LONGINT;
 		BEGIN
 			IF len = 0 THEN RETURN END;

source/FoxSyntaxTree.Mod

@@ -1539,7 +1539,7 @@ TYPE
 		END SetProtected;
 
 		PROCEDURE Level*():LONGINT;
-		VAR type: RecordType; res: LONGINT;
+		VAR type: RecordType; res: WORD;
 		BEGIN
 			type := SELF;
 			res := 0;

source/FoxTRMTools.Mod

@@ -432,7 +432,7 @@ IMPORT Files,Commands,Options,Strings,Basic := FoxBasic, Diagnostics, BitSets,Ob
 	END SameFiles;
 	*)
 	(*
-	PROCEDURE DeleteFiles(CONST fileSelectionMask: ARRAY OF CHAR; context: Commands.Context; VAR res: LONGINT);
+	PROCEDURE DeleteFiles(CONST fileSelectionMask: ARRAY OF CHAR; context: Commands.Context; VAR res: WORD);
 	VAR
 		enum: Files.Enumerator;
 		flags: SET;

source/FoxTest.Mod

@@ -29,7 +29,7 @@ TYPE
 		END InitTester;
 
 		PROCEDURE Handle* (r: Streams.Reader; position: LONGINT; CONST name: ARRAY OF CHAR; type: TestSuite.TestType): INTEGER;
-		VAR result: INTEGER; msg: ARRAY 128 OF CHAR; res: LONGINT; f: Files.File; w: Files.Writer; ch: CHAR;
+		VAR result: INTEGER; msg: ARRAY 128 OF CHAR; res: WORD; f: Files.File; w: Files.Writer; ch: CHAR;
 		BEGIN
 			result := TestSuite.Failure;
 			IF log # NIL THEN log.String ("testing: "); log.String (name); log.String("@"); log.Int(position,0); log.Ln; log.Update; END;

source/GIFCodec.Mod

@@ -39,7 +39,7 @@ TYPE
 		PROCEDURE SetQuality*(quality : LONGINT);
 		END SetQuality;
 
-		PROCEDURE WriteImage*(img : Raster.Image; VAR res : LONGINT);
+		PROCEDURE WriteImage*(img : Raster.Image; VAR res : WORD);
 		VAR pal : Raster.Palette;
 		BEGIN
 			NEW(pal); Raster.ComputePalette(img, pal, 0,256, 8);
@@ -217,7 +217,7 @@ TYPE
 		END Error;
 
 		(* open the decoder on an InputStream *)
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		VAR
 			header : Header;
 			ch : CHAR;
@@ -370,7 +370,7 @@ TYPE
 		END Error;
 
 		(* open the decoder on an InputStream *)
-		PROCEDURE Open*(in : Streams.Reader; VAR res : LONGINT);
+		PROCEDURE Open*(in : Streams.Reader; VAR res : WORD);
 		VAR
 			header : Header;
 			ch : CHAR;
@@ -418,7 +418,7 @@ TYPE
 			res := 0;
 		END Open;
 
-		PROCEDURE GetImageSequence*(VAR sequence : Codecs.ImageSequence; VAR res : LONGINT);
+		PROCEDURE GetImageSequence*(VAR sequence : Codecs.ImageSequence; VAR res : WORD);
 		VAR
 			first, last, current : Codecs.ImageDescriptor;
 			label, ch, transPix, idFlags : CHAR;

source/GZip.Mod

@@ -38,7 +38,7 @@ TYPE
 		VAR
 			writer: Streams.Writer;
 			s : ZlibDeflate.Stream;
-			res : LONGINT;
+			res : WORD;
 			crc32-: LONGINT; (*crc32 of uncompressed data*)
 			out : POINTER TO ARRAY BufSize OF CHAR;
 			flush: SHORTINT;
@@ -77,7 +77,7 @@ TYPE
 			END;
 		END Init;
 
-		PROCEDURE Send* (CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+		PROCEDURE Send* (CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD);
 		VAR
 			done : BOOLEAN;
 		BEGIN
@@ -136,7 +136,7 @@ TYPE
 	Inflator* = OBJECT	(** not sharable between multiple processes *)
 		VAR
 			reader: Streams.Reader;
-			res: LONGINT;
+			res: WORD;
 			transparent : BOOLEAN;
 			crc32-: LONGINT; (*crc32 of uncompressed data*)
 			in : POINTER TO ARRAY BufSize OF CHAR;

source/HierarchicalProfiler.Mod

@@ -517,7 +517,7 @@ BEGIN
 END GetBufferSize;
 
 (**	Generate hierarchical profile of the last profiler run's data. Returns NIL if no data available *)
-PROCEDURE GetProfile*(type, info : LONGINT; VAR profile : Profile; VAR res : LONGINT);
+PROCEDURE GetProfile*(type, info : LONGINT; VAR profile : Profile; VAR res : WORD);
 BEGIN {EXCLUSIVE}
 	profile := NIL;
 	IF (state # Running) THEN
@@ -563,7 +563,7 @@ BEGIN
 END Start;
 
 (** Start profiling. If the profiler is already running, it is stopped and the sample data is discarded before re-starting it *)
-PROCEDURE StartProfiling*(maxTime : LONGINT; VAR res : LONGINT);
+PROCEDURE StartProfiling*(maxTime : LONGINT; VAR res : WORD);
 BEGIN {EXCLUSIVE}
 	ASSERT(maxTime > 0);
 	IF (state # Running) THEN
@@ -586,7 +586,7 @@ END StartProfiling;
 
 (** Stop profiling. The profile data is not discarded. It can be retrieved using the procedure 'GetProfile' *)
 PROCEDURE Stop*(context : Commands.Context);
-VAR res : LONGINT;
+VAR res : WORD;
 BEGIN
 	StopProfiling(res);
 	IF (res = Ok) THEN
@@ -599,7 +599,7 @@ BEGIN
 END Stop;
 
 (** Stop profiling. The profile data is not discarded. It can be retrieved using the procedure 'GetProfile' *)
-PROCEDURE StopProfiling*(VAR res : LONGINT);
+PROCEDURE StopProfiling*(VAR res : WORD);
 BEGIN {EXCLUSIVE}
 	IF (state = Running) THEN
 		HierarchicalProfiler0.Disable;
@@ -611,7 +611,7 @@ BEGIN {EXCLUSIVE}
 END StopProfiling;
 
 PROCEDURE Continue*(context : Commands.Context); (** ~ *)
-VAR res : LONGINT;
+VAR res : WORD;
 BEGIN
 	ContinueProfiling(res);
 	IF (res = Ok) THEN
@@ -622,7 +622,7 @@ BEGIN
 	context.out.Ln;
 END Continue;
 
-PROCEDURE ContinueProfiling*(VAR res : LONGINT);
+PROCEDURE ContinueProfiling*(VAR res : WORD);
 BEGIN {EXCLUSIVE}
 	IF (state # Running) THEN
 		IF (samples # NIL) THEN

source/HostClipboard.Mod

@@ -16,7 +16,7 @@ TYPE
 VAR
 	getFromClipboard, putToClipboard : ClipboardHandler;
 
-PROCEDURE Get*(text : Texts.Text; VAR res : LONGINT);
+PROCEDURE Get*(text : Texts.Text; VAR res : WORD);
 BEGIN {EXCLUSIVE}
 	ASSERT((text # NIL) & (text.HasWriteLock()));
 	IF (getFromClipboard # NIL) THEN
@@ -27,7 +27,7 @@ BEGIN {EXCLUSIVE}
 	END;
 END Get;
 
-PROCEDURE Put*(text : Texts.Text; VAR res : LONGINT);
+PROCEDURE Put*(text : Texts.Text; VAR res : WORD);
 BEGIN {EXCLUSIVE}
 	ASSERT((text # NIL) & (text.HasReadLock()));
 	IF (putToClipboard # NIL) THEN

source/HotKeys.Mod

@@ -281,7 +281,7 @@ VAR
 	caller: OBJECT
 	VAR
 		command: XML.String;
-		msg : ARRAY 256 OF CHAR; res : LONGINT;
+		msg : ARRAY 256 OF CHAR; res : WORD;
 
 		PROCEDURE & Init(c: XML.String);
 		BEGIN

source/HotKeysCommands.Mod

@@ -38,7 +38,7 @@ TYPE
 		editor : WMEditors.Editor;
 
 		PROCEDURE HandleEnter(sender, data : ANY);
-		VAR commandString : ARRAY 4096 OF CHAR; msg : ARRAY 128 OF CHAR; res : LONGINT;
+		VAR commandString : ARRAY 4096 OF CHAR; msg : ARRAY 128 OF CHAR; res : WORD;
 		BEGIN
 			editor.GetAsString(commandString);
 			IF commandString # "" THEN

source/I386.ATADisks.Mod

@@ -224,7 +224,7 @@ TYPE
 			DeviceReset = SYSTEM.VAL(LONGINT, Protocol_DeviceReset);
 			NonData = SYSTEM.VAL(LONGINT, Protocol_NonData);
 		VAR
-			res: LONGINT;
+			res: WORD;
 			ch: CHAR;
 			dma: BOOLEAN;
 		BEGIN {EXCLUSIVE}
@@ -390,7 +390,7 @@ TYPE
 		VAR
 			ch: CHAR;
 			s: SET;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			(* Clear Interrupt & Errror *)
 			Machine.Portin8(bmbase + Ofs_BMStatus, ch); s := SYSTEM.VAL(SET, ORD(ch));
@@ -460,7 +460,7 @@ TYPE
 		VAR
 			t: Kernel.MilliTimer;
 			status: SET;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			IF state = 1 THEN RETURN Res_Err; END;
 			(* HSR0 *)
@@ -485,7 +485,7 @@ TYPE
 			cmdPacket: CommandPacket;
 			ch: CHAR;
 			status, devReg: SET;
-			res: LONGINT;
+			res: WORD;
 		BEGIN
 			(* HI1 *)
 			res := WaitStatus({Status_BSY, Status_DRQ}, {}, {}, ms, status);
@@ -749,7 +749,7 @@ TYPE
 			States: HPD0(Check_Status_A), HPD1 (Send_Packet), HPD2 (Check_Status_B), HPD3 (INTRQ_wait), HPD4 (Transfer_Data) *)
 		PROCEDURE ProtPacketDMA(command: CommandPacket; ms: LONGINT; VAR status: SET): LONGINT;
 		VAR
-			res: LONGINT;
+			res: WORD;
 			ch: CHAR;
 			s: SET;
 			t: Kernel.MilliTimer;
@@ -801,7 +801,7 @@ TYPE
 
 		PROCEDURE CreateDevice(devNum: LONGINT): LONGINT;
 		VAR status: SET;
-			res: LONGINT; dev, devATA: Device; devATAPI: DeviceATAPI; ch: CHAR;
+			res: WORD; dev, devATA: Device; devATAPI: DeviceATAPI; ch: CHAR;
 			buf: ARRAY BS DIV 2 OF INTEGER;
 			command: Command;
 			devReg: SET;
@@ -967,7 +967,7 @@ TYPE
 		cmdLBA: CommandLBA;
 		cmdLBA48: CommandLBA48;
 
-		PROCEDURE Transfer*(op, block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: LONGINT);
+		PROCEDURE Transfer*(op, block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: WORD);
 		VAR
 			num1, try, ignore: LONGINT; bufAdr: ADDRESS;
 			dma: BOOLEAN;
@@ -1027,7 +1027,7 @@ TYPE
 			res := Disks.Ok;
 		END GetSize;
 
-		PROCEDURE Handle*(VAR msg: Disks.Message; VAR res: LONGINT);
+		PROCEDURE Handle*(VAR msg: Disks.Message; VAR res: WORD);
 		BEGIN
 			res := Disks.Unsupported;
 			IF msg IS Disks.GetGeometryMsg THEN
@@ -1080,7 +1080,7 @@ TYPE
 		END TransferEx;
 
 		PROCEDURE Reset(): LONGINT;
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			IF TraceVerbose & (trace * TraceCommands # {})  THEN Show(name); KernelLog.String(" reset controller"); KernelLog.Ln; END;
 			res := controller.Reset();
@@ -1104,7 +1104,7 @@ TYPE
 		END InitDevice;
 
 		PROCEDURE Flush(): LONGINT;
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			res := Disks.Unsupported;
 			IF FlushBit IN id.type THEN
@@ -1122,7 +1122,7 @@ TYPE
 		PROCEDURE MediaLock(lock: BOOLEAN): LONGINT;
 		VAR
 			command: CommandLBA;
-			res: LONGINT;
+			res: WORD;
 			status: SET;
 		BEGIN {EXCLUSIVE}
 			IF RMSNBit IN id.type THEN
@@ -1392,7 +1392,7 @@ TYPE
 		END Create;
 
 		PROCEDURE Finalize;
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			(* unregister device *)
 			Disks.registry.Remove(SELF);
@@ -1439,7 +1439,7 @@ TYPE
 			END;
 		END GetSize;
 
-		PROCEDURE Handle*(VAR msg: Disks.Message; VAR res: LONGINT);
+		PROCEDURE Handle*(VAR msg: Disks.Message; VAR res: WORD);
 		BEGIN
 			res := Disks.Unsupported;
 			IF msg IS Disks.GetGeometryMsg THEN
@@ -1488,7 +1488,7 @@ TYPE
 			RETURN res;
 		END ExecuteCommand;
 
-		PROCEDURE ProcessSense(VAR res: LONGINT);
+		PROCEDURE ProcessSense(VAR res: WORD);
 		BEGIN
 			IF res = Res_OK THEN
 				sense := 0; asc := 0; ascq := 0;
@@ -1529,7 +1529,7 @@ TYPE
 		END TransferEx;
 
 		PROCEDURE WaitUntilReady(): LONGINT;
-		VAR res: LONGINT; retry: BOOLEAN;
+		VAR res: WORD; retry: BOOLEAN;
 		BEGIN
 			REPEAT
 				retry := FALSE;
@@ -1581,7 +1581,7 @@ TYPE
 		VAR
 			command: CommandPacket;
 			buf: ARRAY 18 OF CHAR;
-			res: LONGINT;
+			res: WORD;
 			status: SET;
 		BEGIN
 			IF TraceVerbose & (trace * (TraceCommands + TraceAtapi) # {}) THEN
@@ -1617,7 +1617,7 @@ TYPE
 		PROCEDURE TestUnitReady*(): LONGINT;
 		VAR
 			command: CommandPacket;
-			res: LONGINT;
+			res: WORD;
 			status: SET;
 		BEGIN
 			IF TraceVerbose & (trace * (TraceCommands + TraceAtapi) # {}) THEN
@@ -1670,7 +1670,7 @@ TYPE
 		PROCEDURE MediaLock*(lock: BOOLEAN): LONGINT;
 		VAR
 			command: CommandPacket;
-			res: LONGINT;
+			res: WORD;
 			status: SET;
 		BEGIN {EXCLUSIVE}
 			command := NewCommandPacket(1EH); (* prevent/allow medium removal *)
@@ -1687,7 +1687,7 @@ TYPE
 		PROCEDURE Powersave(): LONGINT;
 		VAR
 			command: CommandPacket;
-			res: LONGINT;
+			res: WORD;
 			status: SET;
 		BEGIN {EXCLUSIVE}
 			command := NewCommandPacket(1BH); (* start/stop unit *)
@@ -1799,7 +1799,7 @@ TYPE
 		END NewCommandPacket;
 
 		PROCEDURE IdentifyDevice(buf: ARRAY OF INTEGER): LONGINT;
-		VAR res : LONGINT;
+		VAR res : WORD;
 		BEGIN
 			maxTransfer := 65535;
 
@@ -1878,7 +1878,7 @@ TYPE
 		END ShowDevice;
 
 		PROCEDURE &Create*(acontroller: Controller; adev: LONGINT; identifyDevice: ARRAY OF INTEGER);
-		VAR res: LONGINT;
+		VAR res: WORD;
 		BEGIN
 			INCL(id.type, AtapiBit);
 			NEW(cmdPacket);

source/I386.DivXDecoder.Mod

@@ -1797,7 +1797,7 @@ TYPE DivXDecoder* = OBJECT(Codecs.VideoDecoder)
 
 
 		(* Sets the the stream on which to read *)
-		PROCEDURE Open*(in: Streams.Reader; VAR res: LONGINT );
+		PROCEDURE Open*(in: Streams.Reader; VAR res: WORD );
 		BEGIN
 			SELF.s := in;
 			NEW( mp4State);
@@ -1838,7 +1838,7 @@ TYPE DivXDecoder* = OBJECT(Codecs.VideoDecoder)
 			RETURN frameCounter;
 		END GetCurrentFrame;
 
-		PROCEDURE SeekFrame*(frame : LONGINT; goKeyFrame : BOOLEAN; VAR res : LONGINT);
+		PROCEDURE SeekFrame*(frame : LONGINT; goKeyFrame : BOOLEAN; VAR res : WORD);
 		VAR
 			seekType: LONGINT;
 			dummy: LONGINT;
@@ -1856,7 +1856,7 @@ TYPE DivXDecoder* = OBJECT(Codecs.VideoDecoder)
 		END SeekFrame;
 
 		(* Seeks a position based on timevalue. If gokeyframe is set, the next following keyframe is searched *)
-		PROCEDURE SeekMillisecond*(millisecond: LONGINT; goKeyFrame : BOOLEAN; VAR res : LONGINT);
+		PROCEDURE SeekMillisecond*(millisecond: LONGINT; goKeyFrame : BOOLEAN; VAR res : WORD);
 		VAR
 			frame: LONGINT;
 			dummy: LONGINT;

source/I386.IP.Mod

@@ -89,7 +89,7 @@ TYPE
 			subnet as the "localAdr".
 			"domain" can be an empty string. It is normally used by a DNS implementation. It is not used in IP directly.
 			In IPv6 maskAdr is the prefix of the currently IP address *)
-		PROCEDURE SetAdrs*(localAdr, maskOrPrefixAdr, gatewayAdr: Adr; VAR res: LONGINT);
+		PROCEDURE SetAdrs*(localAdr, maskOrPrefixAdr, gatewayAdr: Adr; VAR res: WORD);
 		BEGIN
 			(* Extensions have to override this method.*)
 			HALT(99);
@@ -1482,7 +1482,7 @@ END SetIPv6AdrNil;
 
 
 (* Add the interface to the IP configuration. *)
-PROCEDURE AddInterface*(int: Interface; VAR res: LONGINT);
+PROCEDURE AddInterface*(int: Interface; VAR res: WORD);
 VAR
 	item: Interface;
 BEGIN {EXCLUSIVE}

source/I386.IPv4.Mod

@@ -48,7 +48,7 @@ TYPE
 			"name" must be a unique name for this interface (tested in "AddInterface").
 			"dev" must be a Network.LinkDevice that can be used in other interfaces => multiple IP addresses on the
 			same interface. *)
-		PROCEDURE &Constr*(name: IP.Name; dev: Network.LinkDevice; VAR res: LONGINT);
+		PROCEDURE &Constr*(name: IP.Name; dev: Network.LinkDevice; VAR res: WORD);
 		VAR
 			i: LONGINT;
 
@@ -338,7 +338,7 @@ TYPE
 			If "gatewayAdr" is "NilAdr", the subnet is considered to have no gateway, else it must be in the same
 			subnet as the "localAdr".
 			"domain" can be an empty string. It is normally used by a DNS implementation. It is not used in IP directly. *)
-		PROCEDURE SetAdrs*(localAdr, maskAdr, gatewayAdr: IP.Adr; VAR res: LONGINT);
+		PROCEDURE SetAdrs*(localAdr, maskAdr, gatewayAdr: IP.Adr; VAR res: WORD);
 		VAR
 			maskSet: SET;
 

source/I386.MPEGUtilities.Mod

@@ -681,7 +681,7 @@ TYPE
 		PROCEDURE ReadMotionCode*(): LONGINT;
 		VAR
 			bits: LONGINT;
-			res: LONGINT;
+			res: WORD;
 
 		BEGIN
 			IF eof THEN RETURN 0 END;

source/I386.MemCache.Mod

@@ -83,7 +83,7 @@ END SetMTTRphysMask;
 
 (** Set the cache properties of the specified physical memory area on the current processor. {physAdr, size MOD PS = 0}  Must be called from supervisor mode. *)
 
-PROCEDURE LocalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: LONGINT);
+PROCEDURE LocalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: WORD);
 VAR i, n, f: LONGINT; mask, base: SET; j, k: ADDRESS;
 BEGIN
 	ASSERT((physAdr MOD PS = 0) & (size MOD PS = 0) & (size # 0));
@@ -148,7 +148,7 @@ END HandleSetCacheProperties;
 
 (** Broadcast a LocalSetCacheProperties operation to all processors. *)
 
-PROCEDURE GlobalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: LONGINT);
+PROCEDURE GlobalSetCacheProperties*(physAdr: ADDRESS; size, type: LONGINT; VAR res: WORD);
 VAR i: LONGINT; msg: SetCacheMessage;
 BEGIN
 	NEW(msg); msg.physAdr := physAdr; msg.size := size; msg.type := type;