dos33fsprogs/utils/gr-sim/6502_emulate.c
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05:00

527 lines
5.8 KiB
C

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include "6502_emulate.h"
/* 128kB of RAM */
#define RAMSIZE 128*1024
unsigned char ram[RAMSIZE];
/* Registers */
unsigned char a,y,x;
unsigned short sp;
/* Flags */
unsigned int n,z,c,v;
int init_6502(void) {
a=0;
y=0;
x=0;
sp=0x1ff;
n=0; z=0; c=0; v=0;
return 0;
}
unsigned short y_indirect(unsigned char base, unsigned char y) {
unsigned short addr;
addr=(((short)(ram[base+1]))<<8) | (short)ram[base];
//if (debug) printf("Address=%x\n",addr+y);
return addr+y;
}
void clc(void) {
c=0;
}
void adc(int value) {
int temp_a;
int temp_value;
int result;
temp_a=a&0xff;
temp_value=value&0xff;
result=(temp_a+temp_value+c);
c=(result&0x100)>>8;
n=(result&0x80)>>7;
v=!!((a^result)&(value^result)&0x80);
a=result&0xff;
z=(a==0);
}
void adc_mem(int addr) {
int temp_a;
int temp_value;
int result;
temp_a=a&0xff;
temp_value=ram[addr]&0xff;
result=(temp_a+temp_value+c);
c=(result&0x100)>>8;
n=(result&0x80)>>7;
v=!!((a^result)&(temp_value^result)&0x80);
a=result&0xff;
z=(a==0);
}
void sbc(int value) {
int temp_a;
int result;
int temp_value;
temp_a=a&0xff;
temp_value=(~value)&0xff;
result=temp_a+temp_value+c;
// printf("SBC: %x - %x (%x) = %x\n",a,value,c,result);
c=(result&0x100)>>8;
n=(result&0x80)>>7;
v=!!((a^result)&((255-value)^result)&0x80);
a=result&0xff;
z=(a==0);
}
void sbc_mem(int addr) {
int temp_a;
int result;
int temp_value;
temp_a=a&0xff;
temp_value=(~ram[addr])&0xff;
result=temp_a+temp_value+c;
// printf("SBC: %x - %x (%x) = %x\n",a,value,c,result);
c=(result&0x100)>>8;
n=(result&0x80)>>7;
v=!!((a^result)&((255-ram[addr])^result)&0x80);
a=result&0xff;
z=(a==0);
}
void cmp(int value) {
int temp_a;
int temp_value;
int result;
temp_a=a&0xff;
temp_value=(~value)&0xff;
result=temp_a+temp_value+1;
c=(result&0x100)>>8;
result&=0xff;
n=(result&0x80)>>7;
z=(result==0);
}
void cpy(int value) {
int temp_y;
int temp_value;
int result;
temp_y=y&0xff;
temp_value=(~value)&0xff;
result=temp_y+temp_value+1;
c=(result&0x100)>>8;
result&=0xff;
n=(result&0x80)>>7;
z=(result==0);
}
void cpx(int value) {
int temp_x;
int temp_value;
int result;
temp_x=x&0xff;
temp_value=(~value)&0xff;
result=temp_x+temp_value+1;
c=(result&0x100)>>8;
result&=0xff;
n=(result&0x80)>>7;
z=(result==0);
}
void pha(void) {
sp--;
ram[sp]=a;
}
void pla(void) {
a=ram[sp];
sp++;
}
void lsr(void) {
int temp_a;
temp_a=a;
temp_a&=0xff;
c=temp_a&0x1;
temp_a=temp_a>>1;
a=(temp_a&0x7f); // always shift 0 into top
z=(a==0);
n=!!(a&0x80); // can this ever be 1? no?
// printf("LSR A=%x\n",a);
}
void asl(void) {
int temp_a;
temp_a=a;
temp_a&=0xff;
c=!!(temp_a&0x80);
temp_a=temp_a<<1;
a=(temp_a&0xff);
z=(a==0);
n=!!(a&0x80);
// printf("ASL A=%x\n",a);
}
void asl_mem(int addr) {
int temp_a;
temp_a=ram[addr];
temp_a&=0xff;
c=!!(temp_a&0x80);
temp_a=temp_a<<1;
ram[addr]=(temp_a&0xff);
z=(ram[addr]==0);
n=!!(ram[addr]&0x80);
// printf("ASL %x=%x\n",addr,ram[addr]);
}
void ror(void) {
int temp_a;
int old_c;
old_c=c;
temp_a=a;
temp_a&=0xff;
c=temp_a&0x1;
temp_a=temp_a>>1;
a=(temp_a&0xff);
a|=old_c<<7;
z=(a==0);
n=!!(a&0x80);
// printf("ROR A=%x\n",a);
}
void rol(void) {
int temp_a;
int old_c;
old_c=c;
temp_a=a;
temp_a&=0xff;
c=!!(temp_a&0x80);
temp_a=temp_a<<1;
a=(temp_a&0xff);
a|=old_c;
z=(a==0);
n=!!(a&0x80);
// printf("ROL A=%x\n",a);
}
void ror_mem(int addr) {
int temp_a;
int old_c;
old_c=c;
temp_a=ram[addr];
temp_a&=0xff;
c=temp_a&0x1;
temp_a=temp_a>>1;
ram[addr]=(temp_a&0xff);
ram[addr]|=old_c<<7;
z=(ram[addr]==0);
n=!!(ram[addr]&0x80);
// printf("ROR %x=%x\n",addr,ram[addr]);
}
void rol_mem(int addr) {
int temp_a;
int old_c;
old_c=c;
temp_a=ram[addr];
temp_a&=0xff;
c=!!(temp_a&0x80);
temp_a=temp_a<<1;
ram[addr]=(temp_a&0xff);
ram[addr]|=old_c;
z=(ram[addr]==0);
n=!!(ram[addr]&0x80);
// printf("ROL %x=%x\n",addr,ram[addr]);
}
void dex(void) {
x--;
z=(x==0);
n=!!(x&0x80);
}
void dey(void) {
y--;
z=(y==0);
n=!!(y&0x80);
}
void inx(void) {
x++;
z=(x==0);
n=!!(x&0x80);
}
void iny(void) {
y++;
z=(y==0);
n=!!(y&0x80);
}
void bit(int value) {
int temp_a;
temp_a=a&value;
temp_a&=0xff;
z=(temp_a==0);
n=(value&0x80);
v=(value&0x40);
}
/* a is not modified */
void bit_mem(int addr) {
int temp_a;
temp_a=a&ram[addr];
temp_a&=0xff;
z=(temp_a==0);
n=(ram[addr]&0x80);
v=(ram[addr]&0x40);
}
void lda(int addr) {
a=ram[addr];
z=(a==0);
n=!!(a&0x80);
}
void lda_const(int value) {
a=value;
z=(a==0);
n=!!(a&0x80);
}
void ldx(int addr) {
x=ram[addr];
z=(x==0);
n=!!(x&0x80);
}
void ldx_const(int value) {
x=value;
z=(x==0);
n=!!(x&0x80);
}
void ldy(int addr) {
y=ram[addr];
z=(y==0);
n=!!(y&0x80);
}
void ldy_const(int value) {
y=value;
z=(y==0);
n=!!(y&0x80);
}
void sta(int addr) {
ram[addr]=a;
}
void tax(void) {
x=a;
}
void txa(void) {
a=x;
}
void eor(int value) {
int temp_a;
int temp_value;
int result;
temp_a=a&0xff;
temp_value=value&0xff;
result=(temp_a^temp_value);
n=(result&0x80)>>7;
a=result&0xff;
z=(a==0);
}
void ora(int value) {
int temp_a;
int temp_value;
int result;
temp_a=a&0xff;
temp_value=value&0xff;
result=(temp_a|temp_value);
n=(result&0x80)>>7;
a=result&0xff;
z=(a==0);
}
void ora_mem(int addr) {
int temp_a;
int temp_value;
int result;
temp_a=a&0xff;
temp_value=ram[addr]&0xff;
result=(temp_a|temp_value);
n=(result&0x80)>>7;
a=result&0xff;
z=(a==0);
}
void and(int value) {
int temp_a;
int temp_value;
int result;
temp_a=a&0xff;
temp_value=value&0xff;
result=(temp_a&temp_value);
n=(result&0x80)>>7;
a=result&0xff;
z=(a==0);
}
unsigned char high(int value) {
return (value>>8)&0xff;
}
unsigned char low(int value) {
return (value&0xff);
}