WebSVN – Kolibri OS – Diff – /kernel/trunk/network/stack.inc

 ;;                                                              ;;
 ;;10.01.2007 Bugfix for checksum function from Paolo Franchetti ;;
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-$Revision: 1168 $
+$Revision: 1369 $
 ;   Description
 ;       This is an application service, called by int 0x40, function 52
 ;       It provides application access to the network interface layer
+;
 ;***************************************************************************
+iglobal
+align 4
+f52call:
+	dd	app_stack_handler.00
+	dd	app_stack_handler.01
+	dd	app_stack_handler.02
+	dd	app_stack_handler.03
+	dd	app_stack_handler.fail	;04
+	dd	app_stack_handler.fail	;05
+	dd	stack_insert_packet	;app_stack_handler.06
+	dd	app_stack_handler.fail	;07
+	dd	stack_get_packet	;app_stack_handler.08
+	dd	app_stack_handler.09
+	dd	app_stack_handler.10
+	dd	app_stack_handler.11
+	dd	app_stack_handler.12
+	dd	app_stack_handler.13
+	dd	app_stack_handler.14
+	dd	app_stack_handler.15
+endg
 app_stack_handler:
+;in ebx,ecx
+;out eax
-    cmp     eax, 0
+	cmp	ebx,15
+	ja	.fail			;if more than 15 then exit
-    jnz     not0
+	jmp	dword [f52call+ebx*4]
+.00:
-    ; Read the configuration word
+; Read the configuration word
-    mov     eax, [stack_config]
+	mov	eax, [stack_config]
-    ret
+	ret
-not0:
-    cmp     eax, 1
-    jnz     not1
+.01:
-    ; read the IP address
 ; read the IP address
-    mov     eax, [stack_ip]
+	mov     eax, [stack_ip]
-    ret
+	ret
-not1:
-    cmp     eax, 2
     jnz     not2
+.02:
-    ; write the configuration word
+; write the configuration word
-    mov     [stack_config], ebx
+	mov     [stack_config], ecx
+;
-    ; If ethernet now enabled, probe for the card, reset it and empty
+; If ethernet now enabled, probe for the card, reset it and empty
-    ; the packet buffer
+; the packet buffer
-    ; If all successfull, enable the card.
+; If all successfull, enable the card.
-    ; If ethernet now disabled, set it as disabled. Should really
+; If ethernet now disabled, set it as disabled. Should really
-    ; empty the tcpip data area too.
+; empty the tcpip data area too.
     ; ethernet interface is '3' in ls 7 bits
-    and     bl, 0x7f
+; ethernet interface is '3' in ls 7 bits
-    cmp     bl, 3
+	and     cl, 0x7f
-    je       ash_eth_enable
-    ; Ethernet isn't enabled, so make sure that the card is disabled
-    mov     [ethernet_active], byte 0
-    ret
-ash_eth_enable:
-    ; Probe for the card. This will reset it and enable the interface
-    ; if found
-    call    eth_probe
-    cmp     eax, 0
-    je      ash_eth_done            ; Abort if no hardware found
 	cmp     cl, 3
-    mov     [ethernet_active], byte 1
+	je      ash_eth_enable
-ash_eth_done:
-    ret
+; Ethernet isn't enabled, so make sure that the card is disabled
+	mov     [ethernet_active], byte 0
-not2:
+	ret
-    cmp     eax, 3
     jnz     not3
-    ; write the IP Address
-    mov     [stack_ip], ebx
+.03:
-    ret
-;old functions was deleted
 ; write the IP Address
-not3:
+	mov     [stack_ip], ecx
-    cmp     eax, 6
+	ret
-    jnz     not6
-    ; Insert an IP packet into the stacks received packet queue
-    call    stack_insert_packet
-    ret
+;old functions was deleted
+;.06:
-not6:
-    cmp     eax, 7
-    jnz     not7
+; Insert an IP packet into the stacks received packet queue
-    ; Test for any packets queued for transmission over the network
+;	call    stack_insert_packet
+;	ret
-not7:
-    cmp     eax, 8
-    jnz     not8
-    call    stack_get_packet
+; Test for any packets queued for transmission over the network
-    ; Extract a packet queued for transmission by the network
     ret
 ;.08:
-not8:
+;	call    stack_get_packet
-    cmp     eax, 9
-    jnz     not9
-    ; read the gateway IP address
+; Extract a packet queued for transmission by the network
-    mov     eax, [gateway_ip]
+;	ret
     ret
-not9:
+.09:
-    cmp     eax, 10
-    jnz     not10
-    ; read the subnet mask
+; read the gateway IP address
+	mov     eax, [gateway_ip]
-    mov     eax, [subnet_mask]
-    ret
+	ret
-not10:
-    cmp     eax, 11
-    jnz     not11
 .10:
-    ; write the gateway IP Address
+; read the subnet mask
-    mov     [gateway_ip], ebx
-    ret
+	mov     eax, [subnet_mask]
-not11:
+	ret
-    cmp     eax, 12
+.11:
-    jnz     not12
 ; write the gateway IP Address
-    ; write the subnet mask
+	mov     [gateway_ip], ecx
-    mov     [subnet_mask], ebx
+	ret
-not12:
     cmp     eax, 13
-    jnz     not13
+.12:
-    ; read the dns
+; write the subnet mask
+	mov     [subnet_mask], ecx
 	ret
-    mov     eax, [dns_ip]
-    ret
-not13:
-    cmp     eax, 14
-    jnz     not14
-    ; write the dns IP Address
-    mov     [dns_ip], ebx
+.13:
+; read the dns
-    ret
+	mov     eax, [dns_ip]
 	ret
-;
-not14:
-        cmp     eax, 15
-        jnz     not15
-    ; in ebx we need 4 to read the last 2 bytes
-        cmp     ebx, dword 4
-        je      read
+.14:
+; write the dns IP Address
+	mov     [dns_ip], ecx
+	ret
 .15:
     ; or we need 0 to read the first 4 bytes
-        cmp     ebx, dword 0
+; in ecx we need 4 to read the last 2 bytes
-        jnz     param_error
-    ; read MAC, returned (in mirrored byte order) in eax
+; or we need 0 to read the first 4 bytes
-read:
-        mov     eax, [node_addr + ebx]
-        jmp     @f
 	cmp     ecx,4
-param_error:
+        ja	.param_error
-        mov     eax, -1     ; params not accepted
+; read MAC, returned (in mirrored byte order) in eax
+        mov     eax, [node_addr + ecx]
+        ret
 @@:
-        ret
+.param_error:
-; 0 -> arp_probe
-; 1 -> arp_announce
+        or     	eax, -1		; params not accepted
-; 2 -> arp_responce (not supported yet)
+        ret
-not15:                                  ; ARP stuff
+.16:
-        cmp     eax, 16
+; 0 -> arp_probe
-        jnz     not16
+; 1 -> arp_announce
+; 2 -> arp_responce (not supported yet)
-        cmp     ebx, 0
+        test    ecx,ecx
         je      a_probe
-        cmp     ebx, 1
+        dec     ebx
-        je      a_ann                   ; arp announce
+        jz      a_ann                   ; arp announce
 .fail:
-;       cmp     ebx,2
+        or	eax, -1
-;       jne     a_resp                  ; arp response
+        ret
-        jmp     param15_error
+;       cmp     ebx,2
-; arp probe, sender IP must be set to 0.0.0.0, target IP is set to address being probed
-; ecx: pointer to target MAC, MAC should set to 0 by application
-; edx: target IP
-a_probe:
-        push    dword [stack_ip]
+;       jne     a_resp                  ; arp response
+; arp probe, sender IP must be set to 0.0.0.0, target IP is set to address being probed
 ; ecx: pointer to target MAC, MAC should set to 0 by application
-        mov     edx, [stack_ip]
+; edx: target IP
-        mov     [stack_ip], dword 0
+a_probe:
-        mov     esi, ecx                ; pointer to target MAC address
+        push    dword [stack_ip]
-        call    arp_request
-        pop     dword [stack_ip]
-        jmp     @f
-; arp announce, sender IP must be set to target IP
+        mov     edx, [stack_ip]
-; ecx: pointer to target MAC
-a_ann:
+        and     [stack_ip], dword 0
-        mov     edx, [stack_ip]
+        mov     esi, ecx                ; pointer to target MAC address
+        call    arp_request
-        mov     esi, ecx                ; pointer to target MAC address
+        pop     dword [stack_ip]
-        call    arp_request
+        ret
-        jmp     @f
+; arp announce, sender IP must be set to target IP
+; ecx: pointer to target MAC
+a_ann:
+        mov     edx, [stack_ip]
+        mov     esi, ecx                ; pointer to target MAC address
-param15_error:
+        call    arp_request
-        mov     eax, -1
+        ret
-@@:
+.17:
         ret
 ; modified by [smb]
 ; modified by [smb]
+;
 ; ARPTable manager interface
-; ARPTable manager interface
+    ;see "proc arp_table_manager" for more details
-not16:
-    cmp     eax, 17
-    jnz     stack_driver_end
-    ;see "proc arp_table_manager" for more details
-    stdcall arp_table_manager,ebx,ecx,edx  ;Opcode,Index,Extra
+    stdcall arp_table_manager,ecx,edx,esi  ;Opcode,Index,Extra
-    ret
-;
-stack_driver_end:
-        ret
+    ret
+;
-;***************************************************************************
-;   Function
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;      app_socket_handler
-;
+ash_eth_enable:
-;   Description
-;       This is an application service, called by int 0x40, function 53
-;       It provides application access to stack socket services
-;       such as opening sockets
-;
-;***************************************************************************
-app_socket_handler:
+; Probe for the card. This will reset it and enable the interface
-    cmp     eax, 0
-    jnz     nots0
-    call    socket_open
-    ret
-nots0:
+; if found
-    cmp     eax, 1
-    jnz     nots1
-    call    socket_close
-    ret
-nots1:
+	call	eth_probe
-    cmp     eax, 2
-    jnz     nots2
-    call    socket_poll
-    ret
-nots2:
+	test	eax,eax
-    cmp     eax, 3
-    jnz     nots3
-    call    socket_read
+	jz	ash_eth_done            ; Abort if no hardware found
-    ret
-nots3:
+	mov     [ethernet_active], byte 1
-    cmp     eax, 4
-    jnz     nots4
-    call    socket_write
+ash_eth_done:
-    ret
-nots4:
+	ret
-    cmp     eax, 5
+;***************************************************************************
+;   Function
+;      app_socket_handler
-    jnz     nots5
+;
+;   Description
-    call    socket_open_tcp
+;       This is an application service, called by int 0x40, function 53
+;       It provides application access to stack socket services
-    ret
+;       such as opening sockets
-nots5:
-    cmp     eax, 6
+;
-    jnz     nots6
+;***************************************************************************
 iglobal
-    call    socket_status
+align 4
-    ret
+f53call:
+	dd	socket_open			;00
-nots6:
+	dd	socket_close			;01
-    cmp     eax, 7
-    jnz     nots7
+	dd	socket_poll			;02
+	dd	socket_read			;03
-    call    socket_write_tcp
-    ret
+	dd	socket_write			;04
-nots7:
+	dd	socket_open_tcp			;05
-    cmp     eax, 8
-    jnz     nots8
-    call    socket_close_tcp
+	dd	socket_status			;06
+	dd	socket_write_tcp		;07
+	dd	socket_close_tcp		;08
+	dd	is_localport_unused		;09
+	dd	app_socket_handler.10
+	dd	socket_read_packet		;11
-    ret
+endg
-nots8:
-    cmp     eax, 9
+app_socket_handler:
-    jnz     nots9
+;in ebx,ecx,edx,wsi
+;out eax
-    call    is_localport_unused
+	cmp	eax,255
-    ret
+	je	stack_internal_status
+	cmp	eax,11
-nots9:
+	ja	.fail			;if more than 15 then exit
-    cmp     eax, 10
+	jmp	dword [f53call+eax*4]
-    jnz     nots10
 .10:
-    mov     eax,dword[drvr_cable]
+	mov     eax,dword[drvr_cable]
-    test    eax,eax
+	test    eax,eax
-    jnz     @f                ; if function is not implented, return -1
+	jnz     @f                	; if function is not implented, return -1
-    mov     al,-1
+	or      al,-1
-    ;  4 : return number of received packets dumped
+;  4 : return number of received packets dumped
-    ;  5 : return number of arp packets received
+;  5 : return number of arp packets received
-    ;  6 : return status of packet driver
+;  6 : return status of packet driver
-    ;      ( 0 == not active, FFFFFFFF = successful )
+;  ( 0 == not active, FFFFFFFF = successful )
-    call    stack_internal_status
-    ret
-notsdebug:
-    ; Invalid Option
-    ret
-uglobal
-  ARPTmp:
-  times 14 db 0
-endg
-;***************************************************************************
-;   Function
-;      stack_internal_status
-;
-;   Description
-;       Returns information about the internal status of the stack
-;       This is only useful for debugging
-;       It works with the ethernet driver
-;       sub function in ebx
-;       return requested data in eax
 ;***************************************************************************
 stack_internal_status:
     cmp     ebx, 100

Subversion Repositories Kolibri OS

(root)/kernel/trunk/network/stack.inc – Rev 1168 → 1369