$save nolist

/*
 *============================================================================
 *  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
 *============================================================================
 */

/*
 *	$Id: parmData.ext 1157 2025-05-05 00:35:39Z rmgillmore $
 */

$if not NEW_PARMDATA_EXT_INCLUDED
$set (NEW_PARMDATA_EXT_INCLUDED)

declare	paramDataStruct			literally
$if 0
	'structure
	(
		stackDataPtr			pointer,
		dataLength				word,
		dataIndex				word
	)'
$else
	'structure
	(
		stackDataPtr			pointer
	)'
$endif
;

declare	getByte				literally	'get8Bits',
		getChar				literally	'get8Bits',
		getBoolean			literally	'get8Bits',
		getWord				literally	'get16Bits',
		getInteger			literally	'get16Bits',
		getDword			literally	'get32Bits',
		getPointer			literally	'get32Bits';

$if not paramDataSource

initParamData:
procedure( referenceAddress, paramDataStructPtr ) external;
	declare	referenceAddress	pointer,
			paramDataStructPtr	pointer;
end initParamData;

get8Bits:
procedure( paramDataStructPtr, bytePtr ) external;
	declare	paramDataStructPtr	pointer,
			bytePtr				pointer;
end get8Bits;

get16Bits:
procedure( paramDataStructPtr, wordPtr ) external;
	declare	paramDataStructPtr	pointer,
			wordPtr				pointer;
end get16Bits;

get32Bits:
procedure( paramDataStructPtr, dwordPtr ) external;
	declare	paramDataStructPtr	pointer,
			dwordPtr			pointer;
end get32Bits;

$endif

$endif
$restore