mirror of https://github.com/RevCurtisP/C02.git
72 lines
1.4 KiB
Plaintext
72 lines
1.4 KiB
Plaintext
/*******************************
|
|
* FUNCS - Test Function Calls *
|
|
*******************************/
|
|
|
|
//Specify System Header using -H option
|
|
#include <stddef.h02>
|
|
#include <stdlib.h02>
|
|
#include <stdio.h02>
|
|
#include <stdiox.h02>
|
|
|
|
char i; //index value
|
|
char n; //result of function call
|
|
char s[128]; //for Numeric to String conversions
|
|
char z; //Function Parameters
|
|
|
|
const char passed = " Passed.";
|
|
const char failed = " Failed.";
|
|
|
|
main:
|
|
|
|
for (i=1;i<5;i++) test(i);
|
|
putln("Testing complete.");
|
|
|
|
goto exit;
|
|
|
|
//Test Use of Variable as Parameter
|
|
void test(z) {
|
|
select(z) {
|
|
case 1: test1();
|
|
case 2: test2();
|
|
case 3: test3();
|
|
case 4: test4();
|
|
default: printf(z, "Bad test value %d\n.");
|
|
}
|
|
}
|
|
|
|
|
|
void test1() {
|
|
puts("atoc(\"1\") = ");
|
|
n = atoc("1");
|
|
prtnum(n); checkn(1);
|
|
}
|
|
|
|
void test2() {
|
|
puts("atoc(\"2\") = ");
|
|
n = atoc("2");
|
|
prtnum(n); checkn(2);
|
|
}
|
|
|
|
void test3() {
|
|
puts("atoc(\"1\") + 2 = ");
|
|
n = atoc("1") + 2;
|
|
prtnum(n); checkn(3);
|
|
}
|
|
|
|
void test4() {
|
|
puts("abs(atoc(\"255\") + 7 = ");
|
|
n = abs(atoc("255")) + 7;
|
|
prtnum(n); checkn(8);
|
|
}
|
|
|
|
|
|
//uses explicit passing of accumulator
|
|
void checkn() {if (A == n) pass(); else fail();}
|
|
|
|
//uses implicit passing of accumulator
|
|
void prtnum() {ctoa(&s); puts(&s); putc(':');}
|
|
|
|
//one more level of function calls - just because
|
|
void pass() {putln(&passed);}
|
|
void fail() {putln(&failed);}
|