; DS ========================================== BOOT (
bits 16
org 7C00h
jmp $+2
 
start:
cli
xor ax, ax
mov ds, ax
mov es, ax
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 0000:7E00h     ; es:bx (seg:offset) переход к ядру; CS=0000, IP=7E00h
 
; ------------------------------------ oo (
oo:                ; Вывод текста. AH = [black,blue,green,cyan, red,mag,yel,gray][i]
push es            ; сохр ES
push 0xB800        ; адрес видеобуфера
pop  es            ; ES = 0xB800
mov  di, [curs]    ; DI = смещение
__oo:              ; перебор строки
  lodsb            ; AL = очеред байт из DS:SI
  stosw            ; запись АХ по адресу ES:DI
  loop __oo        ; перебор CX-раз
pop  es            ; загр ES
ret
; ------------------------------------ oo )
 
str1 db '[UM,Virtio] NIC_PCI_CFG_SPACE:'
len1 equ $-str1
 
str2 db 'NIC_PCI_COMMON_CFG:'
len2 equ $-str2
 
curs dw 0          ; позиция курсора
 
; -----------------------------------------
times 510-($-$$) db 0
dw 0xAA55
; ========================================= BOOT )
; ***************************************** CORE ( :7E00h
 
mov [curs], 4      ; ставим курсор
mov ah, [str1]     ; беру адрес строки
mov si, ah         ; посредник
mov ah, 3          ; цвет = cyan
mov cx, len1       ; длина строки
call oo            ; вывод

mov [curs], 4      ; ставим курсор
mov ah, [str1]     ; беру адрес строки
mov si, ah         ; посредник

mov word[curs], 0  ; ставим курсор
mov si, str1
mov ah, 3          ; цвет = cyan
mov cx, len1       ; длина строки
call oo            ; вывод

mov ax,3
int 10h

; SERVER ====================================== BOOT (
bits 16
org 7C00h
jmp $+2
 
start:
cli
xor ax, ax
mov ds, ax
mov es, ax
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 0000:7E00h     ; es:bx (seg:offset) переход к ядру; CS=0000, IP=7E00h
 
; ------------------------------------ Text
Text:              ; 
                   ; Вывод текста
push es            ; сохр ES
push 0xB800        ; адрес видеобуфера
pop  es            ; ES = 0xB800
mov  di, [curs]    ; ES:DI = сегмент видеобуфера В800:0000
.__:               ; перебор строки
  lodsb            ; AL = очеред байт из DS:SI
  stosw            ; запись АХ по адресу ES:DI
  loop .__         ; перебор CX-раз
pop es             ; загр ES
mov word[curs], di ; сохр поз курсора
ret
 
; ------------------------------------ Text/
 
curs dw 2          ; позиция курсора = 1 символ
tcol db 7          ; цвет/фон текста = серый на чёрном
 
; ------------------------------------ PrintHex
PrintHex:          ; (ebx)
                   ; 
mov  di, [curs]    ; ставим курсор
mov  ah, [tcol]    ; цвет i: [black,blue,green,cyan, red,mag,yel,gray]
 
mov  cx, 8         ; 8 раз по 4 бита (подтянет rol)
  ascii:             
  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 .pr          ; AL+48 < 58
  add al, 7        ; A..F
                   
  .pr: stosw       ; вывод AХ на экран
  loop ascii       ; перебор всех цифр
ret
 
; ------------------------------------ PciCfgDump
PciCfgDump:             ; (DL)
                    ;  DL: кол строк
push es                 ; сохр ES
push 0xB800             ; адрес видеобуфера
pop  es                 ; ES = 0xB800
 
mov DH, 4               ; колич столбцов
  .row:               
  mov ax, 0xB10A        ; fn Read_PCI_Cfg_Dword
  mov bx, 0x0018        ; BDF
  int 1Ah               ; ECX = Dword
  bswap ecx             ; зеркалим по PCI спец
  mov ebx, ecx    
  call PrintHex         ; PrintHex(ebx)
    mov ax, 0x0720        ; пробел между двордами
    stosw                 ; вывод AХ в видеобуфер
  add di, 4             ; след DWORD в PciCfg
  dec DH                ; след столб с двордом
  jnz .row
    add di, 88          ; курсор на новую строку
    mov word[curs], di  ; сохр позицию курсора
    mov DH, 4           ; сброс колич столбцов
    dec DL              ; след строка
  jnz .row              
ret
 
; ------------------------------------ UM
UM:
; Создание GDT
lgdt [GDT]    ; Адрес таблицы GDT (Глобальная Таблица Дескрипторов)
cli           ; выкл прерывания
in  al, 0x70  ; Немаскируемые прерывания NMI
or  al, 0x80  ; 1000'0000
out 0x70, al  ;
 
mov eax, cr0  ; Переход в PM
inc al        ; вкл в CR0[0]=РМ
mov cr0, eax  ; -> PM
jmp $+2       ; после смены режимов обязателен JMP
 
mov ax, 8     ; селектор 4Gb-дескриптора в GDT
mov fs, ax    ; запись в сегм.регистр FS (свободный)
 
mov eax, cr0  ; Обратно в RM
dec al        ; вкл в CR0[0]=РМ
mov cr0, eax
jmp $+2       ; после смены режимов обязателен JMP
 
in  al, 0x70  ; снять запрет с NMI
and al, 0x7F  ; 0111'1111
out 0x70, al
 
xor ax, ax    ;
mov fs, ax    ;
sti           ; вкл прерывания
ret
; ------------------------------------ UM/
 
; GDT_UM
align 16                     ; адреса GDT кратны 16
Table dq 0                   ; нулевой дескриптор
      dq 0x00cf93000000ffff  ; дескриптор данных (4Gb)
  GDT dw ($-Table)-1         ; размер таблицы
      dd Table               ; адрес таблицы
 
; Messages
str1 db 'NIC_PCI_CFG_SPACE:'
len1 equ $-str1
str2 db 'NIC_PCI_COMMON_CFG:'
len2 equ $-str2
 
; -----------------------------------------
times 510-($-$$) db 0
dw 0xAA55
; ========================================= BOOT )
; ***************************************** CORE ( :7E00h
 
call UM              ; Unreal Mode
 
; Очистка экрана, видеорежим: txt.80x25
mov ax, 3
int 10h
 
; Текст NIC_PCI_CFG_SPACE:
mov  si, str1        ; 
mov  cx, len1        ; длина строки
mov  ah, 3           ; цвет = cyan
call Text            ;
 
; Новая строка
add di, 160-len1*2  ; новая строка
mov word[curs], di  ; сохр позицию
stosw               ; на экран
 
; Получаем BDF {Bus:Dev:Fn} VirtNet
mov  cx, 0x1000
mov  dx, 0x1AF4
xor  si, si
mov  ax, 0xB102
int  1Ah
 
; Дамп PciCfg
mov  DL, 16         ; 16 строк дампа
call PciCfgDump

; Общие регистры I/O относительно BAR0
;-------------------------------------
DEVICE_FEATURES  = 00h    ; 4 байт RO. / маска со списком функций, которые предлагает нам хост
DRIVER_FEATURES  = 04h    ; 4 байт RW. / ...а сюда мы прописываем, что выбрали из этого списка
QUEUE_ADDRESS    = 08h    ; 4 байт RW. / адрес очередей(0-N) (буферов In/Out)
QUEUE_SIZE       = 0Ch    ; 2 байт RO. / размер очереди в байтах (назначает хост)
QUEUE_SELECT     = 0Eh    ; 2 байт RW. / регистр выбора очереди
QUEUE_NOTIFY     = 10h    ; 2 байт RW. / регистр уведомлений хосту
DEVICE_STATUS    = 12h    ; 1 байт RW. / текущий статус гостя (Reset, ANK, DRV_OK, etc)
ISR_STATUS       = 13h    ; 1 байт RO. / регистр статуса обработчиков прерываний: бит(2) = изменено
 
; Регистры I/O vNet относительно BAR0
;-------------------------------------
NET_MAC          = 14h    ; 6 байт
NET_STATUS       = 1Ah    ; 2 байт