Использование прерывания int 13h функции ah=48h

macro MShowHexByte SString,SColumn,BData{
        mov     [ScreenString],SString
        mov     [ScreenColumn],SColumn
        mov     AL,BData
        call    ShowHexByte
}
macro MShowHexWord SString,SColumn,WData{
        mov     [ScreenString],SString
        mov     [ScreenColumn],SColumn
        mov     AX,WData
        call    ShowHexWord
}
macro MShowHexDWord SString,SColumn,DData{
        mov     [ScreenString],SString
        mov     [ScreenColumn],SColumn
        mov     EAX,DData
        call    ShowHexDWord
}
use16
org 7C00h
 
cli
xor ax, ax
mov ss, ax
mov es, ax
mov ds, ax
mov sp, $$
sti
 
push    dx
 
mov ax,0003h
int 10h
 
mov ax, 0002h
int 10h
 
                mov             ah, 02; read
                mov             bx, 600h
                pop             dx
                push    dx
                mov             dh,0
                mov             al, (@end_prog-@start_program)/512+ 1 ;chislo sectorov
                mov             cl, 2
                mov             ch, 0
                int     13h
                jc              discReadError
 
            jmp         600h
discReadError:
                xor             bx, bx
                mov             ah, 13h
                xor             al, al
                mov             cx, 13
                mov             bl, 100b
                xor             dx, dx
                mov             dh, 1
                mov             bp, discReadErrorMsg
                int             10h
                hlt
discReadErrorMsg db "Disk read error"
times(512-2-($-07C00h)) db 0
db 055h,0AAh
 
org 600h
@start_program:
include 'include/macro/proc16.inc'
 
;obnulau registrii
xor ax,ax
xor bx,bx
xor dx,dx
 
;;;;proverka podderzhivaet li bios rasshirenie diskovie funkcii 42h-48h
mov ah,41h
mov bx,55AAh
mov dl,80h
int 13h
;proverka flaga cf eslj ustanovlen = oshibka
jnc @f
jmp Error
@@:
 
 
;obnulau registrii
xor ax,ax
xor dx,dx
xor si,si
 
;vvod informacii o diske
mov ah,48h
mov dl,80h
lea si,[Buffer]
int 13h
 
;proverka flaga cf eslj ustanovlen = oshibka
jnc @f
jmp Error2
@@:
;; test dlya dword
mov dword[testdd],0xfffecc11
 
;vivod na ecran
xor ax,ax
MShowHexWord 1,0,word[Buffer.wSizeOfBuffer]
xor ax,ax
MShowHexWord 2,0,word[Buffer.wInformFlags]
xor ax,ax
MShowHexDWord 3,0,dword[Buffer.dNCylinders]
xor ax,ax
MShowHexDWord 4,0,dword[Buffer.dNHeaders]
xor ax,ax
MShowHexDWord 5,0,dword[Buffer.dNSectPerTrack]
xor ax,ax
MShowHexDWord 6,0,dword[testdd]
;;;;;;;;;;;;;;;vechii cikl;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
jmp Exit
 
 
 
Error:
                xor             bx, bx
                mov             ah, 13h
                xor             al, al
                mov             cx, 13
                mov             bl, 100b
                xor             dx, dx
                mov             dh, 1
                mov             bp, asError
                int             10h
jmp Exit
Error2:
                xor             bx, bx
                mov             ah, 13h
                xor             al, al
                mov             cx, 13
                mov             bl, 100b
                xor             dx, dx
                mov             dh, 1
                mov             bp, asError2
                int             10h
Exit:
kernel_loop:
hlt
jmp kernel_loop
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;dannie
 
struc   DiskInfo
{
.wSizeOfBuffer          dw      42h
.wInformFlags           dw      ?
.dNCylinders            dd      ?
.dNHeaders              dd      ?
.dNSectPerTrack         dd      ?
.qTotalSectors          dq      ?
.wBytesPerSector        dw      ?
.dPtrEddParams          dd      ?
.bLengthDevPathInfo     db      ?
.aReserved1             db      3 dup(?)
.aszNameOfHostBus       db      4 dup(?)
.aszNameOfInterface     db      8 dup(?)
.aInterfacePath         db      8 dup(?)
.aDevicePath            db      8 dup(?)
.bChecsSum              db      ?
}
 
Buffer          DiskInfo
 
asError db "Error"
asError2 db "Error2"
ScreenString DW 00h
MainDataSeg DW 00h
ScreenColumn DW 00h
TextColorAndBackground DB 0Fh
testdd dd 00h;
;hdd_info dw 42h dup(?)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;procedures;;;;;;;;;;;;;;;
 
proc ShowHexDWord
        rol     EAX,8
        call    ShowHexByte
        rol     EAX,8
        call    ShowHexByte
        rol     EAX,8
        call    ShowHexByte
        rol     EAX,8
        call    ShowHexByte
        ret
endp
proc ShowHexByte
pusha
push    DS
push    ES
mov     DI,[CS:MainDataSeg]
mov     DS,DI
cld
push    AX
mov     AX,0B800h
mov     ES,AX
mov     AX,[ScreenString]
mov     DX,160
mul     DX
add     AX,[ScreenColumn]
add     AX,[ScreenColumn]
mov     DI,AX
pop     AX
mov     AH,[TextColorAndBackground]
push    AX
shr     AL,4
add     AL,'0'
cmp     AL,'9'
jbe     @@M0
add     AL,'A'-'9'- 1
@@M0:
stosw
pop     AX
and     AL,0FH
add     AL,'0'
cmp     AL,'9'
jbe     @@M1
add     AL,'A'-'9'- 1
@@M1:
stosw
add [ScreenColumn],2
cmp     [ScreenColumn],80
jb      @@End
sub     [ScreenColumn],80
inc     [ScreenString]
@@End:
pop     ES
pop     DS
popa
ret
endp
proc ShowHexWord
xchg    AL,AH
call    ShowHexByte
xchg    AL,AH
call    ShowHexByte
ret
endp
@end_prog: