;圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹
;
; Program Entry Point
;
;圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹圹


tcpip proc far

90B9:5B12 start:
90B9:5B12 B4 30 mov ah,30h
90B9:5B14 CD 21 int 21h ; DOS Services ah=function 30h
; get DOS version number ax
90B9:5B16 3C 02 cmp al,2
90B9:5B18 73 05 jae loc_1984 ; Jump if above or =
90B9:5B1A 33 C0 xor ax,ax ; Zero register
90B9:5B1C 06 push es
90B9:5B1D 50 push ax
90B9:5B1E CB retf
90B9:5B1F loc_1984: ; xref 90B9:5B18
 tcpip.lst Sourcer v6.51 7-Jun- 5 10:14 am Page 401

90B9:5B1F 鶥F 9C16 mov di,seg seg_g
90B9:5B22 8B 36 0002 mov si,data_348 ; (90B9:0002=0)
90B9:5B26 2B F7 sub si,di
90B9:5B28 81 FE 1000 cmp si,1000h
90B9:5B2C 72 03 jb loc_1985 ; Jump if below
90B9:5B2E BE 1000 mov si,1000h
90B9:5B31 loc_1985: ; xref 90B9:5B2C
90B9:5B31 FA cli ; Disable interrupts
90B9:5B32 8E D7 mov ss,di
90B9:5B34 81 C4 32AE add sp,32AEh
90B9:5B38 FB sti ; Enable interrupts
90B9:5B39 73 10 jnc loc_1986 ; Jump if carry=0
90B9:5B3B 16 push ss
90B9:5B3C 1F pop ds
90B9:5B3D E8 025A call sub_249 ; (5D9A)
90B9:5B40 33 C0 xor ax,ax ; Zero register
90B9:5B42 ?0 push ax ; PARAMETER_1
90B9:5B43 E8 04EB call sub_255 ; (6031)
90B9:5B46 B8 4CFF mov ax,4CFFh
90B9:5B49 CD 21 int 21h ; DOS Services ah=function 4Ch
; terminate with al=return code
90B9:5B4B loc_1986: ; xref 90B9:5B39
90B9:5B4B 8B C6 mov ax,si
90B9:5B4D B1 04 mov cl,4
90B9:5B4F D3 E0 shl ax,cl ; Shift w/zeros fill
90B9:5B51 48 dec ax
90B9:5B52 36: A3 26D2 mov ss:data_795e,ax ; (9C16:26D2=0)
90B9:5B56 鶥B 26D4 mov bx,data_796e ; (9C16:26D4=0)
90B9:5B59 36: 8C 17 mov ss:[bx],ss
90B9:5B5C 83 E4 FE and sp,0FFFEh
90B9:5B5F 36: 89 67 04 mov ss:[bx+4],sp
90B9:5B63 B8 FFFE mov ax,0FFFEh
90B9:5B66 50 push ax
90B9:5B67 36: 89 67 0A mov ss:[bx+0Ah],sp
90B9:5B6B F7 D0 not ax
90B9:5B6D 50 push ax
90B9:5B6E 36: 89 67 06 mov ss:[bx+6],sp
90B9:5B72 36: 89 67 08 mov ss:[bx+8],sp
90B9:5B76 36: 89 26 26CE mov ss:data_793e,sp ; (9C16:26CE=0)
90B9:5B7B 03 F7 add si,di
assume ds:seg_g
90B9:5B7D 89 36 0002 mov data_670,si ; (9C16:0002=0)
90B9:5B81 8C C3 mov bx,es
90B9:5B83 2B DE sub bx,si
90B9:5B85 F7 DB neg bx
90B9:5B87 B4 4A mov ah,4Ah
90B9:5B89 CD 21 int 21h ; DOS Services ah=function 4Ah
; change memory allocation
; bx=bytes/16, es=mem segment
90B9:5B8B 36: 8C 1E 270E mov ss:data_802e,ds ; (9C16:270E=9C16h)
90B9:5B90 16 push ss
90B9:5B91 07 pop es
90B9:5B92 FC cld ; Clear direction
90B9:5B93 鶥F 2CBA mov di,data_843e ; (9C16:2CBA=0)
90B9:5B96 鶥9 32B0 ;* mov cx,offset sub_210 ;*(32B0)
90B9:5B96 B9 B0 32 db 0B9h,0B0h, 32h
90B9:5B99 2B CF sub cx,di
 tcpip.lst Sourcer v6.51 7-Jun- 5 10:14 am Page 402

90B9:5B9B 33 C0 xor ax,ax ; Zero register
90B9:5B9D F3/ AA rep stosb ; Rep when cx >0 Store al to es:[di]
90B9:5B9F 16 push ss
90B9:5BA0 1F pop ds
90B9:5BA1 8B 0E 2BA6 mov cx,ds:data_834e ; (9C16:2BA6=0)
90B9:5BA5 E3 02 jcxz loc_1987 ; Jump if cx=0
90B9:5BA7 FF D1 call cx ;*
90B9:5BA9 loc_1987: ; xref 90B9:5BA5
90B9:5BA9 E8 03DC call sub_253 ; (5F88)
90B9:5BAC E8 024B call sub_252 ; (5DFA)
90B9:5BAF 33 ED xor bp,bp ; Zero register
90B9:5BB1 E8 0048 ;* call sub_244 ;*(5BFC)
90B9:5BB1 E8 48 00 db 0E8h, 48h, 00h
90B9:5BB4 16 push ss
90B9:5BB5 1F pop ds
90B9:5BB6 FF 36 272F push word ptr ds:data_808e ; (9C16:272F=0)
90B9:5BBA 鶩F 36 272D push word ptr ds:data_807e ; PARAMETER_2 (9C16:272D=0)
90B9:5BBE FF 36 272B push word ptr ds:data_806e ; PARAMETER_1 (9C16:272B=0)
90B9:5BC2 E8 BD1B call sub_173 ; (18E0)
90B9:5BC5 ?0 push ax ; PARAMETER_1
90B9:5BC6 E8 0101 call sub_245 ; (5CCA)
90B9:5BC9 C3 retn

tcpip endp