'{$STAMP BS2}
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'
' Example program that demonstrates a simple reception on the communication link between the 
' stamps at different workstations. This code will be loaded one or more of the K-Stamps. You will
' need to load K_TALK on one K-Stamp in network as it does the data transmission. 
'
' The data link is composed of a single wire connection between P15 of the K-Stamps in workstations
' LH03512-LH03517. There is one pull-up for the common node located in LH03512. The common node 
' forms a "wired AND" junction. You will need to use the serout command in the open-collector mode. 
' Open-collector means that the output driver can pull the line to 0, but it cannot drive it to 1. 
' The external pull-up takes care of pulling the pin to 1. 
'
' P15 - Open Collector Network Connection.  
'
' Bryce Himebaugh		
' 2/5/04
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' Constant Definition 
LF con 10

' Define Variables
received_data var byte

' Define I/O Pin types 
input 15

loop_top:
	serin 15, $8054, [received_data]
	debug CLS,"%%%  K-Stamp Received Data  %%%",CR,LF,dec ? received_data
goto loop_top