forked from KolibriOS/kolibrios
PCIDEV port (use new PCI API)
git-svn-id: svn://kolibrios.org@587 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Iliya Mihailov (Ghost)
parent
a4f10b7565
commit
8df29f7be6
459
programs/system/pcidev/branches/new_api/PCIDEV.ASM
Normal file
459
programs/system/pcidev/branches/new_api/PCIDEV.ASM
Normal file
@ -0,0 +1,459 @@
|
|||||||
|
;***************************************************************
|
||||||
|
; project name: PCI Device Enumeration
|
||||||
|
; target platform: KolibriOS
|
||||||
|
; compiler: flat assmebler 1.66
|
||||||
|
; version: 2.1
|
||||||
|
; last update: April 2007
|
||||||
|
; maintained by: Jason Delozier (cordata51@hotmail.com)
|
||||||
|
; Sergey Kuzmin (kuzmin_serg@list.ru)
|
||||||
|
; Mihailov Ilia (ghost.nsk@gmail.com)
|
||||||
|
; project site: http://www.coolthemes.narod.ru/pcidev.html
|
||||||
|
;***************************************************************
|
||||||
|
;Summary: This program will attempt to scan the PCI Bus
|
||||||
|
; and display basic information about each device
|
||||||
|
; connected to the PCI Bus.
|
||||||
|
;***************************************************************
|
||||||
|
;HISTORY:
|
||||||
|
;keep dates in european format (dd/mm/yyyy), please
|
||||||
|
; '!' means big changes
|
||||||
|
;
|
||||||
|
;to-do:
|
||||||
|
; more vendors
|
||||||
|
; vendor's website
|
||||||
|
; Subsystem id and Subsystem vendor id detection
|
||||||
|
|
||||||
|
; Full device detection (like "ATI Radeon 9200") will increase app
|
||||||
|
; size a lot and probably it is function of particular drivers
|
||||||
|
;----------------------------------------------------------------
|
||||||
|
;2.1n: PCIDEV ??/04/2007
|
||||||
|
;Author: Mihailov Ilia aka Ghost <ghost.nsk@gmail.com>
|
||||||
|
;Features:
|
||||||
|
; added
|
||||||
|
; * new PCI API
|
||||||
|
;----------------------------------------------------------------
|
||||||
|
;2.1: PCIDEV ??/04/2007
|
||||||
|
;Author: Mihailov Ilia aka Ghost <ghost.nsk@gmail.com>
|
||||||
|
;Features:
|
||||||
|
; fixed
|
||||||
|
; * Same little bugs
|
||||||
|
; * Source code formating
|
||||||
|
; * PCI version normalized 0210 -> 2.10
|
||||||
|
; added
|
||||||
|
; * + 13 vendor (total now 1000!)
|
||||||
|
; * + 3 class type
|
||||||
|
; * Fast call source ready
|
||||||
|
; * Device IRQ detection
|
||||||
|
; optimized
|
||||||
|
; * ! size optimized (61025 -> 32501 see added)
|
||||||
|
; * easy to add new vendor & class names
|
||||||
|
;----------------------------------------------------------------
|
||||||
|
;2.0: PCIDEV 30/08/2006
|
||||||
|
;(it differs a lot from the version 1.0, which was introduced 19 months ago)
|
||||||
|
;Author: Marat Zakiyanov aka Mario79 <mario79@bk.ru>
|
||||||
|
; Sergey Kuzmin aka Wildwest <kuzmin_serg@list.ru>
|
||||||
|
;Features:
|
||||||
|
; added
|
||||||
|
; * Detection of Interface by Mario79
|
||||||
|
; * 122 vendor id's by Wildwest
|
||||||
|
; * Description is based on Class, SubClass and Interface now (PCI 3.0) by Wildwest
|
||||||
|
;----------------------------------------------------------------
|
||||||
|
;1.31: PCIDEV 13/05/2006
|
||||||
|
;Author: Jason Delozier <cordata51@hotmail.com>
|
||||||
|
;Features:
|
||||||
|
; fixed
|
||||||
|
; * ! bug in Company Name look up code that would cause Unknown Name errors.
|
||||||
|
; * ! possible bugs, many instructions missing byte, word, dword prefixes
|
||||||
|
; * ! possible bug which could have occured after removing "PREVIOUSVERSIONLIST"
|
||||||
|
; entry in loop up code and not fixing jump parameters.
|
||||||
|
; added
|
||||||
|
; * comments to various parts of the code
|
||||||
|
; optimized
|
||||||
|
; * various parts of the source, too many to remember and mention.
|
||||||
|
; * changed entries for Subclasses in vendors.inc to Byte format, saves a little space.
|
||||||
|
;----------------------------------------------------------------
|
||||||
|
;1.30: PCIDEV 11/05/2006
|
||||||
|
;Author: Sergey Kuzmin aka Wildwest <kuzmin_serg@list.ru>
|
||||||
|
;Features:
|
||||||
|
; added
|
||||||
|
; * 3 new vendor id's (ESS from Madis Kalme and 2 id's
|
||||||
|
; forgotten from 1.15 release: Broadcom -SiByte and Chaintech Comp.)
|
||||||
|
; changed
|
||||||
|
; * I don't know why other devs (Jason or Victor) changed window style
|
||||||
|
; to old ugly one, so I changed it back to skinned type 3.
|
||||||
|
; * the same goes to the use of macroc.inc - it is enabled again.
|
||||||
|
; deleted
|
||||||
|
; * there is no more label "PREVIOUSVERSIONLIST" - id's moved to the
|
||||||
|
; appropriate parts of global list.
|
||||||
|
;----------------------------------------------------------------
|
||||||
|
;1.29: PCIDEV 30/04/2006
|
||||||
|
;Author: Jason Delozier <cordata51@hotmail.com>
|
||||||
|
;Features:
|
||||||
|
; fixed
|
||||||
|
; * ! bug that would not allow devices with device
|
||||||
|
; numbers > 16 to be displayed.
|
||||||
|
; added
|
||||||
|
; * ! another heading called "FNC" (function) which allows
|
||||||
|
; the multipurpose Device/Function varible to be split and
|
||||||
|
; displayed to the user properly.
|
||||||
|
; * horizontal bars to display for easier reading.
|
||||||
|
; optimized
|
||||||
|
; * vendor/description search routines for speed and space.
|
||||||
|
;----------------------------------------------------------------
|
||||||
|
;1.25: PCIDEV 02/10/2005
|
||||||
|
;Author: Sergey Kuzmin aka Wildwest <kuzmin_serg@list.ru>
|
||||||
|
;Features:
|
||||||
|
; changed
|
||||||
|
; * ! Description is based on Class and SubClass
|
||||||
|
; now (PCI 3.0). The Names of Classes and SubClasses
|
||||||
|
; are in the end of Vendors.inc
|
||||||
|
; deleted
|
||||||
|
; * label "Descriptions" (names of Classes)
|
||||||
|
;
|
||||||
|
;----------------------------------------------------------------
|
||||||
|
;1.20: PCIDEV 16/08/2005
|
||||||
|
;Author: Victor Alberto Gil Hanla a.k.a. vhanla <vhanla@gmail.com>
|
||||||
|
;Features:
|
||||||
|
; added
|
||||||
|
; * ! many vendor lists (865)
|
||||||
|
; deleted
|
||||||
|
; * previous version's list
|
||||||
|
; changed
|
||||||
|
; * previous Company Name searching and printing
|
||||||
|
;----------------------------------------------------------------
|
||||||
|
;1.15: PCIDEV 03/06/2005
|
||||||
|
;Author: Sergey Kuzmin aka Wildwest <kuzmin_serg@list.ru>
|
||||||
|
;Features:
|
||||||
|
; added
|
||||||
|
; * quantity of devices,
|
||||||
|
; * ! detection of Company Name based on Vendor ID,
|
||||||
|
; * database of VenID (35 ID's),
|
||||||
|
; * macros.inc for smaller size,
|
||||||
|
; changed
|
||||||
|
; * interface+(skinned window),
|
||||||
|
; * VenID before DevID in 'table'(was DevID before VenID)
|
||||||
|
;----------------------------------------------------------------
|
||||||
|
;1.0: PCIDEV 30/01/2005
|
||||||
|
;Author: Jason Delozier
|
||||||
|
;Features:
|
||||||
|
; able to
|
||||||
|
; * detect PCI version,
|
||||||
|
; * quantity of PCI buses,
|
||||||
|
; * Vendor&Device ID for appropriate Device on Bus;
|
||||||
|
; * detect Revision, Class and Subclass of Device,
|
||||||
|
; * and make Description based on Class
|
||||||
|
;-------------------------------------------------------------
|
||||||
|
include 'macros.inc'
|
||||||
|
MEOS_APP_START
|
||||||
|
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.x_start]; store the window coordinates into the Form Structure
|
||||||
|
mov [Form + 2], ax ; x start position
|
||||||
|
mov eax, [Proc_Info.y_start];
|
||||||
|
mov [Form + 6], ax ; ystart position
|
||||||
|
mov eax, [Proc_Info.x_size] ;
|
||||||
|
mov [Form], ax ; window width
|
||||||
|
mov eax, [Proc_Info.y_size] ;
|
||||||
|
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 still
|
||||||
|
mcall -1 ; close this program
|
||||||
|
|
||||||
|
draw_window:
|
||||||
|
mov byte [total], 0
|
||||||
|
mcall 12, 1 ; start of draw
|
||||||
|
; DRAW WINDOW
|
||||||
|
mcall 0, dword [Form], dword [Form + 4], 0x13ffffff, 0x805080d0, title
|
||||||
|
; Insert horizontal bars in list area
|
||||||
|
mov eax, 13 ; draw bar system function
|
||||||
|
mov ebx, 18 ; set Xstart position of bar
|
||||||
|
shl ebx, 16 ;
|
||||||
|
mov bx, word [Form] ; get width of window
|
||||||
|
sub bx, 32 ; bar is 32 pixels shorter then window width
|
||||||
|
mov ecx, 119 * 65536 + 10 ; set Ystart(109) and Height(10) of bar 109
|
||||||
|
mov edx, 0xC0C0C0 ; set color of bar
|
||||||
|
again: ;begin draw bar loop
|
||||||
|
mcall ; draw bar to window area
|
||||||
|
shr ecx, 16 ; move the Ystart position to working area
|
||||||
|
add ecx, 34 ; add 34 pixels to Y Start (moves bar down)
|
||||||
|
cmp cx, word [Form + 4] ; is the Ystart position outside of window area
|
||||||
|
jae nomo ; if so stop drawing bars
|
||||||
|
sub ecx, 14 ; if not, we only need 20 pixels between bar tops
|
||||||
|
shl ecx, 16 ; set that values as Ystart
|
||||||
|
add ecx, 10 ; Bar Height is always 10 pixels
|
||||||
|
jmp again ; draw another bar
|
||||||
|
nomo: ;done drawing bars here
|
||||||
|
; start PCI stuff
|
||||||
|
call Get_PCI_Info ; get pci version and last bus, scan for and draw each pci device
|
||||||
|
|
||||||
|
; Window inteface
|
||||||
|
mov cx, [PCI_Version]
|
||||||
|
add ch, '0'
|
||||||
|
mov [PCIWin + 85], ch ; 0xBADCODE but it work !
|
||||||
|
mov ch, cl
|
||||||
|
shr cl, 4
|
||||||
|
and ch, 0x0f
|
||||||
|
add cx, '00'
|
||||||
|
mov [PCIWin + 87], cx
|
||||||
|
mov cl, [PCI_LastBus]
|
||||||
|
add cl, '0'
|
||||||
|
mov [PCIWin + 105], cl
|
||||||
|
|
||||||
|
mov edx, PCIWin
|
||||||
|
mov ebx, 20 * 65536 + 25 ; x start, ystart of text
|
||||||
|
mov ecx, 0x224466 ; color of text
|
||||||
|
mov eax, 4
|
||||||
|
@@: movzx esi, byte[edx]
|
||||||
|
inc edx
|
||||||
|
mcall
|
||||||
|
add ebx, 10
|
||||||
|
add edx, esi
|
||||||
|
cmp byte[edx], -1
|
||||||
|
jne @b
|
||||||
|
; Quantity of devices...
|
||||||
|
movzx ecx, byte [total] ; number to draw
|
||||||
|
mcall 47, 0x00020000,,150 * 65536 + 65, 0x224466
|
||||||
|
|
||||||
|
mcall 12, 2 ; end of draw
|
||||||
|
ret
|
||||||
|
|
||||||
|
;------------------------------------------------------------------
|
||||||
|
;* Gets the PCI Version and Last Bus
|
||||||
|
Get_PCI_Info:
|
||||||
|
mov ebp, 1
|
||||||
|
mcall 57
|
||||||
|
mov word [PCI_Version], bx
|
||||||
|
mov byte [PCI_LastBus], cl
|
||||||
|
;----------------------------------------------------------
|
||||||
|
;* Get all devices on PCI Bus
|
||||||
|
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 ;
|
||||||
|
mov edx, 20 * 65536 + 110 ; set start write position
|
||||||
|
Start_Enum:
|
||||||
|
mov ebp, 0x0a ; get a dword
|
||||||
|
xor edi, edi ; offset to device/vendor id
|
||||||
|
mov bh, byte [V_Bus] ; bus of pci device
|
||||||
|
mov bl, byte [V_Dev] ; device number/function
|
||||||
|
mcall 57 ; get ID's
|
||||||
|
cmp cx, 0 ; Vendor ID should not be 0 or 0xFFFF
|
||||||
|
je nextDev ; check next device if nothing exists here
|
||||||
|
cmp cx, 0xffff ;
|
||||||
|
je nextDev ;
|
||||||
|
mov word [PCI_Vendor], cx ; There is a device here, save the ID's
|
||||||
|
shr ecx, 16 ;
|
||||||
|
mov word [PCI_Device], cx ;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
mov ebp, 8 ; Read config byte
|
||||||
|
mov bh, byte [V_Bus] ; Bus #
|
||||||
|
mov bl, byte [V_Dev] ; Device # on bus
|
||||||
|
mov edi, 0x08 ; Register to read (Get Revision)
|
||||||
|
mcall 57 ; Read it
|
||||||
|
mov byte [PCI_Rev], cl ; Save it
|
||||||
|
|
||||||
|
mov edi, 0x0b ; Register to read (Get class)
|
||||||
|
mcall 57 ; Read it
|
||||||
|
mov byte [PCI_Class], cl ; Save it
|
||||||
|
|
||||||
|
mov edi, 0x0a ; Register to read (Get Subclass)
|
||||||
|
mcall 57 ; Read it
|
||||||
|
mov byte [PCI_SubClass], cl; Save it
|
||||||
|
; from Mario79 august 2006
|
||||||
|
mov edi, 0x09 ; Register to read (Get Interface)
|
||||||
|
mcall 57 ; Read it
|
||||||
|
mov [PCI_Interface], cl ; Save it
|
||||||
|
;
|
||||||
|
; from Ghost april 2007
|
||||||
|
mov edi, 0x3c ; Register to read (Get IRQ)
|
||||||
|
mcall 57 ; Read it
|
||||||
|
mov [PCI_IRQ], cl ; Save it
|
||||||
|
;
|
||||||
|
inc byte [total] ; one more device found
|
||||||
|
call Print_New_Device ; print device info to screen
|
||||||
|
nextDev:
|
||||||
|
inc byte [V_Dev] ; next device on this bus
|
||||||
|
jnz Start_Enum ; jump until we reach zero
|
||||||
|
;(used to be JNO which caused bug!!! 30-4-2006, JMD)
|
||||||
|
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:
|
||||||
|
xor esi, esi ; Color of text
|
||||||
|
movzx ecx,word [PCI_Vendor] ; Pointer to number to be written
|
||||||
|
mcall 47, 0x00040100 ; Write Vendor ID
|
||||||
|
and edx, 0xFFFF ;*****************************************
|
||||||
|
or edx, 54 * 65536 ; X start becomes 54
|
||||||
|
movzx ecx, word [PCI_Device] ; get Vendor ID
|
||||||
|
mcall ; Draw Vendor ID to Window
|
||||||
|
and edx, 0xFFFF ;*****************************************
|
||||||
|
or edx, 98 * 65536 ; X start becomes 98
|
||||||
|
movzx ecx, byte [V_Bus] ; get bus number
|
||||||
|
mcall ,0x00020100 ; draw bus number to screen
|
||||||
|
and edx, 0xFFFF ;*****************************************
|
||||||
|
or edx, 128 * 65536 ; X start becomes 128
|
||||||
|
movzx ecx, byte [V_Dev] ; get device number
|
||||||
|
shr ecx, 3 ; device number is bits 3-7
|
||||||
|
mcall ; Draw device Number To Window
|
||||||
|
|
||||||
|
and edx, 0xFFFF ;*****************************************
|
||||||
|
or edx, 155 * 65536 ; X start becomes 155
|
||||||
|
movzx ecx, byte [V_Dev] ; get Function number
|
||||||
|
and ecx, 7 ; function is first 3 bits
|
||||||
|
mcall ; Draw Function Number To Window
|
||||||
|
and edx, 0xFFFF ;*****************************************
|
||||||
|
or edx, 179 * 65536 ; X start becomes 179
|
||||||
|
movzx ecx, byte [PCI_Rev] ; get revision number
|
||||||
|
mcall ; Draw Revision to screen
|
||||||
|
and edx, 0xFFFF ;*****************************************
|
||||||
|
or edx, 215*65536 ; X start becomes 215
|
||||||
|
movzx ecx, byte [PCI_Class] ; get PCI_Class
|
||||||
|
mcall ; Draw Class to screen
|
||||||
|
and edx, 0xFFFF ;*****************************************
|
||||||
|
or edx, 250*65536 ; X start becomes 250
|
||||||
|
movzx ecx, byte [PCI_SubClass]; get sub class
|
||||||
|
mcall ; Draw Sub Class to screen
|
||||||
|
; from Mario79 august 2006
|
||||||
|
and edx, 0xFFFF ;*****************************************
|
||||||
|
or edx, 280 * 65536 ; X start becomes 280
|
||||||
|
movzx ecx, [PCI_Interface] ; get Interface
|
||||||
|
mcall
|
||||||
|
;
|
||||||
|
; from Ghost april 2007 ;*****************************************
|
||||||
|
movzx ecx, [PCI_IRQ] ; get Interface
|
||||||
|
cmp cl, 0x0f ; IRQ between 0..15
|
||||||
|
ja @f
|
||||||
|
and edx, 0xFFFF
|
||||||
|
or edx, 310 * 65536 ; X start becomes 310
|
||||||
|
mcall
|
||||||
|
@@:
|
||||||
|
;
|
||||||
|
;Write Names
|
||||||
|
movzx ebx, dx ; Set y position
|
||||||
|
or ebx, 340*65536 ; set Xposition to 340
|
||||||
|
|
||||||
|
;------------------------------------------------------------------
|
||||||
|
; Prints the Vendor's Name based on Vendor ID
|
||||||
|
;
|
||||||
|
; Modified on ??-04-2007 by Ghost for size
|
||||||
|
;------------------------------------------------------------------
|
||||||
|
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
|
||||||
|
;
|
||||||
|
; Modified on ??-04-2007 by Ghost for size
|
||||||
|
;------------------------------------------------------------------
|
||||||
|
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]
|
||||||
|
@@:
|
||||||
|
and ebx, 0x0000FFFF ; clear X position
|
||||||
|
or ebx, 0x24E0000 ; set X position to 590 pixels
|
||||||
|
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
|
||||||
|
ret
|
||||||
|
|
||||||
|
include 'VENDORS.INC'
|
||||||
|
;------------------------------------------------------------------
|
||||||
|
; DATA AREA
|
||||||
|
DATA
|
||||||
|
|
||||||
|
|
||||||
|
Form: dw 800 ; window width (no more, special for 800x600)
|
||||||
|
dw 100 ; window x start
|
||||||
|
dw 420 ; window height
|
||||||
|
dw 100 ; window y start
|
||||||
|
|
||||||
|
title db 'PCI Device Enumeration v 2.1n new PCI API test', 0
|
||||||
|
|
||||||
|
PCIWin mls \
|
||||||
|
'Please remember to enable PCI Access to Applications in Setup Menu.',\
|
||||||
|
'',\
|
||||||
|
'PCI Version = x.xx',\
|
||||||
|
'Last PCI Bus = x',\
|
||||||
|
'Quantity of devices =',\
|
||||||
|
'',\
|
||||||
|
'VenID DevID Bus# Dev# Fnc Rev Class Subclass/ IRQ Company Description',\
|
||||||
|
' Interface',\
|
||||||
|
'----- ----- ---- ---- --- --- ----- --------- --- ------------------------------------------ ----------------'
|
||||||
|
|
||||||
|
;------------------------------------------------------------------
|
||||||
|
; UNINITIALIZED DATA AREA
|
||||||
|
UDATA
|
||||||
|
|
||||||
|
total db ?
|
||||||
|
V_Bus db ?
|
||||||
|
V_Dev db ?
|
||||||
|
PCI_Version dw ?
|
||||||
|
PCI_LastBus db ?
|
||||||
|
PCI_Device dw ?
|
||||||
|
PCI_Vendor 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
|
||||||
2
programs/system/pcidev/branches/new_api/build.bat
Normal file
2
programs/system/pcidev/branches/new_api/build.bat
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
@fasm pcidev.asm pcidev
|
||||||
|
@pause
|
||||||
356
programs/system/pcidev/branches/new_api/macros.inc
Normal file
356
programs/system/pcidev/branches/new_api/macros.inc
Normal file
@ -0,0 +1,356 @@
|
|||||||
|
|
||||||
|
;~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
|
||||||
|
macro iglobal {
|
||||||
|
IGlobals equ IGlobals,
|
||||||
|
macro __IGlobalBlock { }
|
||||||
|
|
||||||
|
macro uglobal {
|
||||||
|
UGlobals equ UGlobals,
|
||||||
|
macro __UGlobalBlock { }
|
||||||
|
|
||||||
|
endg fix } ; Use endg for ending iglobal and uglobal blocks.
|
||||||
|
|
||||||
|
|
||||||
|
macro IncludeIGlobals{
|
||||||
|
macro IGlobals dummy,[n] \{ __IGlobalBlock
|
||||||
|
purge __IGlobalBlock \}
|
||||||
|
match I, IGlobals \{ I \} }
|
||||||
|
|
||||||
|
macro IncludeUGlobals{
|
||||||
|
macro UGlobals dummy,[n] \{
|
||||||
|
\common
|
||||||
|
\local begin, size
|
||||||
|
begin = $
|
||||||
|
virtual at $
|
||||||
|
\forward
|
||||||
|
__UGlobalBlock
|
||||||
|
purge __UGlobalBlock
|
||||||
|
\common
|
||||||
|
size = $ - begin
|
||||||
|
end virtual
|
||||||
|
rb size
|
||||||
|
\}
|
||||||
|
match U, UGlobals \{ U \} }
|
||||||
|
|
||||||
|
uglobal
|
||||||
|
endg
|
||||||
|
|
||||||
|
iglobal
|
||||||
|
endg
|
||||||
|
|
||||||
|
;~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
|
||||||
|
; new application structure
|
||||||
|
macro meos_app_start
|
||||||
|
{
|
||||||
|
use32
|
||||||
|
org 0x0
|
||||||
|
|
||||||
|
db 'MENUET01'
|
||||||
|
dd 0x01
|
||||||
|
dd __start
|
||||||
|
dd __end
|
||||||
|
dd __memory
|
||||||
|
dd __stack
|
||||||
|
|
||||||
|
if used __params & ~defined __params
|
||||||
|
dd __params
|
||||||
|
else
|
||||||
|
dd 0x0
|
||||||
|
end if
|
||||||
|
|
||||||
|
dd 0x0
|
||||||
|
}
|
||||||
|
MEOS_APP_START fix meos_app_start
|
||||||
|
|
||||||
|
macro code
|
||||||
|
{
|
||||||
|
__start:
|
||||||
|
}
|
||||||
|
CODE fix code
|
||||||
|
|
||||||
|
macro data
|
||||||
|
{
|
||||||
|
__data:
|
||||||
|
IncludeIGlobals
|
||||||
|
}
|
||||||
|
DATA fix data
|
||||||
|
|
||||||
|
macro udata
|
||||||
|
{
|
||||||
|
if used __params & ~defined __params
|
||||||
|
__params:
|
||||||
|
db 0
|
||||||
|
__end:
|
||||||
|
rb 255
|
||||||
|
else
|
||||||
|
__end:
|
||||||
|
end if
|
||||||
|
__udata:
|
||||||
|
IncludeUGlobals
|
||||||
|
}
|
||||||
|
UDATA fix udata
|
||||||
|
|
||||||
|
macro meos_app_end
|
||||||
|
{
|
||||||
|
align 32
|
||||||
|
rb 2048
|
||||||
|
__stack:
|
||||||
|
__memory:
|
||||||
|
}
|
||||||
|
MEOS_APP_END fix meos_app_end
|
||||||
|
|
||||||
|
|
||||||
|
; macro for defining multiline text data
|
||||||
|
struc mstr [sstring]
|
||||||
|
{
|
||||||
|
forward
|
||||||
|
local ssize
|
||||||
|
virtual at 0
|
||||||
|
db sstring
|
||||||
|
ssize = $
|
||||||
|
end virtual
|
||||||
|
dd ssize
|
||||||
|
db sstring
|
||||||
|
common
|
||||||
|
dd -1
|
||||||
|
}
|
||||||
|
|
||||||
|
; macro for defining multiline text data
|
||||||
|
struc mls [sstring] {
|
||||||
|
forward
|
||||||
|
local ssize
|
||||||
|
virtual at 0
|
||||||
|
db sstring ; mod
|
||||||
|
ssize = $
|
||||||
|
end virtual
|
||||||
|
db ssize
|
||||||
|
db sstring
|
||||||
|
common
|
||||||
|
|
||||||
|
db -1 ; mod
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; strings
|
||||||
|
macro sz name,[data] { ; from MFAR [mike.dld]
|
||||||
|
common
|
||||||
|
if used name
|
||||||
|
label name
|
||||||
|
end if
|
||||||
|
forward
|
||||||
|
if used name
|
||||||
|
db data
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
if used name
|
||||||
|
.size = $-name
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
||||||
|
common
|
||||||
|
if used name
|
||||||
|
label name
|
||||||
|
end if
|
||||||
|
forward
|
||||||
|
if (used name)&(lang eq lng)
|
||||||
|
db data
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
if used name
|
||||||
|
.size = $-name
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; easy system call macro
|
||||||
|
macro mpack dest, hsrc, lsrc
|
||||||
|
{
|
||||||
|
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
||||||
|
mov dest, (hsrc) shl 16 + lsrc
|
||||||
|
else
|
||||||
|
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
||||||
|
mov dest, (hsrc) shl 16
|
||||||
|
add dest, lsrc
|
||||||
|
else
|
||||||
|
mov dest, hsrc
|
||||||
|
shl dest, 16
|
||||||
|
add dest, lsrc
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro __mov reg,a,b { ; mike.dld
|
||||||
|
if (~a eq)&(~b eq)
|
||||||
|
mpack reg,a,b
|
||||||
|
else if (~a eq)&(b eq)
|
||||||
|
mov reg,a
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
__CPU_type equ p5
|
||||||
|
SYSENTER_VAR equ 0
|
||||||
|
|
||||||
|
macro mcall a,b,c,d,e,f { ; mike.dld, updated by Ghost for Fast System Calls
|
||||||
|
local ..ret_point
|
||||||
|
__mov eax,a
|
||||||
|
__mov ebx,b
|
||||||
|
__mov ecx,c
|
||||||
|
__mov edx,d
|
||||||
|
__mov esi,e
|
||||||
|
__mov edi,f
|
||||||
|
|
||||||
|
if __CPU_type eq p5
|
||||||
|
int 0x40
|
||||||
|
else
|
||||||
|
if __CPU_type eq p6
|
||||||
|
push ebp
|
||||||
|
mov ebp, esp
|
||||||
|
push ..ret_point ; it may be 2 or 5 byte
|
||||||
|
sysenter
|
||||||
|
..ret_point:
|
||||||
|
pop edx
|
||||||
|
pop ecx
|
||||||
|
|
||||||
|
else
|
||||||
|
if __CPU_type eq k6
|
||||||
|
push ecx
|
||||||
|
syscall
|
||||||
|
pop ecx
|
||||||
|
else
|
||||||
|
display 'ERROR : unknown CPU type'
|
||||||
|
int 0x40
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; optimize the code for size
|
||||||
|
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
||||||
|
|
||||||
|
macro add arg1,arg2
|
||||||
|
{
|
||||||
|
if (arg2 eqtype 0)
|
||||||
|
if (arg2) = 1
|
||||||
|
inc arg1
|
||||||
|
else
|
||||||
|
add arg1,arg2
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
add arg1,arg2
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro sub arg1,arg2
|
||||||
|
{
|
||||||
|
if (arg2 eqtype 0)
|
||||||
|
if (arg2) = 1
|
||||||
|
dec arg1
|
||||||
|
else
|
||||||
|
sub arg1,arg2
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
sub arg1,arg2
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro mov arg1,arg2
|
||||||
|
{
|
||||||
|
if (arg1 in __regs) & ((arg2 eqtype 0) | (arg2 eqtype '0'))
|
||||||
|
if (arg2) = 0
|
||||||
|
xor arg1,arg1
|
||||||
|
else if (arg2) = 1
|
||||||
|
xor arg1,arg1
|
||||||
|
inc arg1
|
||||||
|
else if (arg2) = -1
|
||||||
|
or arg1,-1
|
||||||
|
else if (arg2) > -128 & (arg2) < 128
|
||||||
|
push arg2
|
||||||
|
pop arg1
|
||||||
|
else
|
||||||
|
mov arg1,arg2
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
mov arg1,arg2
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
macro struct name
|
||||||
|
{
|
||||||
|
virtual at 0
|
||||||
|
name name
|
||||||
|
sizeof.#name = $ - name
|
||||||
|
end virtual
|
||||||
|
}
|
||||||
|
|
||||||
|
; structures used in MeOS
|
||||||
|
struc process_information
|
||||||
|
{
|
||||||
|
.cpu_usage dd ? ; +0
|
||||||
|
.window_stack_position dw ? ; +4
|
||||||
|
.window_stack_value dw ? ; +6
|
||||||
|
.not_used1 dw ? ; +8
|
||||||
|
.process_name rb 12 ; +10
|
||||||
|
.memory_start dd ? ; +22
|
||||||
|
.used_memory dd ? ; +26
|
||||||
|
.PID dd ? ; +30
|
||||||
|
.x_start dd ? ; +34
|
||||||
|
.y_start dd ? ; +38
|
||||||
|
.x_size dd ? ; +42
|
||||||
|
.y_size dd ? ; +46
|
||||||
|
.slot_state dw ? ; +50
|
||||||
|
dw ? ; +52 - reserved
|
||||||
|
.client_left dd ? ; +54
|
||||||
|
.client_top dd ? ; +58
|
||||||
|
.client_width dd ? ; +62
|
||||||
|
.client_height dd ? ; +66
|
||||||
|
.wnd_state db ? ; +70
|
||||||
|
rb (1024-71)
|
||||||
|
}
|
||||||
|
struct process_information
|
||||||
|
|
||||||
|
struc system_colors
|
||||||
|
{
|
||||||
|
.frame dd ?
|
||||||
|
.grab dd ?
|
||||||
|
.grab_button dd ?
|
||||||
|
.grab_button_text dd ?
|
||||||
|
.grab_text dd ?
|
||||||
|
.work dd ?
|
||||||
|
.work_button dd ?
|
||||||
|
.work_button_text dd ?
|
||||||
|
.work_text dd ?
|
||||||
|
.work_graph dd ?
|
||||||
|
}
|
||||||
|
struct system_colors
|
||||||
|
|
||||||
|
|
||||||
|
; constants
|
||||||
|
|
||||||
|
; events
|
||||||
|
EV_IDLE = 0
|
||||||
|
EV_TIMER = 0
|
||||||
|
EV_REDRAW = 1
|
||||||
|
EV_KEY = 2
|
||||||
|
EV_BUTTON = 3
|
||||||
|
EV_EXIT = 4
|
||||||
|
EV_BACKGROUND = 5
|
||||||
|
EV_MOUSE = 6
|
||||||
|
EV_IPC = 7
|
||||||
|
EV_STACK = 8
|
||||||
|
|
||||||
|
; event mask bits for function 40
|
||||||
|
EVM_REDRAW = 1b
|
||||||
|
EVM_KEY = 10b
|
||||||
|
EVM_BUTTON = 100b
|
||||||
|
EVM_EXIT = 1000b
|
||||||
|
EVM_BACKGROUND = 10000b
|
||||||
|
EVM_MOUSE = 100000b
|
||||||
|
EVM_IPC = 1000000b
|
||||||
|
EVM_STACK = 10000000b
|
||||||
1228
programs/system/pcidev/branches/new_api/vendors.inc
Normal file
1228
programs/system/pcidev/branches/new_api/vendors.inc
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user