forked from KolibriOS/kolibrios
rs780 northbridge test utilities (for 6 major config spaces)
git-svn-id: svn://kolibrios.org@1565 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Artem Jerdev (art_zh)
parent
1d3a993b72
commit
5c5ccb819d
316
kernel/branches/Kolibri-A/utilities/RS780/HTIU_TST.ASM
Normal file
316
kernel/branches/Kolibri-A/utilities/RS780/HTIU_TST.ASM
Normal file
@ -0,0 +1,316 @@
|
|||||||
|
;; rs780 HTUI test
|
||||||
|
;; (C) art_zh 2010
|
||||||
|
;; <kolibri@jerdev.co.uk>
|
||||||
|
|
||||||
|
use32 ;
|
||||||
|
org 0x0 ;
|
||||||
|
|
||||||
|
db 'MENUET01' ;
|
||||||
|
dd 0x01 ;
|
||||||
|
dd START ;
|
||||||
|
dd I_END ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
|
||||||
|
include 'MACROS.INC' ;
|
||||||
|
|
||||||
|
PCIE_SPACE equ 0xF0000000
|
||||||
|
PCIE_ADDR equ 0xF0000000 ; bus 0, dev 0 fn 0 -- don't change!
|
||||||
|
HTIU_NB_INDEX equ 0xF0000094 ; index reg for inderect space access
|
||||||
|
HTIU_NB_DAT equ 0xF0000098 ; inderect space data register
|
||||||
|
BOX_COLOR equ 0xE0D8D0
|
||||||
|
|
||||||
|
START:
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
red:
|
||||||
|
|
||||||
|
call draw_window
|
||||||
|
|
||||||
|
still:
|
||||||
|
mcall 10 ; event waiting
|
||||||
|
|
||||||
|
cmp eax,1 ; redraw window
|
||||||
|
je red ;
|
||||||
|
cmp eax,2 ; key pressed?
|
||||||
|
je key ;
|
||||||
|
cmp eax,3 ; button hit?
|
||||||
|
je button ;
|
||||||
|
|
||||||
|
jmp still ; none of that
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
key: ; key pressed
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
button:
|
||||||
|
mcall 17 ; get the button ID
|
||||||
|
cmp ah, 1
|
||||||
|
jne .bt2
|
||||||
|
mcall -1
|
||||||
|
.bt2:
|
||||||
|
cmp ah, 2
|
||||||
|
jne .bt3
|
||||||
|
dec [Reg] ; Rg# decrement
|
||||||
|
jmp red
|
||||||
|
.bt3:
|
||||||
|
cmp ah, 3
|
||||||
|
jne .bt4
|
||||||
|
inc [Reg] ; Rg# increment
|
||||||
|
jmp red
|
||||||
|
.bt4:
|
||||||
|
cmp ah, 4
|
||||||
|
jne .bt5
|
||||||
|
add [Reg],16 ; PgDn
|
||||||
|
jmp red
|
||||||
|
.bt5:
|
||||||
|
cmp ah, 5
|
||||||
|
jne .bt6
|
||||||
|
mov edx, [Reg]
|
||||||
|
cmp edx, 16
|
||||||
|
jb @f
|
||||||
|
sub edx, 16
|
||||||
|
mov [Reg],edx ; PgUp - general case
|
||||||
|
jmp red
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
mov [Reg], edx ; PgUp - the upper page
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
.bt6:
|
||||||
|
cmp ah, 6
|
||||||
|
jne still
|
||||||
|
mcall 37, 1 ; get the mouse pointer
|
||||||
|
shr eax, 16 ; only X needed
|
||||||
|
sub eax, 124 ; check the left border
|
||||||
|
jb red
|
||||||
|
xor edx, edx
|
||||||
|
mov ebx, 12
|
||||||
|
div ebx
|
||||||
|
cmp eax, 32 ; check the right border
|
||||||
|
jnb red
|
||||||
|
mov ecx, 31
|
||||||
|
sub ecx, eax ; reverse the bit order
|
||||||
|
mov ebx, [Rct]
|
||||||
|
btc ebx, ecx ; invert the bit
|
||||||
|
mov [Rct], ebx
|
||||||
|
call write_htiu
|
||||||
|
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
print_config_reg:
|
||||||
|
;------------------------------------------------
|
||||||
|
mov eax, [Reg]
|
||||||
|
and eax, 0x07F
|
||||||
|
mov ebx, 3*65536+256 ; 3 hex digits
|
||||||
|
mov ecx, eax
|
||||||
|
mov dx,[stX]
|
||||||
|
shl edx,16 ; = X*65536
|
||||||
|
mov dx,[stY] ; = edx + Y
|
||||||
|
mov esi,0
|
||||||
|
mcall 47 ; print reg#
|
||||||
|
mov ecx, edx ; store edx
|
||||||
|
call read_htiu ; get content
|
||||||
|
mov edx, ecx
|
||||||
|
mov ecx, eax
|
||||||
|
add edx, 36*65536 ; right column
|
||||||
|
mov ebx, 8*65536+256 ; 8 hex digits
|
||||||
|
mcall 47 ; print config data
|
||||||
|
ret
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
read_htiu:
|
||||||
|
; in: [Reg] = reg# | out: eax = [Rct] = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov edx, HTIU_NB_INDEX
|
||||||
|
mov al, byte[Reg]
|
||||||
|
and eax, 0x07F
|
||||||
|
mov [edx], eax
|
||||||
|
add dl, 4
|
||||||
|
mov eax, [edx]
|
||||||
|
mov [Rct], eax
|
||||||
|
ret
|
||||||
|
;------------------------------------------------
|
||||||
|
write_htiu:
|
||||||
|
; in: [Reg] = reg#; [Rct] = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov edx, HTIU_NB_INDEX
|
||||||
|
mov al, byte[Reg]
|
||||||
|
and eax, 0x07F
|
||||||
|
or eax, 0x100
|
||||||
|
mov [edx], eax
|
||||||
|
add dl, 4
|
||||||
|
mov eax, [Rct]
|
||||||
|
mov [edx], eax
|
||||||
|
sub dl, 4
|
||||||
|
xor eax, eax
|
||||||
|
mov [edx], eax
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
draw_window:
|
||||||
|
;------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 1
|
||||||
|
mcall 0, 72*65536+530, 700*65536+290, 0x14A0B8A0,,title
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; BUTTONS: Xleft Xwid, Ytop Yheig
|
||||||
|
mcall 8, 370*65536+ 40, 26*65536+ 18, 2, 0xA0B8A0 ; <<
|
||||||
|
mcall , , 51*65536+ 18, 3, ; >>
|
||||||
|
mcall , 425*65536+ 90, 26*65536+ 18, 4, ; PCIe Cfg
|
||||||
|
mcall , , 51*65536+ 18, 5, ; NB config
|
||||||
|
mcall ,117*65536+ 400, 97*65536+ 40, 6, ; Bits
|
||||||
|
|
||||||
|
call read_htiu ; read the current reg
|
||||||
|
|
||||||
|
mov ebx, bitstr2
|
||||||
|
inc ebx
|
||||||
|
mov edx, [Rct]
|
||||||
|
mov ecx, 0x80000000
|
||||||
|
xor eax, eax
|
||||||
|
.stringtest:
|
||||||
|
test edx, ecx
|
||||||
|
jz @f
|
||||||
|
mov byte [ebx+eax*2],'I' ; bit dump
|
||||||
|
jmp .nextbit
|
||||||
|
@@:
|
||||||
|
mov byte [ebx+eax*2],'0'
|
||||||
|
.nextbit:
|
||||||
|
inc eax
|
||||||
|
shr ecx, 1
|
||||||
|
jnz .stringtest
|
||||||
|
|
||||||
|
; button txt: X *65536+ Y
|
||||||
|
mcall 4, 378*65536+32 ,0x10000000, butstr2,3
|
||||||
|
mcall , 378*65536+57 , , butstr3,
|
||||||
|
mcall , 436*65536+32 , , butstr4,9
|
||||||
|
mcall , 436*65536+57 , , butstr5,
|
||||||
|
|
||||||
|
mcall 4, 122*65536+101,0 , bitstr0,65
|
||||||
|
mcall , 122*65536+110,0 , bitstr1,65
|
||||||
|
mcall , 122*65536+117,0 , bitstr2,65
|
||||||
|
mcall , 122*65536+126,0 , bitstr3,65
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; draw the reg-value box
|
||||||
|
mov ebx, 10*65536+100 ; Xleft | Xwidth
|
||||||
|
mov ecx, 26*65536+250 ; Ytop | Yheight
|
||||||
|
mov edx, BOX_COLOR
|
||||||
|
mcall 13
|
||||||
|
; draw the reg-address box
|
||||||
|
mov ebx, 206*65536+146 ; Xleft | Xwidth
|
||||||
|
mov cx, 44 ; Yheight only
|
||||||
|
mcall 13
|
||||||
|
; fill the data box
|
||||||
|
mov bx, 40 ; upper position
|
||||||
|
mov [stY],bx
|
||||||
|
mov eax, [Reg] ; store original#
|
||||||
|
mov [reg], eax
|
||||||
|
.print_reg_names:
|
||||||
|
call print_config_reg
|
||||||
|
add [stY],14
|
||||||
|
inc [Reg]
|
||||||
|
mov edx,[reg]
|
||||||
|
mov eax, 16
|
||||||
|
add eax, edx
|
||||||
|
cmp eax,[Reg]
|
||||||
|
ja .print_reg_names
|
||||||
|
mov [Reg], edx ; restore original#
|
||||||
|
|
||||||
|
; fill the status box
|
||||||
|
mcall 4, 210*65536+30,0,str1,12
|
||||||
|
mcall , 210*65536+44, ,str2,
|
||||||
|
mcall , 210*65536+56, ,str3,
|
||||||
|
call read_htiu ; refresh the content
|
||||||
|
mov ecx, HTIU_NB_DAT
|
||||||
|
mov edx, 300*65536+30
|
||||||
|
mov ebx, 8*65536+256
|
||||||
|
mcall 47
|
||||||
|
add dx, 14
|
||||||
|
mov ecx,[Reg]
|
||||||
|
mov esi, 0
|
||||||
|
mcall 47
|
||||||
|
add dx,14
|
||||||
|
mov ecx, [Rct]
|
||||||
|
mcall 47
|
||||||
|
|
||||||
|
; print extra info
|
||||||
|
mov ebx, 120*65536+180
|
||||||
|
xor ecx, ecx
|
||||||
|
mov edx, info1
|
||||||
|
@@:
|
||||||
|
mcall 4,,,,66
|
||||||
|
add edx, 66
|
||||||
|
add ebx, 14
|
||||||
|
cmp edx, info_end
|
||||||
|
jb @b
|
||||||
|
|
||||||
|
mcall 12, 2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
align 4
|
||||||
|
;-------------------------------------------------
|
||||||
|
|
||||||
|
pix dd 0x55AACC33
|
||||||
|
pxX dd 200
|
||||||
|
pxY dd 160
|
||||||
|
stX dw 18
|
||||||
|
stY dw 0
|
||||||
|
reg dd 0 ; reg-storage
|
||||||
|
|
||||||
|
Rct dd 0 ; reg content
|
||||||
|
Reg dd 0x00 ; reg number
|
||||||
|
|
||||||
|
|
||||||
|
title db ' RS780 HT Indirect Registers ',0
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
reg_str db 'Reg#| hex.Value '
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
str1 db 'access addr:'
|
||||||
|
str2 db 'Reg. number:'
|
||||||
|
str3 db 'Reg.content:'
|
||||||
|
|
||||||
|
butstr2 db ' << '
|
||||||
|
butstr3 db ' >> '
|
||||||
|
butstr4 db 'Next Page'
|
||||||
|
butstr5 db 'Prev Page'
|
||||||
|
|
||||||
|
bitstr0 db '31',209,205,209,205,209,205,209,205,209,205,209,205,'24',\
|
||||||
|
209,205,209,205,209,205,209,205,209,205,209,205,209,205,'16',\
|
||||||
|
209,'15',205,209,205,209,205,209,205,209,205,209,205,209,'8',\
|
||||||
|
205,'7',209,205,209,205,209,205,209,205,209,205,209,205,209,'0',184
|
||||||
|
bitstr1 db 179,' | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ',179
|
||||||
|
bitstr2 db 179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179,'9 8 7 6',\
|
||||||
|
179,'5 4 3 2',179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179
|
||||||
|
bitstr3 db 212,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,190
|
||||||
|
|
||||||
|
info1 db '---------------- Indirect registers shortlist --------------------'
|
||||||
|
info2 db ' '
|
||||||
|
db ' '
|
||||||
|
db ' '
|
||||||
|
db ' '
|
||||||
|
db '------------------------------------------------------------------'
|
||||||
|
info_end:
|
||||||
|
|
||||||
|
I_END: ; end of program
|
||||||
|
|
||||||
|
rd 256
|
||||||
|
|
||||||
|
align 256
|
||||||
|
st_0:
|
||||||
519
kernel/branches/Kolibri-A/utilities/RS780/MACROS.INC
Normal file
519
kernel/branches/Kolibri-A/utilities/RS780/MACROS.INC
Normal file
@ -0,0 +1,519 @@
|
|||||||
|
@^ fix macro comment {
|
||||||
|
^@ fix }
|
||||||
|
|
||||||
|
; -------------------------
|
||||||
|
macro library [lname,fname]
|
||||||
|
{
|
||||||
|
forward
|
||||||
|
dd __#lname#_library_table__,__#lname#_library_name__
|
||||||
|
common
|
||||||
|
dd 0
|
||||||
|
forward
|
||||||
|
align 4
|
||||||
|
__#lname#_library_name__ db fname,0
|
||||||
|
}
|
||||||
|
|
||||||
|
macro import lname,[name,sname]
|
||||||
|
{
|
||||||
|
common
|
||||||
|
align 4
|
||||||
|
__#lname#_library_table__:
|
||||||
|
forward
|
||||||
|
if used name
|
||||||
|
name dd __#name#_import_name__
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
dd 0
|
||||||
|
forward
|
||||||
|
if used name
|
||||||
|
align 4
|
||||||
|
__#name#_import_name__ db sname,0
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro export [name,sname]
|
||||||
|
{
|
||||||
|
forward
|
||||||
|
dd __#name#_export_name__,name
|
||||||
|
common
|
||||||
|
dd 0
|
||||||
|
forward
|
||||||
|
align 4
|
||||||
|
__#name#_export_name__ db sname,0
|
||||||
|
}
|
||||||
|
; -------------------------
|
||||||
|
|
||||||
|
macro m2m dest,src {
|
||||||
|
push src
|
||||||
|
pop dest
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
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
|
||||||
|
name db data
|
||||||
|
.size = $-name
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
||||||
|
common
|
||||||
|
if used name
|
||||||
|
label name
|
||||||
|
forward
|
||||||
|
if lang eq lng
|
||||||
|
db data
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
.size = $-name
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro szc name,elsz,[data] { ; from MFAR [mike.dld]
|
||||||
|
common
|
||||||
|
local s,m
|
||||||
|
m = 0
|
||||||
|
if used name
|
||||||
|
label name
|
||||||
|
forward
|
||||||
|
virtual at 0
|
||||||
|
db data
|
||||||
|
s = $
|
||||||
|
end virtual
|
||||||
|
d#elsz s
|
||||||
|
if m < s
|
||||||
|
m = s
|
||||||
|
end if
|
||||||
|
db data
|
||||||
|
common
|
||||||
|
.size = $-name
|
||||||
|
.maxl = m
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro lszc name,elsz,[lng,data] { ; from MFAR [mike.dld]
|
||||||
|
common
|
||||||
|
local s,m,c
|
||||||
|
m = 0
|
||||||
|
c = 0
|
||||||
|
if used name
|
||||||
|
label name
|
||||||
|
forward
|
||||||
|
if lang eq lng
|
||||||
|
virtual at 0
|
||||||
|
db data
|
||||||
|
s = $
|
||||||
|
end virtual
|
||||||
|
d#elsz s
|
||||||
|
if m < s
|
||||||
|
m = s
|
||||||
|
end if
|
||||||
|
db data
|
||||||
|
c = c+1
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
.size = $-name
|
||||||
|
.maxl = m
|
||||||
|
.count = c
|
||||||
|
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
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
;include 'config.inc'
|
||||||
|
;__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
|
||||||
|
__mov eax,a
|
||||||
|
__mov ebx,b
|
||||||
|
__mov ecx,c
|
||||||
|
__mov edx,d
|
||||||
|
__mov esi,e
|
||||||
|
__mov edi,f
|
||||||
|
|
||||||
|
int 0x40
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
; -------------------------
|
||||||
|
macro header a,[b] {
|
||||||
|
common
|
||||||
|
use32
|
||||||
|
org 0
|
||||||
|
db 'MENUET',a
|
||||||
|
forward
|
||||||
|
if b eq
|
||||||
|
dd 0
|
||||||
|
else
|
||||||
|
dd b
|
||||||
|
end if }
|
||||||
|
macro section name { align 16
|
||||||
|
label name }
|
||||||
|
macro func name {
|
||||||
|
if ~used name
|
||||||
|
display 'FUNC NOT USED: ',`name,13,10
|
||||||
|
else
|
||||||
|
align 4
|
||||||
|
name:
|
||||||
|
;diff16 `name,0,name
|
||||||
|
;pushad
|
||||||
|
;pushfd
|
||||||
|
;dps `name
|
||||||
|
;newline
|
||||||
|
;mcall 5,1
|
||||||
|
;popfd
|
||||||
|
;popad
|
||||||
|
}
|
||||||
|
macro endf { end if }
|
||||||
|
|
||||||
|
macro diff16 title,l1,l2
|
||||||
|
{
|
||||||
|
local s,d
|
||||||
|
s = l2-l1
|
||||||
|
display title,': 0x'
|
||||||
|
repeat 8
|
||||||
|
d = '0' + s shr ((8-%) shl 2) and $0F
|
||||||
|
if d > '9'
|
||||||
|
d = d + 'A'-'9'-1
|
||||||
|
end if
|
||||||
|
display d
|
||||||
|
end repeat
|
||||||
|
display 13,10
|
||||||
|
}
|
||||||
|
|
||||||
|
macro diff10 title,l1,l2
|
||||||
|
{
|
||||||
|
local s,d,z,m
|
||||||
|
s = l2-l1
|
||||||
|
z = 0
|
||||||
|
m = 1000000000
|
||||||
|
display title,': '
|
||||||
|
repeat 10
|
||||||
|
d = '0' + s / m
|
||||||
|
s = s - (s/m)*m
|
||||||
|
m = m / 10
|
||||||
|
if d <> '0'
|
||||||
|
z = 1
|
||||||
|
end if
|
||||||
|
if z <> 0
|
||||||
|
display d
|
||||||
|
end if
|
||||||
|
end repeat
|
||||||
|
display 13,10
|
||||||
|
}
|
||||||
|
|
||||||
|
; 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 RGB [a] {
|
||||||
|
common
|
||||||
|
match (r=,g=,b),a \{
|
||||||
|
\dd ((r) shl 16) or ((g) shl 8) or (b)
|
||||||
|
\}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
struc POINT _t,_dx,_dy {
|
||||||
|
.x _t _dx
|
||||||
|
.y _t _dy
|
||||||
|
}
|
||||||
|
|
||||||
|
; structure definition helper
|
||||||
|
include 'struct.inc'
|
||||||
|
|
||||||
|
struct RECT
|
||||||
|
left dd ?
|
||||||
|
top dd ?
|
||||||
|
right dd ?
|
||||||
|
bottom dd ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct BOX
|
||||||
|
left dd ?
|
||||||
|
top dd ?
|
||||||
|
width dd ?
|
||||||
|
height dd ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
; structures used in MeOS
|
||||||
|
struct process_information
|
||||||
|
cpu_usage dd ? ; +0
|
||||||
|
window_stack_position dw ? ; +4
|
||||||
|
window_stack_value dw ? ; +6
|
||||||
|
dw ? ; +8
|
||||||
|
process_name rb 12 ; +10
|
||||||
|
memory_start dd ? ; +22
|
||||||
|
used_memory dd ? ; +26
|
||||||
|
PID dd ? ; +30
|
||||||
|
box BOX ; +34
|
||||||
|
slot_state dw ? ; +50
|
||||||
|
dw ? ; +52
|
||||||
|
client_box BOX ; +54
|
||||||
|
wnd_state db ? ; +70
|
||||||
|
rb (1024-71)
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct 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 ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct FILEDATE
|
||||||
|
Second db ?
|
||||||
|
Minute db ?
|
||||||
|
Hour db ?
|
||||||
|
db ?
|
||||||
|
Day db ?
|
||||||
|
Month db ?
|
||||||
|
Year dw ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct FILEINFO
|
||||||
|
Attributes dd ?
|
||||||
|
IsUnicode db ?
|
||||||
|
db 3 dup(?)
|
||||||
|
DateCreate FILEDATE
|
||||||
|
DateAccess FILEDATE
|
||||||
|
DateModify FILEDATE
|
||||||
|
Size dq ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
; 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
|
||||||
320
kernel/branches/Kolibri-A/utilities/RS780/MISC_TST.ASM
Normal file
320
kernel/branches/Kolibri-A/utilities/RS780/MISC_TST.ASM
Normal file
@ -0,0 +1,320 @@
|
|||||||
|
;; rs780 HT misc registers test
|
||||||
|
;; (C) art_zh 2010
|
||||||
|
;; <kolibri@jerdev.co.uk>
|
||||||
|
|
||||||
|
|
||||||
|
use32 ;
|
||||||
|
org 0x0 ;
|
||||||
|
|
||||||
|
db 'MENUET01' ;
|
||||||
|
dd 0x01 ;
|
||||||
|
dd START ;
|
||||||
|
dd I_END ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
|
||||||
|
include 'MACROS.INC' ;
|
||||||
|
|
||||||
|
PCIE_SPACE equ 0xF0000000
|
||||||
|
PCIE_ADDR equ 0xF0000000 ; bus 0, dev 0 fn 0 -- don't change!
|
||||||
|
MISC_NB_INDEX equ 0xF0000060 ; index reg for inderect space access
|
||||||
|
MISC_NB_DAT equ 0xF0000064 ; inderect space data register
|
||||||
|
BOX_COLOR equ 0xE0D8D0
|
||||||
|
|
||||||
|
START:
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
red:
|
||||||
|
|
||||||
|
call draw_window
|
||||||
|
|
||||||
|
still:
|
||||||
|
mcall 10 ; event waiting
|
||||||
|
|
||||||
|
cmp eax,1 ; redraw window
|
||||||
|
je red ;
|
||||||
|
cmp eax,2 ; key pressed?
|
||||||
|
je key ;
|
||||||
|
cmp eax,3 ; button hit?
|
||||||
|
je button ;
|
||||||
|
|
||||||
|
jmp still ; none of that
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
key: ; key pressed
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
button:
|
||||||
|
mcall 17 ; get the button ID
|
||||||
|
cmp ah, 1
|
||||||
|
jne .bt2
|
||||||
|
mcall -1
|
||||||
|
.bt2:
|
||||||
|
cmp ah, 2
|
||||||
|
jne .bt3
|
||||||
|
dec [Reg] ; Rg# decrement
|
||||||
|
jmp red
|
||||||
|
.bt3:
|
||||||
|
cmp ah, 3
|
||||||
|
jne .bt4
|
||||||
|
inc [Reg] ; Rg# increment
|
||||||
|
jmp red
|
||||||
|
.bt4:
|
||||||
|
cmp ah, 4
|
||||||
|
jne .bt5
|
||||||
|
add [Reg],16 ; PgDn
|
||||||
|
jmp red
|
||||||
|
.bt5:
|
||||||
|
cmp ah, 5
|
||||||
|
jne .bt6
|
||||||
|
mov edx, [Reg]
|
||||||
|
cmp edx, 16
|
||||||
|
jb @f
|
||||||
|
sub edx, 16
|
||||||
|
mov [Reg],edx ; PgUp - general case
|
||||||
|
jmp red
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
mov [Reg], edx ; PgUp - the upper page
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
.bt6:
|
||||||
|
cmp ah, 6
|
||||||
|
jne still
|
||||||
|
mcall 37, 1 ; get the mouse pointer
|
||||||
|
shr eax, 16 ; only X needed
|
||||||
|
sub eax, 124 ; check the left border
|
||||||
|
jb red
|
||||||
|
xor edx, edx
|
||||||
|
mov ebx, 12
|
||||||
|
div ebx
|
||||||
|
cmp eax, 32 ; check the right border
|
||||||
|
jnb red
|
||||||
|
mov ecx, 31
|
||||||
|
sub ecx, eax ; reverse the bit order
|
||||||
|
mov ebx, [Rct]
|
||||||
|
btc ebx, ecx ; invert the bit
|
||||||
|
mov [Rct], ebx
|
||||||
|
call write_misc
|
||||||
|
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
print_config_reg:
|
||||||
|
;------------------------------------------------
|
||||||
|
mov eax, [Reg]
|
||||||
|
and eax, 0x07F
|
||||||
|
mov ebx, 3*65536+256 ; 3 hex digits
|
||||||
|
mov ecx, eax
|
||||||
|
mov dx,[stX]
|
||||||
|
shl edx,16 ; = X*65536
|
||||||
|
mov dx,[stY] ; = edx + Y
|
||||||
|
mov esi,0
|
||||||
|
mcall 47 ; print reg#
|
||||||
|
mov ecx, edx ; store edx
|
||||||
|
call read_misc ; get content
|
||||||
|
mov edx, ecx
|
||||||
|
mov ecx, eax
|
||||||
|
add edx, 36*65536 ; right column
|
||||||
|
mov ebx, 8*65536+256 ; 8 hex digits
|
||||||
|
mcall 47 ; print config data
|
||||||
|
ret
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
read_misc:
|
||||||
|
; in: [Reg] = reg# | out: eax = [Rct] = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov edx, MISC_NB_INDEX
|
||||||
|
mov al, byte[Reg]
|
||||||
|
and eax, 0x07F
|
||||||
|
mov [edx], eax
|
||||||
|
add dl, 4
|
||||||
|
mov eax, [edx]
|
||||||
|
mov [Rct], eax
|
||||||
|
ret
|
||||||
|
;------------------------------------------------
|
||||||
|
write_misc:
|
||||||
|
; in: [Reg] = reg#; [Rct] = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov edx, MISC_NB_INDEX
|
||||||
|
mov al, byte[Reg]
|
||||||
|
and eax, 0x07F
|
||||||
|
or eax, 0x080 ; WriteEnable bit
|
||||||
|
mov [edx], eax
|
||||||
|
add dl, 4
|
||||||
|
mov eax, [Rct]
|
||||||
|
mov [edx], eax
|
||||||
|
sub dl, 4
|
||||||
|
xor eax, eax
|
||||||
|
mov [edx], eax ; safety precaution
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
draw_window:
|
||||||
|
;------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 1
|
||||||
|
mcall 0, 72*65536+530, 410*65536+290, 0x14A0B8A0,,title
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; BUTTONS: Xleft Xwid, Ytop Yheig
|
||||||
|
mcall 8, 370*65536+ 40, 26*65536+ 18, 2, 0xA0B8A0 ; <<
|
||||||
|
mcall , , 51*65536+ 18, 3, ; >>
|
||||||
|
mcall , 425*65536+ 90, 26*65536+ 18, 4, ; Next Page
|
||||||
|
mcall , , 51*65536+ 18, 5, ; Prev Page
|
||||||
|
mcall ,117*65536+ 400, 97*65536+ 40, 6, ; Bits
|
||||||
|
|
||||||
|
call read_misc ; read the current reg
|
||||||
|
|
||||||
|
mov ebx, bitstr2
|
||||||
|
inc ebx
|
||||||
|
mov edx, [Rct]
|
||||||
|
mov ecx, 0x80000000
|
||||||
|
xor eax, eax
|
||||||
|
.stringtest:
|
||||||
|
test edx, ecx
|
||||||
|
jz @f
|
||||||
|
mov byte [ebx+eax*2],'I' ; bit dump
|
||||||
|
jmp .nextbit
|
||||||
|
@@:
|
||||||
|
mov byte [ebx+eax*2],'0'
|
||||||
|
.nextbit:
|
||||||
|
inc eax
|
||||||
|
shr ecx, 1
|
||||||
|
jnz .stringtest
|
||||||
|
|
||||||
|
; button txt: X *65536+ Y
|
||||||
|
mcall 4, 378*65536+32 ,0x10000000, butstr2,3
|
||||||
|
mcall , 378*65536+57 , , butstr3,
|
||||||
|
mcall , 436*65536+32 , , butstr4,9
|
||||||
|
mcall , 436*65536+57 , , butstr5,
|
||||||
|
|
||||||
|
mcall 4, 122*65536+101,0 , bitstr0,65
|
||||||
|
mcall , 122*65536+110,0 , bitstr1,65
|
||||||
|
mcall , 122*65536+117,0 , bitstr2,65
|
||||||
|
mcall , 122*65536+126,0 , bitstr3,65
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; draw the reg-value box
|
||||||
|
mov ebx, 10*65536+100 ; Xleft | Xwidth
|
||||||
|
mov ecx, 26*65536+250 ; Ytop | Yheight
|
||||||
|
mov edx, BOX_COLOR
|
||||||
|
mcall 13
|
||||||
|
; draw the reg-address box
|
||||||
|
mov ebx, 206*65536+146 ; Xleft | Xwidth
|
||||||
|
mov cx, 44 ; Yheight only
|
||||||
|
mcall 13
|
||||||
|
|
||||||
|
; fill the data box
|
||||||
|
mov bx, 40 ; upper position
|
||||||
|
mov [stY],bx
|
||||||
|
mov eax, [Reg] ; store original#
|
||||||
|
mov [reg], eax
|
||||||
|
.print_reg_names:
|
||||||
|
call print_config_reg
|
||||||
|
add [stY],14
|
||||||
|
inc [Reg]
|
||||||
|
mov edx,[reg]
|
||||||
|
mov eax, 16
|
||||||
|
add eax, edx
|
||||||
|
cmp eax,[Reg]
|
||||||
|
ja .print_reg_names
|
||||||
|
mov [Reg], edx ; restore original#
|
||||||
|
|
||||||
|
; fill the status box
|
||||||
|
mcall 4, 210*65536+30,0,str1,12
|
||||||
|
mcall , 210*65536+44, ,str2,
|
||||||
|
mcall , 210*65536+56, ,str3,
|
||||||
|
call read_misc ; refresh the content
|
||||||
|
mov ecx, MISC_NB_DAT
|
||||||
|
mov edx, 300*65536+30
|
||||||
|
mov ebx, 8*65536+256
|
||||||
|
mcall 47
|
||||||
|
add dx, 14
|
||||||
|
mov ecx,[Reg]
|
||||||
|
mov esi, 0
|
||||||
|
mcall 47
|
||||||
|
add dx,14
|
||||||
|
mov ecx, [Rct]
|
||||||
|
mcall 47
|
||||||
|
|
||||||
|
; print extra info
|
||||||
|
mov ebx, 120*65536+160
|
||||||
|
xor ecx, ecx
|
||||||
|
mov edx, info1
|
||||||
|
@@:
|
||||||
|
mcall 4,,,,66
|
||||||
|
add edx, 66
|
||||||
|
add ebx, 14
|
||||||
|
cmp edx, info_end
|
||||||
|
jb @b
|
||||||
|
|
||||||
|
mcall 12, 2 ; äãªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
align 4
|
||||||
|
;-------------------------------------------------
|
||||||
|
|
||||||
|
pix dd 0x55AACC33
|
||||||
|
pxX dd 200
|
||||||
|
pxY dd 160
|
||||||
|
stX dw 18
|
||||||
|
stY dw 0
|
||||||
|
reg dd 0 ; reg-storage
|
||||||
|
|
||||||
|
Rct dd 0 ; reg content
|
||||||
|
Reg dd 0x00 ; reg number
|
||||||
|
|
||||||
|
|
||||||
|
title db ' RS780 NB MISC Indirect Registers ',0
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
reg_str db 'Reg#| hex.Value '
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
str1 db 'access addr:'
|
||||||
|
str2 db 'Reg. number:'
|
||||||
|
str3 db 'Reg.content:'
|
||||||
|
|
||||||
|
butstr2 db ' << '
|
||||||
|
butstr3 db ' >> '
|
||||||
|
butstr4 db 'Next Page'
|
||||||
|
butstr5 db 'Prev Page'
|
||||||
|
|
||||||
|
bitstr0 db '31',209,205,209,205,209,205,209,205,209,205,209,205,'24',\
|
||||||
|
209,205,209,205,209,205,209,205,209,205,209,205,209,205,'16',\
|
||||||
|
209,'15',205,209,205,209,205,209,205,209,205,209,205,209,'8',\
|
||||||
|
205,'7',209,205,209,205,209,205,209,205,209,205,209,205,209,'0',184
|
||||||
|
bitstr1 db 179,' | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ',179
|
||||||
|
bitstr2 db 179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179,'9 8 7 6',\
|
||||||
|
179,'5 4 3 2',179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179
|
||||||
|
bitstr3 db 212,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,190
|
||||||
|
|
||||||
|
info1 db '---------------- Indirect registers shortlist --------------------'
|
||||||
|
db ' '
|
||||||
|
info2 db ' reg00: hides acces to pcie config registers and some hardware '
|
||||||
|
db ' reg08,0B : PCIe link config & IOC control '
|
||||||
|
db ' reg0C : select/disable bridges '
|
||||||
|
db ' reg32-39, 22-26 : PCIE_NBCONFIG bits '
|
||||||
|
db ' reg40-43 : GPIO pads | regs74-79 : SCRATCH '
|
||||||
|
db '------------------------------------------------------------------'
|
||||||
|
info_end:
|
||||||
|
|
||||||
|
I_END: ; end of program
|
||||||
|
|
||||||
|
rd 256
|
||||||
|
|
||||||
|
align 256
|
||||||
|
st_0:
|
||||||
344
kernel/branches/Kolibri-A/utilities/RS780/NB_TST.ASM
Normal file
344
kernel/branches/Kolibri-A/utilities/RS780/NB_TST.ASM
Normal file
@ -0,0 +1,344 @@
|
|||||||
|
;; rs780 NB config regs test
|
||||||
|
;; (C) art_zh 2010
|
||||||
|
;; <kolibri@jerdev.co.uk>
|
||||||
|
|
||||||
|
|
||||||
|
use32 ;
|
||||||
|
org 0x0 ;
|
||||||
|
|
||||||
|
db 'MENUET01' ;
|
||||||
|
dd 0x01 ;
|
||||||
|
dd START ;
|
||||||
|
dd I_END ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
|
||||||
|
include 'MACROS.INC' ;
|
||||||
|
|
||||||
|
PCIE_SPACE equ 0xF0000000
|
||||||
|
PCIE_ADDR equ 0xF0000000 ; bus 0, dev 0 fn 0 -- don't change!
|
||||||
|
BOX_COLOR equ 0xE0D8D0
|
||||||
|
|
||||||
|
START:
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
red:
|
||||||
|
|
||||||
|
call draw_window
|
||||||
|
|
||||||
|
still:
|
||||||
|
mcall 10 ; event waiting
|
||||||
|
|
||||||
|
cmp eax,1 ; redraw window
|
||||||
|
je red ;
|
||||||
|
cmp eax,2 ; key pressed?
|
||||||
|
je key ;
|
||||||
|
cmp eax,3 ; button hit?
|
||||||
|
je button ;
|
||||||
|
|
||||||
|
jmp still ; none of that
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
key: ; key pressed
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
button:
|
||||||
|
mcall 17 ; get the button ID
|
||||||
|
cmp ah, 1
|
||||||
|
jne .bt2
|
||||||
|
mcall -1
|
||||||
|
.bt2:
|
||||||
|
cmp ah, 2
|
||||||
|
jne .bt3
|
||||||
|
sub [Reg],4 ; Rg# decrement
|
||||||
|
jmp red
|
||||||
|
.bt3:
|
||||||
|
cmp ah, 3
|
||||||
|
jne .bt4
|
||||||
|
add [Reg],4 ; Rg# increment
|
||||||
|
jmp red
|
||||||
|
.bt4:
|
||||||
|
cmp ah, 4
|
||||||
|
jne .bt5
|
||||||
|
add [Reg],4*16 ; PgDn
|
||||||
|
jmp red
|
||||||
|
.bt5:
|
||||||
|
cmp ah, 5
|
||||||
|
jne .bt6
|
||||||
|
mov edx, [Reg]
|
||||||
|
cmp edx, 4*16
|
||||||
|
jb @f
|
||||||
|
sub edx, 4*16
|
||||||
|
mov [Reg],edx ; PgUp
|
||||||
|
jmp red
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
mov [Reg], edx
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
.bt6:
|
||||||
|
cmp ah, 6
|
||||||
|
jne still
|
||||||
|
mcall 37, 1 ; get the mouse pointer
|
||||||
|
shr eax, 16 ; only X needed
|
||||||
|
sub eax, 124 ; check the left border
|
||||||
|
jb red
|
||||||
|
xor edx, edx
|
||||||
|
mov ebx, 12
|
||||||
|
div ebx
|
||||||
|
cmp eax, 32 ; check the right border
|
||||||
|
jnb red
|
||||||
|
mov ecx, 31
|
||||||
|
sub ecx, eax ; reverse the bit order
|
||||||
|
mov ebx, [Rct]
|
||||||
|
btc ebx, ecx ; invert the bit
|
||||||
|
mov eax, [Reg]
|
||||||
|
add eax, PCIE_ADDR
|
||||||
|
mov [Rct], ebx
|
||||||
|
mov [eax], ebx
|
||||||
|
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
print_config_reg:
|
||||||
|
;------------------------------------------------
|
||||||
|
mov eax, [reg]
|
||||||
|
and eax, 0x0FFC
|
||||||
|
mov ebx, 4*65536+256 ; 4 hex digits
|
||||||
|
mov ecx, eax
|
||||||
|
mov dx,[stX]
|
||||||
|
shl edx,16 ; = X*65536
|
||||||
|
mov dx,[stY] ; = edx + Y
|
||||||
|
mov esi,0
|
||||||
|
mcall 47 ; print reg#
|
||||||
|
mov eax, [reg]
|
||||||
|
add eax, PCIE_ADDR
|
||||||
|
mov ecx, [eax]
|
||||||
|
add edx, 36*65536 ; right column
|
||||||
|
mov ebx, 8*65536+256 ; 8 hex digits
|
||||||
|
mcall 47 ; print config data
|
||||||
|
ret
|
||||||
|
;------------------------------------------------
|
||||||
|
read_nbconfig:
|
||||||
|
; in: dl = reg# | out: eax = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov ebx, 0xF0000000
|
||||||
|
and edx, 0x0FC
|
||||||
|
mov eax, dword [ebx+edx]
|
||||||
|
ret
|
||||||
|
;------------------------------------------------
|
||||||
|
write_nbconfig:
|
||||||
|
; in: dl = reg#; eax = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov ebx, 0xF0000000
|
||||||
|
and edx, 0x0FC
|
||||||
|
mov dword [ebx+edx], eax
|
||||||
|
ret
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
;read_htiunbind:
|
||||||
|
; in: [HTr] = reg# | out: eax = data
|
||||||
|
;------------------------------------------------
|
||||||
|
; mov dl, 0x94
|
||||||
|
; mov al, byte[HTr]
|
||||||
|
; and eax, 0x07C
|
||||||
|
; call write_nbconfig
|
||||||
|
; add dl, 4
|
||||||
|
; call read_nbconfig
|
||||||
|
; ret
|
||||||
|
;------------------------------------------------
|
||||||
|
;write_htiunbind:
|
||||||
|
; in: [HTr] = reg#; ecx = data
|
||||||
|
;------------------------------------------------
|
||||||
|
; mov dl, 0x94
|
||||||
|
; mov al, byte[Reg]
|
||||||
|
; and eax, 0x017C
|
||||||
|
; call write_nbconfig
|
||||||
|
; add dl, 4
|
||||||
|
; mov ecx, eax
|
||||||
|
; call write_nbconfig
|
||||||
|
; sub dl, 4
|
||||||
|
; mov eax, 0x0
|
||||||
|
; call write_nbconfig
|
||||||
|
; ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
draw_window:
|
||||||
|
;------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 1
|
||||||
|
mcall 0, 72*65536+530, 120*65536+290, 0x14A0B0A0,,title
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; BUTTONS: Xleft Xwid, Ytop Yheig
|
||||||
|
mcall 8, 370*65536+ 40, 26*65536+ 18, 2, 0xA0B0A0 ; <<
|
||||||
|
mcall , , 51*65536+ 18, 3, ; >>
|
||||||
|
mcall , 425*65536+ 90, 26*65536+ 18, 4, ; PCIe Cfg
|
||||||
|
mcall , , 51*65536+ 18, 5, ; NB config
|
||||||
|
mcall ,117*65536+ 400, 97*65536+ 40, 6, ; Bits
|
||||||
|
|
||||||
|
mov edx, [Reg]
|
||||||
|
add edx, PCIE_ADDR ; reading the current reg content
|
||||||
|
mov ecx, [edx]
|
||||||
|
mov [Rct], ecx
|
||||||
|
|
||||||
|
mov ebx, bitstr2
|
||||||
|
inc ebx
|
||||||
|
mov edx, [Rct]
|
||||||
|
mov ecx, 0x80000000
|
||||||
|
xor eax, eax
|
||||||
|
.stringtest:
|
||||||
|
test edx, ecx
|
||||||
|
jz @f
|
||||||
|
mov byte [ebx+eax*2],'I' ; bit dump
|
||||||
|
jmp .nextbit
|
||||||
|
@@:
|
||||||
|
mov byte [ebx+eax*2],'0'
|
||||||
|
.nextbit:
|
||||||
|
inc eax
|
||||||
|
shr ecx, 1
|
||||||
|
jnz .stringtest
|
||||||
|
|
||||||
|
; button txt: X *65536+ Y
|
||||||
|
mcall 4, 378*65536+32 ,0x10000000, butstr2,3
|
||||||
|
mcall , 378*65536+57 , , butstr3,
|
||||||
|
mcall , 436*65536+32 , , butstr4,9
|
||||||
|
mcall , 436*65536+57 , , butstr5,
|
||||||
|
|
||||||
|
mcall 4, 122*65536+101,0 , bitstr0,65
|
||||||
|
mcall , 122*65536+110,0 , bitstr1,65
|
||||||
|
mcall , 122*65536+117,0 , bitstr2,65
|
||||||
|
mcall , 122*65536+126,0 , bitstr3,65
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; draw the reg-value box
|
||||||
|
mov ebx, 10*65536+100 ; Xleft | Xwidth
|
||||||
|
mov ecx, 26*65536+250 ; Ytop | Yheight
|
||||||
|
mov edx, BOX_COLOR
|
||||||
|
mcall 13
|
||||||
|
; draw the reg-address box
|
||||||
|
mov ebx, 206*65536+146 ; Xleft | Xwidth
|
||||||
|
mov cx, 44 ; Yheight only
|
||||||
|
mcall 13
|
||||||
|
; draw ZiS status box
|
||||||
|
; mov ebx, 206*65536+274 ; Xleft | Xwidth
|
||||||
|
; mov ecx, 84*65536+ 64 ; Ytop | Yheight
|
||||||
|
; mcall 13
|
||||||
|
; draw the dump box
|
||||||
|
; mov ebx, 206*65536+274 ; Xleft | Xwidth
|
||||||
|
; mov ecx, 190*65536+232 ; Ytop | Yheight
|
||||||
|
; mcall 13
|
||||||
|
|
||||||
|
; fill the data box
|
||||||
|
mov ebx, [Reg]
|
||||||
|
mov [reg],ebx
|
||||||
|
mov bx, 40 ; upper position
|
||||||
|
mov [stY],bx
|
||||||
|
.print_reg_names:
|
||||||
|
call print_config_reg
|
||||||
|
add [stY],14
|
||||||
|
add [reg], 4
|
||||||
|
mov edx,[Reg]
|
||||||
|
add edx,16*4
|
||||||
|
cmp edx,[reg]
|
||||||
|
ja .print_reg_names
|
||||||
|
|
||||||
|
; fill the status box
|
||||||
|
mcall 4, 210*65536+30,0,str1,12
|
||||||
|
mcall , 210*65536+44, ,str2,
|
||||||
|
mcall , 210*65536+56, ,str3,
|
||||||
|
mov ecx, PCIE_ADDR
|
||||||
|
mov edx, 300*65536+30
|
||||||
|
mov ebx, 8*65536+256
|
||||||
|
mcall 47
|
||||||
|
add dx, 14
|
||||||
|
mov ecx,[Reg]
|
||||||
|
mov esi, 0
|
||||||
|
mcall 47
|
||||||
|
add dx,14
|
||||||
|
mov ecx, [Rct]
|
||||||
|
mcall 47
|
||||||
|
|
||||||
|
; print extra info
|
||||||
|
mov ebx, 120*65536+180
|
||||||
|
xor ecx, ecx
|
||||||
|
mov edx, info1
|
||||||
|
@@:
|
||||||
|
mcall 4,,,,66
|
||||||
|
add edx, 66
|
||||||
|
add ebx, 14
|
||||||
|
cmp edx, info_end
|
||||||
|
jb @b
|
||||||
|
|
||||||
|
mcall 12, 2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
align 4
|
||||||
|
;-------------------------------------------------
|
||||||
|
|
||||||
|
pix dd 0x55AACC33
|
||||||
|
pxX dd 200
|
||||||
|
pxY dd 160
|
||||||
|
stX dw 18
|
||||||
|
stY dw 0
|
||||||
|
reg dd 0
|
||||||
|
|
||||||
|
Rct dd 0 ; reg content
|
||||||
|
Reg dd 0x00 ; reg number
|
||||||
|
|
||||||
|
|
||||||
|
title db ' RS780 NB config registers ',0
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
reg_str db 'Reg#| hex.Value '
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
str1 db 'bdf address:'
|
||||||
|
str2 db 'Reg. number:'
|
||||||
|
str3 db 'Reg.content:'
|
||||||
|
|
||||||
|
butstr2 db ' << '
|
||||||
|
butstr3 db ' >> '
|
||||||
|
butstr4 db 'Next Page'
|
||||||
|
butstr5 db 'Prev Page'
|
||||||
|
|
||||||
|
bitstr0 db '31',209,205,209,205,209,205,209,205,209,205,209,205,'24',\
|
||||||
|
209,205,209,205,209,205,209,205,209,205,209,205,209,205,'16',\
|
||||||
|
209,'15',205,209,205,209,205,209,205,209,205,209,205,209,'8',\
|
||||||
|
205,'7',209,205,209,205,209,205,209,205,209,205,209,205,209,'0',184
|
||||||
|
bitstr1 db 179,' | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ',179
|
||||||
|
bitstr2 db 179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179,'9 8 7 6',\
|
||||||
|
179,'5 4 3 2',179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179
|
||||||
|
bitstr3 db 212,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,190
|
||||||
|
|
||||||
|
info1 db '------------------------------------------------------------------'
|
||||||
|
info2 db ' '
|
||||||
|
db ' AMD RS780 NorthBridge Monitor '
|
||||||
|
db ' '
|
||||||
|
db ' (C) A.Jerdev 2010 <kolibri@jerdev.co.uk> '
|
||||||
|
db '------------------------------------------------------------------'
|
||||||
|
info_end:
|
||||||
|
|
||||||
|
I_END: ; end of program
|
||||||
|
|
||||||
|
rd 256
|
||||||
|
|
||||||
|
align 256
|
||||||
|
st_0:
|
||||||
324
kernel/branches/Kolibri-A/utilities/RS780/PCIEINDC.ASM
Normal file
324
kernel/branches/Kolibri-A/utilities/RS780/PCIEINDC.ASM
Normal file
@ -0,0 +1,324 @@
|
|||||||
|
;; rs780 PCIe Core indirect regs test
|
||||||
|
;; (C) art_zh 2010
|
||||||
|
;; <kolibri@jerdev.co.uk>
|
||||||
|
|
||||||
|
|
||||||
|
use32 ;
|
||||||
|
org 0x0 ;
|
||||||
|
|
||||||
|
db 'MENUET01' ;
|
||||||
|
dd 0x01 ;
|
||||||
|
dd START ;
|
||||||
|
dd I_END ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
|
||||||
|
include 'MACROS.INC' ;
|
||||||
|
|
||||||
|
PCIE_SPACE equ 0xF0000000
|
||||||
|
PCIEIND_INDEX equ 0xF00000E0
|
||||||
|
PCIEIND_DATA equ 0xF00000E4
|
||||||
|
BOX_COLOR equ 0xE0D8D0
|
||||||
|
|
||||||
|
START:
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
red:
|
||||||
|
|
||||||
|
call draw_window
|
||||||
|
|
||||||
|
still:
|
||||||
|
mcall 10 ; event waiting
|
||||||
|
|
||||||
|
cmp eax,1 ; redraw window
|
||||||
|
je red ;
|
||||||
|
cmp eax,2 ; key pressed?
|
||||||
|
je key ;
|
||||||
|
cmp eax,3 ; button hit?
|
||||||
|
je button ;
|
||||||
|
|
||||||
|
jmp still ; none of that
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
key: ; key pressed
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
button:
|
||||||
|
mcall 17 ; get the button ID
|
||||||
|
cmp ah, 1
|
||||||
|
jne .bt2
|
||||||
|
mcall -1
|
||||||
|
.bt2:
|
||||||
|
cmp ah, 2
|
||||||
|
jne .bt3
|
||||||
|
dec [Reg] ; Rg# decrement
|
||||||
|
jmp red
|
||||||
|
.bt3:
|
||||||
|
cmp ah, 3
|
||||||
|
jne .bt4
|
||||||
|
inc [Reg] ; Rg# increment
|
||||||
|
jmp red
|
||||||
|
.bt4:
|
||||||
|
cmp ah, 4
|
||||||
|
jne .bt5
|
||||||
|
add [Reg],16 ; PgDn
|
||||||
|
jmp red
|
||||||
|
.bt5:
|
||||||
|
cmp ah, 5
|
||||||
|
jne .bt6
|
||||||
|
mov edx, [Reg]
|
||||||
|
cmp edx, 16
|
||||||
|
jb @f
|
||||||
|
sub edx, 16
|
||||||
|
mov [Reg],edx ; PgUp
|
||||||
|
jmp red
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
mov [Reg], edx
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
.bt6:
|
||||||
|
cmp ah, 6
|
||||||
|
jne still
|
||||||
|
mcall 37, 1 ; get the mouse pointer
|
||||||
|
shr eax, 16 ; only X needed
|
||||||
|
sub eax, 124 ; check the left border
|
||||||
|
jb red
|
||||||
|
xor edx, edx
|
||||||
|
mov ebx, 12
|
||||||
|
div ebx
|
||||||
|
cmp eax, 32 ; check the right border
|
||||||
|
jnb red
|
||||||
|
mov ecx, 31
|
||||||
|
sub ecx, eax ; reverse the bit order
|
||||||
|
mov ebx, [Rct]
|
||||||
|
btc ebx, ecx ; invert the bit
|
||||||
|
mov eax, [Reg]
|
||||||
|
mov [Rct], ebx
|
||||||
|
call write_pcieind
|
||||||
|
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
print_config_reg:
|
||||||
|
;------------------------------------------------
|
||||||
|
mov eax, [Reg]
|
||||||
|
; and eax, 0x0FF
|
||||||
|
mov ebx, 3*65536+256 ; 3 hex digits
|
||||||
|
mov ecx, eax
|
||||||
|
mov dx,[stX]
|
||||||
|
shl edx,16 ; = X*65536
|
||||||
|
mov dx,[stY] ; = edx + Y
|
||||||
|
mov esi,0
|
||||||
|
mcall 47 ; print reg#
|
||||||
|
mov ecx, edx
|
||||||
|
call read_pcieind
|
||||||
|
mov edx, ecx
|
||||||
|
mov ecx, eax
|
||||||
|
add edx, 36*65536 ; right column
|
||||||
|
mov ebx, 8*65536+256 ; 8 hex digits
|
||||||
|
mcall 47 ; print config data
|
||||||
|
ret
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
read_pcieind:
|
||||||
|
; in: [Reg] = reg# | out: eax = [Rct] = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov edx, PCIEIND_INDEX
|
||||||
|
xor eax, eax
|
||||||
|
mov al, byte [Reg]
|
||||||
|
; or eax, 0x00020000 ; 2=translate to GPP; 1 = to SB; 0 = GFX (default)
|
||||||
|
mov [edx], eax
|
||||||
|
add dl, 4
|
||||||
|
mov eax, [edx]
|
||||||
|
mov [Rct], eax
|
||||||
|
ret
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
write_pcieind:
|
||||||
|
; in: [Reg] = reg#; [Rct] = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov edx, PCIEIND_INDEX
|
||||||
|
xor eax, eax
|
||||||
|
mov al, byte [Reg]
|
||||||
|
; set bits [18:16] as shown above^ to access GPP os SB bridges ^
|
||||||
|
mov [edx], eax
|
||||||
|
add dl, 4
|
||||||
|
mov eax, [Rct]
|
||||||
|
mov [edx], eax
|
||||||
|
sub dl, 4
|
||||||
|
xor eax, eax ; reg#1 = SCRATCH
|
||||||
|
inc al
|
||||||
|
mov [edx], eax ; safely switch the index
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
draw_window:
|
||||||
|
;------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 1
|
||||||
|
mcall 0, 600*65536+530, 410*65536+290, 0x1494A0B0,,title
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; BUTTONS: Xleft Xwid, Ytop Yheig
|
||||||
|
mcall 8, 370*65536+ 40, 26*65536+ 18, 2, 0x94A0B0 ; <<
|
||||||
|
mcall , , 51*65536+ 18, 3, ; >>
|
||||||
|
mcall , 425*65536+ 90, 26*65536+ 18, 4, ; Next Page
|
||||||
|
mcall , , 51*65536+ 18, 5, ; Prev Page
|
||||||
|
mcall , 117*65536+400, 97*65536+ 40, 6, ; Bits
|
||||||
|
|
||||||
|
call read_pcieind
|
||||||
|
|
||||||
|
mov ebx, bitstr2
|
||||||
|
inc ebx
|
||||||
|
mov edx, [Rct]
|
||||||
|
mov ecx, 0x80000000
|
||||||
|
xor eax, eax
|
||||||
|
.stringtest:
|
||||||
|
test edx, ecx
|
||||||
|
jz @f
|
||||||
|
mov byte [ebx+eax*2],'I' ; bit dump
|
||||||
|
jmp .nextbit
|
||||||
|
@@:
|
||||||
|
mov byte [ebx+eax*2],'0'
|
||||||
|
.nextbit:
|
||||||
|
inc eax
|
||||||
|
shr ecx, 1
|
||||||
|
jnz .stringtest
|
||||||
|
|
||||||
|
; button txt: X *65536+ Y
|
||||||
|
mcall 4, 378*65536+32 ,0x10000000, butstr2,3
|
||||||
|
mcall , 378*65536+57 , , butstr3,
|
||||||
|
mcall , 436*65536+32 , , butstr4,9
|
||||||
|
mcall , 436*65536+57 , , butstr5,
|
||||||
|
|
||||||
|
mcall 4, 122*65536+101,0 , bitstr0,65
|
||||||
|
mcall , 122*65536+110,0 , bitstr1,65
|
||||||
|
mcall , 122*65536+117,0 , bitstr2,65
|
||||||
|
mcall , 122*65536+126,0 , bitstr3,65
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; draw the reg-value box
|
||||||
|
mov ebx, 10*65536+100 ; Xleft | Xwidth
|
||||||
|
mov ecx, 26*65536+250 ; Ytop | Yheight
|
||||||
|
mov edx, BOX_COLOR
|
||||||
|
mcall 13
|
||||||
|
; draw the reg-address box
|
||||||
|
mov ebx, 206*65536+146 ; Xleft | Xwidth
|
||||||
|
mov cx, 44 ; Yheight only
|
||||||
|
mcall 13
|
||||||
|
|
||||||
|
; fill the data box
|
||||||
|
mov bx, 40 ; upper position
|
||||||
|
mov [stY],bx
|
||||||
|
mov eax, [Reg]
|
||||||
|
mov [reg], eax ; store original#
|
||||||
|
.print_reg_names:
|
||||||
|
call print_config_reg
|
||||||
|
add [stY],14
|
||||||
|
inc [Reg]
|
||||||
|
mov edx,[reg]
|
||||||
|
mov eax, 16
|
||||||
|
add eax, edx
|
||||||
|
cmp eax,[Reg]
|
||||||
|
ja .print_reg_names
|
||||||
|
mov [Reg], edx ; restore original#
|
||||||
|
|
||||||
|
; fill the status box
|
||||||
|
mcall 4, 210*65536+30,0,str1,12
|
||||||
|
mcall , 210*65536+44, ,str2,
|
||||||
|
mcall , 210*65536+56, ,str3,
|
||||||
|
call read_pcieind
|
||||||
|
mov ecx, PCIEIND_DATA
|
||||||
|
mov edx, 300*65536+30
|
||||||
|
mov ebx, 8*65536+256
|
||||||
|
mcall 47
|
||||||
|
add dx, 14
|
||||||
|
mov ecx,[Reg]
|
||||||
|
mov esi, 0
|
||||||
|
mcall 47
|
||||||
|
add dx,14
|
||||||
|
mov ecx, [Rct]
|
||||||
|
mcall 47
|
||||||
|
|
||||||
|
; print extra info
|
||||||
|
mov ebx, 120*65536+170
|
||||||
|
xor ecx, ecx
|
||||||
|
mov edx, info1
|
||||||
|
@@:
|
||||||
|
mcall 4,,,,66
|
||||||
|
add edx, 66
|
||||||
|
add ebx, 14
|
||||||
|
cmp edx, info_end
|
||||||
|
jb @b
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
align 4
|
||||||
|
;-------------------------------------------------
|
||||||
|
|
||||||
|
pix dd 0x55AACC33
|
||||||
|
pxX dd 200
|
||||||
|
pxY dd 160
|
||||||
|
stX dw 18
|
||||||
|
stY dw 0
|
||||||
|
reg dd 0
|
||||||
|
|
||||||
|
Rct dd 0 ; reg content
|
||||||
|
Reg dd 0x00 ; reg number
|
||||||
|
|
||||||
|
|
||||||
|
title db ' RS780 PCIe Core indirect registers ',0
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
reg_str db 'Reg#| hex.Value '
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
str1 db 'bdf address:'
|
||||||
|
str2 db 'Reg. number:'
|
||||||
|
str3 db 'Reg.content:'
|
||||||
|
|
||||||
|
butstr2 db ' << '
|
||||||
|
butstr3 db ' >> '
|
||||||
|
butstr4 db 'Next Page'
|
||||||
|
butstr5 db 'Prev Page'
|
||||||
|
|
||||||
|
bitstr0 db '31',209,205,209,205,209,205,209,205,209,205,209,205,'24',\
|
||||||
|
209,205,209,205,209,205,209,205,209,205,209,205,209,205,'16',\
|
||||||
|
209,'15',205,209,205,209,205,209,205,209,205,209,205,209,'8',\
|
||||||
|
205,'7',209,205,209,205,209,205,209,205,209,205,209,205,209,'0',184
|
||||||
|
bitstr1 db 179,' | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ',179
|
||||||
|
bitstr2 db 179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179,'9 8 7 6',\
|
||||||
|
179,'5 4 3 2',179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179
|
||||||
|
bitstr3 db 212,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,190
|
||||||
|
|
||||||
|
info1 db '------------- PCIe Core indirect registers shortlist -------------'
|
||||||
|
db '| |'
|
||||||
|
info2 db '| reg 13 - timeout status; 28,29 - line control |'
|
||||||
|
db '| reg 41 - buffer status; 42 - decoder errors |'
|
||||||
|
db '| reg 46 - symbol control; 60-62 impedance/strength control |'
|
||||||
|
db '| reg 71-78 latency control; 82-8F ??? |'
|
||||||
|
db '| reg EF - ERROR RESET; F0-FF error counters |'
|
||||||
|
db '------------------------------------------------------------------'
|
||||||
|
info_end:
|
||||||
|
|
||||||
|
I_END: ; end of program
|
||||||
|
|
||||||
|
rd 256
|
||||||
|
|
||||||
|
align 256
|
||||||
|
st_0:
|
||||||
322
kernel/branches/Kolibri-A/utilities/RS780/PCIEINDP.ASM
Normal file
322
kernel/branches/Kolibri-A/utilities/RS780/PCIEINDP.ASM
Normal file
@ -0,0 +1,322 @@
|
|||||||
|
;; rs780 PCIe Port indirect regs test
|
||||||
|
;; (C) art_zh 2010
|
||||||
|
;; <kolibri@jerdev.co.uk>
|
||||||
|
|
||||||
|
|
||||||
|
use32 ;
|
||||||
|
org 0x0 ;
|
||||||
|
|
||||||
|
db 'MENUET01' ;
|
||||||
|
dd 0x01 ;
|
||||||
|
dd START ;
|
||||||
|
dd I_END ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
|
||||||
|
include 'MACROS.INC' ;
|
||||||
|
|
||||||
|
PCIE_SPACE equ 0xF0000000
|
||||||
|
PCIEINDP_INDEX equ 0xF00100E0
|
||||||
|
PCIEINDP_DATA equ 0xF00100E4 ; bus 0, dev 2
|
||||||
|
BOX_COLOR equ 0xE0D8D0
|
||||||
|
|
||||||
|
START:
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
red:
|
||||||
|
|
||||||
|
call draw_window
|
||||||
|
|
||||||
|
still:
|
||||||
|
mcall 10 ; event waiting
|
||||||
|
|
||||||
|
cmp eax,1 ; redraw window
|
||||||
|
je red ;
|
||||||
|
cmp eax,2 ; key pressed?
|
||||||
|
je key ;
|
||||||
|
cmp eax,3 ; button hit?
|
||||||
|
je button ;
|
||||||
|
|
||||||
|
jmp still ; none of that
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
key: ; key pressed
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
button:
|
||||||
|
mcall 17 ; get the button ID
|
||||||
|
cmp ah, 1
|
||||||
|
jne .bt2
|
||||||
|
mcall -1
|
||||||
|
.bt2:
|
||||||
|
cmp ah, 2
|
||||||
|
jne .bt3
|
||||||
|
dec [Reg] ; Rg# decrement
|
||||||
|
jmp red
|
||||||
|
.bt3:
|
||||||
|
cmp ah, 3
|
||||||
|
jne .bt4
|
||||||
|
inc [Reg] ; Rg# increment
|
||||||
|
jmp red
|
||||||
|
.bt4:
|
||||||
|
cmp ah, 4
|
||||||
|
jne .bt5
|
||||||
|
add [Reg],16 ; PgDn
|
||||||
|
jmp red
|
||||||
|
.bt5:
|
||||||
|
cmp ah, 5
|
||||||
|
jne .bt6
|
||||||
|
mov edx, [Reg]
|
||||||
|
cmp edx, 16
|
||||||
|
jb @f
|
||||||
|
sub edx, 16
|
||||||
|
mov [Reg],edx ; PgUp
|
||||||
|
jmp red
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
mov [Reg], edx
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
.bt6:
|
||||||
|
cmp ah, 6
|
||||||
|
jne still
|
||||||
|
mcall 37, 1 ; get the mouse pointer
|
||||||
|
shr eax, 16 ; only X needed
|
||||||
|
sub eax, 124 ; check the left border
|
||||||
|
jb red
|
||||||
|
xor edx, edx
|
||||||
|
mov ebx, 12
|
||||||
|
div ebx
|
||||||
|
cmp eax, 32 ; check the right border
|
||||||
|
jnb red
|
||||||
|
mov ecx, 31
|
||||||
|
sub ecx, eax ; reverse the bit order
|
||||||
|
mov ebx, [Rct]
|
||||||
|
btc ebx, ecx ; invert the bit
|
||||||
|
mov eax, [Reg]
|
||||||
|
mov [Rct], ebx
|
||||||
|
call write_pcieind_p
|
||||||
|
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
print_config_reg:
|
||||||
|
;------------------------------------------------
|
||||||
|
mov eax, [Reg]
|
||||||
|
; and eax, 0x0FF
|
||||||
|
mov ebx, 3*65536+256 ; 3 hex digits
|
||||||
|
mov ecx, eax
|
||||||
|
mov dx,[stX]
|
||||||
|
shl edx,16 ; = X*65536
|
||||||
|
mov dx,[stY] ; = edx + Y
|
||||||
|
mov esi,0
|
||||||
|
mcall 47 ; print reg#
|
||||||
|
mov ecx, edx
|
||||||
|
call read_pcieind_p
|
||||||
|
mov edx, ecx
|
||||||
|
mov ecx, eax
|
||||||
|
add edx, 36*65536 ; right column
|
||||||
|
mov ebx, 8*65536+256 ; 8 hex digits
|
||||||
|
mcall 47 ; print config data
|
||||||
|
ret
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
read_pcieind_p:
|
||||||
|
; in: [Reg] = reg# | out: eax = [Rct] = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov edx, PCIEINDP_INDEX
|
||||||
|
xor eax, eax
|
||||||
|
mov ax, word [Reg]
|
||||||
|
mov [edx], eax
|
||||||
|
add dl, 4
|
||||||
|
mov eax, [edx]
|
||||||
|
mov [Rct], eax
|
||||||
|
ret
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
write_pcieind_p:
|
||||||
|
; in: [Reg] = reg#; [Rct] = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov edx, PCIEINDP_INDEX
|
||||||
|
xor eax, eax
|
||||||
|
mov ax, word [Reg]
|
||||||
|
mov [edx], eax
|
||||||
|
add dl, 4
|
||||||
|
mov eax, [Rct]
|
||||||
|
mov [edx], eax
|
||||||
|
sub dl, 4
|
||||||
|
xor eax, eax ; reg#1 = SCRATCH
|
||||||
|
inc al
|
||||||
|
mov [edx], eax ; safely switch the index
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
draw_window:
|
||||||
|
;------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 1
|
||||||
|
mcall 0, 1128*65536+530, 410*65536+290, 0x14B4A0A0,,title
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; BUTTONS: Xleft Xwid, Ytop Yheig
|
||||||
|
mcall 8, 370*65536+ 40, 26*65536+ 18, 2, 0xB4A0A0 ; <<
|
||||||
|
mcall , , 51*65536+ 18, 3, ; >>
|
||||||
|
mcall , 425*65536+ 90, 26*65536+ 18, 4, ; Next Page
|
||||||
|
mcall , , 51*65536+ 18, 5, ; Prev Page
|
||||||
|
mcall , 117*65536+400, 97*65536+ 40, 6, ; Bits
|
||||||
|
|
||||||
|
call read_pcieind_p
|
||||||
|
|
||||||
|
mov ebx, bitstr2
|
||||||
|
inc ebx
|
||||||
|
mov edx, [Rct]
|
||||||
|
mov ecx, 0x80000000
|
||||||
|
xor eax, eax
|
||||||
|
.stringtest:
|
||||||
|
test edx, ecx
|
||||||
|
jz @f
|
||||||
|
mov byte [ebx+eax*2],'I' ; bit dump
|
||||||
|
jmp .nextbit
|
||||||
|
@@:
|
||||||
|
mov byte [ebx+eax*2],'0'
|
||||||
|
.nextbit:
|
||||||
|
inc eax
|
||||||
|
shr ecx, 1
|
||||||
|
jnz .stringtest
|
||||||
|
|
||||||
|
; button txt: X *65536+ Y
|
||||||
|
mcall 4, 378*65536+32 ,0x10000000, butstr2,3
|
||||||
|
mcall , 378*65536+57 , , butstr3,
|
||||||
|
mcall , 436*65536+32 , , butstr4,9
|
||||||
|
mcall , 436*65536+57 , , butstr5,
|
||||||
|
|
||||||
|
mcall 4, 122*65536+101,0 , bitstr0,65
|
||||||
|
mcall , 122*65536+110,0 , bitstr1,65
|
||||||
|
mcall , 122*65536+117,0 , bitstr2,65
|
||||||
|
mcall , 122*65536+126,0 , bitstr3,65
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; draw the reg-value box
|
||||||
|
mov ebx, 10*65536+100 ; Xleft | Xwidth
|
||||||
|
mov ecx, 26*65536+250 ; Ytop | Yheight
|
||||||
|
mov edx, BOX_COLOR
|
||||||
|
mcall 13
|
||||||
|
; draw the reg-address box
|
||||||
|
mov ebx, 206*65536+146 ; Xleft | Xwidth
|
||||||
|
mov cx, 44 ; Yheight only
|
||||||
|
mcall 13
|
||||||
|
|
||||||
|
; fill the data box
|
||||||
|
mov bx, 40 ; upper position
|
||||||
|
mov [stY],bx
|
||||||
|
mov eax, [Reg]
|
||||||
|
mov [reg], eax ; store original#
|
||||||
|
.print_reg_names:
|
||||||
|
call print_config_reg
|
||||||
|
add [stY],14
|
||||||
|
inc [Reg]
|
||||||
|
mov edx,[reg]
|
||||||
|
mov eax, 16
|
||||||
|
add eax, edx
|
||||||
|
cmp eax,[Reg]
|
||||||
|
ja .print_reg_names
|
||||||
|
mov [Reg], edx ; restore original#
|
||||||
|
|
||||||
|
; fill the status box
|
||||||
|
mcall 4, 210*65536+30,0,str1,12
|
||||||
|
mcall , 210*65536+44, ,str2,
|
||||||
|
mcall , 210*65536+56, ,str3,
|
||||||
|
call read_pcieind_p
|
||||||
|
mov ecx, PCIEINDP_DATA
|
||||||
|
mov edx, 300*65536+30
|
||||||
|
mov ebx, 8*65536+256
|
||||||
|
mcall 47
|
||||||
|
add dx, 14
|
||||||
|
mov ecx,[Reg]
|
||||||
|
mov esi, 0
|
||||||
|
mcall 47
|
||||||
|
add dx,14
|
||||||
|
mov ecx, [Rct]
|
||||||
|
mcall 47
|
||||||
|
|
||||||
|
; print extra info
|
||||||
|
mov ebx, 120*65536+170
|
||||||
|
xor ecx, ecx
|
||||||
|
mov edx, info1
|
||||||
|
@@:
|
||||||
|
mcall 4,,,,66
|
||||||
|
add edx, 66
|
||||||
|
add ebx, 14
|
||||||
|
cmp edx, info_end
|
||||||
|
jb @b
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
align 4
|
||||||
|
;-------------------------------------------------
|
||||||
|
|
||||||
|
pix dd 0x55AACC33
|
||||||
|
pxX dd 200
|
||||||
|
pxY dd 160
|
||||||
|
stX dw 18
|
||||||
|
stY dw 0
|
||||||
|
reg dd 0
|
||||||
|
|
||||||
|
Rct dd 0 ; reg content
|
||||||
|
Reg dd 0x00 ; reg number
|
||||||
|
|
||||||
|
|
||||||
|
title db ' RS780 PCIe GFX Port indirect registers ',0
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
reg_str db 'Reg#| hex.Value '
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
str1 db 'bdf address:'
|
||||||
|
str2 db 'Reg. number:'
|
||||||
|
str3 db 'Reg.content:'
|
||||||
|
|
||||||
|
butstr2 db ' << '
|
||||||
|
butstr3 db ' >> '
|
||||||
|
butstr4 db 'Next Page'
|
||||||
|
butstr5 db 'Prev Page'
|
||||||
|
|
||||||
|
bitstr0 db '31',209,205,209,205,209,205,209,205,209,205,209,205,'24',\
|
||||||
|
209,205,209,205,209,205,209,205,209,205,209,205,209,205,'16',\
|
||||||
|
209,'15',205,209,205,209,205,209,205,209,205,209,205,209,'8',\
|
||||||
|
205,'7',209,205,209,205,209,205,209,205,209,205,209,205,209,'0',184
|
||||||
|
bitstr1 db 179,' | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ',179
|
||||||
|
bitstr2 db 179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179,'9 8 7 6',\
|
||||||
|
179,'5 4 3 2',179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179
|
||||||
|
bitstr3 db 212,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,190
|
||||||
|
|
||||||
|
info1 db '----------- PCIe GFX port indirect registers shortlist -----------'
|
||||||
|
db '| |'
|
||||||
|
info2 db '| reg 10 - port control; 20-25 - Tx control |'
|
||||||
|
db '| reg 30-36 - Tx credits; 50 - line status |'
|
||||||
|
db '| reg 60-62 - flow control; 70-72 Rx control |'
|
||||||
|
db '| reg 80-84 - Rx credits; A0,B1-B5 line control |'
|
||||||
|
db '| reg A1-A6 - lane training; A4 - speed control |'
|
||||||
|
db '------------------------------------------------------------------'
|
||||||
|
info_end:
|
||||||
|
|
||||||
|
I_END: ; end of program
|
||||||
|
|
||||||
|
rd 256
|
||||||
|
|
||||||
|
align 256
|
||||||
|
st_0:
|
||||||
346
kernel/branches/Kolibri-A/utilities/RS780/PCIETST.ASM
Normal file
346
kernel/branches/Kolibri-A/utilities/RS780/PCIETST.ASM
Normal file
@ -0,0 +1,346 @@
|
|||||||
|
;; rs780 PCIe config space test
|
||||||
|
;; (C) art_zh 2010
|
||||||
|
;; <kolibri@jerdev.co.uk>
|
||||||
|
|
||||||
|
|
||||||
|
use32 ;
|
||||||
|
org 0x0 ;
|
||||||
|
|
||||||
|
db 'MENUET01' ;
|
||||||
|
dd 0x01 ;
|
||||||
|
dd START ;
|
||||||
|
dd I_END ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
|
||||||
|
include 'MACROS.INC' ;
|
||||||
|
|
||||||
|
PCIE_SPACE equ 0xF0000000
|
||||||
|
;PCIE_ADDR equ 0xF0008000 ; bdf0:1.0 = internal GFX P2P bridge
|
||||||
|
PCIE_ADDR equ 0xF0010000 ; bdf0:2.0 = PCIE P2P bridge
|
||||||
|
BOX_COLOR equ 0xE0D8D0
|
||||||
|
|
||||||
|
START:
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
red:
|
||||||
|
|
||||||
|
call draw_window
|
||||||
|
|
||||||
|
still:
|
||||||
|
mcall 10 ; event waiting
|
||||||
|
|
||||||
|
cmp eax,1 ; redraw window
|
||||||
|
je red ;
|
||||||
|
cmp eax,2 ; key pressed?
|
||||||
|
je key ;
|
||||||
|
cmp eax,3 ; button hit?
|
||||||
|
je button ;
|
||||||
|
|
||||||
|
jmp still ; none of that
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
key: ; key pressed
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
button:
|
||||||
|
mcall 17 ; get the button ID
|
||||||
|
cmp ah, 1
|
||||||
|
jne .bt2
|
||||||
|
mcall -1
|
||||||
|
.bt2:
|
||||||
|
cmp ah, 2
|
||||||
|
jne .bt3
|
||||||
|
sub [Reg],4 ; Rg# decrement
|
||||||
|
jmp red
|
||||||
|
.bt3:
|
||||||
|
cmp ah, 3
|
||||||
|
jne .bt4
|
||||||
|
add [Reg],4 ; Rg# increment
|
||||||
|
jmp red
|
||||||
|
.bt4:
|
||||||
|
cmp ah, 4
|
||||||
|
jne .bt5
|
||||||
|
add [Reg],4*16 ; PgDn
|
||||||
|
jmp red
|
||||||
|
.bt5:
|
||||||
|
cmp ah, 5
|
||||||
|
jne .bt6
|
||||||
|
mov edx, [Reg]
|
||||||
|
cmp edx, 4*16
|
||||||
|
jb @f
|
||||||
|
sub edx, 4*16
|
||||||
|
mov [Reg],edx ; PgUp
|
||||||
|
jmp red
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
mov [Reg], edx
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
.bt6:
|
||||||
|
cmp ah, 6
|
||||||
|
jne still
|
||||||
|
mcall 37, 1 ; get the mouse pointer
|
||||||
|
shr eax, 16 ; only X needed
|
||||||
|
sub eax, 124 ; check the left border
|
||||||
|
jb red
|
||||||
|
xor edx, edx
|
||||||
|
mov ebx, 12
|
||||||
|
div ebx
|
||||||
|
cmp eax, 32 ; check the right border
|
||||||
|
jnb red
|
||||||
|
mov ecx, 31
|
||||||
|
sub ecx, eax ; reverse the bit order
|
||||||
|
mov ebx, [Rct]
|
||||||
|
btc ebx, ecx ; invert the bit
|
||||||
|
mov eax, [Reg]
|
||||||
|
add eax, PCIE_ADDR
|
||||||
|
mov [Rct], ebx
|
||||||
|
mov [eax], ebx
|
||||||
|
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
print_config_reg:
|
||||||
|
;------------------------------------------------
|
||||||
|
mov eax, [reg]
|
||||||
|
and eax, 0x0FFC
|
||||||
|
mov ebx, 4*65536+256 ; 4 hex digits
|
||||||
|
mov ecx, eax
|
||||||
|
mov dx,[stX]
|
||||||
|
shl edx,16 ; = X*65536
|
||||||
|
mov dx,[stY] ; = edx + Y
|
||||||
|
mov esi,0
|
||||||
|
mcall 47 ; print reg#
|
||||||
|
mov eax, [reg]
|
||||||
|
add eax, PCIE_ADDR
|
||||||
|
mov ecx, [eax]
|
||||||
|
add edx, 36*65536 ; right column
|
||||||
|
mov ebx, 8*65536+256 ; 8 hex digits
|
||||||
|
mcall 47 ; print config data
|
||||||
|
ret
|
||||||
|
;------------------------------------------------
|
||||||
|
read_nbconfig:
|
||||||
|
; in: dl = reg# | out: eax = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov ebx, 0xF0000000
|
||||||
|
and edx, 0x0FC
|
||||||
|
mov eax, dword [ebx+edx]
|
||||||
|
ret
|
||||||
|
;------------------------------------------------
|
||||||
|
write_nbconfig:
|
||||||
|
; in: dl = reg#; eax = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov ebx, 0xF0000000
|
||||||
|
and edx, 0x0FC
|
||||||
|
mov dword [ebx+edx], eax
|
||||||
|
ret
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
;read_htiunbind:
|
||||||
|
; in: [HTr] = reg# | out: eax = data
|
||||||
|
;------------------------------------------------
|
||||||
|
; mov dl, 0x94
|
||||||
|
; mov al, byte[HTr]
|
||||||
|
; and eax, 0x07C
|
||||||
|
; call write_nbconfig
|
||||||
|
; add dl, 4
|
||||||
|
; call read_nbconfig
|
||||||
|
; ret
|
||||||
|
;------------------------------------------------
|
||||||
|
;write_htiunbind:
|
||||||
|
; in: [HTr] = reg#; ecx = data
|
||||||
|
;------------------------------------------------
|
||||||
|
; mov dl, 0x94
|
||||||
|
; mov al, byte[Reg]
|
||||||
|
; and eax, 0x017C
|
||||||
|
; call write_nbconfig
|
||||||
|
; add dl, 4
|
||||||
|
; mov ecx, eax
|
||||||
|
; call write_nbconfig
|
||||||
|
; sub dl, 4
|
||||||
|
; mov eax, 0x0
|
||||||
|
; call write_nbconfig
|
||||||
|
; ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
draw_window:
|
||||||
|
;------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 1
|
||||||
|
mcall 0, 600*65536+530, 120*65536+290, 0x1499AABB,,title
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; BUTTONS: Xleft Xwid, Ytop Yheig
|
||||||
|
mcall 8, 370*65536+ 40, 26*65536+ 18, 2, 0x99AABB ; <<
|
||||||
|
mcall , , 51*65536+ 18, 3, ; >>
|
||||||
|
mcall , 425*65536+ 90, 26*65536+ 18, 4, ; PCIe Cfg
|
||||||
|
mcall , , 51*65536+ 18, 5, ; NB config
|
||||||
|
mcall , 117*65536+400, 97*65536+ 40, 6, ; Bits
|
||||||
|
|
||||||
|
mov edx, [Reg]
|
||||||
|
add edx, PCIE_ADDR ; reading the current reg content
|
||||||
|
mov ecx, [edx]
|
||||||
|
mov [Rct], ecx
|
||||||
|
|
||||||
|
mov ebx, bitstr2
|
||||||
|
inc ebx
|
||||||
|
mov edx, [Rct]
|
||||||
|
mov ecx, 0x80000000
|
||||||
|
xor eax, eax
|
||||||
|
.stringtest:
|
||||||
|
test edx, ecx
|
||||||
|
jz @f
|
||||||
|
mov byte [ebx+eax*2],'I' ; bit dump
|
||||||
|
jmp .nextbit
|
||||||
|
@@:
|
||||||
|
mov byte [ebx+eax*2],'0'
|
||||||
|
.nextbit:
|
||||||
|
inc eax
|
||||||
|
shr ecx, 1
|
||||||
|
jnz .stringtest
|
||||||
|
|
||||||
|
; button txt: X *65536+ Y
|
||||||
|
mcall 4, 378*65536+32 ,0x10000000, butstr2,3
|
||||||
|
mcall , 378*65536+57 , , butstr3,
|
||||||
|
mcall , 436*65536+32 , , butstr4,9
|
||||||
|
mcall , 436*65536+57 , , butstr5,
|
||||||
|
|
||||||
|
mcall 4, 122*65536+101,0 , bitstr0,65
|
||||||
|
mcall , 122*65536+110,0 , bitstr1,65
|
||||||
|
mcall , 122*65536+117,0 , bitstr2,65
|
||||||
|
mcall , 122*65536+126,0 , bitstr3,65
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; draw the reg-value box
|
||||||
|
mov ebx, 10*65536+100 ; Xleft | Xwidth
|
||||||
|
mov ecx, 26*65536+250 ; Ytop | Yheight
|
||||||
|
mov edx, BOX_COLOR
|
||||||
|
mcall 13
|
||||||
|
; draw the reg-address box
|
||||||
|
mov ebx, 206*65536+146 ; Xleft | Xwidth
|
||||||
|
mov cx, 44 ; Yheight only
|
||||||
|
mcall 13
|
||||||
|
; draw ZiS status box
|
||||||
|
; mov ebx, 206*65536+274 ; Xleft | Xwidth
|
||||||
|
; mov ecx, 84*65536+ 64 ; Ytop | Yheight
|
||||||
|
; mcall 13
|
||||||
|
; draw the dump box
|
||||||
|
; mov ebx, 206*65536+274 ; Xleft | Xwidth
|
||||||
|
; mov ecx, 190*65536+232 ; Ytop | Yheight
|
||||||
|
; mcall 13
|
||||||
|
|
||||||
|
; fill the data box
|
||||||
|
mov ebx, [Reg]
|
||||||
|
mov [reg],ebx
|
||||||
|
mov bx, 40 ; upper position
|
||||||
|
mov [stY],bx
|
||||||
|
.print_reg_names:
|
||||||
|
call print_config_reg
|
||||||
|
add [stY],14
|
||||||
|
add [reg], 4
|
||||||
|
mov edx,[Reg]
|
||||||
|
add edx,16*4
|
||||||
|
cmp edx,[reg]
|
||||||
|
ja .print_reg_names
|
||||||
|
|
||||||
|
; fill the status box
|
||||||
|
mcall 4, 210*65536+30,0,str1,12
|
||||||
|
mcall , 210*65536+44, ,str2,
|
||||||
|
mcall , 210*65536+56, ,str3,
|
||||||
|
mov ecx, PCIE_ADDR
|
||||||
|
mov edx, 300*65536+30
|
||||||
|
mov ebx, 8*65536+256
|
||||||
|
mcall 47
|
||||||
|
add dx, 14
|
||||||
|
mov ecx,[Reg]
|
||||||
|
mov esi, 0
|
||||||
|
mcall 47
|
||||||
|
add dx,14
|
||||||
|
mov ecx, [Rct]
|
||||||
|
mcall 47
|
||||||
|
|
||||||
|
; print extra info
|
||||||
|
mov ebx, 120*65536+180
|
||||||
|
xor ecx, ecx
|
||||||
|
mov edx, info1
|
||||||
|
@@:
|
||||||
|
mcall 4,,,,66
|
||||||
|
add edx, 66
|
||||||
|
add ebx, 14
|
||||||
|
cmp edx, info_end
|
||||||
|
jb @b
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
align 4
|
||||||
|
;-------------------------------------------------
|
||||||
|
|
||||||
|
pix dd 0x55AACC33
|
||||||
|
pxX dd 200
|
||||||
|
pxY dd 160
|
||||||
|
stX dw 18
|
||||||
|
stY dw 0
|
||||||
|
reg dd 0
|
||||||
|
|
||||||
|
Rct dd 0 ; reg content
|
||||||
|
Reg dd 0x00 ; reg number
|
||||||
|
|
||||||
|
|
||||||
|
title db ' RS780 PCIe registers ',0
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
reg_str db 'Reg#| hex.Value '
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
str1 db 'bdf address:'
|
||||||
|
str2 db 'Reg. number:'
|
||||||
|
str3 db 'Reg.content:'
|
||||||
|
|
||||||
|
butstr2 db ' << '
|
||||||
|
butstr3 db ' >> '
|
||||||
|
butstr4 db 'Next Page'
|
||||||
|
butstr5 db 'Prev Page'
|
||||||
|
|
||||||
|
bitstr0 db '31',209,205,209,205,209,205,209,205,209,205,209,205,'24',\
|
||||||
|
209,205,209,205,209,205,209,205,209,205,209,205,209,205,'16',\
|
||||||
|
209,'15',205,209,205,209,205,209,205,209,205,209,205,209,'8',\
|
||||||
|
205,'7',209,205,209,205,209,205,209,205,209,205,209,205,209,'0',184
|
||||||
|
bitstr1 db 179,' | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ',179
|
||||||
|
bitstr2 db 179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179,'9 8 7 6',\
|
||||||
|
179,'5 4 3 2',179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179
|
||||||
|
bitstr3 db 212,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,190
|
||||||
|
|
||||||
|
info1 db '--------------------------- extra info ---------------------------'
|
||||||
|
info2 db '| reg 00[31:16] (DeviceID): 9602=int. GFX; 9603=PCIE GFX bridge |'
|
||||||
|
db '| reg |'
|
||||||
|
db '| reg |'
|
||||||
|
db '| reg |'
|
||||||
|
db '------------------------------------------------------------------'
|
||||||
|
info_end:
|
||||||
|
|
||||||
|
I_END: ; end of program
|
||||||
|
|
||||||
|
rd 256
|
||||||
|
|
||||||
|
align 256
|
||||||
|
st_0:
|
||||||
345
kernel/branches/Kolibri-A/utilities/RS780/XLX_TST.ASM
Normal file
345
kernel/branches/Kolibri-A/utilities/RS780/XLX_TST.ASM
Normal file
@ -0,0 +1,345 @@
|
|||||||
|
;; ZiS-3 board test
|
||||||
|
;; (C) art_zh 2010
|
||||||
|
;; <artem@jerdev.co.uk>
|
||||||
|
|
||||||
|
|
||||||
|
use32 ;
|
||||||
|
org 0x0 ;
|
||||||
|
|
||||||
|
db 'MENUET01' ;
|
||||||
|
dd 0x01 ;
|
||||||
|
dd START ;
|
||||||
|
dd I_END ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x1000 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
dd 0x0 ;
|
||||||
|
|
||||||
|
include 'MACROS.INC' ;
|
||||||
|
|
||||||
|
PCIE_SPACE equ 0xF0000000
|
||||||
|
PCIE_ADDR equ 0xF0200000 ; bus 2, dev 0 fn 0
|
||||||
|
BOX_COLOR equ 0xE0D8D0
|
||||||
|
|
||||||
|
START:
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
red:
|
||||||
|
|
||||||
|
call draw_window
|
||||||
|
|
||||||
|
still:
|
||||||
|
mcall 10 ; event waiting
|
||||||
|
|
||||||
|
cmp eax,1 ; redraw window
|
||||||
|
je red ;
|
||||||
|
cmp eax,2 ; key pressed?
|
||||||
|
je key ;
|
||||||
|
cmp eax,3 ; button hit?
|
||||||
|
je button ;
|
||||||
|
|
||||||
|
jmp still ; none of that
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
key: ; key pressed
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
;---------------------------------------------------------------------
|
||||||
|
|
||||||
|
button:
|
||||||
|
mcall 17 ; get the button ID
|
||||||
|
cmp ah, 1
|
||||||
|
jne .bt2
|
||||||
|
mcall -1
|
||||||
|
.bt2:
|
||||||
|
cmp ah, 2
|
||||||
|
jne .bt3
|
||||||
|
sub [Reg],4 ; Rg# decrement
|
||||||
|
jmp red
|
||||||
|
.bt3:
|
||||||
|
cmp ah, 3
|
||||||
|
jne .bt4
|
||||||
|
add [Reg],4 ; Rg# increment
|
||||||
|
jmp red
|
||||||
|
.bt4:
|
||||||
|
cmp ah, 4
|
||||||
|
jne .bt5
|
||||||
|
add [Reg],4*16 ; PgDn
|
||||||
|
jmp red
|
||||||
|
.bt5:
|
||||||
|
cmp ah, 5
|
||||||
|
jne .bt6
|
||||||
|
mov edx, [Reg]
|
||||||
|
cmp edx, 4*16
|
||||||
|
jb @f
|
||||||
|
sub edx, 4*16
|
||||||
|
mov [Reg],edx ; PgUp
|
||||||
|
jmp red
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
mov [Reg], edx
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
.bt6:
|
||||||
|
cmp ah, 6
|
||||||
|
jne still
|
||||||
|
mcall 37, 1 ; get the mouse pointer
|
||||||
|
shr eax, 16 ; only X needed
|
||||||
|
sub eax, 124 ; check the left border
|
||||||
|
jb red
|
||||||
|
xor edx, edx
|
||||||
|
mov ebx, 12
|
||||||
|
div ebx
|
||||||
|
cmp eax, 32 ; check the right border
|
||||||
|
jnb red
|
||||||
|
mov ecx, 31
|
||||||
|
sub ecx, eax ; reverse the bit order
|
||||||
|
mov ebx, [Rct]
|
||||||
|
btc ebx, ecx ; invert the bit
|
||||||
|
mov eax, [Reg]
|
||||||
|
add eax, PCIE_ADDR
|
||||||
|
mov [Rct], ebx
|
||||||
|
mov [eax], ebx
|
||||||
|
|
||||||
|
jmp red
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
print_config_reg:
|
||||||
|
;------------------------------------------------
|
||||||
|
mov eax, [reg]
|
||||||
|
and eax, 0x0FFC
|
||||||
|
mov ebx, 4*65536+256 ; 4 hex digits
|
||||||
|
mov ecx, eax
|
||||||
|
mov dx,[stX]
|
||||||
|
shl edx,16 ; = X*65536
|
||||||
|
mov dx,[stY] ; = edx + Y
|
||||||
|
mov esi,0
|
||||||
|
mcall 47 ; print reg#
|
||||||
|
mov eax, [reg]
|
||||||
|
add eax, PCIE_ADDR
|
||||||
|
mov ecx, [eax]
|
||||||
|
add edx, 36*65536 ; right column
|
||||||
|
mov ebx, 8*65536+256 ; 8 hex digits
|
||||||
|
mcall 47 ; print config data
|
||||||
|
ret
|
||||||
|
;------------------------------------------------
|
||||||
|
read_nbconfig:
|
||||||
|
; in: dl = reg# | out: eax = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov ebx, 0xF0000000
|
||||||
|
and edx, 0x0FC
|
||||||
|
mov eax, dword [ebx+edx]
|
||||||
|
ret
|
||||||
|
;------------------------------------------------
|
||||||
|
write_nbconfig:
|
||||||
|
; in: dl = reg#; eax = data
|
||||||
|
;------------------------------------------------
|
||||||
|
mov ebx, 0xF0000000
|
||||||
|
and edx, 0x0FC
|
||||||
|
mov dword [ebx+edx], eax
|
||||||
|
ret
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
;read_htiunbind:
|
||||||
|
; in: [HTr] = reg# | out: eax = data
|
||||||
|
;------------------------------------------------
|
||||||
|
; mov dl, 0x94
|
||||||
|
; mov al, byte[HTr]
|
||||||
|
; and eax, 0x07C
|
||||||
|
; call write_nbconfig
|
||||||
|
; add dl, 4
|
||||||
|
; call read_nbconfig
|
||||||
|
; ret
|
||||||
|
;------------------------------------------------
|
||||||
|
;write_htiunbind:
|
||||||
|
; in: [HTr] = reg#; ecx = data
|
||||||
|
;------------------------------------------------
|
||||||
|
; mov dl, 0x94
|
||||||
|
; mov al, byte[Reg]
|
||||||
|
; and eax, 0x017C
|
||||||
|
; call write_nbconfig
|
||||||
|
; add dl, 4
|
||||||
|
; mov ecx, eax
|
||||||
|
; call write_nbconfig
|
||||||
|
; sub dl, 4
|
||||||
|
; mov eax, 0x0
|
||||||
|
; call write_nbconfig
|
||||||
|
; ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;------------------------------------------------
|
||||||
|
draw_window:
|
||||||
|
;------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 1
|
||||||
|
mcall 0, 1128*65536+530, 120*65536+290, 0x14B6A0A0,,title
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; BUTTONS: Xleft Xwid, Ytop Yheig
|
||||||
|
mcall 8, 370*65536+ 40, 26*65536+ 18, 2, 0xB6A0A0 ; <<
|
||||||
|
mcall , , 51*65536+ 18, 3, ; >>
|
||||||
|
mcall , 425*65536+ 90, 26*65536+ 18, 4, ; PCIe Cfg
|
||||||
|
mcall , , 51*65536+ 18, 5, ; NB config
|
||||||
|
mcall , 117*65536+400, 97*65536+ 40, 6, ; Bits
|
||||||
|
|
||||||
|
mov edx, [Reg]
|
||||||
|
add edx, PCIE_ADDR ; reading the current reg content
|
||||||
|
mov ecx, [edx]
|
||||||
|
mov [Rct], ecx
|
||||||
|
|
||||||
|
mov ebx, bitstr2
|
||||||
|
inc ebx
|
||||||
|
mov edx, [Rct]
|
||||||
|
mov ecx, 0x80000000
|
||||||
|
xor eax, eax
|
||||||
|
.stringtest:
|
||||||
|
test edx, ecx
|
||||||
|
jz @f
|
||||||
|
mov byte [ebx+eax*2],'I' ; bit dump
|
||||||
|
jmp .nextbit
|
||||||
|
@@:
|
||||||
|
mov byte [ebx+eax*2],'0'
|
||||||
|
.nextbit:
|
||||||
|
inc eax
|
||||||
|
shr ecx, 1
|
||||||
|
jnz .stringtest
|
||||||
|
|
||||||
|
; button txt: X *65536+ Y
|
||||||
|
mcall 4, 378*65536+32 ,0x10000000, butstr2,3
|
||||||
|
mcall , 378*65536+57 , , butstr3,
|
||||||
|
mcall , 436*65536+32 , , butstr4,9
|
||||||
|
mcall , 436*65536+57 , , butstr5,
|
||||||
|
|
||||||
|
mcall 4, 122*65536+101,0 , bitstr0,65
|
||||||
|
mcall , 122*65536+110,0 , bitstr1,65
|
||||||
|
mcall , 122*65536+117,0 , bitstr2,65
|
||||||
|
mcall , 122*65536+126,0 , bitstr3,65
|
||||||
|
; -----------------------------------------------------------------
|
||||||
|
; draw the reg-value box
|
||||||
|
mov ebx, 10*65536+100 ; Xleft | Xwidth
|
||||||
|
mov ecx, 26*65536+250 ; Ytop | Yheight
|
||||||
|
mov edx, BOX_COLOR
|
||||||
|
mcall 13
|
||||||
|
; draw the reg-address box
|
||||||
|
mov ebx, 206*65536+146 ; Xleft | Xwidth
|
||||||
|
mov cx, 44 ; Yheight only
|
||||||
|
mcall 13
|
||||||
|
; draw ZiS status box
|
||||||
|
; mov ebx, 206*65536+274 ; Xleft | Xwidth
|
||||||
|
; mov ecx, 84*65536+ 64 ; Ytop | Yheight
|
||||||
|
; mcall 13
|
||||||
|
; draw the dump box
|
||||||
|
; mov ebx, 206*65536+274 ; Xleft | Xwidth
|
||||||
|
; mov ecx, 190*65536+232 ; Ytop | Yheight
|
||||||
|
; mcall 13
|
||||||
|
|
||||||
|
; fill the data box
|
||||||
|
mov ebx, [Reg]
|
||||||
|
mov [reg],ebx
|
||||||
|
mov bx, 40 ; upper position
|
||||||
|
mov [stY],bx
|
||||||
|
.print_reg_names:
|
||||||
|
call print_config_reg
|
||||||
|
add [stY],14
|
||||||
|
add [reg], 4
|
||||||
|
mov edx,[Reg]
|
||||||
|
add edx,16*4
|
||||||
|
cmp edx,[reg]
|
||||||
|
ja .print_reg_names
|
||||||
|
|
||||||
|
; fill the status box
|
||||||
|
mcall 4, 210*65536+30,0,str1,12
|
||||||
|
mcall , 210*65536+44, ,str2,
|
||||||
|
mcall , 210*65536+56, ,str3,
|
||||||
|
mov ecx, PCIE_ADDR
|
||||||
|
mov edx, 300*65536+30
|
||||||
|
mov ebx, 8*65536+256
|
||||||
|
mcall 47
|
||||||
|
add dx, 14
|
||||||
|
mov ecx,[Reg]
|
||||||
|
mov esi, 0
|
||||||
|
mcall 47
|
||||||
|
add dx,14
|
||||||
|
mov ecx, [Rct]
|
||||||
|
mcall 47
|
||||||
|
|
||||||
|
; print extra info
|
||||||
|
mov ebx, 120*65536+180
|
||||||
|
xor ecx, ecx
|
||||||
|
mov edx, info1
|
||||||
|
@@:
|
||||||
|
mcall 4,,,,66
|
||||||
|
add edx, 66
|
||||||
|
add ebx, 14
|
||||||
|
cmp edx, info_end
|
||||||
|
jb @b
|
||||||
|
|
||||||
|
|
||||||
|
mcall 12, 2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
align 4
|
||||||
|
;-------------------------------------------------
|
||||||
|
|
||||||
|
pix dd 0x55AACC33
|
||||||
|
pxX dd 200
|
||||||
|
pxY dd 160
|
||||||
|
stX dw 18
|
||||||
|
stY dw 0
|
||||||
|
reg dd 0
|
||||||
|
|
||||||
|
Rct dd 0 ; reg content
|
||||||
|
Reg dd 0x00 ; reg number
|
||||||
|
|
||||||
|
|
||||||
|
title db ' ZiS-3 monitor (C) A.Jerdev 2010',0
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
reg_str db 'Reg#| hex.Value '
|
||||||
|
;------------------------------------------------------------------------------------
|
||||||
|
str1 db 'bdf address:'
|
||||||
|
str2 db 'Reg. number:'
|
||||||
|
str3 db 'Reg.content:'
|
||||||
|
|
||||||
|
butstr2 db ' << '
|
||||||
|
butstr3 db ' >> '
|
||||||
|
butstr4 db 'Next Page'
|
||||||
|
butstr5 db 'Prev Page'
|
||||||
|
|
||||||
|
bitstr0 db '31',209,205,209,205,209,205,209,205,209,205,209,205,'24',\
|
||||||
|
209,205,209,205,209,205,209,205,209,205,209,205,209,205,'16',\
|
||||||
|
209,'15',205,209,205,209,205,209,205,209,205,209,205,209,'8',\
|
||||||
|
205,'7',209,205,209,205,209,205,209,205,209,205,209,205,209,'0',184
|
||||||
|
bitstr1 db 179,' | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ',179
|
||||||
|
bitstr2 db 179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179,'9 8 7 6',\
|
||||||
|
179,'5 4 3 2',179,'1 0 9 8',179,'7 6 5 4',179,'3 2 1 0',179
|
||||||
|
bitstr3 db 212,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,205,207,\
|
||||||
|
205,207,205,207,205,207,205,207,205,207,205,190
|
||||||
|
|
||||||
|
info1 db '--------------------------- extra info ---------------------------'
|
||||||
|
info2 db '| reg 68: Device Status + Device Control register |'
|
||||||
|
db '| reg 6C: PCIe Capability register. |'
|
||||||
|
db '| reg 70: PCIe Status register. |'
|
||||||
|
db '| reg 00: Vendor = 10EE, Device = 0007 |'
|
||||||
|
db '------------------------------------------------------------------'
|
||||||
|
info_end:
|
||||||
|
|
||||||
|
I_END: ; end of program
|
||||||
|
|
||||||
|
rd 256
|
||||||
|
|
||||||
|
align 256
|
||||||
|
st_0:
|
||||||
Loading…
Reference in New Issue
Block a user