Subversion Repositories NedoOS

Rev

Rev 1656 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log

Rev 1656 Rev 2202
Line 244... Line 244...
244 
        call yieldgetkeynolang
 244 
        call yieldgetkeynolang
245 
        pop hl
 245 
        pop hl
246 
        pop de
 246 
        pop de
247 
        cp key_esc
 247 
        cp key_esc
248 
        jp z,readstream_err
 248 
        jp z,readstream_err
249 
 
 - 
 
- 
 
 249 
        display "readstream_http_head0 ", readstream_http_head0
250 
readstream_http_headlines0
 250 
readstream_http_headlines0
251 
         ld (readstream_http_headlineaddr),de
 251 
         ld (readstream_http_headlineaddr),de
252 
readstream_http_head0
 252 
readstream_http_head0
253 
        push de
 253 
        push de
254 
        push hl ;размер
 254 
        push hl ;размер
Line 416... Line 416...
416 
 
 416 
 
417 
;httpgetstr
 417 
;httpgetstr
418 
        ;defb 'GET /cspr/index.htm HTTP/1.1',13,10
 418 
        ;defb 'GET /cspr/index.htm HTTP/1.1',13,10
419 
        ;defb 'Host: dimkam.ru',13,10
 419 
        ;defb 'Host: dimkam.ru',13,10
420 
        ;defb 13,10
 420 
        ;defb 13,10    
- 
 
 421 
        display "dns_resolver ", $
421 
dns_resolver:           ;DE-domain name
 422 
dns_resolver:           ;DE-domain name
- 
 
 423 
        ld de,httphostname-1
- 
 
 424 
        ld hl,dnsbuf-1
- 
 
 425 
dns_ip_loop1
- 
 
 426 
        inc hl
- 
 
 427 
        ld (hl),0
- 
 
 428 
dns_ip_loop
- 
 
 429 
        inc de
- 
 
 430 
        ld a,(de)
- 
 
 431 
        or 0
- 
 
 432 
        jr nz,dns_ip_not_zero
- 
 
 433 
        ld hl,dnsbuf
- 
 
 434 
        ret
- 
 
 435 
       
- 
 
 436 
dns_ip_not_zero
- 
 
 437 
        cp '.'
- 
 
 438 
        jr z,dns_ip_loop1
- 
 
 439 
       
- 
 
 440 
        sub '0'
- 
 
 441 
        jr c,dns_not_ip
- 
 
 442 
        cp 9+1
- 
 
 443 
        jr nc,dns_not_ip
- 
 
 444 
        ld c,a
- 
 
 445 
        ld a,(hl)
- 
 
 446 
        add a
- 
 
 447 
        ld b,a
- 
 
 448 
        add a
- 
 
 449 
        add a
- 
 
 450 
        add b
- 
 
 451 
        add c
- 
 
 452 
        ld (hl),a
- 
 
 453 
        jr dns_ip_loop
- 
 
 454 
       
- 
 
 455 
dns_not_ip
422 
    ld a,25;3
 456 
    ld a,25;3
423 
    ld (dns_err_count),a
 457 
    ld (dns_err_count),a
424 
dns_err_loop
 458 
dns_err_loop
425 
        ;push de
 459 
        ;push de
426 
        ld hl,dns_head
 460 
        ld hl,dns_head