$include (..\lib\compStch.ext)

/*
 *============================================================================
 *  This program is distributed in the hope that it will be useful, but
 *  WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE
 *
 *  Permission to use for any purpose, modify, copy, and make enhancements
 *  and derivative works of the software is granted if attribution is given to
 *  R.M. Gillmore, dba the ACME Software Deli, as the author
 *
 *  While the ACME Software Deli does not work for money, there is nonetheless
 *  a significant amount of work involved.  The ACME Software Deli maintains the
 *  rights to all code written, though it may be used and distributed as long as
 *  the following conditions are maintained.
 *
 *  1.  The copyright statement at the top of each code block is maintained in
 *      your distribution.
 *  2.  You do not identify yourself as the ACME Software Deli
 *  3.  Any changes made to the software are sent to the ACME Software Deli
 *============================================================================
 */



/*
 *	Module which allows a user to access parameter data for a function
 *	though there is no parameter list specified in the code, or when
 *	there are a variable number of parameters like printf(), for instance.
 */

getDataAtModule:
do;
$if not noID
declare IDString	(*) byte data
	( '@(#)getAt.p86     $Author: rmgillmore $ $Date:: 2025-05-04 19:35:39#$:', 0 );
$endif
$set ( getAtSource )

$include ( ..\lib\comnDefs.ext )
$include ( ..\lib\getAt.ext )

getPointerAt:
procedure ( locationPtr ) pointer public;
	declare	locationPtr			pointer;

	declare	returnData	based	locationPtr pointer;

	return ( returnData );
end getPointerAt;

getDwordAt:
procedure ( locationPtr ) dword public;
	declare	locationPtr			pointer;

	declare	returnData	based	locationPtr dword;

	return ( returnData );
end getDwordAt;

getWordAt:
procedure ( locationPtr ) word public;
	declare	locationPtr			pointer;

	declare	returnData	based	locationPtr word;

	return ( returnData );
end getWordAt;

getIntegerAt:
procedure ( locationPtr ) integer public;
	declare	locationPtr			pointer;

	declare	returnData	based	locationPtr integer;

	return ( returnData );
end getIntegerAt;

getByteAt:
procedure ( locationPtr ) byte public;
	declare	locationPtr			pointer;

	declare	returnData	based	locationPtr byte;

	return ( returnData );
end getByteAt;

getCharAt:
procedure ( locationPtr ) char public;
	declare	locationPtr			pointer;

	declare	returnData	based	locationPtr char;

	return ( returnData );
end getCharAt;

getBooleanAt:
procedure ( locationPtr ) boolean public;
	declare	locationPtr			pointer;

	declare	returnData	based	locationPtr boolean;

	return ( returnData );
end getBooleanAt;

end getDataAtModule;