;;======================================================================== ;; ;; Program: TCP/IP stack and HTTP-server in a chip ;; Idea: Shrikumar H. ;; Author: Denis Petrov ;; Platform: Microchip PIC16F84 ;; Date: 17.09.99 ;; LastDate: 25.09.99 ;; ;;======================================================================== ;; todo: watching tcp_online ;; use WDT ;; more than 1 socket include masmpic.inc .386 ;;======================================================================== ;; General settings ;;======================================================================== QUARTZ_FREQ = 6000000 RS_BAUD = 19200 RS_DATA = 8 RS_TICKS = (QUARTZ_FREQ/4)/RS_BAUD ; [non-volatile] ADDR_MYSELF_0 = 219 ; 219.192.55.208 ( ~my phone# :) ADDR_MYSELF_1 = 192 ADDR_MYSELF_2 = 55 ADDR_MYSELF_3 = 208 TCP_PORT_HTTP = 80 ; 1..255 TCP_RCV_WINDOW = 128;!sic!; [non-volatile] TCP_SND_WINDOW = 128 ; [non-volatile] RS_MONITOR = 1 ; monitor works over raw RS232 FS_UNIT_SIZE = 128 ; [non-volatile] FS_ROOT_DIR_ENTRIES = 8 ; min 2: INDEX and ERROR. FS_USE_INTERNAL_ROM = 1 FS_INTERNAL_ROM_UNITS = 4 ; number of 128-byte pages FS_USE_INTERNAL_EEPROM = 0 ; FS_USE_EXTERNAL_ROM = 0 ;;======================================================================== ;; DATA RAM mapping ;;======================================================================== TCPR_RPORT_H = SRAM0 ; remote TCP port TCPR_RPORT_L = SRAM1 TCPR_LPORT_H = SRAM2 ; local TCP port, TCPR_LPORT_H==0 TCPR_LPORT_L = SRAM3 TCPR_SEQ_L3 = SRAM4 TCPR_SEQ_L2 = SRAM5 TCPR_SEQ_L1 = SRAM6 TCPR_SEQ_L0 = SRAM7 TCPR_ACK_L3 = SRAM8 TCPR_ACK_L2 = SRAM9 TCPR_ACK_L1 = SRAM10 TCPR_ACK_L0 = SRAM11 TCPR_HLEN = SRAM12 ; не используется при посылке TCPR_FLAG = SRAM13 ; не используется при посылке TEMP_0 = SRAM2 TEMP_1 = SRAM12 TEMP_2 = SRAM13 HTTP_UNITIDX = SRAM14 ;*** HTTP_FILESIZE_H = SRAM15 ;*** HTTP_FILESIZE_L = SRAM16 ;*** HTTP_NAME_0 = SRAM14 HTTP_NAME_1 = SRAM15 HTTP_NAME_2 = SRAM16 if RS_MONITOR MON_ADDR_H = SRAM14 MON_ADDR_L = SRAM15 MON_TAG = SRAM16 ; вроде 'R','W','A' endif ; socket data, it's valid if tcp_online==1 TCPR_POS = SRAM17 ; iterator 0 -->] 80..FF ; принято байт с открытия соединения TCPS_ACK = SRAM18 TCPS_SEQ = SRAM19 TCPS_LEN = SRAM20 ; for retransmit TCPS_FLAG = SRAM21 ; for retransmit RX_BYTE = SRAM22 ; [soft uart] TX_BYTE = RX_BYTE ; [soft uart] IP_POS = SRAM23 ; iterator IP_HLEN = SRAM24 ; IP header len (incoming only) IP_LEN = SRAM25 ; IP packet len IP_SUM_0 = SRAM26 ; TCP/IP chksum IP_SUM_1 = SRAM27 ; --//-----//-- low octet IP_ADR_0 = SRAM28 ; remote IP address IP_ADR_1 = SRAM29 ; --//-- IP_ADR_2 = SRAM30 ; --//-- IP_ADR_3 = SRAM31 ; --//-- DefBit B_HTTP_STATE_0, TCPS_FLAG, 5 DefBit B_HTTP_STATE_1, TCPS_FLAG, 6 DefBit B_TCP_ONLINE, TCPS_FLAG, 7 ;DefBit B_LED_1, PORTA, 3 ;DefBit B_LED_2, PORTA, 2 DefBit B_RS232_RxD, PORTB, 0 DefBit B_RS232_TxD, PORTA, 3 DefBit B_RS232_CTS, PORTA, 2 DefBit B_SLIP_OUTPKT, IP_HLEN, 7 DefBit B_SLIP_ESCAPE, IP_HLEN, 6 ;;======================================================================== ;; Useful macros ;;======================================================================== TXLW macro k movlw (k) call _tx endm SLITXLW macro k movlw (k) call _slitx endm SUM0 MACRO x:req __TMPSUM=(((x)+((x) shr 16)) shr 8) movlw __TMPSUM ENDM SUM1 MACRO x:req __TMPSUM=(((x)+((x) shr 16)) shr 0) movlw __TMPSUM ENDM ;;======================================================================== ;; Code ;;======================================================================== _start: clrf INTCON ; запретить все прерывания ? movlw 01001111b ; "_-", WDT/128 option jump _init _interrupt: ; ; Soft UART ( simplex :( ) ; ; S01234567T ; ┐┌┬┬┬┬┬┬┬┬┬ ; 115.2 └┴┴┴┴┴┴┴┴┘└ ; ┐ ┌─┬─┬─┬─┬─┬─┬─┬─┬─┬ ; 57.6 └─┴─┴─┴─┴─┴─┴─┴─┴─┘ └ ; ┐ ┌──┬──┬──┬──┬──┬──┬──┬──┬──┬ ; 38.4 └──┴──┴──┴──┴──┴──┴──┴──┴──┘ └ ; ┐ ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬── ; 19.2 └─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┘ └── ; ▐██ ██ ██ ██ ██ ██ ██ ██ ██_________▐██ ; ; _^_"Ч" ; _interrupt_b0: ; 5 ; обработчит прерывания INT call _delay4 ; 4 ; (момент "Ч") movlw 8 ; 1 ; 8Nx _rx_next: bcf B_RS232_CTS ; 1 ; fall CTS call _delay_x_9 ; x-9 ; bcf C ; 1 ; skip1 B_RS232_RxD ; 1 ; bsf C ; 1 ; C:=RS232_RxD rrf RX_BYTE,F ; 1 ; addlw -1 ; 1 ; jnz _rx_next ; 3 ; movf RX_BYTE,w ; xorlw 0C0h ; jnz _no_C0 ; начинаем прием bcf B_SLIP_OUTPKT ; нового пакета (SLIP END) clrf IP_POS ; clrf IP_SUM_0 ; clrf IP_SUM_1 ; jump _rx ; _no_C0: j0 B_SLIP_OUTPKT,_mode_slip; если принимаемый символ вне пакета _mode_terminal: xorlw <00Dh xor 0C0h> ; jnz _rx ; эмуляция модема: TXLW 'O' ; ответ на AT-команды TXLW 'K' ; TXLW 0Dh ; jump _rx ; _mode_slip: j0 B_SLIP_ESCAPE,_no_slip_escape xorlw <0DCh xor 0C0h> ; отработка второго байта movlw 0DBh ; спец.последовательностей SLIP: skipnz ; 0xDB,0xDC --> 0xC0 movlw 0C0h ; 0xDB,0xDD --> 0xDB movwf RX_BYTE ; RX_BYTE=(RX_BYTE==0xDC?0xC0:0xDB) ; jump _end_slip_escape ; _no_slip_escape: ; bsf B_SLIP_ESCAPE ; если принят 0xDB, значит xorlw <0DBh xor 0C0h> ; это первый байт jz _rx ; спец.последовательности SLIP: _end_slip_escape: bcf B_SLIP_ESCAPE ; movf RX_BYTE,W call _checksum_byte ; обновление контрольной суммы ; принимаемого пакета movf IP_POS,W ; обработка первых 0x13 байт addlw -20 ; после SLIP.END как заголовок jc _xxxx ; IP пакета rlf IP_POS,W ; clrf PCLATH ; это полезно, но не необходимо addwf PCL,F ; movf RX_BYTE,W ; IPhdr+ 0 Version & IHL movwf IP_HLEN ; rlf IP_HLEN,F ; IPhdr+ 1 Type of Service jump _01_ ; movlw 0 ; IPhdr+ 2 Total Length (hi) jump _rx_byte_must_equal_w ; movf RX_BYTE,W ; IPhdr+ 3 Total Length (lo) movwf IP_LEN ; jump _finish ; IPhdr+ 4 Identification (hi) _01_: bcf IP_HLEN,7 ; jump _finish ; IPhdr+ 5 Identification (lo) nop ; jump _finish ; IPhdr+ 6 Flags & Fragment Offset (hi) nop ; movlw 0 ; IPhdr+ 7 Fragment Offset (lo) jump _rx_byte_must_equal_w ; jump _finish ; IPhdr+ 8 Time to Live nop ; movlw 6 ; IPhdr+ 9 Protocol jump _rx_byte_must_equal_w ; jump _finish ; IPhdr+10 Header Checksum (hi) nop ; jump _finish ; IPhdr+11 Header Checksum (lo) nop ; movlw IP_ADR_0 ; IPhdr+12 Source Address jump _save_rx_byte ; movlw IP_ADR_1 ; IPhdr+13 jump _save_rx_byte ; movlw IP_ADR_2 ; IPhdr+14 jump _save_rx_byte ; movlw IP_ADR_3 ; IPhdr+15 jump _save_rx_byte ; movlw ADDR_MYSELF_0 ; IPhdr+16 Destination Address jump _rx_byte_must_equal_w ; movlw ADDR_MYSELF_1 ; IPhdr+17 jump _rx_byte_must_equal_w ; movlw ADDR_MYSELF_2 ; IPhdr+18 jump _rx_byte_must_equal_w ; movlw ADDR_MYSELF_3 ; IPhdr+19 _rx_byte_must_equal_w: xorwf RX_BYTE,W ; jnz _error ; _xxxx: movf IP_HLEN,W ; IP_POS-IP_HLEN - на каком месте subwf IP_POS,W ; принятый байт находится после IP заголовка jc _post_ip ; ... или это все еще IP заголовок? _no_post_ip: xorlw 0FFh ; а если это последний байт IP заголовка jnz _finish ; IP_SUM должна быть равна 0 movf IP_SUM_0,W ; iorwf IP_SUM_1,W ; jnz _error ; неправильная контрольная сумма... _finish: incf IP_POS,F ; следующий! jump _rx ; _post_ip: addlw -14 ; сохраняем первые 14 байт TCP заголовка jnc _save_as_tcp_header ; jnz _no_correct_tcp_hlen ; rrf TCPR_HLEN,F ; if(IP_POS-IP_HLEN==14) rrf TCPR_HLEN,F ; { bcf TCPR_HLEN,7 ; TCPR_HLEN=(TCPR_HLEN<<2)&0x3F; bcf TCPR_HLEN,6 ; } _no_correct_tcp_hlen: subwf TCPR_HLEN,W ; сохраняем 5,6и7 байты TCP _соединения_. addlw -15 ; если сейчас (W<14) - значит имя файла jc _no_save_rx_byte ; пришло в нескольких пакетах, например, ; GET /xxx было набрано в telnet-клиенте ; так что эта проверка не явл. необходимой, ; если будет пользоваться только www-browser. subwf TCPR_POS,W ; как первые символы имени файла в "GET /.." addlw (-1-(5+3)) ; W=TCPR_POS-(TCPR_HLEN-(IP_POS-IP_HLEN-14)) addlw 3 ; (5.7)->(FD.FF) (5.7)->(0.2) jnc _no_save_rx_byte if (HTTP_NAME_0-(TCPR_RPORT_H+14)) ne 0 addlw (HTTP_NAME_0-(TCPR_RPORT_H+14)) endif _save_as_tcp_header: addlw TCPR_RPORT_H+14 _save_rx_byte: movwf FSR ; [W]:=RX_BYTE - часто используется movf RX_BYTE,W ; movwf INDR ; _no_save_rx_byte: incf IP_POS,W ; если принят последний байт subwf IP_LEN,W ; IP пакета... jnz _finish ; movf IP_HLEN,W ; IP_LEN-=IP_HLEN; subwf IP_LEN,F ; call _chksum_pseudoheader ; проверка контрольной суммы movf IP_SUM_0,W ; TCP заголовка/тела пакета iorwf IP_SUM_1,W ; skipnz ; call _process_tcp ; jump _error ; ;=========================================================================== ; TX routines ;=========================================================================== ;_txhex: movwf FSR ; swapf FSR,W ; call _txhex0 ; movf FSR,W ;_txhex0:andlw 00001111b ; addlw -10 ; skipnc ; addlw 7 ; addlw 58 ; jump _tx ;;------------------------------------------------ _slitx_csum: movf IP_SUM_0,W ; передать контрольную сумму call _slitx ; (два байта) movf IP_SUM_1,W ; jump _slitx ;;------------------------------------------------ _slitx4: movwf FSR ; передать 4 байта (W[0]..W[3]) call _slitx2 ; с коррекцией контрольной суммы _slitx2: movf INDR,W ; передать 2 байта (FSR[0]..FSR[1]) call _checksum_hi call _slitx1 movf INDR,W call _checksum_lo _slitx1: movf INDR,W ; передать 1 байт (*FSR++) incf FSR,F ; jump _slitx ;;------------------------------------------------ _tx_0_0: call _tx_0 ; передать два нуля _tx_0: movlw 000h ; передать нуль _slitx: xorlw 0C0h ; передать байт по протоколу SLIP jnz _ne_C0 ; т.е. с заменами TXLW 0DBh ; 0xC0 --> 0xDB,0xDC movlw 0DCh ; 0xDB --> 0xDB,0xDD jump _tx ; _ne_C0: xorlw <0DBh xor 0C0h> ; jnz _tx11 ; call _tx11 ; movlw <0DDh xor 0DBh> ; _tx11: ; xorlw 0DBh ; _tx: bsf B_RS232_TxD ; просто передать один байт movwf TX_BYTE ; IN: W movlw <(-(RS_DATA+1))shl 4> ; OUT: TX_BYTE:=W _tx_loop_c: bsf C ; 1 _tx_loop: call _delay_x_9 rrf TX_BYTE,F ; 1 ; 1 jnc _c_is_clear ; 2 ; 3 addlw 10h ; 1 bcf B_RS232_TxD ; 1 jnz _tx_loop_c ; 3 _delay_x_9: ; при TX-задержке нельзя: ; 1. изменять флаг STATUS.C ; 2. сильно перегружать стек возвратов if ((RS_TICKS)-11) eq 28 ; 38400 and 6MHz call _x2 ;28=2+2*13 _x2: nop call _x1 ;12=2+2*5 _x1: nop brake elseif ((RS_TICKS)-11) eq 67 ; 19200 and 6MHz if 0 nop call _x1 ;66=2*3+4*15 call _x1 ; call _x1 ;66=2*5+10+10+10+10+10+6 call _x1 ; call _x2 ; _x1: brake brake _x2: brake brake else TEMP_DELAY = TEMP_0 clrf TEMP_DELAY bsf TEMP_DELAY,4 _tx_delay: nop decfsz TEMP_DELAY,F jump _tx_delay endif else error endif _delay4: return _c_is_clear: bsf B_RS232_TxD ; 1 addlw 10h ; 1 bcf C ; 1 =nop jump _tx_loop ; 2 ;======================================================================== ; ;======================================================================== _init: ;movlw 00000000b ; RS232_TxD:=0, RS232_CTS:=0 clrf PORTB ; clrf PORTA movlw 00000000b ; porta, ___ooooo tris 5 movlw 00000001b ; portb, oooooooi tris 6 bcf B_TCP_ONLINE ; tcp_online=0 _error: clrf IP_HLEN ; bsf B_SLIP_OUTPKT ; сначала снаружи пакета _rx: bsf B_RS232_CTS ; поднять CTS movlw 10010000b ; GIE+INTE movwf INTCON _rxl: ; clrwdt ;???? jump _rxl ;======================================================================== ; передача TCP/IP пакета ;======================================================================== _just_ack: _tcp_send_empty_10: bcf TCPS_FLAG,0 ; TCPS_FLAG=xxxxxxx0 bcf TCPS_FLAG,1 ; TCPS_FLAG=xxxxxx0x _tcp_send_empty: clrf TCPS_LEN _tcp_send: call _tx_slip_end SUM0 <-(4500h+4000h+8000h)> ; расчет контрольной суммы IP заголовка movwf IP_SUM_0 SUM1 <-(4500h+4000h+8000h)> movwf IP_SUM_1 TXLW 045h call _tx_0_0 movf TCPS_LEN,W addlw 14h+14h movwf IP_LEN ; IP_LEN = TCPS_LEN+14h+14h call _slitx call _chksum_pseudoheader call _tx_0_0 TXLW 040h call _tx_0 TXLW 080h TXLW 006h call _slitx_csum SLITXLW ADDR_MYSELF_0 SLITXLW ADDR_MYSELF_1 SLITXLW ADDR_MYSELF_2 SLITXLW ADDR_MYSELF_3 movlw IP_ADR_0 call _slitx4 movf TCPR_SEQ_L0,W ; формирование SEQ для subwf TCPS_ACK,W ; отправляемого TCP пакета jc _no_correct_hi_seq ; incf TCPR_SEQ_L1,F ; skipnz ; incf TCPR_SEQ_L2,F skipnz incf TCPR_SEQ_L3,F _no_correct_hi_seq: addwf TCPR_SEQ_L0,F ; TCPR_SEQ_L0+=TCPS_ACK-TCPR_SEQ_L0 SUM0 <-(5000h+TCP_RCV_WINDOW-0014h)> movwf IP_SUM_0 ; расчет контрольной суммы TCP заголовка SUM1 <-(5000h+TCP_RCV_WINDOW-0014h)> movwf IP_SUM_1 call _chksum_pseudoheader movlw TCPR_LPORT_H movwf FSR call _slitx2 movlw TCPR_RPORT_H movwf FSR call _slitx2 movlw TCPR_ACK_L3 call _slitx4 movlw TCPR_SEQ_L3 call _slitx4 TXLW 050h movf TCPS_FLAG,W andlw 00010011b ; 0x10,0x11,0x12 call _tx movf TX_BYTE,W call _checksum_lo call _tx_0 TXLW TCP_RCV_WINDOW clrf IP_POS _loop_top0: movf TCPS_LEN,W ; расчет контрольной суммы xorwf IP_POS,W ; тела TCP пакета jz _loop_break0 call _file_read call _checksum_byte incf IP_POS,F jump _loop_top0 _loop_break0: call _slitx_csum call _tx_0_0 clrf IP_POS ; передача тела TCP пакета _loop_top1: movf TCPS_LEN,W xorwf IP_POS,W jz _loop_break1 call _file_read call _slitx incf IP_POS,F jump _loop_top1 _loop_break1: _tx_slip_end: movlw 0C0h ; передать SLIP.END jump _tx ;======================================================================== ; расчет/проверка контрольных сумм TCP/IP заголовков/пакетов ;======================================================================== _chksum_pseudoheader: movf IP_LEN,W call _checksum_lo movf IP_ADR_0,W call _checksum_hi movf IP_ADR_1,W call _checksum_lo movf IP_ADR_2,W call _checksum_hi movf IP_ADR_3,W call _checksum_lo SUM0 <6+((ADDR_MYSELF_0+ADDR_MYSELF_2)shl 8)+(ADDR_MYSELF_1+ADDR_MYSELF_3)> call _checksum_hi SUM1 <6+((ADDR_MYSELF_0+ADDR_MYSELF_2)shl 8)+(ADDR_MYSELF_1+ADDR_MYSELF_3)> jump _checksum_lo ;------------------------------------------ _checksum_byte: j1 ,_checksum_lo _checksum_hi: subwf IP_SUM_0,F ; корректировать ст.байт контр.суммы movlw 1 skipc _checksum_lo: subwf IP_SUM_1,F ; корректировать мл.байт контр.суммы movlw 1 skipc subwf IP_SUM_0,F skipc subwf IP_SUM_1,F return ;======================================================================== ; UDP handler ;======================================================================== _process_udp: ; ... to do ... ;======================================================================== ; TCP handler ;======================================================================== _process_tcp: movf TCPR_LPORT_L,W ; проверка номера локального порта xorlw TCP_PORT_HTTP iorwf TCPR_LPORT_H,W skipz return skip0 ; RST bcf B_TCP_ONLINE j1 ,_tcp_fin ; FIN j1 ,_tcp_syn ; SYN skip1 ; ACK ???? return ;_tcp_ack: movf TCPS_SEQ,W subwf TCPR_ACK_L0,W subwf TCPS_LEN,W ; TCPS_LEN-TCPR_ACK_L0+TCPS_SEQ jz _my_transmit_is_acked subwf TCPS_LEN,W ; -TCPR_ACK_L0+TCPS_SEQ jz _tcp_send ; если клиент не подтвердил прием... RETRANSMIT !!!! return ; совсем неправильный TCPR_ACK_L0 = не отвечаем _my_transmit_is_acked: movf TCPR_ACK_L0,W ; tcps_seq=LO(tcpr.ack); movwf TCPS_SEQ ; movf TCPR_SEQ_L0,W ; if(tcpr.seq==tcps_ack1) xorwf TCPS_ACK,W ; jnz _tcp_send ; если мы получили не то, что ждали... RETRANSMIT !!!! ;_new_data_was_rvcd: movf TCPR_HLEN,W subwf IP_LEN,W addwf TCPS_ACK,F ; tcps_ack1 += ip_len-tcpr.hlen; addwf TCPR_POS,F skipnc bsf TCPR_POS,7 ; 0-->](128..255) ;;****** HTTP server как конечный автомат ******************* movlw 00010001b ; http_state = * ; b_tcp_online = 0 ; tcps_flag = FIN+ACK j1 B_HTTP_STATE_1,_set_flag_and_send j1 B_HTTP_STATE_0,_http_state_1 _http_state_0: movf TCPR_POS,W ; if(tcpr_pos<*) goto _tcp_send_empty_10 addlw -8 ; *** ; strlen("GET / HTTP/0.9\r\n\r\n")=18 jnc _tcp_send_empty_10 ; ??? todo: file system functions ;=set http_unitidx ;=set http_filesize_h ;=set http_filesize_l if FS_USE_INTERNAL_ROM ;------------------------ ; CGI ;------------------------ movf HTTP_NAME_0,W sublw 'a' ; jz _cgi_a ; HTTP_NAME_0 == 'a' sublw <'a'-'0'> ; addlw -10 ; jnc _cgi_digit ; HTTP_NAME_0 in ['0'..'9'] movlw 3 ; movwf HTTP_UNITIDX ; HTTP_UNITIDX = 3 clrf HTTP_FILESIZE_H ; movlw 068h ; HTTP_FILESIZE = 0x6E jump _cgi_done ; _cgi_digit: rlf HTTP_NAME_1,F ; status.c=0 movf HTTP_NAME_1,W ; rlf HTTP_NAME_1,F ; rlf HTTP_NAME_1,F ; addwf HTTP_NAME_1,W ; addwf HTTP_NAME_2,W ; W := 10*HTTP_NAME_0+HTTP_NAME_1 addlw -16 ; W := 10*(HTTP_NAME_0-'0')+(HTTP_NAME_1-'0') skip0 addlw 100 skip0 addlw 200 movwf PORTB ; ; andlw 11110b ; movwf PORTB ; _cgi_a: clrf HTTP_UNITIDX ; HTTP_UNITIDX = 0 movlw 1 ; movwf HTTP_FILESIZE_H ; HTTP_FILESIZE = 0x180 movlw 080h ; _cgi_done: movwf HTTP_FILESIZE_L ; endif if FS_USE_EXTERNAL_ROM ...todo... endif bsf B_HTTP_STATE_0 ; http_state=1 jump _send_portion_of_file _http_state_1: incf HTTP_UNITIDX,F ; http_unitidx++ movf TCPS_LEN,W ; http_filesize -= tcps_len; subwf HTTP_FILESIZE_L,F skipc decf HTTP_FILESIZE_H,F _send_portion_of_file: movf HTTP_FILESIZE_H,F jnz _transmit_80 movf HTTP_FILESIZE_L,W addlw 7Fh jc _transmit_80 bsf B_HTTP_STATE_1 ; http_state=3 movf HTTP_FILESIZE_L,W ; <== TRANSMIT less than TCP_SND_WINDOW bytes jump _transmit_not_80 _transmit_80: movlw TCP_SND_WINDOW ; <== TRANSMIT TCP_SND_WINDOW bytes _transmit_not_80: movwf TCPS_LEN jump _tcp_send _tcp_fin: incf TCPR_SEQ_L0,W ; tcps_ack1 = B3(tcpr.seq)+1; movwf TCPS_ACK incf TCPS_SEQ,F ; tcps_seq1++; movlw 00010000b ; tcps_flag = 0x11; // SYN+ACK ; tcp_online=0; ; http_state=*; _set_flag_and_send: movwf TCPS_FLAG jump _tcp_send_empty ; tcp_send_empty(); // передаем 0 байт _tcp_syn: ;; j1 B_TCP_ONLINE,_return ; if( 0==tcp_online ) { incf TCPR_SEQ_L0,W ; tcps_ack1 = B3(tcpr.seq)+1; movwf TCPS_ACK clrf TCPR_POS ; tcpr_pos=0; clrf TCPS_SEQ ; tcps_seq1=ISS=0; movlw 10010010b ; http_state=0; // just connected movwf TCPS_FLAG ; tcps_flag = 0x12; // SYN+ACK call _tcp_send_empty ; tcp_send_empty(); // передаем 0 байт incf TCPS_SEQ,F ; tcps_seq1++; return ; } if FS_USE_INTERNAL_ROM ;======================================================================== ; Internal ROM/EEPROM File (max 512/64 bytes) ;======================================================================== ; UNIT0: ROM 0x0200..0x027F ; UNIT1: ROM 0x0280..0x02FF ; UNIT2: ROM 0x0300..0x037F ; UNIT3: ROM 0x0380..0x03FF ; UNIT4: EEPROM 0x0000..0x003F ;======================================================================== _file_read: if FS_USE_INTERNAL_EEPROM j0 ,_ir_read _ie_read: movf IP_POS,W movwf EEADR ; Address to read bsf RP0 bsf EECON1,0 ; EE Read bcf RP0 movf EEDATA,W ; W = EEDATA return endif _ir_read: clrf PCLATH bsf PCLATH,1 if FS_INTERNAL_ROM_UNITS ge 2 skip0 bsf PCLATH,0 endif movf IP_POS,W if FS_INTERNAL_ROM_UNITS ge 1 skip0 iorlw 80h endif movwf PCL ;======================================================================== ; Simple CGI support :) ;======================================================================== _cgi_portb_hi: swapf PORTB,W jump _lo4bit_as_hexdigit ; skip0 ; retlw '1' ; retlw '0' _cgi_portb_lo: movf PORTB,W _lo4bit_as_hexdigit: andlw 00001111b addlw -10 skipnc addlw 7 addlw 58 return .org 800h ;======================================================================== ; JavaScript program for PortB control ;======================================================================== .db 'H','T','T','P','/','1','.','0',' ','2','0','0', 13, 10, 13, 10 ; "Content-Type: %s", "blah-blah-blah" ; "Content-Length: %d", blah_blah_blah ; "Refresh: %d", blah_blah_blah .db '<','t','i','t','l','e','>','P','o','r','t',' ','B','<','/','t' .db 'i','t','l','e','>','<','b','o','d','y',' ','o','n','L','o','a' .db 'd','=','"','f','o','r','(','v','a','r',' ','i','=','0',';','i' .db '<','7',';','i','+','+',')','d','o','c','u','m','e','n','t','.' .db 'f','o','r','m','s','[','0',']','.','e','l','e','m','e','n','t' .db 's','[','i',']','.','c','h','e','c','k','e','d','=','0','x' jump _cgi_portb_hi ; SIC! jump _cgi_portb_lo .db '&','(','2','<','<','i',')','"','>','<','f','o','r','m',' ' .db 'a','c','t','i','o','n','=','a','>','<','s','c','r','i','p','t' .db '>','f','o','r','(','v','a','r',' ','i','=','1',';','i','<','8' .db ';','i','+','+',')','d','o','c','u','m','e','n','t','.','w','r' .db 'i','t','e','(','"','B','.','"','+','i','+','"','<','I','N','P' .db 'U','T',' ','T','Y','P','E','=','c','h','e','c','k','b','o','x' .db '>','<','B','R','>','"',')','<','/','s','c','r','i','p','t','>' .db '<','i','n','p','u','t',' ','t','y','p','e','=','s','u','b','m' .db 'i','t',' ','v','a','l','u','e','=','R','e','a','d','>','<','i' .db 'n','p','u','t',' ','t','y','p','e','=','b','u','t','t','o','n' .db ' ','v','a','l','u','e','=','W','r','i','t','e',' ','o','n','C' .db 'l','i','c','k','=','"','f','o','r','(','v','a','r',' ','v','=' .db '4','0','0',',','i','=','0',';','i','<','7',';','v','+','=','d' .db 'o','c','u','m','e','n','t','.','f','o','r','m','s','[','0',']' .db '.','e','l','e','m','e','n','t','s','[','i',']','.','c','h','e' .db 'c','k','e','d','<','<','+','+','i',')',';','t','o','p','.','l' .db 'o','c','a','t','i','o','n','.','h','r','e','f','=','v','"','>' ; .db 'H','T','T','P','/','1','.','0',' ','4','0','4', 13, 10, 13, 10 ; .db 'N','o','t',' ','f','o','u','n','d','<','h','r','>','<','a',' ' ; .db 'h','r','e','f','=','i','>','M','a','i','n',' ','P','a','g','e' ; .db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ; .db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ; .db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ; .db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ; .db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 .db 'H','T','T','P','/','1','.','0',' ','2','0','0', 13, 10, 13, 10 .db '<','a',' ','h','r','e','f','=','a','>','P','o','r','t','B',' ' .db 'c','o','n','t','r','o','l','<','/','a','>','<','h','r','>','<' .db 'a',' ','h','r','e','f','=','h','t','t','p',':','/','/','z','h' .db 'e','n','g','x','i','.','d','a','.','r','u','>','D','e','n','i' .db 's',' ','P','e','t','r','o','v',27h,'s',' ','h','o','m','e',' ' .db 'p','a','g','e','<','/','a','>', 0, 0, 0, 0, 0, 0, 0, 0 .db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 endif if FS_USE_EXTERNAL_ROM _file_read: retlw 0 endif end