folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

test sets
Some checks are pending
Build / cmake-builds (push) Waiting to run
Details
Build / makefile (macos-latest, besm6 imlac tt2500 microvax3900 microvax1 rtvax1000 vaxstation3100m76 vaxstation4000m60) (push) Waiting to run
Details
Build / makefile (macos-latest, id16 id32 sds lgp h316 cdc1700 swtp6800mp-a swtp6800mp-a2 tx-0 ssem b5500 sage pdq3 alpha) (push) Waiting to run
Details
Build / makefile (macos-latest, microvax2 vax730 vax750 vax780 vax8200 vax8600 microvax2000 infoserver100 infoserver150vxt microvax3100 microvax3100e vaxstation3100m30 vaxstation3100m38) (push) Waiting to run
Details
Build / makefile (macos-latest, microvax3100m80 vaxstation4000vlc infoserver1000 nova eclipse hp2100 hp3000 i1401 i1620 s3 altair altairz80 gri i7094) (push) Waiting to run
Details
Build / makefile (macos-latest, pdp1 pdp4 pdp6 pdp7 pdp8 pdp9 pdp10 pdp10-ka pdp10-ki pdp10-kl pdp10-ks pdp11 pdp15 vax) (push) Waiting to run
Details
Build / makefile (macos-latest, scelbi 3b2 i701 i704 i7010 i7070 i7080 i7090 sigma uc15 i650 sel32 intel-mds ibm1130) (push) Waiting to run
Details
Build / makefile (ubuntu-latest, besm6 imlac tt2500 microvax3900 microvax1 rtvax1000 vaxstation3100m76 vaxstation4000m60) (push) Waiting to run
Details
Build / makefile (ubuntu-latest, id16 id32 sds lgp h316 cdc1700 swtp6800mp-a swtp6800mp-a2 tx-0 ssem b5500 sage pdq3 alpha) (push) Waiting to run
Details
Build / makefile (ubuntu-latest, microvax2 vax730 vax750 vax780 vax8200 vax8600 microvax2000 infoserver100 infoserver150vxt microvax3100 microvax3100e vaxstation3100m30 vaxstation3100m38) (push) Waiting to run
Details
Build / makefile (ubuntu-latest, microvax3100m80 vaxstation4000vlc infoserver1000 nova eclipse hp2100 hp3000 i1401 i1620 s3 altair altairz80 gri i7094) (push) Waiting to run
Details
Build / makefile (ubuntu-latest, pdp1 pdp4 pdp6 pdp7 pdp8 pdp9 pdp10 pdp10-ka pdp10-ki pdp10-kl pdp10-ks pdp11 pdp15 vax) (push) Waiting to run
Details
Build / makefile (ubuntu-latest, scelbi 3b2 i701 i704 i7010 i7070 i7080 i7090 sigma uc15 i650 sel32 intel-mds ibm1130) (push) Waiting to run
Details

Browse source
This commit is contained in:
Folkert van Heusden 2025-04-04 00:20:11 +02:00
parent ed4e54939b
commit 2283367549
Signed by untrusted user who does not match committer: folkert
GPG key ID: 6B6455EDFEED3BD1
1 changed files with 163 additions and 89 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

252
PDP11/test.c
View file

@ -18,6 +18,152 @@ extern t_stat cpu_reset(DEVICE *dptr);
extern DEVICE cpu_dev;
extern int32 STACKFILE[4];
struct mem_t {
uint32_t addr;
uint16_t value;
};
json_t *generate_test(uint16_t instruction, int *const id, struct mem_t *mem, size_t n_mem)
{
json_t *before = json_object();
reset_all(0);
cpu_reset(&cpu_dev);
json_object_set(before, "PC", json_integer(saved_PC));
json_object_set(before, "stack-0", json_integer(STACKFILE[0]));
json_object_set(before, "stack-1", json_integer(STACKFILE[1]));
json_object_set(before, "stack-2", json_integer(STACKFILE[2]));
json_object_set(before, "stack-3", json_integer(STACKFILE[3]));
json_t *memory_i = json_array();
for(size_t i=0; i<n_mem; i++) {
char buffer[16];
json_t *put_mem_i_0 = json_object();
PWriteW(mem[i].value, mem[i].addr);
sprintf(buffer, "%06o", mem[i].addr);
json_object_set(put_mem_i_0, buffer, json_integer(mem[i].value));
json_array_append_new(memory_i, put_mem_i_0);
}
json_object_set(before, "memory", memory_i);
for(int k=0; k<6; k++) {
char name[16];
sprintf(name, "reg-%d.%d", k, 0);
json_object_set(before, name, json_integer(REGFILE[k][0]));
sprintf(name, "reg-%d.%d", k, 1);
json_object_set(before, name, json_integer(REGFILE[k][1]));
}
json_object_set(before, "PSW", json_integer(PSW));
// do
int failed = sim_instr() != 0;
json_t *after = json_object();
json_object_set(after, "PC", json_integer(saved_PC));
for(int k=0; k<6; k++) {
char name[16];
sprintf(name, "reg-%d.%d", k, 0);
json_object_set(after, name, json_integer(REGFILE[k][0]));
sprintf(name, "reg-%d.%d", k, 1);
json_object_set(after, name, json_integer(REGFILE[k][1]));
}
json_object_set(after, "PSW", json_integer(PSW));
json_object_set(after, "stack-0", json_integer(STACKFILE[0]));
json_object_set(after, "stack-1", json_integer(STACKFILE[1]));
json_object_set(after, "stack-2", json_integer(STACKFILE[2]));
json_object_set(after, "stack-3", json_integer(STACKFILE[3]));
json_t *memory_o = json_array();
json_t *get_mem_i_0 = json_object();
json_object_set(get_mem_i_0, "0100", json_integer(PReadW(0100)));
json_array_append_new(memory_o, get_mem_i_0);
json_t *get_mem_i_2 = json_object();
json_object_set(get_mem_i_2, "0102", json_integer(PReadW(0102)));
json_array_append_new(memory_o, get_mem_i_2);
json_t *get_mem_i_4 = json_object();
json_object_set(get_mem_i_4, "0104", json_integer(PReadW(0104)));
json_array_append_new(memory_o, get_mem_i_4);
json_object_set(after, "memory", memory_o);
json_t *collection = json_object();
json_object_set(collection, "id", json_integer(*id));
(*id)++;
json_object_set(collection, "before", before);
json_object_set(collection, "after", after);
if (failed) {
json_decref(collection);
return NULL;
}
return collection;
}
void init_simh()
{
reset_all(0);
cpu_reset(&cpu_dev);
}
void randomize_registers_all_values()
{
for(int k=0; k<6; k++) {
REGFILE[k][0] = rand() & 0xffff;
REGFILE[k][1] = rand() & 0xffff;
}
}
void init_stack_registers()
{
STACKFILE[0] = STACKFILE[1] = STACKFILE[2] = STACKFILE[3] = 010000;
}
void emit_branch_instructions(json_t *const target, int *const id)
{
for(int group=0; group<2; group++) {
for(int bt=0; bt<8; bt++) {
uint16_t instr = (group << 15) | (bt << 8);
for(int psw_val=0; psw_val<16; psw_val++) {
init_simh();
saved_PC = 0100;
randomize_registers_all_values();
init_stack_registers();
struct mem_t mem[1] = {
{ 0100, instr }
};
PSW = psw_val;
json_t *obj = generate_test(instr, id, mem, 1);
if (obj)
json_array_append_new(target, obj);
}
}
}
}
void produce_validation_tests()
{
json_t *out = json_array();
@ -33,6 +179,8 @@ void produce_validation_tests()
srand(123); // for reproducability
int id = 0;
#if 0
for(int i=0; i<65536; i++) {
int skip = 0;
for(int test=0; test<6; test++) {
@ -52,104 +200,30 @@ void produce_validation_tests()
if (i >= 0170000 && i <= 0177777) // FPU
continue;
json_t *before = json_object();
reset_all(0);
cpu_reset(&cpu_dev);
init_simh();
saved_PC = 0100;
json_object_set(before, "PC", json_integer(saved_PC));
for(int k=0; k<6; k++) {
REGFILE[k][0] = (rand() % 0160000) & (~1);
REGFILE[k][1] = (rand() % 0160000) & (~1);
}
STACKFILE[0] = STACKFILE[1] = STACKFILE[2] = STACKFILE[3] = 010000;
json_object_set(before, "stack-0", json_integer(STACKFILE[0]));
json_object_set(before, "stack-1", json_integer(STACKFILE[1]));
json_object_set(before, "stack-2", json_integer(STACKFILE[2]));
json_object_set(before, "stack-3", json_integer(STACKFILE[3]));
struct mem_t mem[3] = {
{ 0100, i },
{ 0102, (rand() % 0160000) & (~1) },
{ 0104, (rand() % 0160000) & (~1) },
};
json_t *memory_i = json_array();
json_t *put_mem_i_0 = json_object();
PWriteW(i, saved_PC);
json_object_set(put_mem_i_0, "0100", json_integer(i));
json_array_append_new(memory_i, put_mem_i_0);
json_t *put_mem_i_2 = json_object();
uint16_t data1 = (rand() % 0160000) & (~1);
PWriteW(data1, 0102);
json_object_set(put_mem_i_2, "0102", json_integer(data1));
json_array_append_new(memory_i, put_mem_i_2);
json_t *put_mem_i_4 = json_object();
uint16_t data2 = (rand() % 0160000) & (~1);
PWriteW(data2, 0104);
json_object_set(put_mem_i_4, "0104", json_integer(data2));
json_array_append_new(memory_i, put_mem_i_4);
json_object_set(before, "memory", memory_i);
for(int k=0; k<6; k++) {
char name[16];
sprintf(name, "reg-%d.%d", k, 0);
REGFILE[k][0] = (rand() % 0160000) & (~1);
json_object_set(before, name, json_integer(REGFILE[k][0]));
sprintf(name, "reg-%d.%d", k, 1);
REGFILE[k][1] = (rand() % 0160000) & (~1);
json_object_set(before, name, json_integer(REGFILE[k][1]));
}
// FIXME initialize PSW
json_object_set(before, "PSW", json_integer(PSW));
// do
sim_instr();
json_t *after = json_object();
json_object_set(after, "PC", json_integer(saved_PC));
for(int k=0; k<6; k++) {
char name[16];
sprintf(name, "reg-%d.%d", k, 0);
json_object_set(after, name, json_integer(REGFILE[k][0]));
sprintf(name, "reg-%d.%d", k, 1);
json_object_set(after, name, json_integer(REGFILE[k][1]));
}
json_object_set(after, "PSW", json_integer(PSW));
json_object_set(after, "stack-0", json_integer(STACKFILE[0]));
json_object_set(after, "stack-1", json_integer(STACKFILE[1]));
json_object_set(after, "stack-2", json_integer(STACKFILE[2]));
json_object_set(after, "stack-3", json_integer(STACKFILE[3]));
json_t *memory_o = json_array();
json_t *get_mem_i_0 = json_object();
json_object_set(get_mem_i_0, "0100", json_integer(PReadW(0100)));
json_array_append_new(memory_o, get_mem_i_0);
json_t *get_mem_i_2 = json_object();
json_object_set(get_mem_i_2, "0102", json_integer(PReadW(0102)));
json_array_append_new(memory_o, get_mem_i_2);
json_t *get_mem_i_4 = json_object();
json_object_set(get_mem_i_4, "0104", json_integer(PReadW(0104)));
json_array_append_new(memory_o, get_mem_i_4);
json_object_set(after, "memory", memory_o);
json_t *collection = json_object();
json_object_set(collection, "id", json_integer(i));
json_object_set(collection, "before", before);
json_object_set(collection, "after", after);
PSW = rand() & 15; // only calculation status bits
json_t *collection = generate_test(i, &id, mem, 3);
json_array_append_new(out, collection);
}
#endif
emit_branch_instructions(out, &id);
FILE *fh = fopen("testset.json", "w");
json_dumpf(out, fh, JSON_INDENT(2));