ref: bafc196c4b07261923d4f197659a26d0919cdeae
dir: /sys/src/games/snes/spc.c/
#include <u.h> #include <libc.h> #include <thread.h> #include "../eui.h" #include "dat.h" #include "fns.h" u8int sA, sX, sY, sP, sS; u16int spc, scurpc; u8int spcmem[65536]; u8int spctimer[4]; static u8int ipl[64]; enum { SPCN = 1<<7, SPCV = 1<<6, SPCP = 1<<5, SPCB = 1<<4, SPCH = 1<<3, SPCI = 1<<2, SPCZ = 1<<1, SPCC = 1<<0, }; static u8int spcread(u16int p) { u8int v; if(p >= 0xffc0 && (spcmem[0xf1] & 0x80) != 0) return ipl[p - 0xffc0]; if((p & 0xfff0) == 0x00f0) switch(p){ case 0xf3: return dspread(spcmem[0xf2]); case 0xf4: case 0xf5: case 0xf6: case 0xf7: return reg[0x2140 | p & 3]; case 0xfa: case 0xfb: case 0xfc: return 0; case 0xfd: case 0xfe: case 0xff: v = spcmem[p]; spcmem[p] = 0; return v; } return spcmem[p]; } static void spcwrite(u16int p, u8int v) { if((p & 0xfff0) == 0x00f0) switch(p){ case 0xf0: if(v != 0x0a) print("SPC test register set to value %#x != 0xa\n", v); return; case 0xf1: if((v & 0x10) != 0) reg[0x2140] = reg[0x2141] = 0; if((v & 0x20) != 0) reg[0x2142] = reg[0x2143] = 0; if((spcmem[0xf1] & 1) == 0 && (v & 1) != 0) spctimer[0] = spcmem[0xfd] = 0; if((spcmem[0xf1] & 2) == 0 && (v & 2) != 0) spctimer[1] = spcmem[0xfe] = 0; if((spcmem[0xf1] & 4) == 0 && (v & 4) != 0) spctimer[2] = spcmem[0xff] = 0; break; case 0xf3: dspwrite(spcmem[0xf2], v); return; case 0xfd: case 0xfe: case 0xff: return; } spcmem[p] = v; } void spctimerstep(void) { u8int m; m = spcmem[0xf1]; if(spctimer[3] == 7){ spctimer[3] = 0; if((m & 1) != 0 && ++spctimer[0] == spcmem[0xfa]){ spctimer[0] = 0; spcmem[0xfd] = (spcmem[0xfd] + 1) & 0xf; } if((m & 2) != 0 && ++spctimer[1] == spcmem[0xfb]){ spctimer[1] = 0; spcmem[0xfe] = (spcmem[0xfe] + 1) & 0xf; } }else spctimer[3]++; if((m & 4) != 0 && ++spctimer[2] == spcmem[0xfc]){ spctimer[2] = 0; spcmem[0xff] = (spcmem[0xff] + 1) & 0xf; } } static u8int fetch8(void) { return spcread(spc++); } static u16int fetch16(void) { int a; a = fetch8(); a |= fetch8() << 8; return a; } static u16int mem16(u16int p) { int a; a = spcread(p++); a |= spcread(p) << 8; return a; } static u16int memd16(u16int p) { int a; a = spcread(p); if((p & 0xff) == 0xff) p &= ~0xff; else p++; a |= spcread(p) << 8; return a; } static void push8(u8int v) { spcwrite(0x100 | sS--, v); } static void push16(u16int v) { spcwrite(0x100 | sS--, v>>8); spcwrite(0x100 | sS--, v); } static u8int pop8(void) { return spcread(0x100 | ++sS); } static u16int pop16(void) { u16int v; v = spcread(0x100 | ++sS); v |= spcread(0x100 | ++sS) << 8; return v; } #define imm() fetch8() #define dp ((sP&SPCP)<<3) #define azp() (fetch8()|dp) #define azpX() ((u8int)(fetch8()+sX)|dp) #define azpY() ((u8int)(fetch8()+sY)|dp) #define zp() spcread(azp()) #define zpX() spcread(azpX()) #define zpY() spcread(azpY()) #define abs() spcread(fetch16()) #define absX() spcread(fetch16()+sX) #define absY() spcread(fetch16()+sY) #define indX() spcread(aindX()) #define indY() spcread(aindY()) static u16int aindX(void) { u8int r; u16int a; r = fetch8() + sX; a = spcread(r++ | dp); a |= spcread(r | dp) << 8; return a; } static u16int aindY(void) { u8int r; u16int a; r = fetch8(); a = spcread(r++ | dp) + sY; a += spcread(r | dp) << 8; return a; } static u8int nz(u8int v) { sP &= ~(SPCN|SPCZ); sP |= v & 0x80; if(v == 0) sP |= SPCZ; return v; } static void nz16(void) { sP &= ~(SPCN|SPCZ); if(sA == 0 && sY == 0) sP |= SPCZ; if(sY & 0x80) sP |= SPCN; } static int branch(int c, int n) { static char s; u16int npc; if(!c){ spc++; return n; } s = fetch8(); npc = spc + s; if(((npc ^ spc) & 0xff00) != 0) n++; spc = npc; return ++n; } static void clrb(u16int a, int b) { spcwrite(a, spcread(a) & ~(1<<b)); } static void cmp(u8int a, u8int b) { sP &= ~(SPCZ|SPCN|SPCC); if(a >= b) sP |= SPCC; if(a == b) sP |= SPCZ; if((a - b) & 0x80) sP |= SPCN; } static u8int adc(u8int a, u8int b) { u16int r; u8int r8; r8 = r = a + b + (sP & SPCC); sP &= ~(SPCC|SPCZ|SPCH|SPCV|SPCN); if(r >= 0x100) sP |= SPCC; sP |= r8 & SPCN; if((a ^ b ^ r) & 0x10) sP |= SPCH; if((~(a ^ b) & (a ^ r)) & 0x80) sP |= SPCV; if(r8 == 0) sP |= SPCZ; return r8; } static void inc(u16int a) { spcwrite(a, nz(spcread(a) + 1)); } static void jsr(u16int a) { push16(spc); spc = a; } static void asl(u16int a) { u8int v; v = spcread(a); sP &= ~SPCC; sP |= v >> 7 & 1; spcwrite(a, nz(v << 1)); } static void lsr(u16int a) { u8int v; v = spcread(a); sP &= ~SPCC; sP |= v & 1; spcwrite(a, nz(v >> 1)); } static void rol(u16int a) { u8int v, c; v = spcread(a); c = sP & SPCC; sP &= ~SPCC; sP |= v >> 7 & 1; v = v<<1 | c; spcwrite(a, nz(v)); } static void inc16(u16int a, int c) { u16int v; v = memd16(a) + c; sP &= ~(SPCN|SPCZ); if(v == 0) sP |= SPCZ; if((v & 0x8000) != 0) sP |= SPCN; spcwrite(a, v); spcwrite(a+1, v>>8); } static void ror(u16int a) { u8int v, c; v = spcread(a); c = sP & SPCC; sP &= ~SPCC; sP |= v & 1; v = v>>1 | c<<7; spcwrite(a, nz(v)); } static u8int sbc(u8int a, u8int b) { return adc(a, ~b); } static void setb(u16int a, int b) { spcwrite(a, spcread(a) | (1<<b)); } static void setnbit(u16int a, int c) { u8int v, b; b = a >> 13; v = spcread(a & 0x1fff) & ~(1<<b); if(c) v |= (1<<b); spcwrite(a & 0x1fff, v); } static void tset(u16int a, int set) { u8int v; v = spcread(a); nz(sA - v); if(set) v |= sA; else v &= ~sA; spcwrite(a, v); } static void div(void) { u32int v, x; int i; sP &= ~(SPCH|SPCV); if((sX & 0xf) <= (sY & 0xf)) sP |= SPCH; v = sA | sY << 8; x = sX << 9; for(i = 0; i < 9; i++){ v = (v << 1 | v >> 16) & 0x1ffff; if(v >= x) v ^= 1; if((v & 1) != 0) v = (v - x) & 0x1ffff; } nz(sA = v); sY = v >> 9; if((v & 0x100) != 0) sP |= SPCV; } void spcreset(void) { spcmem[0xf0] = 0x0a; spcmem[0xf1] = 0xb0; spc = spcread(0xfffe) | spcread(0xffff) << 8; } int spcstep(void) { static int ctr; u8int op, a; u16int b, c; scurpc = spc; op = fetch8(); if(trace) print("SPC %.4x %.2x A=%.2x X=%.2x Y=%.2x P=%.2x S=%.2x\n", spc-1, op, sA, sX, sY, sP, sS); switch(op){ case 0x00: return 2; case 0x01: jsr(mem16(0xffde)); return 8; case 0x02: setb(azp(), 0); return 4; case 0x03: return branch((zp() & 0x01) != 0, 5); case 0x04: nz(sA |= zp()); return 3; case 0x05: nz(sA |= abs()); return 4; case 0x06: nz(sA |= spcread(sX|dp)); return 3; case 0x07: nz(sA |= indX()); return 6; case 0x08: nz(sA |= imm()); return 2; case 0x09: b = zp(); c = azp(); spcwrite(c, nz(b | spcread(c))); return 6; case 0x0A: b = fetch16(); sP |= (spcread(b & 0x1fff) >> (b >> 13)) & 1; return 4; case 0x0B: asl(azp()); return 5; case 0x0C: asl(fetch16()); return 5; case 0x0D: push8(sP); return 4; case 0x0E: tset(fetch16(), 1); return 6; case 0x10: return branch((sP & SPCN) == 0, 2); case 0x11: jsr(mem16(0xffdc)); return 8; case 0x12: clrb(azp(), 0); return 4; case 0x13: return branch((zp() & 0x01) == 0, 5); case 0x14: nz(sA |= zpX()); return 4; case 0x15: nz(sA |= absX()); return 5; case 0x16: nz(sA |= absY()); return 5; case 0x17: nz(sA |= indY()); return 6; case 0x18: a = imm(); b = azp(); spcwrite(b, nz(spcread(b) | a)); return 5; case 0x19: spcwrite(sX|dp, nz(spcread(sX|dp) | spcread(sY|dp))); return 5; case 0x1A: inc16(azp(), -1); return 6; case 0x1B: asl(azpX()); return 5; case 0x1C: sP &= ~SPCC; sP |= sA >> 7; nz(sA <<= 1); return 2; case 0x1D: nz(--sX); return 2; case 0x1E: cmp(sX, abs()); return 4; case 0x1F: spc = mem16(fetch16() + sX); return 6; case 0x20: sP &= ~SPCP; return 2; case 0x21: jsr(mem16(0xffda)); return 8; case 0x22: setb(azp(), 1); return 4; case 0x23: return branch((zp() & 0x02) != 0, 5); case 0x24: nz(sA &= zp()); return 3; case 0x25: nz(sA &= abs()); return 4; case 0x26: nz(sA &= spcread(sX|dp)); return 3; case 0x27: nz(sA &= indX()); return 6; case 0x28: nz(sA &= imm()); return 2; case 0x29: b = zp(); c = azp(); spcwrite(c, nz(b & spcread(c))); return 6; case 0x2A: b = fetch16(); sP |= (~spcread(b & 0x1fff) >> (b >> 13)) & 1; return 4; case 0x2B: rol(azp()); return 4; case 0x2C: rol(fetch16()); return 5; case 0x2D: push8(sA); return 4; case 0x2E: return branch(sA != zp(), 5); case 0x2F: return branch(1, 2); case 0x30: return branch((sP & SPCN) != 0, 2); case 0x31: jsr(mem16(0xffd8)); return 8; case 0x32: clrb(azp(), 1); return 4; case 0x33: return branch((zp() & 0x02) == 0, 5); case 0x34: nz(sA &= zpX()); return 4; case 0x35: nz(sA &= absX()); return 5; case 0x36: nz(sA &= absY()); return 5; case 0x37: nz(sA &= indY()); return 6; case 0x38: a = imm(); b = azp(); spcwrite(b, nz(spcread(b) & a)); return 5; case 0x39: spcwrite(sX|dp, nz(spcread(sX|dp) & spcread(sY|dp))); return 5; case 0x3A: inc16(azp(), 1); return 6; case 0x3B: rol(azpX()); return 5; case 0x3C: a = sP & SPCC; sP &= ~SPCC; sP |= sA >> 7 & 1; sA = sA << 1 | a; nz(sA); return 2; case 0x3D: nz(++sX); return 2; case 0x3E: cmp(sX, zp()); return 3; case 0x3F: jsr(fetch16()); return 8; case 0x40: sP |= SPCP; return 2; case 0x41: jsr(mem16(0xffd6)); return 8; case 0x42: setb(azp(), 2); return 4; case 0x43: return branch((zp() & 0x04) != 0, 5); case 0x44: nz(sA ^= zp()); return 3; case 0x45: nz(sA ^= abs()); return 4; case 0x46: nz(sA ^= spcread(sX|dp)); return 3; case 0x47: nz(sA ^= indX()); return 6; case 0x48: nz(sA ^= imm()); return 2; case 0x49: b = zp(); c = azp(); spcwrite(c, nz(b ^ spcread(c))); return 6; case 0x4A: b = fetch16(); sP &= 0xfe | (spcread(b & 0x1fff) >> (b >> 13)) & 1; return 4; case 0x4B: lsr(azp()); return 4; case 0x4C: lsr(fetch16()); return 5; case 0x4D: push8(sX); return 4; case 0x4E: tset(fetch16(), 0); return 5; case 0x4F: jsr(0xff00 | fetch8()); return 6; case 0x50: return branch((sP & SPCV) == 0, 2); case 0x51: jsr(mem16(0xffd4)); return 8; case 0x52: clrb(azp(), 2); return 4; case 0x53: return branch((zp() & 0x04) == 0, 5); case 0x54: nz(sA ^= zpX()); return 4; case 0x55: nz(sA ^= absX()); return 5; case 0x56: nz(sA ^= absY()); return 5; case 0x57: nz(sA ^= indY()); return 6; case 0x58: a = imm(); b = azp(); spcwrite(b, nz(spcread(b) ^ a)); return 5; case 0x59: spcwrite(sX|dp, nz(spcread(sX|dp) ^ spcread(sY|dp))); return 5; case 0x5A: b = sA | sY << 8; c = memd16(azp()); sP &= ~(SPCN|SPCZ|SPCC); if(b >= c) sP |= SPCC; if(b == c) sP |= SPCZ; if(((b - c) & 0x8000) != 0) sP |= SPCN; return 4; case 0x5B: lsr(azpX()); return 4; case 0x5C: sP &= ~SPCC; sP |= sA & 1; nz(sA >>= 1); return 2; case 0x5D: nz(sX = sA); return 2; case 0x5E: cmp(sY, abs()); return 4; case 0x5F: spc = fetch16(); return 3; case 0x60: sP &= ~SPCC; return 2; case 0x61: jsr(mem16(0xffd2)); return 8; case 0x62: setb(azp(), 3); return 4; case 0x63: return branch((zp() & 0x08) != 0, 5); case 0x64: cmp(sA, zp()); return 3; case 0x65: cmp(sA, abs()); return 4; case 0x66: cmp(sA, spcread(sX|dp)); return 3; case 0x67: cmp(sA, indX()); return 6; case 0x68: cmp(sA, imm()); return 2; case 0x69: a = zp(); cmp(zp(), a); return 6; case 0x6A: b = fetch16(); sP &= ~((spcread(b & 0x1fff) >> (b >> 13)) & 1); return 4; case 0x6B: ror(azp()); return 4; case 0x6C: ror(fetch16()); return 5; case 0x6D: push8(sY); return 4; case 0x6E: b = azp(); a = spcread(b)-1; spcwrite(b, a); return branch(a != 0, 5); case 0x6F: spc = pop16(); return 5; case 0x70: return branch((sP & SPCV) != 0, 2); case 0x72: clrb(azp(), 3); return 4; case 0x71: jsr(mem16(0xffd0)); return 8; case 0x73: return branch((zp() & 0x08) == 0, 5); case 0x74: cmp(sA, zpX()); return 4; case 0x75: cmp(sA, absX()); return 5; case 0x76: cmp(sA, absY()); return 5; case 0x77: cmp(sA, indY()); return 6; case 0x78: a = imm(); cmp(zp(), a); return 5; case 0x79: cmp(spcread(sX|dp), spcread(sY|dp)); return 5; case 0x7A: b = memd16(azp()); sP &= ~SPCC; sA = adc(sA, b); sY = adc(sY, b >> 8); if(sA != 0) sP &= ~SPCZ; return 5; case 0x7B: ror(azpX()); return 5; case 0x7C: a = sP & SPCC; sP &= ~SPCC; sP |= sA & 1; sA = sA >> 1 | a << 7; nz(sA); return 2; case 0x7D: nz(sA = sX); return 2; case 0x7E: cmp(sY, zp()); return 3; case 0x7F: sP = pop8(); spc = pop16(); return 6; case 0x80: sP |= SPCC; return 2; case 0x81: jsr(mem16(0xffce)); return 8; case 0x82: setb(azp(), 4); return 4; case 0x83: return branch((zp() & 0x10) != 0, 5); case 0x84: sA = adc(sA, zp()); return 3; case 0x85: sA = adc(sA, abs()); return 4; case 0x86: sA = adc(sA, spcread(sX|dp)); return 3; case 0x87: sA = adc(sA, indX()); return 6; case 0x88: sA = adc(sA, imm()); return 2; case 0x89: b = zp(); c = azp(); spcwrite(c, adc(b, spcread(c))); return 6; case 0x8A: b = fetch16(); sP ^= (spcread(b & 0x1fff) >> (b >> 13)) & 1; return 4; case 0x8B: b = azp(); spcwrite(b, nz(spcread(b)-1)); return 4; case 0x8C: b = fetch16(); spcwrite(b, nz(spcread(b)-1)); return 4; case 0x8D: nz(sY = imm()); return 2; case 0x8E: sP = pop8(); return 2; case 0x8F: a = fetch8(); spcwrite(azp(), a); return 5; case 0x90: return branch((sP & SPCC) == 0, 2); case 0x91: jsr(mem16(0xffcc)); return 8; case 0x92: clrb(azp(), 4); return 4; case 0x93: return branch((zp() & 0x10) == 0, 5); case 0x94: sA = adc(sA, zpX()); return 4; case 0x95: sA = adc(sA, absX()); return 5; case 0x96: sA = adc(sA, absY()); return 5; case 0x97: sA = adc(sA, indY()); return 6; case 0x98: a = imm(); b = azp(); spcwrite(b, adc(spcread(b), a)); return 5; case 0x99: spcwrite(sX|dp, adc(spcread(sX|dp), spcread(sY|dp))); return 5; case 0x9A: b = memd16(azp()); sP |= SPCC; sA = sbc(sA, b); sY = sbc(sY, b >> 8); if(sA != 0) sP &= ~SPCZ; return 5; case 0x9B: b = azpX(); spcwrite(b, nz(spcread(b)-1)); return 4; case 0x9C: nz(--sA); return 2; case 0x9D: nz(sX = sS); return 2; case 0x9E: div(); return 12; case 0x9F: nz(sA = sA >> 4 | sA << 4); return 5; case 0xA0: sP |= SPCI; return 2; case 0xA1: jsr(mem16(0xffca)); return 8; case 0xA2: setb(azp(), 5); return 4; case 0xA3: return branch((zp() & 0x20) != 0, 5); case 0xA4: sA = sbc(sA, zp()); return 3; case 0xA5: sA = sbc(sA, abs()); return 4; case 0xA6: sA = sbc(sA, spcread(sX|dp)); return 3; case 0xA7: sA = sbc(sA, indX()); return 6; case 0xA8: sA = sbc(sA, imm()); return 2; case 0xA9: b = zp(); c = azp(); spcwrite(c, sbc(spcread(c), b)); return 6; case 0xAA: b = fetch16(); sP &= ~1; sP |= (spcread(b & 0x1fff) >> (b >> 13)) & 1; return 4; case 0xAB: inc(azp()); return 4; case 0xAC: inc(fetch16()); return 5; case 0xAD: cmp(sY, imm()); return 2; case 0xAE: sA = pop8(); return 2; case 0xAF: spcwrite(sX++|dp, sA); return 4; case 0xB0: return branch((sP & SPCC) != 0, 2); case 0xB1: jsr(mem16(0xffc8)); return 8; case 0xB2: clrb(azp(), 5); return 4; case 0xB3: return branch((zp() & 0x20) == 0, 5); case 0xB4: sA = sbc(sA, zpX()); return 4; case 0xB5: sA = sbc(sA, absX()); return 5; case 0xB6: sA = sbc(sA, absY()); return 5; case 0xB7: sA = sbc(sA, indY()); return 6; case 0xB8: a = imm(); b = azp(); spcwrite(b, sbc(spcread(b), a)); return 5; case 0xB9: spcwrite(sX|dp, sbc(spcread(sX|dp), spcread(sY|dp))); return 5; case 0xBA: a = fetch8(); sA = spcread(a++|dp); sY = spcread(a|dp); nz16(); return 5; case 0xBB: inc(azpX()); return 4; case 0xBC: nz(++sA); return 2; case 0xBD: sS = sX; return 2; case 0xBF: nz(sA = spcread(sX++|dp)); return 3; case 0xC0: sP &= ~SPCI; return 2; case 0xC1: jsr(mem16(0xffc6)); return 8; case 0xC2: setb(azp(), 6); return 4; case 0xC3: return branch((zp() & 0x40) != 0, 5); case 0xC4: spcwrite(azp(), sA); return 4; case 0xC5: spcwrite(fetch16(), sA); return 5; case 0xC6: spcwrite(sX|dp, sA); return 4; case 0xC7: spcwrite(aindX(), sA); return 7; case 0xC8: cmp(sX, imm()); return 2; case 0xC9: spcwrite(fetch16(), sX); return 5; case 0xCA: b = fetch16(); setnbit(b, sP & SPCC); return 6; case 0xCB: spcwrite(azp(), sY); return 4; case 0xCC: spcwrite(fetch16(), sY); return 5; case 0xCD: nz(sX = imm()); return 2; case 0xCE: sX = pop8(); return 2; case 0xCF: b = sY * sA; nz(sY = b >> 8); sA = b; return 9; case 0xD0: return branch((sP & SPCZ) == 0, 2); case 0xD1: jsr(mem16(0xffc4)); return 8; case 0xD2: clrb(azp(), 6); return 4; case 0xD3: return branch((zp() & 0x40) == 0, 5); case 0xD4: spcwrite(azpX(), sA); return 4; case 0xD5: spcwrite(fetch16() + sX, sA); return 6; case 0xD6: spcwrite(fetch16() + sY, sA); return 6; case 0xD7: spcwrite(aindY(), sA); return 7; case 0xD8: spcwrite(azp(), sX); return 4; case 0xD9: spcwrite(azpY(), sX); return 5; case 0xDA: a = fetch8(); spcwrite(a++|dp, sA); spcwrite(a|dp, sY); return 5; case 0xDB: spcwrite(azpX(), sY); return 5; case 0xDC: nz(--sY); return 2; case 0xDD: nz(sA = sY); return 2; case 0xDE: return branch(sA != zpX(), 6); case 0xE0: sP &= ~(SPCV|SPCH); return 2; case 0xE1: jsr(mem16(0xffc2)); return 8; case 0xE2: setb(azp(), 7); return 4; case 0xE3: return branch((zp() & 0x80) != 0, 5); case 0xE4: nz(sA = zp()); return 3; case 0xE5: nz(sA = abs()); return 4; case 0xE6: nz(sA = spcread(sX|dp)); return 3; case 0xE7: nz(sA = indX()); return 6; case 0xE8: nz(sA = imm()); return 2; case 0xE9: nz(sX = abs()); return 4; case 0xEA: b = fetch16(); spcwrite(b & 0x1fff, spcread(b & 0x1fff) ^ (1<<(b>>13))); return 6; case 0xEB: nz(sY = zp()); return 3; case 0xEC: nz(sY = abs()); return 4; case 0xED: sP ^= SPCC; return 3; case 0xEE: sY = pop8(); return 4; case 0xF0: return branch((sP & SPCZ) != 0, 2); case 0xF1: jsr(mem16(0xffc0)); return 8; case 0xF2: clrb(azp(), 7); return 4; case 0xF3: return branch((zp() & 0x80) == 0, 5); case 0xF4: nz(sA = zpX()); return 4; case 0xF5: nz(sA = absX()); return 5; case 0xF6: nz(sA = absY()); return 5; case 0xF7: nz(sA = indY()); return 6; case 0xF8: nz(sX = zp()); return 3; case 0xF9: nz(sX = zpY()); return 4; case 0xFA: a = zp(); spcwrite(azp(), a); return 5; case 0xFB: nz(sY = zpX()); return 4; case 0xFC: nz(++sY); return 2; case 0xFD: nz(sY = sA); return 2; case 0xFE: return branch(--sY, 4); default: print("undefined spc op %.2x at %.4x\n", op, spc-1); return 2; } } static u8int ipl[64] = { 0xcd, 0xef, 0xbd, 0xe8, 0x00, 0xc6, 0x1d, 0xd0, 0xfc, 0x8f, 0xaa, 0xf4, 0x8f, 0xbb, 0xf5, 0x78, 0xcc, 0xf4, 0xd0, 0xfb, 0x2f, 0x19, 0xeb, 0xf4, 0xd0, 0xfc, 0x7e, 0xf4, 0xd0, 0x0b, 0xe4, 0xf5, 0xcb, 0xf4, 0xd7, 0x00, 0xfc, 0xd0, 0xf3, 0xab, 0x01, 0x10, 0xef, 0x7e, 0xf4, 0x10, 0xeb, 0xba, 0xf6, 0xda, 0x00, 0xba, 0xf4, 0xc4, 0xf4, 0xdd, 0x5d, 0xd0, 0xdb, 0x1f, 0x00, 0x00, 0xc0, 0xff, };