{
File		: DE:[22,60]regwin.pas
Author		: Peter Stadick
Origin date	: DEC 16,88
Edit History	:

       Last Edit: 16-DEC-1988 17:06:20 

Description:
	The routine fills in the Window Discriptor Block. The user
must set aside an 8 word area in global variables for the WDB.
For example:
TYPE
  WDB_type	: array [1..8] of integer;

VAR
i	: integer;	 insures word alignment
WDB     : WDB_type;	 Space for WDB 

}

procedure regwin(VAR WDB  : WDB_type;
		     apr  : integer;
		     size : integer;
		     rid  : integer;
		     off  : integer;
		     len  : integer;
		     sts  : integer;
		     srb  : integer); external;