; SNAP SVC TEST PACKET
;
; snap prototype packet
;
; (c) 2003, Willem de Bruijn
; all code is licensed under the BSD License
; NB: this does not necessary apply to the SNAP interpreter code
; written by Jonathan Moore of the University of Pennsylvania

	dforw               ; continue until at route destination
	bne atsource-pc     ; at dest; 1st dest or return trip?

	; if we are at the destination execute the requests
	; INSERT PROCESSING ACTIONS HERE
	push "ok"			; prototype action
	
	; go to source
	push 1
	getsrc
	dforwto
	pop
	
atsource:	            ; at the source: print result

	push 7777           ; push clientport
	demux               ; send top stackvalue to the client

#data 0                 ; compile time stack entry