6502/C02
1
0
Fork 0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-16 08:04:37 +00:00
Code Issues Projects Releases Wiki Activity

Created py65/testmio.c02

Browse Source
This commit is contained in:
Curtis F Kaylor 2018-07-07 22:52:04 -04:00
parent 5c9dfd7ad1
commit 1741dd8f64
1 changed files with 56 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
py65/testmio.c02 Normal file
View File

@ -0,0 +1,56 @@
/****************************************
* TESTMIO - Test Memory File Functions *
****************************************/
#include <py65.h02>
#include <stdlib.h02>
#include <stdio.h02>
#include <stdiox.h02>
#include <memio.h02>
char zp = $80; //Zero Page Location for Memory Pointer
char lsb, msb; //Memory Pointer Contents
char passed; //Flags
char c, e, i, mp, s[128];
main:
mp = 0; //Initialize Memory Pointer
putln("Opening memory file at $8000.");
mp = mopen(zp, &$8000);
puts(" Memory pointer: ");
prbyte(mp);
if (mp == zp) pass(); else fail();
puts(" Address: ");
lsb, msb = maddr(mp);
prbyte(msb); prbyte(lsb);
passed = 1;
if (msb <> $80) passed = 0;
if (lsb <> $00) passed = 0;
if (passed) pass(); else fail();
puts(" Error? ");
e = merror(mp);
prbyte(e);
if (e) { puts(" Yes"); fail(); }
else { puts(" No "); pass(); }
newlin();
putln("Reading File using mgetc()");
do {
lsb, msb = maddr(mp);
c = mgetc(mp);
e = meof(mp);
prbyte(msb); prbyte(lsb); puts(": ");
prbyte(c); putc(' ');
if (c>' ') putc(c); else putc(' ');
puts(" EOF: "); prbyte(e); newlin();
} while (!e);
goto exit;
void pass() { putln(" Passed"); }
void fail() { putln(" Failed"); }