Apple-2-SW
/
Applerm-II
mirror of https://github.com/toyoshim/Applerm-II.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Update test.c to check Apple BASIC behaviors

This commit is contained in:
Takashi Toyoshima 2014-12-08 03:11:03 +09:00
parent 3f2daf7b08
commit 5465cc99d2
2 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -42,7 +42,7 @@ $(ROM).rom:
# Test binary that runs on qemu user mode emulation for testing
test: 6502.S test.c
$(CC) -mthumb -static $(FRAMEPTR) test.c 6502.S -o test && \
reset && qemu-arm test 2> log
qemu-arm test 2> log
# Test binary that runs on qemu user mode emulation for functional tests
ftest: 6502.S ftest.c

21
test.c
View File

@ -6,6 +6,8 @@
static uint8_t mem[0x10000];
static uint8_t key = 0x80;
static char keyString[] = "10 print \"hello\"\r20 end\rlist\rrun\r";
static uint32_t keyCount = 0;
static uint8_t last = 0x00;
void prn(int c) {
@ -53,10 +55,23 @@ uint8_t cpu6502_load(uint16_t addr) {
abort();
} else if (0xc000 <= addr & addr < 0xcfff) {
// I/O emulation.
if (0xc000 == addr)
result = key;
if (0xc010 == addr)
if (0xc000 == addr) {
keyCount++;
if (keyCount < 100000)
result = key;
else if (keyCount & 0xffff)
result = key;
else {
uint32_t n = (keyCount - 100000) >> 16;
if (n >= sizeof(keyString))
result = key;
else
result = keyString[n] | 0x80;
}
} else if (0xc010 == addr) {
key &= 0x7f;
result = 0;
}
} else {
// Installed memory.
result = mem[addr];