Subversion Repositories Kolibri OS

Rev

Rev 1985 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1356 diamond 1
;***************************************************************
132 diamond 2
; project name:    PCI Device Enumeration
475 Ghost 3
; target platform: KolibriOS
1351 art_zh 4
; compiler:        flat assembler 1.68
1982 mario79 5
; version:         2.3
1993 mario79 6
; last update:     Jule 2011
1983 yogev_ezra 7
; maintained by:   Jason Delozier 
8
;                  Sergey Kuzmin 
9
;                  Mihailov Ilia 
1982 mario79 10
;                  Marat Zakiyanov 
1983 yogev_ezra 11
;                  Artem Jerdev  
12
;                  Evgeny Grechnikov (diamond)
13
;                  Veronica (CleverMouse)
1982 mario79 14
; old project site:  http://www.coolthemes.narod.ru/pcidev.html
15
; new project site:  http://board.kolibrios.org/viewtopic.php?f=42&t=73
132 diamond 16
;***************************************************************
17
;Summary: This program will attempt to scan the PCI Bus
18
;        and display basic information about each device
19
;        connected to the PCI Bus.
20
;***************************************************************
1982 mario79 21
;-----------------------------------------------------------------------------
1364 diamond 22
include '../../../macros.inc'
1351 art_zh 23
 
1982 mario79 24
include	'../../../develop/libraries/box_lib/load_lib.mac'
25
;-----------------------------------------------------------------------------
26
	use32
27
	org 0x0
28
	db 'MENUET01'	; 8 byte id
29
	dd 0x01		; header version
30
	dd START	; start of code
31
	dd IM_END	; size of image
32
	dd I_END	; memory for app
33
	dd stacktop	; esp
34
	dd 0	; I_Param
1983 yogev_ezra 35
	dd path		; APPLICATION PATH
1982 mario79 36
;-----------------------------------------------------------------------------
37
@use_library	; load_lib macro
38
;-----------------------------------------------------------------------------
39
START:
40
	mcall	68,11
41
	mcall	66,1,1
42
;-----------------------------------------------------------------------------
43
load_libraries l_libs_start,end_l_libs
44
;-----------------------------------------------------------------------------
45
;OpenDialog	initialisation
46
	push    dword OpenDialog_data
47
	call    [OpenDialog_Init]
48
 
49
	mov	edi,filename_area
50
	mov	esi,start_temp_file_name
51
	call	copy_file_name_path
52
;-----------------------------------------------------------------------------
1984 mario79 53
	mcall	68,12,4096*4 ; 16 Kb - I hope this will be enough for store of data
1982 mario79 54
	mov	[store_text_area_start],eax
55
;-----------------------------------------------------------------------------
475 Ghost 56
	call draw_window
1982 mario79 57
still:
58
	mcall	10			; wait here for event
475 Ghost 59
	dec	eax			; redraw request ?
60
	jz	red
61
	dec	eax			; key in buffer ?
62
	jz	key
63
	dec	eax			; button in buffer ?
64
	jz	button
65
	jmp	still
1982 mario79 66
;-----------------------------------------------------------------------------
475 Ghost 67
red:					; redraw
68
	mcall	9, Proc_Info, -1	; window redraw requested so get new window coordinates and size
485 heavyiron 69
	mov	eax, [Proc_Info.box.left]; store the window coordinates into the Form Structure
475 Ghost 70
	mov	[Form + 2], ax		; x start position
485 heavyiron 71
	mov	eax, [Proc_Info.box.top];
475 Ghost 72
	mov	[Form + 6], ax		; ystart position
485 heavyiron 73
	mov	eax, [Proc_Info.box.width]	;
475 Ghost 74
	mov	[Form], ax		; window width
485 heavyiron 75
	mov	eax, [Proc_Info.box.height]	;
475 Ghost 76
	mov	[Form + 4] ,ax		; window height
77
	call	draw_window		; go redraw window now
78
	jmp	still
1982 mario79 79
;-----------------------------------------------------------------------------
475 Ghost 80
key:					; key
81
	mcall	2			; just read it and ignore
1982 mario79 82
	cmp	[extended_key],1
83
	je	.extended_key
84
	test	al, al
85
	jnz	still
86
	cmp	ah, 0xE0
87
	jne	@f
88
	mov	[extended_key],1
475 Ghost 89
	jmp	still
1982 mario79 90
@@:
91
	cmp	ah,129	; Esc
92
	je	button.exit
93
	cmp	ah,159
94
	je	call_OpenDialog
95
	jmp	still
96
.extended_key:
97
	mov	[extended_key],0
98
	cmp	ah,129	; Esc
99
	je	button.exit
100
	cmp	ah,159
101
	je	call_OpenDialog
102
	jmp	still
103
;-----------------------------------------------------------------------------
1351 art_zh 104
button: 				; button
475 Ghost 105
	mcall	17			; get id
1982 mario79 106
	cmp	ah,2
107
	je	call_OpenDialog
475 Ghost 108
	cmp	ah, 1			; button id = 1 ?
109
	jne	still
1982 mario79 110
.exit:
475 Ghost 111
	mcall	-1			; close this program
1982 mario79 112
;-----------------------------------------------------------------------------
113
call_OpenDialog:
114
	mov	[OpenDialog_data.type],1	; Save
115
 
116
	push    dword OpenDialog_data
117
	call    [OpenDialog_Start]
132 diamond 118
 
1982 mario79 119
	cmp	[OpenDialog_data.status],2	; OpenDialog does not start
120
	je	.save_file_default_path
121
 
122
	cmp	[OpenDialog_data.status],1
123
	jne	still
124
 
125
	call	store_data
126
	jmp	still
127
;----------------------------------------
128
.save_file_default_path:
129
	mov	edi,file_name
130
	mov	esi,file_default_path
131
	call	copy_file_name_path
132
	call	store_data
133
	jmp	still
134
;----------------------------------------
135
copy_file_name_path:
136
	xor	eax,eax
137
	cld
138
@@:
139
	lodsb
140
	stosb
141
	test	eax,eax
142
	jnz	@r
143
	ret
144
;-----------------------------------------------------------------------------
145
prepare_text_area:
146
	mov	edi,[store_text_area_start]
147
 
148
	push	edi
1984 mario79 149
	mov	ecx,4096 ; 16 Kb - I hope this will be enough for store of data
1982 mario79 150
	mov	eax,dword '    '
151
	cld
152
	rep	stosd
153
	pop	edi
154
 
155
	mov	esi,PCIWin
156
	xor	ecx,ecx
157
@@:
158
	mov	cl,[esi]
159
	inc	esi
160
	rep	movsb
161
	mov	al,0Ah ; CR - carriage return
162
	stosb
163
	cmp	[esi],byte 0xFF
164
	jne	@r
165
 
166
	mov	[store_text_area_end],edi
167
 
168
	xor	edi,edi
169
	ret
170
;-----------------------------------------------------------------------------
132 diamond 171
draw_window:
1982 mario79 172
	call	prepare_text_area
173
 
475 Ghost 174
	mov	byte [total], 0
175
	mcall	12, 1			; start of draw
176
	; DRAW WINDOW
1982 mario79 177
	mcall	0,dword [Form],dword [Form + 4],0x13ffffff,0x805080d0,title
178
	mcall	8,<450,100>,<25,25>,2,0xC0C0C0
179
	shr	ecx,16
180
	mov	bx,cx
181
	add	ebx,13 shl 16+4
182
	mcall	4,,0x80000000,text_save_button
183
	add	bx,11
184
	mcall	,,,text_save_button.1
475 Ghost 185
	; Insert horizontal bars  in list area
1351 art_zh 186
	mov	eax, 13 		; draw bar system function
187
	mov	ebx, 18 		; set Xstart position of bar
188
	shl	ebx, 16 		;
189
	mov	bx, word [Form] ; get width of window
475 Ghost 190
	sub	bx, 32			; bar is 32 pixels shorter then window width
191
	mov	ecx, 119 * 65536 + 10	; set Ystart(109) and Height(10) of bar   109
192
	mov	edx, 0xC0C0C0		; set color of bar
193
again:	;begin draw bar loop
194
	mcall				; draw bar to window area
1351 art_zh 195
	shr	ecx, 16 		; move the Ystart position to working area
196
	add	ecx, 34 		; add 34 pixels to Y Start (moves bar down)
475 Ghost 197
	cmp	cx, word [Form + 4]	; is the Ystart position outside of window area
198
	jae	nomo			; if so stop drawing bars
1351 art_zh 199
	sub	ecx, 14 		; if not, we only need 20 pixels between bar tops
200
	shl	ecx, 16 		; set that values as Ystart
201
	add	ecx, 10 		; Bar Height is always 10 pixels
475 Ghost 202
	jmp	again			; draw another bar
1982 mario79 203
;-----------------------------------------------------------------------------
475 Ghost 204
nomo:					;done drawing bars here
205
	; start PCI stuff
206
	call	Get_PCI_Info		; get pci version and last bus, scan for and draw each pci device
132 diamond 207
 
475 Ghost 208
	; Window inteface
209
	mov	cx, [PCI_Version]
210
	add	ch, '0'
1351 art_zh 211
	mov	[PCIWin + 85], ch	; 0xBADCODE but it works !
475 Ghost 212
	mov	ch, cl
213
	shr	cl, 4
214
	and	ch, 0x0f
215
	add	cx, '00'
216
	mov	[PCIWin + 87], cx
1351 art_zh 217
	mov	cl, [PCI_LastBus]	; will only work if [PCI_LastBus] < 10
475 Ghost 218
	add	cl, '0'
1351 art_zh 219
	mov	[PCIWin + 106], cl
220
 
475 Ghost 221
	mov	edx, PCIWin
222
	mov	ebx, 20 * 65536 + 25	; x start, ystart of text
223
	mov	ecx, 0x224466		; color of text
224
	mov	eax, 4
1982 mario79 225
@@:
226
	movzx	esi, byte[edx]
475 Ghost 227
	inc	edx
228
	mcall
229
	add	ebx, 10
230
	add	edx, esi
231
	cmp	byte[edx], -1
232
	jne	@b
233
	; Quantity of devices...
234
	movzx	ecx, byte [total]	; number to draw
235
	mcall	47, 0x00020000,,150 * 65536 + 65, 0x224466
1386 art_zh 236
 
237
	mov	ah, [MMIO_allowed]
238
	or 	ah, ah
239
	jz 	@f
240
	mov	ah, [MMIO_Bus]	; =255 if MMIO disabled / not found
241
	and	ah, 0x7f
242
	inc	ah
243
	jo	@f
1351 art_zh 244
	call	Try_MMIO
1386 art_zh 245
@@:
475 Ghost 246
	mcall	12, 2			; end of draw
247
	ret
1982 mario79 248
;-----------------------------------------------------------------------------
249
store_data:
250
	mov	eax,[store_text_area_start]
251
	mov	[fileinfo.return],eax
252
	mov	ebx,[store_text_area_end]
253
	sub	ebx,eax
254
	inc	ebx
255
	mov	[fileinfo.size],ebx
256
	mcall	70,fileinfo
257
	ret
258
;-----------------------------------------------------------------------------
205 heavyiron 259
;* Gets the PCI Version and Last Bus
132 diamond 260
Get_PCI_Info:
475 Ghost 261
	mcall	62, 0
262
	mov	word [PCI_Version], ax
263
	mcall	62, 1
264
	mov	byte [PCI_LastBus], al
265
	;----------------------------------------------------------
266
	;* Get all devices on PCI Bus
267
	cmp	al, 0xff		; 0xFF means no pci bus found
268
	jne	Pci_Exists		;
269
	ret				; if no bus then leave
1982 mario79 270
;-----------------------------------------------------------------------------
132 diamond 271
Pci_Exists:
1351 art_zh 272
	mov	byte [V_Bus], 0 	; reset varibles
273
	mov	byte [V_Dev], 0 	;
475 Ghost 274
	mov	edx,  20 * 65536 + 110	; set start write position
132 diamond 275
Start_Enum:
475 Ghost 276
	mov	bl, 6			; get a dword
277
	mov	bh, byte [V_Bus]	; bus of pci device
278
	mov	ch, byte [V_Dev]	; device number/function
279
	mov	cl, 0			; offset to device/vendor id
280
	mcall	62			; get ID's
132 diamond 281
 
475 Ghost 282
	cmp	ax, 0			; Vendor ID should not be 0 or 0xFFFF
1351 art_zh 283
	je	nextDev 		; check next device if nothing exists here
1982 mario79 284
 
475 Ghost 285
	cmp	ax, 0xffff		;
1351 art_zh 286
	je	nextDev 		;
132 diamond 287
 
475 Ghost 288
	mov	word [PCI_Vendor], ax	; There is a device here, save the ID's
1351 art_zh 289
	shr	eax, 16 		;
475 Ghost 290
	mov	word [PCI_Device], ax	;
291
	mov	bl, 4			; Read config byte
292
	mov	bh, byte [V_Bus]	; Bus #
293
	mov	ch, byte [V_Dev]	; Device # on bus
294
	mov	cl, 0x08		; Register to read (Get Revision)
295
	mcall	62			; Read it
1982 mario79 296
 
475 Ghost 297
	mov	byte [PCI_Rev], al	; Save it
298
	mov	cl, 0x0b		; Register to read (Get class)
299
	mcall	62			; Read it
1351 art_zh 300
 
475 Ghost 301
	mov	byte [PCI_Class], al	; Save it
302
	mov	cl, 0x0a		; Register to read (Get Subclass)
303
	mcall	62			; Read it
304
	mov	byte [PCI_SubClass], al; Save it
1351 art_zh 305
; by Mario79 august 2006
475 Ghost 306
	mov	cl, 0x09		; Register to read (Get Interface)
307
	mcall	62			; Read it
1982 mario79 308
 
475 Ghost 309
	mov  [PCI_Interface], al	; Save it
205 heavyiron 310
;
1351 art_zh 311
; by Ghost april 2007
475 Ghost 312
	mov	cl, 0x3c		; Register to read (Get IRQ)
1982 mario79 313
@@:
314
	mcall	62			; Read it
315
 
475 Ghost 316
	mov	[PCI_IRQ], al		; Save it
1946 clevermous 317
; by CleverMouse juny 2011
318
	mov	cl, 0x0e
319
	mcall	62
1982 mario79 320
 
1946 clevermous 321
	push	eax
475 Ghost 322
	inc	byte [total]		; one more device found
323
	call	Print_New_Device	; print device info to screen
1946 clevermous 324
; don't scan for nonzero functions if zero function says "not multifunction device"
325
	pop	eax
326
	test	al, al
327
	js	nextDev
1982 mario79 328
 
1946 clevermous 329
	test	byte [V_Dev], 7
1947 clevermous 330
	jnz	nextDev
1982 mario79 331
 
1946 clevermous 332
	or	byte [V_Dev], 7
132 diamond 333
nextDev:
475 Ghost 334
	inc	byte [V_Dev]		; next device on this bus
335
	jnz	Start_Enum		; jump until we reach zero
336
	;(used to be JNO which caused bug!!! 30-4-2006, JMD)
1351 art_zh 337
	mov	byte [V_Dev], 0 	; reset device number
475 Ghost 338
	inc	byte [V_Bus]		; next bus
339
	mov	al, byte [PCI_LastBus]	; get last bus
340
	cmp	byte [V_Bus], al	; was it last bus
341
	jbe	Start_Enum		; if not jump to keep searching
342
	ret
1982 mario79 343
;-----------------------------------------------------------------------------
1386 art_zh 344
no_ummio_allowed:
345
	xor 	al,al
346
	mov 	[MMIO_allowed],al		; re-enter the subroutine
475 Ghost 347
;------------------------------------------------------------------
132 diamond 348
;* Print device info to screen
1386 art_zh 349
 
132 diamond 350
Print_New_Device:
1386 art_zh 351
	xor 	esi, esi	    	; default text color
352
	mov 	cl, [MMIO_allowed]
353
	or	cl,cl
354
	jz	no_ummio_here
355
	mov 	ch, byte [V_Bus]
356
	mov 	cl, byte [V_Dev]
1351 art_zh 357
	mcall	62, 11		; detect uMMIO
1982 mario79 358
 
1386 art_zh 359
	and	ax,0x7fff
360
	inc 	ax			; -1 returned?
361
	jo 	no_ummio_allowed
1982 mario79 362
 
1386 art_zh 363
	inc 	ax			; -2 returned?
364
	jo 	no_ummio_here
1982 mario79 365
 
1386 art_zh 366
	inc 	ax			; -3 returned?
367
	jo 	no_ummio_here
1982 mario79 368
 
1386 art_zh 369
	mov 	esi, 0x990033   ; highlighted text color
370
	mov 	bh, byte [V_Bus]
371
	mov 	bl, byte [V_Dev]
372
	mov 	byte [MMIO_Bus], bh
373
	mov 	byte [MMIO_Dev], bl
374
	add 	bh,'0'
375
	mov 	[PCIWin + 129], bh	; uMMIO bus
376
	mov 	al, bl
377
	shr 	al, 1
378
	shr 	al, 1
379
	shr 	al, 1
380
	add 	al,'0'
381
	mov 	[PCIWin + 131], al	; uMMIO device
382
	and 	bl, 7
383
	add 	bl, '0'
384
	mov 	[PCIWin + 133], bl	; uMMIO function
1351 art_zh 385
 
386
no_ummio_here:
475 Ghost 387
	movzx	ecx,word [PCI_Vendor]	; Pointer to number to be written
388
	mcall	47, 0x00040100		; Write Vendor ID
1982 mario79 389
 
390
	call	store_4_digits
391
 
475 Ghost 392
	and	edx, 0xFFFF		;*****************************************
1351 art_zh 393
	or	edx, 54 * 65536 ; X start becomes 54
475 Ghost 394
	movzx	ecx, word [PCI_Device]	; get Vendor ID
395
	mcall				; Draw Vendor ID to Window
1982 mario79 396
 
397
	call	store_4_digits
398
 
475 Ghost 399
	and	edx, 0xFFFF		;*****************************************
1351 art_zh 400
	or	edx, 98 * 65536 ; X start becomes 98
475 Ghost 401
	movzx	ecx, byte [V_Bus]	; get bus number
402
	mcall	,0x00020100		; draw bus number to screen
1982 mario79 403
 
404
	call	store_2_digits
405
 
475 Ghost 406
	and	edx, 0xFFFF		;*****************************************
407
	or	edx, 128 * 65536	; X start becomes 128
408
	movzx	ecx, byte [V_Dev]	; get device number
409
	shr	ecx, 3			; device number is bits 3-7
410
	mcall				; Draw device Number To Window
1351 art_zh 411
 
1982 mario79 412
	call	store_2_digits
413
 
475 Ghost 414
	and	edx, 0xFFFF		;*****************************************
415
	or	edx, 155 * 65536	; X start becomes 155
416
	movzx	ecx, byte [V_Dev]	; get Function number
417
	and	ecx, 7			; function is first 3 bits
418
	mcall				; Draw Function Number To Window
1982 mario79 419
 
420
	call	store_2_digits
421
 
475 Ghost 422
	and	edx, 0xFFFF		;*****************************************
423
	or	edx, 179 * 65536	; X start becomes 179
424
	movzx	ecx, byte [PCI_Rev]	; get revision number
425
	mcall				; Draw Revision to screen
1982 mario79 426
 
427
	call	store_2_digits
428
 
475 Ghost 429
	and	edx, 0xFFFF		;*****************************************
430
	or	edx, 215*65536		; X start becomes 215
431
	movzx	ecx, byte [PCI_Class]	; get PCI_Class
432
	mcall				; Draw Class to screen
1982 mario79 433
 
434
	call	store_2_digits
435
 
475 Ghost 436
	and	edx, 0xFFFF		;*****************************************
437
	or	edx, 250*65536		; X start becomes 250
438
	movzx	ecx, byte [PCI_SubClass]; get sub class
439
	mcall				; Draw Sub Class to screen
1982 mario79 440
 
441
	call	store_2_digits
442
 
205 heavyiron 443
; from Mario79 august 2006
475 Ghost 444
	and	edx, 0xFFFF		;*****************************************
445
	or	edx, 280 * 65536	; X start becomes 280
446
	movzx	ecx, [PCI_Interface]	; get Interface
447
	mcall
1982 mario79 448
 
449
	call	store_2_digits
450
 
205 heavyiron 451
;
1351 art_zh 452
; from Ghost april 2007                 ;*****************************************
1993 mario79 453
	and	edx, 0xFFFF
454
	or	edx, 310 * 65536	; X start becomes 310
475 Ghost 455
	movzx	ecx, [PCI_IRQ]		; get Interface
456
	cmp	cl, 0x0f		; IRQ between 0..15
457
	ja	@f
1993 mario79 458
 
475 Ghost 459
	mcall
1993 mario79 460
 
1982 mario79 461
	call	store_2_digits
1993 mario79 462
	jmp	.PCI_Vendor
463
@@:
464
	call	store_NA
465
.PCI_Vendor:
475 Ghost 466
	;Write Names
1351 art_zh 467
	movzx	ebx, dx 	; Set y position
475 Ghost 468
	or	ebx, 340 * 65536	; set Xposition to 340
132 diamond 469
 
475 Ghost 470
;------------------------------------------------------------------
471
; Prints the Vendor's Name based on Vendor ID
132 diamond 472
;
475 Ghost 473
; Modified on ??-04-2007 by Ghost for size
474
;------------------------------------------------------------------
475
	mov	edx, VendorsTab
476
	mov	cx, word[PCI_Vendor]
1351 art_zh 477
 
1982 mario79 478
.fn:
479
	mov	ax, [edx]
475 Ghost 480
	add	edx, 6
481
	test	ax, ax
482
	jz	.find
1982 mario79 483
 
475 Ghost 484
	cmp	ax, cx
485
	jne	.fn
1982 mario79 486
 
487
.find:
488
	mov	edx, [edx - 4]
475 Ghost 489
	mcall	4,, 0x80000000		; lets print the vendor Name
1982 mario79 490
 
491
	mov	[store_text_size],42
492
	call	store_text
132 diamond 493
;------------------------------------------------------------------
475 Ghost 494
; Get description based on Class/Subclass
495
;
496
; Modified on ??-04-2007 by Ghost for size
497
;------------------------------------------------------------------
498
	mov	eax, dword [PCI_Class]
499
	and	eax, 0xffffff
500
	xor	edx, edx
501
	xor	esi, esi
1982 mario79 502
.fnc:
503
	inc	esi
475 Ghost 504
	mov	ecx, [Classes + esi * 8 - 8]
505
	cmp	cx, 0xffff
506
	je	.endfc
1982 mario79 507
 
475 Ghost 508
	cmp	cx, ax
509
	jne	.fnc
1982 mario79 510
 
475 Ghost 511
	test	ecx, 0xff000000
512
	jz	@f
1982 mario79 513
 
475 Ghost 514
	mov	edx, [Classes + esi * 8 - 4]
515
	jmp	.fnc
1982 mario79 516
@@:
517
	cmp	eax, ecx
475 Ghost 518
	jne	.fnc
1982 mario79 519
 
475 Ghost 520
	xor	edx, edx
1982 mario79 521
.endfc:
522
	test	edx, edx
475 Ghost 523
	jnz	@f
1982 mario79 524
 
475 Ghost 525
	mov	edx, [Classes + esi * 8 - 4]
1351 art_zh 526
@@:
527
	and	ebx, 0x0000FFFF 	; clear X position
475 Ghost 528
	or	ebx, 0x24E0000		; set X position to 590 pixels
529
	mcall	4,, 0x80000000,, 32	; draw the text
1982 mario79 530
 
531
	mov	[store_text_size],0
532
	call	store_text
533
	call	store_CR
534
 
1351 art_zh 535
	movzx	edx, bx 	; get y coordinate
536
	add	edx, 0x0014000A 	; add 10 to y coordinate and set x coordinate to 20
537
	mov	[gr_pos], edx
475 Ghost 538
	ret
1351 art_zh 539
;------------------------------------------------------------------
540
; Get the user-MMIO related info
541
;
542
; Added on ??-12-2009 by art_zh
543
;------------------------------------------------------------------
544
Try_MMIO:
545
	xor	ebx, ebx
546
	mov	edx, ebx
1358 art_zh 547
	mov	bh, [MMIO_BAR]
1351 art_zh 548
	or	bx, 12			; function 12
549
	mov	ecx, 4096		; =1 page to map
550
	mcall	62
1982 mario79 551
 
1358 art_zh 552
	mov	[MMIO_Map], eax 	; store MMIO lin.addr.
1351 art_zh 553
	mov	ecx, 0x80990022 	; print color : red
554
	add	bh, '0'
555
	cmp	eax, -3
556
	jne	@f
1982 mario79 557
 
1351 art_zh 558
	mov	[bar_um+3], bh
559
	mov	ebx, [gr_pos]
560
	mov	edx, bar_um
561
	mcall	4
1982 mario79 562
 
1351 art_zh 563
	jmp	mmio_next_bar
564
@@:
565
	cmp	eax, -4
566
	jne	@f
567
	mov	[bar_io+3], bh
568
	mov	ebx, [gr_pos]
569
	mov	edx, bar_io
570
	mcall	4
1982 mario79 571
 
1351 art_zh 572
	jmp	mmio_next_bar
573
@@:
1358 art_zh 574
	cmp	bh, '6' 	; expansion ROM ?
575
	je	@f
1351 art_zh 576
	mov	[bar_ram+3], bh
577
	mov	ebx, [gr_pos]
578
	mov	edx, bar_ram
579
	mcall	4
1982 mario79 580
 
1358 art_zh 581
	jmp	mmio_dump
1982 mario79 582
;-----------------------------------------------------------------------------
1353 art_zh 583
@@:
584
	mov	ebx, [gr_pos]
585
	mov	edx, bar_rom
586
	mcall	4
205 heavyiron 587
 
1353 art_zh 588
mmio_dump:
1358 art_zh 589
	mov	edx, [MMIO_Map]
1351 art_zh 590
	mov	esi, 64
591
	mov	ecx, 0x099		; dump color : blue
592
	add	ebx, 10
593
	mov	[gr_pos], ebx
594
	mcall	4
1982 mario79 595
 
1358 art_zh 596
	mov	ecx, [MMIO_Map] 	; release the tried page
1351 art_zh 597
	mcall	62,13
598
 
599
mmio_next_bar:
600
	mov	bh, [MMIO_BAR]
601
	inc	bh
1353 art_zh 602
	cmp	bh,7
1351 art_zh 603
	je	@f
1982 mario79 604
 
1351 art_zh 605
	mov	[MMIO_BAR], bh
606
	add	[gr_pos], 10
607
	jmp	Try_MMIO
1982 mario79 608
;-----------------------------------------------------------------------------
1351 art_zh 609
@@:
610
	xor	bh,bh
611
	mov	[MMIO_BAR], bh
612
	ret
1982 mario79 613
;-----------------------------------------------------------------------------
614
store_CR:
615
	pusha
616
	mov	edi,[store_text_area_end]
617
	mov	[edi],word 0A20h ; CR (carriage return) + SPACE
618
	add	dword [store_text_area_end],2
619
	popa
620
	ret
621
;-----------------------------------------------------------------------------
622
store_text:
623
	pusha
624
	inc	dword [store_text_area_end]
625
	mov	esi,edx
626
	mov	edi,[store_text_area_end]
627
	push	edi
628
	xor	eax,eax
629
	cld
630
@@:
631
	lodsb
632
	test	eax,eax
633
	jz	@f
634
	stosb
635
	inc	dword [store_text_area_end]
636
	jmp	@r
637
@@:
638
	pop	esi
639
	mov	eax,[store_text_size]
640
	test	eax,eax
641
	jz	@f
642
	sub	edi,esi
643
	sub	eax,edi
644
	add	[store_text_area_end],eax
645
@@:
646
	popa
647
	ret
648
;-----------------------------------------------------------------------------
1993 mario79 649
store_NA:
1982 mario79 650
	pusha
1993 mario79 651
	mov	ebx,edx
652
	mcall	4,,0x80000000,text_NA
1982 mario79 653
	mov	edi,[store_text_area_end]
1993 mario79 654
	mov	ax,[edx]
655
	mov	[edi+1],ax
656
	jmp	store_2_digits.1
1982 mario79 657
;-----------------------------------------------------------------------------
658
store_2_digits:
659
	pusha
660
	inc	[store_text_area_end]
661
	mov	ebx,ecx
662
	mov	ecx,2
663
	mov	edi,[store_text_area_end]
664
	call	binary_to_hex_string
1993 mario79 665
.1:
1982 mario79 666
	add	[store_text_area_end],dword 4
667
	popa
668
	ret
669
;-----------------------------------------------------------------------------
1993 mario79 670
store_4_digits:
671
	pusha
672
	mov	ebx,ecx
673
	mov	ecx,4
674
	mov	edi,[store_text_area_end]
675
	call	binary_to_hex_string
676
	add	[store_text_area_end],dword 6
677
	popa
678
	ret
679
;-----------------------------------------------------------------------------
1982 mario79 680
; ebx - value
681
; ecx - digits
682
; edi - output string
683
binary_to_hex_string:
684
	add	edi,ecx
685
	dec	edi
686
	std
687
.1:
688
	mov	al,bl
689
	and	al,0xf
690
	shr	ebx,4
691
	cmp	al,9
692
	jbe	@f
1351 art_zh 693
 
1982 mario79 694
	add	al,0x27
695
@@:
696
	add	al,0x30
697
	stosb
698
	dec	ecx
699
	jnz	.1
700
	cld
701
	ret
702
;-----------------------------------------------------------------------------
1728 clevermous 703
include 'vendors.inc'
1982 mario79 704
;-----------------------------------------------------------------------------
132 diamond 705
; DATA AREA
475 Ghost 706
DATA
132 diamond 707
 
475 Ghost 708
Form:	dw 800 ; window width (no more, special for 800x600)
709
	dw 100 ; window x start
1358 art_zh 710
	dw 620 ; window height
711
	dw 20 ; window y start
205 heavyiron 712
 
1985 mario79 713
title	db 'PCI Device Enumerator v 2.3', 0
205 heavyiron 714
 
475 Ghost 715
PCIWin mls \
1351 art_zh 716
	'   Don`t forget to enable PCI Access to Applications in Setup Menu.',\
475 Ghost 717
	'',\
1351 art_zh 718
	'PCI Version  = x.xx; Last PCI Bus = x',\
719
	'User MMIO channel = 0F.F:F ',\
720
	'Number of PCI units =',\
475 Ghost 721
	'',\
722
	'VenID DevID Bus# Dev# Fnc Rev  Class  Subclass/ IRQ                 Company                      Description',\
723
	'                                      Interface',\
1982 mario79 724
	'----- ----- ---- ---- --- ---  -----  --------- --- ------------------------------------------ --------------------------------'
205 heavyiron 725
 
1351 art_zh 726
bar_ram db 'BARx: MMIO block', 0
727
bar_io	db 'BARx: IO ports',0
728
bar_um	db 'BARx: unmapped',0
1358 art_zh 729
bar_rom db 'BAR6: Expansion ROM', 0
1351 art_zh 730
 
1982 mario79 731
text_save_button:
732
	db 'Save PCI list',0
733
.1:	db '(Press S key)',0
1993 mario79 734
 
735
text_NA:
736
	db 'NA',0
1982 mario79 737
;---------------------------------------------------------------------
738
system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
739
 
740
err_message_found_lib2	db 'proc_lib.obj - Not found!',0
741
 
742
err_message_import2	db 'proc_lib.obj - Wrong import!',0
743
 
744
head_f_i:
745
head_f_l	db 'error',0
746
;---------------------------------------------------------------------
747
l_libs_start:
748
 
749
library02  l_libs system_dir_ProcLib+9, path, library_path, system_dir_ProcLib, \
750
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
751
 
752
end_l_libs:
753
;---------------------------------------------------------------------
754
align 4
755
ProcLib_import:
756
OpenDialog_Init		dd aOpenDialog_Init
757
OpenDialog_Start	dd aOpenDialog_Start
758
;OpenDialog__Version	dd aOpenDialog_Version
759
        dd      0
760
        dd      0
761
aOpenDialog_Init	db 'OpenDialog_init',0
762
aOpenDialog_Start	db 'OpenDialog_start',0
763
;aOpenDialog_Version	db 'Version_OpenDialog',0
764
;---------------------------------------------------------------------
765
align 4
766
OpenDialog_data:
767
.type			dd 0
768
.procinfo		dd Proc_Info	;+4
769
.com_area_name		dd communication_area_name	;+8
770
.com_area		dd 0	;+12
771
.opendir_pach		dd temp_dir_pach	;+16
772
.dir_default_pach	dd communication_area_default_pach	;+20
773
.start_path		dd open_dialog_path	;+24
774
.draw_window		dd draw_window	;+28
775
.status			dd 0	;+32
776
.openfile_pach 		dd file_name	;+36
777
.filename_area		dd filename_area	;+40
778
.filter_area		dd Filter
779
.x:
780
.x_size			dw 420 ;+48 ; Window X size
781
.x_start		dw 10 ;+50 ; Window X position
782
.y:
783
.y_size			dw 320 ;+52 ; Window y size
784
.y_start		dw 10 ;+54 ; Window Y position
785
 
786
communication_area_name:
787
	db 'FFFFFFFF_open_dialog',0
788
open_dialog_path:
789
	db '/sys/File Managers/opendial',0
790
communication_area_default_pach:
791
	db '/sys',0
792
Filter:
793
dd	Filter.end - Filter.1
794
.1:
795
db	'TXT',0
796
db	'LOG',0
797
.end:
798
dd	0
799
 
800
file_default_path:
801
	db '/sys/'
802
start_temp_file_name:
803
	db 'pcidev.txt',0
804
;---------------------------------------------------------------------
805
align	4
806
fileinfo:
807
.subfunction	dd 2
808
.Offset		dd 0
809
.Offset_1	dd 0
810
.size		dd 4096
811
.return		dd 0
812
		db 0
813
.name:		dd file_name
814
;-----------------------------------------------------------------------------
815
 
475 Ghost 816
; UNINITIALIZED DATA AREA
1982 mario79 817
IM_END:
475 Ghost 818
total		db ?
819
V_Bus		db ?
820
V_Dev		db ?
821
PCI_Version	dw ?
822
PCI_LastBus	db ?
823
PCI_Device	dw ?
824
PCI_Vendor	dw ?
1351 art_zh 825
PCI_Bus 	db ?
826
PCI_Dev 	db ?
827
PCI_Rev 	db ?
475 Ghost 828
; don`t change order!!!
829
PCI_Class	db ?
830
PCI_SubClass	db ?
831
PCI_Interface	db ?
1351 art_zh 832
PCI_IRQ 	db ?
205 heavyiron 833
 
1351 art_zh 834
align 4
1386 art_zh 835
MMIO_Bus	db 255
836
MMIO_Dev	db 255
1351 art_zh 837
MMIO_BAR	db 0
1386 art_zh 838
MMIO_allowed	db 1
1351 art_zh 839
MMIO_Map	rd 8
840
 
841
gr_pos		dd ?
842
 
1982 mario79 843
store_text_area_start	dd ?
844
store_text_area_end	dd ?
845
store_text_size		dd ?
846
 
847
extended_key 	rb 1
848
;---------------------------------------------------------------------
849
library_path:
850
	rb 4096
851
;---------------------------------------------------------------------
852
path:
853
	rb 4096
854
;---------------------------------------------------------------------
855
temp_dir_pach:
856
	rb 4096
857
;---------------------------------------------------------------------
858
file_name:
859
	rb 4096
860
;---------------------------------------------------------------------
861
file_name_1:
862
	rb 4096
863
;---------------------------------------------------------------------
864
filename_area:
865
	rb 256
866
;---------------------------------------------------------------------
867
	rb 4096
868
stacktop:
869
;---------------------------------------------------------------------
475 Ghost 870
Proc_Info	process_information
1982 mario79 871
;---------------------------------------------------------------------
872
I_END:
873
;-----------------------------------------------------------------------------