Subversion Repositories Kolibri OS

; 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