1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-22 16:34:15 +00:00
C02/py65/testiox.c02

96 lines
1.3 KiB
Plaintext
Raw Normal View History

/***********************************************
* TESTIOX - Test Library stdiox.h for py65mon *
***********************************************/
#include <py65.h02>
2018-07-27 18:11:39 +00:00
#include <stddef.h02>
#include <stdlib.h02>
#include <stdio.h02>
#include <stdiox.h02>
2018-07-30 00:40:31 +00:00
char c, i, j;
2019-03-22 23:32:08 +00:00
const char s = "string";
main:
2018-07-27 18:11:39 +00:00
getcpr("Press any key to begin...");
i = 0;
putln("prtdec()");
do {
putdec(i);
putc(':');
i++;
if (!i&15) newlin();
} while (i);
anykey();
putln("prtdel()");
do {
putdel(i);
putc(':');
i++;
if (!i&15) newlin();
} while (i);
anykey();
putln("prtder()");
do {
putder(i);
putc(':');
i++;
if (!i&15) newlin();
} while (i);
anykey();
2018-07-30 00:40:31 +00:00
putln("prthex()");
do {
2018-07-30 00:40:31 +00:00
puthex(i);
putc(':');
i++;
2018-07-30 00:40:31 +00:00
if (!i&15) newlin();
} while (i);
anykey();
2019-03-22 23:32:08 +00:00
putln("prtbin()");
do {
putbin(i);
putc(':');
i++;
if (!i&7) newlin();
} while (i);
anykey();
2018-07-30 00:40:31 +00:00
putln("prtwrd()");
do {
j = i ^ $FF;
putwrd(*,i,j);
putc(':');
i++;
if (!i&15) newlin();
} while (i);
anykey();
do {
pfchar(i); putc($09); pfchar(i+16); newlin();
i++; if (!i&15) {i = i + 16; anykey(); }
} while (i<128);
2018-07-19 04:27:50 +00:00
setdst(&s);
printf("S=\"%s\"");
newlin();
2018-07-30 00:40:31 +00:00
setdst(&$1234);
printf("&$1234=%w");
newlin();
done:
goto exit;
2018-07-30 00:40:31 +00:00
void pfchar(c) {
2019-03-22 23:32:08 +00:00
if (c<32) printf(c," B='%b' H='%h' R='%r' L='%l' D='%d'");
else printf(c,"C='%c' B= '%b' H='%h' R='%r' L='%l' D='%d'");
2018-07-30 00:40:31 +00:00
}