home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / z33rcp02.lbr / RCPR.LZB / RCPR.LIB
Encoding:
Text File  |  1993-10-25  |  896 b   |  33 lines
  1.     page
  2.  
  3. ; RCP-R.Z80    'R' command
  4.  
  5. ;=============================================================================
  6. ;
  7. ;    D I S K    R E S E T    C O M M A N D
  8. ;
  9. ;=============================================================================
  10.  
  11. ; Command:    RESET
  12. ; Function:    Reset the disk system
  13. ; Comments:    ZRDOS does not require a disk system reset when disks are
  14. ;        changed, but directory programs will not show the correct
  15. ;        size if this is not done.  It is also good practice.  Since
  16. ;        no warm boot performed, the disk in drive A need not have the
  17. ;        operating system on it.
  18.  
  19. reset:
  20.     ld    c,13        ; Disk reset BDOS function
  21.  
  22.      if    resmsg        ; If displaying a reset message
  23.     call    bdos        ; Reset disk system
  24.     call    print        ; Report action
  25.     db    'rese','t'+80h
  26.     ret
  27.      else            ; No reset message
  28.     jp    bdos        ; Call bdos and return
  29.      endif    ;resmsg
  30.  
  31. ; End RCP-R.Z80
  32.  
  33.