mirror of
https://github.com/Russell-S-Harper/COMMON.git
synced 2024-11-21 20:31:02 +00:00
126 lines
3.1 KiB
C
126 lines
3.1 KiB
C
#include <stdint.h>
|
|
#include <stdio.h>
|
|
#include "emulator.h"
|
|
|
|
/* Register I6 maintains common status */
|
|
#define _R0 0xb0
|
|
#define _R8 0xd0
|
|
#define _I0 0xd8
|
|
#define _I6 0xf0
|
|
#define _I7 0xf4
|
|
#define _I8 0xf8
|
|
|
|
/* (dd cc bb aa) aa: index for register stack RS / ccbb: program counter PC / dd: flags F UONPZLGE */
|
|
#define _RSI _I6 /* register stack index */
|
|
#define _PCL _RSI + 1 /* program counter low */
|
|
#define _PCH _PCL + 1 /* program counter high */
|
|
#define _F _PCH + 1 /* flags */
|
|
#define _PC _PCL /* program counter */
|
|
|
|
/* register I7 maintains locations of allocated */
|
|
#define _ARLL _I7 /* allocated low and high bytes */
|
|
#define _ARLH _ARLL + 1
|
|
#define _ARUL _ARLH + 1 /* allocated upper limit */
|
|
#define _ARUH _ARUL + 1
|
|
#define _AR _ARLL /* allocated memory address */
|
|
|
|
/* section modifiers */
|
|
#define _SM_FXD 0x01
|
|
#define _SM_RLC 0x02
|
|
#define _SM_CD 0x04
|
|
#define _SM_DT 0x08
|
|
|
|
/* section identifiers */
|
|
#define _RLC_CD _SM_RLC + _SM_CD /* relocatable code */
|
|
#define _RLC_DT _SM_RLC + _SM_DT /* relocatable data */
|
|
|
|
uint8_t memory[65536];
|
|
|
|
uint8_t read6502(uint16_t address) {
|
|
return memory[address];
|
|
}
|
|
|
|
void write6502(uint16_t address, uint8_t value) {
|
|
memory[address] = value;
|
|
}
|
|
|
|
void hook() {
|
|
int i, j;
|
|
|
|
printf("\n%04x %u %u\n", pc, instructions, clockticks6502);
|
|
for (i = _R0; i < _R8; i += 4) {
|
|
printf("R%d: ", (i - _R0) / 4);
|
|
for (j = 0; j < 4; ++j)
|
|
printf("%02x ", memory[i + j]);
|
|
if (((i - _R0) / 4) % 4 == 3)
|
|
printf("\n");
|
|
}
|
|
for (i = _I0; i < _I8; i += 4) {
|
|
printf("I%d: ", (i - _I0) / 4);
|
|
for (j = 0; j < 4; ++j)
|
|
printf("%02x ", memory[i + j]);
|
|
if (((i - _I0) / 4) % 4 == 3)
|
|
printf("\n");
|
|
}
|
|
}
|
|
|
|
int main() {
|
|
|
|
uint8_t header[5];
|
|
/* where to start relocatables */
|
|
uint16_t index = 0x0600;
|
|
|
|
while (fread(header, sizeof(header), 1, stdin))
|
|
{
|
|
uint8_t type = header[0];
|
|
uint16_t entity = header[1] + (header[2] << 8);
|
|
uint16_t length = header[3] + (header[4] << 8);
|
|
|
|
printf("\n%x %04x %u\n", type, entity, length);
|
|
|
|
switch (type) {
|
|
case _SM_FXD: /* fixed code or data */
|
|
/* entity is the address, length is the length of the code or data */
|
|
fread(memory + entity, length, 1, stdin);
|
|
break;
|
|
|
|
case _RLC_CD: /* relocatable code */
|
|
/* entity is the starting offset, length is the length of code */
|
|
if (fread(memory + index, length, 1, stdin)) {
|
|
/* offset the starting address */
|
|
entity += index;
|
|
/* save the starting address */
|
|
memory[_PCL] = entity & 0xff;
|
|
memory[_PCH] = entity >> 8;
|
|
/* advance to the end of the section */
|
|
index += length;
|
|
}
|
|
break;
|
|
|
|
case _RLC_DT: /* relocatable data */
|
|
/* entity is the length of zeroed data, length is the length of preset data */
|
|
if (fread(memory + index, length, 1, stdin)) {
|
|
/* save the start of the data */
|
|
memory[_ARLL] = index & 0xff;
|
|
memory[_ARLH] = index >> 8;
|
|
/* advance to the end of the section */
|
|
index += entity + length;
|
|
/* save the end of the data */
|
|
memory[_ARUL] = index & 0xff;
|
|
memory[_ARUH] = index >> 8;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
hookexternal(hook);
|
|
|
|
reset6502();
|
|
|
|
do
|
|
step6502();
|
|
while (memory[pc]);
|
|
|
|
return 0;
|
|
}
|