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,0x0000ff00
	jg	load_drv

	cmp	ah, 4
	je	hook

	cmp	ah, 5
	je	reset

	cmp	ah, 6
	je	unload

	jmp	still


load_drv:
	shr	eax, 16
	mov	word [selected], ax

	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

	call	draw_window

	cmp	[IOCTL.handle], 0
	jne	still

	mcall	4, 20 shl 16 + 30, 1 shl 31 + 0x00ff0000 , load_error

	jmp	still


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

	jmp	still

reset:
	movzx	ebx, byte[drivernumber]
	mcall	73,,2

	jmp	still

unload:
	movzx	ebx, byte[drivernumber]
	mcall	73,,3

	jmp	still

draw_window:
	mcall	12, 1			; start of draw
	mcall	0, dword [Form], dword [Form + 4], 0x13ffffff, 0x805080d0, title

	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

	cmp	[selected], 0
	jz	.done
	cmp	[IOCTL.handle] ,0
	jz	.done

	mcall	8, 18 shl 16 + 100, 35 shl 16 + 18, 4, 0x00007f00
	mcall	,, 55 shl 16 + 18, 5, 0x0000007f
	mcall	,, 75 shl 16 + 18, 6, 0x007f0000

	mcall	4, 33 shl 16 + 42, 1 shl 31 + 0x00ffffff , btn_start
	mcall	, 33 shl 16 + 62, , btn_reset
	mcall	, 36 shl 16 + 82, , btn_stop

;        mcall   , 140 shl 16 + 62, 1 shl 31 + 0x00000000 , devicename

	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 device',0
btn_reset db 'Reset device',0
btn_stop db 'Stop device',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
load_error db 'Could not load driver!',0

devicename     db 'test'
rb 64
		db 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