;哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌
; SUBROUTINE
;
; Called from: 90B9:0383
;苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘

; Note: Subroutine does not return to instruction after call

8B8E:0090 sub_5 proc far
 tcpip.lst Sourcer v6.51 7-Jun- 5 10:14 am Page 8

8B8E:0090 33 F6 xor si,si ; Zero register
8B8E:0092 8B FE mov di,si
8B8E:0094 51 push cx
8B8E:0095 06 push es
8B8E:0096 F2/ A4 repne movsb ; Rep zf=0+cx >0 Mov [si] to es:[di]
8B8E:0098 58 pop ax
8B8E:0099 5A pop dx
8B8E:009A B1 04 mov cl,4
8B8E:009C D3 EA shr dx,cl ; Shift w/zeros fill
8B8E:009E 03 D0 add dx,ax
8B8E:00A0 2B D3 sub dx,bx
8B8E:00A2 42 inc dx
8B8E:00A3 FA cli ; Disable interrupts
8B8E:00A4 2E: 83 3E 09E0 00 cmp cs:data_249,0 ; (8B8E:09E0=0)
8B8E:00AA 75 1E jne loc_2 ; Jump if not equal
8B8E:00AC ?D 36 0540 lea si,ds:[540h] ; (8B8E:0540=66h) Load effective addr
8B8E:00B0 2E: C7 04 9090 mov word ptr cs:[si],9090h
8B8E:00B5 2E: C7 44 02 5250 mov word ptr cs:[si+2],5250h
8B8E:00BB ?D 36 0611 lea si,ds:[611h] ; (8B8E:0611=66h) Load effective addr
8B8E:00BF 2E: C7 04 585A mov word ptr cs:[si],585Ah
8B8E:00C4 2E: C7 44 02 9090 mov word ptr cs:[si+2],9090h
8B8E:00CA loc_2: ; xref 8B8E:00AA
8B8E:00CA 2E: C6 06 0010 01 mov cs:data_73,1 ; (8B8E:0010=0)
8B8E:00D0 FB sti ; Enable interrupts
8B8E:00D1 B9 0004 mov cx,4
8B8E:00D4 33 DB xor bx,bx ; Zero register

8B8E:00D6 locloop_3: ; xref 8B8E:00DB
8B8E:00D6 B4 3E mov ah,3Eh
8B8E:00D8 CD 21 int 21h ; DOS Services ah=function 3Eh
; close file, bx=file handle
8B8E:00DA 43 inc bx
8B8E:00DB E2 F9 loop locloop_3 ; Loop if cx > 0

8B8E:00DD B0 00 mov al,0
8B8E:00DF B4 31 mov ah,31h
8B8E:00E1 CD 21 int 21h ; DOS Services ah=function 31h
; terminate & stay resident
; al=return code,dx=paragraphs
sub_5 endp

8B8E:00E3 CB EA db 0CBh,0EAh
8B8E:00E5 0000 data_98 dw 0 ; xref 90B9:0238
8B8E:00E7 0000 data_99 dw 0
8B8E:00E9 E8 80 00 75 7D E8 db 0E8h, 80h, 00h, 75h, 7Dh,0E8h
8B8E:00EF B2 00 2E 8B 3E 0E db 0B2h, 00h, 2Eh, 8Bh, 3Eh, 0Eh
8B8E:00F5 00 33 C0 8E C0 2E db 00h, 33h,0C0h, 8Eh,0C0h, 2Eh
8B8E:00FB A1 E5 00 26 89 05 db 0A1h,0E5h, 00h, 26h, 89h, 05h
8B8E:0101 2E A1 E7 00 db 2Eh,0A1h,0E7h, 00h




;哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌哌
; SUBROUTINE
;
; Called from: 8B8E:05C8
;苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘苘

8B8E:0105 sub_6 proc near
 tcpip.lst Sourcer v6.51 7-Jun- 5 10:14 am Page 9

8B8E:0105 26: 89 45 02 mov es:[di+2],ax
8B8E:0109 2E: C5 16 0020 lds dx,cs:data_81 ; (8B8E:0020=0) Load seg:offset ptr
8B8E:010E 2E: A0 3C60 mov al,cs:data_306 ; (8B8E:3C60=1Ch)
8B8E:0112 B4 25 mov ah,25h
8B8E:0114 CD 21 int 21h ; DOS Services ah=function 25h
; set intrpt vector al to ds:dx
8B8E:0116 2E: C5 16 0024 lds dx,cs:data_82 ; (8B8E:0024=0) Load seg:offset ptr
8B8E:011B B8 252F mov ax,252Fh
8B8E:011E CD 21 int 21h ; DOS Services ah=function 25h
; set intrpt vector al to ds:dx
8B8E:0120 2E: F7 06 001E 0008 test cs:data_80,8 ; (8B8E:001E=0)
8B8E:0127 74 25 jz loc_5 ; Jump if zero
8B8E:0129 B4 11 mov ah,11h
8B8E:012B 2E: 8B 16 0016 mov dx,cs:data_77 ; (8B8E:0016=0)
8B8E:0130 2E: FF 1E 001A call cs:data_79 ; (8B8E:001A=0)
8B8E:0135 B4 11 mov ah,11h
8B8E:0137 2E: 8B 16 0018 mov dx,cs:data_78 ; (8B8E:0018=0)
8B8E:013C 2E: FF 1E 001A call cs:data_79 ; (8B8E:001A=0)
8B8E:0141 EB 25 jmp short loc_6 ; (0168)