Mercurial > repos > blastem

comparison z80_to_x86.c @ 261:f0c53a4bbfa3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implement LDIR and fix a bug in which context was not restored after a call to z80_handle_code_write
author Mike Pavone <pavone@retrodev.com>
date Tue, 30 Apr 2013 01:00:10 -0700
parents d9417261366f
children d97c9eca49f4
comparison
equal deleted inserted replaced
260:625f8e4d5fd2 261:f0c53a4bbfa3
261 { 261 {
262 uint32_t cycles; 262 uint32_t cycles;
263 x86_ea src_op, dst_op; 263 x86_ea src_op, dst_op;
264 uint8_t size; 264 uint8_t size;
265 x86_z80_options *opts = context->options; 265 x86_z80_options *opts = context->options;
266 uint8_t * start = dst;
266 dst = z80_check_cycles_int(dst, address); 267 dst = z80_check_cycles_int(dst, address);
267 switch(inst->op) 268 switch(inst->op)
268 { 269 {
269 case Z80_LD: 270 case Z80_LD:
270 size = z80_size(inst); 271 size = z80_size(inst);
422 dst = mov_rrdisp8(dst, SCRATCH2, CONTEXT, zar_off(Z80_L), SZ_W); 423 dst = mov_rrdisp8(dst, SCRATCH2, CONTEXT, zar_off(Z80_L), SZ_W);
423 dst = mov_rr(dst, opts->regs[Z80_DE], SCRATCH1, SZ_W); 424 dst = mov_rr(dst, opts->regs[Z80_DE], SCRATCH1, SZ_W);
424 dst = mov_rdisp8r(dst, CONTEXT, zar_off(Z80_E), opts->regs[Z80_DE], SZ_W); 425 dst = mov_rdisp8r(dst, CONTEXT, zar_off(Z80_E), opts->regs[Z80_DE], SZ_W);
425 dst = mov_rrdisp8(dst, SCRATCH1, CONTEXT, zar_off(Z80_E), SZ_W); 426 dst = mov_rrdisp8(dst, SCRATCH1, CONTEXT, zar_off(Z80_E), SZ_W);
426 break; 427 break;
427 /*case Z80_LDI: 428 //case Z80_LDI:
428 case Z80_LDIR: 429 case Z80_LDIR: {
429 case Z80_LDD: 430 dst = zcycles(dst, 8);
431 dst = mov_rr(dst, opts->regs[Z80_HL], SCRATCH1, SZ_W);
432 dst = call(dst, (uint8_t *)z80_read_byte);
433 dst = mov_rr(dst, opts->regs[Z80_DE], SCRATCH2, SZ_W);
434 dst = call(dst, (uint8_t *)z80_read_byte);
435 dst = add_ir(dst, 1, opts->regs[Z80_DE], SZ_W);
436 dst = add_ir(dst, 1, opts->regs[Z80_HL], SZ_W);
437
438 dst = sub_ir(dst, 1, opts->regs[Z80_BC], SZ_W);
439 uint8_t * cont = dst+1;
440 dst = jcc(dst, CC_Z, dst+2);
441 dst = zcycles(dst, 7);
442 //TODO: Figure out what the flag state should be here
443 //TODO: Figure out whether an interrupt can interrupt this
444 dst = jmp(dst, start);
445 *cont = dst - (cont + 1);
446 dst = zcycles(dst, 2);
447 //TODO: Implement half-carry
448 dst = mov_irdisp8(dst, 0, CONTEXT, zf_off(ZF_N), SZ_B);
449 dst = mov_irdisp8(dst, 0, CONTEXT, zf_off(ZF_PV), SZ_B);
450 break;
451 }
452 /*case Z80_LDD:
430 case Z80_LDDR: 453 case Z80_LDDR:
431 case Z80_CPI: 454 case Z80_CPI:
432 case Z80_CPIR: 455 case Z80_CPIR:
433 case Z80_CPD: 456 case Z80_CPD:
434 case Z80_CPDR: 457 case Z80_CPDR: