mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-06-28 19:29:39 +00:00
35 lines
566 B
Plaintext
35 lines
566 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;
|
||
|
|
||
|
//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
|
||
|
blkadd(&rec);
|
||
|
|
||
|
//Get Structure Members
|
||
|
index = rec.index;
|
||
|
for (i = 0; i<129; i++)
|
||
|
d = rec.data[i];
|
||
|
|
||
|
//Treat Structure Like and Array
|
||
|
for (i = 0; i<140; i++)
|
||
|
d = rec[i];
|