forked from KolibriOS/kolibrios
275 lines
6.4 KiB
PHP
275 lines
6.4 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2004-2022. All rights reserved. ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
$Revision$
|
|
|
|
|
|
;setting date,time,clock and alarm-clock
|
|
;add sys_settime at servetable as for ex. 22 fcn:
|
|
; 22 - SETTING DATE TIME, CLOCK AND ALARM-CLOCK
|
|
; ebx =0 - set time ecx - 00SSMMHH
|
|
; ebx =1 - set date ecx=00DDMMYY
|
|
; ebx =2 - set day of week ecx- 1-7
|
|
; ebx =3 - set alarm-clock ecx - 00SSMMHH
|
|
; out: 0 -Ok 1 -wrong format 2 -battery low
|
|
sys_settime:
|
|
|
|
cli
|
|
mov al, 0x0d
|
|
out 0x70, al
|
|
in al, 0x71
|
|
bt ax, 7
|
|
jnc bat_low
|
|
cmp ebx, 2;day of week
|
|
jne nosetweek
|
|
test ecx, ecx ;test day of week
|
|
je wrongtime
|
|
cmp ecx, 7
|
|
ja wrongtime
|
|
mov edx, 0x70
|
|
call startstopclk
|
|
dec edx
|
|
mov al, 6
|
|
out dx, al
|
|
inc edx
|
|
mov al, cl
|
|
out dx, al
|
|
jmp endsettime
|
|
nosetweek: ;set date
|
|
cmp ebx, 1
|
|
jne nosetdate
|
|
cmp cl, 0x99;test year
|
|
ja wrongtime
|
|
shl ecx, 4
|
|
cmp cl, 0x90
|
|
ja wrongtime
|
|
cmp ch, 0x99;test month
|
|
ja wrongtime
|
|
shr ecx, 4
|
|
test ch, ch
|
|
je wrongtime
|
|
cmp ch, 0x12
|
|
ja wrongtime
|
|
shl ecx, 8
|
|
bswap ecx ;ebx=00YYMMDD
|
|
test cl, cl ;test day
|
|
je wrongtime
|
|
shl ecx, 4
|
|
cmp cl, 0x90
|
|
ja wrongtime
|
|
shr ecx, 4
|
|
cmp ch, 2 ;February
|
|
jne testday
|
|
cmp cl, 0x29
|
|
ja wrongtime
|
|
jmp setdate
|
|
testday:
|
|
cmp ch, 8
|
|
jb testday1;Aug-Dec
|
|
bt cx, 8
|
|
jnc days31
|
|
jmp days30
|
|
testday1:
|
|
bt cx, 8 ;Jan-Jul ex.Feb
|
|
jnc days30
|
|
days31:
|
|
cmp cl, 0x31
|
|
ja wrongtime
|
|
jmp setdate
|
|
days30:
|
|
cmp cl, 0x30
|
|
ja wrongtime
|
|
setdate:
|
|
mov edx, 0x70
|
|
call startstopclk
|
|
dec edx
|
|
mov al, 7 ;set days
|
|
out dx, al
|
|
inc edx
|
|
mov al, cl
|
|
out dx, al
|
|
dec edx
|
|
mov al, 8 ;set months
|
|
out dx, al
|
|
inc edx
|
|
mov al, ch
|
|
out dx, al
|
|
dec edx
|
|
mov al, 9 ;set years
|
|
out dx, al
|
|
inc edx
|
|
shr ecx, 8
|
|
mov al, ch
|
|
out dx, al
|
|
jmp endsettime
|
|
nosetdate: ;set time or alarm-clock
|
|
cmp ebx, 3
|
|
ja wrongtime
|
|
cmp cl, 0x23
|
|
ja wrongtime
|
|
cmp ch, 0x59
|
|
ja wrongtime
|
|
shl ecx, 4
|
|
cmp cl, 0x90
|
|
ja wrongtime
|
|
cmp ch, 0x92
|
|
ja wrongtime
|
|
shl ecx, 4
|
|
bswap ecx ;00HHMMSS
|
|
cmp cl, 0x59
|
|
ja wrongtime
|
|
shl ecx, 4
|
|
cmp cl, 0x90
|
|
ja wrongtime
|
|
shr ecx, 4
|
|
|
|
mov edx, 0x70
|
|
call startstopclk
|
|
dec edx
|
|
cmp ebx, 3
|
|
|
|
je setalarm
|
|
xor eax, eax;al=0-set seconds
|
|
out dx, al
|
|
inc edx
|
|
mov al, cl
|
|
out dx, al
|
|
dec edx
|
|
mov al, 2 ;set minutes
|
|
out dx, al
|
|
inc edx
|
|
mov al, ch
|
|
out dx, al
|
|
dec edx
|
|
mov al, 4 ;set hours
|
|
out dx, al
|
|
inc edx
|
|
shr ecx, 8
|
|
mov al, ch
|
|
out dx, al
|
|
jmp endsettime
|
|
setalarm:
|
|
mov al, 1;set seconds for al.
|
|
out dx, al
|
|
inc edx
|
|
mov al, cl
|
|
out dx, al
|
|
dec edx
|
|
mov al, 3;set minutes for al.
|
|
out dx, al
|
|
inc edx
|
|
mov al, ch
|
|
out dx, al
|
|
dec edx
|
|
mov al, 5;set hours for al.
|
|
out dx, al
|
|
inc edx
|
|
shr ecx, 8
|
|
mov al, ch
|
|
out dx, al
|
|
dec edx
|
|
mov al, 0x0b;enable irq's
|
|
out dx, al
|
|
inc dx
|
|
in al, dx
|
|
bts ax, 5;set bit 5
|
|
out dx, al
|
|
endsettime:
|
|
dec edx
|
|
call startstopclk
|
|
sti
|
|
and [esp+36-4], dword 0
|
|
ret
|
|
bat_low:
|
|
sti
|
|
mov [esp+36-4], dword 2
|
|
ret
|
|
wrongtime:
|
|
sti
|
|
mov [esp+36-4], dword 1
|
|
ret
|
|
|
|
startstopclk:
|
|
mov al, 0x0b
|
|
out dx, al
|
|
inc dx
|
|
in al, dx
|
|
btc ax, 7
|
|
out dx, al
|
|
ret
|
|
|
|
align 4
|
|
sys_clock:
|
|
cli
|
|
; Mikhail Lisovin xx Jan 2005
|
|
@@:
|
|
mov al, 10
|
|
out 0x70, al
|
|
in al, 0x71
|
|
test al, al
|
|
jns @f
|
|
mov esi, 1
|
|
call delay_ms
|
|
jmp @b
|
|
@@:
|
|
; end Lisovin's fix
|
|
|
|
xor al, al ; seconds
|
|
out 0x70, al
|
|
in al, 0x71
|
|
movzx ecx, al
|
|
mov al, 02 ; minutes
|
|
shl ecx, 16
|
|
out 0x70, al
|
|
in al, 0x71
|
|
movzx edx, al
|
|
mov al, 04 ; hours
|
|
shl edx, 8
|
|
out 0x70, al
|
|
in al, 0x71
|
|
add ecx, edx
|
|
movzx edx, al
|
|
add ecx, edx
|
|
sti
|
|
mov [esp + 32], ecx
|
|
ret
|
|
|
|
|
|
align 4
|
|
|
|
sys_date:
|
|
|
|
cli
|
|
@@:
|
|
mov al, 10
|
|
out 0x70, al
|
|
in al, 0x71
|
|
test al, al
|
|
jns @f
|
|
mov esi, 1
|
|
call delay_ms
|
|
jmp @b
|
|
@@:
|
|
|
|
mov ch, 0
|
|
mov al, 7 ; date
|
|
out 0x70, al
|
|
in al, 0x71
|
|
mov cl, al
|
|
mov al, 8 ; month
|
|
shl ecx, 16
|
|
out 0x70, al
|
|
in al, 0x71
|
|
mov ch, al
|
|
mov al, 9 ; year
|
|
out 0x70, al
|
|
in al, 0x71
|
|
mov cl, al
|
|
sti
|
|
mov [esp+32], ecx
|
|
ret
|