home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG084.ARK / XMODEM51.FIX < prev   
Text File  |  1984-04-29  |  794b  |  29 lines
  1. * * * * * * * * * * * * * * * * * * * * *
  2. *                    *
  3. *    RCVFIL: RECEIVE A FILE        *
  4. *                    *
  5. * * * * * * * * * * * * * * * * * * * * *
  6. ;
  7. ;Receives a file in block format as sent
  8. ;by another person doing "MODEM S FN.FT".
  9. ;Can be invoked by 'XMODEM R FN.FT' or
  10. ;by 'XMODEM RC FN.FT' if CRC is to be used.
  11. ;
  12. RCVFIL    CALL    TRAP    ;CHECK FOR NO NAME OR AMBIG. NAME
  13. ;
  14. ; The following IF/ENDIF block is to be inserted after
  15. ;the CALL to TRAP in RCVFIL.
  16. ; PURPOSE:
  17. ;In XMODEM51, provisions were made to allow saving a file to
  18. ;a specific disk and user area, but there was no code included
  19. ;for resetting the drive number to the one specified in label
  20. ;DEFDRV. This additional code eliminates that problem.
  21. ;(by SFK 7/13/82)
  22. ;
  23.     IF    SETAREA
  24.     MVI    A,DEFDRV-40H
  25.     STA    FCB
  26.     ENDIF
  27. ;
  28.     IF    NOCOMR
  29.