const byte prog_version = 0x07

include f452_20
include jdelay
include jpic16

ADCON1 = 0b_0000_0110

var volatile bit CTS is pin_c5
var volatile bit CTS_direction is pin_c5_direction

CTS = low
CTS_direction = output
CTS = low

include ./boards/airdrop
include console
include ./javi_lib/i32
include ./javi_lib/i16
include ./javi_lib/pic18_pointers
include ram

const debug_mode = true

const MYSSID_LEN = 7
LoadPointer_0 ( MYSSID )
MemNext = "b"
MemNext = "v"
MemNext = "w"
MemNext = "e"
MemNext = "l"
MemNext = "c"
MemNext = "h"

LoadPointer_0 ( MYIP )
MemNext = 192
MemNext = 168
MemNext = 0
MemNext = 99

-- telnet tcp "port" we are listening on.
const telnet_port = 23

-- http tcp "port" we are listening on.
const http_port = 80

-- tcp parameters. tune to suit.
const tcp_maxsegsize = 1460
const tcp_window = ( 4 * tcp_maxsegsize )

include ./tcpip/chksum
include ./boards/prism
include ./tcpip/arp
include ./tcpip/ip
include ./tcpip/icmp
include ./tcpip/udp
include ./tcpip/tcp
include ./tcpip/tcpapi
include telnet
include web
include http

procedure sign_on is
  delay_1ms ( 250 )
  f452_serial_setup
  delay_1ms ( 250 )
  putc = 13
  putc = 10
  putc = 13
  putc = 10
  putc = "P"
  putc = "0"
  putc = "5"
  putc = " "
  putc = "v"
  putc = " "
  putc = hex_to_ascii (prog_version >> 4)
  putc = "."
  putc = hex_to_ascii (prog_version & 0x0f)
  putc = 13
  putc = 10
  delay_1ms ( 250 )
end procedure

init_board

for 10 loop
  toggle_led
  delay_1ms ( 100 )
  toggle_led
  delay_1ms ( 100 )
end loop

sign_on

net_init
tcp_init

forever loop
  tcp_yield
  http_task(http_conn)
  telnet_task(telnet_conn)
end loop