PROGRAM transfer(input, output);
(*********************************************************)
(* A program to transfer files between CP/M and MS-DOS   *)
(* with a CP/M host system                               *)
(*                                                       *)
(* Written by David Koski     1985                       *)
(*            P.O. Box 1078                              *)
(*            Fort Bragg, CA  95437-1078                 *)
(*            707/964-0806                               *)
(*                                                       *)
(* This program is intended for private non-commercial   *)
(* use and is considered to be public domain material    *)
(*********************************************************)

(* 1.2 86/10/15 C.B.F. Error in parameters for SS9SPT disks, Also *)
(*     corrected allocated/free display for single sided.         *)
(* 1.1 86/10/14 C.B. Falconer.  Corrected write functions to pass *)
(*     the 'immediate' flag, for proper buffer flushing.  Deleted *)
(*     all referances to sectran (bioshl cannot pass de reg). Now *)
(*     pauses for long directory displays, formatted allocation.  *)
(*     Appears to work correctly with DSKDRV16 on Kaypro 4 now.   *)
(*     MSDOS-->CPM files fully padded with 1a's.  Reformatted.    *)
(*     Some constructs changed into ISO std, for portability. Not *)
(*     complete, so that porting to other systems is a bear.      *)
(*     Changes to defaults (e.g. blank filename does not copy all *)
(*     files), diskerrors, system checks for DSKDRIVE RSX active. *)
(*     Mini directories for transfers, erase.  FAT restore safer. *)

(* Compilation notes - C.B. Falconer.  See above on sectran. Also *)
(* compile this with the <E>nd address option set to 8000, for    *)
(* somewhat portable object code.  Turbo assigns data space at    *)
(* maximum available memory area by default, and result will do   *)
(* disastrous things when run on a system with less TPA space.    *)

{$I TRANS-00.INC}
{$I TRANS-01.INC}
{$I TRANS-02.INC}
{$I TRANS-03.INC}
{$I TRANS-04.INC}
{$I TRANS-05.INC}
{$I TRANS-06.INC}