DOSSEG
.MODEL    SMALL

.STACK

.DATA

     EXTRN     SECTOR:BYTE

.CODE

     EXTRN     DISP_HALF_SECTOR: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 DISP_HALF_SECTOR ;Vuelca la primera mitad
     MOV  AH,4Ch
     INT  21h              ;Vuelve al DOS
READ_SECTOR    ENDP

     END  READ_SECTOR