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

4
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/al40/test/Buildfile Normal file
View File

@@ -0,0 +1,4 @@
c68 -S test.c
as68 -u -p test.s > test.asmlist
c68 -S test2.c
as68 -u -p test2.s > test2.asmlist

60
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/al40/test/fptest.c Normal file
View File

@@ -0,0 +1,60 @@
#include <math.h>
float *f1();
float f2();
struct type {
float ft;
double dt;
float *pft;
} fstruc;
char *fstr = "-2.3E-4";
char *astr = "8.6324";
main()
{
double d;
float f, *fp;
char *s, buf[20];
long l;
int i;
if ((fp = f1()) != fstruc.pft) error(0xf1);
if ((f = f2()) != 2.0) error(0xf2);
d = f;
if (d != f) error(0xf3);
f = atof(fstr);
s = ftoa(f,buf,6);
if (strcmp(s,"-0.000230") != 0) error(0xf4);
f = 3.4;
l = f;
if (l != 3L) error(0xf5);
i = f;
if (i != 3) error(0xf6);
f = l;
if (f < 3.0) error(0xf7);
f = i;
if (f < 3.0) error(0xf8);
f = atof(astr);
printf("%s ==> ~ %f or %e\n",astr,f,f);
printf("Far Freaking Out....\n");
}
float *
f1()
{
return(fstruc.pft);
}
float
f2()
{
return(2.0);
}
error(enum)
int enum;
{
printf("%x\n",enum);
}

4026
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/al40/test/test.asm Normal file
View File

File diff suppressed because it is too large Load Diff

4660
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/al40/test/test.asmlist Normal file
View File

File diff suppressed because it is too large Load Diff

1117
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/al40/test/test.c Normal file
View File

File diff suppressed because it is too large Load Diff

1
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/al40/test/test.h Normal file
View File

@@ -0,0 +1 @@
#define test2x

1031
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/al40/test/test2.asm Normal file
View File

File diff suppressed because it is too large Load Diff

1124
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/al40/test/test2.asmlist Normal file
View File

File diff suppressed because it is too large Load Diff

285
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/al40/test/test2.c Normal file
View File

@@ -0,0 +1,285 @@
/* Compiler Test Program Part II - version 4.0 plus */
struct lbits {
unsigned b1 : 4;
unsigned b2 : 12;
} low;
struct hbits {
unsigned b1 : 12;
unsigned b2 : 4;
} high;
int err;
int globali = -32768;
unsigned globalu = 44000;
main()
{
l_vs_i();
rl_vs_i();
l_vs_ri();
rl_vs_ri();
v41();
if (!err)
printf("Far Freaking Out\n");
else
printf("Tough Luck.....\n");
}
l_vs_i() /* longs versus ints... v. 4.0 addition */
{
long autol, autol1;
int i;
i = 3;
autol = autol1 = 100;
autol1 *= i;
autol =autol * i;
if (autol1 != autol) error(0x00);
autol = autol1 = 100;
autol1 /= i;
autol =autol / i;
if (autol1 != autol) error(0x01);
autol = autol1 = 100;
autol1 += i;
autol =autol + i;
if (autol1 != autol) error(0x02);
autol = autol1 = 100;
autol1 -= i;
autol =autol - i;
if (autol1 != autol) error(0x03);
autol = autol1 = 100;
autol1 %= i;
autol =autol % i;
if (autol1 != autol) error(0x04);
autol = autol1 = 100;
autol1 =<< i;
autol =autol << i;
if (autol1 != autol) error(0x05);
autol = autol1 = 100;
autol1 =>> i;
autol =autol >> i;
if (autol1 != autol) error(0x06);
autol = autol1 = 100;
autol1 &= i;
autol =autol & i;
if (autol1 != autol) error(0x07);
autol = autol1 = 100;
autol1 |= i;
autol =autol | i;
if (autol1 != autol) error(0x08);
autol = autol1 = 100;
autol1 ^= i;
autol =autol ^ i;
if (autol1 != autol) error(0x09);
}
rl_vs_i() /* register longs versus ints... v. 4.0 addition */
{
register long regl, regl1;
int i;
i = 3;
regl = regl1 = 100;
regl1 *= i;
regl = regl * i;
if (regl1 != regl) error(0x10);
regl = regl1 = 100;
regl1 /= i;
regl = regl / i;
if (regl1 != regl) error(0x11);
regl = regl1 = 100;
regl1 += i;
regl = regl + i;
if (regl1 != regl) error(0x12);
regl = regl1 = 100;
regl1 -= i;
regl = regl - i;
if (regl1 != regl) error(0x13);
regl = regl1 = 100;
regl1 %= i;
regl = regl % i;
if (regl1 != regl) error(0x14);
regl = regl1 = 100;
regl1 =<< i;
regl = regl << i;
if (regl1 != regl) error(0x15);
regl = regl1 = 100;
regl1 =>> i;
regl = regl >> i;
if (regl1 != regl) error(0x16);
regl = regl1 = 100;
regl1 &= i;
regl = regl & i;
if (regl1 != regl) error(0x17);
regl = regl1 = 100;
regl1 |= i;
regl = regl | i;
if (regl1 != regl) error(0x18);
regl = regl1 = 100;
regl1 ^= i;
regl = regl ^ i;
if (regl1 != regl) error(0x19);
}
l_vs_ri() /* longs versus register ints... v. 4.0 addition */
{
long autol, autol1;
register int i;
i = 2;
autol = autol1 = 100;
autol1 *= i;
autol =autol * i;
if (autol1 != autol) error(0x20);
autol = autol1 = 100;
autol1 /= i;
autol =autol / i;
if (autol1 != autol) error(0x21);
autol = autol1 = 100;
autol1 += i;
autol =autol + i;
if (autol1 != autol) error(0x22);
autol = autol1 = 100;
autol1 -= i;
autol =autol - i;
if (autol1 != autol) error(0x23);
autol = autol1 = 100;
autol1 %= i;
autol =autol % i;
if (autol1 != autol) error(0x24);
autol = autol1 = 100;
autol1 =<< i;
autol =autol << i;
if (autol1 != autol) error(0x25);
autol = autol1 = 100;
autol1 =>> i;
autol =autol >> i;
if (autol1 != autol) error(0x26);
autol = autol1 = 100;
autol1 &= i;
autol =autol & i;
if (autol1 != autol) error(0x27);
autol = autol1 = 100;
autol1 |= i;
autol =autol | i;
if (autol1 != autol) error(0x28);
autol = autol1 = 100;
autol1 ^= i;
autol =autol ^ i;
if (autol1 != autol) error(0x29);
}
rl_vs_ri() /* reg longs versus reg ints... v. 4.0 addition */
{
register long regl, regl1;
register int i;
i = 3;
regl = regl1 = 100;
regl1 *= i;
regl = regl * i;
if (regl1 != regl) error(0x30);
regl = regl1 = 100;
regl1 /= i;
regl = regl / i;
if (regl1 != regl) error(0x31);
regl = regl1 = 100;
regl1 += i;
regl = regl + i;
if (regl1 != regl) error(0x32);
regl = regl1 = 100;
regl1 -= i;
regl = regl - i;
if (regl1 != regl) error(0x33);
regl = regl1 = 100;
regl1 %= i;
regl = regl % i;
if (regl1 != regl) error(0x34);
regl = regl1 = 100;
regl1 =<< i;
regl = regl << i;
if (regl1 != regl) error(0x35);
regl = regl1 = 100;
regl1 =>> i;
regl = regl >> i;
if (regl1 != regl) error(0x36);
regl = regl1 = 100;
regl1 &= i;
regl = regl & i;
if (regl1 != regl) error(0x37);
regl = regl1 = 100;
regl1 |= i;
regl = regl | i;
if (regl1 != regl) error(0x38);
regl = regl1 = 100;
regl1 ^= i;
regl = regl ^ i;
if (regl1 != regl) error(0x39);
}
v41() /* 4.1 fixed and tested */
{
long l, l1;
/* bit assignments */
low.b1 = high.b2;
high.b1 = low.b2;
l = l1 = 45L;
/* non-code-generating simple expressions */
l =* 1L;
if (l != l1) error(0x40);
l =+ 0L;
if (l != l1) error(0x41);
l =- 0L;
if (l != l1) error(0x42);
l =* 0L;
if (l != 0L) error(0x43);
l1 =% 1L;
if (l1 != 0L) error(0x44);
}
error(pc)
{
printf("error %x\n",pc);
err++;
}