home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 223_02 / cpmdisk.mac < prev    next >
Text File  |  1989-02-23  |  512b  |  32 lines
  1. ;
  2. ;    cpmdisk(disk)
  3. ;
  4. ;    F. A. Scacchitti 8/4/84
  5. ;
  6. CBDOS    EQU    5    ;/* bdos entry point */
  7. LF    EQU    10
  8. EOL    EQU    13
  9. ;
  10. ; CP/M BDOS CALLS 
  11. ;
  12. SELECT    EQU    14    ;log-in    a drive
  13. ;
  14. ;
  15. CPMDISK::
  16.     POP    D
  17.     POP    H
  18.     PUSH    H
  19.     PUSH    D
  20.     MOV    A,L            ; if(d~=0)
  21.     ORA    H
  22.     JZ    DISKIF1
  23.     XCHG                ;    cpm(SELECT,d-1);
  24.     DCX    D
  25.     MVI    C,SELECT
  26.     CALL    CBDOS        ; (mod fas)
  27. DISKIF1:
  28.     RET
  29.  
  30.     END
  31.  
  32.