conv.hhf

High Level assembly language(HLA)软件

	procedure a_i16ToStr
	( 
		w:		word; 
		width:	int32;
		f:		char 
	); 
			@external( "CONV_A_I16TOSTR" );


	procedure a_i32ToStr
	( 
		d:		dword; 
		width:	int32;
		f:		char 
	); 
			@external( "CONV_A_I32TOSTR" );


	procedure a_i64ToStr
	( 
		q:		qword; 
		width:	int32;
		fill:	char 
	); 
			@external( "CONV_A_I64TOSTR" );


	procedure a_i128ToStr
	( 
		l:		lword; 
		width:	int32;
		fill:	char 
	); 
			@external( "CONV_A_I128TOSTR" );





	procedure u8ToStr
	( 
		b:		byte; 
		width:	int32;
		f:		char; 
		buf:	string 
	); 
			@external( "CONV_U8TOSTR" );

	procedure u16ToStr
	( 
		w:		word; 
		width:	int32;
		f:		char; 
		buf:	string 
	); 
			@external( "CONV_U16TOSTR" );


	procedure u32ToStr
	( 
		d:		dword; 
		width:	int32;
		f:		char; 
		buf:	string 
	); 
			@external( "CONV_U32TOSTR" );


	procedure u64ToStr
	( 
		q:		qword; 
		width:	int32;
		fill:	char; 
		buffer:	string 
	); 
			@external( "CONV_U64TOSTR" );


	procedure u128ToStr
	( 
		l:		lword; 
		width:	int32;
		fill:	char; 
		buffer:	string 
	); 
			@external( "CONV_U128TOSTR" );





	procedure a_u8ToStr
	( 
		b:		byte; 
		width:	int32;
		f:		char 
	); 
			@external( "CONV_A_U8TOSTR" );

	procedure a_u16ToStr
	( 
		w:		word; 
		width:	int32;
		f:		char 
	); 
			@external( "CONV_A_U16TOSTR" );


	procedure a_u32ToStr
	( 
		d:		dword; 
		width:	int32;
		f:		char 
	); 
			@external( "CONV_A_U32TOSTR" );


	procedure a_u64ToStr
	( 
		q:		qword; 
		width:	int32;
		fill:	char 
	); 
			@external( "CONV_A_U64TOSTR" );


	procedure a_u128ToStr
	( 
		l:		lword; 
		width:	int32;
		fill:	char 
	); 
			@external( "CONV_A_U128TOSTR" );







	procedure r80ToStr
	(
		r80: 		real80;
		width:		uns32;
		decimalpts:	uns32;
		fill:		char;
		buffer:		string
	); 
			@external( "CONV_R80TOSTR" );


	procedure r64ToStr
	(
		r64: 		real64;
		width:		uns32;
		decimalpts:	uns32;
		fill:		char;
		buffer:		string
	); 
			@external( "CONV_R64TOSTR" );


	procedure r32ToStr
	(
		r32: 		real32;
		width:		uns32;
		decimalpts:	uns32;
		fill:		char;
		buffer:		string
	); 
			@external( "CONV_R32TOSTR" );
			
			



	procedure a_r80ToStr
	(
		r80: 		real80;
		width:		uns32;
		decimalpts:	uns32;
		fill:		char
	); 
			@external( "CONV_A_R80TOSTR" );


	procedure a_r64ToStr
	(
		r64: 		real64;
		width:		uns32;
		decimalpts:	uns32;
		fill:		char
	); 
			@external( "CONV_A_R64TOSTR" );


	procedure a_r32ToStr
	(
		r32: 		real32;
		width:		uns32;
		decimalpts:	uns32;
		fill:		char
	); 
			@external( "CONV_A_R32TOSTR" );
			
			
			
			

	procedure r80ToBuf
	(
			r80			:real80;	
			width		:uns32; 
			decimalpts	:uns32; 
			fill		:char; 
		var	buffer		:var in edi
	); 
			@external( "CONV_R80TOBUF" );


	procedure r64ToBuf
	(
			r64			:real64;	
			width		:uns32; 
			decimalpts	:uns32; 
			fill		:char; 
		var	buffer		:var in edi
	); 
			@external( "CONV_R64TOBUF" );


	procedure r32ToBuf
	(
			r32			:real32;	
			width		:uns32; 
			decimalpts	:uns32; 
			fill		:char; 
		var	buffer		:var in edi
	); 
			@external( "CONV_R32TOBUF" );





	procedure e80ToStr
	(
		r80: 		real80;
		width:		uns32;
		buffer:		string
	); 
			@external( "CONV_E80TOSTR" );


	procedure e64ToStr
	(
		r64: 		real64;
		width:		uns32;
		buffer:		string
	); 
			@external( "CONV_E64TOSTR" );


	procedure e32ToStr
	(
		r32: 		real32;
		width:		uns32;
		buffer:		string
	); 
			@external( "CONV_E32TOSTR" );







	procedure a_e80ToStr
	(
		r80: 		real80;
		width:		uns32
	); 
			@external( "CONV_A_E80TOSTR" );


	procedure a_e64ToStr
	(
		r64: 		real64;
		width:		uns32
	); 
			@external( "CONV_A_E64TOSTR" );


	procedure a_e32ToStr
	(
		r32: 		real32;
		width:		uns32
	); 
			@external( "CONV_A_E32TOSTR" );





	procedure e32ToBuf
	(
			e32: 		real32;
			width:		uns32;
		var buffer:		var in edi
	); 
			@external( "CONV_E32TOBUF" );


	procedure e64ToBuf
	(
			e64: 		real64;
			width:		uns32;
		var buffer:		var in edi
	); 
			@external( "CONV_E64TOBUF" );


	procedure e80ToBuf
	(
			e80: 		real80;
			width:		uns32;
		var buffer:		var in edi
	); 
			@external( "CONV_E80TOBUF" );

	procedure eToBuf
	(
			e80		:real80;
			width	:uns32;
		var	buffer	:var in edi;
			expDigs	:uns32
	);  
			@external( "CONV_ETOBUF" );




	procedure atou8( var buffer:var in esi ); 
			@returns( "al" );  
			@external( "CONV_ATOU8" );

	procedure atou16( var buffer:var in esi ); 
			@returns( "ax" );  
			@external( "CONV_ATOU16" );

	procedure atou32( var buffer:var in esi ); 
			@returns( "eax" );  
			@external( "CONV_ATOU32" );

	procedure atou64( var buffer:var in esi ); 
			@returns( "eax" );  
			@external( "CONV_ATOU64" );

	procedure atou128( var buffer:var in esi; var l:lword ); 
			@returns( "eax" );  
			@external( "CONV_ATOU128" );

	procedure atoi8( var buffer:var in esi ); 
			@returns( "al" );  
			@external( "CONV_ATOI8" );

	procedure atoi16( var buffer:var in esi ); 
			@returns( "ax" );  
			@external( "CONV_ATOI16" );

	procedure atoi32( var buffer:var in esi ); 
			@returns( "eax" );  
			@external( "CONV_ATOI32" );

	procedure atoi64( var buffer:var in esi ); 
			@external( "CONV_ATOI64" );

	procedure atoi128( var buffer:var in esi; var l:lword ); 
			@external( "CONV_ATOI128" );


	procedure atoh8( var buffer:var in esi ); 
			@returns( "al" );  
			@external( "CONV_ATOH8" );

	procedure atoh16( var buffer:var in esi ); 
			@returns( "ax" );  
			@external( "CONV_ATOH16" );

	procedure atoh32( var buffer:var in esi ); 
			@returns( "eax" );  
			@external( "CONV_ATOH32" );

	procedure atoh64( var buffer:var in esi ); 
			@external( "CONV_ATOH64" );

	procedure atoh80( var buffer:var in esi; var tb:tbyte ); 
			@external( "CONV_ATOH80" );

	procedure atoh128( var buffer:var in esi; var l:lword ); 
			@external( "CONV_ATOH128" );

	procedure atof; 
			@returns( "st0" );  
			@external( "CONV_ATOF" );




	procedure strToi8( s:string; index:dword ); 
			@returns( "eax" );  
			@external( "CONV_STRTOI8" );

	procedure strToi16( s:string; index:dword ); 
			@returns( "eax" );  
			@external( "CONV_STRTOI16" );

	procedure strToi32( s:string; index:dword ); 
			@returns( "eax" );  
			@external( "CONV_STRTOI32" );

	procedure strToi64( s:string; index:dword ); 
			@external( "CONV_STRTOI64" );

	procedure strToi128( s:string; index:dword; var dest:int128 ); 
			@external( "CONV_STRTOI128" );



	procedure strTou8( s:string; index:dword ); 
			@returns( "eax" );  
			@external( "CONV_STRTOU8" );

	procedure strTou16( s:string; index:dword ); 
			@returns( "eax" );  
			@external( "CONV_STRTOU16" );

	procedure strTou32( s:string; index:dword ); 
			@returns( "eax" );  
			@external( "CONV_STRTOU32" );

	procedure strTou64( s:string; index:dword ); 
			@external( "CONV_STRTOU64" );

	procedure strTou128( s:string; index:dword; var dest:lword ); 
			@external( "CONV_STRTOU128" );



	procedure strToh8( s:string; index:dword ); 
			@returns( "eax" );  
			@external( "CONV_STRTOH8" );

	procedure strToh16( s:string; index:dword ); 
			@returns( "eax" );  
			@external( "CONV_STRTOH16" );

	procedure strToh32( s:string; index:dword ); 
			@returns( "eax" );  
			@external( "CONV_STRTOH32" );

	procedure strToh64( s:string; index:dword; var dest:qword ); 
			@external( "CONV_STRTOH64" );

	procedure strToh80( s:string; index:dword; var dest:tbyte ); 
			@external( "CONV_STRTOH80" );

	procedure strToh128( s:string; index:dword; var dest:lword ); 
			@external( "CONV_STRTOH128" );


	#if( allowDeprecatedNames )
	
		procedure strTob( s:string; index:dword ); 
				@returns( "eax" );  
				@external( "CONV_STRTOH8" );

		procedure strTow( s:string; index:dword ); 
				@returns( "eax" );  
				@external( "CONV_STRTOH16" );

		procedure strTod( s:string; index:dword ); 
				@returns( "eax" );  
				@external( "CONV_STRTOH32" );

		procedure strToq( s:string; index:dword; var dest:qword ); 
				@external( "CONV_STRTOH64" );

		procedure strTotb( s:string; index:dword; var dest:tbyte ); 
				@external( "CONV_STRTOH80" );

		procedure strTol( s:string; index:dword; var dest:lword ); 
				@external( "CONV_STRTOH128" );
				
	#endif
	
	


	procedure strToFlt( s:string; index:dword ); 
			@external( "CONV_STRTOFLT" );



	#if( allowDeprecatedNames )
	
		procedure cStrToStr( var buffer:var; dest:string ); 
				@external( "STR_CPYZ" );

		procedure a_cStrToStr( var buffer:var ); @returns( "eax" ); 
				@external( "STR_A_CPYZ" );
				
	#endif


	procedure roman( arabic:dword; rmn:string );
			@external( "CONV_ROMAN" );

	procedure a_roman( arabic:dword ); @returns( "eax" );
			@external( "CONV_A_ROMAN" );

	procedure utoEng( u:dword; dest:string );
			@external( "CONV_UTOENG" );

	procedure a_utoEng( u:dword );
			@external( "CONV_A_UTOENG" );

	procedure utoEngth( u:dword; dest:string );
			@external( "CONV_UTOENGTH" );

	procedure a_utoEngth( u:dword );
			@external( "CONV_A_UTOENGTH" );




end conv;

#endif