DOSSEG
.MODEL    SMALL

.STACK

.DATA

     EXTRN     SECTOR:BYTE

.CODE

     EXTRN     INIT_SEC_DISP:PROC
;-----------------------------------------------------------------------;
; Este procedimiento lee el primer sector del disco A y vuelca la pri - ;
; mera mitad del mismo.                                                 ;
;-----------------------------------------------------------------------;
READ_SECTOR    PROC
     MOV  AX,DGROUP      ;Pone el segmento de datos en AX
     MOV  DS,AX          ;Pone DS para que apunte a los datos
     MOV  AL,0           ;Unidad de disco A (n£mero 0)
     MOV  CX,1           ;Lee un solo sector
     MOV  DX,0           ;Lee el sector n£mero 0
     LEA  BX,SECTOR      ;Lugar donde almacena el sector
     INT  25h            ;Lee el sector
     POPF
     XOR  DX,DX          ;Pone el despl. a 0 dentro del sector
     CALL INIT_SEC_DISP  ;Vuelca la primera mitad
     MOV  AH,4Ch
     INT  21h            ;Vuelve al DOS
READ_SECTOR    ENDP

     END  READ_SECTOR