home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / DRVLOCK.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  384 b   |  14 lines
  1.     extrn    .dos
  2. ;
  3. curdsk    equ    25
  4. ;
  5. ; If fcb de^ uses default drive, lock it to current drive.
  6. ; This allows drive switches after file is opened.
  7. ; a,f
  8. .drvlock::
  9.     ldax d    ! ora a ! rnz;    not on default drive
  10.     mvi    a,curdsk
  11.     call    .dos
  12.     inr a    ! stax d;    else lock to current drive
  13.     ret
  14. èù