/kernel/branches/Kolibri-A/utilities/SB700/LPC_REG.ASM |
---|
0,0 → 1,345 |
;; ZiS test -- Art J ;; |
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 0xF00A3000 ; bdf0:20.3 = SB7xx LPC Config Registers |
BOX_COLOR equ 0xE0D8D0 |
START: |
mov edx, 0x88 |
add edx, PCIE_ADDR |
mov eax, 0x00010101 |
mov [edx], eax |
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, 0x1499AAA0,,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 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª |
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 ' SB710 LPC Config Registers - LPC_Reg ',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): 439D = SB7100/710/750 LPC bus |' |
db '| reg |' |
db '| reg |' |
db '| reg |' |
db '------------------------------------------------------------------' |
info_end: |
I_END: ; end of program |
rd 256 |
align 256 |
st_0: |
/kernel/branches/Kolibri-A/utilities/SB700/PCI_REG.ASM |
---|
0,0 → 1,344 |
$Revision: 1598 $ |
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 0xF00A0000 ; bdf0:20.0 = SB7xx PCI Config Registers |
BOX_COLOR equ 0xE0D8D0 |
START: |
mov edx, 0x88 |
add edx, PCIE_ADDR |
mov eax, 0x00010101 |
mov [edx], eax |
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 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª |
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 ' SB710 PCI Config Registers - PCI_Reg ',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): 4385=SB7100/710/750 SMBus module |' |
db '| reg |' |
db '| reg |' |
db '| reg |' |
db '------------------------------------------------------------------' |
info_end: |
I_END: ; end of program |
rd 256 |
align 256 |
st_0: |
/kernel/branches/Kolibri-A/utilities/SB700/SB_CM_RG.ASM |
---|
0,0 → 1,314 |
$Revision: 1598 $ |
use32 ; |
org 0x0 ; |
db 'MENUET01' ; |
dd 0x01 ; |
dd START ; |
dd I_END ; |
dd 0x1000 ; |
dd 0x1000 ; |
dd 0x0 ; |
dd 0x0 ; |
include 'MACROS.INC' ; |
SB_PM_INDEX equ 0xC50 |
SB_PM_DATA equ 0xC51 |
BOX_COLOR equ 0xD0C8C0 |
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_sb_pm_reg |
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_sb_pm_reg |
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_sb_pm_reg: |
; in: [Reg] = reg# | out: eax = [Rct] = data |
;------------------------------------------------ |
mov dx, SB_PM_INDEX |
xor eax, eax |
mov al, byte [Reg] |
out dx, al |
inc dl |
in al, dx |
mov [Rct], eax |
ret |
;------------------------------------------------ |
write_sb_pm_reg: |
; in: [Reg] = reg#; [Rct] = data |
;------------------------------------------------ |
mov dx, SB_PM_INDEX |
xor eax, eax |
mov al, byte [Reg] |
out dx, al |
inc dl |
mov eax, [Rct] |
out dx, al |
ret |
;------------------------------------------------ |
draw_window: |
;------------------------------------------------ |
mcall 12, 1 |
mcall 0, 600*65536+530, 410*65536+290, 0x14748090,,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_sb_pm_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] |
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_sb_pm_reg |
mov ecx, SB_PM_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 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª |
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 ' SB710 Client Management Registers - IO_CM_Reg',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 '------------- PM REG -------------' |
db '| see AMD SB700/710/750 Register Reference Guide, pp.172-173 |' |
info2 db '| reg 00 - IdRegister |' |
db '| reg 02 [0]: logical status of TALERT/GPIO64 input (read-clears)|' |
db '| reg 03 [1]: generate SMI# ipon TALERT |' |
db '| reg 12 - I2C Control |' |
db '| reg 13 [7:6]: GpmPortStatus (00=read; 01=OE; 10=output) |' |
db '------------------------------------------------------------------' |
info_end: |
I_END: ; end of program |
rd 256 |
align 256 |
st_0: |
/kernel/branches/Kolibri-A/utilities/SB700/SB_IO_RG.ASM |
---|
0,0 → 1,331 |
$Revision: 1598 $ |
use32 ; |
org 0x0 ; |
db 'MENUET01' ; |
dd 0x01 ; |
dd START ; |
dd I_END ; |
dd 0x1000 ; |
dd 0x1000 ; |
dd 0x0 ; |
dd 0x0 ; |
include 'MACROS.INC' ; |
SB_SIO_INDEX equ 0x2e |
SB_SIO_DATA equ 0x2f |
BOX_COLOR equ 0xD0C8C0 |
START: |
call enter_cfg_mode ; call this once |
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 |
mov byte[Reg], 2 |
mov byte[Rct], 2 |
call write_sio_cfg ; exit config-mode on exit |
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_sio_cfg |
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_sio_cfg |
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_sio_cfg: |
; in: [Reg] = reg# | out: eax = [Rct] = data |
;------------------------------------------------ |
mov dx, SB_SIO_INDEX |
xor eax, eax |
mov al, byte [Reg] |
out dx, al |
inc dl |
in al, dx |
mov [Rct], eax |
ret |
;------------------------------------------------ |
write_sio_cfg: |
; in: [Reg] = reg#; [Rct] = data |
;------------------------------------------------ |
mov dx, SB_SIO_INDEX |
mov eax, [Reg] |
out dx, al |
inc dl |
mov eax, [Rct] |
out dx, al |
ret |
;------------------------------------------------ |
enter_cfg_mode: |
; the magic sequence to unlock the port |
;------------------------------------------------ |
mov dx, SB_SIO_INDEX |
mov eax, 0x55550187 ; low byte first |
out dx, al |
shr eax, 8 |
out dx, al |
shr eax, 8 |
out dx, al |
shr eax, 8 |
out dx, al |
ret |
;------------------------------------------------ |
draw_window: |
;------------------------------------------------ |
mcall 12, 1 |
mcall 0, 600*65536+530, 410*65536+290, 0x14748090,,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_sio_cfg |
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_sio_cfg |
mov ecx, SB_SIO_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 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª |
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 ' IT8712F -- Super IO control - SIO_Reg',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 '------------- SIO REG -------------' |
db '| see AMD SB700/710/750 Register Reference Guide, pp. |' |
info2 db '| |' |
db '| reg |' |
db '| reg |' |
db '| reg |' |
db '| reg |' |
db '------------------------------------------------------------------' |
info_end: |
I_END: ; end of program |
rd 256 |
align 256 |
st_0: |
/kernel/branches/Kolibri-A/utilities/SB700/SB_PM2RG.ASM |
---|
0,0 → 1,314 |
$Revision: 1598 $ |
use32 ; |
org 0x0 ; |
db 'MENUET01' ; |
dd 0x01 ; |
dd START ; |
dd I_END ; |
dd 0x1000 ; |
dd 0x1000 ; |
dd 0x0 ; |
dd 0x0 ; |
include 'MACROS.INC' ; |
SB_PM2_INDEX equ 0xCD0 |
SB_PM2_DATA equ 0xCD1 |
BOX_COLOR equ 0xD0C8C0 |
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_sb_pm2_reg |
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_sb_pm2_reg |
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_sb_pm2_reg: |
; in: [Reg] = reg# | out: eax = [Rct] = data |
;------------------------------------------------ |
mov dx, SB_PM2_INDEX |
xor eax, eax |
mov al, byte [Reg] |
out dx, al |
inc dl |
in al, dx |
mov [Rct], eax |
ret |
;------------------------------------------------ |
write_sb_pm2_reg: |
; in: [Reg] = reg#; [Rct] = data |
;------------------------------------------------ |
mov dx, SB_PM2_INDEX |
xor eax, eax |
mov al, byte [Reg] |
out dx, al |
inc dl |
mov eax, [Rct] |
out dx, al |
ret |
;------------------------------------------------ |
draw_window: |
;------------------------------------------------ |
mcall 12, 1 |
mcall 0, 600*65536+530, 410*65536+290, 0x14848090,,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_sb_pm2_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] |
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_sb_pm2_reg |
mov ecx, SB_PM2_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 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª |
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 ' SB710 PowerManagement (Block2) registers - PM2_Reg',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 '------------- PM2 REG ------------' |
db '| see AMD SB700/710/750 Register Reference Guide, pp.228-258 |' |
info2 db '| reg |' |
db '| reg |' |
db '| reg |' |
db '| reg |' |
db '| reg F6: Gpm3-0pull; F7: Gpm7-4pull; F8: Gpm9-8pull |' |
db '------------------------------------------------------------------' |
info_end: |
I_END: ; end of program |
rd 256 |
align 256 |
st_0: |
/kernel/branches/Kolibri-A/utilities/SB700/SB_PM_RG.ASM |
---|
0,0 → 1,314 |
$Revision: 1598 $ |
use32 ; |
org 0x0 ; |
db 'MENUET01' ; |
dd 0x01 ; |
dd START ; |
dd I_END ; |
dd 0x1000 ; |
dd 0x1000 ; |
dd 0x0 ; |
dd 0x0 ; |
include 'MACROS.INC' ; |
SB_PM_INDEX equ 0xCD6 |
SB_PM_DATA equ 0xCD7 |
BOX_COLOR equ 0xD0C8C0 |
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_sb_pm_reg |
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_sb_pm_reg |
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_sb_pm_reg: |
; in: [Reg] = reg# | out: eax = [Rct] = data |
;------------------------------------------------ |
mov dx, SB_PM_INDEX |
xor eax, eax |
mov al, byte [Reg] |
out dx, al |
inc dl |
in al, dx |
mov [Rct], eax |
ret |
;------------------------------------------------ |
write_sb_pm_reg: |
; in: [Reg] = reg#; [Rct] = data |
;------------------------------------------------ |
mov dx, SB_PM_INDEX |
xor eax, eax |
mov al, byte [Reg] |
out dx, al |
inc dl |
mov eax, [Rct] |
out dx, al |
ret |
;------------------------------------------------ |
draw_window: |
;------------------------------------------------ |
mcall 12, 1 |
mcall 0, 600*65536+530, 410*65536+290, 0x14748090,,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_sb_pm_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] |
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_sb_pm_reg |
mov ecx, SB_PM_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 ; äãªæ¨ï 12: á®®¡é¨âì ®¡ ®âà¨á®¢ª¥ ®ª |
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 ' SB710 PowerManagement registers - PM_Reg',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 '------------- PM REG -------------' |
db '| see AMD SB700/710/750 Register Reference Guide, pp.174-223 |' |
info2 db '| |' |
db '| reg |' |
db '| reg |' |
db '| reg |' |
db '| reg |' |
db '------------------------------------------------------------------' |
info_end: |
I_END: ; end of program |
rd 256 |
align 256 |
st_0: |