Procedure LATSET(LUN:Integer;
		 SERVER:CH16;
		 PORT:CH16;
                 EFN:Event_Flag
		);EXTERNAL;

{*USER*
 Pascal-3 Procedure to assign a device to a LAT port 
as a application port. Because this routine uses an Set
Multiple Characteristics SF.SMC to a port other then TI: it is required
to build the task including this routine PR:0.

This procedure will perform the following operation.
-Set the LAT port characteristics to the specified server and port.

LUN is the logical unit number to be assigned to the appropriate device.  

SERVER is the name of the server.

PORT is the name of the port.

EFN is the event flag to be set when the I/O is completed. f0 may 
not be specified. 

Directive status is available in $DSW on return.

}