1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-22 16:34:15 +00:00
C02/test/structs.c02
2018-07-30 13:03:54 -04:00

47 lines
910 B
Plaintext

/* Test C02 define directive */
#pragma origin 1000
char d, i;
char index, name[8], data[128];
//Define Structure
struct record {
char name[8];
char index;
char data[128];
};
//Declare Structure Variable
struct record rec;
//Display Structure Info
printf(@rec,"@rec=%d\n");
printf(?rec.name,"?rec.name=%d\t");
printf(@rec.name,"@rec.name=%d\n");
printf(?rec.index,"?rec.index=%d\t");
printf(@rec.index,"@rec.index=%d\n");
printf(?rec.data,"?rec.data=%d\t");
printf(@rec.data,"@rec.data=%d\n");
//Set Structure Members
strdst(&rec.name); strcpy(name);
rec.index = index;
for (i = 0; i<=128; i++)
rec.data[i] = d;
//Pass Entire Structure into Function
blkput(@rec, &rec);
//Copy Struct Member
memdst(&data); memcpy(@rec.data, &rec.data);
//Get Structure Members
index = rec.index;
for (i = 0; i<129; i++)
d = rec.data[i];
//Treat Structure Like an Array
for (i = 0; i<140; i++)
d = rec[i];