mov     dx,1f6h         &#59;Drive and head port
 mov     al,0a0h         &#59;Drive 0, head 0
 out     dx,al
 
 mov     dx,1f2h         &#59;Sector count port
 mov     al,1            &#59;Write one sector
 out     dx,al
 
 mov     dx,1f3h         &#59;Sector number port
 mov     al,1            &#59;Wrote to sector two
 out     dx,al
 
 mov     dx,1f4h         &#59;Cylinder low port
 mov     al,0            &#59;Cylinder 0
 out     dx,al
 
 mov     dx,1f5h         &#59;Cylinder high port
 mov     al,0            &#59;The rest of the cylinder 0
 out     dx,al
 
 mov     dx,1f7h         &#59;Command port
 mov     al,30h          &#59;Write with retry.
 out     dx,al
oogle:
 in      al,dx
 test    al,8            &#59;Wait for sector buffer ready.
 jz      oogle
 xor     ecx,ecx
 mov     cx,512/2        &#59;One sector /2
 mov     esi,offset buffer2
 mov     dx,1f0h         &#59;Data port - data comes in and out of here.
        cli
        cld
        rep outsw        &#59;Send it.
        sti
        iretd
Ring0Code ENDP

ShowBuffer proc   
 invoke  MessageBoxA,NULL,offset ShowText,offset Caption,MB_OK
 ret
ShowBuffer endp

ExceptCallBack PROC
 invoke    MessageBoxA, 0, addr szExceptionCaused,addr szError, 0
 invoke ExitProcess, -1
 ret
ExceptCallBack ENDP
 
ToRing0Code proc Ring0:DWORD