mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-24 07:36:48 +03:00
315 lines
7.3 KiB
NASM
315 lines
7.3 KiB
NASM
|
$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 ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 12: ᮮ<><E1AEAE><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20><><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
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:
|