mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-25 21:33:44 +00:00
25 lines
338 B
Plaintext
25 lines
338 B
Plaintext
|
/* C02 Apple II Test Program */
|
||
|
|
|
||
|
|
#include <appl2std.h02>
|
||
|
|
|
||
|
|
char h,i;
|
||
|
|
|
||
|
|
main:
|
||
|
|
prchr(' ');
|
||
|
|
for (i=0; i<16; i++)
|
||
|
|
prhex(i);
|
||
|
|
h=0; i=0;
|
||
|
|
do {
|
||
|
|
if (!i&15) {
|
||
|
|
newlin();
|
||
|
|
prhex(h);
|
||
|
|
h++;
|
||
|
|
prchr(' ');
|
||
|
|
}
|
||
|
|
if (i&$F0==$80) echo($A0);
|
||
|
|
else echo(i);
|
||
|
|
i++;
|
||
|
|
} while(i);
|
||
|
|
goto exit;
|
||
|
|
|