Subversion Repositories Kolibri OS

; 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: