OSDev.org

Code: Select all

        ; activation ligne A20 
        ; masquer les irg 
        mov     al,0xFF 
        out     0xA1,al 
        out     0x21,al 
        ; si ko, essayer de desactiver le kbd avant (out 0x64,0xAD) et de le  
        ; reactiver apres (cmd out 0x64,0xAE), ou de lire le Ouput Port avant d'y 
        ; ecrire la meme valeur OR 2 (bit du A20 : bit 1 - a mettre a 1 pour activer A20) 
        ; 
        ;mov    al,0xAD 
        ;out    clavier_port_command,al ; ecriture Output Port du 8042 
        ; 
attente_8042_1: 
        jmp     $+2 
        in      al,clavier_port_command 
        test    al,2 
        jnz     attente_8042_1          ; attend que le buffer soit dispo (bit 1 à 0) 
        ; 
        mov     al,0xD1 
        out     clavier_port_command,al ; ecriture Output Port du 8042 
        ; 
attente_8042_2: 
        jmp     $+2 
        in      al,clavier_port_command 
        test    al,2 
        jnz     attente_8042_2          ; on attend que le buffer soit dispo (bit 1 a 0) 
        ; 
        mov     al,0xDF                 ; A20 + activation IRQ souris et clavier (0xCF a l'origine, 0xDF menuet32+bochs)
        out     clavier_port_data,al    ; autoriser la ligne A20 (envoi controleur 8042) 
        ; 
attente_8042_3: 
        jmp     $+2 
        in      al,clavier_port_command 
        test    al,2 
        jnz     attente_8042_3          ; on attend que le buffer soit dispo (bit 1 a 0) 
        ; 
        ;mov    al,0xAE 
        ;out    clavier_port_command,al ; ecriture Output Port du 8042 
        ; 
attente_8042_4: 
        ;jmp    $+2 
        ;in     al,clavier_port_command 
        ;test   al,2 
        ;jnz    attente_8042_4          ; on attend que le buffer soit dispo (bit 1 a 0) 

Code: Select all

        ; mise en place des IRQ, programmation 8259 
        ; sauvegarde des masques 
        ;in     al,0x21 
        ;mov    bh,al 
        ;in     al,0xA1 
        ;mov    bl,al 
        ; iowait a mettre apres chaque out, pour laisser le temps au PIC de travailler 
        ;mov    al,0xFF         ; Masquage de toutes les interruptions avant travaux 
        ;out    0xA1,al 
        ;call   pic_iowait 
        ;out    0x21,al 
        ;call   pic_iowait 
        ; 
        mov     al,0x11         ; Initialisation 
        out     0x20,al 
        out     0xA0,al 
        ;call   pic_iowait 
        mov     al,0x20         ; Initialisation - Master - 1ere IRQ = 0x20 
        out     0x21,al 
        mov     al,0x28         ; Initialisation - Slave - 1ere IRQ = 0x28 
        out     0xA1,al 
        ;call   pic_iowait       
        mov     al,0x04         ; Initialisation - Master - lien master/slave 
        out     0x21,al 
        mov     al,0x02         ; Initialisation - Slave - lien master/slave 
        out     0xA1,al 
        ;call   pic_iowait 
        mov     al,0x01         ; Initialisation - Master - divers (8086) 
        out     0x21,al 
        mov     al,0x01         ; Initialisation - Slave - divers (8086) 
        out     0xA1,al 
        ;call   pic_iowait 
        ; 
        ; attente plus longue avant de remettre les masques 
        mov     ecx,0xFFFF 
pic_att: 
        nop 
        loop    pic_att 
        ; remise des masques sauvegardes 
        ;mov    al,bh 
        mov     al,0 
        out     0x21,al 
        out     0xA1,al 
        call    pic_iowait 
        ;mov    al,bl 
        ; envoi EOI aux 2 pics 
        mov     al,0x20 
        out     0x20,al 
        out     0xA0,al 
        jmp     pic_fin 
pic_iowait: 
        nop 
        ret 
pic_fin: 

Code: Select all

intirq0: 		; interruption materielle 0 : TIMER (scheduler)
	cli					; utile ??
	pushad					; mode 32b
	mov		[ebp+proc_save_esp],esp	; sauvegarde ESP pour les "POP"
	inc dword	[ebp+proc_nb_quantum]	; incremente le nb de quantum du process en cours
	mov		al,0x20			; envoi EOI
	out		0x20,al
	inc dword	[timer_systick]		; +1 au nb d'appels de l'IRQ0 !
	;
sched_manuel:
	mov	ebx,[proc_encours]
	movzx	ecx,byte[proc_prioriteec]	; cl / bit31=0 : 1er passage
	mov	ch,[proc_prio_max]
	test	ebx,ebx			; test si 0
	jnz	sched_proc_suivant
	; c'est le process "idle" qui tourne : recherche depuis priorite 0
	mov	ecx,0x80000700		; priorites : max=7, ec=0 ; bit31=1 : 2eme passage
	lea	ebx,[proc_tableec_p0]	; ad process a rechercher
	mov	[proc_debtable_p],ebx
	sub	ebx,4
sched_proc_suivant:
	add	ebx,4
sched_proc_suivant2:
	mov	ebp,[ebx]
	test	ebp,ebp				; test si 0
	jz	sched_suite_prio		
	mov	esi,[ebp+proc_att_mutex_adr]	; prochain process trouve - verif si en attente
	mov	edx,[ebp+proc_att_buffer_adr]
	mov	edi,[ebp+proc_att_systick]
	mov	eax,esi
	or	eax,edx
	or	eax,edi
	jz	sched_retour			; process trouve car pas en attente de ressource
	test	esi,esi
	jz	sched_pas_mutex			
	movzx	eax,byte[ebp+proc_att_mutex_bit]	; en attente mutex : libre ?
	bts	[esi],eax
	jnc	sched_retour			; en attente et mutex libre : ok
	jmp	sched_proc_suivant
sched_pas_mutex:
	test	edx,edx
	jz	sched_pas_buffer		; proc pas en attente POPW
	mov	eax,[edx+buffer_read]
	xor	eax,[edx+buffer_write]
	jnz	sched_retour			; en attente POPW et buffer plus vide : ok (read <> write)
	test	edi,edi
	jz	sched_proc_suivant		; pas en attente temporisee : process suivant
sched_pas_buffer:
	cmp	edi,[timer_systick]
	jbe	sched_retour			; en attente POPWT et delai depasse ou attente time-out et delai expire ou pas time-out : ok
	jmp	sched_proc_suivant
sched_suite_prio:
	; passage a la priorite suivante jusqu'a depasse priomax
	mov	ebx,[proc_debtable_p]
	add	ebx,1024
	mov	[proc_debtable_p],ebx
	inc	cl
	cmp	cl,ch
	jbe	sched_proc_suivant2
	; test si 1er passage ou non
	test	ecx,0x80000000
	jnz	sched_2eme_passage
sched_1er_passage:
	or	ecx,0x80000000		; bit31=1 si 2eme passage
	lea	ebx,[proc_tableec_p0]
	mov	[proc_debtable_p],ebx
	xor	cl,cl			; recommencer depuis priorite 0 (au 1er passage uniquement)
	inc	ch			; on fait tourner la prio max egalement
	and	ch,7
	jmp	sched_proc_suivant2
sched_2eme_passage:
	inc	ch			; a partir du 2eme passage, on cherche les priorite suivantes, sans revenir a la priorite 0
	and	ch,7
	jnz	sched_proc_suivant2
	; lancer idle car aucun process pret !
	xor	ebx,ebx
	lea	ebp,[proc_idle]
sched_retour:
	mov	[proc_prioriteec],cl
	mov	[proc_prio_max],ch
	mov	[proc_encours],ebx
	mov	[proc_encours_sav],ebx
	xor	eax,eax
	; ebp = adresse debut process en memoire
	mov	[ebp+proc_att_mutex_adr],eax	; proc actif : pas de mutex en attente !!
	mov	[ebp+proc_att_buffer_adr],eax	; ni de POPW en attente !
	mov	[ebp+proc_att_systick],eax	; ni de time-out en attente !
	mov	esp,[ebp+proc_save_esp]		; restaure ESP pour les "POP"
	popad					; mode 32b
	iret

Code: Select all

   ; timer IRQ0
	mov	al,0x36		; setup 8254 - count 0, periodic rect, 16 bits
	out	0x43,al
	xor	edx,edx
	mov	eax,0x001234DE		; (1193182 Hz)
	div dword [kernel_freq_sched]
	out	0x40,al		 	; LSB
	mov	al,ah			   ; MSB
	out	0x40,al
	mov	[kernel_freq_valeur],ax

Code: Select all

secteur_suivant: 
        push    cx 
        mov     cx,[boot_piste_sect]   ; current sector - begins at 2 
        mov     dh,[boot_tete]          ; current head - begins at 0 
        mov     dl,[boot_device] 
        ; 
        push    es 
        xor     bx,bx 
        mov     ah,2            ; read sector
        mov     al,1            ; nb sectors to read
        int     0x13 
        jc      load_kernel_error       ; error
        mov     ax,0x0E2E               ; display point
        int     0x10 
        pop     es 
        mov     ax,es 
        add     ax,0x20
        mov     es,ax 
        ; calcul secteur suivant CHS (secteur++ puis head++ puis cylindre++) 
        mov     cx,[boot_piste_sect] 
        mov     dh,[boot_tete] 
        inc     cl              ; sect + 1 
        cmp     cl,[disk_nbsect] 
        jbe     secteur_fincalc 
        mov     cl,1 
        inc     dh              ; head + 1 
        cmp     dh,[mask_tete]  ; max head reaches 
        jbe     secteur_fincalc 
        ; come back to head 0 and cylinder ++
        inc     ch 
secteur_fincalc: 
        and     dh,[mask_tete] 
        mov     [boot_piste_sect],cx 
        mov     [boot_tete],dh 
        pop     cx 
        xor     si,si 
        loop    secteur_suivant