; ========================================== BOOT
bits 16
org 7C00h
jmp $+2
 
start:
cli
xor ax, ax    ; ax=0
mov ds, ax    
mov es, ax    ; es=0
mov ss, ax    
mov sp, 7C00h
sti
 
; -------------- Чтение следующих секторов
mov ax, 0208h      ; AH=02; AL=01 (функция чтения секторов; 8 секторов = 512x8=4096 = 4 КБ )
mov cl, 2          ; CH=initial 00; CL=02 (; 2й сектор)
mov dh, 0
mov bx, 7E00h      ; =7C00h+0200h: (:512); Адрес для ядра
int 13h            ; читаем и кладем туда
 
jmp 07E0h:0        ; es:bx (seg:offset) переход к ядру; CS=07E0h, IP=0
 
; -----------------------------------------
times 510-($-$$) db 0
dw 0xAA55

; ========================================== CORE
jmp MAIN
; com[__]: ii - перебор, oo - просмотр
; ------------------------------------------ re
re: ; 
    ; переход на новую строку
  mov ah, 14 ; 0Eh
  mov cx, 2
  reii: mov al, 0Ah ; LF
        int 10h
        loop reii
  mov al, 0Dh ; CR
  int 10h
  xor al, al
  ret
 
; ------------------------------------------ hex
hex:  ; ebx
      ; Вывод содержимого ebx в 16-рич виде
        mov ah, 14  ; режим вывода текста
        mov cx, 8   ; количество итераций
 hexii: rol ebx, 4  ; YYYY -> BL[XXXX_....]
        mov al, 15  ;   0000_1111
        and al, bl  ; & XXXX_YYYY -> 0000_YYYY
        add al, 48  ; 0..9
        cmp al, 58  
         jl hexoo   ; AL+48 < 58
        add al, 7   ; A..F
 hexoo: int 10h
        loop hexii
  call re
  ret
 
; ------------------------------------------ MAIN
MAIN:
mov ebx, 0xE4C2A13F ; test hex
call hex
 
; virtioNIC
mov cx, 1000h   ; DeviceID
mov dx, 1AF4h   ; VendorID
 
mov ax, 0xB102  ; функция поиска устройства
int 1Ah         ; поиск
 
mov dh, ah      ; копирую код возврата
 
mov  ah, 0Eh    ; режим вывода текста
mov  al, 'Y'    ; Yes
 
cmp  dh, 0      ; =0 -> ok
je   found      ; найдено
mov  al, 'N'    ; No
 
found:
int 10h

;....
buff  rd  64
;....
;-------------------
     mov   ax,0xB102      ; найти устройство по VID/DID
     mov   dx,0x1AF4      ; VID 
     mov   cx,0x1000      ; DID
     xor   si,si          ; номер для многофункциональных устройств PCI
     int   1Ah            ; биос..
 
     mov   ax,0xB10A       ; считать DWORD из PciCfg (BX = bus:dev:func)
     xor   di,di           ; стартовый адрес данных в PciCfg = 0
     mov   bp,64           ; счётчик чтения: 64х4=256 байт
     mov   si,buff         ; адрес приёмного буфера
@readPciCfg:               ; цикл!
     push  ax bx di        ; <----(прерывание портит эти регистры) 
     int   1Ah             ; прочитать очередной DWORD 
     mov   [si],ecx        ; сбросить его в буфер
     pop   di bx ax        ; <----(восстановить регистры)
     add   si,4            ; сл.позиция в буфере
     add   di,4            ; сл.DWORD в PciCfg
     dec   bp              ; счётчик -1
     jnz   @readPciCfg     ; повторить BP-раз..

; virtioNIC
mov cx, 1000h   ; DeviceID
mov dx, 1AF4h   ; VendorID
mov ax, 0xB102  ; функция поиска устройства
int 1Ah         ; поиск
 
                ; -> BX[ BH=BusNum:8; BL=DevNum:5,FunNum:3 ]
 
call hex        ; EBX-> BX[BH:00h, BL:18h] -> BH=8[0], BL=00011000
 
;               32       31  24       16       11       8        2   0
; PCI_CONF_ADDR [EnaBit:1|_:7|BusNum:8|DevNum:5|FunNum:3|RegNum:6|_:2]
;               [E.......|BBBBBBBB|DDDDDFFF|RRRRRR..]
;               [                 |<--BH-->|<--BL-->]
;               [<-------16------>|<-------BX------>]
 
mov eax, 1_0000000_00000000_00011_000_000000_00b ; HardCoded PCI_CONF_ADDR
 
mov ebx, eax
call hex
 
cli
mov dx, 0x0CF8  ; PCI_INDX
out dx, eax     ; в порт
 
mov dx, 0x0CFC  ; PCI_DATA
 in eax, dx     ; из порта
sti
 
mov ebx, eax    ; 0xFFFFFFFF -> не найдено
call hex

mov eax, 1_0000000_00000000_00011_000_000000_00b ; HardCoded PCI_CONF_ADDR
 
mov ebx, eax
call hex        ; -> 80001800
mov eax, ebx    ; восстанавливаю eax
 
cli
mov dx, 0x0CF8  ; PCI_INDX
out dx, eax     ; в порт
 
mov dx, 0x0CFC  ; PCI_DATA
 in eax, dx     ; из порта
sti
 
mov ebx, eax
call hex        ; -> 10001AF4
mov eax, ebx    ; восстанавливаю eax

struct VIRTIO_PCI_CAP
   cap_vndr    db  0    ; PCI_CAP_ID_VNDR         (общее для всех поле)
   cap_next    db  0    ; Адрес сл.структуры      (общее для всех поле)
   cap_len     db  0    ; Длина данной структуры  (общее для всех поле)
   cfg_type    db  0    ; Тип структуры (см.ниже) (общее для всех поле)
   bar         db  0    ; В каком из BAR[0:5] указан базовый адрес в памяти
   id          db  0    ; (если имеются несколько возможностей САР одного типа, иначе 0)
   padding     dw  0    ; ----> (слово выравнивания)
   offset      dd  0    ; Смещение структуры внутри BAR
   length      dd  0    ; Длина структуры в байтах
ends

struct VIRTIO_PCI_COMMON_CFG
   device_feature_select    dd  0   ; RW
   device_feature           dd  0   ; Read-only for driver
   driver_feature_select    dd  0   ; RW
   driver_feature           dd  0   ; RW
   msix_config              dw  0   ; RW
   num_queues               dw  0   ; Read-only for driver
   device_status            db  0   ; RW
   config_generation        db  0   ; Read-only for driver
   ; Свойства очереди сообщений "virtqueue"
   queue_select             dw  0   ; RW
   queue_size               dw  0   ; RW
   queue_msix_vector        dw  0   ; RW
   queue_enable             dw  0   ; RW
   queue_notify_off         dw  0   ; Read-only for driver
   queue_desc               dq  0   ; RW
   queue_driver             dq  0   ; RW
   queue_device             dq  0   ; RW
ends

; virtioNIC
mov cx, 1000h   ; DeviceID
mov dx, 1AF4h   ; VendorID
mov ax, 0xB102  ; функция поиска устройства
int 1Ah         ; поиск
 
                ; -> BX[ BH=BusNum:8; BL=DevNum:5,FunNum:3 ]
call hex        ; BusNum=00000000; DevNum=00011; FunNum=000
 
;               32       31  24       16       11       8        2   0
; PCI_CONF_ADDR [EnaBit:1|_:7|BusNum:8|DevNum:5|FunNum:3|RegNum:6|_:2]
;                 |<-------BX------->|=0x0018
mov eax, 1_0000000_00000000_00011_000_000000_00b ; HardCoded PCI_CONF_ADDR
 
mov ebx, eax
call hex        ; -> 80001800
mov eax, ebx    ; восстанавливаю eax
 
cli
mov dx, 0x0CF8  ; PCI_INDX
out dx, eax     ; в порт
 
mov dx, 0x0CFC  ; PCI_DATA
 in eax, dx     ; из порта -> 10001AF4
sti
 
; ----------------------------------------------
 
PciCfgBuff: resd 64   ; (resd 4) x 64 = 256
 
mov ax, 0xB10A        ; считать DWORD из PciCfg (BX = bus:dev:func)
xor di, di            ; стартовый адрес данных в PciCfg = 0
mov bp, 64            ; счётчик чтения: 64х4=256 байт
mov si, PciCfgBuff    ; адрес приёмного буфера
 
readPciCfg: 
push ax
push bx
push di               ; <- прерывание портит ax,bx,di
int  1Ah              ; следующий DWORD 
mov  [si], ecx        ; кладём в буфер
pop  di                
pop  bx
pop  ax               ; <- восстанавливаем ax,bx,di
add  si,4             ; сл.позиция в буфере
add  di,4             ; сл.DWORD в PciCfg
dec  bp               ; bp--
jnz  readPciCfg
 
 
mov ah, 14  ; режим вывода текста
mov al, 'J'
int 10h

org  0x7c00
jmp  $+2
;-------------------
        cli
        xor    ax,ax
        mov    ds,ax
        mov    es,ax
        mov    ss,ax
        mov    sp,0x7c00
        sti
 
; Ставим видео-моду: txt.80x25
        mov    ax,3
        int    10h
 
; Получить BDF VirtioNet
        mov    cx,1000h     ;
        mov    dx,1AF4h     ;
        xor    si,si        ;
        mov    ax,0xB102    ;
        int    1Ah          ;
 
; Читать двордами из PciCfg (BX = bus:dev:func)
        mov    ax,0xB10A    ;
        xor    di,di        ;
        mov    bp,64        ;
@dumpPciCfg:                ;
        push   ax bx di cx dx
        int    1Ah          ;
        call   PrintHex     ; зовём процедуру печати!
        pop    dx cx di bx ax
        add    si,4         ; сл.позиция в буфере
        add    di,4         ; сл.DWORD в PciCfg
        dec    bp           ;
        jnz    @dumpPciCfg  ;
 
        xor    ax,ax        ; ждём клавишу..
        int    16h          ;
        jmp    $            ; зависнуть на текущем адресе
 
;----  Процедура выводит ECХ на экран в HEX ------------
cursor  dw     0            ; текущая позиция курсора
count   db     4            ; двордов в одной строке дампа
 
PrintHex:                   ;
        push   es 0xb800    ;
        pop    es           ;
        mov    di,[cursor]  ; ES:DI = сегмент видеобуфера В800:0000
        xchg   edx,ecx      ; EDX = число
        bswap  edx          ; восстановить порядок байт как в PciCfg
        mov    ecx,8        ; кол-во символов для вывода
 
@@:     shld   eax,edx,4    ; получить в AL очередную цифру
        rol    edx,4        ; удалить её из EDX
        and    al,0x0f      ; оставить в AL только эту цифру
        cmp    al,0x0a      ; три команды перевода
        sbb    al,0x69      ;    ..hex цифры из AL
        das                 ;        ..в соответствующий ASCII-код
        mov    ah,7         ; цвет/фон символа = серый на чёрном
        stosw               ; вывод AХ в видеобуфер
        loop   @b           ; повторить для всех цифр
 
        mov    ax,0x0720    ; пробел между двордами
        stosw               ;
        dec    [count]      ; вывели 4-дворда??? (одна строка дампа)
        jnz    @f           ; нет..
        add    di,88        ; иначе: курсор на новую строку
        mov    [count],4    ; восстановить счётчик двордов в строке
@@:     mov    [cursor],di  ; запомнить позицию курсора
        pop    es           ;
ret
 
;---------------------
times   510-($-$$) db 0
dw      0xAA55

; ========================================== CORE
jmp MAIN
; com[__]: ii - перебор, oo - просмотр
; ------------------------------------------ re
re: ; 
    ; переход на новую строку
  mov ah, 14 ; 0Eh
  mov al, 0Ah ; LF
  int 10h
  mov al, 0Dh ; CR
  int 10h
  xor al, al
  ret
 
; ------------------------------------------ hex
hex:  ; ebx
      ; Вывод содержимого ebx в 16-рич виде
        mov ah, 14  ; режим вывода текста
        mov cx, 8   ; количество итераций
 hexii: rol ebx, 4  ; YYYY -> BL[XXXX_....]
        mov al, 15  ;   0000_1111
        and al, bl  ; & XXXX_YYYY -> 0000_YYYY
        add al, 48  ; 0..9
        cmp al, 58  
         jl hexoo   ; AL+48 < 58
        add al, 7   ; A..F
 hexoo: int 10h
        loop hexii
  mov al, 0x20 ; SPACE
  int 10h
  ret
 
; ------------------------------------------ MAIN
MAIN:
; initial EBX-> 0000 7E00
 
; virtioNIC
mov cx, 1000h   ; DeviceID
mov dx, 1AF4h   ; VendorID
mov ax, 0xB102  ; функция поиска устройства
int 1Ah         ; -> BX[ BH=BusNum:8; BL=DevNum:5,FunNum:3 ]
 
;               32       31  24       16       11       8        2   0
; PCI_CONF_ADDR [EnaBit:1|_:7|BusNum:8|DevNum:5|FunNum:3|RegNum:6|_:2]
;                 |<-------BX------->|=0x0018
mov eax, 1_0000000_00000000_00011_000_000000_00b ; HardCoded PCI_CONF_ADDR
;             BDF=|Bus-----|Dev--|Fn-| : BusNum=00000000, DevNum=00011, FunNum=000
 
cli
mov dx, 0x0CF8  ; PCI_INDX
out dx, eax     ; в порт
mov dx, 0x0CFC  ; PCI_DATA
 in eax, dx     ; из порта -> 10001AF4
sti
 
call  re        ; пустая строка
 
; ----------------------------------------------
 
mov DX, 0x0808  ; 8 строк по 8 dword
xor di, di      ; regNum 0
 
Read_PCI_Conf_Dword_Row:
mov ax, 0xB10A  ; fn Read_PCI_Conf_Dword
mov bx, 0x0018  ; BDF
int 1Ah         ; ECX = Dword
 
mov ebx, ecx
call hex        
add di, 4       
dec DL          ; след dword
jnz Read_PCI_Conf_Dword_Row
call re
mov DL, 8       
dec DH          ; след строка
jnz Read_PCI_Conf_Dword_Row
 
; ----------------------------------------------

mov DX, 0x1004  ; 16 строк по 4 dword
xor di, di      ; regNum 0
 
Read_PCI_Conf_Dword_Row:
mov ax, 0xB10A  ; fn Read_PCI_Conf_Dword
mov bx, 0x0018  ; BDF
int 1Ah         ; ECX = Dword
bswap ecx       ; зеркалим по PCI спец
mov ebx, ecx
call hex
add di, 4       
dec DL          ; след dword
jnz Read_PCI_Conf_Dword_Row
call re
mov DL, 4       
dec DH          ; след строка
jnz Read_PCI_Conf_Dword_Row