home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / seldsk.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  266 b   |  23 lines
  1. title    seldsk.mac version 1.0
  2.  
  3. ;    this routine will set the current default drive
  4. ;    drive number is passed as an integer
  5.  
  6. ;    0=A:
  7. ;    1=B:  etc.
  8.  
  9. seldisk    equ    14
  10. bdos    equ    5
  11.     public    seldsk
  12. ;
  13. ;    hl points to parameter
  14. ;
  15. seldsk:
  16.     mov    e,m
  17.     mvi    c,seldisk
  18.     call    bdos
  19.     ret
  20.  
  21.     end
  22.  
  23.