home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Assembly / DISK_I16.ASM < prev    next >
Assembly Source File  |  1986-09-24  |  868b  |  32 lines
  1. CGROUP    GROUP    CODE_SEG, DATA_SEG
  2.     ASSUME    CS:CGROUP, DS:CGROUP
  3.  
  4.  
  5. CODE_SEG    SEGMENT PUBLIC
  6.     ORG    100h
  7.  
  8.     EXTRN    INIT_SEC_DISP:NEAR
  9. ;-----------------------------------------------------------------------;
  10. ; This procedure reads the first sector on disk A and dumps the first    ;
  11. ; half of this sector.                            ;
  12. ;-----------------------------------------------------------------------;
  13. READ_SECTOR    PROC    NEAR
  14.     MOV    AL,0            ;Disk drive A (number 0)
  15.     MOV    CX,1            ;Read only 1 sector
  16.     MOV    DX,0            ;Read sector number 0
  17.     LEA    BX,SECTOR        ;Where to store this sector
  18.     INT    25h            ;Read the sector
  19.     POPF                ;Discard flags put on stack by DOS
  20.     XOR    DX,DX            ;Set offset to 0 within SECTOR
  21.     CALL    INIT_SEC_DISP        ;Dump the first half
  22.     INT    20h            ;Return to DOS
  23. READ_SECTOR    ENDP
  24.  
  25. CODE_SEG    ENDS
  26.  
  27. DATA_SEG    SEGMENT PUBLIC
  28.     EXTRN    SECTOR:BYTE
  29. DATA_SEG    ENDS
  30.  
  31.     END    READ_SECTOR
  32.