[Tinyos-contrib-commits] CVS: tinyos-1.x/contrib/wustl/apps/AgillaAgents/GroupComm/mobile-chat Proxy-First-Test.ma, 1.1, 1.2

[Chien-Liang Fok]

Update of /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/GroupComm/mobile-chat
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv13532/mobile-chat

Modified Files:
	Proxy-First-Test.ma 
Log Message:
Test member agent:  reaction to in/out messages
Find PDA+Proxy's address through neighbor list


Index: Proxy-First-Test.ma
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/GroupComm/mobile-chat/Proxy-First-Test.ma,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Proxy-First-Test.ma	15 Nov 2006 04:37:57 -0000	1.1
--- Proxy-First-Test.ma	15 Nov 2006 05:19:58 -0000	1.2
***************
*** 1,4 ****
  LOOP	pushn 	abc
! 	pushn 	fei
  	pushn	icm
  	pushc 	3
--- 1,22 ----
+ //heap[0] = reserved location
+ 
+ 
+ BEGIN	pusht string
+ 	pusht string
+ 	pushn ocm		// react to PDA+Proxy msg
+ 	pushc 3
+ 	pushcl	PDA_MSG
+ 	regrxn
+ 	
+ 	pusht string
+ 	pusht string
+ 	pushn lbm		// react to leader broadcast msg
+ 	pushc 3
+ 	pushcl	LEADER_MSG
+ 	regrxn
+ 
+ 
  LOOP	pushn 	abc
! 	pushn 	sun
  	pushn	icm
  	pushc 	3
***************
*** 6,8 ****
  	pushc 16
  	sleep
! 	rjump LOOP
\ No newline at end of file
--- 24,79 ----
  	pushc 16
  	sleep
! 	rjump LOOP
! 
! 
! PDA_MSG	remove
! 	pop
! 	pop
! 	pushn lbm	// translate into leader broadcast message
! 	pushc 3
! 	out
! 	endrxn
! 	
! LEADER_MSG	remove
! 		pop
! 		pop
! 		pushn icm	// translate into in chat message
! 		pushc 3
! 		pushc GET_PROXY
! 		pushc LM_RETURN
! 		jumps
! LM_RETURN	rjumpc LM_SUCC
! 		pushc 8
! 		putled
! 		pushc 31
! 		putled
! 		endrxn
! LM_SUCC		rout
! 		endrxn
! 
! 	
! GET_PROXY	numnbrs
! GET_PROXY_LOOP	copy		//   Stack:  (# neighbor, # neighbor)
! 		pushc 0		
! 		ceq		//   Stack:  (# neighbor)
! 		rjumpc GET_PROXY_FAIL		// no more neighbor, fail
! 		dec
! 		copy		//   Stack:  (# neighbor -1, # neighbor -1)
! 		getnbr		
! 		copy		//   Stack:  (neighbor addr, neighbor addr, # neighbor -1)
! 		pushcl 65530
! 		cgte		//   Stack:  (neighbor addr, # neighbor -1)
! 		rjumpc GET_PROXY_DONE		// find proxy addr, done
! 		pop		//   Stack:  (# neighbor -1)
! 		pushcl GET_PROXY_LOOP
! 		jumps
! GET_PROXY_FAIL	pop				// no more neighbor, fail, condition=0, finish
! 		pushc 0
! 		cpull
! 		rjump GET_PROXY_FIN
! GET_PROXY_DONE	swap				
! 		pop		//   Stack:  (neighbor addr)
! 		swap		// put the return addr on top of stack
! 		pushc 1
! 		cpull
! GET_PROXY_FIN	jumps
\ No newline at end of file