/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at https://mozilla.org/MPL/2.0/. */
/* KabaLang yalın (çıplak donanım) çekirdek önyükleme parçası.
 *
 * Görevi YALNIZ: Multiboot1 başlığı (QEMU `-kernel` ve GRUB yükler),
 * 32 bit korumalı kipten 64 bit uzun kipe geçiş, yığın, ve KabaLang
 * programının giriş işlevine (`kaba_cekirdek_ana`) atlamak. Çekirdeğin
 * MANTIĞI bu dosyada değil, `.kbl` kaynağındadır.
 *
 * Bellek: ilk 1 GB, 2 MB'lık sayfalarla birebir (identity) eşlenir.
 */
    .set MB_SIHIR,  0x1BADB002
    .set MB_BAYRAK, 0x00000003          /* sayfa hizalı modüller + bellek bilgisi */
    .set MB_SAGLAMA, -(MB_SIHIR + MB_BAYRAK)

    .section .multiboot, "a"
    .align 4
    .long MB_SIHIR, MB_BAYRAK, MB_SAGLAMA

    .section .bss
    .align 4096
    .global kaba_yigin_durumu
kaba_yigin_durumu:                       /* yalın çalışma zamanının yığın durumu */
    .skip 64
    .align 4096
pml4:   .skip 4096
pdpt:   .skip 4096
pd:     .skip 4096
yigin_alt:
    .skip 65536
yigin_ust:

    .section .data
    .align 8
    .global kaba_onyukleme_bilgisi
kaba_onyukleme_bilgisi:
    .quad 0

    .section .rodata
    .align 8
gdt64:
    .quad 0                              /* boş tanımlayıcı */
    .quad 0x00AF9A000000FFFF             /* 64 bit kod kesimi */
    .quad 0x00CF92000000FFFF             /* veri kesimi */
gdt64_son:
gdt64_gosterge:
    .word gdt64_son - gdt64 - 1
    .quad gdt64

    .section .text
    .code32
    .global _start
_start:
    cli
    mov $yigin_ust, %esp
    mov %ebx, kaba_onyukleme_bilgisi     /* Multiboot bilgi yapısının adresi */

    /* PML4[0] → PDPT, PDPT[0] → PD, PD[i] → i*2MB (büyük sayfa) */
    mov $pdpt, %eax
    or  $0x3, %eax
    mov %eax, pml4
    mov $pd, %eax
    or  $0x3, %eax
    mov %eax, pdpt
    xor %ecx, %ecx
1:  mov %ecx, %eax
    shl $21, %eax
    or  $0x83, %eax                      /* var + yazılabilir + büyük sayfa */
    mov %eax, pd(,%ecx,8)
    inc %ecx
    cmp $512, %ecx
    jne 1b

    mov $pml4, %eax                      /* CR3 = PML4 */
    mov %eax, %cr3
    mov %cr4, %eax                       /* PAE */
    or  $0x20, %eax
    mov %eax, %cr4
    mov $0xC0000080, %ecx                /* EFER.LME */
    rdmsr
    or  $0x100, %eax
    wrmsr
    mov %cr0, %eax                       /* sayfalama + korumalı kip */
    or  $0x80000001, %eax
    mov %eax, %cr0

    lgdt gdt64_gosterge
    ljmp $0x08, $uzun_kip

    .code64
uzun_kip:
    mov $0x10, %ax
    mov %ax, %ds
    mov %ax, %es
    mov %ax, %ss
    xor %ax, %ax
    mov %ax, %fs
    mov %ax, %gs
    mov $yigin_ust, %rsp
    xor %rbp, %rbp
    call kaba_cekirdek_ana
2:  cli
    hlt
    jmp 2b

/* ── Kesme girişleri ────────────────────────────────────────────────────
 * 0–31 işlemci istisnaları, 32–47 PIC donanım kesmeleri (yeniden eşlenmiş).
 * Her giriş: (hata kodu yoksa 0) + vektör yığına → ortak giriş → KabaLang
 * `kesme(vektor, kod)` (dışa `kaba_kesme`). Yazmaçlar saklanır; yığın
 * `call` anında 16 bayt hizalıdır (5 CPU + 2 giriş + 15 yazmaç = 22×8 = 176).
 * Çekirdek `-mgeneral-regs-only` derlendiği için SSE durumu saklanmaz. */
    /* CPU'nun hata kodu ittiği istisnalar: 8, 10–14, 17, 21, 29, 30. */
    .irp n, 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47
kesme_giris_\n:
    .if (\n == 8) || (\n >= 10 && \n <= 14) || (\n == 17) || (\n == 21) || (\n == 29) || (\n == 30)
    .else
    push $0
    .endif
    push $\n
    jmp kesme_ortak
    .endr

kesme_ortak:
    .irp r, rax,rbx,rcx,rdx,rsi,rdi,rbp,r8,r9,r10,r11,r12,r13,r14,r15
    push %\r
    .endr
    mov 120(%rsp), %rdi                  /* vektör */
    mov 128(%rsp), %rsi                  /* hata kodu */
    cld
    call kaba_kesme
    .irp r, r15,r14,r13,r12,r11,r10,r9,r8,rbp,rdi,rsi,rdx,rcx,rbx,rax
    pop %\r
    .endr
    add $16, %rsp                        /* vektör + hata kodu */
    iretq

/* Program `kesme` işlevi tanımlamadıysa: hiçbir şey yapma. */
    .weak kaba_kesme
kaba_kesme:
    ret

    .section .rodata
    .align 8
    .global kaba_kesme_girisleri
kaba_kesme_girisleri:
    .irp n, 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47
    .quad kesme_giris_\n
    .endr