include 'virtio.inc'
org    0x7c00
jmp    start
BAR0   dw  0
BDF    dw  0
CMDR   dw  0
;//--------------
start: xor    ax,ax
       mov    ds,ax
       mov    es,ax
       mov    ss,ax
       mov    sp,0x7c00
       sub    sp,16
 
;if 0
       lgdt   fword[newGdt]
       jmp    UnrealMode
 
align         16
descTable     dq  0, 0x00cf93000000ffff ;<--- 4Gb дескр.данных
newGdt        dw  ($-descTable)-1
              dd  descTable
 
UnrealMode:
       cli
; NMI -
       in     al,0x70
       or     al,0x80
       out    0x70,al
; Protected
       mov    eax,cr0
       inc    al
       mov    cr0,eax
       jmp    $+2
; UnReal
       mov    bx,8
       mov    fs,bx
; Real-Mode
       dec    al
       mov    cr0,eax
       jmp    $+2
; NMI +
       in     al,0x70
       and    al,not 0x80
       out    0x70,al
 
       xor    ax,ax
       mov    fs,ax
       sti
;end if
 
;/***************************/
; VirtioNet BDF
       mov    dx,0x1AF4
       mov    cx,0x1000
       xor    si,si
       mov    ax,0xB102
       int    1Ah
       mov    [BDF],bx    ; сохранить его в переменной
 
; Взять порт I/O из BAR0
       mov    ax,0xB10A
       mov    di,0x10
       int    1Ah
       dec    cx          ; сбросить бит(0)
       mov    [BAR0],cx
 
; Взять регистр "Command" из PCI-Cfg
       mov    bx,[BDF]
       mov    ax,0xB109   ; Read word
       mov    di,0x04
       int    1Ah
       mov    [CMDR],cx
 
; Видеомода txt.80x25, и прячем курсор
       mov    ax,3
       int    10h
       mov    ax,0x0100
       mov    cx,0x2000
       int    10h
 
; Подрузить ОС в память
       mov    ax,0x0208
       mov    bx,0x7E00
       mov    cx,2
       xor    dx,dx
       int    13h
 
; Отдать ей управление
       push   cs
       push   0x7E00
       retf
;---------------------
times  510 - ($-$$) db 0
       dw     0xAA55
 
;//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;//xxxxxxxxxxxxxxxxxxx    Код ядра ОС    xxxxxxxxxxxxxxxxxxxxxxx
;//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
org   7E00h
jmp   @begin
 
szOs     db   'UnOS in memory!   '
szIo     db   'I/O space enable: '
szMio    db   'MIO space enable: '
szPort   db   'Port data dump:   '
txtLen   =    $ - szPort
 
cursor   dw  164  ; текущая позиция курсора
size     dd  8    ; тетрад в числе для вывода (byte/word/dword)
;-------------------------------
@begin:
; Мессага, что ОС в памяти
       mov    si,szOs
       call   GetString
       mov    [cursor],(160*2)+4
 
; Проверить доступ к портам I/O
       mov    si,szIo
       call   GetString
       mov    ax,[CMDR]
       push   ax
       and    ax,1
       add    al,'0'
       push   es 0xb800
       pop    es
       mov    ah,7
       stosw
       mov    [cursor],(160*3)+4
; Проверить доступ к пространству MMIO
       mov    si,szMio
       call   GetString
       pop    ax
       shr    ax,1
       and    ax,1
       add    al,'0'
       mov    ah,7
       stosw
       pop    es
       mov    [cursor],(160*5)+4
; Ошибка, если нет доступа к порту I/O
       mov    ax,[CMDR]
       and    ax,1
       jnz    @ok
       call   @f
       db     'Port access error!'
@@:    pop    si
       call   GetString
       jmp    @err
 
; Выводим данные из порта I/O (первые 14h байт)
; *********************************************
@ok:   mov    si,szPort
       call   GetString
       mov    [cursor],(160*6)+4
 
       mov    bx,DEVICE_FEATURES
       call   PrintFeature32
       mov    [cursor],(160*7)+4
 
       mov    bx,DRIVER_FEATURES
       call   PrintFeature32
       mov    [cursor],(160*8)+4
 
       mov    bx,QUEUE_ADDRESS
       call   PrintFeature32
       mov    [cursor],(160*9)+4
 
       mov    bx,QUEUE_SIZE
       call   PrintFeature16
       mov    [cursor],(160*10)+4
 
       mov    bx,QUEUE_SELECT
       call   PrintFeature16
       mov    [cursor],(160*11)+4
 
       mov    bx,QUEUE_NOTIFY
       call   PrintFeature16
       mov    [cursor],(160*12)+4
 
       mov    bx,DEVICE_STATUS
       call   PrintFeature08
       mov    [cursor],(160*13)+4
 
       mov    bx,ISR_STATUS
       call   PrintFeature08
       mov    [cursor],(160*15)+4
 
       mov    bx,14h
       call   PrintFeature16
       mov    [cursor],(160*16)+4
 
       mov    bx,16h
       call   PrintFeature16
 
@err:  xor    ax,ax        ; ждём клавишу..
       int    16h          ;
       jmp    $            ; зависнуть на текущем адресе
;//*************************************************************
 
;----  Процедура печати строк ------------
GetString:                 ;
       push   es 0xb800 ;
       pop    es           ; ES = сегмент видеобуфера 0xB800
       mov    di,[cursor]  ; DI = смещение в нём
       mov    cx,txtLen    ; CX = длина строк
       mov    ah,7         ; цвет символа
@prnString:                ;
       lodsb               ; AL = очередной байт из DS:SI
       stosw               ; запись АХ по адресу ES:DI
       loop   @prnString   ; промотать цикл CX-раз..
       pop    es        ; ES на родину
ret                        ;
;----  Процедура выводит ECХ на экран в HEX ------------
PrintHex:
       pusha
       push   es 0xb800    ;
       pop    es           ;
       mov    di,[cursor]  ; ES:DI = сегмент видеобуфера В800:0000
       xchg   edx,ecx      ; EDX = число
       bswap  edx          ; восстановить порядок байт как в PciCfg
       mov    ecx,[size]   ; кол-во символов для вывода
@@:    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    [cursor],di  ; запомнить позицию курсора
       pop    es           ;
       popa
ret
;----  Печать регистров порта ------------
PrintFeature32:
       mov    [size],8
       mov    dx,[BAR0]
       add    dx,bx
       in     eax,dx     ;<----32-бит
       bswap  eax
       xchg   eax,ecx
       call   PrintHex
ret
PrintFeature16:
       mov    [size],4
       mov    dx,[BAR0]
       add    dx,bx
       in     ax,dx      ;<----16-бит
       bswap  eax
       shr    eax,16
       xchg   eax,ecx
       call   PrintHex
ret
PrintFeature08:
       mov    [size],2
       mov    dx,[BAR0]
       add    dx,bx
       in     al,dx      ;<----08-бит
       bswap  eax
       shr    eax,24
       xchg   eax,ecx
       call   PrintHex
ret

mov dx, 0x1AF4

; Загрузка ОС в память
LoadOS:
mov ax,0x0208     ; AH=02; AL=01 (функция чтения секторов; 8 секторов = 512x8=4096 = 4 КБ )
mov bx,0x7E00     ; =7C00h+0200h: (:512); Адрес для ядра
mov cx,0x0002     ; CH=00; CL=02
  mov dh,0x00       ; DH=00; DL: BIOS хранит здесь номер загруз устройства !!! ✔️✔️✔️✔️✔️✔️✔️
int 0x13

; ============================================ BOOT
bits 16
org 0x7C00
 
BAR0 dw 0     ; NIC PORT
BDF  dw 0     ; NIC Bus,Device,Function
CMDR dw 0     ; ComManD Register из PCI-Cfg
 
curs dw 0     ; текущая позиция курсора
size dd 8     ; тетрад в числе для вывода (byte/word/dword)
 
; --------------------------------------------
 
start: 
xor  ax, ax       ; ax=0
mov  ds, ax       ; ds=0
mov  es, ax       ; es=0
mov  ss, ax       ; ss=0
mov  sp, 0x7BF0   ; +16(GDT) = 0x7C00
 
lgdt [GDT]        ; Подключаем Таблицу Дескрипторов
jmp Unreal
 
align  16
DSC  dq 0, 0x00cf93000000ffff ; Дескр.данных 4 ГБ
GDT  dw $-DSC-1               ; Размер таблицы
     dd DSC                   ; Адрес таблицы
 
; Unreal Mode ---------------------------------
Unreal:
cli
; NMI -
in   al,0x70
or   al,0x80  ; 1000'0000
out  0x70,al
; Protected
mov  eax,cr0
inc  al
mov  cr0,eax
jmp  $+2
; UnReal
mov  bx,8
mov  fs,bx
; Real-Mode
dec  al
mov  cr0,eax
jmp  $+2
; NMI +
in   al,0x70
and  al,0x7F  ; 0111'1111
out  0x70,al
 
xor  ax,ax
mov  fs,ax
sti
; --------------------------------- Unreal Mode/
 
jmp LoadOS
 
; ----  Процедура печати строк ------------
txt:              ;
push es
push 0xB800       ;
pop  es           ; ES = сегмент видеобуфера 0xB800
mov  di,[curs]    ; DI = смещение в нём
mov  cx,[tlen]    ; CX = длина строк
mov  ah,[colo]    ; цвет i: [black,blue,green,cyan, red,mag,yel,gray]
  pr:             ;
  lodsb           ; AL = очередной байт из DS:SI
  stosw           ; запись АХ по адресу ES:DI
  loop  pr        ; промотать цикл CX-раз..
  pop   es        ; ES загр
ret               ;
 
; ----------------  HEX ------------
hex:                    ; 
pusha
push    es
push    0xb800          ;
pop     es              ;
mov     di,[curs]       ; ES:DI = сегмент видеобуфера В800:0000
xchg    edx,ecx         ; EDX = число
bswap   edx             ; восстановить порядок байт как в PciCfg
mov     ecx,[size]      ; кол-во символов для вывода
 loo:
 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   loo             ; повторить для всех цифр
 mov    word[curs],di   ; запомнить позицию курсора
 pop    es              ;
 popa
ret
 
; ------------------------------------------
 
; Загрузка ОС в память
LoadOS:
mov ax,0x0208     ; AH=02; AL=01 (функция чтения секторов; 8 секторов = 512x8=4096 = 4 КБ )
mov bx,0x7E00     ; =7C00h+0200h: (:512); Адрес для ядра
mov cx,0x0002     ; CH=00; CL=02
mov dh,0x00       ; DH=00; DL: BIOS хранит здесь номер загруз устройства !!! ✔️✔️✔️
int 0x13
 
; Передача управления
push cs
push 0x7E00
retf              ; CS:IP = 0000:7E00h
 
; -----------------------------------------
times 510-($-$$) db 0
dw 0xAA55
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxx    Kernel    xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
jmp MAIN
; ------------------------------------------
; PciBios_:      Functions     AX=B1__h:
;         PRESENT                   01
;         FIND_PCI_DEVICE           02
;         FIND_PCI_CLASS_CODE       03
;         GENERATE_SPECIAL_CYCLE    06
;         READ_CONFIG_BYTE          08
;         READ_CONFIG_WORD          09
;         READ_CONFIG_DWORD         0A
;         WRITE_CONFIG_BYTE         0B
;         WRITE_CONFIG_WORD         0C
;         WRITE_CONFIG_DWORD        0D
;         GET_IRQ_ROUTING_OPTIONS   0E
;         SET_PCI_IRQ               0F
; ------------------------------------------
 
; --------- Печать регистров порта ---------
ooFeat32:
mov    dword[size],8
mov    dx,[BAR0]
add    dx,bx
in     eax,dx     ;<----32-бит
bswap  eax
xchg   eax,ecx
call   hex
ret
ooFeat16:
mov    dword[size],4
mov    dx,[BAR0]
add    dx,bx
in     ax,dx      ;<----16-бит
bswap  eax
shr    eax,16
xchg   eax,ecx
call   hex
ret
ooFeat08:
mov    dword[size],2
mov    dx,[BAR0]
add    dx,bx
in     al,dx      ;<----08-бит
bswap  eax
shr    eax,24
xchg   eax,ecx
call   hex
ret
ooMac08:
mov    dword[size],2
mov    dx,[BAR0]
add    dx,bx
in     al,dx      ;<----08-бит
xchg   eax,ecx
call   hex
ret
ooMac16:
mov    dword[size],4
mov    dx,[BAR0]
add    dx,bx
in     ax,dx      ;<----16-бит
xchg   eax,ecx
call   hex
ret
 
; ----------------------------------------
;          0     1    2     3     4   5   6   7
; цвет i: [black,blue,green,cyan, red,mag,yel,gray]
gray equ 0x07   ; фон: черный, символ: серый
grow equ 0x02   ; зеленый
cyan equ 0x03   ; бирюзов
yell equ 0x06   ; желтый
 
colo db 0x07    ; серый по умолчанию
 
text db 'PORT REGISTERS:'
tlen dw $-text
 
; Байт статуса гостя, чтобы сообщить о прогрессе и синхронизировать функции
VIRTIO_CONFIG_S_DEVICE_RESET equ 0   ; Сброс устр. на хосте (записать в регистр "DEVICE_STATUS")
VIRTIO_CONFIG_S_ACKNOWLEDGE  equ 1   ; Увидели устр. и обработали общие поля VIRTIO_CONFIG_F_VIRTIO
VIRTIO_CONFIG_S_DRIVER       equ 2   ; Нашли драйвер для устройства
VIRTIO_CONFIG_S_DRIVER_OK    equ 4   ; Драйвер использовал свои части конфигурации и доволен
VIRTIO_CONFIG_S_FEATURES_OK  equ 8   ; Драйвер завершил настройку функций
VIRTIO_CONFIG_S_NEEDS_RESET  equ 64  ; Устройство перешло в недопуст сост, драйвер долж сбросить его
VIRTIO_CONFIG_S_FAILED       equ 128 ; Мы отказались от этого устройства
 
; Общие регистры I/O относительно BAR0
DEVICE_FEATURES  equ 00h  ; 4 Б: RO маска со списком функций хоста
DRIVER_FEATURES  equ 04h  ; 4 Б: RW ..пишем выбранное из списка (см VIRTIO_NET_F_xx ниже)
QUEUE_ADDRESS    equ 08h  ; 4 Б: RW адрес циклических очередей(0-N)
QUEUE_SIZE       equ 0Ch  ; 2 Б: RO размер очереди в байтах (назначает хост)
QUEUE_SELECT     equ 0Eh  ; 2 Б: RW регистр выбора очереди
QUEUE_NOTIFY     equ 10h  ; 2 Б: RW регистр уведомлений хосту
DEVICE_STATUS    equ 12h  ; 1 Б: RW текущий статус гостя (см CONFIG_S_xx выше)
ISR_STATUS       equ 13h  ; 1 Б: RO регистр статуса обработчиков прерываний: бит(2) = изменено
NET_MAC          equ 14h  ; 6 Б: RO MAC-адрес сетевухи,
NET_STATUS       equ 1Ah  ; 2 Б: RW ...и её текущий статус
 
s_DEVICE_FEATURES  db 'DEVICE_FEATURES: '
n_DEVICE_FEATURES  dw $-s_DEVICE_FEATURES
  s_DRIVER_FEATURES  db 'DRIVER_FEATURES: '
  n_DRIVER_FEATURES  dw $-s_DRIVER_FEATURES
s_QUEUE_ADDRESS    db '  QUEUE_ADDRESS: '
n_QUEUE_ADDRESS    dw $-s_QUEUE_ADDRESS  
  s_QUEUE_SIZE       db '     QUEUE_SIZE: '
  n_QUEUE_SIZE       dw $-s_QUEUE_SIZE     
s_QUEUE_SELECT     db '   QUEUE_SELECT: '
n_QUEUE_SELECT     dw $-s_QUEUE_SELECT   
  s_QUEUE_NOTIFY     db '   QUEUE_NOTIFY: '
  n_QUEUE_NOTIFY     dw $-s_QUEUE_NOTIFY     
s_DEVICE_STATUS    db '  DEVICE_STATUS: '
n_DEVICE_STATUS    dw $-s_DEVICE_STATUS  
  s_ISR_STATUS       db '     ISR_STATUS: '
  n_ISR_STATUS       dw $-s_ISR_STATUS     
s_NET_MAC          db '        NET_MAC: '
n_NET_MAC          dw $-s_NET_MAC        
  s_NET_STATUS       db '     NET_STATUS: '
  n_NET_STATUS       dw $-s_NET_STATUS     
 
; ========================================================================================
MAIN:
; NIC BDF
mov cx, 0x1000      ; DeviceID, 2 Б
mov dx, 0x1AF4      ; VendorID, 2 Б
xor si, si          ; Source Index = 0
mov ax, 0xB102      ; AX = AH: PciFnI, AL: FIND_PCI_DEVICE
int 0x1A            ; BX = BH: BusNum, BL:[DevNum:5, FnNum:3]
mov word[BDF], bx   ; сохр 2 Б
 
; Взять порт I/O из BAR0
mov ax,0xB10A       ; dword
mov di,0x10
int 1Ah
dec cx              ; сбросить бит(0)
mov word[BAR0],cx
 
; Взять регистр "Command" из PCI-Cfg
mov bx,[BDF]
mov ax,0xB109       ; word
mov di,0x04
int 1Ah
mov word[CMDR],cx
 
; Очистка экрана и видеорежим: txt.80x25 ------------
mov ax,3
int 0x10
; Прячем курсор
mov ax,0x0100
mov cx,0x2000
int 0x10
; ---------------------------------------------------
 
; текст PORT REGISTERS
mov  word[curs], 160+2        ; ставим курсор
mov  si,  text                ; указываем на текст
mov  byte[colo], gray         ; цвет
call txt
mov  word[curs],(160*3)+2     ; пропуск строки
 
; Выводим данные из порта I/O (первые 14h байт)
; *********************************************
 
; DEVICE_FEATURES             ; 32 бит
mov  si, s_DEVICE_FEATURES    ; указываем на текст
mov  byte[colo], cyan         ; цвет
call txt
add  di, 2                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
 
mov  bx, DEVICE_FEATURES      ; 00h
mov  byte[colo], gray
call ooFeat32
mov  word[curs],(160*4)+2
 
; DRIVER_FEATURES             ; 32 бит
mov  si, s_DRIVER_FEATURES    ; указываем на текст
mov  byte[colo], cyan         ; цвет
call txt
add  di, 2                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
 
mov  bx, DRIVER_FEATURES      ; 04h
mov  byte[colo], gray
call ooFeat32
mov  word[curs],(160*5)+2
 
; QUEUE_ADDRESS               ; 32 бит
mov  si, s_QUEUE_ADDRESS      ; указываем на текст
mov  byte[colo], cyan         ; цвет
call txt
add  di, 2                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
 
mov  bx, QUEUE_ADDRESS        ; 08h
mov  byte[colo], gray
call ooFeat32
mov  word[curs],(160*6)+2
 
; QUEUE_SIZE                  ; 16 бит
mov  si, s_QUEUE_SIZE         ; указываем на текст
mov  byte[colo], cyan         ; цвет
call txt
add  di, 2                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
 
mov  bx, QUEUE_SIZE           ; 0Ch
mov  byte[colo], gray
call ooFeat16
mov  word[curs],(160*7)+2
 
; QUEUE_SELECT                ; 16 бит
mov  si, s_QUEUE_SELECT       ; указываем на текст
mov  byte[colo], cyan         ; цвет
call txt
add  di, 2                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
 
mov  bx, QUEUE_SELECT         ; 0Eh
mov  byte[colo], gray
call ooFeat16
mov  word[curs],(160*8)+2
      
; QUEUE_NOTIFY                ; 16 бит
mov  si, s_QUEUE_NOTIFY       ; указываем на текст
mov  byte[colo], cyan         ; цвет
call txt
add  di, 2                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
 
mov  bx, QUEUE_NOTIFY         ; 10h
mov  byte[colo], gray
call ooFeat16
mov  word[curs],(160*9)+2
 
; DEVICE_STATUS               ; 8 бит
mov  si, s_DEVICE_STATUS      ; указываем на текст
mov  byte[colo], cyan         ; цвет
call txt
add  di, 2                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
 
mov  bx, DEVICE_STATUS        ; 12h
mov  byte[colo], gray
call ooFeat08
mov  word[curs],(160*10)+2
 
; ISR_STATUS                  ; 8 бит
mov  si, s_ISR_STATUS         ; указываем на текст
mov  byte[colo], cyan         ; цвет
call txt
add  di, 2                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
 
mov  bx, ISR_STATUS           ; 13h
mov  byte[colo], gray
call ooFeat08
mov  word[curs],(160*12)+2
 
; NET_MAC                     ; 48 бит (6 байт)
mov  si, s_NET_MAC            ; указываем на текст
mov  byte[colo], cyan         ; цвет
call txt
add  di, 2                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
 
mov  bx,14h                   ; 14h
mov  si,6
ooMAC:
call ooMac08                  ; Mac i/6 байт
add  di, 6                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
inc  bx
dec  si
jnz  ooMAC
mov  word[curs],(160*13)+2
 
; NET_STATUS                  ; 16 бит (2 байта)
mov  si, s_NET_STATUS         ; указываем на текст
mov  byte[colo], cyan         ; цвет
call txt
add  di, 2                    ; пробел
mov  word[curs],di            ; запомнить позицию курсора
 
mov  bx, NET_STATUS           ; 1Ah
mov  byte[colo], gray
call ooFeat16
mov  word[curs],(160*14)+2

; Сообщаем о наличии драйвера NIC
mov  dx,[BAR0]   ; номер порта в DX = С060h
add  dx,12h      ; сместиться в порту к "регистру статуса" = C072h
mov  al,0        ; Device_reset=0
out  dx,al       ; Reset!
inc  al          ; Acknowledge=1
out  dx,al       
mov  al,3       ; Driver=2 ( ACKNOWLEDGE + DRIVER )
out  dx,al       ; 
 
; ----------------------------------------------- Queue(0) In
mov dx, [BAR0]       ; DX = С060h
add dx, 0Eh          ; PORT+0Eh=C06Eh, QUEUE_SELECT: 2 Б
xor ax, ax           ; AX=0, очистить 2 Б
out dx, ax           ; выбрать Очередь(0) In
 
mov dx, [BAR0]       ; DX = C060h
add dx, 08h          ; PORT+08h= C068h, QUEUE_ADDRESS: 4 Б
mov eax,0x00100000   ; адрес очереди 4 Б
out dx, eax          ; установить адрес очереди In
 
; ----------------------------------------------- Queue(1) Out
mov dx, [BAR0]       ; DX = С060h
add dx, 0Eh          ; PORT+0Eh=C06Eh, QUEUE_SELECT: 2 Б
mov ax, 0x1          ; AX=1
out dx, ax           ; выбрать Очередь(1) Out
 
mov dx, [BAR0]       ; DX = C060h
add dx, 08h          ; PORT+08h= C068h, QUEUE_ADDRESS: 4 Б
mov eax,0x00120000   ; адрес очереди 4 Б
out dx, eax          ; установить адрес очереди Out