mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-22 01:31:33 +00:00
134 lines
3.0 KiB
Plaintext
134 lines
3.0 KiB
Plaintext
/***********(((************************
|
|
* FILETEST - Test/Demo Module fileio *
|
|
**************************************/
|
|
|
|
//Specify System Header using -H option
|
|
#include <screen.h02>
|
|
#include <stddef.h02>
|
|
#include <stdlib.h02>
|
|
#include <intlib.h02>
|
|
#include <stdio.h02>
|
|
#include <stdiox.h02>
|
|
#include <string.h02>
|
|
#include <memory.h02>
|
|
#include <fileio.h02>
|
|
|
|
const char txtfil = "TESTFILE.TXT";
|
|
const char savfil = "SAVEFILE.TXT";
|
|
char fp; //Text File Pointer
|
|
char err; //Error Code
|
|
char c; //Character Read from File
|
|
char i; //Loop Index Variable
|
|
char n; //Number of Characters to Write
|
|
int addr; //End Address for load()
|
|
char l[255]; //Array for load()
|
|
char r[255]; //Array for fread()
|
|
char s[128]; //String for fgets()
|
|
const char save = "ZYXWVUTSRQPONMLKJIHGFEDCBA9876543210";
|
|
const char bnry = "ZYW1XVU2TS3RQ4PO5NM6LKJI7HG8FED9CBA0";
|
|
char aa,xx,yy,zz; //Function Arguments
|
|
|
|
main:
|
|
clrscr();
|
|
fsinit(); //Initialize File System
|
|
fp = opnfil(#MWRITE, &txtfil);
|
|
if (fp) {
|
|
printf(fp, "WRITING TO CHANNEL %d%n");
|
|
wstrng(fp); //Test fputs()
|
|
wbnry(fp); //Test fwrite()
|
|
wchars(fp); //Test fputc()
|
|
}
|
|
sfile(0, &savfil);
|
|
clsfil(fp);
|
|
|
|
fp = opnfil(#MREAD, &txtfil);
|
|
if (fp) {
|
|
printf(fp, "READING CHANNEL %d%n");
|
|
rstrng(fp);
|
|
rbnry(fp);
|
|
rchars(fp);
|
|
}
|
|
clsfil(fp);
|
|
lfile(#MABSLT, &savfil); //Test fload()
|
|
|
|
goto exit;
|
|
|
|
void error(aa, yy, xx) {
|
|
printf();
|
|
goto exit;
|
|
}
|
|
|
|
void opnfil(aa,yy,xx) {
|
|
puts("OPENING "); puts(.,yy,xx);
|
|
printf(aa, " WITH OPTIONS $%h%n");
|
|
aa, yy = fopen(aa,yy,xx);
|
|
if (aa) printf(aa,"OPENED ON CHANNEL %d%n");
|
|
else error(yy, "ERROR %d OPENING FILE%n");
|
|
return aa;
|
|
}
|
|
|
|
void wbnry(aa) {
|
|
fsaddr(&bnry);
|
|
n, err = fwrite(@bnry, aa);
|
|
if (err) printf(err, "ERROR %d%n");
|
|
}
|
|
|
|
void wchars(aa) {
|
|
for (i='0'; i<='Z'; i++) {fputc(i, aa);}
|
|
}
|
|
|
|
void wstrng(aa) {
|
|
fputs(aa, "THE QUICK BROWN FOX ");
|
|
fputln(aa, "JUMPED OVER THE LAZY DOG");
|
|
}
|
|
|
|
void sfile(aa, yy, xx) {
|
|
setdst(); printf("SAVING FILE %s%n");
|
|
setdst(&save); printf("START ADDRESS %w%n");
|
|
setdst(&bnry); printf("END ADDRESS %w%n");
|
|
fsname(.,yy,xx); //Set Filename
|
|
fsaddr(&save); //Set Start Address
|
|
err, addr = fsave(aa, &bnry);
|
|
if (err) printf(err, "ERROR %d%n");
|
|
else putln("FILE SAVED");
|
|
}
|
|
|
|
void rbnry(aa) {
|
|
fsaddr(&r);
|
|
n, err = fread(@bnry, aa);
|
|
if (err) printf(err, "ERROR %d%n");
|
|
else putln(&r);
|
|
}
|
|
|
|
void lfile(aa, yy, xx) {
|
|
setdst(); printf("LOADING FILE %s%n");
|
|
memclr(255, &l); printf("START ADDRESS %w%n");
|
|
fsname(.,yy,xx); //Set Filename
|
|
fsaddr(&l); //Set Load Address
|
|
err, addr = fload(aa);
|
|
if (err) printf(err, "ERROR %d%n");
|
|
else {
|
|
setdst(addr); printf("END ADDRESS %w%n");
|
|
putln(&l);
|
|
}
|
|
}
|
|
|
|
void rchars(aa) {
|
|
while(!feof(aa)) {
|
|
c, err = fgetc(aa); if (err) break;
|
|
putc(c);
|
|
}
|
|
newlin();
|
|
}
|
|
|
|
void rstrng(aa) {
|
|
n, err = fgets(aa, &s);
|
|
if (err) printf(err, "ERROR %d%n");
|
|
else puts(&s);
|
|
}
|
|
|
|
void clsfil(aa) {
|
|
printf(aa, "CLOSING CHANNEL %d%n");
|
|
fclose(aa);
|
|
}
|