conv.hhf

High Level assembly language(HLA)软件

#if( ! @defined( conv_hhf ))
?conv_hhf := true;

namespace conv;	@fast;

const
	allowDeprecatedNames := @global:false;
	

	procedure setUnderscores( OnOff: boolean ); 
				@external( "CONV_SETUNDERSCORES" );

	procedure getUnderscores;  
				@external( "CONV_GETUNDERSCORES" );

	procedure setDelimiters( Delims: cset );  
				@external( "CONV_SETDELIMITERS" );

	procedure getDelimiters( var Delims: cset );  
				@external( "CONV_GETDELIMITERS" );


	// The following are for internal use only!

	procedure byteToHex( h:dword; var buffer:byte ); 
			@external("CONV_BYTETOHEX" );

	procedure _hexToBuf32
	( 
			d		:dword in eax;
			width	:dword in ecx; 
		var buffer	:char in edi 
	); @external( "CONV__HEXTOBUF32" ); 

	procedure _hexToBuf32Size
	( 
			d			:dword; 
			width		:int32; 
			numWidth	:uns32; 
			fill		:char;
		var	buffer		:var; 
			maxBufSize	:dword 
	); @external( "CONV__HEXTOBUF32SIZE" ); 

	procedure _hexToBuf64
	( 
			q		:qword;
			width	:dword; 
		var buffer	:char in edi 
	); @external( "CONV__HEXTOBUF64" ); 

	procedure _hexToBuf64Size
	( 
			q			:qword; 
			width		:dword; 
			numWidth	:uns32; 
			fill		:char;
		var	buffer		:var; 
			maxBufSize	:dword 
	); @external( "CONV__HEXTOBUF64SIZE" ); 

	procedure _hexToBuf80
	( 
			tb		:tbyte;
			width	:dword; 
		var buffer	:char in edi 
	); @external( "CONV__HEXTOBUF80" ); 

	procedure _hexToBuf80Size
	( 
			tb			:tbyte; 
			width		:dword; 
			numWidth	:uns32; 
			fill		:char;
		var	buffer		:var; 
			maxBufSize	:dword 
	); @external( "CONV__HEXTOBUF80SIZE" ); 

	procedure _hexToBuf128
	( 
			l		:lword;
			width	:dword; 
		var buffer	:char in edi 
	); @external( "CONV__HEXTOBUF128" ); 

	procedure _hexToBuf128Size
	( 
			l			:lword; 
			width		:dword; 
			numWidth	:uns32; 
			fill		:char;
		var	buffer		:var; 
			maxBufSize	:dword 
	); @external( "CONV__HEXTOBUF128SIZE" ); 


	procedure _unsToBuf32
	( 
			d		:dword in eax;
			width	:dword in ecx; 
		var buffer	:char in edi 
	); @external( "CONV__UNSTOBUF32" ); 

	procedure _unsToBuf32Size
	( 
			d			:dword; 
			width		:dword; 
			numWidth	:uns32; 
			fill		:char;
		var	buffer		:var; 
			maxBufSize	:dword 
	); @external( "CONV__UNSTOBUF32SIZE" ); 


	procedure _unsToBuf64
	( 
			q		:qword;
			width	:dword; 
		var buffer	:char in edi 
	); @external( "CONV__UNSTOBUF64" ); 

	procedure _unsToBuf64Size
	( 
			q			:qword; 
			width		:dword; 
			numWidth	:uns32; 
			fill		:char;
		var	buffer		:var; 
			maxBufSize	:dword 
	); @external( "CONV__UNSTOBUF64SIZE" ); 


	procedure _unsToBuf128
	( 
			l		:lword;
			width	:dword; 
		var buffer	:char in edi 
	); @external( "CONV__UNSTOBUF128" ); 

	procedure _unsToBuf128Size
	( 
			l			:lword; 
			width		:dword; 
			numWidth	:uns32; 
			fill		:char;
		var	buffer		:var; 
			maxBufSize	:dword 
	); @external( "CONV__UNSTOBUF128SIZE" ); 





	procedure _intToBuf32
	( 
			d		:dword in eax;
			width	:dword in ecx; 
		var buffer	:char in edi 
	); @external( "CONV__INTTOBUF32" ); 

	procedure _intToBuf32Size
	( 
			d			:dword; 
			width		:dword; 
			numWidth	:uns32; 
			fill		:char;
		var	buffer		:var; 
			maxBufSize	:dword 
	); @external( "CONV__INTTOBUF32SIZE" ); 


	procedure _intToBuf64
	( 
			q		:qword;
			width	:dword; 
		var buffer	:char in edi 
	); @external( "CONV__INTTOBUF64" ); 

	procedure _intToBuf64Size
	( 
			q			:qword; 
			width		:dword; 
			numWidth	:uns32; 
			fill		:char;
		var	buffer		:var; 
			maxBufSize	:dword 
	); @external( "CONV__INTTOBUF64SIZE" ); 


	procedure _intToBuf128
	( 
			l		:lword;
			width	:dword; 
		var buffer	:char in edi 
	); @external( "CONV__INTTOBUF128" ); 

	procedure _intToBuf128Size
	( 
			l			:lword; 
			width		:dword; 
			numWidth	:uns32; 
			fill		:char;
		var	buffer		:var; 
			maxBufSize	:dword 
	); @external( "CONV__INTTOBUF128SIZE" ); 



	////////////////////////////////////////////////////




	procedure h8ToBuf( b:byte in al; var buffer:var in edi );  
			@external("CONV_H8TOBUF" );

	procedure h16ToBuf( w:word in ax; var buffer:var in edi );  
			@external("CONV_H16TOBUF" );

	procedure h32ToBuf( d:dword in eax; var buffer:var in edi );  
			@external("CONV_H32TOBUF" );

	procedure h64ToBuf ( q:qword; var buffer:var in edi );  
			@external("CONV_H64TOBUF" );

	procedure h80ToBuf ( tb:tbyte; var buffer:var in edi );  
			@external("CONV_H80TOBUF" );

	procedure h128ToBuf ( l:lword; var buffer:var in edi );  
			@external("CONV_H128TOBUF" );


	procedure bToBuf( b:byte in al; var buffer:var in edi );  
			@external("CONV_BTOBUF" );

	procedure wToBuf( w:word in ax; var buffer:var in edi );  
			@external("CONV_WTOBUF" );

	procedure dToBuf( d:dword in eax; var buffer:var in edi );  
			@external("CONV_DTOBUF" );

	procedure qToBuf ( q:qword; var buffer:var in edi );  
			@external("CONV_QTOBUF" );

	procedure tbToBuf ( tb:tbyte; var buffer:var in edi );  
			@external("CONV_TBTOBUF" );

	procedure lToBuf ( l:lword; var buffer:var in edi );  
			@external("CONV_LTOBUF" );



	
	procedure bToStr ( b:byte; buffer:string );  
			@external("CONV_BTOSTR" );

	procedure wToStr ( w:word; buffer:string );  
			@external("CONV_WTOSTR" );

	procedure dToStr ( d:dword; buffer:string );  
			@external("CONV_DTOSTR" );

	procedure qToStr ( q:qword; buffer:string );  
			@external("CONV_QTOSTR" );

	procedure tbToStr( tb:tbyte; buffer:string );  
			@external("CONV_TBTOSTR" );

	procedure lToStr ( l:lword; buffer:string );  
			@external("CONV_LTOSTR" );
			

	procedure a_bToStr ( b:byte );  
			@external("CONV_A_BTOSTR" );

	procedure a_wToStr ( w:word );  
			@external("CONV_A_WTOSTR" );

	procedure a_dToStr ( d:dword );  
			@external("CONV_A_DTOSTR" );

	procedure a_qToStr ( q:qword );  
			@external("CONV_A_QTOSTR" );

	procedure a_tbToStr( tb:tbyte );  
			@external("CONV_A_TBTOSTR" );

	procedure a_lToStr ( l:lword );  
			@external("CONV_A_LTOSTR" );
				
	



	procedure h8ToStr ( b:byte; size:dword; fill:char; buffer:string );  
			@external("CONV_H8TOSTR" );

	procedure h16ToStr ( w:word; size:dword; fill:char; buffer:string );  
			@external("CONV_H16TOSTR" );

	procedure h32ToStr ( d:dword; size:dword; fill:char; buffer:string );  
			@external("CONV_H32TOSTR" );

	procedure h64ToStr ( q:qword; size:dword; fill:char; buffer:string );  
			@external("CONV_H64TOSTR" );

	procedure h80ToStr( tb:tbyte; size:dword; fill:char; buffer:string );  
			@external("CONV_H80TOSTR" );

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





	procedure a_h8ToStr ( b:byte; size:dword; fill:char );  
			@external("CONV_A_H8TOSTR" );

	procedure a_h16ToStr ( w:word; size:dword; fill:char );  
			@external("CONV_A_H16TOSTR" );

	procedure a_h32ToStr ( d:dword; size:dword; fill:char );  
			@external("CONV_A_H32TOSTR" );

	procedure a_h64ToStr ( q:qword; size:dword; fill:char );  
			@external("CONV_A_H64TOSTR" );

	procedure a_h80ToStr( tb:tbyte; size:dword; fill:char );  
			@external("CONV_A_H80TOSTR" );

	procedure a_h128ToStr ( l:lword; width:int32; fill:char );  
			@external("CONV_A_H128TOSTR" );





	procedure h8Size( bValue:byte in al );  
			@use eax; 
			@returns( "eax" );  
			@external("CONV_H8SIZE" );

	procedure h16Size( wValue:word in ax );  
			@use eax; 
			@returns( "eax" );  
			@external("CONV_H16SIZE" );

	procedure h32Size( dValue:dword in eax );  
			@returns( "eax" );  
			@external("CONV_H32SIZE" );

	procedure h64Size( qVal:qword );  
			@returns( "eax" );  
			@external("CONV_H64SIZE" );

	procedure h80Size( tbVal:tbyte );  
			@returns( "eax" );  
			@external("CONV_H80SIZE" );

	procedure h128Size( _lVal:lword );  
			@returns( "eax" );  
			@external("CONV_H128SIZE" );
	
			
	
	procedure bSize( bValue:byte in al );  
			@use eax; 
			@returns( "eax" );  
			@external("CONV_BSIZE" );

	procedure wSize( wValue:word in ax );  
			@use eax; 
			@returns( "eax" );  
			@external("CONV_WSIZE" );

	procedure dSize( dValue:dword in eax );  
			@returns( "eax" );  
			@external("CONV_DSIZE" );

	procedure qSize( qValue:qword );  
			@returns( "eax" );  
			@external("CONV_QSIZE" );

	procedure tbSize( tbValue:tbyte );  
			@returns( "eax" );  
			@external("CONV_TBSIZE" );

	procedure lSize( lValue:lword );  
			@returns( "eax" );  
			@external("CONV_LSIZE" );
				
			
			
			

	procedure i8Size( iValue:byte in al );  
			@returns( "eax" );  
			@external("CONV_I8SIZE" );

	procedure i16Size( iValue:word in ax );  
			@use eax; 
			@returns( "eax" );  
			@external("CONV_I16SIZE" );

	procedure i32Size( iValue:dword in eax );  
			@returns( "eax" );  
			@external("CONV_I32SIZE" );


	procedure i64Size( q:qword );  
			@returns( "eax" );  
			@external("CONV_I64SIZE" );

	procedure i128Size( l:lword );  
			@returns( "eax" );  
			@external("CONV_I128SIZE" );
			
			


	procedure u8Size( uValue:byte in al );
			@use eax; 
			@returns( "eax" );  
			@external("CONV_U8SIZE" );

	procedure u16Size( uValue:word in ax );  
			@use eax; 
			@returns( "eax" );  
			@external("CONV_U16SIZE" );

	procedure u32Size( uValue:dword in eax );  
			@returns( "eax" );  
			@external("CONV_U32SIZE" );

	procedure u64Size( q:qword );  
			@returns( "eax" );  
			@external("CONV_U64SIZE" );

	procedure u128Size( u128:lword );  
			@returns( "eax" );  
			@external("CONV_U128SIZE" );
			
			


	procedure i8ToBuf( i8 :byte in al; var buf:var in edi );  
			@external("CONV_I8TOBUF" );

	procedure i16ToBuf( i16 :word in ax; var buf:var in edi );  
			@external("CONV_I16TOBUF" );

	procedure i32ToBuf( i32 :dword in eax; var buf:var in edi ); 
			@external( "CONV_I32TOBUF" );

	procedure i64ToBuf( q:qword; var buf:var in edi ); 
			@external( "CONV_I64TOBUF" );

	procedure i128ToBuf( l:lword; var buf:var in edi ); 
			@external( "CONV_I128TOBUF" );


	procedure u8ToBuf( u8 :byte in al; var buf:var in edi ); 
			@external( "CONV_U8TOBUF" );

	procedure u16ToBuf( u16 :word in ax; var buf:var in edi ); 
			@external( "CONV_U16TOBUF" );

	procedure u32ToBuf( u32 :dword in eax; var buf:var in edi ); 
			@external( "CONV_U32TOBUF" );

	procedure u64ToBuf( q:qword; var buf:var in edi ); 
			@external( "CONV_U64TOBUF" );

	procedure u128ToBuf( l:lword; var buf:var in edi ); 
			@external( "CONV_U128TOBUF" );




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


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


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


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


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





	procedure a_i8ToStr
	( 
		b:		byte; 
		width:	int32;
		f:		char 
	); 
			@external( "CONV_A_I8TOSTR" );