forked from KolibriOS/kolibrios
466 lines
10 KiB
NASM
466 lines
10 KiB
NASM
|
include 'macros.inc'
|
||
|
|
MEOS_APP_START
|
||
|
|
|
||
|
|
type_ethernet equ 1
|
||
|
|
|
||
|
|
CODE
|
||
|
|
call draw_window
|
||
|
|
|
||
|
|
still: mcall 10 ; wait here for event
|
||
|
|
dec eax ; redraw request ?
|
||
|
|
jz red
|
||
|
|
dec eax ; key in buffer ?
|
||
|
|
jz key
|
||
|
|
dec eax ; button in buffer ?
|
||
|
|
jz button
|
||
|
|
jmp still
|
||
|
|
|
||
|
|
red: ; redraw
|
||
|
|
mcall 9, Proc_Info, -1 ; window redraw requested so get new window coordinates and size
|
||
|
|
mov eax, [Proc_Info.box.left]; store the window coordinates into the Form Structure
|
||
|
|
mov [Form + 2], ax ; x start position
|
||
|
|
mov eax, [Proc_Info.box.top];
|
||
|
|
mov [Form + 6], ax ; ystart position
|
||
|
|
mov eax, [Proc_Info.box.width] ;
|
||
|
|
mov [Form], ax ; window width
|
||
|
|
mov eax, [Proc_Info.box.height] ;
|
||
|
|
mov [Form + 4] ,ax ; window height
|
||
|
|
call draw_window ; go redraw window now
|
||
|
|
jmp still
|
||
|
|
|
||
|
|
key: ; key
|
||
|
|
mcall 2 ; just read it and ignore
|
||
|
|
jmp still
|
||
|
|
button: ; button
|
||
|
|
mcall 17 ; get id
|
||
|
|
|
||
|
|
cmp ah, 1 ; button id = 1 ?
|
||
|
|
jne @f
|
||
|
|
mcall -1 ; close this program
|
||
|
|
@@:
|
||
|
|
cmp eax,0x0000fe00
|
||
|
|
jg @f
|
||
|
|
|
||
|
|
cmp ah, 4
|
||
|
|
je hook
|
||
|
|
|
||
|
|
jmp still
|
||
|
|
@@:
|
||
|
|
shr eax, 16
|
||
|
|
mov dword[MAC],0
|
||
|
|
mov word [MAC+4],0
|
||
|
|
mov word [selected], ax
|
||
|
|
|
||
|
|
call load_drv
|
||
|
|
call draw_window
|
||
|
|
|
||
|
|
jmp still
|
||
|
|
|
||
|
|
load_drv:
|
||
|
|
; mov ax , [selected]
|
||
|
|
test ax , ax
|
||
|
|
jz still
|
||
|
|
|
||
|
|
mov bl , 6 ; get a dword
|
||
|
|
mov bh , ah ; bus
|
||
|
|
mov ch , al ; dev
|
||
|
|
mov cl , 0 ; offset to device/vendor id
|
||
|
|
mcall 62 ; get ID's
|
||
|
|
|
||
|
|
mov word [PCI_Vendor], ax
|
||
|
|
shr eax, 16
|
||
|
|
mov word [PCI_Device], ax
|
||
|
|
call get_drv_ptr
|
||
|
|
|
||
|
|
mov ecx, eax
|
||
|
|
mcall 68, 16
|
||
|
|
|
||
|
|
mov [IOCTL.handle], eax
|
||
|
|
|
||
|
|
ret
|
||
|
|
|
||
|
|
hook:
|
||
|
|
mov ax , [selected]
|
||
|
|
test ax , ax
|
||
|
|
jz still
|
||
|
|
|
||
|
|
mov [hardwareinfo.pci_dev], al
|
||
|
|
mov [hardwareinfo.pci_bus], ah
|
||
|
|
|
||
|
|
mov [IOCTL.io_code], 1 ; SRV_HOOK
|
||
|
|
mov [IOCTL.inp_size], 3
|
||
|
|
mov [IOCTL.input], hardwareinfo
|
||
|
|
mov [IOCTL.out_size], 0
|
||
|
|
mov [IOCTL.output], 0
|
||
|
|
|
||
|
|
mcall 68, 17, IOCTL
|
||
|
|
|
||
|
|
mov byte[drivernumber], al
|
||
|
|
|
||
|
|
printhdwaddr:
|
||
|
|
|
||
|
|
call draw_window
|
||
|
|
|
||
|
|
jmp still
|
||
|
|
|
||
|
|
draw_window:
|
||
|
|
mcall 12, 1 ; start of draw
|
||
|
|
mcall 0, dword [Form], dword [Form + 4], 0x13ffffff, 0x805080d0, title
|
||
|
|
|
||
|
|
mcall 73, 0
|
||
|
|
mov ecx, eax
|
||
|
|
mcall 47, 1 shl 18, , 50 shl 16 + 10, 0x00000000
|
||
|
|
|
||
|
|
call Get_PCI_Info ; get pci version and last bus, scan for and draw each pci device
|
||
|
|
|
||
|
|
cmp edx, 20 shl 16 + 110
|
||
|
|
je .nonefound
|
||
|
|
|
||
|
|
mcall 4, 20 shl 16 + 100, 1 shl 31 + 0x00000000 , caption
|
||
|
|
|
||
|
|
mcall 8, 122 shl 16 + 100, 50 shl 16 + 18, 0x00000004, 0x00007f00
|
||
|
|
mcall ,, 70 shl 16 + 18, 0x00000005, 0x007f0000
|
||
|
|
|
||
|
|
mcall 4, 137 shl 16 + 57, 1 shl 31 + 0x00ffffff , btn_start
|
||
|
|
mcall , 140 shl 16 + 77, , btn_stop
|
||
|
|
|
||
|
|
mcall , 240 shl 16 + 77, 1 shl 31 + 0x00000000 , lbl_hdw_addr
|
||
|
|
mcall , 312 shl 16 + 57, , lbl_type
|
||
|
|
add ebx, 38 shl 16
|
||
|
|
cmp byte [type],type_ethernet
|
||
|
|
jne @f
|
||
|
|
mcall , , 1 shl 31 + 0x00000000, lbl_ethernet
|
||
|
|
|
||
|
|
mcall 8,345 shl 16 + 17, 73 shl 16 + 14, 0x00000006, 0x00aaaa00
|
||
|
|
mcall ,365 shl 16 + 17, , 0x00000007
|
||
|
|
mcall ,385 shl 16 + 17, , 0x00000008
|
||
|
|
mcall ,405 shl 16 + 17, , 0x00000009
|
||
|
|
mcall ,425 shl 16 + 17, , 0x0000000a
|
||
|
|
mcall ,445 shl 16 + 17, , 0x0000000b
|
||
|
|
movzx ecx,byte[MAC]
|
||
|
|
mcall 47, 1 shl 17 + 1 shl 8,,349 shl 16 + 77, 0x000022cc
|
||
|
|
movzx ecx,byte[MAC+1]
|
||
|
|
add edx, 20 shl 16
|
||
|
|
mcall
|
||
|
|
movzx ecx,byte[MAC+2]
|
||
|
|
add edx, 20 shl 16
|
||
|
|
mcall
|
||
|
|
movzx ecx,byte[MAC+3]
|
||
|
|
add edx, 20 shl 16
|
||
|
|
mcall
|
||
|
|
movzx ecx,byte[MAC+4]
|
||
|
|
add edx, 20 shl 16
|
||
|
|
mcall
|
||
|
|
movzx ecx,byte[MAC+5]
|
||
|
|
add edx, 20 shl 16
|
||
|
|
mcall
|
||
|
|
|
||
|
|
jmp .done
|
||
|
|
|
||
|
|
@@:
|
||
|
|
mcall 4, , 1 shl 31 + 0x00ff0000, lbl_unknown
|
||
|
|
jmp .done
|
||
|
|
|
||
|
|
.nonefound :
|
||
|
|
mcall 4, 20 shl 16 + 30, 1 shl 31 + 0x00ff0000 , nonefound
|
||
|
|
.done:
|
||
|
|
mcall 12, 2 ; end of draw
|
||
|
|
ret
|
||
|
|
|
||
|
|
|
||
|
|
;------------------------------------------------------------------
|
||
|
|
;* Gets the PCI Version and Last Bus
|
||
|
|
Get_PCI_Info:
|
||
|
|
mcall 62, 0
|
||
|
|
mov word [PCI_Version], ax
|
||
|
|
mcall 62, 1
|
||
|
|
mov byte [PCI_LastBus], al
|
||
|
|
;----------------------------------------------------------
|
||
|
|
;* Get all devices on PCI Bus
|
||
|
|
mov edx, 20 shl 16 + 110 ; set start write position
|
||
|
|
cmp al , 0xff ; 0xFF means no pci bus found
|
||
|
|
jne Pci_Exists ;
|
||
|
|
ret ; if no bus then leave
|
||
|
|
Pci_Exists:
|
||
|
|
mov byte [V_Bus], 0 ; reset varibles
|
||
|
|
mov byte [V_Dev], 0 ;
|
||
|
|
Start_Enum:
|
||
|
|
mov bl , 6 ; get a dword
|
||
|
|
mov bh , byte [V_Bus] ; bus of pci device
|
||
|
|
mov ch , byte [V_Dev] ; device number/function
|
||
|
|
mov cl , 0 ; offset to device/vendor id
|
||
|
|
mcall 62 ; get ID's
|
||
|
|
|
||
|
|
cmp ax, 0 ; Vendor ID should not be 0 or 0xFFFF
|
||
|
|
je nextDev ; check next device if nothing exists here
|
||
|
|
cmp ax, 0xffff ;
|
||
|
|
je nextDev ;
|
||
|
|
|
||
|
|
mov word [PCI_Vendor], ax ; There is a device here, save the ID's
|
||
|
|
shr eax, 16 ;
|
||
|
|
mov word [PCI_Device], ax ;
|
||
|
|
mov bl , 4 ; Read config byte
|
||
|
|
mov bh , byte [V_Bus] ; Bus #
|
||
|
|
mov ch , byte [V_Dev] ; Device # on bus
|
||
|
|
mov cl , 0x08 ; Register to read (Get Revision)
|
||
|
|
mcall 62 ; Read it
|
||
|
|
mov byte [PCI_Rev], al ; Save it
|
||
|
|
mov cl , 0x0b ; Register to read (Get class)
|
||
|
|
mcall 62 ; Read it
|
||
|
|
|
||
|
|
mov byte [PCI_Class], al ; Save it
|
||
|
|
mov cl , 0x0a ; Register to read (Get Subclass)
|
||
|
|
mcall 62 ; Read it
|
||
|
|
mov byte [PCI_SubClass], al ; Save it
|
||
|
|
mov cl , 0x09 ; Register to read (Get Interface)
|
||
|
|
mcall 62 ; Read it
|
||
|
|
mov [PCI_Interface], al ; Save it
|
||
|
|
mov cl , 0x3c ; Register to read (Get IRQ)
|
||
|
|
@@: mcall 62 ; Read it
|
||
|
|
mov [PCI_IRQ], al ; Save it
|
||
|
|
;
|
||
|
|
; inc byte [total] ; one more device found
|
||
|
|
|
||
|
|
cmp byte [PCI_Class],2
|
||
|
|
jne nextDev
|
||
|
|
|
||
|
|
call Print_New_Device ; print device info to screen
|
||
|
|
nextDev:
|
||
|
|
add byte [V_Dev], 8 ; lower 3 bits are the function number
|
||
|
|
|
||
|
|
jnz Start_Enum ; jump until we reach zero
|
||
|
|
mov byte [V_Dev], 0 ; reset device number
|
||
|
|
inc byte [V_Bus] ; next bus
|
||
|
|
mov al , byte [PCI_LastBus] ; get last bus
|
||
|
|
cmp byte [V_Bus], al ; was it last bus
|
||
|
|
jbe Start_Enum ; if not jump to keep searching
|
||
|
|
ret
|
||
|
|
|
||
|
|
;------------------------------------------------------------------
|
||
|
|
;* Print device info to screen
|
||
|
|
Print_New_Device:
|
||
|
|
|
||
|
|
push edx ; Magic ! (to print a button...)
|
||
|
|
|
||
|
|
mov ebx, 18 shl 16
|
||
|
|
mov bx , [Form]
|
||
|
|
sub bx , 36
|
||
|
|
|
||
|
|
mov cx , dx
|
||
|
|
dec cx
|
||
|
|
shl ecx, 16
|
||
|
|
add ecx, 9
|
||
|
|
|
||
|
|
movzx edx, byte [V_Bus]
|
||
|
|
shl dx , 8
|
||
|
|
mov dl , byte [V_Dev]
|
||
|
|
|
||
|
|
mov esi, 0x0000c0ff ; color: yellow if selected, blue otherwise
|
||
|
|
cmp word [selected], dx
|
||
|
|
jne @f
|
||
|
|
mov esi, 0x00c0c000
|
||
|
|
@@:
|
||
|
|
|
||
|
|
shl edx, 8
|
||
|
|
or dl , 0xff
|
||
|
|
|
||
|
|
mcall 8
|
||
|
|
pop edx
|
||
|
|
|
||
|
|
xor esi, esi ; Color of text
|
||
|
|
movzx ecx, word [PCI_Vendor] ; number to be written
|
||
|
|
mcall 47, 0x00040100 ; Write Vendor ID
|
||
|
|
|
||
|
|
add edx, (4*6+18) shl 16
|
||
|
|
movzx ecx, word [PCI_Device] ; get Vendor ID
|
||
|
|
mcall ; Draw Vendor ID to Window
|
||
|
|
|
||
|
|
add edx, (4*6+18) shl 16
|
||
|
|
movzx ecx, byte [V_Bus] ; get bus number
|
||
|
|
mcall ,0x00020100 ; draw bus number to screen
|
||
|
|
|
||
|
|
add edx, (2*6+18) shl 16
|
||
|
|
movzx ecx, byte [V_Dev] ; get device number
|
||
|
|
shr ecx, 3 ; device number is bits 3-7
|
||
|
|
mcall ; Draw device Number To Window
|
||
|
|
|
||
|
|
add edx, (2*6+18) shl 16
|
||
|
|
movzx ecx, byte [PCI_Rev] ; get revision number
|
||
|
|
mcall ; Draw Revision to screen
|
||
|
|
|
||
|
|
add edx, (2*6+18) shl 16
|
||
|
|
movzx ecx, [PCI_IRQ]
|
||
|
|
cmp cl , 0x0f ; IRQ must be between 0 and 15
|
||
|
|
ja @f
|
||
|
|
mcall
|
||
|
|
@@:
|
||
|
|
;
|
||
|
|
;Write Names
|
||
|
|
movzx ebx, dx ; Set y position
|
||
|
|
or ebx, 230 shl 16 ; set Xposition
|
||
|
|
|
||
|
|
;------------------------------------------------------------------
|
||
|
|
; Prints the Vendor's Name based on Vendor ID
|
||
|
|
;------------------------------------------------------------------
|
||
|
|
mov edx, VendorsTab
|
||
|
|
mov cx , word[PCI_Vendor]
|
||
|
|
|
||
|
|
.fn: mov ax , [edx]
|
||
|
|
add edx, 6
|
||
|
|
test ax , ax
|
||
|
|
jz .find
|
||
|
|
cmp ax , cx
|
||
|
|
jne .fn
|
||
|
|
.find: mov edx, [edx - 4]
|
||
|
|
mcall 4,, 0x80000000 ; lets print the vendor Name
|
||
|
|
|
||
|
|
;------------------------------------------------------------------
|
||
|
|
; Get description based on Class/Subclass
|
||
|
|
;------------------------------------------------------------------
|
||
|
|
mov eax, dword [PCI_Class]
|
||
|
|
and eax, 0xffffff
|
||
|
|
xor edx, edx
|
||
|
|
xor esi, esi
|
||
|
|
.fnc: inc esi
|
||
|
|
mov ecx, [Classes + esi * 8 - 8]
|
||
|
|
cmp cx , 0xffff
|
||
|
|
je .endfc
|
||
|
|
cmp cx , ax
|
||
|
|
jne .fnc
|
||
|
|
test ecx, 0xff000000
|
||
|
|
jz @f
|
||
|
|
mov edx, [Classes + esi * 8 - 4]
|
||
|
|
jmp .fnc
|
||
|
|
@@: cmp eax, ecx
|
||
|
|
jne .fnc
|
||
|
|
xor edx, edx
|
||
|
|
.endfc: test edx, edx
|
||
|
|
jnz @f
|
||
|
|
mov edx, [Classes + esi * 8 - 4]
|
||
|
|
@@:
|
||
|
|
add ebx, 288 shl 16
|
||
|
|
mcall 4,, 0x80000000,, 32 ; draw the text
|
||
|
|
movzx edx, bx ; get y coordinate
|
||
|
|
add edx, 0x0014000A ; add 10 to y coordinate and set x coordinate to 20
|
||
|
|
|
||
|
|
;------------------------------------------------------------------
|
||
|
|
; Print Driver Name
|
||
|
|
;------------------------------------------------------------------
|
||
|
|
push edx
|
||
|
|
add ebx, 120 shl 16
|
||
|
|
push ebx
|
||
|
|
|
||
|
|
call get_drv_ptr
|
||
|
|
mov edx, eax
|
||
|
|
pop ebx
|
||
|
|
mcall 4,,0x80000000 ; lets print the vendor Name
|
||
|
|
pop edx
|
||
|
|
ret
|
||
|
|
|
||
|
|
get_drv_ptr:
|
||
|
|
mov eax, driverlist ; eax will be the pointer to latest driver title
|
||
|
|
mov ebx, driverlist ; ebx is the current pointer
|
||
|
|
mov ecx, dword[PCI_Vendor] ; the device/vendor id of we want to find
|
||
|
|
|
||
|
|
driverloop:
|
||
|
|
inc ebx
|
||
|
|
|
||
|
|
cmp byte[ebx],0
|
||
|
|
jne driverloop
|
||
|
|
|
||
|
|
inc ebx ; the device/vendor id list for the driver eax is pointing to starts here.
|
||
|
|
|
||
|
|
deviceloop:
|
||
|
|
cmp dword[ebx],0
|
||
|
|
je nextdriver
|
||
|
|
|
||
|
|
cmp dword[ebx],ecx
|
||
|
|
je driverfound
|
||
|
|
|
||
|
|
add ebx,4
|
||
|
|
jmp deviceloop
|
||
|
|
|
||
|
|
nextdriver:
|
||
|
|
add ebx,4
|
||
|
|
|
||
|
|
cmp dword[ebx],0
|
||
|
|
je nodriver
|
||
|
|
|
||
|
|
mov eax,ebx
|
||
|
|
jmp driverloop
|
||
|
|
|
||
|
|
nodriver:
|
||
|
|
mov eax, lbl_none ; lets print the vendor Name
|
||
|
|
ret
|
||
|
|
|
||
|
|
driverfound:
|
||
|
|
ret
|
||
|
|
|
||
|
|
include 'VENDORS.INC'
|
||
|
|
include 'DRIVERS.INC'
|
||
|
|
;------------------------------------------------------------------
|
||
|
|
; DATA AREA
|
||
|
|
DATA
|
||
|
|
|
||
|
|
|
||
|
|
Form: dw 800 ; window width (no more, special for 800x600)
|
||
|
|
dw 100 ; window x start
|
||
|
|
dw 220 ; window height
|
||
|
|
dw 100 ; window y start
|
||
|
|
|
||
|
|
title db 'Network Driver Control Center', 0
|
||
|
|
|
||
|
|
caption db 'Vendor Device Bus Dev Rev IRQ Company Description DRIVER',0
|
||
|
|
lbl_1 db 'Hardware control',0
|
||
|
|
nonefound db 'No compatible devices were found!',0
|
||
|
|
btn_start db 'Start driver',0
|
||
|
|
btn_stop db 'Stop driver',0
|
||
|
|
lbl_hdw_addr db 'hardware address:',0
|
||
|
|
lbl_type db 'type:',0
|
||
|
|
lbl_none db 'none',0
|
||
|
|
lbl_unknown db 'unknown',0
|
||
|
|
lbl_ethernet db 'ethernet',0
|
||
|
|
|
||
|
|
|
||
|
|
IOCTL:
|
||
|
|
.handle dd ?
|
||
|
|
.io_code dd ?
|
||
|
|
.input dd ?
|
||
|
|
.inp_size dd ?
|
||
|
|
.output dd ?
|
||
|
|
.out_size dd ?
|
||
|
|
|
||
|
|
drivernumber db ?
|
||
|
|
MAC dp ?
|
||
|
|
|
||
|
|
hardwareinfo:
|
||
|
|
.type db 1 ; pci
|
||
|
|
.pci_bus db ?
|
||
|
|
.pci_dev db ?
|
||
|
|
|
||
|
|
|
||
|
|
;------------------------------------------------------------------
|
||
|
|
; UNINITIALIZED DATA AREA
|
||
|
|
UDATA
|
||
|
|
|
||
|
|
type db ?
|
||
|
|
selected dw ?
|
||
|
|
V_Bus db ?
|
||
|
|
V_Dev db ?
|
||
|
|
PCI_Version dw ?
|
||
|
|
PCI_LastBus db ?
|
||
|
|
PCI_Vendor dw ?
|
||
|
|
PCI_Device dw ?
|
||
|
|
PCI_Bus db ?
|
||
|
|
PCI_Dev db ?
|
||
|
|
PCI_Rev db ?
|
||
|
|
; don`t change order!!!
|
||
|
|
PCI_Class db ?
|
||
|
|
PCI_SubClass db ?
|
||
|
|
PCI_Interface db ?
|
||
|
|
PCI_IRQ db ?
|
||
|
|
|
||
|
|
Proc_Info process_information
|
||
|
|
|
||
|
|
|
||
|
|
MEOS_APP_END
|