seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-27 02:14:19 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

104
CPM OPERATING SYSTEMS/CPM 8000 (CPM8K)/P-CP M-Z8K SOURCES/olivetti/cpmcopy.c Normal file
View File

@@ -0,0 +1,104 @@
/*=======================================================================*/
/*+---------------------------------------------------------------------+*/
/*| |*/
/*| Boot Tracks copy program for the OLIVETTI M20 (Z8000) |*/
/*| |*/
/*| Copyright 1983, Zilog Incorporated. |*/
/*| |*/
/*+---------------------------------------------------------------------+*/
/*=======================================================================*/
char copyright[] = "Copyright 1983, Zilog Incorporated";
/* HISTORY
**
** 830223 F. Zlotnick (Zilog) -- with assembler routines stolen
** from S. Savitzky's BIOS.
**
*/
/************************************************************************/
#define SECSIZ 256
#define NSECS 16
#define TRKSIZE NSECS*SECSIZ
#define NTRACKS 5
#define READ 0 /* Controller command */
#define WRITE 1 /* Controller command */
long map_adr(); /* for physical addresses */
int bigbuff[NSECS*SECSIZ*5]; /* Will hold 5 tracks, 2 sides each */
int drive1, /* Source drive name */
drive2, /* Target drive name */
err; /* error return from disk_io routine */
main(argc,argv)
int argc;
char *argv[];
{
register int i,j;
if(argc != 3) usage();
if( strcmp( argv[1], "a:") == 0 ) {
drive1 = 0;
if( strcmp( argv[2], "b:") != 0) usage();
else drive2 = 1;
}
else if( strcmp( argv[1], "b:") == 0 ) {
drive1 = 1;
if( strcmp( argv[2], "a:") != 0) usage();
else drive2 = 0;
}
else usage();
if( j = dotrks()) { /* Do the actual copy of the boot tracks */
printf( "Error %d on track %d\n", err, j);
exit(1);
}
}
dotrks()
{
register int track, secnum;
long physaddr, offset;
physaddr = map_adr((long) bigbuff, 0);
offset = 0L;
for ( track = 0; track < NTRACKS; track++) {
secnum = track * 32;
if(err = disk_io(drive1,READ,NSECS,secnum,physaddr + offset))
return(track);
secnum += NSECS;
offset += TRKSIZE;
if(err = disk_io(drive1,READ,NSECS,secnum,physaddr + offset))
return(track);
offset += TRKSIZE;
}
offset = 0L;
for ( track = 0; track < NTRACKS; track++) {
secnum = track * 32;
if(err = disk_io(drive2,WRITE,NSECS,secnum,physaddr + offset))
return(track);
secnum += NSECS;
offset += TRKSIZE;
if(err = disk_io(drive2,WRITE,NSECS,secnum,physaddr + offset))
return(track);
offset += TRKSIZE;
}
return(0);
}
/*
* Usage routine tells user he's invoked command incorrectly
*/
usage()
{
printf("usage:\n\tcpmcopy source dest\n");
printf("where source is 'a:' and dest is 'b:' or vice versa.\n");
exit(1);
}