;*****************************************************************;
;** Copyright(c) Microsoft Corp., 1988-1993 **;
;*****************************************************************;
;:ts=8
TITLE WFWASM.ASM - WFW Specific vnbt routines
.XLIST
;*** VNBT -- NetBios over TCP/IP VxD
;
;
.386p
include vmm.inc
include dosmgr.inc
include netvxd.inc
include vdhcp.inc
include debug.inc
include vtdi.inc
include vnbtd.inc
include vnetbios.inc
.LIST
IFNDEF CHICAGO
EXTRN _GetDhcpOption:NEAR
EXTRN NCB_Handler:NEAR
VxD_ICODE_SEG
public _NBTSectionName
_NBTSectionName db 'NBT',0 ; Section in system.ini parameters are stored
public _DNSSectionName
_DNSSectionName db 'DNS',0 ; DNS Section in system.ini
;****************************************************************************
;** _GetProfileInt
;
; Reads a parameter from our system.ini file (INIT TIME ONLY!)
;
; Entry: See ReadParamParams
;
; Exit: Eax contains specified value or defaulted value
;
ReadParamParams struc
dd ? ; Return Address
dd ? ; Saved edi
dd ? ; Saved esi
dd ? ; ParametersHandle (unused)
ValueName dd ? ; Pointer to value name string
DefaultValue dd ? ; Value to use if not in .ini file
MinimumValue dd ? ; Specified value must be >= MinimumValue
ReadParamParams ends
BeginProc _GetProfileInt
push edi
push esi
;
; Get the value from the system.ini file (if can't be found then eax
; will contain the default value)
;
mov eax, [esp].DefaultValue
mov esi, OFFSET32 _NBTSectionName
mov edi, [esp].ValueName
VMMCall Get_Profile_Decimal_Int
jnc GPI_Found
push eax ; Default value
push edi ; Value name
call _GetDhcpOption ; Returns DHCP value or default
add esp, 8
GPI_Found:
;
; Does the value meet our standards?
;
cmp eax, [esp].MinimumValue ; Unsigned comparison
ja RP10
mov eax, [esp].MinimumValue
RP10:
pop esi
pop edi
ret
EndProc _GetProfileInt
;****************************************************************************
;** _GetProfileHex
;
; Reads a hex parameter from our system.ini file (INIT TIME ONLY!)
;
; Entry: See ReadParamParams
;
; Exit: Eax contains specified value or defaulted value
;
ReadParamParams struc
dd ? ; Return Address
dd ? ; Saved edi
dd ? ; Saved esi
dd ? ; ParametersHandle (unused)
ValueName dd ? ; Pointer to value name string
DefaultValue dd ? ; Value to use if not in .ini file
MinimumValue dd ? ; Specified value must be >= MinimumValue
ReadParamParams ends
BeginProc _GetProfileHex
push edi
push esi
;
; Get the value from the system.ini file (if can't be found then eax
; will contain the default value)
;
mov eax, [esp].DefaultValue
mov esi, OFFSET32 _NBTSectionName
mov edi, [esp].ValueName
VMMCall Get_Profile_Hex_Int
jnc GPH_Found
push eax ; Default value
push edi ; Value name
call _GetDhcpOption ; Returns DHCP value or default
add esp, 8
GPH_Found:
;
; Does the value meet our standards?
;
cmp eax, [esp].MinimumValue ; Unsigned comparison
ja RHP10
mov eax, [esp].MinimumValue
RHP10:
pop esi
pop edi
ret
EndProc _GetProfileHex
;****************************************************************************
;** _GetProfileString
;
; Reads a string from our system.ini file (INIT TIME ONLY!)
;
; Entry: See GetProfileStrParams structure
;
; Exit: Eax contains the found value or NULL if not found
;
; History:
; 30-May-94 Koti
; this function modified to accept name of the section
; to look at as a parameter. Getting DNS server ipaddrs
; from the DNS section in system.ini demanded this change
;
GetProfileStrParams struc
dd ? ; Return Address
dd ? ; saved edx
dd ? ; Saved edi
dd ? ; Saved esi
gps_ValueName dd ? ; Pointer to value name string
gps_DefaultValue dd ? ; Value to use if not in .ini file
gps_SectionName dd ? ; Name of the section to look at (almost always NBT)
GetProfileStrParams ends
BeginProc _GetProfileString
push edx
push edi
push esi
;
; Get the value from the system.ini file (if can't be found then eax
; will contain the default value)
;
mov edx, [esp].gps_DefaultValue
mov esi, [esp].gps_SectionName
mov edi, [esp].gps_ValueName
VMMCall Get_Profile_String
jc GetProf10
mov eax, edx ; Success
jmp short GetProf20
GetProf10:
mov eax, 0 ; Couldn't find the string
GetProf20:
pop esi
pop edi
pop edx
ret
EndProc _GetProfileString
;****************************************************************************
;** _RegisterLana
;
; Registers the requested lana with the VNetbios driver.
;
; Entry: [ESP+4] - Lana number to register
;
; Exit: EAX will be TRUE if successful, FALSE if not
;
; Uses:
;
BeginProc _RegisterLana
mov eax, [esp+4] ; Get the request lana to register
push ebx
push edx
mov ebx, 1 ; Take over RM lana
mov edx, NCB_Handler
VxDcall VNETBIOS_Register ; Carry set on failure
jnc RegLana10
mov eax, 0 ; Failed
jmp short RegLana20
RegLana10:
mov eax, 1 ; Success
RegLana20:
pop edx
pop ebx
ret
EndProc _RegisterLana
;****************************************************************************
;** _DhcpSetInfo - Sets DHCP information
;
; Stub callout to the Dhcp driver
;
; Entry: [ESP+4] - Info type
; [ESP+8] - IP Address of interest
; [ESP+12]- Pointer to buffer
; [ESP+16]- Pointer to buffer size
;
; INIT TIME ONLY!
;
BeginProc _DhcpSetInfo
VxdCall VDHCP_Get_Version
jnc DSI_Installed
mov eax, 26 ; DHCP not installed, return invalid param
ret
DSI_Installed:
push ebp
mov ebp,esp
mov eax, [ebp+20] ; Buff size
push eax
mov eax, [ebp+16] ; Buff
push eax
mov eax, [ebp+12] ; IP Address
push eax
mov eax, [ebp+8] ; Info type
push eax
VxdCall VDHCP_Set_Info
add esp, 16
pop ebp
ret
EndProc _DhcpSetInfo
VxD_ICODE_ENDS
ENDIF ;!CHICAGO
END
