Subversion Repositories Kolibri OS

Rev

Rev 100 | Rev 102 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 100 Rev 101
1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 
;; IRQ0 HANDLER (TIMER INTERRUPT) ;;
 2 
;; IRQ0 HANDLER (TIMER INTERRUPT) ;;
3 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 3 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- 
 
 4 
 
4 
 
 5 
 
5 
align 32
 6 
align 32
6 
irq0:
 7 
irq0:
7 
        save_ring3_context
 8 
        save_ring3_context
8 
	mov   ax, os_data
 9 
	mov   ax, os_data
9 
	mov   ds, ax
 10 
	mov   ds, ax
10 
	mov   es, ax
 11 
	mov   es, ax
11 
 
 - 
 
12 
        mov   edi,[0x3000]
 - 
 
13 
        shl   edi, 3
 - 
 
14 
                         ; fields of TSS descriptor:
 - 
 
15 
;        mov   [edi+gdts+ tss0 +5], word 01010000b *256 +11101001b
 - 
 
16 
 
 12 
 
17 
        inc   dword [timer_ticks]
 13 
        inc   dword [timer_ticks]
18 
 
 14 
 
19 
        mov   eax, [timer_ticks]
 15 
        mov   eax, [timer_ticks]
20 
        call  playNote           ; <<<--- Speaker driver
 16 
        call  playNote           ; <<<--- Speaker driver
21 
 
 17 
 
22 
        cmp   eax,[next_usage_update]
 18 
        cmp   eax,[next_usage_update]
23 
        jb    .nocounter
 19 
        jb    .nocounter
24 
        add   eax,100
 20 
        add   eax,100
25 
        mov   [next_usage_update],eax
 21 
        mov   [next_usage_update],eax
26 
        call  updatecputimes
 22 
        call  updatecputimes
27 
     .nocounter:
 23 
     .nocounter:
- 
 
 24 
 
- 
 
 25 
        cmp   [0xffff], byte 1
- 
 
 26 
        jne   .change_task
- 
 
 27 
 
28 
 
 28 
        mov   al,0x20   ; send End Of Interrupt signal
- 
 
 29 
        mov   dx,0x20
- 
 
 30 
        out   dx,al
- 
 
 31 
 
- 
 
 32 
        mov   [0xffff], byte 0
- 
 
 33 
 
- 
 
 34 
        restore_ring3_context
- 
 
 35 
        iret
- 
 
 36 
 
- 
 
 37 
     .change_task:
- 
 
 38 
        call  update_counters
- 
 
 39 
 
- 
 
 40 
        call  find_next_task
- 
 
 41 
        mov   ecx, eax
- 
 
 42 
 
- 
 
 43 
        mov   al,0x20   ; send End Of Interrupt signal
- 
 
 44 
        mov   dx,0x20
- 
 
 45 
        out   dx,al
- 
 
 46 
 
- 
 
 47 
	test  ecx, ecx  ; if there is only one running process
- 
 
 48 
        jnz   .return
- 
 
 49 
 
- 
 
 50 
        call  do_change_task
- 
 
 51
- 
 
 52 
     .return:
- 
 
 53 
        restore_ring3_context
- 
 
 54 
        iret
- 
 
 55 
 
- 
 
 56 
 
- 
 
 57 
align 4
- 
 
 58 
change_task:
- 
 
 59 
 
- 
 
 60 
        pushfd
- 
 
 61 
        cli
- 
 
 62 
        pushad
- 
 
 63 
 
- 
 
 64 
        call  update_counters
- 
 
 65 
        call  find_next_task
- 
 
 66 
        test  eax, eax    ; the same task -> skip switch
- 
 
 67 
        jnz    .return
- 
 
 68 
 
- 
 
 69 
        mov   [0xffff],byte 1
- 
 
 70 
        call  do_change_task
- 
 
 71 
 
- 
 
 72 
     .return:
- 
 
 73 
        popad
- 
 
 74 
        popfd
- 
 
 75 
 
- 
 
 76 
        ret
- 
 
 77 
 
- 
 
 78 
 
- 
 
 79 
uglobal
- 
 
 80 
   align 4
- 
 
 81 
   far_jump:
- 
 
 82 
    .offs dd ?
- 
 
 83 
    .sel  dw ?
- 
 
 84 
   context_counter     dd ? ;noname & halyavin
- 
 
 85 
   next_usage_update   dd ?
- 
 
 86 
   timer_ticks         dd ?
- 
 
 87 
   prev_slot           dd ?
- 
 
 88 
   event_sched         dd ?
- 
 
 89 
endg
- 
 
 90 
 
- 
 
 91 
 
29 
        mov   edi, [0x3010]
 92 
update_counters:
30 
 
 93 
        mov   edi, [0x3010]
31 
        mov   ebx, [edi+0x18] ; time stamp counter add
 94 
        mov   ebx, [edi+0x18] ; time stamp counter add
32 
        call  _rdtsc
 95 
        call  _rdtsc
33 
        sub   eax, ebx
 96 
        sub   eax, ebx
34 
        add   eax, [edi+0x14] ; counter sum
 97 
        add   eax, [edi+0x14] ; counter sum
35 
        mov   [edi+0x14], eax
 98 
        mov   [edi+0x14], eax
- 
 
 99 
ret
- 
 
 100 
 
- 
 
 101 
 
- 
 
 102 
; Find next task to execute
- 
 
 103 
; result: ebx = number of the selected task
- 
 
 104 
;         [0xffff] = 1  if the task is the same
36 
 
 105 
find_next_task:
37 
        mov   ebx,[0x3000]
 106 
        mov   ebx,[0x3000]
38 
        mov   [prev_slot], ebx
 107 
        mov   [prev_slot], ebx
39 
 
 - 
 
40 
        cmp   [0xffff], byte 1
 - 
 
41 
        je    .do_not_change_task
 - 
 
42 
 
 - 
 
43 
 
 108 
 
44 
      .waiting_for_termination:
 109 
      .waiting_for_termination:
45 
      .waiting_for_reuse:
 110 
      .waiting_for_reuse:
46 
      .waiting_for_event:
 111 
      .waiting_for_event:
47 
      .suspended:
 112 
      .suspended:
48 
        cmp   ebx, [0x3004]
 113 
        cmp   ebx, [0x3004]
49 
        jb    @f
 114 
        jb    @f
50 
        mov   edi, 0x3000
 115 
        mov   edi, 0x3000
51 
        xor   ebx, ebx
 116 
        xor   ebx, ebx
52 
      @@:
 117 
      @@:
53 
 
 118 
 
54 
        add   edi,0x20
 119 
        add   edi,0x20
55 
        inc   ebx
 120 
        inc   ebx
56 
 
 121 
 
57 
        mov   al, byte [edi+0xA]
 122 
        mov   al, byte [edi+0xA]
- 
 
 123 
        test  al, al
- 
 
 124 
        jz    .found
58 
	cmp   al, 1
 125 
	cmp   al, 1
59 
	jz    .suspended
 126 
	jz    .suspended
60 
	cmp   al, 2
 127 
	cmp   al, 2
61 
	jz    .suspended
 128 
	jz    .suspended
62 
        cmp   al, 3
 129 
        cmp   al, 3
63 
        je    .waiting_for_termination
 130 
        je    .waiting_for_termination
64 
        cmp   al, 4
 131 
        cmp   al, 4
65 
        je    .waiting_for_termination
 132 
        je    .waiting_for_termination
66 
        cmp   al, 9
 133 
        cmp   al, 9
67 
        je    .waiting_for_reuse
 134 
        je    .waiting_for_reuse
68 
 
 135 
 
69 
        mov   [0x3000],ebx
 136 
        mov   [0x3000],ebx
70 
        mov   [0x3010],edi
 137 
        mov   [0x3010],edi
71 
 
 138 
 
72 
        cmp   al, 5
 139 
        cmp   al, 5
73 
        jne   .noevents
 140 
        jne   .noevents
74 
        call  get_event_for_app
 141 
        call  get_event_for_app
75 
        test  eax, eax
 142 
        test  eax, eax
76 
        jz    .waiting_for_event
 143 
        jz    .waiting_for_event
77 
        mov   [event_sched], eax
 144 
        mov   [event_sched], eax
78 
        mov   [edi+0xA], byte 0
 145 
        mov   [edi+0xA], byte 0
79 
      .noevents:
 146 
      .noevents:
80 
        cmp   ebx, [prev_slot]
 147 
      .found:
81 
        sete  [0xffff]
 148 
        mov   [0x3000],ebx
82 
 
 - 
 
83 
 
 - 
 
84 
     .do_not_change_task:
 149 
        mov   [0x3010],edi
85 
 
 - 
 
86 
        call  _rdtsc
 150 
        call  _rdtsc
87 
        mov   [edi+0x18],eax
 151 
        mov   [edi+0x18],eax
- 
 
 152 
 
- 
 
 153 
	xor   eax, eax
- 
 
 154 
        cmp   ebx, [prev_slot]
- 
 
 155 
        sete  al
- 
 
 156 
ret
- 
 
 157 
 
- 
 
 158 
; in: ebx = TSS selector index
88 
 
 159 
do_change_task:
89 
        shl   ebx, 3
 160 
        shl   ebx, 3
90 
        xor   eax, eax
 161 
        xor   eax, eax
91 
        add   ebx, tss0
 162 
        add   ebx, tss0
92 
        mov   word  [far_jump.sel],  bx   ; selector
 163 
        mov   [far_jump.sel],  bx   ; selector
93 
        mov   dword [far_jump.offs], eax  ; offset
 164 
        mov   [far_jump.offs], eax  ; offset
94
- 
 
95 
        cmp   [irq0needeoi],byte 0
 - 
 
96 
        mov   [irq0needeoi],byte 1
- 
 
97 
        jz    .noeoi
 - 
 
98 
 
 - 
 
99 
        mov   al,0x20   ; send End Of Interrupt signal
 - 
 
100 
        mov   dx,0x20
 - 
 
101 
        out   dx,al
 - 
 
102 
.noeoi:
- 
 
103 
 
 - 
 
104 
        cmp   [0xffff],byte 0
 - 
 
105 
        je    .switch
 - 
 
106 
        dec   byte [0xffff]
 - 
 
107 
        jz    @f
 - 
 
108 
     .switch:
 - 
 
109 
        jmp   pword [far_jump]
 165 
        jmp   pword [far_jump]
110 
        inc   [context_counter] ;noname & halyavin
 166 
        inc   [context_counter] ;noname & halyavin
111 
       @@:
 - 
 
112
- 
 
113 
        restore_ring3_context
 - 
 
114 
        iret
 - 
 
115 
 
 - 
 
116 
 
 - 
 
117 
uglobal
 - 
 
118 
   align 4
 - 
 
119 
   far_jump:
 - 
 
120 
    .offs dd ?
 - 
 
121 
    .sel  dw ?
 - 
 
122 
   context_counter     dd ? ;noname & halyavin
 - 
 
123 
   next_usage_update   dd ?
 - 
 
124 
   timer_ticks         dd ?
 - 
 
125 
   prev_slot dd ?
 - 
 
126 
   event_sched dd ?
 - 
 
127 
endg
 - 
 
128 
iglobal
 - 
 
129 
   irq0needeoi         db 1
- 
 
130 
endg
 - 
 
131 
 
 - 
 
132 
 
 - 
 
133 
align 4
 - 
 
134 
change_task:
 - 
 
135 
 
 - 
 
136 
        pushfd
 - 
 
137 
        cli
 - 
 
138 
        mov   [0xffff],byte 2
 - 
 
139 
 
 - 
 
140 
        mov   [irq0needeoi],byte 0
 - 
 
141 
        dec   dword [timer_ticks]  ; because irq0 will increase it
 - 
 
142 
 
 - 
 
143 
        int   0x20   ; irq0 handler
 - 
 
144 
        popfd
 - 
 
145 
 
 - 
 
146 
        ret
 167 
ret
147 
 
 168 
 
148 
 
 169 
 
149 
 
 170 
 
150 
align 4
 171 
align 4
151 
updatecputimes:
 172 
updatecputimes:
152 
 
 173 
 
153 
        mov  eax,[idleuse]
 174 
        mov  eax,[idleuse]
154 
        mov  [idleusesec],eax
 175 
        mov  [idleusesec],eax
155 
        mov  [idleuse],dword 0
 176 
        mov  [idleuse],dword 0
156 
        mov  ecx, [0x3004]
 177 
        mov  ecx, [0x3004]
157 
        mov  edi, 0x3020
 178 
        mov  edi, 0x3020
158 
      .newupdate:
 179 
      .newupdate:
159 
        mov  ebx,[edi+0x14]
 180 
        mov  ebx,[edi+0x14]
160 
        mov  [edi+0x1c],ebx
 181 
        mov  [edi+0x1c],ebx
161 
        mov  [edi+0x14],dword 0
 182 
        mov  [edi+0x14],dword 0
162 
        add  edi,0x20
 183 
        add  edi,0x20
163 
        dec  ecx
 184 
        dec  ecx
164 
        jnz  .newupdate
 185 
        jnz  .newupdate
165 
 
 186 
 
166 
        ret
 187 
        ret