# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1534044896 -32400
# Node ID 4652761a60f9604fc3e7004c0331137c157ae2c0
# Parent  9b661787d5ed647f2ffddff9ff98de3569bbe771
mmeu fix

diff -r 9b661787d5ed -r 4652761a60f9 src/engine.c
--- a/src/engine.c	Sat Aug 11 18:16:04 2018 +0900
+++ b/src/engine.c	Sun Aug 12 12:34:56 2018 +0900
@@ -56,7 +56,7 @@
 #else
 
 int paddr(Word adr, Byte *immu) { 
-    if ((adr&0xfe00)==(IOPAGE&0xfe00)) return adr;
+    if ((adr&0xfe00)==(IOPAGE&0xfe00)) return 0x38*0x2000+adr;
     return  (immu[ (adr) >> 13 ] <<13 ) + ((adr) & 0x1fff ); 
 }
 
diff -r 9b661787d5ed -r 4652761a60f9 src/v09.c
--- a/src/v09.c	Sat Aug 11 18:16:04 2018 +0900
+++ b/src/v09.c	Sun Aug 12 12:34:56 2018 +0900
@@ -58,8 +58,8 @@
  // ir=mem[pc++];
  // fprintf(tracefile,"i=%02x ",ir); if((ir&0xfe)==0x10) fprintf(tracefile,"%02x ",mem[pc]);else 
  // fprintf(tracefile,"   ");
- fprintf(tracefile,"x=%04x y=%04x u=%04x s=%04x a=%02x b=%02x cc=%02x pc=",
-                   xreg,yreg,ureg,sreg,*areg,*breg,ccreg);
+ fprintf(tracefile,"x=%04x y=%04x u=%04x s=%04x a=%02x b=%02x cc=%02x dp=%02x pc=",
+                   xreg,yreg,ureg,sreg,*areg,*breg,ccreg,dpreg);
  fp = tracefile;
  disasm(pc,pc);
 }