Отправлено AlexD 18 августа 2004 г. 16:08 В ответ на: Пожалуйста, откомпилируйте кто чем может( С для МК ) файл по ссылке и покажите листинг, в картинке листинг для HT-PICC отправлено patton 18 августа 2004 г. 13:13

	.SECTION	CODE, CODE, ALIGN=1
;-------begin_of_function
	.GLOBAL	_test
_test:
	LINK	#0
	PUSHW	(RW0)
;;;;	 {
;;;;	   short result = *( short* )src;
	MOVW	RW0, @RW3+4
;;;;	   return result;
	MOVW	A, @RW0
;;;;	 }
	POPW	(RW0)
	UNLINK
	RET
;-------begin_of_function
	.GLOBAL	_badtest
_badtest:
	LINK	#0
;;;;	 {
;;;;	   short result = packet[0] | (((signed char)packet[1])<<8);
	MOVW	RW4, @RW3+4
	MOV	A, @RW4+1
	SWAP
	MOVW	RW4, A
	MOVW	A, @RW3+4
	MOV	A, @A
	ORW	A, RW4
;;;;	   return result;
;;;;	 }
	UNLINK
	RET
;-------begin_of_function
	.GLOBAL	_main
_main:
	LINK	#2
	PUSHW	(RW0,RW1)
;;;;	 {
;;;;	   *(short*)buf = 0x1234;
	MOVEA	RW1, @RW3+-2
	MOVW	@RW3+-2, #4660
;;;;	   while( 1 )
L_40:
;;;;	     result = test( buf );
	MOVEA	RW1, @RW3+-2
	MOVW	A, RW1
	PUSHW	A
	CALL	_test
	POPW	AH
	MOVW	RW0, A
;;;;	     badresult = badtest( buf );
	MOVW	A, RW1
	PUSHW	A
	CALL	_badtest
	POPW	AH
	MOVW	RW1, A
;;;;	     if( result != badresult )
	MOVW	A, RW0
	CMPW	A, RW1
	BEQ	L_40
;;;;	       break;
;;;;	   }
;;;;	       break;
;;;;	   error:
L_44:
;;;;	   goto error;
	BRA	L_44
;;;;	 }
	POPW	(RW0,RW1)
	UNLINK
	RET
	.END