procedure bytmov(source	: address;
	         destin : address;
                 length : integer); external;