forked from KolibriOS/kolibrios
152 lines
3.2 KiB
PHP
152 lines
3.2 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; IRQ0 HANDLER (TIMER INTERRUPT) ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
align 32
|
|
irq0:
|
|
pushad
|
|
push ds es
|
|
mov ax, os_data
|
|
mov ds, ax
|
|
mov es, ax
|
|
|
|
mov edi,[0x3000]
|
|
shl edi, 3
|
|
; fields of TSS descriptor:
|
|
mov [edi+gdts+ tss0 +5], word 01010000b *256 +11101001b
|
|
|
|
inc dword [timer_ticks]
|
|
|
|
mov eax, [timer_ticks]
|
|
call playNote ; <<<--- Speaker driver
|
|
|
|
cmp eax,[next_usage_update]
|
|
jb .nocounter
|
|
add eax,100
|
|
mov [next_usage_update],eax
|
|
call updatecputimes
|
|
.nocounter:
|
|
|
|
mov edi, [0x3010]
|
|
|
|
mov ebx, [edi+0x18] ; time stamp counter add
|
|
call _rdtsc
|
|
sub eax, ebx
|
|
add eax, [edi+0x14] ; counter sum
|
|
mov [edi+0x14], eax
|
|
|
|
mov ebx,[0x3000]
|
|
mov [prev_slot], ebx
|
|
|
|
cmp [0xffff], byte 1
|
|
je .do_not_change_task
|
|
|
|
|
|
.waiting_for_termination:
|
|
.waiting_for_reuse:
|
|
.waiting_for_event:
|
|
cmp ebx, [0x3004]
|
|
jb @f
|
|
mov edi, 0x3000
|
|
xor ebx, ebx
|
|
@@:
|
|
|
|
add edi,0x20
|
|
inc ebx
|
|
|
|
mov al, byte [edi+0xA]
|
|
cmp al, 3
|
|
je .waiting_for_termination
|
|
cmp al, 4
|
|
je .waiting_for_termination
|
|
cmp al, 9
|
|
je .waiting_for_reuse
|
|
|
|
mov [0x3000],ebx
|
|
mov [0x3010],edi
|
|
|
|
cmp al, 5
|
|
jne .noevents
|
|
call get_event_for_app
|
|
test eax, eax
|
|
jz .waiting_for_event
|
|
mov [event_sched], eax
|
|
mov [edi+0xA], byte 0
|
|
.noevents:
|
|
cmp ebx, [prev_slot]
|
|
sete [0xffff]
|
|
|
|
|
|
.do_not_change_task:
|
|
|
|
call _rdtsc
|
|
mov [edi+0x18],eax
|
|
|
|
shl ebx, 3
|
|
xor eax, eax
|
|
add ebx, tss0
|
|
mov word [far_jump.sel], bx ; selector
|
|
mov dword [far_jump.offs], eax ; offset
|
|
|
|
mov al,0x20 ; send End Of Interrupt signal
|
|
mov dx,0x20
|
|
out dx,al
|
|
|
|
cmp [0xffff],byte 0
|
|
je .switch
|
|
dec byte [0xffff]
|
|
jz @f
|
|
.switch:
|
|
jmp pword [far_jump]
|
|
inc [context_counter] ;noname & halyavin
|
|
@@:
|
|
|
|
pop es ds
|
|
popad
|
|
iret
|
|
|
|
|
|
uglobal
|
|
align 4
|
|
far_jump:
|
|
.offs dd ?
|
|
.sel dw ?
|
|
context_counter dd ? ;noname & halyavin
|
|
next_usage_update dd ?
|
|
timer_ticks dd ?
|
|
prev_slot dd ?
|
|
event_sched dd ?
|
|
endg
|
|
|
|
|
|
align 4
|
|
change_task:
|
|
|
|
mov [0xffff],byte 2
|
|
|
|
dec dword [timer_ticks] ; because irq0 will increase it
|
|
|
|
int 0x20 ; irq0 handler
|
|
|
|
ret
|
|
|
|
|
|
|
|
align 4
|
|
updatecputimes:
|
|
|
|
mov eax,[idleuse]
|
|
mov [idleusesec],eax
|
|
mov [idleuse],dword 0
|
|
mov ecx, [0x3004]
|
|
mov edi, 0x3020
|
|
.newupdate:
|
|
mov ebx,[edi+0x14]
|
|
mov [edi+0x1c],ebx
|
|
mov [edi+0x14],dword 0
|
|
add edi,0x20
|
|
dec ecx
|
|
jnz .newupdate
|
|
|
|
ret
|