seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-24 00:44:23 +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

199
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/newlink/lnkmess.c Normal file
View File

@@ -0,0 +1,199 @@
#include <stdio.h>
#include "link68.h"
char *errst1 = 0;
char *errst2 = 0;
long errnum1 = 0;
long errnum2 = 0;
char progname[] = PROGNAME;
extern endit();
extern int exstat;
/************************************************************************/
/* */
/* banner() -- print the sign-on message */
/* */
/************************************************************************/
banner()
{
printf("--------------------------------------------------\n");
printf("LINK68 Overlay Linker Release 0.f\n");
printf("Serial No. XXXX-0000-654321 All Rights Reserved\n");
printf("Copyright (c) 1983 Digital Research, Inc.\n");
printf("--------------------------------------------------\n\n");
}
/************************************************************************/
/* */
/* errorx(errnum, ptr) -- error processor for all modules. */
/* */
/* Does the action specified for the error number. The usual */
/* action is to print a message and exit. */
/* */
/* Any values other than those passed through the two parameters */
/* are passed in the global variables errst1, errval1, & errval2. */
/* */
/************************************************************************/
extern putarrow();
VOID
errorx(errnum, st)
int errnum; /* error number */
BYTE *st; /* usually a string, not always */
{
switch (errnum)
{
case BADCHAR:
putarrow();
printf("%s: ILLEGAL CHARACTER: '%s'\n",
progname, st);
endit(-1);
case BADSYNT:
putarrow();
printf("%s: SYNTAX ERROR, EXPECTED: %s\n",
progname, st);
endit(-1);
case CMDTRUNC:
putarrow();
printf("%s: UNEXPECTED END OF COMMAND STREAM\n", progname);
endit(-1);
case BADOPT:
putarrow();
printf("%s: UNRECOGNIZED OR MISPLACED OPTION NAME: \"%s\"\n",
progname, st);
endit(-1);
case NOROOM:
printf("%s: HEAP OVERFLOW -- NOT ENOUGH MEMORY\n");
endit(-1);
case BADNUM:
putarrow();
printf("%s: IMPROPERLY FORMED HEX NUMBER: \"%s\"\n",
progname, st);
endit(-1);
case MORECMD:
putarrow();
printf("%s: PARSE END BEFORE COMMAND STREAM END\n", progname);
endit(-1);
case BADINFIL:
printf("%s: CANNOT OPEN %s FOR INPUT\n", progname, st);
endit(-1);
case XTRACFIL:
putarrow();
printf("%s: NESTED COMMAND FILES NOT ALLOWED\n", progname);
endit(-1);
case XESSOVLS:
printf("%s: TOO MANY OVERLAYS\n", progname);
endit(-1);
case CMDLONG:
printf("%s: COMMAND LINE TOO LONG\n", progname);
endit(-1);
case OVTODEEP:
putarrow();
printf("%s: OVERLAYS NESTED TOO DEEPLY\n", progname);
endit(-1);
case DISCONTIG:
printf("%s: CANNOT SET DATA OR BSS BASE WHEN USING OVERLAYS\n",
progname);
endit(-1);
case BADOVREF:
printf("%s: ILLEGAL REFERENCE TO OVERLAY SYMBOL %s FROM MODULE %s\n",
progname, st, errst1);
exstat++;
return;
case READERR:
printf("%s: READ ERROR ON FILE: %s\n", progname, st);
endit(-1);
case FORMATERR:
printf("%s: FILE FORMAT ERROR IN %s\n", progname, st);
endit(-1);
case NORELOC:
printf("%s: NO RELOCATION BITS IN %s\n", progname, st);
endit(-1);
case BADSYMFLG:
printf("%s: INVALID SYMBOL FLAG IN %s, SYMBOL: \"%s\"\n",
progname, st, errst1);
endit(-1);
case DUPDEF:
printf("%s: \"%s\" DOUBLY DEFINED IN %s\n", progname, errst1, st);
return;
case SYMOFL:
printf("%s: SYMBOL TABLE OVERFLOW\n", progname);
endit(-1);
case BADTEMP:
printf("%s: UNABLE TO OPEN TEMPORARY FILE: %s\n", progname, st);
endit(-1);
case INTERR:
printf("%s: INTERNAL ERROR IN %s\n", progname, st);
endit(-1);
case UNDEF:
printf("%s: UNDEFINED SYMBOL(S):\n", progname);
return;
case BADOUT:
printf("%s: UNABLE TO CREATE FILE: %s\n", progname, st);
endit(-1);
case SEEKERR:
printf("%s: SEEK ERROR ON FILE: %s\n", progname, st);
endit(-1);
case SHRTOFL:
printf("%s: SHORT ADDRESS OVERFLOW AT %lx IN %s\n", progname,
errnum1, st);
return;
case TSZERR:
printf("%s: TEXT SIZE ERROR IN %s\n", progname, st);
return;
case OWRTERR:
printf("%s: WRITE ERROR ON FILE: %s\n", progname, st);
return;
case REOPNERR:
printf("%s: UNABLE TO REOPEN FILE: %s\n", progname, st);
endit(-1);
case RELADROFL:
printf("%s: RELATIVE ADDRESS OVERFLOW AT %lx IN %s\n", progname,
errnum1, st);
return;
case BADRELOC:
printf("%s: INVALID RELOCATION FLAG IN %s\n", st);
endit(-1);
default:
printf("%s: INTERNAL ERROR -- UNSPECIFIED ERROR\n", progname);
endit(-1);
}
}
/************************************************************************/
/* */
/* usage() -- prints a simple help message */
/* */
/* This routine is called if only the program name is typed */
/* */
/************************************************************************/
VOID
usage()
{
printf("USAGE: %s [options] output = file, file, ...\n\n", progname);
printf("THE OPTIONS ARE:\n\n");
printf("\tABSOLUTE\n");
printf("\tBSSBASE[hex number]\n");
printf("\tCOMMAND[filename]\n");
printf("\tCHAINED\n");
printf("\tDATABASE[hex number]\n");
printf("\tIGNORE\n");
printf("\tLOCALS\n");
/*printf("\tMAP\n");*/
printf("\tNOLOCALS\n");
printf("\tSYMBOLS\n");
printf("\tTEMPFILES[drive]\n");
printf("\tTEXTBASE[hex number]\n");
printf("\tUNDEFINED\n");
}