1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#include <stdio.h>
#define u8 unsigned char
#define u16 unsigned short
extern u8 A, X, Y, S, tmp; /* tmp is result for cmp/cpx/cpy */
extern u8 mem[1 << 16]; /* 64K */
extern u8 *stack; /* page 1 */
extern unsigned int wtmp; /* wide temporary for adc/sbc */
extern u8 CF, ZF, NF; /* flags should really be a bitfield, *shrug* */
extern void dump_state(void);
extern void dump_mem(int start, int end);
#define dump_zp() dump_mem(0, 0xff);
#define dump_stack() dump_mem(0x100, 0x1ff);
#define dump_page(x) dump_mem(x * 0x100, x * 0x100 + 0x1ff);
#define _ind_y(x) mem[Y + (mem[x] | (mem[x+1] << 8))]
#define setnz(x) ZF=!x; NF=(x&0x80)!=0;
#define pha() stack[S--] = A;
#define pla() A = stack[++S]; setnz(A);
#define php() stack[S--] = (NF<<7 | ZF<<1 | CF);
#define plp() tmp = stack[++S]; NF=(tmp&0x80)!=0 ; ZF=(tmp&0x02)!=0; CF=tmp&0x01;
#define lda_i(x) A=x; setnz(A);
#define ldy_i(x) Y=x; setnz(Y);
#define ldx_i(x) X=x; setnz(X);
#define lda(x) A=mem[x]; setnz(A);
#define ldx(x) X=mem[x]; setnz(X);
#define ldy(x) Y=mem[x]; setnz(Y);
#define lda_abs_x(x) A=mem[x+X]; setnz(A);
#define lda_abs_y(x) A=mem[x+Y]; setnz(A);
#define lda_ind_y(x) A=_ind_y(x); setnz(A);
#define sta(x) mem[x] = A;
#define sta_abs_x(x) mem[x + X] = A;
#define sta_abs_y(x) mem[x + Y] = A;
#define sta_ind_y(x) _ind_y(x) = A;
#define stx(x) mem[x] = X;
#define sty(x) mem[x] = Y;
#define sec() CF=1;
#define clc() CF=0;
#define tax() X=A; setnz(X);
#define tay() Y=A; setnz(Y);
#define txa() A=X; setnz(A);
#define tya() A=Y; setnz(A);
#define txs() S=X; setnz(S);
/* note: tsx doesn't affect flags */
#define tsx() X=S;
#define _ror(x) tmp=x&1; x>>=1; x|=(CF<<7); CF=tmp; setnz(x);
#define _rol(x) tmp=(x&0x80)!=0; x<<=1; x|=CF; CF=tmp; setnz(x);
#define ror_a() _ror(A);
#define rol_a() _rol(A);
#define ror(x) _ror(mem[x]);
#define rol(x) _rol(mem[x]);
#define _lsr(x) CF=x&1; x>>=1; setnz(x);
#define _asl(x) CF=(x&0x80)!=0; x<<=1; setnz(x);
#define lsr_a() _lsr(A);
#define asl_a() _asl(A);
#define lsr(x) _lsr(mem[x]);
#define asl(x) _asl(mem[x]);
#define inx() X++; setnz(X);
#define iny() Y++; setnz(Y);
#define dex() X--; setnz(X);
#define dey() Y--; setnz(Y);
#define inc(x) mem[x]++; setnz(mem[x]);
#define dec(x) mem[x]--; setnz(mem[x]);
#define jsr(x) x();
#define rts() return;
#define jmp(x) goto x;
#define bne(x) if(!ZF) goto x;
#define beq(x) if(ZF) goto x;
#define bcc(x) if(!CF) goto x;
#define bcs(x) if(CF) goto x;
#define bpl(x) if(!NF) goto x;
#define bmi(x) if(NF) goto x;
#define ora_i(x) A|=x; setnz(A);
#define ora(x) A|=mem[x]; setnz(A);
#define and_i(x) A&=x; setnz(A);
#define and(x) A&=mem[x]; setnz(A);
#define and_abx_x(x) A&=mem[x+X]; setnz(A);
#define and_abs_y(x) A&=mem[x+Y]; setnz(A);
#define and_ind_y(x) A&=_ind_y(x); setnz(A);
#define eor_i(x) A^=x; setnz(A);
#define eor(x) A^=mem[x]; setnz(A);
#define adc_i(x) wtmp=A+x+CF; A=wtmp&0xff; CF=(wtmp&0x100)!=0; setnz(A);
#define adc(x) adc_i(mem[x]);
#define adc_abs_x(x) adc_i(mem[x+X]);
#define adc_abs_y(x) adc_i(mem[x+Y]);
#define adc_ind_y(x) adc_i(_ind_y(x));
/* TODO: actually check this logic! */
#define _sub(dst,orig,c,operand) wtmp=orig+(operand^0xff)+c; dst=wtmp&0xff; CF=(wtmp&0x100)!=0; setnz(dst);
#define sbc_i(x) _sub(A,A,CF,x)
#define sbc(x) _sub(A,A,CF,mem[x])
#define cmp_i(x) _sub(tmp,A,1,x)
#define cpy_i(x) _sub(tmp,Y,1,x)
#define cpx_i(x) _sub(tmp,X,1,x)
#define cmp(x) cmp_i(mem[x])
#define cmp_abs_x(x) cmp_i(mem[x+X])
#define cpy(x) cpy_i(mem[x])
#define cpx(x) cpx_i(mem[x])
#define nop() {}
/* this should produce a compile error instead */
// #define brk() nop()
|
