[r68]: / trunk / Monarco / Monarco_FB / utility / getHATinfo / svnobj  Maximize  Restore  History

Download this file

46 lines (46 with data), 4.9 kB

Gx_lê!0…jüo^ƺóAº{-ÏSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
D//********************************D//Read FW, HW revision and CPU-ID $FOR J := 1 TO 9 DO	CASE J OF–		1:		eCmd := eServiceCommand.SDC_FIXED_STATUSWORD; //bogus question (ABCD)^		2:		eCmd := eServiceCommand.SDC_FIXED_FWVERL;^		3:		eCmd := eServiceCommand.SDC_FIXED_FWVERH;^		4:		eCmd := eServiceCommand.SDC_FIXED_HWVERL;^		5:		eCmd := eServiceCommand.SDC_FIXED_HWVERH;^		6:		eCmd := eServiceCommand.SDC_FIXED_CPUID1;^		7:		eCmd := eServiceCommand.SDC_FIXED_CPUID2;^		8:		eCmd := eServiceCommand.SDC_FIXED_CPUID3;^		9:		eCmd := eServiceCommand.SDC_FIXED_CPUID4;	END_CASEz	wValue 				:= TO_WORD(eServiceCommand.SDC_FIXED_STATUSWORD);¼	eComStatus 			:= THIS^.ServiceRequest( wValue := wValue, eCommand := eCmd, xWrite := FALSE );	// Get resultL	eComStatus			:= THIS^.dataTransfer();”	awSrvAnwser[J]		:= MEM.PackBytesToWord(_abyIntRxBuf[1], _abyIntRxBuf[0]); END_FOR!"4// Store anwsers in status#¦THIS^.stHATinfo.dwFWVersion := MEM.PackWordsToDword(awSrvAnwser[3],awSrvAnwser[2]);$¦THIS^.stHATinfo.dwHWversion	:= MEM.PackWordsToDword(awSrvAnwser[5],awSrvAnwser[4]);%„cpu_l						:= MEM.PackWordsToDword(awSrvAnwser[7],awSrvAnwser[6]);&„cpu_h						:= MEM.PackWordsToDword(awSrvAnwser[9],awSrvAnwser[8]);'(lwcpu						:= cpu_h;(8lwcpu						:= SHL(lwcpu,32);)VTHIS^.stHATinfo.lwCpuID		:= lwcpu OR cpu_l;*Interface+L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94},X//Read current FW, HW revision and CPU-ID 		-"METHOD getHATinfo.VAR/$	wValue				: WORD;06	eCmd				: eServiceCommand;1D	eComStatus			: eMonarcoComStatus;2	J					: INT;3,	wReqAdr	 	  		: WORD;4L	awSrvAnwser			: ARRAY [1..9] OF WORD;5$	cpu_l				: DWORD;6&	cpu_h 				: DWORD;7$	lwcpu				: LWORD;8END_VARÐÐÐEÐÐ	
­©ÚÐ-
ÐÐ	
­ªÚÐ-ÐÐ	
­«ÚÐ-
ÐÐ	
­¬ÚÐ-ÐÐ	
­­ÚÐ-ÐÐ	
­®ÚÐ-ÐÐ	
­¯ÚÐ-ÐÐ	
­°ÚÐ-ÐÐ	
­±ÚÐ-ÐÐ	
­²ÚÐ-ÐÐ	
­³ÚÐ-ÐÐ	
­´ÚÐ-ÐÐ	
­µÚÐ-ÐÐ	
­¶ÚÐ-ÐÐ	
­·ÚÐ-ÐÐ	
­¸ÚÐ-ÐÐ	
­¹ÚÐ-ÐÐ	
­ÇÚÐ-ÐÐ	
­ÈÚÐ-ÐÐ	
­¼ÚÐ-ÐÐ	
­½ÚÐ- ÐÐ	
­¾ÚÐ-!ÐÐ	
­¿ÚÐ-"ÐÐ	
­ÀÚÐ-#ÐÐ	
­ÁÚÐ-$ÐÐ	
­ÂÚÐ-%ÐÐ	
­ÃÚÐ-&ÐÐ	
­ÄÚÐ-'ÐÐ	
­ÅÚÐ-(ÐÐ	
­@ÚÐ-)Ð*+ÐEÐÐ	
­ZÚÐ-,ÐÐ	
­[ÚÐ--ÐÐ	
­\ÚÐ-.ÐÐ	
­]ÚÐ-/ÐÐ	
­‹ÚÐ-0ÐÐ	
­ÆÚÐ-1ÐÐ	
­^ÚÐ-2ÐÐ	
­_ÚÐ-3ÐÐ	
­aÚÐ-4ÐÐ	
­bÚÐ-5ÐÐ	
­cÚÐ-6ÐÐ	
­dÚÐ-7ÐÐ	
­eÚÐ-8ÐÐ	
­ÚÐ-!