;$devicename sets the name or description of the device
$devicename "Tom's Siteplayer"

;$DHCP on tells Siteplayer to find its IP address from a DHCP server
$DHCP on

;$DownloadPassword sets password for downloading web pages
$DownloadPassword "password"

;$SitePassword sets password for browsing web pages
$SitePassword ""

;$InitialIP sets Siteplayer's IP address to use
$InitialIP "128.122.151.39"

;$Sitefile sets the binary image filename that will be created
$sitefile "C:\Documents and Settings\tigoe\My Documents\siteplayer apps\sampleapp\udpgame.spb"

;$Sitepath sets the root path of the web pages for this project
$sitepath "C:\Documents and Settings\tigoe\My Documents\siteplayer apps\sampleapp\site_root"

;$Include sets the name of a file to include during make process
$Include "C:\Program Files\Siteplayer\pcadef.inc"

org 0h
byteVar dB 2 ;a byte variable with the initial value 2
fooVar dB 0 ;a byte variable with the initial value 0
bigVar dw 921 ;a word variable with the initial value 921

; This series of variables holds a 7-byte message;
; it's the format for sending one byte (the dataByte, below)
; to another siteplayer.

org 0Ah
numBytes db 01
byteComplement db FEh
sendAddr1 db 19h
sendAddr2 db FFh
dataByte1 db 65
tailByte1 db 00
tailByte2 db 00

org 0FF1Ah
baudrate dw 65015 ; set serial baud rate to 9600

org 02D0h
udpmac1 dhex 255
udpmac2 dhex 255
udpmac3 dhex 255
udpmac4 dhex 255
udpmac5 dhex 255
udpmac6 dhex 255
udpip1 db 128
udpip2 db 122
udpip3 db 151
udpip4 db 255
udpport dw 26482
udpaddr dw 0Ah
udpcount dw 7

org FFE6h ; the IP address of this siteplayer

myip1 ds 1
myip2 ds 1
myip3 ds 1
myip4 ds 1

'****************************************************************
'* Name : UDPsend.BAS
'* Author : HYUN JEAN LEE and JUNG EUN YOO (modify Tom Igoe's)
'* Notice : Copyright (c) 2002
'* : All Rights Reserved
'* Date : 5/30/2002
'* Version : 1.0
'* Notes : Instructs SitePlayer to send UDP packets.
'* :
'* : Assumes the following hardware attached to PIC:
'* : serial out to siteplayer: portc.6
'* : serial in from siteplayer: portc.7
'* :
'* : Serial is not inverted in software.
'* : Serial signal goes through a hex inverter to
'* : Siteplayer.
'* :
'* : LED indicator: portc.5 --if it gets ascii A
'* : portD.3 --if it gets ascii B
'* : portB.7 --if it gets ascii 0
'* : portB.6 --if it gets ascii 1
'* : portB.5 --if it gets ascii 2
'* : portB.4 --if it gets ascii 3
'* : portB.3 --if it gets ascii 4
'* : portB.2 --if it gets ascii 5
'* : portB.1 --if it gets ascii 6
'* : portB.0 --if it gets ascii 7
'* : portD.5 --if it gets ascii 8
'* : portD.4 --if it gets ascii 9
'* :
'* : input switch: portc.4 --Send UDP
'* :
'****************************************************************
INCLUDE "modedefs.bas"

DEFINE OSC 4

input portc.4
output portc.5
output portd.3
outByte var byte
dataAddress var byte
indata var byte
indata = 0

' initial pause to make sure all components have stated:
Pause 500

' tell siteplayer to enable UDP Receives
' (set 0FF20h to 1):
'serout2 PORTC.6, 16468, [$90, $20, $FF, $01]
serout2 PORTC.6, 84, [$90, $20, $FF, $01]

main:
' if switch is closed, send a byte to the siteplayer
' and have the siteplayer send a UDP message:'
if portc.4 = 1 then
outbyte = 65

' memory address you want to write to in the SP:
dataAddress = 2
gosub sendByte
gosub sendUDP

else
' if the switch is open, then listen for
' serial messages from the siteplayer
' (return to main if no data in 100 ms):
'Serin2 PORTC.7, 16468, 100, main, [inData]
Serin2 PORTC.7, 84, 100, main, [inData]

'----different LEDs
if inData = 48 then '---if PortB.7 got ascii 0
High portB.7
Low portB.6
Low portB.5
Low portB.4
Low portB.3
Low portB.2
Low portB.1
Low portB.0
Low portD.5
Low portD.4
endif

if inData = 49 then '---if PortB.6 got ascii 1
High portB.6
Low portB.7
Low portB.5
Low portB.4
Low portB.3
Low portB.2
Low portB.1
Low portB.0
Low portD.5
Low portD.4
endif

if inData = 50 then '---if PortB.5 got ascii 2
high portB.5
Low portB.7
Low portB.6
Low portB.4
Low portB.3
Low portB.2
Low portB.1
Low portB.0
Low portD.5
Low portD.4
endif

if inData = 51 then '---if PortB.4 got ascii 3
high portB.4
Low portB.7
Low portB.6
Low portB.5
Low portB.3
Low portB.2
Low portB.1
Low portB.0
Low portD.5
Low portD.4
endif

if inData = 52 then '---if PortB.3 got ascii 4
high portB.3
Low portB.7
Low portB.6
Low portB.5
Low portB.4
Low portB.2
Low portB.1
Low portB.0
Low portD.5
Low portD.4
endif

if inData = 53 then '---if PortB.2 got ascii 5
high portB.2
Low portB.7
Low portB.6
Low portB.5
Low portB.4
Low portB.3
Low portB.1
Low portB.0
Low portD.5
Low portD.4
endif

if inData = 54 then '---if PortB.1 got ascii 6
high portB.1
Low portB.7
Low portB.6
Low portB.5
Low portB.4
Low portB.3
Low portB.2
Low portB.0
Low portD.5
Low portD.4
endif

if inData = 55 then '---if PortB.0 got ascii 7
high portB.0
Low portB.7
Low portB.6
Low portB.5
Low portB.4
Low portB.3
Low portB.2
Low portB.1
Low portD.5
Low portD.4
endif

if inData = 56 then '---if PortD.5 got ascii 8
high portD.5
Low portB.7
Low portB.6
Low portB.5
Low portB.4
Low portB.3
Low portB.2
Low portB.1
Low portB.0
Low portD.4
endif

if inData = 57 then '--- if PortD.4 got ascii 9
high portD.4
Low portB.7
Low portB.6
Low portB.5
Low portB.4
Low portB.3
Low portB.2
Low portB.1
Low portB.0
Low portD.5
endif

' if we got a 65 from the siteplayer, then
' turn on the LED:
if inData = 65 then
high portc.5
low portd.3
endif

' if we got a 66 from the siteplayer, then
' turn on the LED:
if inData = 66 then
high portd.3
low portc.5
endif

endif

goto main

sendByte:
' write a byte to the siteplayer's memory:
'Serout2 PORTC.6, 16468, [$80, dataAddress, outByte]
Serout2 PORTC.6, 84, [$80, dataAddress, outByte]
return

sendUDP:
' tell the siteplayer to send a UDP message:
'Serout2 PORTC.6, 16468, [$50]

Serout2 PORTC.6, 84, [$50]


High portB.7
High portB.6
High portB.5
High portB.4
High portB.3
High portB.2
High portB.1
High portB.0
High portD.5
High portD.4
pause 500
LOW portB.7
LOW portB.6
LOW portB.5
LOW portB.4
LOW portB.3
LOW portB.2
LOW portB.1
LOW portB.0
LOW portD.5
LOW portD.4


return

Jumpers position

import java.net.*;
import java.util.*;
import java.io.*;
import java.text.*;

public class Send_udp {
// set port to send to (Siteplayer only listens on 26482)
static final int PORT = 26482;
DatagramSocket ds = null;

public static void main(String[] args) {
Send_udp mysender = new Send_udp();
mysender.sendstuff();
}

public Send_udp() {
try {
ds = new DatagramSocket(PORT);
} catch (SocketException exp) {}
}

public void sendstuff() {
InetAddress address = null;

try {
// fill in your IP address here
address = InetAddress.getByName("128.122.151.62");
} catch (UnknownHostException uhe) {}

byte[] dataBuffer1 = new byte[7];
DatagramPacket dpsend =
new DatagramPacket(dataBuffer1,
dataBuffer1.length, address, PORT);

// this is where we construct the UDP message byte by byte:

// number of bytes to send:
dataBuffer1[0] = 0x01;
// complement of number of bytes to send:
dataBuffer1[1] = (byte) 0xFE;
// low byte of address of COM:
dataBuffer1[2] = 0x19;
// high byte of address of COM:
dataBuffer1[3] = (byte) 0xFF;
// ASCII "A":
dataBuffer1[4] = 0x41;
// udp must end with two zero bytes:
dataBuffer1[5] = 0x00;
dataBuffer1[6] = 0x00;

try {
ds.send(dpsend);
System.out.println("Sent it\n")
} catch (IOException expe) {}
}
}