Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/15/COPY.C

@@ -0,0 +1,684 @@
+/*----------------------------------------------------------------------*\
+ |									|
+ |			     DISK COPY PROGRAM				|
+ |			     =================				|
+ |									|
+ |	Created:	November 4,1982					|
+ |	-------								|
+ |									|
+ |	Last Modified:	January 15,1982					|
+ |	-------------							|
+ |									|
+ |	Description:							|
+ |	-----------	This program will copy all or portions of	|
+ |		        one disk to another compatible disk.		|
+ |									|
+ |	Needed Files:							|
+ |	------------	<STDIO.H>,<PORTAB.H>				|
+ |									|
+ |	Must be linked to the 'C' runtime library.			|
+ |	------------------------------------------			|
+ |									|
+ |	(c)	COPYRIGHT DIGITAL RESEARCH 1983				|
+ |		ALL RIGHTS RESERVED					|
+ |									|
+\*----------------------------------------------------------------------*/
+
+char *copyrt="CP/M-68K(tm), Version 1.2, Copyright 1984, Digital Research";
+char *serial="XXXX-0000-654321";
+
+/************************************************************************\
+ *	               Here are the Include Files			*
+\************************************************************************/
+					/********************************/
+#include	<stdio.h>		/* Standard I/O library		*/
+					/********************************/
+/************************************************************************\
+ *			   DEFINES for Copy.c				*
+\************************************************************************/
+					/********************************/
+#define		ON	1		/* Option is valid for this copy*/
+#define		OFF	0		/* Option is not valid		*/
+#define		BAD	0		/* Illegal mode flag		*/
+#define		MATCH	0		/* used by strcmp		*/
+#define		SDRIVE  1		/* source drive			*/
+#define		DDRIVE  2		/* destination drive		*/
+#define		_ALL	0		/* copy whole disk		*/
+#define		_BOOT	1		/* copy boot tracks		*/
+#define		_FILES  2		/* copy non-boot tracks		*/
+#define		_END	3		/* end this program		*/
+#define		RDERR	0		/* read error flag		*/
+#define		WRERR	1		/* write error flag		*/
+#define		NULLB	'\0'		/* NULL byte			*/
+#define		isupper(c)	('A' <= (c) && (c) <= 'Z')/*upper case  */
+#define		islower(c)	('a' <= (c) && (c) <= 'z')/*lower case	*/
+#define		tolower(c)	(isupper(c) ? ((c)+040):(c))/*		*/
+#define		toupper(c)	(islower(c) ? ((c)-040):(c))/*		*/
+					/********************************/
+/************************************************************************\
+ *		           GLOBAL definitions				*
+\************************************************************************/
+					/********************************/
+GLOBAL BYTE *choice[] =			/* Copy Modes available		*/
+{"all","boot","files","end"};		/* ----------------------	*/
+					/********************************/
+GLOBAL BYTE mode;			/* Hold the current copy mode	*/
+					/********************************/
+					/*   ------- OPTIONS ------- 	*/
+GLOBAL BYTE verbose = ON;		/* Prompt the user if ON	*/
+GLOBAL BYTE verify  = OFF;		/* Check newly written track 	*/
+					/* againist source track.	*/
+					/********************************/
+					/* Prompts...........		*/
+GLOBAL BYTE *msg1 = "Enter SOURCE drive: ";		/* SDRIVE	*/
+GLOBAL BYTE *msg2 = "Enter DESTINATION drive: ";	/* DDRIVE	*/
+GLOBAL BYTE *msg3 = "READ error ---->    ";		/* Read error	*/
+GLOBAL BYTE *msg4 = "WRITE error ---->    ";		/* Write error	*/
+					/********************************/
+					/********************************/
+GLOBAL BYTE *bracket = "[";		/* Marks beginning of option 	*/
+					/* indicators on the cmd line	*/
+					/********************************/
+GLOBAL struct _dpb			/* Define disk parm block	*/
+{					/*------------------------------*/
+	WORD	spt;			/* Logical sectors per track	*/
+	BYTE	bsh;			/* Allocation block shift factor*/
+	BYTE	blm;			/* Block mask			*/
+	BYTE	exm;			/* Extent mask			*/
+	BYTE	dpbjunk;		/* Alignment byte		*/
+	WORD	dsm;			/* Total storage of the disk	*/
+	WORD	drm;			/* Total directory entries	*/
+	BYTE	al0;			/* Flag reserved for dir blocks	*/
+	BYTE	al1;			/* Flag reserved for dir blocks */
+	WORD	cks;			/* Directory check vector size	*/
+	WORD	off;			/* The number of reserved tracks*/
+};					/*				*/
+					/********************************/
+GLOBAL struct _dph			/* Define disk parm header	*/
+{					/*------------------------------*/ 
+	BYTE	*xltp;			/* Pointer to sector trans table*/
+	WORD	dphscr[3];		/* Scratchpad values for BDOS	*/
+	BYTE	*dirbufp;		/* Pointer to dir scratchpad	*/
+	struct	_dpb	*dpbp;		/* Pointer to disk parm block	*/
+	BYTE	*csvp;			/* Pointer to scratchpad area	*/
+	BYTE	*alvp;			/* Pointer to scratchpad area	*/
+};					/********************************/
+EXTERN LONG __BDOS();			/* BDOS Caller in CLIB		*/
+#define bdos(a,b) (struct _dph*)__BDOS(a,b) /* Declare a bogus function */
+					/********************************/
+GLOBAL struct _biospb			/* Bios Pararmeter Block	*/
+{					/*------------------------------*/
+	UWORD	funcnum;		/* Bios function number		*/
+	LONG	parm1;			/* Bios parameter 1		*/
+	LONG	parm2;			/* Bios parameter 2		*/
+};					/*				*/
+GLOBAL struct _biospb biospb;		/* Define it			*/
+					/********************************/
+GLOBAL BYTE trkbuf[128*26*6];		/* buffer big enough to hold 6	*/
+					/* tracks of bytes		*/
+GLOBAL BYTE verbuf[128*26*6];		/* buffer for verification opt	*/
+					/********************************/
+/************************************************************************\
+ *			 FUNCTION definitions				*
+\************************************************************************/
+					/********************************/
+UWORD illegal();			/* Decides if the mode is a	*/
+					/* legal one.			*/
+					/*------------------------------*/
+VOID get_mode();			/* If the mode was not there  	*/
+					/* or an illegal one,get_mode 	*/
+					/* will print a menu and keep	*/
+					/* prompting the user for a 	*/
+					/* legal mode.			*/
+					/*------------------------------*/
+BYTE get_drive();			/* Reads in a drive character	*/
+					/* from the console.  If the	*/
+					/* drive is in the range(A-P),	*/
+					/* the drive is returned.  If 	*/
+					/* not,the value BAD is returned*/
+					/*------------------------------*/
+VOID wait_for();			/* Holds the copy program in a  */
+					/* wait state so the user can   */
+					/* make sure his or her disk is */
+					/* in the proper drive.		*/
+					/*------------------------------*/
+BYTE scan();				/* Picks off the source and 	*/
+					/* destination drives from the	*/
+					/* command line.  If they do	*/
+					/* not exist,or the specified	*/
+					/* drives are illegal,scan 	*/
+					/* prompts the user.		*/
+					/*------------------------------*/
+VOID get_options();			/* Scans the command line until */
+					/* a '[' is found.  A list of	*/
+					/* of options is checked. Flags	*/
+					/* are turned on by the option	*/
+					/* indicators found after the	*/
+					/* square bracket.		*/
+					/*------------------------------*/
+VOID copy();				/* If the two disk parameter	*/
+					/* blocks are identical,a track */
+					/* for track copy is made.  	*/
+					/* If an serious error occurs,	*/
+					/* the copy is aborted and the	*/
+					/* program ends.		*/
+					/********************************/
+VOID read_wr();				/* This routine does the actual */
+					/* reading and writing of the	*/
+					/* compatible disks.		*/
+					/********************************/
+/************************************************************************/
+
+/************************************************************************\
+ *									*
+ *			   BEGIN MAIN PROGRAM				*
+ *									*
+\************************************************************************/
+
+
+
+
+
+main(argc,argv)
+WORD	argc;
+BYTE	*argv[];
+{
+	BYTE answer,source,dest,optfound;
+
+	optfound = FALSE;
+	printf("Copy Ver 1.2\n");	/* Copy version message		*/
+	/*------------------------------*\
+         |  If there is an mode on	|
+	 |  on the command line or the  |
+         |  command line mode is not  	|
+         |  recognized,print a menu	|
+	 |  and have the user input a	|
+	 |  a legal copy mode.		|
+	\*------------------------------*/	
+	argc--; argv++;			/* point to first arg after cmd	*/
+	if(illegal(*argv))
+		get_mode();
+	else				/* point to 2nd arg past cmd	*/
+	{
+		argv++;
+		argc--;
+	}
+	if(mode == _END)		
+		cpyexit();
+	/*------------------------------*\
+	 |   Look for the '[' as the	|
+	 |   start of the options.	|
+	 |   This allows the following  |
+	 |				|
+	 |   copy <mode> [options	|
+	 |   ====================	|
+	 |   or				|
+	 |   copy [options		|
+	 |   =============		|
+	 |				|
+	 |   I will not allow the drives|
+	 |   to be specified after the  |
+	 |   options though!!!!!	|
+	\*------------------------------*/	
+	if(strncmp(bracket,*argv,1) == MATCH)
+	{
+		argc = 0;
+		get_options(*argv++);
+		source = scan(argc,*argv++,SDRIVE);
+		dest = scan(argc,*argv,DDRIVE);
+	}	
+	else
+	/*------------------------------*\
+	 |  Otherwise I assume that the |
+	 |  command line looks like 	|
+	 |  this:			|
+	 |				|
+	 |  copy <mode> <sd> <dd> [opt  |
+	 |  ==========================	|
+	\*------------------------------*/
+	{
+		source = scan(argc--,*argv++,SDRIVE);
+		dest = scan(argc--,*argv,DDRIVE);
+		if(strncmp(bracket,*argv,1) == MATCH)
+		{
+			optfound = TRUE;
+			get_options(*argv);
+		}
+		while(argc-- > 0)
+			/* scan cmd line to find a '['	*/
+			if(strncmp(bracket,*++argv,1) == MATCH &&
+			(!optfound))
+			{
+				get_options(*argv);
+				break;
+			}
+			else
+			printf("\nExtraneous argument ignored: %s",*argv);
+	}
+	if(source == dest)
+	{
+		printf("\nSource and Destination must be different");
+		cpyexit();
+	}
+	/*------------------------------*\
+	 |    REPEAT the copy as many	|
+	 |    times as the user wishes  |
+	\*------------------------------*/
+	while(TRUE)
+	{
+		if(verbose)
+			wait_for(source,dest);
+		copy((toupper(source) - 'A'),(toupper(dest) - 'A'));
+		printf("\nCopy complete");
+		if(verbose)
+		printf("\nDo you wish to repeat the copy? ");
+		else
+			break;
+		answer = __BDOS(1,(long)0);
+		if(toupper(answer) != 'Y')
+			break;
+	}
+}		
+
+						/************************/
+UWORD illegal(_mode)				/*  Check command line  */
+						/*  aganist mode table  */
+						/*  Return mode code if */
+						/*  found,return false  */
+						/*  if the mode is not  */
+						/*  found in the table  */
+						/************************/ 
+BYTE *_mode;
+{
+	REG UWORD i;
+
+	for(i = 0;i <= 3;i++)
+		if(strcmp(_mode,choice[i]) == MATCH)
+		{
+			mode = i;
+			return(FALSE);
+		}
+	mode = -1;
+	return(TRUE);
+}
+ 						/************************/
+VOID get_mode()					/*  Prompt the user for */
+						/*  a legal mode.  Keep */
+						/*  prompting until you */
+						/*  get one.		*/
+						/************************/
+{
+	REG UWORD i;
+	BYTE buf[256];
+
+	printf("\nMODE\tFUNCTION\n");
+	printf("\nALL\tCopy the whole disk");
+	printf("\nBOOT\tCopy the boot tracks");
+	printf("\nFILES\tCopy the non-boot tracks");
+	printf("\nEND\tEnd this program\n");
+	do
+	{
+		printf("\nEnter your copy mode: ");
+		gets(buf);
+		for(i = 0;buf[i] != NULLB;i++)
+			buf[i] = tolower(buf[i]);
+	}
+	while(illegal(buf));
+}
+
+						/************************/
+BYTE get_drive()				/*  Read in a drive.	*/
+						/************************/ 
+{
+	BYTE drive[10];
+	
+	gets(drive);
+	if(strlen(drive) > 1)
+		return(BAD);
+	drive[0] = toupper(drive[0]);
+	if(drive[0] < 'A' || drive[0] > 'P')
+		return(BAD);
+	else
+		return(drive[0]);
+}
+						/************************/
+VOID wait_for(source,dest)			/*  Wait for the user   */
+						/*  to put the disks    */
+						/*  in the proper drives*/
+						/************************/
+BYTE source;
+BYTE dest;
+{
+	BYTE wait_buf[5];
+	BYTE *upchoice[3];
+
+	upchoice[0] = "ALL";
+	upchoice[1] = "BOOT";
+	upchoice[2] = "FILES";
+	
+	wait_buf[0] = 3;
+	do
+	{
+		printf("\n(^C to ABORT)");
+		printf("\nRETURN to copy %s",upchoice[mode]);
+		printf(" from %c to %c",source,dest);
+		__BDOS(10,&wait_buf[0]);
+	}
+	while(wait_buf[1] != 0);
+}
+
+						/************************/
+BYTE scan(argc,argv,which_drive)		/*  Scan the command    */
+						/*  for the drives.     */
+						/*  If I can't find them*/
+						/*  or they are illegal */
+						/*  keep prompting the  */
+						/*  user for them.	*/
+						/************************/ 
+WORD argc;
+BYTE *argv;
+UWORD which_drive;
+{
+	BYTE *prompt,drive;
+
+	if(argc > 0 && strlen(argv) == 1)
+	{
+		sscanf(argv,"%c",&drive);
+		drive = toupper(drive);
+		if(drive >= 'A' && drive <= 'P')
+			return(drive);
+	}
+	switch(which_drive)
+	{
+		case SDRIVE :  	prompt = &msg1[0];
+				break;
+		case DDRIVE :	prompt = &msg2[0];
+	}
+	printf("\n");
+	do
+	{
+		printf("%s",prompt);
+	}
+	while((drive = get_drive()) == BAD);
+	
+	return(drive);
+}
+						/************************/
+VOID get_options(argv)				/*  Scan cmd line for   */
+						/*  supported options   */
+						/************************/
+BYTE *argv;
+{
+	argv++;		/* skip the square bracket */
+	while(*argv != NULLB)
+	{
+		switch(*argv)
+		{
+			case 'A' :
+			case 'a' :
+					verbose = OFF;
+					break;
+			case 'v' :
+			case 'V' :	verify = ON;
+					break;
+			case ']' :      return(0);
+			default  :	printf("\nUndefined option: %c",*argv);
+		}
+		argv++;
+	}
+	
+}
+						/************************/
+VOID copy(source,dest)				/*  Select the disks.	*/
+						/*  If I can't select or*/
+						/*  the disk have diff- */
+						/*  erent parameter blks*/
+						/*  then print error msg*/
+						/************************/
+BYTE source;
+BYTE dest;
+{
+	REG struct _dpb *dskpblk;
+	REG struct _dph *h1,*h2;
+	REG LONG *ptr1,*ptr2;
+	REG LONG endtrk,begtrk;
+	LONG numtrks,temp;
+	BYTE *sectran;
+	REG UWORD i;
+
+	
+	biospb.funcnum = 9;		/* Select the disks		*/
+	biospb.parm1 = (long)source;	/* first the source disk	*/
+	biospb.parm2 = (long)0;		/* set least sig bit to 0	*/
+
+	if((h1 = bdos(50,&biospb))!= NULL)
+	{
+		biospb.parm1 = (long)dest;
+		if((h2 = bdos(50,&biospb))!= NULL)
+		{	/*----------------------------------------------*/
+			/* check the parameter blocks(must be identical)*/
+			/*----------------------------------------------*/
+			dskpblk = (*h1).dpbp; /* pointer to dpb		*/
+			sectran = (*h1).xltp; /* pointer to sect tran tb*/
+			h1 = (*h1).dpbp;      /* h1 points to dpb	*/
+			ptr1 = (long)h1;      /* compare long words	*/
+			h2 = (*h2).dpbp;      /* h2 points to dpb	*/
+			ptr2 = (long)h2;      /* compare long words	*/
+			for(i = 0;i <= 3;i++)
+			{
+				if(*ptr1 != *ptr2)
+				{
+					printf("\nIncompatible disks");
+					cpyexit();
+				}
+				ptr1++;
+				ptr2++;
+			}
+		}
+		else
+		{
+			printf("\nDisk select error on Destination");
+			cpyexit();
+		}
+	}
+	else
+	{
+		printf("\nDisk select error on Source");
+		cpyexit();
+	}
+	/*------------------------------------------------------*\
+	 |							|
+	 |	    Compute beginning and ending track		|
+	 |							|
+	\*------------------------------------------------------*/
+
+	temp = (((*dskpblk).dsm + 1)*((*dskpblk).blm + 1));
+	numtrks = temp/(*dskpblk).spt;
+	if((numtrks*(*dskpblk).spt) < temp)
+		numtrks++;
+	numtrks += (*dskpblk).off;
+
+	switch(mode)
+	{
+		case _ALL :	begtrk = 0;
+				endtrk = numtrks - 1;
+				break;
+		case _BOOT:	begtrk = 0;
+				endtrk = (*dskpblk).off - 1;
+				break;
+		case _FILES:	begtrk = (*dskpblk).off;
+				endtrk = numtrks - 1;
+	}
+	read_wr(source,dest,begtrk,endtrk,sectran,dskpblk);
+ 
+}
+
+
+/************************************************************************/
+/*									*/
+/*		    Do the actual read write operations			*/
+/*		    ===================================			*/
+/*									*/
+/************************************************************************/
+	
+
+VOID read_wr(source,dest,begtrk,endtrk,sectran,dskpblk)
+					/********************************/
+BYTE source;				/* source disk			*/
+BYTE dest;				/* destination disk 		*/
+REG LONG begtrk;			/* beginning track to copy	*/
+REG LONG endtrk;			/* ending track	to copy		*/
+REG BYTE *sectran;			/* sector translate table	*/
+struct _dpb *dskpblk;			/* ptr to disk parameter block	*/
+					/********************************/
+{
+	REG BYTE *dma;
+	REG UWORD i,k;
+
+	printf("\n***Copying Tracks***\n");
+	for(i = begtrk;i <= endtrk;i++)
+	{
+		dma = &trkbuf;
+		biospb.funcnum = 12;	/* set the dma address		*/
+		biospb.parm1 = dma;	/* set it to beginning of trkbuf*/
+		biospb.parm2 = 0;
+		__BDOS(50,&biospb);	/* call the bios via the bdos	*/
+		biospb.funcnum = 9;	/* select the source diskette	*/
+		biospb.parm1 = (long)source;
+		biospb.parm2 = (long)0xFFFFFFFF;
+		__BDOS(50,&biospb);	/* call the bios via the bdos	*/
+		biospb.funcnum = 10;	/* set the track	*/
+		biospb.parm1 = (long)(i);
+		biospb.parm2 = 0;
+		__BDOS(50,&biospb);	/* call bios via bdos	*/
+		/*----------------------------------------------*\
+		 |        Read a track's worth of sectors	|
+		\*----------------------------------------------*/
+		for(k = 0;k < (*dskpblk).spt;k++)
+		{
+			biospb.funcnum = 16; /* translate sector*/
+			biospb.parm1 = (long)k; /* logical sect	*/
+			biospb.parm2 = sectran;
+			biospb.parm1 = __BDOS(50,&biospb);
+			biospb.funcnum = 11; /* set physical sec*/
+			biospb.parm2 = 0;
+			__BDOS(50,&biospb);  /* call the bios	*/
+			/*--------------------------------------*\
+			 |            READ a sector		|
+			\*--------------------------------------*/
+			biospb.funcnum = 13;
+			if(__BDOS(50,&biospb) != 0)
+				error(i,k,RDERR);
+			dma += 128;
+			biospb.funcnum = 12;
+			biospb.parm1 = dma;
+			__BDOS(50,&biospb);
+		}
+		dma = &trkbuf;
+		biospb.funcnum = 12;	/* reset the dma addr to trkbuf	*/
+		biospb.parm1 = dma;
+		biospb.parm2 = 0;
+		__BDOS(50,&biospb);	/* call the bios		*/
+		biospb.funcnum = 9;	/* select the destination disk	*/
+		biospb.parm1 = (long)dest;
+		biospb.parm2 = (long)0xFFFFFFFF;
+		__BDOS(50,&biospb);	/* call the bios		*/
+		/*----------------------------------------------*\
+		 |     Write out a Track's worth of Sectors	|
+		\*----------------------------------------------*/
+		for(k = 0;k < (*dskpblk).spt;k++)
+		{
+			biospb.funcnum = 16;
+			biospb.parm1 = (long)k;
+			biospb.parm2 = sectran;
+			biospb.parm1 = __BDOS(50,&biospb);
+			biospb.funcnum = 11;
+			biospb.parm2 = 0;
+			__BDOS(50,&biospb);
+			/*--------------------------------------*\
+			 |	     Write a Sector		|
+			\*--------------------------------------*/
+			biospb.funcnum = 14;
+			biospb.parm1 = (long)2;
+			if(__BDOS(50,&biospb) != 0)
+				error(i,k,WRERR);
+			dma += 128;
+			biospb.funcnum = 12;
+			biospb.parm1 = dma;
+			__BDOS(50,&biospb);
+		}
+		if(verify)
+		{
+			dma = &verbuf;
+			biospb.funcnum = 12;
+			biospb.parm1 = dma;
+			__BDOS(50,&biospb);	/* reset dma addr */
+			for(k = 0;k < (*dskpblk).spt;k++)
+			{
+				biospb.funcnum = 16;
+				biospb.parm1 = (long)k;
+				biospb.parm2 = sectran;
+				biospb.parm1 = __BDOS(50,&biospb);
+				biospb.funcnum = 11;
+				biospb.parm2 = 0;
+				__BDOS(50,&biospb);
+				/*------------------------------*\
+				 |    Read a sector  		|
+				\*------------------------------*/
+				biospb.funcnum = 13;
+				if(__BDOS(50,&biospb) != 0)
+					error(i,k,RDERR);
+				dma += 128;
+				biospb.funcnum = 12;
+				biospb.parm1 = dma;
+				__BDOS(50,&biospb);
+			}
+			/*--------------------------------------*\
+			 |	Verify the TRACK write		|
+			\*--------------------------------------*/
+			for(k = 0;k < (((*dskpblk).spt)*128);k++)
+				if(trkbuf[k] != verbuf[k])
+					error(i,(k/128),WRERR);
+		}
+		printf("\r         %d",i);
+	}
+}
+
+						/************************/
+error(track,sector,phase)			/*  Read/Write Error	*/
+						/*  handler		*/
+						/************************/
+UWORD track;
+UWORD sector;
+BYTE phase;
+{
+	REG BYTE *addr;
+
+	if(phase == RDERR)
+		addr = &msg3[0];
+	else
+		addr = &msg4[0];
+	printf("\n\n\n%s",addr);
+	printf("Track:  %d   Sector:  %d",track,sector);
+	cpyexit();
+}
+
+cpyexit()	/* bios select what the bdos thinks is the default disk */
+{
+	biospb.funcnum = 9;
+	biospb.parm1 = __BDOS(25,(long)0);
+	biospb.parm2 = 0;
+	bdos(50,&biospb);
+	exit(0);
+}
+
+
+
+ospb.funcnum = 9;
+	biospb.parm1 = __BDOS(25,(long)0);
+	biospb.parm2 = 0;
+	bdos(50,&biospb);
+	exit(0);
+}
+
+

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/15/EDS.SA

@@ -0,0 +1,411 @@
+/*SPLH*/ /*$TITLE='CP/M-86 2.0 --- ED'  */
+ED:
+DO;
+    /* MODIFIED FOR .PRL OPERATION MAY, 1979 */
+    /* MODIFIED FOR OPERATION WITH CP/M 2.0 AUGUST 1979 */
+    /* MODIFIED FOR MP/M 2.0 JUNE 1981 */
+    /* MODIFIED FOR CP/M 1.1 OCT  1981 */
+    /* MODIFIED FOR CP/M-68K JULY 1982 BY H.CHAKI */
+DECLARE
+    MPMPRODUCT LITERALLY '01H', /* REQUIRES MP/M */
+    CPM3       LITERALLY '30H'; /* REQUIRES 3.0 CP/M */
+ 
+ 
+ 
+/* DECLARE                            8080 INTERFACE
+    JMP EDCOMMAND - 3 (TO ADDRESS LXI SP) 
+    EDJMP BYTE DATA(0C3H),
+    EDADR ADDRESS DATA(.EDCOMMAND-3); */
+ 
+ 
+  /**************************************
+   *                                    *
+   *       B D O S   INTERFACE          *
+   *                                    *
+   **************************************/
+ 
+ 
+  MON1:
+    PROCEDURE (FUNC,INFO) EXTERNAL;
+      DECLARE FUNC BYTE;
+      DECLARE INFO ADDRESS;
+    END MON1;
+ 
+  MON2:
+    PROCEDURE (FUNC,INFO) BYTE EXTERNAL;
+      DECLARE FUNC BYTE;
+      DECLARE INFO ADDRESS;
+    END MON2;
+ 
+  MON3:
+    PROCEDURE (FUNC,INFO) ADDRESS EXTERNAL;
+      DECLARE FUNC BYTE;
+      DECLARE INFO ADDRESS;
+    END MON3;
+ 
+ MON5 : PROC(FN,IN) EXT ;
+      DCL FN BYTE;
+      DCL IN POINTER ;
+ END;
+ 
+ MON6 : PROC(FN,IN) BYTE EXT ;
+      DCL FN BYTE;
+      DCL IN POINTER ;
+ END ;
+ 
+ MON7 : PROC(FN,IN) ADDR EXT;
+      DCL FN BYTE ;
+      DCL IN POINTER;
+  END ;
+ 
+/* DECLARE CMDRV     BYTE    EXTERNAL;   /* COMMAND DRIVE      */
+  DECLARE FCB (128)  BYTE    EXTERNAL;   /* 1ST DEFAULT FCB    */
+  DECLARE FCB16 (128) BYTE    EXTERNAL;   /* 2ND DEFAULT FCB    */
+/* DECLARE PASS0     ADDRESS EXTERNAL;   /* 1ST PASSWORD PTR   */
+/* DECLARE LEN0      BYTE    EXTERNAL;   /* 1ST PASSWD LENGTH  */
+/* DECLARE PASS1     ADDRESS EXTERNAL;   /* 2ND PASSWORD PTR   */
+/* DECLARE LEN1      BYTE    EXTERNAL;   /* 2ND PASSWD LENGTH  */
+  DECLARE TBUFF (128) BYTE    EXTERNAL;   /* DEFAULT DMA BUFFER */
+ 
+ 
+DECLARE
+/*  BDISK     BYTE    EXTERNAL, /* BOOT DISK 0004H */
+    MAXB      ADDRESS EXTERNAL, /* MAX BASE 0006H */
+    BUFF (128)BYTE    EXTERNAL, /* BUFFER 0080H */
+    SECTSHF   LITERALLY '7',    /* SHL(1,SECTSHF) = SECTSIZE */
+    SECTSIZE  LITERALLY '80H';  /* SECTOR SIZE */
+ 
+/* 68K */ DCL DUM1P POINTER,DUM1L LONG AT(@DUM1P);
+/* 68K */ DCL DUM2P POINTER,DUM2L LONG AT(@DUM2P);
+ 
+BOOT: PROCEDURE PUBLIC;
+    CALL MON1(0,0);          /* CHANGED FOR MP/M-86 VERSION */
+    /* SYSTEM REBOOT */
+    END BOOT;
+/*SPLH*/ /*$EJECT    */
+ 
+  /*  E D  :   T H E   C P / M   C O N T E X T    E D I T O R  */
+ 
+    /*      COPYRIGHT (C) 1976, 1977, 1978, 1979, 1980, 1981
+            DIGITAL RESEARCH
+            BOX 579 PACIFIC GROVE
+            CALIFORNIA 93950
+ 
+            REVISED:
+              07 APRIL 81  BY THOMAS ROLANDER
+              21 JULY  81  BY DOUG HUSKEY
+              29 OCT   81  BY DOUG HUSKEY
+              10 NOV   81  BY DOUG HUSKEY
+              31 JULY  81  BY H.CHAKI
+    */
+ 
+/*SPLH*/ /*$EJECT   */
+ 
+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ 
+ 
+                  * * *  GLOBAL VARIABLES * * *
+ 
+ 
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+ 
+DECLARE /*   LIT LITERALLY 'LITERALLY',
+    DCL LIT 'DECLARE',
+    PROC LIT 'PROCEDURE',
+    ADDR LIT 'ADDRESS',    */
+    CTLL LIT '0CH',
+    CTLR LIT '12H',                /* REPEAT LINE IN INSERT MODE */
+    CTLU LIT '15H',                /* LINE DELETE IN INSERT MODE */
+    CTLX LIT '18H',                /* EQUIVALENT TO CTLU */
+    CTLH LIT '08H',                /* BACKSPACE */
+    TAB LIT '09H',                 /* TAB CHARACTER */
+    LCA  LIT '110$0001B',          /* LOWER CASE A */
+    LCZ  LIT '111$1010B',          /* LOWER CASE Z */
+    ESC  LIT '1BH',                /* ESCAPE CHARACTER */
+    ENDFILE LIT '1AH';             /* CP/M END OF FILE */
+ 
+DECLARE
+    TRUE LITERALLY '1', 
+    FALSE LITERALLY '0',
+    FOREVER LITERALLY 'WHILE TRUE',
+    CTRL$C LITERALLY '3',
+    CR LITERALLY '13',
+    LF LITERALLY '10',
+    WHAT LITERALLY '63';
+ 
+ 
+DECLARE
+    US LITERALLY '8',              /* FILE FROM USER 0   */
+    RO LITERALLY '9',              /* R/O FILE INDICATOR */
+    SY LITERALLY '10',             /* SYSTEM FILE ATTRIBUTE */
+    EX LITERALLY '12',             /* EXTENT NUMBER POSITION */
+    UB LITERALLY '13',             /* UNFILLED BYTES */
+    CK LITERALLY '13',             /* CHECKSUM */
+    MD LITERALLY '14',             /* MODULE NUMBER POSITION */
+    NR LITERALLY '32',             /* NEXT RECORD FIELD */
+    FS LITERALLY '33',             /* FCB SIZE */
+    XFERON BYTE EXT INIT,          /* TRUE IF XFER ACTIVE */
+    PASSWORD (16) BYTE EXT INIT;   /* SOURCE PASSWORD */
+ 
+DECLARE
+    LIBFCB (12) BYTE EXT DATA ;/* DEFAULT LIB NAME */
+ 
+DECLARE
+   PRINTSUPPR BYTE EXT INIT;        /* TRUE IF PRINT SUPPRESSED */
+ 
+ 
+DECLARE
+    COLUMN  BYTE EXT;         /* CONSOLE COLUMN POSITION */
+/* COMMAND BUFFER */
+ 
+DCL DCNT BYTE EXT   ;
+ 
+DECLARE (MAXLEN,COMLEN) BYTE EXT, COMBUFF(128) BYTE EXT,
+    (TCBP,CBP) BYTE EXT ;
+ 
+/* MP/M PARSE FUNCTION CALL */
+DECLARE
+  PARSE$FN STRUCTURE(
+    BUFF$ADR POINTER,
+    FCB$ADR  POINTER);
+ 
+DECLARE
+    LPP LIT '23',            /* LINES PER PAGE */
+    FORWARD LIT '1',
+    BACKWARD LIT '0',
+    RUBOUT LIT '07FH',
+    POUND LIT '23H',
+    MACSIZE LIT '128',       /* MAX MACRO SIZE */
+    SCRSIZE LIT '100',       /* SCRATCH BUFFER SIZE */
+    COMSIZE LIT 'ADDRESS';   /* DETERMINES MAX COMMAND NUMBER*/
+ 
+DCL FLAG BYTE EXT;
+ 
+DCL RESET LABEL EXT;
+ 
+DECLARE
+    EOS LITERALLY '0FFH';
+ 
+/*SPLH*/ /*$EJECT     */
+ 
+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ 
+ 
+               * * *  CP/M INTERFACE ROUTINES * * *
+ 
+ 
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+ 
+ 
+ /* IO SECTION */
+ 
+READCHAR: PROCEDURE BYTE PUBLIC; RETURN MON2(1,0);
+    END READCHAR;
+ 
+  CONIN: 
+    PROCEDURE BYTE PUBLIC;
+    RETURN MON2(6,0FDH);
+    END CONIN;
+ 
+PRINTCHAR: PROCEDURE(CHAR) PUBLIC;
+    DECLARE CHAR BYTE;
+    IF PRINTSUPPR THEN RETURN;
+    CALL MON1(2,CHAR);
+    END PRINTCHAR;
+ 
+TTYCHAR: PROCEDURE(CHAR) PUBLIC;
+    DECLARE CHAR BYTE;
+    IF CHAR >= ' ' THEN COLUMN = COLUMN + 1;
+    IF CHAR = LF THEN COLUMN = 0;
+    CALL PRINTCHAR(CHAR);
+    END TTYCHAR;
+ 
+BACKSPACE: PROCEDURE PUBLIC;
+    /* MOVE BACK ONE POSITION */
+    IF COLUMN = 0 THEN RETURN;
+    CALL TTYCHAR(CTLH); /* COLUMN = COLUMN - 1 */
+    CALL TTYCHAR(' ' ); /* COLUMN = COLUMN + 1 */
+    CALL TTYCHAR(CTLH); /* COLUMN = COLUMN - 1 */
+    COLUMN = COLUMN - 2;
+    END BACKSPACE;
+ 
+PRINTABS: PROCEDURE(CHAR) PUBLIC  ;
+    DECLARE (CHAR,I,J) BYTE;
+    I = CHAR = TAB AND 7 - (COLUMN AND 7);
+    IF CHAR = TAB THEN CHAR = ' ';
+        DO J = 0 TO I;
+        CALL TTYCHAR(CHAR);
+        END;
+    END PRINTABS;
+ 
+GRAPHIC: PROCEDURE(C) BYTE PUBLIC;
+    DECLARE C BYTE;
+    /* RETURN TRUE IF GRAPHIC CHARACTER */
+    IF C >= ' ' THEN RETURN TRUE;
+    RETURN C = CR OR C = LF OR C = TAB;
+    END GRAPHIC;
+ 
+PRINTC: PROCEDURE(C) PUBLIC;
+    DECLARE C BYTE;
+    IF NOT GRAPHIC(C) THEN
+        DO; CALL PRINTABS('^');
+        C = C + '@';
+        END;
+    CALL PRINTABS(C);
+    END PRINTC;
+ 
+CRLF: PROCEDURE PUBLIC;
+    CALL PRINTC(CR); CALL PRINTC(LF);
+    END CRLF;
+ 
+PRINTM: PROCEDURE(A) PUBLIC;
+    DECLARE A POINTER;
+    CALL MON5(9,A);
+    END PRINTM;
+ 
+PRINT: PROCEDURE(A) PUBLIC;
+    DECLARE A POINTER;
+    CALL CRLF;
+    CALL PRINTM(A);
+    END PRINT;
+ 
+READ: PROCEDURE(A) PUBLIC;
+    DECLARE A POINTER;
+    CALL MON5(10,A);
+    END READ;
+ 
+        /* USED FOR LIBRARY FILES */
+OPEN: PROCEDURE(FCB) PUBLIC;
+     DECLARE FCB POINTER;
+     IF MON6(15,FCB) = 255 THEN DO;
+        FLAG = 'O';
+        GO TO RESET;
+        END;
+     END OPEN;
+ 
+        /* USED FOR MAIN SOURCE FILE */
+OPEN$FILE: PROCEDURE(FCB) ADDRESS PUBLIC;
+     DECLARE FCB POINTER;
+     RETURN MON7(15,FCB);
+     END OPEN$FILE;
+ 
+CLOSE: PROCEDURE(FCB) PUBLIC;
+    DECLARE FCB POINTER;
+    DCNT = MON6(16,FCB);
+    END CLOSE;
+ 
+SEARCH: PROCEDURE(FCB) PUBLIC;
+    DECLARE FCB POINTER;
+    DCNT = MON6(17,FCB);
+    END SEARCH;
+ 
+DELETE: PROCEDURE(FCB) PUBLIC;
+    DECLARE FCB POINTER;
+    DCNT = MON6(19,FCB);
+    END DELETE;
+ 
+DISKREAD: PROCEDURE(FCB) BYTE PUBLIC ;
+    DECLARE FCB POINTER;
+    RETURN MON6(20,FCB);
+    END DISKREAD;
+ 
+DISKWRITE: PROCEDURE(FCB) BYTE PUBLIC;
+    DECLARE FCB POINTER;
+    RETURN MON6(21,FCB);
+    END DISKWRITE;
+ 
+MAKE: PROCEDURE(FCB) PUBLIC;
+    DECLARE FCB POINTER;
+    DCNT = MON6(22,FCB);
+    END MAKE;
+ 
+RENAME: PROCEDURE(FCB) PUBLIC;
+    DECLARE FCB POINTER;
+    CALL MON5(23,FCB);
+    END RENAME;
+ 
+READCOM: PROCEDURE PUBLIC;
+    MAXLEN = 128; CALL READ(@MAXLEN);
+    END READCOM;
+ 
+BREAK$KEY: PROCEDURE BYTE PUBLIC;
+    IF MON2(11,0) THEN
+        DO; /* CLEAR CHAR */
+        IF MON2(1,0) = CTRL$C THEN 
+            RETURN TRUE;
+        END;
+    RETURN FALSE;
+    END BREAK$KEY;
+ 
+CSELECT: PROCEDURE BYTE PUBLIC;
+    /* RETURN CURRENT DRIVE NUMBER */
+    RETURN MON2(25,0);
+    END CSELECT;
+ 
+SELECT: PROCEDURE(DISK) PUBLIC;
+    DECLARE DISK BYTE;
+    /* SET DRIVE NUMBER */
+    CALL MON1(14,DISK);
+    END SELECT;
+ 
+SETDMA: PROCEDURE(A) PUBLIC;
+    DECLARE A POINTER;
+    /* SET DMA ADDRESS */
+    CALL MON5(26,A);
+    END SETDMA;
+ 
+SET$ATTRIBU: PROCEDURE(FCB) PUBLIC;
+    DECLARE FCB POINTER;
+    CALL MON5(30,FCB);
+    END SET$ATTRIBU;
+ 
+                  /* THIS ROUTINE IS INCLUDED SOLELY FOR 
+                     ENCONOMY OF SPACE OVER THE USE OF THE
+                     EQUIVALENT (IN-LINE) CODE GENERATED BY
+                     THE BUILT-IN FUNCTION */
+MOVE:   PROC(C,S,D) PUBLIC;
+    DCL (S,D) POINTER, C BYTE;
+    DCL A BASED DUM1P BYTE, B BASED DUM2P BYTE;
+        DUM1P=S;DUM2P=D;
+        DO WHILE (C:=C-1)<>255;
+        B=A; DUM1L=DUM1L+1;DUM2L=DUM2L+1;
+        END;
+    END MOVE;
+ 
+WRITE$XFCB: PROCEDURE(FCB) PUBLIC;
+    DECLARE FCB POINTER;
+    CALL MOVE(8,@PASSWORD,@PASSWORD(8));
+    IF MON6(103,FCB)= 0FFH THEN
+       CALL PRINT(@('ERROR CREATING PASSWORD$'));
+    END WRITE$XFCB;
+ 
+READ$XFCB: PROCEDURE(FCB) PUBLIC;
+    DECLARE FCB POINTER;
+    CALL MON5(102,FCB);
+    END READ$XFCB;
+ 
+  /* 0FF => RETURN BDOS ERRORS */
+  RETURN$ERRO:
+    PROCEDURE(MODE) PUBLIC;
+    DECLARE MODE BYTE;
+      CALL MON1 (45,MODE);      
+    END RETURN$ERRO;
+ 
+REBOOT: PROCEDURE PUBLIC;
+    IF XFERON THEN 
+        CALL DELETE(@LIBFCB);
+    CALL BOOT;
+    END REBOOT;
+ 
+ 
+  VERSION: PROCEDURE ADDRESS PUBLIC;
+    /* RETURNS CURRENT CP/M VERSION # */
+    RETURN MON7(12,0);
+    END VERSION;
+ 
+PARSE: PROCEDURE PUBLIC;
+    CALL MON5(152,@PARSE$FN);
+    END PARSE;
+END;
+ 
+

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/15/MAKELDR.SUB

@@ -0,0 +1,2 @@
+lo68 -s -tB00 -uldr -o cpmldr.sys booter.o ldrlib ldbiosa.o ldbios.o 0:clib
+o68 -s -tB00 -uldr -o cpmldr.sys booter.o ldrlib ldbiosa.o ldbios.o 0:clib

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/15/PIP.SA

@@ -0,0 +1,539 @@
+/*SPLH*/ /*$TITLE='PERIPHERAL INTERCHANGE PROGRAM' */
+PIPMOD:
+    DO;
+/* P E R I P H E R A L  I N T E R C H A N G E  P R O G R A M
+ 
+         COPYRIGHT (C) 1976, 1977, 1978, 1979, 1980, 1981
+         DIGITAL RESEARCH
+         BOX 579
+         PACIFIC GROVE, CA
+         93950
+ 
+         REVISED:
+            17 JAN 80  BY  THOMAS ROLANDER (MP/M 1.1)
+            05 OCT 81  BY  RAY PEDRIZETTI  (MP/M-86 2.0)
+            18 DEC 81  BY  RAY PEDRIZETTI  (CP/M-86 1.1)
+            31 JULY 82 BY  H.CHAKI (CP/M-68K)           */
+ 
+/*    COMMAND LINES USED FOR .68K FILE GENERATION   */
+ /*  Command line to generate PIP.68K
+ 
+ [[ assume that the all default VOLUME is SYS:0.. on EXORmacs]]
+ 
+ (1)S-PL/H Compile and ASM on EXORmacs
+    =SPLH PIP,,;A,S,X,NOV,NOF,MAR=1/80
+    =ASM PIPSUB,,;A,S,X,NOV,NOF,MAR=1/80
+    =ASM UT68K,,;
+    [[ caution ]]
+     PIP: main routine of PIP utility in S-PL/H
+     PIPSUB: sub routine of PIP utility in ASM
+     UT68K: standard interface routine in ASM
+     A: assemble listing option
+     S: symbol listing option
+     X: xref listing option
+     NOV: non save option
+     NOF: non floatable option
+     MAR: margin option [[ important ]]
+ 
+  (2)LINK on EXORmacs
+     =LINK PIP/PIPSUB/UT68K,PIP68K,PIP68K;MIXRL=SPLHLIB.RO
+     [[ caution ]]
+     R option: generate relocatable object
+ 
+  (3)XLINK on EXORmacs
+     =XLINK PIP68K.RO,PIP68K.OX,O=PIP68K.OL
+ 
+  (4)Convert file on EXORmacs to send to VAX
+     =CONV PIP68K.OX,PIP68K.OC
+ 
+  (5)Send to VAX from EXORMACS
+     =VAX
+     VAX command
+     S
+     Source file
+     PIP68K.OC
+ 
+  (6)Download to CP/M file from VAX
+ 
+  (7)Re-convert file on CP/M
+    A>RECONV
+      input file :PIP68K.OC
+      output file :PIP.68K
+ 
+ 
+ end command line                 */
+ 
+DECLARE
+    VERSION  LITERALLY '0022H', /* REQUIRED FOR OPERATION */
+    MVERSION LITERALLY '1130H'; /* FOR MP/M-86 OPERATION */
+ 
+DECLARE
+    MAXB  POINTER EXTERNAL,     /* ADDR FIELD OF JMP BDOS */
+/*68K*/ MAXBL LONG AT(@MAXB),
+    FCB (33) BYTE EXTERNAL,     /* DEFAULT FILE CONTROL BLOCK */
+    BUFF(128)BYTE EXTERNAL;     /* DEFAULT BUFFER */
+ 
+DECLARE
+    ENDFILE LITERALLY '1AH';    /* END OF FILE MARK */
+ 
+DECLARE      /* MAIN PROGRAM ENTRY LABEL */
+    PLM LABEL PUBLIC;
+ 
+DECLARE COPYRIGHT(*) BYTE DATA (
+      ' (7/31/82) CP/M-68K PIP VERS 1.0 ');
+ 
+ 
+    /* LITERAL DECLARATIONS */
+DECLARE
+/*SPLH*/ /* LIT  LITERALLY 'LITERALLY',   */
+    LPP  LIT '60',     /* LINES PER PAGE */
+    TAB  LIT '09H',    /* HORIZONTAL TAB */
+    FF   LIT '0CH',    /* FORM FEED */
+    LA   LIT '05FH',   /* LEFT ARROW */
+    LB   LIT '05BH',   /* LEFT BRACKET */
+    RB   LIT '05DH',   /* RIGHT BRACKET */
+ 
+    FSIZE  LIT '33',
+    FRSIZE LIT '36',   /* SIZE OF RANDOM FCB */
+    NSIZE  LIT '8',
+    FNSIZE LIT '11',
+    FEXT   LIT '9',
+    FEXTL  LIT '3',
+ 
+        /* SCANNER RETURN TYPE CODE */
+    OUTT     LIT '0',   /* OUTPUT DEVICE */
+    PRNT     LIT '1',   /* PRINTER */
+    LSTT     LIT '2',   /* LIST DEVICE */
+    AXOT     LIT '3',   /* AUXILARY OUTPUT DEVICE */
+    FILE     LIT '4',   /* FILE TYPE */
+    CONS     LIT '5',   /* CONSOLE */
+    AXIT     LIT '6',   /* AUXILARY INPUT DEVICE */
+    INPT     LIT '7',   /* INPUT DEVICE */
+    NULT     LIT '8',   /* NUL CHARACTERS */
+    EOFT     LIT '9',   /* EOF CHARACTER */
+    ERR      LIT '10',  /* ERROR TYPE */
+    SPECL    LIT '11',  /* SPECIAL CHARACTER */
+    DISKNAME LIT '12';  /* DISKNAME LETTER */
+ 
+DECLARE
+    SEARFCB LITERALLY 'FCB';   /* SEARCH FCB IN MULTI COPY */
+ 
+DECLARE
+    TRUE    LITERALLY '1',
+    FALSE   LITERALLY '0',
+    FOREVER LITERALLY 'WHILE TRUE',
+    CR      LITERALLY '13',
+    LF      LITERALLY '10',
+    WHAT    LITERALLY '63';
+ 
+DECLARE
+    COLUMN   BYTE,      /* COLUMN COUNT FOR PRINTER TABS */
+    LINENO   BYTE,      /* LINE WITHIN PAGE */
+    FEEDBASE BYTE,      /* USED TO FEED SEARCH CHARACTERS */
+    FEEDLEN  BYTE,      /* LENGTH OF FEED STRING */
+    MATCHLEN BYTE,      /* USED IN MATCHING STRINGS */
+    QUITLEN  BYTE,      /* USED TO TERMINATE QUIT COMMAND */
+    CDISK    BYTE,      /* CURRENT DISK */
+    SBLEN    ADDRESS,   /* SOURCE BUFFER LENGTH */
+    DBLEN    ADDRESS,   /* DEST BUFFER LENGTH */
+    TBLEN    ADDRESS,   /* TEMP BUFFER LENGTH */
+    SBASE    POINTER,   /* SOURCE BUFFER BASE */
+/*68K*/ SBASEL LONG AT(@SBASE),
+/*SPLH*/  MEMORY (1024) BYTE EXT,
+/*SPLH*/  DCHAKIP POINTER,
+          DCHAKIL LONG AT(@DCHAKIP),
+    /* THE VECTORS DBUFF AND SBUFF ARE DECLARED WITH DIMENSION
+    1024, BUT ACTUALLY VARY WITH THE FREE MEMORY SIZE */
+    DBUFF(1024) BYTE AT (@MEMORY), /* DESTINATION BUFFER */
+    SBUFF BASED SBASE (1024) BYTE, /* SOURCE BUFFER */
+ 
+        /* SOURCE FCB, PASSWORD AND PASSWORD MODE */
+    SOURCE STRUCTURE (
+        FCB(FRSIZE)  BYTE,
+        USER         BYTE,
+        TYPE         BYTE ),
+ 
+        /* TEMPORARY DESTINATION FCB, PASSWORD AND PASSWORD MODE */
+    DEST STRUCTURE (
+        FCB(FRSIZE)  BYTE,
+        USER         BYTE,
+        TYPE         BYTE ),
+ 
+        /* ORIGINAL DESTINATION FCB, PASSWORD AND PASSWORD MODE */
+    ODEST STRUCTURE (
+        FCB(FRSIZE)  BYTE,
+        USER         BYTE,
+        TYPE         BYTE ),
+ 
+    FILSIZE(3) BYTE,  /* FILE SIZE RANDOM RECORD NUMBER */
+ 
+    DESTR    ADDRESS AT(@DEST.FCB(34)),    /* RANDOM RECORD POSITION */
+    SOURCER  ADDRESS AT(@SOURCE.FCB(34)),  /* RANDOM RECORD POSITION */
+    DESTR2   BYTE    AT(@DEST.FCB(33)),    /* RANDOM RECORD POSITION R2 */
+    SOURCER2 BYTE    AT(@SOURCE.FCB(33)),  /* RANDOM RECORD POSITION R2 */
+ 
+    EXTSAVE  BYTE,      /* TEMP EXTENT BYTE FOR BDOS BUG */
+ 
+    NSBUF   ADDRESS,    /* NEXT SOURCE BUFFER */ 
+    NSOURCE ADDRESS,    /* NEXT SOURCE CHARACTER */
+    NDEST   ADDRESS;    /* NEXT DESTINATION CHARACTER */
+ 
+DECLARE
+    FASTCOPY BYTE,      /* TRUE IF COPY DIRECTLY TO DBUF */
+    DBLBUF   BYTE,      /* TRUE IF BOTH SOURCE AND DEST BUFFER USED */
+    CONCAT   BYTE,      /* TRUE IF CONCATINATION COMMAND */
+    AMBIG    BYTE,      /* TRUE IF FILE IS AMBIG TYPE */
+    DFILE    BYTE,      /* TRUE IF DEST IS FILE TYPE */
+    SFILE    BYTE,      /* TRUE IF SOURCE IS FILE TYPE */
+    MADE     BYTE,      /* TRUE IF FILE ALREADY MADE */
+    ENDOFSRC BYTE,      /* TRUE IF END OF SOURCE FILE */
+    NENDCMD  BYTE,      /* TRUE IF NOT END OF COMMAND TAIL */
+    INSPARC  BYTE,      /* TRUE IF IN MIDDLE OF SPARCE FILE */
+    SPARFIL  BYTE,      /* TRUE IF SPARCE FILE BEING COPIED */
+    MULTCOM  BYTE,      /* FALSE IF PROCESSING ONE LINE */
+    PUTNUM   BYTE,      /* SET WHEN READY FOR NEXT LINE NUM */
+    CONCNT   BYTE,      /* COUNTER FOR CONSOLE READY CHECK */
+    CHAR     BYTE,      /* LAST CHARACTER SCANNED */
+    FLEN     BYTE;      /* FILE NAME LENGTH */
+ 
+DECLARE
+    F1     BYTE,        /* F1 USER ATTRIBUTE FLAG */
+    F2     BYTE,        /* F2 USER ATTRIBUTE FLAG */
+    F3     BYTE,        /* F3 USER ATTRIBUTE FLAG */
+    F4     BYTE,        /* F4 USER ATTRIBUTE FLAG */
+    RO     BYTE,        /* READ ONLY ATTRIBUTE FLAG */
+    SYS    BYTE,        /* SYSTEM ATTRIBUTE FLAG */
+    DCNT   BYTE;        /* ERROR CODE OR DIRECTORY CODE */
+ 
+DECLARE CBUFF(130) BYTE,   /* COMMAND BUFFER */
+    MAXLEN       BYTE AT (@CBUFF(0)),  /* MAX BUFFER LENGTH */
+    COMLEN       BYTE AT (@CBUFF(1)),  /* CURRENT LENGTH */
+    COMBUFF(128) BYTE AT (@CBUFF(2));  /* COMMAND BUFFER CONTENTS */
+ 
+DECLARE
+    CBP  BYTE;   /* COMMAND BUFFER POINTER */
+ 
+DECLARE
+    CUSER BYTE; /* CURRENT USER NUMBER */
+ 
+DECLARE
+   LAST$USER BYTE;
+ 
+DECLARE /* CONTROL TOGGLE VECTOR */
+    CONT(26) BYTE,   /* ONE FOR EACH ALPHABETIC */
+    /* 00 01 02 03 04 05 06 07 08 09 10 11 12 13
+        A  B  C  D  E  F  G  H  I  J  K  L  M  N
+       14 15 16 17 18 19 20 21 22 23 24 25
+        O  P  Q  R  S  T  U  V  W  X  Y  Z   */
+    ARCHIV BYTE  AT(@CONT(0)),     /* FILE ARCHIVE */
+    DELET  BYTE  AT(@CONT(3)),     /* DELETE CHARACTERS */
+    ECHO   BYTE  AT(@CONT(4)),     /* ECHO CONSOLE CHARACTERS */
+    FORMF  BYTE  AT(@CONT(5)),     /* FORM FILTER */
+    GETU   BYTE  AT(@CONT(6)),     /* GET FILE, USER # */
+    HEXT   BYTE  AT(@CONT(7)),     /* HEX FILE TRANSFER */
+    IGNOR  BYTE  AT(@CONT(8)),     /* IGNORE :00 RECORD ON FILE */
+    KILDS  BYTE  AT(@CONT(10)),    /* KILL FILENAME DISPLAY */
+    LOWER  BYTE  AT(@CONT(11)),    /* TRANSLATE TO LOWER CASE */
+    NUMB   BYTE  AT(@CONT(13)),    /* NUMBER OUTPUT LINES */
+    OBJ    BYTE  AT(@CONT(14)),    /* OBJECT FILE TRANSFER */
+    PAGCNT BYTE  AT(@CONT(15)),    /* PAGE LENGTH */
+    QUITS  BYTE  AT(@CONT(16)),    /* QUIT COPY */
+    RSYS   BYTE  AT(@CONT(17)),    /* READ SYSTEM FILES */
+    STARTS BYTE  AT(@CONT(18)),    /* START COPY */
+    TABS   BYTE  AT(@CONT(19)),    /* TAB SET */
+    UPPER  BYTE  AT(@CONT(20)),    /* UPPER CASE TRANSLATE */
+    VERIF  BYTE  AT(@CONT(21)),    /* VERIFY EQUAL FILES ONLY */
+    WRROF  BYTE  AT(@CONT(22)),    /* WRITE TO R/O FILE */
+    ZEROP  BYTE  AT(@CONT(25));    /* ZERO PARITY ON INPUT */
+ 
+DECLARE ZEROSUP BYTE,  /* ZERO SUPPRESSION */
+    (C3,C2,C1) BYTE;     /* LINE COUNT ON PRINTER  */
+ 
+ DCL DUMMYP POINTER,
+     DUMMYL LONG AT(@DUMMYP);
+ DCL DUM1P POINTER,
+     DUM1L LONG AT(@DUM1P);
+ DCL DUM2P POINTER,
+     DUM2L LONG AT(@DUM2P);
+   
+OUTD: PROCEDURE(B) EXTERNAL;
+    DECLARE B BYTE;
+    /* SEND B TO OUT: DEVICE */
+    END OUTD;
+ 
+INPD: PROCEDURE BYTE EXTERNAL;
+    END INPD;
+ 
+MON1: PROCEDURE(F,A) EXTERNAL;
+    DECLARE F BYTE,
+    A ADDRESS;
+    END MON1;
+ 
+MON2: PROCEDURE(F,A) BYTE EXTERNAL;
+    DECLARE F BYTE,
+    A ADDRESS;
+    END MON2;
+ 
+MON3: PROCEDURE(F,A) ADDRESS EXTERNAL;
+    DECLARE F BYTE,
+    A ADDRESS;
+    END MON3;
+/* 68K*/
+ MON5: PROC(F,A) EXT;
+         DCL F BYTE,A POINTER;
+ END;
+ MON6: PROC(F,A) BYTE EXT;
+         DCL F BYTE,A POINTER;
+ END;
+ MON7: PROC(F,A) ADDR EXT;
+         DCL F BYTE,A POINTER;
+ END;
+ 
+BOOT: PROCEDURE;
+    /* SYSTEM REBOOT */
+    CALL MON1(0,0);
+    END BOOT;
+ 
+ 
+RDCHAR: PROCEDURE BYTE;
+    /* READ CONSOLE CHARACTER */
+    RETURN MON2(1,0);
+    END RDCHAR;
+ 
+PRINTCHAR: PROCEDURE(CHAR);
+    DECLARE CHAR BYTE;
+    CALL MON1(2,CHAR AND 7FH);
+    END PRINTCHAR;
+ 
+CRLF: PROCEDURE;
+    CALL PRINTCHAR(CR);
+    CALL PRINTCHAR(LF);
+    END CRLF;
+ 
+PRINTX: PROCEDURE(A);
+    DECLARE A POINTER;
+    CALL MON5(9,A);
+    END PRINTX;
+ 
+PRINT: PROCEDURE(A);
+    DECLARE A POINTER;
+    /* PRINT THE STRING STARTING AT ADDRESS A UNTIL THE
+    NEXT DOLLAR SIGN IS ENCOUNTERED */
+    CALL CRLF;
+    CALL PRINTX(A);
+    END PRINT;
+ 
+RDCOM: PROCEDURE;
+    /* READ INTO COMMAND BUFFER */
+    MAXLEN = 128;
+    CALL MON5(10,@MAXLEN);
+    END RDCOM;
+ 
+CONBRK: PROCEDURE BYTE;
+    /* CHECK CONSOLE CHARACTER READY */
+    RETURN MON2(11,0);
+    END CONBRK;
+ 
+CVERSION: PROCEDURE ADDRESS;
+    RETURN MON3(12,0); /* VERSION NUMBER */
+    END CVERSION;
+ 
+SETDMA: PROCEDURE(A);
+    DECLARE A POINTER;
+    CALL MON5(26,A);
+    END SETDMA;
+ 
+OPEN: PROCEDURE(FCB);
+    DECLARE FCB POINTER;
+    DCNT = MON6(15,FCB);
+    END OPEN;
+ 
+CLOSE: PROCEDURE(FCB);
+    DECLARE FCB POINTER;
+    DCNT = MON6(16,FCB);
+    END CLOSE;
+ 
+CK$USER: PROCEDURE;
+    DO FOREVER;
+        IF DCNT = 0FFH THEN RETURN;
+        IF LAST$USER = BUFF(ROR (DCNT,3) AND 110$0000B)
+            THEN RETURN;
+        DCNT = MON2(18,0);
+    END;
+    END CK$USER;
+ 
+SEARCH: PROCEDURE(FCB);
+    DECLARE FCB POINTER;
+    DCNT = MON6(17,FCB);
+    CALL CK$USER;
+    END SEARCH;
+ 
+SEARCHN: PROCEDURE;
+    DCNT = MON2(18,0);
+    CALL CK$USER;
+    END SEARCHN;
+ 
+DELETE: PROCEDURE(FCB);
+    DECLARE FCB POINTER;
+    CALL MON5(19,FCB);
+    END DELETE;
+ 
+DISKRD: PROCEDURE(FCB);
+    DECLARE FCB POINTER;
+    DCNT = MON6(20,FCB);
+    END DISKRD;
+ 
+DISKWRITE: PROCEDURE(FCB);
+    DECLARE FCB POINTER;
+    DCNT = MON6(21,FCB);
+    END DISKWRITE;
+ 
+MAKE: PROCEDURE(FCBA);
+    DECLARE FCBA POINTER;
+    DCNT = MON6(22,FCBA);
+    END MAKE;
+ 
+RENAME: PROCEDURE(FCB);
+    DECLARE FCB POINTER;
+    DCNT = MON6(23,FCB);
+    END RENAME;
+ 
+GETDISK: PROCEDURE BYTE;
+    RETURN MON2(25,0);
+    END GETDISK;
+ 
+SETIND: PROCEDURE(FCB);
+    DECLARE FCB POINTER;
+    DCNT = MON6(30,FCB);
+    END SETIND;
+ 
+GETUSER: PROCEDURE BYTE;
+    RETURN MON2(32,0FFH);
+    END GETUSER;
+ 
+SETUSER: PROCEDURE(USER);
+    DECLARE USER BYTE;
+    CALL MON1(32,(LAST$USER:=USER));
+    END SETUSER;
+ 
+SETCUSER: PROCEDURE;
+    CALL SETUSER(CUSER);
+    END SETCUSER;
+ 
+SETDUSER: PROCEDURE;
+    CALL SETUSER(ODEST.USER);
+    END SETDUSER;
+ 
+SETSUSER: PROCEDURE;
+    CALL SETUSER(SOURCE.USER);
+    END SETSUSER;
+ 
+RD$RANDOM: PROCEDURE(FCB) BYTE;
+    DECLARE FCB POINTER;
+    RETURN MON6(33,FCB);
+    END RD$RANDOM;
+ 
+WRITE$RANDOM: PROCEDURE(FCB) BYTE;
+    DECLARE FCB POINTER;
+    RETURN MON6(34,FCB);
+    END WRITE$RANDOM;
+ 
+RETFSIZE: PROCEDURE(FCB) BYTE;
+    DECLARE FCB POINTER;
+    RETURN MON6(35,FCB);
+    END RETFSIZE;
+ 
+SET$RANDOM: PROCEDURE(FCB);
+    DECLARE FCB POINTER;
+    /* SET RANDOM RECORD POSITION */
+    CALL MON5(36,FCB);
+    END SET$RANDOM;
+ 
+ 
+MOVE: PROCEDURE(S,D,N);
+    DECLARE (S,D) POINTER, N BYTE;
+    DECLARE A BASED DUM1P BYTE, B BASED DUM2P BYTE;
+/*68K*/ DUM1P=S; DUM2P=D;
+        DO WHILE (N:=N-1) <> 255;
+/*68K*/ B = A; DUM1L=DUM1L+1; DUM2L=DUM2L+1;
+        END;
+    END MOVE;
+ 
+ERROR: PROCEDURE(ERRTYPE,FILEADR);
+    DECLARE I BYTE,
+        TEMP BYTE,
+        ERRTYPE BYTE,
+        FILEADR POINTER,
+        FCB BASED FILEADR (FSIZE) BYTE;
+ 
+    /* ERRTYPE ERROR MESSAGES */
+    DECLARE ER00(*) BYTE DATA ('DISK READ$');
+    DECLARE ER01(*) BYTE DATA ('DISK WRITE$');
+    DECLARE ER02(*) BYTE DATA ('VERIFY$');
+    DECLARE ER03(*) BYTE DATA ('INVALID DESTINATION$');
+    DECLARE ER04(*) BYTE DATA ('INVALID SOURCE$');
+    DECLARE ER05(*) BYTE DATA ('USER ABORTED$');
+    DECLARE ER06(*) BYTE DATA ('BAD PARAMETER$');
+    DECLARE ER07(*) BYTE DATA ('INVALID USER NUMBER$');
+    DECLARE ER08(*) BYTE DATA ('INVALID FORMAT$');
+    DECLARE ER09(*) BYTE DATA ('HEX RECORD CHECKSUM$');
+    DECLARE ER10(*) BYTE DATA ('FILE NOT FOUND$');
+    DECLARE ER11(*) BYTE DATA ('START NOT FOUND$');
+    DECLARE ER12(*) BYTE DATA ('QUIT NOT FOUND$');
+    DECLARE ER13(*) BYTE DATA ('INVALID HEX DIGIT$');
+    DECLARE ER14(*) BYTE DATA ('CLOSE FILE$');
+    DECLARE ER15(*) BYTE DATA ('UNEXPECTED END OF HEX FILE$');
+    DECLARE ER16(*) BYTE DATA ('INVALID SEPARATOR$');
+    DECLARE ER17(*) BYTE DATA ('NO DIRECTORY SPACE$');
+    DECLARE ER18(*) BYTE DATA ('INVALID FORMAT WITH SPARSE FILE$');
+ 
+    DECLARE ERRMSG(*) POINTER DATA(
+        @ER00,@ER01,@ER02,@ER03,@ER04,
+        @ER05,@ER06,@ER07,@ER08,@ER09,
+        @ER10,@ER11,@ER12,@ER13,@ER14,
+        @ER15,@ER16,@ER17,@ER18);
+ 
+    CALL SETDUSER;
+    IF MADE THEN
+        DO; CALL CLOSE(@DEST);
+        CALL DELETE(@DEST);  /* DELETE DESTINATION SCRATCH FILE */
+        END;
+ 
+    /* PRINT OUT ERROR MESSAGE */
+    CALL PRINT(@('ERROR: $'));
+    CALL PRINTX(ERRMSG(ERRTYPE));
+    CALL PRINTX(@(' - $'));
+    IF FILEADR <> 0 THEN
+        DO; CALL PRINTCHAR('A' + FCB(0) - 1);
+        CALL PRINTCHAR(':');
+            DO I = 1 TO FNSIZE;
+            IF (TEMP := FCB(I) AND 07FH) <> ' ' THEN
+                DO; IF I = FEXT THEN CALL PRINTCHAR('.');
+                CALL PRINTCHAR(TEMP);
+                END;
+            END;
+        END;
+ 
+    /* ZERO THE COMLEN IN CASE THIS IS A SINGLE COMMAND */
+    COMLEN = 0;
+    CALL CRLF;
+    GO TO RETRY;
+    END ERROR;
+ 
+FORMERR: PROCEDURE;
+    CALL ERROR(8,0);  /* INVALID FORMAT */
+    END FORMERR;
+ 
+MAXSIZE: PROCEDURE BYTE;
+    IF (SOURCE.FCB(35) = FILSIZE(2)) AND
+       (SOURCE.FCB(34) = FILSIZE(1)) AND
+       (SOURCE.FCB(33) = FILSIZE(0)) THEN RETURN TRUE;
+    RETURN FALSE;
+    END MAXSIZE;
+ 
+SETUPDEST: PROCEDURE;
+    CALL SETDUSER;  /* DESTINATION USER */
+    CALL MOVE(@ODEST,@DEST,(FRSIZE + 1));  /* SAVE ORIGINAL DEST */
+    /* MOVE THREE CHARACTER EXTENT INTO DEST FCB */
+    CALL MOVE(@('$$$'),@DEST.FCB(FEXT),FEXTL);
+    CALL DELETE(@DEST); /* REMOVE OLD $$

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/15/PIPSUB.SA

@@ -0,0 +1,25 @@
+*
+*        SUBROUTINE FOR CP/M68K PIP UTILITY
+*
+         SECTION   9
+         XDEF      INPLOC,OUTPLOC,INPD,OUTD
+*
+INPLOC   EQU       *
+         NOP
+         RTS
+*
+OUTPLOC  EQU       *
+         NOP
+         RTS
+*
+INPD     EQU       *
+         NOP
+         RTS
+*
+OUTD     EQU       *
+         NOP
+         MOVE.L    (A7)+,A0
+         LEA       2(A7),A7
+         JMP       (A0)
+         END
+

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/15/STATSUB.SA

@@ -0,0 +1,115 @@
+ DPB86:
+DO;
+       /* THE PURPOSE OF THIS MODULE IS TO ALLOW INDEPENDENCE */
+       /* OF PROCESSOR, I.E., 8080 OR 8086                    */
+ 
+DECLARE
+ /*SPLH*/  /* LIT LITERALLY 'LITERALLY',
+              DCL LIT 'DECLARE',
+              PROC LIT 'PROCEDURE',
+              ADDR LIT 'ADDRESS',    */
+        TRUE               LIT                '0FFH',
+        FALSE              LIT                '0',
+   /*   BOOLEAN            LIT                'BYTE',  */
+        FOREVER            LIT                'WHILE TRUE',
+        CR                 LIT                '13',
+        LF                 LIT                '10',
+        TAB                LIT                '9',
+        FF                 LIT                '12',
+        SECTORLEN          LIT                '128';
+ 
+/* FUNCTION CALL 32 IN 2.0 OR LATER BDOS, RETURNS THE ADDRESS OF THE DISK
+PARAMETER BLOCK FOR THE CURRENTLY SELECTED DISK, WHICH CONSISTS OF:
+        SPT                   (2 BYTES) NUMBER OF SECTORS PER TRACK
+        BLKSHF                (1 BYTE)  BLOCK SIZE = SHL(DOUBLE(128),BLKSHF)
+        BLKMSK                (1 BYTE)  SECTOR# AND BLKMSK = BLOCK NUMBER
+        EXTMSK                (1 BYTE)  LOGICAL/PHYSICAL EXTENTS
+        BLKMAX                (2 BYTES) MAX ALLOC NUMBER
+        DIRMAX                (2 BYTES) SIZE OF DIRECTORY-1
+        DIRBLK                (2 BYTES) RESERVATION BITS FOR DIRECTORY
+        CHKSIZ                (2 BYTES) SIZE OF CHECKSUM VECTOR
+        OFFSET                (2 BYTES) OFFSET FOR OPERATING SYSTEM
+*/
+ 
+/* INDICES INTO DISK PARAMETER BLOCK, USED AS PARAMETERS TO DPB PROCEDURE */
+ 
+DCL        SPT$W        LIT        '0',
+           BLKSHF$B     LIT        '2',
+           BLKMSK$B     LIT        '3',
+           EXTMSK$B     LIT        '4',   /* 68K*/
+           BLKMAX$W     LIT      /*'5', */ '6',
+           DIRMAX$W     LIT      /*'7', */ '8',
+           DIRBLK$W     LIT      /*'9', */ '10',
+           CHKSIZ$W     LIT      /*'11',*/ '12',
+           OFFSET$W     LIT      /*'13';*/ '14';
+ 
+ 
+DECLARE K$PER$BLOCK BYTE PUBLIC;
+DECLARE DPB$BASE POINTER;/*SPLH*/
+DECLARE DPB$ARRAY (16) BYTE;    /*SPLH */
+ 
+MON4: PROCEDURE (F,A)  EXTERNAL;
+    DCL F BYTE, A ADDRESS;
+END MON4;
+MON5: PROC(F,A) EXT;
+    DCL F BYTE,A POINTER;
+END MON5;
+ 
+DCL GET$DPB LIT '31';
+ 
+/* MERGE SYS:3.CHRSYN.STATSUB1.SA = [SOURCE.CPM86.CPM11.STAT]CON86.PLM*/
+ 
+/*  $COMPACT       */
+/*  $TITLE ('CONSOLE 8086 - GET CONSOLE WIDTH')  */
+/* THE PURPOSE OF THIS MODULE IS TO ALLOW INDEPENDENCE */
+/* OF PROCESSOR, I.E., 8080 OR 8086                    */
+/* IT WILL RETURN A WORD VALUE EQUAL TO THE CONSOLE WIDTH FROM
+   THE SYSTEM DATA PAGE. */
+ 
+ 
+  GET$SYSDAT:
+    PROCEDURE POINTER;
+      RETURN /*  (MON4(49,0)); */ 10; /*SPLH*/
+    END GET$SYSDAT;
+ 
+ 
+  DECLARE CONWIDTH$POINTER POINTER;
+  DECLARE CONWIDTH$PTR STRUCTURE (
+    OFFSET WORD,
+    SEGMENT WORD) AT (@CONWIDTH$POINTER);
+  DECLARE WIDTH BASED CONWIDTH$POINTER BYTE;
+  DECLARE CONWIDTH$OFFSET LIT '0040H';
+  
+ 
+COLUMNS: PROCEDURE BYTE PUBLIC;
+ 
+/*  CONWIDTH$POINTER = GET$SYSDAT;
+    CONWIDTH$PTR.OFFSET = CONWIDTH$PTR.OFFSET + CONWIDTH$OFFSET;
+    IF WIDTH = 0 THEN
+        RETURN 80;
+    RETURN WIDTH;        */ RETURN 80 ;  /*SPLH*/
+END COLUMNS;
+ 
+ 
+ /* MERGE END                     */
+ 
+ 
+ 
+DPB$BYTE: PROCEDURE(PARAM) BYTE PUBLIC;
+    DCL PARAM BYTE;
+    RETURN(DPB$ARRAY(PARAM));                  /* S-PL/H */
+END DPB$BYTE;
+ 
+DPB$WORD: PROCEDURE(PARAM) ADDRESS PUBLIC;     /* S-PL/H */
+    DCL PARAM BYTE;
+    RETURN(DPB$ARRAY(PARAM+1) + SHL(DOUBLE(DPB$ARRAY(PARAM)),8));
+END DPB$WORD;
+ 
+BASE$DPB: PROCEDURE PUBLIC;            /* S-PL/H */
+  /* 68K*/ DPB$BASE=@DPB$ARRAY;
+ /* DPB$BASE = MON4(GET$DPB,0); */     CALL MON5(GET$DPB,DPB$BASE);
+    K$PER$BLOCK = SHR(DPB$BYTE(BLKMSK$B)+1 ,3);
+END BASE$DPB;
+ 
+END DPB86;
+

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/15/UT68K.SA

@@ -0,0 +1,134 @@
+*******************************************************************************
+*
+*        STANDARD INTERFACE ROUTINE FOR CP/M68K UTILITY PROGRAM
+*             (OVER 64K MODEL)
+*
+*        (1) SET THE ENVIRONMENT FOR S-PL/H OBJECT
+*        (2) DECLARE THE PUBLIC PROCEDURE FOR BDOS CALL
+*        (3) SET THE BASE PAGE VARIABLES
+*        (4) DECLARE PATCH AREA
+*
+*******************************************************************************
+         SECTION   8
+*******************************************************************************
+*********  EXTERNAL DEFINITION
+*******************************************************************************
+         XDEF      .SMAIN
+         XDEF      ENTRYC
+         XDEF      MON1,MON2,MON3,MON4,XDOS
+         XDEF      MON5,MON6,MON7
+         XDEF      MAXB,MEMSIZE
+         XDEF      FCB,FCB16,BUFF,TBUFF
+         XDEF      PATCH1,PATCH2
+         XDEF      MEMORY
+*******************************************************************************
+*********  EXTERNAL REFERENCE DIFINITION
+*******************************************************************************
+         XREF      .SPSCT
+         XREF      .SDSCT
+*******************************************************************************
+*********  CONSTANT EQUATION DEFINITION
+*******************************************************************************
+OMAXB    EQU       4         /* OFFSET OF MAXB FROM BASE
+OFCB16   EQU       $38       /* OFFSET OF FCB16 FROM BASE
+OFCB     EQU       $5C       /* OFFSET OF FCB FROM BASE
+OBUFF    EQU       $80       /* OFFSET OF BUFF FROM BASE
+FCBSZ    EQU       72        /* (FCB16 + FCB) AREA SIZE
+BUFFSZ   EQU       128       /* BUFF AREA SIZE
+*
+*******************************************************************************
+*
+ENTRYC   EQU       *         /* ENTRY POINT FROM CCP
+.SMAIN   EQU       *         /* REFER FROM .SINIT ROUTINE
+*******************************************************************************
+*********  SET THE BASE PAGE VARIABLES
+*******************************************************************************
+         MOVE.L    (A7)+,RTNCCP        /* STORE RETURN ADDR OF CCP
+         MOVE.L    (A7)+,SBASEP        /* STORE POINTER OF BASE PAGE
+*
+         MOVEA.L   SBASEP,A0           /* GET THE BASE ADDR OF BASE PAGE
+         MOVE.W    OMAXB(A0),MAXB      /* SET MAXB
+*
+         LEA       OFCB16(A0),A0       /* GET THE SOURCE ADDR OF FCB16
+         LEA       FCB16,A1            /* GET THE DESTINATION ADDR OF FCB16
+         MOVE.W    #(FCBSZ-1),D0       /* SET LOOP NUMBER
+LOP1     MOVE.B    (A0)+,(A1)+         /* SET FCB16 AND FCB
+         DBF       D0,LOP1
+*
+         MOVEA.L   SBASEP,A0
+         LEA       OBUFF(A0),A0        /* GET THE SOURCE ADDR OF BUFF
+         LEA       BUFF,A1             /* GET THE DESTINATION ADDR OF BUFF
+         MOVE.W    #(BUFFSZ-1),D0      /* SET LOOP NUMBER
+LOP2     MOVE.B    (A0)+,(A1)+         /* SET BUFF AND TBUFF
+         DBF       D0,LOP2
+*
+*********  END BASE PAGE SET
+*******************************************************************************
+*********  INIT FOR S-PL/H
+*******************************************************************************
+         LEA       RMA,A5              /* SET RMA BASE
+         LEA       RMA,A6
+         LEA       RMA,A7              /* SET STACK POINTER
+         SUBA.L    #4,A6               /* SET FRAME POINTER
+         LEA       .SPSCT,A4           /* S-PL/H OBJECT AREA
+         LEA       .SDSCT,A2           /* S-PL/H DATA AREA
+         JSR       (A4)                /* GO TO S-PL/H
+*******************************************************************************
+*********  PUBLIC SUBROUTINE FOR BDOS CALL
+*******************************************************************************
+MON1     EQU       *
+MON2     EQU       *
+MON3     EQU       *
+MON4     EQU       *
+XDOS     EQU       *
+         CLR.L     D0
+         CLR.L     D1
+         MOVE.W    4(A7),D1
+         MOVE.B    6(A7),D0
+         TRAP      #2                  /* BDOS CALL
+         MOVEA.L   (A7)+,A0
+         LEA       4(A7),A7
+         JMP       (A0)                /* RETURN TO MAINROUTINE
+MON5     EQU       *
+MON6     EQU       *
+MON7     EQU       *
+         CLR.L     D0
+         MOVE.L    4(A7),D1
+         MOVE.B    8(A7),D0
+         TRAP      #2                  /* BDOS CALL
+         MOVEA.L   (A7)+,A0
+         LEA       6(A7),A7
+         JMP       (A0)
+*******************************************************************************
+*********  PATCH AREA
+*******************************************************************************
+PATCH1   DC.B      'COPYRIGHT 1983'
+         DC.B      'DIGITAL RESEARCH'
+PATCH2   DC.B      '010282'
+         DC.B      'XXXX-'
+         DC.B      '0000-'
+         DC.B      '654321'
+*
+*******************************************************************************
+*******************************************************************************
+*         DEFINITION OF DATA AREA
+*******************************************************************************
+         SECTION   7
+STACK    DS.L      300                 /* STACK AREA OF S-PL/H
+RMA      DS.B      144                 /* S-PL/H RUN TIME MAINTENANCE AREA
+*******************************************************************************
+MAXB     DS.L      1                   /* TOP ADDR OF TPA
+MEMSIZE  EQU       MAXB                /* SAME AS MAXB
+FCB16    DS.B      36                  /* 2-nd PARSED FCB OF COMMAND LINE
+FCB      DS.B      36                  /* 1-st PARSED FCB OF COMMAND LINE
+BUFF     DS.B      128                 /* COMMAND LINE TAIL AND DMA BUFF
+TBUFF    EQU       BUFF                /* SAME AS BUFF
+RTNCCP   DS.L      1                   /* RETURN ADDR TO CCP
+SBASEP   DS.L      1                   /* POINTER TO BASE PASE
+MEMORY   DS.L      1                   /* MEMORY ARRAY
+*
+*******************************************************************************
+*
+         END       .SMAIN
+ 
+