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