[Tinyos-contrib-commits] CVS: tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments 3BLINK.fg, 1.1, 1.2 BLINKGREEN.fg, 1.1, 1.2 BLINKGREENC.fg, 1.1, 1.2 BLINKRED.fg, 1.1, 1.2 BLINKYELLOW.fg, 1.1, 1.2 BLIPALL.fg, 1.1, 1.2 BLIPGREEN.fg, 1.2, 1.3 BLIPRED.fg, 1.1, 1.2 COUNTUP.fg, 1.2, 1.3 GetNbrSnapshot.fg, 1.1, 1.2 RANDWEAKCLONE.fg, 1.1, 1.2

[Chien-Liang Fok]

Update of /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv19324/contrib/wustl/apps/AgillaAgents/Fragments

Modified Files:
	3BLINK.fg BLINKGREEN.fg BLINKGREENC.fg BLINKRED.fg 
	BLINKYELLOW.fg BLIPALL.fg BLIPGREEN.fg BLIPRED.fg COUNTUP.fg 
	GetNbrSnapshot.fg RANDWEAKCLONE.fg 
Log Message:


Index: 3BLINK.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/3BLINK.fg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 3BLINK.fg	13 Oct 2005 17:12:18 -0000	1.1
--- 3BLINK.fg	18 May 2006 21:13:28 -0000	1.2
***************
*** 1,27 ****
! // This procedural code fragment blinks all three LEDS 3 times.
! // It assumes the return address is on the top of the stack
! // when it is called.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc RETURN
! //           pushc THREEBLINK
! //           jumps 
! //    RETURN ....
! 		
! THREEBLINK  	pushc 0
! TBLOOP  	copy
!         	pushc 6
!         	cneq
!         	rjumpc TBCONT
!         	pop     // clear the opstack
!         	jumps   // return to caller
! TBCONT  	pushc 31
!         	putled        // toggle all three LEDs        
!         	pushc 1
!         	sleep
!         	inc
!         	rjump TBLOOP
! 
! 
! // Blinks the LEDs three times, pauses, repeats
--- 1,27 ----
! // This procedural code fragment blinks all three LEDS 3 times.
! // It assumes the return address is on the top of the stack
! // when it is called.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc RETURN
! //           pushc THREEBLINK
! //           jumps 
! //    RETURN ....
! 		
! THREEBLINK  	pushc 0
! TBLOOP  	copy
!         	pushc 6
!         	cneq
!         	rjumpc TBCONT
!         	pop     // clear the opstack
!         	jumps   // return to caller
! TBCONT  	pushc 31
!         	putled        // toggle all three LEDs        
!         	pushc 1
!         	sleep
!         	inc
!         	rjump TBLOOP
! 
! 
! // Blinks the LEDs three times, pauses, repeats

Index: BLINKGREEN.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/BLINKGREEN.fg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BLINKGREEN.fg	13 Oct 2005 17:12:18 -0000	1.1
--- BLINKGREEN.fg	18 May 2006 21:13:28 -0000	1.2
***************
*** 1,13 ****
! // This fragment continuously blinks
! // the green LED.  It never returns.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc BLINKGREEN
! //           jumps 
! 
! BLINKGREEN  	pushc 26
!             	putled
!             	pushc 8
!             	sleep            
              	rjump BLINKGREEN
\ No newline at end of file
--- 1,13 ----
! // This fragment continuously blinks
! // the green LED.  It never returns.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc BLINKGREEN
! //           jumps 
! 
! BLINKGREEN  	pushc 26
!             	putled
!             	pushc 8
!             	sleep            
              	rjump BLINKGREEN
\ No newline at end of file

Index: BLINKGREENC.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/BLINKGREENC.fg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BLINKGREENC.fg	13 Oct 2005 17:12:18 -0000	1.1
--- BLINKGREENC.fg	18 May 2006 21:13:28 -0000	1.2
***************
*** 1,17 ****
! // Blinks the green LED a certain number of times, as specified by the
! // value on top of the stack. 
! //
! // Opstack Parameters: [val=#blinks][return address]				        	
! BLINKGREENC 	pushc 26 
! 		putled // blink green
! 		pushc 1
! 		sleep
! 		dec
! 		copy
! 		pushc 0
! 		ceq
! 		rjumpc BLINKGREENCD
! 		rjump BLINKGREENC
! BLINKGREENCD	pop
! 		jumps
  		
\ No newline at end of file
--- 1,17 ----
! // Blinks the green LED a certain number of times, as specified by the
! // value on top of the stack. 
! //
! // Opstack Parameters: [val=#blinks][return address]				        	
! BLINKGREENC 	pushc 26 
! 		putled // blink green
! 		pushc 1
! 		sleep
! 		dec
! 		copy
! 		pushc 0
! 		ceq
! 		rjumpc BLINKGREENCD
! 		rjump BLINKGREENC
! BLINKGREENCD	pop
! 		jumps
  		
\ No newline at end of file

Index: BLINKRED.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/BLINKRED.fg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BLINKRED.fg	13 Oct 2005 17:12:18 -0000	1.1
--- BLINKRED.fg	18 May 2006 21:13:28 -0000	1.2
***************
*** 1,13 ****
! // This procedural code fragment continuously blinks
! // the red LED.  It never returns.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc BLINKRED
! //           jumps 
! 
! BLINKRED    pushc 25
!             putled
!             pushc 8
!             sleep            
              rjump BLINKRED
\ No newline at end of file
--- 1,13 ----
! // This procedural code fragment continuously blinks
! // the red LED.  It never returns.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc BLINKRED
! //           jumps 
! 
! BLINKRED    pushc 25
!             putled
!             pushc 8
!             sleep            
              rjump BLINKRED
\ No newline at end of file

Index: BLINKYELLOW.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/BLINKYELLOW.fg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BLINKYELLOW.fg	13 Oct 2005 17:12:18 -0000	1.1
--- BLINKYELLOW.fg	18 May 2006 21:13:28 -0000	1.2
***************
*** 1,13 ****
! // This procedural code fragment continuously blinks
! // the green LED.  It never returns.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc BLINKYELLOW
! //           jumps 
! 
! BLINKYELLOW  	pushc 28
!              	putled
!              	pushc 8
!              	sleep             
               	rjump BLINKYELLOW
\ No newline at end of file
--- 1,13 ----
! // This procedural code fragment continuously blinks
! // the green LED.  It never returns.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc BLINKYELLOW
! //           jumps 
! 
! BLINKYELLOW  	pushc 28
!              	putled
!              	pushc 8
!              	sleep             
               	rjump BLINKYELLOW
\ No newline at end of file

Index: BLIPALL.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/BLIPALL.fg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BLIPALL.fg	13 Oct 2005 17:12:18 -0000	1.1
--- BLIPALL.fg	18 May 2006 21:13:28 -0000	1.2
***************
*** 1,7 ****
! BLIPALL		pushc 7
! 		putled
! 		pushc 8
! 		sleep
! 		pushc 0
! 		putled
  		jumps
\ No newline at end of file
--- 1,7 ----
! BLIPALL		pushc 7
! 		putled
! 		pushc 8
! 		sleep
! 		pushc 0
! 		putled
  		jumps
\ No newline at end of file

Index: BLIPGREEN.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/BLIPGREEN.fg,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** BLIPGREEN.fg	21 Dec 2005 17:13:20 -0000	1.2
--- BLIPGREEN.fg	18 May 2006 21:13:28 -0000	1.3
***************
*** 1,8 ****
! // turn on the green LED for 1 second
! BLIPGREEN	pushc 2
! 		putled		// turn on green LED
! 		pushc 8
! 		sleep		// sleep 1 second
! 		pushc 0
! 		putled		// turn off green LED
  		jumps
\ No newline at end of file
--- 1,8 ----
! // turn on the green LED for 1 second
! BLIPGREEN	pushc 2
! 		putled		// turn on green LED
! 		pushc 8
! 		sleep		// sleep 1 second
! 		pushc 0
! 		putled		// turn off green LED
  		jumps
\ No newline at end of file

Index: BLIPRED.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/BLIPRED.fg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BLIPRED.fg	21 Dec 2005 17:13:20 -0000	1.1
--- BLIPRED.fg	18 May 2006 21:13:28 -0000	1.2
***************
*** 1,8 ****
! // turn on the red LED for 1 second
! BLIPRED		pushc 1
! 		putled		// turn on red LED
! 		pushc 8
! 		sleep		// sleep 1 second
! 		pushc 0
! 		putled		// turn off red LED
  		jumps
\ No newline at end of file
--- 1,8 ----
! // turn on the red LED for 1 second
! BLIPRED		pushc 1
! 		putled		// turn on red LED
! 		pushc 8
! 		sleep		// sleep 1 second
! 		pushc 0
! 		putled		// turn off red LED
  		jumps
\ No newline at end of file

Index: COUNTUP.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/COUNTUP.fg,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** COUNTUP.fg	18 Dec 2005 01:49:15 -0000	1.2
--- COUNTUP.fg	18 May 2006 21:13:28 -0000	1.3
***************
*** 1,27 ****
! // This procedure code fragment counts up on the LEDs by
! // turning on the red, green and yellow LEDs in that order.
! // It assumes the return address is on the top of the stack
! // when it is called.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc RETURN
! //           pushc COUNTUP
! //           jumps 
! //    RETURN ....
! 
! COUNTUP pushc 1       
! CLOOP   copy            
!         putled          
!         pushc 2         
!         mul          
!         pushc 4         
!         sleep           
!         copy            
!         pushc 8         
!         cneq            
!         rjumpc CLOOP
!         pop            
!         pushc 0         
!         putled
          jumps
\ No newline at end of file
--- 1,27 ----
! // This procedure code fragment counts up on the LEDs by
! // turning on the red, green and yellow LEDs in that order.
! // It assumes the return address is on the top of the stack
! // when it is called.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc RETURN
! //           pushc COUNTUP
! //           jumps 
! //    RETURN ....
! 
! COUNTUP pushc 1       
! CLOOP   copy            
!         putled          
!         pushc 2         
!         mul          
!         pushc 4         
!         sleep           
!         copy            
!         pushc 8         
!         cneq            
!         rjumpc CLOOP
!         pop            
!         pushc 0         
!         putled
          jumps
\ No newline at end of file

Index: GetNbrSnapshot.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/GetNbrSnapshot.fg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** GetNbrSnapshot.fg	13 Oct 2005 17:12:18 -0000	1.1
--- GetNbrSnapshot.fg	18 May 2006 21:13:28 -0000	1.2
***************
*** 1,19 ****
! // This procedure pushes the location of all neighbors onto
! // the stack.
! 
! BEGIN		pushc 0		
! LOOPGETNBR	copy	
! 		numnbrs
! 		ceq
! 		rjumpc DONELOOPGETNBR
! 		copy
! 		getnbr
! 		swap
! 		inc
! 		rjump LOOPGETNBR
! DONELOOPGETNBR	pop
! 
! 
! 		
! 		
  		
\ No newline at end of file
--- 1,19 ----
! // This procedure pushes the location of all neighbors onto
! // the stack.
! 
! BEGIN		pushc 0		
! LOOPGETNBR	copy	
! 		numnbrs
! 		ceq
! 		rjumpc DONELOOPGETNBR
! 		copy
! 		getnbr
! 		swap
! 		inc
! 		rjump LOOPGETNBR
! DONELOOPGETNBR	pop
! 
! 
! 		
! 		
  		
\ No newline at end of file

Index: RANDWEAKCLONE.fg
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/contrib/wustl/apps/AgillaAgents/Fragments/RANDWEAKCLONE.fg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** RANDWEAKCLONE.fg	13 Oct 2005 17:12:18 -0000	1.1
--- RANDWEAKCLONE.fg	18 May 2006 21:13:28 -0000	1.2
***************
*** 1,16 ****
! // This procedural code fragment performs a weak clone
! // to a random neighbor.  The condition codes are the 
! // same as those for instruction wmove.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc RETURN
! //	     pushc RANDWEAKMOVE
! //           jumps 
! //    RETURN ...
! 
! RANDWEAKMOVE	randnbr
! 		rjumpc RWMGO
! 		jumps			
! RWMGO		wmove  // move to a random neighbor (weak)	
  		jumps
\ No newline at end of file
--- 1,16 ----
! // This procedural code fragment performs a weak clone
! // to a random neighbor.  The condition codes are the 
! // same as those for instruction wmove.
! //
! // An example of how to use this code is as follows:
! //
! //    BEGIN  pushc RETURN
! //	     pushc RANDWEAKMOVE
! //           jumps 
! //    RETURN ...
! 
! RANDWEAKMOVE	randnbr
! 		rjumpc RWMGO
! 		jumps			
! RWMGO		wmove  // move to a random neighbor (weak)	
  		jumps
\ No newline at end of file