From eed73247e900b197f1569ee6cc1838f882a155cb Mon Sep 17 00:00:00 2001 From: Yogev Ezra Date: Sat, 25 Jun 2011 15:19:38 +0000 Subject: [PATCH] Add sources of APM driver (by Staper) and battery driver (by Gluk) git-svn-id: svn://kolibrios.org@1980 a494cfbc-eb01-0410-851d-a64ba20cac60 --- kernel/trunk/drivers/apm.asm | 295 +++++++++++++++++++ programs/system/battery/bi.asm | 522 +++++++++++++++++++++++++++++++++ 2 files changed, 817 insertions(+) create mode 100644 kernel/trunk/drivers/apm.asm create mode 100644 programs/system/battery/bi.asm diff --git a/kernel/trunk/drivers/apm.asm b/kernel/trunk/drivers/apm.asm new file mode 100644 index 0000000000..060d9fb93a --- /dev/null +++ b/kernel/trunk/drivers/apm.asm @@ -0,0 +1,295 @@ +; 11.09.2009 staper@inbox.ru +; see kernel\docs\apm.txt + +use32 + + org 0x0 + + db 'MENUET01' + dd 0x1 + dd START + dd I_END + dd (I_END+100) and not 3 + dd (I_END+100) and not 3 + dd 0x0,0x0 + +include 'macros.inc' + +START: + mcall 40,0x7 + + mcall 49,0x0001,0x0001,0x5308 ;CX = FFFFh APM v1.0 +; mcall 49,0x0001,0x0001,0x530d +; mcall 49,0x0001,0x0001,0x530f + +; mcall 49,0x0000,,0x5310 ;bl - number of batteries +redraw: + mcall 49,0x0000,,0x530c + dec cl + jz still + mcall 49,0x0001,0x0001,0x5308 + mcall 49,0x01ff,,0x530c + test cl,cl + jz @f + mcall 49,0x0000,0x0001,0x530d + mcall 49,0x0000,0x0000,0x5307 + mcall 49,0x0000,0x0001,0x5308 + @@: + mcall 12,1 + mcall 0,100*65536+235,100*65536+90,0x34ffffff,0x000000,title + mcall 49,0x0000,,0x5300 + jnc @f + mcall 4,10*65536+3,0x80000000,text.4 + bts [flags],1 + jmp .end + @@: cmp al,0 + jne @f + mov edx,text.1 + jmp .0 + @@: cmp al,1 + jne @f + mov edx,text.2 + jmp .0 + @@: mov edx,text.3 + .0: push edx + mcall 4,169*65536+3,0x80dddddd,text.0 + pop edx + add ebx,47*65536 + mcall + mcall 49,0x0001,,0x530a + jc .error + push si dx cx bx ;time of battery life, b. flag, b. status, AC line status + + ;AC line status + cmp bh,0 + jne @f + mov edx,text.01 + jmp .1 + @@: cmp bh,1 + jne @f + mov edx,text.02 + jmp .1 + @@: cmp bh,2 + jne @f + mov edx,text.03 + jmp .1 + @@: mov edx,text.04 + .1: push edx + mcall 4,10*65536+10,0x80000000,text.00 + pop edx + mcall ,100*65536+10,;0x80000000 + + ;battery status + pop bx + cmp bl,0 + jne @f + mov edx,text.11 + jmp .2 + @@: cmp bl,1 + jne @f + mov edx,text.12 + jmp .2 + @@: cmp bl,2 + jne @f + mov edx,text.13 + jmp .2 + @@: cmp bl,3 + jne @f + mov edx,text.14 + jmp .2 + @@: mov edx,text.04 + .2: push edx + mcall 4,10*65536+20,0x80000000,text.10 + pop edx + mcall ,100*65536+20, + + ;battery life, percentage and minutes/seconds + mcall ,10*65536+30,,text.20 + pop cx + cmp cl,0xff + jne @f + mcall ,100*65536+30,0x80000000,text.04 + pop eax + jmp .end + @@: shl ecx,24 + shr ecx,24 + mcall 47,0x80030000,,100*65536+30,0x347636 + .3: mcall 4,115*65536+30,0x80000000,text.15 + mov dx,[esp] + shl edx,17 + shr edx,17 + mov ecx,edx + mcall 47,0x80030000,,140*65536+30 + pop cx + mov edx,text.21 + bt cx,15 + jc @f + mov edx,text.22 + @@: mcall 4,160*65536+30,0x80000000 + pop si + .error: + .end: + ;buttons + mcall 8,148*65536+16,45*65536+15,3,0x00677ab0 + mcall ,166*65536+16,,4, + mcall ,184*65536+16,,5, + mcall ,202*65536+16,,6, + bt [flags],1 + jc @f + mcall ,65*65536+45,,2, + @@: mcall 4,10*65536+50,0x80564242,text.30 + mcall 12,2 + +still: +; mcall 10 + mcall 23,12000 + test eax,eax + jz redraw + + dec al + jz redraw + dec al + jz key + dec al + jz button + jmp still + + + + +key: + mcall 2 + jmp still + +button: + mcall 17 + cmp ah,1 + jne @f + mcall -1 + + @@: cmp ah,2 + jne @f + mcall 5,50 + mcall 49,0x0001,0x0001,0x5307 + jmp redraw + + @@: cmp ah,4 + jg @f + mov edx,0x01f7 ;primary chan. + call reserv_ports + jc redraw + sub bh,3 + .1: call set_drive + btc [flags],2 + jnc .2 + call device_reset + jmp .3 + .2: call standby_hdd + .3: call free_ports + jmp redraw + + @@: cmp ah,6 + jg redraw + mov edx,0x0177 ;secondary chan. + call reserv_ports + jc redraw + sub bh,5 + jmp .1 + +set_drive: + dec dx + in al,dx + test bh,bh + jnz @f + btr ax,4 +.1: out dx,al + inc dx + ret +@@: bts ax,4 + jmp .1 + + +standby_hdd: +; 94h E0h nondata standby immediate +; 95h E1h nondata idle immediate +; 96h E2h nondata standby +; 97h E3h nondata idle +; 98h E5h nondata check power mode +; 99h E6h nondata set sleep mode + xor ecx,ecx + @@: in al,dx + dec cx + jz @f + bt ax,6 + jnc @b + mov al,0x96 + out dx,al + mov al,0xe2 + out dx,al +@@: +ret + +reserv_ports: + mov ecx,edx + dec ecx + push ax + mcall 46,0 + test al,al + jnz @f + pop bx + clc + ret +@@: pop bx + stc +ret + +device_reset: + xor ecx,ecx + @@: in al,dx + dec cx + jz @f + bt ax,6 + jnc @b + mov al,0x10 + out dx,al +@@: +ret + +free_ports: + mov ecx,edx + dec ecx + mcall 46,1 +ret + + +; +title db '',0 +flags dw 0 + +text: +.0: db 'APM v.1.',0 +.1: db '0',0 +.2: db '1',0 +.3: db '2',0 +.4: db 'APM not supported',0 + +.00: db 'power status:',0 +.01: db 'off-line',0 +.02: db 'on-line',0 +.03: db 'on backup power',0 +.04: db 'unknown',0 + +.10: db 'battery flag:',0 +.11: db 'high',0 +.12: db 'low',0 +.13: db 'critical',0 +.14: db 'charging',0 +.15: db ' % ,',0 + +.20: db 'battery life:',0 +.21: db 'min',0 +.22: db 'sec',0 + +.30: db 'STAND-BY: SYSTEM HDD: 0 1 2 3',0 + +I_END: diff --git a/programs/system/battery/bi.asm b/programs/system/battery/bi.asm new file mode 100644 index 0000000000..2f37a58f59 --- /dev/null +++ b/programs/system/battery/bi.asm @@ -0,0 +1,522 @@ +; Battery Indicator v0.ALPHA by Gluk +include "macros.inc" +MEOS_APP_START +CODE + +init: + mov cl,48d ; setting waitingmask + mov edx,0x110 + mcall 66,4 + +mov word[vminor],0 +mov dx,0x5300 +xor ebx,ebx +mov eax,49 +jnc @f +mov word[vminor],ax +@@: +mov dx,0x5308 +mov bx,1 +mov cx,bx +mov eax,49 +int 0x40 +mov dx,0x530E +xor bx,bx +mov cx,0x0102 +mov eax,49 +int 0x40 +mov dx,0x530D +mov bx,1 +mov cx,bx +mov eax,49 +int 0x40 +mov dx,0x530F +mov bx,1 +mov cx,bx +mov eax,49 +int 0x40 + xor ebx,ebx + mov bx,[bid] ; find a bid + dec ebx + @@: + mov eax,49 + mov dx,530Ah + inc ebx + int 0x40 + jc @b + ;cmp cl,0xff + ;je @b + finded: + mov [bid],bx + ;mcall 49,0,0,5310h + + mcall 9,streaminfo,-1 ; get process data + mov ecx,dword[streaminfo+30d] + mcall 18,21 + mov [slotid],eax + + mov eax,48 ; get system colors + mov ebx,3 + mov ecx,sc + mov edx,sizeof.system_colors + mcall +initend: + + redraw: + call draw_window + +wait_event: ; main cycle + call redata + mov ebx,[waiting] + mcall 23 + cmp eax,0 + jz wait_event + dec eax + jz redraw + dec eax + jz key + dec eax + jz button +jmp wait_event + +button: + mcall 17 + @@: ;1: + dec ah + ;jnz @f + ; or eax,-1 + ; mcall + ;@@: ;2 + dec ah + jnz @f + mov eax,dword[whatview] + mov ebx,views_end-3 + add eax,4 + cmp eax,ebx + jb allok1 + mov eax,views_start + allok1: + mov [whatview],eax + mov eax,[eax] + mov [viewer],eax + @@: +jmp wait_event + +redata: + call getdata + mov al,[window] + cmp al,0 + jz @f + call regraph + call rebutton + @@: +ret + +key: ; key event handler + mov al,2 ; get key code + mcall + cmp al,2 + jne wait_event + call rewindow +jmp wait_event + + draw_window: + mov eax,12 + mov ebx,1 + mcall + + mov al,byte[window] + cmp al,0 + jz nowindow + + mcall 48,5 + sub eax,[winotstx] + sub eax,[winsizex] + shl eax,16 + sub ebx,[winotsty] + sub ebx,[winsizey] + shl ebx,16 + mov ecx,ebx + mov ebx,eax + + xor eax,eax ; create and draw the window + add ebx,dword[winsizex] + dec ebx ; (window_c)*65536+(window_s) + add ecx,dword[winsizey] + dec ecx + mov edx,[sc.work] ; work area color + or edx, 0x61000000 ; & window type 1 + int 0x40 + + mov eax,13d ;printing pryamougolniks + push eax ;pipka out + mov eax,[winsizex] + xor edx,edx + mov ebx,3 + div ebx + mov ebx,eax + ; pusha + ;mov [nowpoint],0 + ;in: ebx - piplenght + ; mov eax,0 + ;mov edi, nowpoint + ; add edi,winform + ; mov ecx,ebx + ; rep stosb + ; mov eax,1 + ;mov edi, nowpoint + ; add edi,winform + ; mov ecx,ebx + ; rep stosb + ; mov eax,0 + ;mov edi, nowpoint + ; add edi,winform + ; mov ecx,ebx + ; rep stosb + ; popa + mov ecx,ebx + shl ebx,16 + pop eax + add ebx,ecx + mov ecx,[winsizey] + shr ecx,4 ;div 16 ;) + xor edx,edx + int 0x40 + + add ebx,65536-2 ;pipka in + add ecx,65536-1 + mov edx,[sc] + int 0x40 + + mov ebx,[winsizex] ;korpus out + mov ecx,[winsizey] + shr ecx,4 + mov edx,ecx + shl ecx,16 + add ecx,[winsizey] + sub ecx,edx + xor edx,edx + int 0x40 + + add ebx,65536-2 ;korpus in + add ecx,65536-2 + mov edx,[sc] + int 0x40 + + mov edx,[winborts] + mov edi,edx + shl edx,16 + add ebx,edx + sub ebx,edi + sub ebx,edi ;black contur + add ecx,65536-3 + sub ecx,[winknopy] + xor edx,edx + int 0x40 + + add ebx,65536-2 ;working area + add ecx,65536-2 + mov edx,[sc.work] + int 0x40 + mov [winworkx],ebx + mov [winworky],ecx + + call redata + nowindow: + mov eax,12 ;finish drawing + mov ebx,2 + int 0x40 +ret + +rebutton: + mov eax,8 + mov edx,0x80000002 + int 0x40 + + mov ebx,[winsizex] + add ebx,65536-3 + mov edi,[winknopy] + mov ecx,[winsizey] + sub ecx,edi + sub ecx,2 + shl ecx,16 + add ecx,edi + mov edx,0x00000002 + mov esi,[sc.work_button] + int 0x40 + + mov [wintextx],3 + sub edi,[winfonty] + shr edi,1 + mov ebx,edi + add ebx,[winsizey] + sub ebx,[winknopy] + mov [wintexty],ebx + call dword[viewer] +ret + + +rewindow: + mov al,byte[window] + cmp al,1 + jne @f + mcall 67,1,1,0,0 + mov byte[window],0 + mcall 40,2 + jmp endrew + @@: + mcall 48,5 + sub eax,[winotstx] + sub eax,[winsizex] + sub ebx,[winotsty] + sub ebx,[winsizey] + mov ecx,ebx + mov ebx,eax + + mov eax,67 + mov edx,[winsizex] + dec edx + mov esi,[winsizey] + dec esi + int 0x40 + + mov byte[window],1 + mov ecx,[slotid] + mcall 18,3 + + mcall 40,7 + endrew: + call draw_window +ret + +regraph: + mov eax,13 + mov ebx,[winworkx] ;working area + mov ecx,[winworky] + mov edx,[sc.work] + int 0x40 + + mov ebx,[winworky] + shl ebx,16 + shr ebx,16 + sub ebx,[wingotst] + sub ebx,[wingotst] + mov eax,ebx + shr ebx,3 ;div 8 ;) + shl eax,29 + shr eax,32 ;ostatok + add eax,[wingotst] + cmp eax,ebx + jb @f + inc ebx + @@: + mov [winlines],ebx + mov ecx,[delenia] + @@: + push ecx + mov edi,ecx + + mov edx,[wingotst] + mov ebx,[winworkx] + shl edx,16 + add ebx,edx + shr edx,16 + sub ebx,edx + sub ebx,edx + + mov ecx,[winworky] + mov eax,[winworky] + shl eax,16 + add ecx,eax + + push edx + mov eax,[winlines] + mul edi + pop edx + add edx,eax + + shl edx,16 + sub ecx,edx + + shr ecx,16 + inc ecx + shl ecx,16 + add ecx,[winlines] + sub ecx,1 ;promezhutki + mov edx,[sc.work_graph] + mov eax,13 + int 0x40 + + pop ecx + loop @b +endreg: +ret + +getdata: + xor ecx,ecx + xor edx,edx + +;HERE YOU MAY GET A PERCENTAGE AND REMAINING TIME FOR BATTERY UNIT [bid], AND PUT THEY INTO [gotperc] AND [gottime] + mov bx,[bid] + mov eax,49 + mov dx,530Ah + int 0x40 + mov [gotperc],cl + mov [gottime],dx +;/HERE + + xor eax,eax + mov al,[gotperc] + cmp al,0 + jne @f + mov [delenia],1 + ret + @@: + cmp al,100 + jb @f + mov [delenia],8 + ret + @@: + shl eax,3 + mov ebx,100 + xor edx,edx + div ebx + inc eax + mov [delenia],eax +ret + +viewers: + time: + xor edx,edx + mov dx,[gottime] + cmp dx,0xffff + jne @f + mov eax,4 + mov ebx,[wintextx] + shl ebx,16 + add ebx,[wintexty] + mov ecx,0x00000000 + mov edx,simbols + mov esi,3 + add ecx,[sc.work_button_text] + int 0x40 + ret + @@: + shl edx,17 + shr edx,31 + mov eax,4 + mov ebx,[wintextx] + add ebx,2*8 + shl ebx,16 + add ebx,[wintexty] + mov ecx,0x00000000 + add edx,simbols + mov esi,1 + add ecx,[sc.work_button_text] + int 0x40 + ;12345678901234567890123456789012 + mov eax,47 + mov bl,2 ;cifr + mov bh,0 + shl ebx,16 + mov bl,0 ;ecx is chislo + mov bh,0 + xor ecx,ecx + mov cx,[gottime] + shl ecx,18 + shr ecx,18 + mov edx,[wintextx] + shl edx,16 + add edx,[wintexty] + mov esi,0x10000000 + add esi,[sc.work_button_text] + int 0x40 + ret + percent: + mov dl,[gotperc] + cmp dl,0xff + jne @f + mov eax,4 + mov ebx,[wintextx] + shl ebx,16 + add ebx,[wintexty] + mov ecx,0x00000000 + mov edx,simbols + mov esi,4 + add ecx,[sc.work_button_text] + int 0x40 + ret + @@: + mov eax,4 + mov ebx,[wintextx] + add ebx,3*8 + shl ebx,16 + add ebx,[wintexty] + mov ecx,0x00000000 + mov edx,simbols + add edx,3 + mov esi,1 + add ecx,[sc.work_button_text] + int 0x40 + + mov eax,47 + mov bl,3 ;cifr + mov bh,0 + shl ebx,16 + mov bl,0 ;ecx is chislo + mov bh,0 + xor ecx,ecx + mov cl,[gotperc] + mov edx,[wintextx] + shl edx,16 + add edx,[wintexty] + mov esi,0x10000000 + add esi,[sc.work_button_text] + int 0x40 + ret +; <--- initialised data ---> +DATA + +bid dw 8000h + +viewer dd percent +whatview dd views_start +views_start: + dd percent + dd time +views_end: + +simbols db 'smh%??m???%' + +waiting dd 1000 +watchings: + window db 1 + winotstx dd 7 + winotsty dd 7 + winsizex dd 48 + winsizey dd 64 + winborts dd 1 + winfonty dd 9 + winknopy dd 10 + wingotst dd 2 +; <--- uninitialised data ---> +UDATA +vminor dw ? +sc system_colors +streaminfo rb 1024 +winform rb 1024 +slotid dd ? + +gotperc db ? +gottime dw ? +delenia dd ? + +uwatchings: + winhomex dd ? + winhomey dd ? + winworkx dd ? ;cx*65536+sx + winworky dd ? ;cy*65536+sy + winlines dd ? + wintextx dd ? + wintexty dd ? +MEOS_APP_END \ No newline at end of file