kolibrios/programs/system/battery/bi.asm

; 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