Subversion Repositories Kolibri OS

Rev

Rev 587 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 587 Rev 3630
Line 140... Line 140...
140
;                 * quantity of PCI buses,
140
;                 * quantity of PCI buses,
141
;                 * Vendor&Device ID for appropriate Device on Bus;
141
;                 * Vendor&Device ID for appropriate Device on Bus;
142
;                 * detect Revision, Class and Subclass of Device,
142
;                 * detect Revision, Class and Subclass of Device,
143
;                 * and make Description based on Class
143
;                 * and make Description based on Class
144
;-------------------------------------------------------------
144
;-------------------------------------------------------------
-
 
145
include 'lang.inc'
145
include	'macros.inc'
146
include	'macros.inc'
146
MEOS_APP_START
147
MEOS_APP_START
147
CODE
148
CODE
148
	call draw_window
149
	call draw_window
Line 409... Line 410...
409
	mcall	4,, 0x80000000,, 32	; draw the text
410
	mcall	4,, 0x80000000,, 32	; draw the text
410
	movzx	edx, bx		; get y coordinate
411
	movzx	edx, bx		; get y coordinate
411
	add	edx, 0x0014000A		; add 10 to y coordinate and set x coordinate to 20
412
	add	edx, 0x0014000A		; add 10 to y coordinate and set x coordinate to 20
412
	ret
413
	ret
Line 413... Line 414...
413
 
414
 
414
include	'VENDORS.INC'
415
include	'vendors.inc'
415
;------------------------------------------------------------------
416
;------------------------------------------------------------------
416
; DATA AREA
417
; DATA AREA
Line 417... Line 418...
417
DATA
418
DATA
418
 
419
 
419
 
420
 
420
Form:	dw 800 ; window width (no more, special for 800x600)
421
Form:	dw 800 ; window width (no more, special for 800x600)
Line -... Line 422...
-
 
422
	dw 100 ; window x start
-
 
423
	dw 420 ; window height
-
 
424
	dw 100 ; window y start
-
 
425
 
-
 
426
if lang eq it
-
 
427
title	db 'PCI Device Enumeration v 2.1n new PCI API test', 0
-
 
428
PCIWin mls \
-
 
429
	'Ricordarsi di abilitare l accesso alla PCI per le applicazioni dal menu.',\
-
 
430
	'',\
-
 
431
	'Versione PCI = x.xx',\
-
 
432
	'Ultimo Bus PCI = x',\
-
 
433
	'Numerod di devices =',\
-
 
434
	'',\
421
	dw 100 ; window x start
435
	'VenID DevID Bus# Dev# Fnc Rev  Class  Subclass/ IRQ                 Compania                     Descrizione',\
422
	dw 420 ; window height
-
 
423
	dw 100 ; window y start
436
	'                                      Interface',\
424
 
437
	'----- ----- ---- ---- --- ---  -----  --------- --- ------------------------------------------ ----------------'
425
title	db 'PCI Device Enumeration v 2.1n new PCI API test', 0
438
else
426
 
439
title	db 'PCI Device Enumeration v 2.1n new PCI API test', 0
427
PCIWin mls \
440
PCIWin mls \
428
	'Please remember to enable PCI Access to Applications in Setup Menu.',\
441
	'Please remember to enable PCI Access to Applications in Setup Menu.',\
429
	'',\
442
	'',\
430
	'PCI Version  = x.xx',\
443
	'PCI Version  = x.xx',\
431
	'Last PCI Bus = x',\
444
	'Last PCI Bus = x',\
432
	'Quantity of devices =',\
445
	'Quantity of devices =',\
433
	'',\
446
	'',\
434
	'VenID DevID Bus# Dev# Fnc Rev  Class  Subclass/ IRQ                 Company                      Description',\
447
	'VenID DevID Bus# Dev# Fnc Rev  Class  Subclass/ IRQ                 Company                      Description',\
435
	'                                      Interface',\
448
	'                                      Interface',\
436
	'----- ----- ---- ---- --- ---  -----  --------- --- ------------------------------------------ ----------------'
449
	'----- ----- ---- ---- --- ---  -----  --------- --- ------------------------------------------ ----------------'
Line 437... Line 450...
437
 
450
end if