/* This nifty trick is from Frotz. */
static void zextended(void)
{
uint8_t opnumber = BYTE(pc++);
decode_var(BYTE(pc++));
/* §14.2.1
* The exception for 0x80–0x83 is for the Zoom extensions.
* Standard 1.1 implicitly updates §14.2.1 to recommend ignoring
* opcodes in the range EXT:30 to EXT:255, due to the fact that
* @buffer_screen is EXT:29.
*/
if(opnumber > 0x1d && (opnumber < 0x80 || opnumber > 0x83)) return;
op_call(EXT, opnumber);
}
bool eval(char *str, stack_t *stk) {
char *tok = NULL;
while (*str != '\0') {
tok = read_token(&str);
if (!tok) break;
if (tok_number_p(tok)) {
num_t *x = num_from_str(tok);
if (x) {
stack_push(x, stk);
}
} else {
if (!op_call(tok, stk)) {
free(tok);
return false;
}
}
free(tok);
}
return true;
}
void opcode_jump (void)
{
error = E_UNKNOWN_OPCODE;
//fda group
if (strcmp( (char *)token,"addwf")==0) error = op_addwf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"addwfc")==0) error = op_addwfc((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"andwf")==0) error = op_andwf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"comf")==0) error = op_comf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"decf")==0) error = op_decf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"decfsz")==0) error = op_decfsz((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"dcfsnz")==0) error = op_dcfsnz((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"incf")==0) error = op_incf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"incfsz")==0) error = op_incfsz((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"infsnz")==0) error = op_infsnz((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"iorwf")==0) error = op_iorwf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"movf")==0) error = op_movf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"rlcf")==0) error = op_rlcf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"rlncf")==0) error = op_rlncf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"rrcf")==0) error = op_rrcf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"rrncf")==0) error = op_rrncf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"subfwb")==0) error = op_subfwb((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"subwf")==0) error = op_subwf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"subwfb")==0) error = op_subwfb((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"swapf")==0) error = op_swapf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"xorwf")==0) error = op_xorwf((unsigned char *) file_line,token_len);
//fa group
if (strcmp( (char *)token,"clrf")==0) error = op_clrf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"cpfseq")==0) error = op_cpfseq((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"cpfsgt")==0) error = op_cpfsgt((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"cpfslt")==0) error = op_cpfslt((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"movwf")==0) error = op_movwf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"mulwf")==0) error = op_mulwf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"negf")==0) error = op_negf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"setf")==0) error = op_setf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"tstfsz")==0) error = op_tstfsz((unsigned char *) file_line,token_len);
//movff
if (strcmp( (char *)token,"movff")==0) error = op_movff((unsigned char *) file_line,token_len);
//fba group
if (strcmp( (char *)token,"bcf")==0) error = op_bcf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"bsf")==0) error = op_bsf((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"btfsc")==0) error = op_btfsc((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"btfss")==0) error = op_btfss((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"btg")==0) error = op_btg((unsigned char *) file_line,token_len);
//one byte (literal, control) group - decide if relative / absolute
if (strcmp( (char *)token,"bc")==0) error = op_bc((unsigned char *) file_line,token_len,addr,replaced);
if (strcmp( (char *)token,"bn")==0) error = op_bn((unsigned char *) file_line,token_len,addr,replaced);
if (strcmp( (char *)token,"bnc")==0) error = op_bnc((unsigned char *) file_line,token_len,addr,replaced);
if (strcmp( (char *)token,"bnn")==0) error = op_bnn((unsigned char *) file_line,token_len,addr,replaced);
if (strcmp( (char *)token,"bnov")==0) error = op_bnov((unsigned char *) file_line,token_len,addr,replaced);
if (strcmp( (char *)token,"bnz")==0) error = op_bnz((unsigned char *) file_line,token_len,addr,replaced);
if (strcmp( (char *)token,"bov")==0) error = op_bov((unsigned char *) file_line,token_len,addr,replaced);
if (strcmp( (char *)token,"bz")==0) error = op_bz((unsigned char *) file_line,token_len,addr,replaced);
if (strcmp( (char *)token,"rcall")==0) error = op_rcall((unsigned char *) file_line,token_len,addr,replaced);
if (strcmp( (char *)token,"bra")==0) error = op_bra((unsigned char *) file_line,token_len,addr,replaced);
//no decision
if (strcmp( (char *)token,"retlw")==0) error = op_retlw((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"addlw")==0) error = op_addlw((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"andlw")==0) error = op_andlw((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"iorlw")==0) error = op_iorlw((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"movlb")==0) error = op_movlb((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"movlw")==0) error = op_movlw((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"mullw")==0) error = op_mullw((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"sublw")==0) error = op_sublw((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"xorlw")==0) error = op_xorlw((unsigned char *) file_line,token_len);
//goto/call - 2 byte with 16 bit variable
if (strcmp( (char *)token,"call")==0) error = op_call((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"goto")==0) error = op_goto((unsigned char *) file_line,token_len);
//lfsr
if (strcmp( (char *)token,"lfsr")==0) error = op_lfsr((unsigned char *) file_line,token_len);
//no suffix after opcode
if (strcmp( (char *)token,"clrwdt")==0) error = op_clrwdt((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"daw")==0) error = op_daw((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"nop")==0) error = op_nop((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"pop")==0) error = op_pop((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"push")==0) error = op_push((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"reset")==0) error = op_reset((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"retfie")==0) error = op_retfie((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"return")==0) error = op_return((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"sleep")==0) error = op_sleep((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"tblrd*")==0) error = op_tblrd((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"tblrd*+")==0) error = op_tblrdpi((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"tblrd*-")==0) error = op_tblrdpd((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"tblrd+*")==0) error = op_tblrdip((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"tblwt*")==0) error = op_tblwt((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"tblwt*+")==0) error = op_tblwtpi((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"tblwt*-")==0) error = op_tblwtpd((unsigned char *) file_line,token_len);
if (strcmp( (char *)token,"tblwt+*")==0) error = op_tblwtip((unsigned char *) file_line,token_len);
}
void process_instructions(void)
{
if(njumps <= ++ilevel)
{
jumps = realloc(jumps, ++njumps * sizeof *jumps);
if(jumps == NULL) die("unable to allocate memory for jump buffer");
}
switch(setjmp(jumps[ilevel]))
{
case 1: /* Normal break from interrupt. */
return;
case 2: /* Special break: a restart was requested. */
{
/* §6.1.3: Flags2 is preserved on a restart. */
uint16_t flags2 = WORD(0x10);
process_story();
STORE_WORD(0x10, flags2);
}
break;
}
while(1)
{
uint8_t opcode;
#if defined(ZTERP_GLK) && defined(ZTERP_GLK_TICK)
glk_tick();
#endif
ZPC(pc);
opcode = BYTE(pc++);
/* long 2OP */
if(opcode < 0x80)
{
znargs = 2;
if(opcode & 0x40) zargs[0] = variable(BYTE(pc++));
else zargs[0] = BYTE(pc++);
if(opcode & 0x20) zargs[1] = variable(BYTE(pc++));
else zargs[1] = BYTE(pc++);
op_call(TWO, opcode & 0x1f);
}
/* short 1OP */
else if(opcode < 0xb0)
{
znargs = 1;
if(opcode < 0x90) /* large constant */
{
zargs[0] = WORD(pc);
pc += 2;
}
else if(opcode < 0xa0) /* small constant */
{
zargs[0] = BYTE(pc++);
}
else /* variable */
{
zargs[0] = variable(BYTE(pc++));
}
op_call(ONE, opcode & 0x0f);
}
/* short 0OP (plus EXT) */
else if(opcode < 0xc0)
{
znargs = 0;
op_call(ZERO, opcode & 0x0f);
}
/* variable 2OP */
else if(opcode < 0xe0)
{
znargs = 0;
decode_var(BYTE(pc++));
op_call(TWO, opcode & 0x1f);
}
/* Double variable VAR */
else if(opcode == 0xec || opcode == 0xfa)
{
uint8_t types1, types2;
znargs = 0;
types1 = BYTE(pc++);
types2 = BYTE(pc++);
decode_var(types1);
decode_var(types2);
op_call(VAR, opcode & 0x1f);
}
/* variable VAR */
else
{
znargs = 0;
read_pc = pc - 1;
decode_var(BYTE(pc++));
op_call(VAR, opcode & 0x1f);
}
}
}
Atom Stubs::do_call(MethodFrame* f, Atom function, int argc, Atom* args) {
return op_call(env(f), function, argc - 1, args);
}
void SMP::do_op(uint8 opv)
{
switch(opv)
{
case 0x00:
op_nop();
break;
case 0x01:
op_tcall<0>();
break;
case 0x02:
op_setbit_dp<1, 0x01>();
break;
case 0x03:
op_bitbranch<0x01, true>();
break;
case 0x04:
op_read_reg_dp<&SMP::op_or, A>();
break;
case 0x05:
op_read_reg_addr<&SMP::op_or, A>();
break;
case 0x06:
op_read_a_ix<&SMP::op_or>();
break;
case 0x07:
op_read_a_idpx<&SMP::op_or>();
break;
case 0x08:
op_read_reg_const<&SMP::op_or, A>();
break;
case 0x09:
op_read_dp_dp<&SMP::op_or>();
break;
case 0x0a:
op_or1_bit<0>();
break;
case 0x0b:
op_adjust_dp<&SMP::op_asl>();
break;
case 0x0c:
op_adjust_addr<&SMP::op_asl>();
break;
case 0x0d:
op_push_p();
break;
case 0x0e:
op_adjust_addr_a<1>();
break;
case 0x0f:
op_brk();
break;
case 0x10:
op_branch<0x80, false>();
break;
case 0x11:
op_tcall<1>();
break;
case 0x12:
op_setbit_dp<0, 0x01>();
break;
case 0x13:
op_bitbranch<0x01, false>();
break;
case 0x14:
op_read_a_dpx<&SMP::op_or>();
break;
case 0x15:
op_read_a_addrr<&SMP::op_or, X>();
break;
case 0x16:
op_read_a_addrr<&SMP::op_or, Y>();
break;
case 0x17:
op_read_a_idpy<&SMP::op_or>();
break;
case 0x18:
op_read_dp_const<&SMP::op_or>();
break;
case 0x19:
op_read_ix_iy<&SMP::op_or>();
break;
case 0x1a:
op_adjustw_dp<-1>();
break;
case 0x1b:
op_adjust_dpx<&SMP::op_asl>();
break;
case 0x1c:
op_adjust_reg<&SMP::op_asl, A>();
break;
case 0x1d:
op_adjust_reg<&SMP::op_dec, X>();
break;
case 0x1e:
op_read_reg_addr<&SMP::op_cmp, X>();
break;
case 0x1f:
op_jmp_iaddrx();
break;
case 0x20:
op_setbit<0x20, 0x00>();
break;
case 0x21:
op_tcall<2>();
break;
case 0x22:
op_setbit_dp<1, 0x02>();
break;
case 0x23:
op_bitbranch<0x02, true>();
break;
case 0x24:
op_read_reg_dp<&SMP::op_and, A>();
break;
case 0x25:
op_read_reg_addr<&SMP::op_and, A>();
break;
case 0x26:
op_read_a_ix<&SMP::op_and>();
break;
case 0x27:
op_read_a_idpx<&SMP::op_and>();
break;
case 0x28:
op_read_reg_const<&SMP::op_and, A>();
break;
case 0x29:
op_read_dp_dp<&SMP::op_and>();
break;
case 0x2a:
op_or1_bit<1>();
break;
case 0x2b:
op_adjust_dp<&SMP::op_rol>();
break;
case 0x2c:
op_adjust_addr<&SMP::op_rol>();
break;
case 0x2d:
op_push_reg<A>();
break;
case 0x2e:
op_cbne_dp();
break;
case 0x2f:
op_bra();
break;
case 0x30:
op_branch<0x80, true>();
break;
case 0x31:
op_tcall<3>();
break;
case 0x32:
op_setbit_dp<0, 0x02>();
break;
case 0x33:
op_bitbranch<0x02, false>();
break;
case 0x34:
op_read_a_dpx<&SMP::op_and>();
break;
case 0x35:
op_read_a_addrr<&SMP::op_and, X>();
break;
case 0x36:
op_read_a_addrr<&SMP::op_and, Y>();
break;
case 0x37:
op_read_a_idpy<&SMP::op_and>();
break;
case 0x38:
op_read_dp_const<&SMP::op_and>();
break;
case 0x39:
op_read_ix_iy<&SMP::op_and>();
break;
case 0x3a:
op_adjustw_dp<+1>();
break;
case 0x3b:
op_adjust_dpx<&SMP::op_rol>();
break;
case 0x3c:
op_adjust_reg<&SMP::op_rol, A>();
break;
case 0x3d:
op_adjust_reg<&SMP::op_inc, X>();
break;
case 0x3e:
op_read_reg_dp<&SMP::op_cmp, X>();
break;
case 0x3f:
op_call();
break;
case 0x40:
op_setbit<0x20, 0x20>();
break;
case 0x41:
op_tcall<4>();
break;
case 0x42:
op_setbit_dp<1, 0x04>();
break;
case 0x43:
op_bitbranch<0x04, true>();
break;
case 0x44:
op_read_reg_dp<&SMP::op_eor, A>();
break;
case 0x45:
op_read_reg_addr<&SMP::op_eor, A>();
break;
case 0x46:
op_read_a_ix<&SMP::op_eor>();
break;
case 0x47:
op_read_a_idpx<&SMP::op_eor>();
break;
case 0x48:
op_read_reg_const<&SMP::op_eor, A>();
break;
case 0x49:
op_read_dp_dp<&SMP::op_eor>();
break;
case 0x4a:
op_and1_bit<0>();
break;
case 0x4b:
op_adjust_dp<&SMP::op_lsr>();
break;
case 0x4c:
op_adjust_addr<&SMP::op_lsr>();
break;
case 0x4d:
op_push_reg<X>();
break;
case 0x4e:
op_adjust_addr_a<0>();
break;
case 0x4f:
op_pcall();
break;
case 0x50:
op_branch<0x40, false>();
break;
case 0x51:
op_tcall<5>();
break;
case 0x52:
op_setbit_dp<0, 0x04>();
break;
case 0x53:
op_bitbranch<0x04, false>();
break;
case 0x54:
op_read_a_dpx<&SMP::op_eor>();
break;
case 0x55:
op_read_a_addrr<&SMP::op_eor, X>();
break;
case 0x56:
op_read_a_addrr<&SMP::op_eor, Y>();
break;
case 0x57:
op_read_a_idpy<&SMP::op_eor>();
break;
case 0x58:
op_read_dp_const<&SMP::op_eor>();
break;
case 0x59:
op_read_ix_iy<&SMP::op_eor>();
break;
case 0x5a:
op_cmpw_ya_dp();
break;
case 0x5b:
op_adjust_dpx<&SMP::op_lsr>();
break;
case 0x5c:
op_adjust_reg<&SMP::op_lsr, A>();
break;
case 0x5d:
op_mov_reg_reg<X, A>();
break;
case 0x5e:
op_read_reg_addr<&SMP::op_cmp, Y>();
break;
case 0x5f:
op_jmp_addr();
break;
case 0x60:
op_setbit<0x01, 0x00>();
break;
case 0x61:
op_tcall<6>();
break;
case 0x62:
op_setbit_dp<1, 0x08>();
break;
case 0x63:
op_bitbranch<0x08, true>();
break;
case 0x64:
op_read_reg_dp<&SMP::op_cmp, A>();
break;
case 0x65:
op_read_reg_addr<&SMP::op_cmp, A>();
break;
case 0x66:
op_read_a_ix<&SMP::op_cmp>();
break;
case 0x67:
op_read_a_idpx<&SMP::op_cmp>();
break;
case 0x68:
op_read_reg_const<&SMP::op_cmp, A>();
break;
case 0x69:
op_read_dp_dp<&SMP::op_cmp>();
break;
case 0x6a:
op_and1_bit<1>();
break;
case 0x6b:
op_adjust_dp<&SMP::op_ror>();
break;
case 0x6c:
op_adjust_addr<&SMP::op_ror>();
break;
case 0x6d:
op_push_reg<Y>();
break;
case 0x6e:
op_dbnz_dp();
break;
case 0x6f:
op_ret();
break;
case 0x70:
op_branch<0x40, true>();
break;
case 0x71:
op_tcall<7>();
break;
case 0x72:
op_setbit_dp<0, 0x08>();
break;
case 0x73:
op_bitbranch<0x08, false>();
break;
case 0x74:
op_read_a_dpx<&SMP::op_cmp>();
break;
case 0x75:
op_read_a_addrr<&SMP::op_cmp, X>();
break;
case 0x76:
op_read_a_addrr<&SMP::op_cmp, Y>();
break;
case 0x77:
op_read_a_idpy<&SMP::op_cmp>();
break;
case 0x78:
op_read_dp_const<&SMP::op_cmp>();
break;
case 0x79:
op_read_ix_iy<&SMP::op_cmp>();
break;
case 0x7a:
op_read_ya_dp<&SMP::op_addw>();
break;
case 0x7b:
op_adjust_dpx<&SMP::op_ror>();
break;
case 0x7c:
op_adjust_reg<&SMP::op_ror, A>();
break;
case 0x7d:
op_mov_reg_reg<A, X>();
break;
case 0x7e:
op_read_reg_dp<&SMP::op_cmp, Y>();
break;
case 0x7f:
op_reti();
break;
case 0x80:
op_setbit<0x01, 0x01>();
break;
case 0x81:
op_tcall<8>();
break;
case 0x82:
op_setbit_dp<1, 0x10>();
break;
case 0x83:
op_bitbranch<0x10, true>();
break;
case 0x84:
op_read_reg_dp<&SMP::op_adc, A>();
break;
case 0x85:
op_read_reg_addr<&SMP::op_adc, A>();
break;
case 0x86:
op_read_a_ix<&SMP::op_adc>();
break;
case 0x87:
op_read_a_idpx<&SMP::op_adc>();
break;
case 0x88:
op_read_reg_const<&SMP::op_adc, A>();
break;
case 0x89:
op_read_dp_dp<&SMP::op_adc>();
break;
case 0x8a:
op_eor1_bit();
break;
case 0x8b:
op_adjust_dp<&SMP::op_dec>();
break;
case 0x8c:
op_adjust_addr<&SMP::op_dec>();
break;
case 0x8d:
op_mov_reg_const<Y>();
break;
case 0x8e:
op_pop_p();
break;
case 0x8f:
op_mov_dp_const();
break;
case 0x90:
op_branch<0x01, false>();
break;
case 0x91:
op_tcall<9>();
break;
case 0x92:
op_setbit_dp<0, 0x10>();
break;
case 0x93:
op_bitbranch<0x10, false>();
break;
case 0x94:
op_read_a_dpx<&SMP::op_adc>();
break;
case 0x95:
op_read_a_addrr<&SMP::op_adc, X>();
break;
case 0x96:
op_read_a_addrr<&SMP::op_adc, Y>();
break;
case 0x97:
op_read_a_idpy<&SMP::op_adc>();
break;
case 0x98:
op_read_dp_const<&SMP::op_adc>();
break;
case 0x99:
op_read_ix_iy<&SMP::op_adc>();
break;
case 0x9a:
op_read_ya_dp<&SMP::op_subw>();
break;
case 0x9b:
op_adjust_dpx<&SMP::op_dec>();
break;
case 0x9c:
op_adjust_reg<&SMP::op_dec, A>();
break;
case 0x9d:
op_mov_reg_reg<X, SP>();
break;
case 0x9e:
op_div_ya_x();
break;
case 0x9f:
op_xcn();
break;
case 0xa0:
op_seti<1>();
break;
case 0xa1:
op_tcall<10>();
break;
case 0xa2:
op_setbit_dp<1, 0x20>();
break;
case 0xa3:
op_bitbranch<0x20, true>();
break;
case 0xa4:
op_read_reg_dp<&SMP::op_sbc, A>();
break;
case 0xa5:
op_read_reg_addr<&SMP::op_sbc, A>();
break;
case 0xa6:
op_read_a_ix<&SMP::op_sbc>();
break;
case 0xa7:
op_read_a_idpx<&SMP::op_sbc>();
break;
case 0xa8:
op_read_reg_const<&SMP::op_sbc, A>();
break;
case 0xa9:
op_read_dp_dp<&SMP::op_sbc>();
break;
case 0xaa:
op_mov1_c_bit();
break;
case 0xab:
op_adjust_dp<&SMP::op_inc>();
break;
case 0xac:
op_adjust_addr<&SMP::op_inc>();
break;
case 0xad:
op_read_reg_const<&SMP::op_cmp, Y>();
break;
case 0xae:
op_pop_reg<A>();
break;
case 0xaf:
op_mov_ixinc_a();
break;
case 0xb0:
op_branch<0x01, true>();
break;
case 0xb1:
op_tcall<11>();
break;
case 0xb2:
op_setbit_dp<0, 0x20>();
break;
case 0xb3:
op_bitbranch<0x20, false>();
break;
case 0xb4:
op_read_a_dpx<&SMP::op_sbc>();
break;
case 0xb5:
op_read_a_addrr<&SMP::op_sbc, X>();
break;
case 0xb6:
op_read_a_addrr<&SMP::op_sbc, Y>();
break;
case 0xb7:
op_read_a_idpy<&SMP::op_sbc>();
break;
case 0xb8:
op_read_dp_const<&SMP::op_sbc>();
break;
case 0xb9:
op_read_ix_iy<&SMP::op_sbc>();
break;
case 0xba:
op_movw_ya_dp();
break;
case 0xbb:
op_adjust_dpx<&SMP::op_inc>();
break;
case 0xbc:
op_adjust_reg<&SMP::op_inc, A>();
break;
case 0xbd:
op_mov_sp_x();
break;
case 0xbe:
op_das();
break;
case 0xbf:
op_mov_a_ixinc();
break;
case 0xc0:
op_seti<0>();
break;
case 0xc1:
op_tcall<12>();
break;
case 0xc2:
op_setbit_dp<1, 0x40>();
break;
case 0xc3:
op_bitbranch<0x40, true>();
break;
case 0xc4:
op_mov_dp_reg<A>();
break;
case 0xc5:
op_mov_addr_reg<A>();
break;
case 0xc6:
op_mov_ix_a();
break;
case 0xc7:
op_mov_idpx_a();
break;
case 0xc8:
op_read_reg_const<&SMP::op_cmp, X>();
break;
case 0xc9:
op_mov_addr_reg<X>();
break;
case 0xca:
op_mov1_bit_c();
break;
case 0xcb:
op_mov_dp_reg<Y>();
break;
case 0xcc:
op_mov_addr_reg<Y>();
break;
case 0xcd:
op_mov_reg_const<X>();
break;
case 0xce:
op_pop_reg<X>();
break;
case 0xcf:
op_mul_ya();
break;
case 0xd0:
op_branch<0x02, false>();
break;
case 0xd1:
op_tcall<13>();
break;
case 0xd2:
op_setbit_dp<0, 0x40>();
break;
case 0xd3:
op_bitbranch<0x40, false>();
break;
case 0xd4:
op_mov_dpr_reg<A, X>();
break;
case 0xd5:
op_mov_addrr_a<X>();
break;
case 0xd6:
op_mov_addrr_a<Y>();
break;
case 0xd7:
op_mov_idpy_a();
break;
case 0xd8:
op_mov_dp_reg<X>();
break;
case 0xd9:
op_mov_dpr_reg<X, Y>();
break;
case 0xda:
op_movw_dp_ya();
break;
case 0xdb:
op_mov_dpr_reg<Y, X>();
break;
case 0xdc:
op_adjust_reg<&SMP::op_dec, Y>();
break;
case 0xdd:
op_mov_reg_reg<A, Y>();
break;
case 0xde:
op_cbne_dpx();
break;
case 0xdf:
op_daa();
break;
case 0xe0:
op_setbit<0x48, 0x00>();
break;
case 0xe1:
op_tcall<14>();
break;
case 0xe2:
op_setbit_dp<1, 0x80>();
break;
case 0xe3:
op_bitbranch<0x80, true>();
break;
case 0xe4:
op_mov_reg_dp<A>();
break;
case 0xe5:
op_mov_reg_addr<A>();
break;
case 0xe6:
op_mov_a_ix();
break;
case 0xe7:
op_mov_a_idpx();
break;
case 0xe8:
op_mov_reg_const<A>();
break;
case 0xe9:
op_mov_reg_addr<X>();
break;
case 0xea:
op_not1_bit();
break;
case 0xeb:
op_mov_reg_dp<Y>();
break;
case 0xec:
op_mov_reg_addr<Y>();
break;
case 0xed:
op_notc();
break;
case 0xee:
op_pop_reg<Y>();
break;
case 0xef:
op_wait();
break;
case 0xf0:
op_branch<0x02, true>();
break;
case 0xf1:
op_tcall<15>();
break;
case 0xf2:
op_setbit_dp<0, 0x80>();
break;
case 0xf3:
op_bitbranch<0x80, false>();
break;
case 0xf4:
op_mov_reg_dpr<A, X>();
break;
case 0xf5:
op_mov_a_addrr<X>();
break;
case 0xf6:
op_mov_a_addrr<Y>();
break;
case 0xf7:
op_mov_a_idpy();
break;
case 0xf8:
op_mov_reg_dp<X>();
break;
case 0xf9:
op_mov_reg_dpr<X, Y>();
break;
case 0xfa:
op_mov_dp_dp();
break;
case 0xfb:
op_mov_reg_dpr<Y, X>();
break;
case 0xfc:
op_adjust_reg<&SMP::op_inc, Y>();
break;
case 0xfd:
op_mov_reg_reg<Y, A>();
break;
case 0xfe:
op_dbnz_y();
break;
case 0xff:
op_wait();
break;
}
}
