2 // This file is part of the PicoDrive Megadrive Emulator
\r
4 // This code is licensed under the GNU General Public License version 2.0 and the MAME License.
\r
5 // You can choose the license that has the most advantages for you.
\r
7 // SVN repository can be found at http://code.google.com/p/cyclone68000/
\r
9 // Disa 68000 Disassembler
\r
11 #pragma warning(disable:4115)
\r
14 #define _CRT_SECURE_NO_WARNINGS
\r
19 unsigned int DisaPc=0;
\r
20 char *DisaText=NULL; // Text buffer to write in
\r
21 static char Tasm[]="bwl?";
\r
22 static char Comment[64]="";
\r
23 unsigned short (CPU_CALL *DisaWord)(unsigned int a)=NULL;
\r
25 static unsigned int DisaLong(unsigned int a)
\r
28 if (DisaWord==NULL) return d;
\r
31 d|=DisaWord(a+2)&0xffff;
\r
35 // Get text version of the effective address
\r
36 int DisaGetEa(char *t,int ea,int size)
\r
39 if ((ea&0x38)==0x00) { sprintf(t,"d%d",ea ); return 0; } // 000rrr
\r
40 if ((ea&0x38)==0x08) { sprintf(t,"a%d",ea&7); return 0; } // 001rrr
\r
41 if ((ea&0x38)==0x10) { sprintf(t,"(a%d)",ea&7); return 0; } // 010rrr
\r
42 if ((ea&0x38)==0x18) { sprintf(t,"(a%d)+",ea&7); return 0; } // 011rrr
\r
43 if ((ea&0x38)==0x20) { sprintf(t,"-(a%d)",ea&7); return 0; } // 100rrr
\r
44 if ((ea&0x38)==0x28) { sprintf(t,"($%x,a%d)",DisaWord(DisaPc)&0xffff,ea&7); DisaPc+=2; return 0; } // 101rrr
\r
46 if ((ea&0x38)==0x30)
\r
48 // 110nnn - An + Disp + D/An
\r
49 int areg=0,ext=0,off=0,da=0,reg=0,wol=0,scale=0;
\r
50 ext=DisaWord(DisaPc)&0xffff;
\r
53 off=ext&0xff; da =ext&0x8000?'a':'d';
\r
54 reg=(ext>>12)&7; wol=ext&0x0800?'l':'w';
\r
55 scale=1<<((ext>>9)&3);
\r
57 if (scale<2) sprintf(t,"($%x,a%d,%c%d.%c)", off,areg,da,reg,wol);
\r
58 else sprintf(t,"($%x,a%d,%c%d.%c*%d)",off,areg,da,reg,wol,scale); // 68020
\r
64 if (ea==0x38) { sprintf(t,"$%x.w",DisaWord(DisaPc)&0xffff); DisaPc+=2; return 0; } // 111000 - Absolute short
\r
65 if (ea==0x39) { sprintf(t,"$%x.l",DisaLong(DisaPc)); DisaPc+=4; return 0; } // 111001 - Absolute long
\r
69 // 111010 - PC Relative
\r
70 int ext=DisaWord(DisaPc)&0xffff;
\r
71 sprintf(t,"($%x,pc)",ext);
\r
72 sprintf(Comment,"; =%x",DisaPc+(short)ext); // Comment where pc+ext is
\r
79 // 111011 - PC Relative + D/An
\r
80 int ext=0,off=0,da=0,reg=0,wol=0,scale=0;
\r
81 ext=DisaWord(DisaPc)&0xffff;
\r
83 off=ext&0xff; da =ext&0x8000?'a':'d';
\r
84 reg=(ext>>12)&7; wol=ext&0x0800?'l':'w';
\r
85 scale=1<<((ext>>9)&3);
\r
87 if (scale<2) sprintf(t,"($%x,pc,%c%d.%c)", off,da,reg,wol);
\r
88 else sprintf(t,"($%x,pc,%c%d.%c*%d)",off,da,reg,wol,scale); // 68020
\r
90 sprintf(Comment,"; =%x",DisaPc+(char)off); // Comment where pc+ext is
\r
97 // 111100 - Immediate
\r
100 case 0: sprintf(t,"#$%x",DisaWord(DisaPc)&0x00ff); DisaPc+=2; return 0;
\r
101 case 1: sprintf(t,"#$%x",DisaWord(DisaPc)&0xffff); DisaPc+=2; return 0;
\r
102 case 2: sprintf(t,"#$%x",DisaLong(DisaPc) ); DisaPc+=4; return 0;
\r
107 // Unknown effective address
\r
108 sprintf(t,"ea=(%d%d%d %d%d%d)",
\r
109 (ea>>5)&1,(ea>>4)&1,(ea>>3)&1,
\r
110 (ea>>2)&1,(ea>>1)&1, ea &1);
\r
114 static void GetOffset(char *text)
\r
116 int off=(short)DisaWord(DisaPc); DisaPc+=2;
\r
118 if (off<0) sprintf(text,"-$%x",-off);
\r
119 else sprintf(text,"$%x", off);
\r
122 // ================ Opcodes 0x0000+ ================
\r
123 static int DisaArithImm(int op)
\r
125 // Or/And/Sub/Add/Eor/Cmp Immediate 0000ttt0 xxDDDddd (tt=type, xx=size extension, DDDddd=Dest ea)
\r
127 char seat[64]="",deat[64]="";
\r
129 char *arith[8]={"or","and","sub","add","?","eor","cmp","?"};
\r
131 type=(op>>9)&7; if (type==4 || type>=7) return 1;
\r
132 size=(op>>6)&3; if (size>=3) return 1;
\r
133 dea=op&0x3f; if (dea==0x3c) return 1;
\r
135 DisaGetEa(seat,0x3c,size);
\r
136 DisaGetEa(deat,dea, size);
\r
138 sprintf(DisaText,"%si.%c %s, %s",arith[type],Tasm[size],seat,deat);
\r
142 // ================ Opcodes 0x0108+ ================
\r
143 static int DisaMovep(int op)
\r
145 // movep.x (Aa),Dn - 0000nnn1 dx001aaa nn
\r
146 int dn=0,dir=0,size=0,an=0;
\r
147 char offset[32]="";
\r
151 size=(op>>6)&1; size++;
\r
155 if (dir) sprintf(DisaText,"movep.%c d%d, (%s,a%d)",Tasm[size],dn,offset,an);
\r
156 else sprintf(DisaText,"movep.%c (%s,a%d), d%d",Tasm[size],offset,an,dn);
\r
161 // ================ Opcodes 0x007c+ ================
\r
162 static int DisaArithSr(int op)
\r
164 // Ori/Andi/Eori $nnnn,sr 0000t0tx 0s111100
\r
165 char *opcode[6]={"ori","andi","","","","eori"};
\r
172 DisaGetEa(seat,0x3c,size);
\r
173 sprintf(DisaText,"%s.%c %s, %s", opcode[type], Tasm[size], seat, size?"sr":"ccr");
\r
178 // ================ Opcodes 0x0100+ ================
\r
179 static int DisaBtstReg(int op)
\r
181 // Btst/Bchg/Bclr/Bset 0000nnn1 tteeeeee (nn=reg number, eeeeee=Dest ea)
\r
184 char seat[64]="",deat[64]="";
\r
185 char *opcode[4]={"btst","bchg","bclr","bset"};
\r
191 if ((dea&0x38)==0x08) return 1; // movep
\r
192 DisaGetEa(seat,sea,0);
\r
193 DisaGetEa(deat,dea,0);
\r
195 sprintf(DisaText,"%s %s, %s",opcode[type],seat,deat);
\r
199 // ================ Opcodes 0x0800+ ================
\r
200 static int DisaBtstImm(int op)
\r
202 // Btst/Bchg/Bclr/Bset 00001000 tteeeeee 00 nn (eeeeee=ea, nn=bit number)
\r
204 char seat[64]="",deat[64]="";
\r
205 char *opcode[4]={"btst","bchg","bclr","bset"};
\r
208 DisaGetEa(seat, 0x3c,0);
\r
209 DisaGetEa(deat,op&0x3f,0);
\r
211 sprintf(DisaText,"%s %s, %s",opcode[type],seat,deat);
\r
215 // ================ Opcodes 0x1000+ ================
\r
216 static int DisaMove(int op)
\r
218 // Move 00xxdddD DDssssss (xx=size extension, ssssss=Source EA, DDDddd=Dest ea)
\r
220 char inst[64]="",seat[64]="",deat[64]="";
\r
224 if ((op&0x01c0)==0x0040) movea="a"; // See if it's a movea opcode
\r
226 // Find size extension
\r
229 case 0x1000: size=0; break;
\r
230 case 0x3000: size=1; break;
\r
231 case 0x2000: size=2; break;
\r
236 DisaGetEa(seat,sea,size);
\r
238 dea =(op&0x01c0)>>3;
\r
239 dea|=(op&0x0e00)>>9;
\r
240 DisaGetEa(deat,dea,size);
\r
242 sprintf(inst,"move%s.%c",movea,Tasm[size]);
\r
243 sprintf(DisaText,"%s %s, %s",inst,seat,deat);
\r
247 // ================ Opcodes 0x4000+ ================
\r
248 static int DisaNeg(int op)
\r
250 // 01000tt0 xxeeeeee (tt=negx/clr/neg/not, xx=size, eeeeee=EA)
\r
253 char *opcode[4]={"negx","clr","neg","not"};
\r
256 size=(op>>6)&3; if (size>=3) return 1;
\r
257 DisaGetEa(eat,op&0x3f,size);
\r
259 sprintf(DisaText,"%s.%c %s",opcode[type],Tasm[size],eat);
\r
263 // ================ Opcodes 0x40c0+ ================
\r
264 static int DisaMoveSr(int op)
\r
266 // 01000tt0 11eeeeee (tt=type, xx=size, eeeeee=EA)
\r
272 DisaGetEa(eat,ea,1);
\r
276 default: sprintf(DisaText,"move sr, %s", eat); break;
\r
277 case 1: sprintf(DisaText,"move ccr, %s",eat); break;
\r
278 case 2: sprintf(DisaText,"move %s, ccr",eat); break;
\r
279 case 3: sprintf(DisaText,"move %s, sr", eat); break;
\r
284 // ================ Opcodes 0x41c0+ ================
\r
285 static int DisaLea(int op)
\r
287 // Lea 0100nnn1 11eeeeee (eeeeee=ea)
\r
289 char seat[64]="",deat[64]="";
\r
292 DisaGetEa(seat,sea,0);
\r
294 dea=(op>>9)&7; dea|=8;
\r
295 DisaGetEa(deat,dea,2);
\r
297 sprintf(DisaText,"lea %s, %s",seat,deat);
\r
301 static int MakeRegList(char *list,int mask,int ea)
\r
303 int reverse=0,i=0,low=0,len=0;
\r
305 if ((ea&0x38)==0x20) reverse=1; // -(An), bitfield is reversed
\r
307 mask&=0xffff; list[0]=0;
\r
314 if (reverse) bit=0x8000>>i; else bit=1<<i;
\r
317 if (bit==0 || i==8)
\r
319 // low to i-1 are a continuous section, add it:
\r
321 int ad=low&8?'a':'d';
\r
322 if (low==i-1) sprintf(add,"%c%d/", ad,low&7);
\r
323 if (low< i-1) sprintf(add,"%c%d-%c%d/",ad,low&7, ad,(i-1)&7);
\r
326 low=i; // Next section
\r
329 if (bit==0) low=i+1;
\r
332 // Knock off trailing '/'
\r
334 if (len>0) if (list[len-1]=='/') list[len-1]=0;
\r
338 // ================ Opcodes 0x4840+ ================
\r
339 static int DisaSwap(int op)
\r
341 // Swap, 01001000 01000nnn swap Dn
\r
342 sprintf(DisaText,"swap d%d",op&7);
\r
346 // ================ Opcodes 0x4850+ ================
\r
347 static int DisaPea(int op)
\r
349 // Pea 01001000 01eeeeee (eeeeee=ea) pea
\r
353 ea=op&0x003f; if (ea<0x10) return 1; // swap opcode
\r
354 DisaGetEa(eat,ea,2);
\r
356 sprintf(DisaText,"pea %s",eat);
\r
360 // ================ Opcodes 0x4880+ ================
\r
361 static int DisaExt(int op)
\r
363 // Ext 01001000 1x000nnn (x=size, eeeeee=EA)
\r
367 size=(op>>6)&1; size++;
\r
368 DisaGetEa(eat,op&0x3f,size);
\r
370 sprintf(DisaText,"ext.%c %s",Tasm[size],eat);
\r
374 // ================ Opcodes 0x4890+ ================
\r
375 static int DisaMovem(int op)
\r
377 // Movem 01001d00 1xeeeeee regmask d=direction, x=size, eeeeee=EA
\r
380 char list[64]="",eat[64]="";
\r
383 size=((op>>6)&1)+1;
\r
384 ea=op&0x3f; if (ea<0x10) return 1; // ext opcode
\r
386 mask=DisaWord(DisaPc)&0xffff; DisaPc+=2;
\r
388 MakeRegList(list,mask,ea); // Turn register mask into text
\r
389 DisaGetEa(eat,ea,size);
\r
391 if (dir) sprintf(DisaText,"movem.%c %s, %s",Tasm[size],eat,list);
\r
392 else sprintf(DisaText,"movem.%c %s, %s",Tasm[size],list,eat);
\r
396 // ================ Opcodes 0x4e40+ ================
\r
397 static int DisaTrap(int op)
\r
399 sprintf(DisaText,"trap #%d",op&0xf);
\r
403 // ================ Opcodes 0x4e50+ ================
\r
404 static int DisaLink(int op)
\r
406 // Link opcode, 01001110 01010nnn dd link An,#offset
\r
408 char offset[32]="";
\r
410 DisaGetEa(eat,(op&7)|8,0);
\r
413 sprintf(DisaText,"link %s,#%s",eat,offset);
\r
418 // ================ Opcodes 0x4e58+ ================
\r
419 static int DisaUnlk(int op)
\r
421 // Link opcode, 01001110 01011nnn dd unlk An
\r
424 DisaGetEa(eat,(op&7)|8,0);
\r
425 sprintf(DisaText,"unlk %s",eat);
\r
430 // ================ Opcodes 0x4e60+ ================
\r
431 static int DisaMoveUsp(int op)
\r
433 // Move USP opcode, 01001110 0110dnnn move An to/from USP (d=direction)
\r
439 DisaGetEa(eat,ea,0);
\r
441 if (dir) sprintf(DisaText,"move usp, %s",eat);
\r
442 else sprintf(DisaText,"move %s, usp",eat);
\r
446 // ================ Opcodes 0x4e70+ ================
\r
447 static int Disa4E70(int op)
\r
449 char *inst[8]={"reset","nop","stop","rte","rtd","rts","trapv","rtr"};
\r
454 sprintf(DisaText,"%s",inst[n]);
\r
456 //todo - 'stop' with 16 bit data
\r
461 // ================ Opcodes 0x4a00+ ================
\r
462 static int DisaTst(int op)
\r
464 // Tst 01001010 xxeeeeee (eeeeee=ea)
\r
470 DisaGetEa(eat,ea,0);
\r
471 size=(op>>6)&3; if (size>=3) return 1;
\r
473 sprintf(DisaText,"tst.%c %s",Tasm[size],eat);
\r
477 // ================ Opcodes 0x4e80+ ================
\r
478 static int DisaJsr(int op)
\r
480 // Jsr/Jmp 0100 1110 1mEE Eeee (eeeeee=ea m=1=jmp)
\r
485 DisaGetEa(seat,sea,0);
\r
487 sprintf(DisaText,"j%s %s", op&0x40?"mp":"sr", seat);
\r
491 // ================ Opcodes 0x5000+ ================
\r
492 static int DisaAddq(int op)
\r
494 // 0101nnnt xxeeeeee (nnn=#8,1-7 t=addq/subq xx=size, eeeeee=EA)
\r
495 int num=0,type=0,size=0,ea=0;
\r
498 num =(op>>9)&7; if (num==0) num=8;
\r
500 size=(op>>6)&3; if (size>=3) return 1;
\r
503 DisaGetEa(eat,ea,size);
\r
505 sprintf(DisaText,"%s.%c #%d, %s",type?"subq":"addq",Tasm[size],num,eat);
\r
509 // ================ Opcodes 0x50c0+ ================
\r
510 static int DisaSet(int op)
\r
512 // 0101cccc 11eeeeee (sxx ea)
\r
513 static char *cond[16]=
\r
514 {"t" ,"f", "hi","ls","cc","cs","ne","eq",
\r
515 "vc","vs","pl","mi","ge","lt","gt","le"};
\r
520 cc=cond[(op>>8)&0xf]; // Get condition code
\r
522 if ((ea&0x38)==0x08) return 1; // dbra, not scc
\r
524 DisaGetEa(eat,ea,0);
\r
525 sprintf(DisaText,"s%s %s",cc,eat);
\r
529 // ================ Opcodes 0x50c8+ ================
\r
530 static int DisaDbra(int op)
\r
532 // 0101cccc 11001nnn offset (dbra/dbxx Rn,offset)
\r
533 int dea=0; char deat[64]="";
\r
536 static char *BraCode[16]=
\r
537 {"bt" ,"bra","bhi","bls","bcc","bcs","bne","beq",
\r
538 "bvc","bvs","bpl","bmi","bge","blt","bgt","ble"};
\r
542 DisaGetEa(deat,dea,2);
\r
544 // Get condition code
\r
545 Bra=BraCode[(op>>8)&0xf];
\r
549 Offset=(short)DisaWord(DisaPc); DisaPc+=2;
\r
551 sprintf(DisaText,"d%s %s, %x",Bra,deat,pc+Offset);
\r
555 // ================ Opcodes 0x6000+ ================
\r
556 static int DisaBranch(int op)
\r
558 // Branch 0110cccc nn (cccc=condition)
\r
561 static char *BraCode[16]=
\r
562 {"bra","bsr","bhi","bls","bcc","bcs","bne","beq",
\r
563 "bvc","bvs","bpl","bmi","bge","blt","bgt","ble"};
\r
566 // Get condition code
\r
567 Bra=BraCode[(op>>8)&0x0f];
\r
571 Offset=(char)(op&0xff);
\r
572 if (Offset== 0) { Offset=(short)DisaWord(DisaPc); DisaPc+=2; }
\r
573 else if (Offset==-1) { Offset= DisaLong(DisaPc); DisaPc+=4; }
\r
575 sprintf(DisaText,"%s %x",Bra,pc+Offset);
\r
579 // ================ Opcodes 0x7000+ ================
\r
580 static int DisaMoveq(int op)
\r
582 // Moveq 0111rrr0 nn (rrr=Dest register, nn=data)
\r
584 int dea=0; char deat[64]="";
\r
585 char *inst="moveq";
\r
589 DisaGetEa(deat,dea,2);
\r
591 val=(char)(op&0xff);
\r
592 sprintf(DisaText,"%s #$%x, %s",inst,val,deat);
\r
596 // ================ Opcodes 0x8000+ ================
\r
597 static int DisaArithReg(int op)
\r
599 // 1t0tnnnd xxeeeeee (tt=type:or/sub/and/add xx=size, eeeeee=EA)
\r
600 int type=0,size=0,dir=0,rea=0,ea=0;
\r
601 char reat[64]="",eat[64]="";
\r
602 char *opcode[]={"or","sub","","","and","add"};
\r
607 size=(op>> 6)&3; if (size>=3) return 1;
\r
610 if (dir && ea<0x10) return 1; // addx opcode
\r
612 DisaGetEa(reat,rea,size);
\r
613 DisaGetEa( eat, ea,size);
\r
615 if (dir) sprintf(DisaText,"%s.%c %s, %s",opcode[type],Tasm[size],reat,eat);
\r
616 else sprintf(DisaText,"%s.%c %s, %s",opcode[type],Tasm[size],eat,reat);
\r
620 // ================ Opcodes 0x8100+ ================
\r
621 static int DisaAbcd(int op)
\r
623 // 1t00ddd1 0000asss - sbcd/abcd Ds,Dd or -(As),-(Ad)
\r
625 int dn=0,addr=0,sn=0;
\r
626 char *opcode[]={"sbcd","abcd"};
\r
633 if (addr) sprintf(DisaText,"%s -(a%d), -(a%d)",opcode[type],sn,dn);
\r
634 else sprintf(DisaText,"%s d%d, d%d", opcode[type],sn,dn);
\r
639 // ================ Opcodes 0x80c0+ ================
\r
640 static int DisaMul(int op)
\r
642 // Div/Mul: 1m00nnns 11eeeeee (m=Mul, nnn=Register Dn, s=signed, eeeeee=EA)
\r
643 int type=0,rea=0,sign=0,ea=0,size=1;
\r
644 char reat[64]="",eat[64]="";
\r
645 char *opcode[2]={"div","mul"};
\r
647 type=(op>>14)&1; // div/mul
\r
652 DisaGetEa(reat,rea,size);
\r
653 DisaGetEa( eat, ea,size);
\r
655 sprintf(DisaText,"%s%c.%c %s, %s",opcode[type],sign?'s':'u',Tasm[size],eat,reat);
\r
659 // ================ Opcodes 0x90c0+ ================
\r
660 static int DisaAritha(int op)
\r
662 // Suba/Cmpa/Adda 1tt1nnnx 11eeeeee (tt=type, x=size, eeeeee=Source EA)
\r
663 int type=0,size=0,sea=0,dea=0;
\r
664 char seat[64]="",deat[64]="";
\r
665 char *aritha[4]={"suba","cmpa","adda",""};
\r
667 type=(op>>13)&3; if (type>=3) return 1;
\r
668 size=(op>>8)&1; size++;
\r
669 dea =(op>>9)&7; dea|=8; // Dest=An
\r
670 sea = op&0x003f; // Source
\r
672 DisaGetEa(seat,sea,size);
\r
673 DisaGetEa(deat,dea,size);
\r
675 sprintf(DisaText,"%s.%c %s, %s",aritha[type],Tasm[size],seat,deat);
\r
679 // ================ Opcodes 0xb000+ ================
\r
680 static int DisaCmpEor(int op)
\r
682 // Cmp/Eor 1011rrrt xxeeeeee (rrr=Dn, t=cmp/eor, xx=size extension, eeeeee=ea)
\r
683 char reat[64]="",eat[64]="";
\r
687 size=(op>>6)&3; if (size>=3) return 1; // cmpa opcode
\r
688 if ((op&0xf138)==0xb108) return 1; // cmpm opcode
\r
690 DisaGetEa(reat,(op>>9)&7,size);
\r
691 DisaGetEa(eat, op&0x3f, size);
\r
693 if (type) sprintf(DisaText,"eor.%c %s, %s",Tasm[size],reat,eat);
\r
694 else sprintf(DisaText,"cmp.%c %s, %s",Tasm[size],eat,reat);
\r
698 // ================ Opcodes 0xb108+ ================
\r
699 static int DisaCmpm(int op)
\r
701 // Cmpm 1011ddd1 xx001sss
\r
702 int type=0,size=0,dea=0,sea=0;
\r
703 char deat[64]="",seat[64]="";
\r
706 dea =(op>> 9)&7; dea|=8;
\r
707 size=(op>> 6)&3; if (size>=3) return 1;
\r
710 DisaGetEa(deat,dea,size);
\r
711 DisaGetEa(seat,sea,size);
\r
713 sprintf(DisaText,"cmpm.%c (%s)+, (%s)+",Tasm[size],seat,deat);
\r
718 // ================ Opcodes 0xc140+ ================
\r
719 // 1100ttt1 01000sss exg ds,dt
\r
720 // 1100ttt1 01001sss exg as,at
\r
721 // 1100ttt1 10001sss exg as,dt
\r
722 static int DisaExg(int op)
\r
724 int tr=0,type=0,sr=0;
\r
730 if (type==0x40) sprintf(DisaText,"exg d%d, d%d",sr,tr);
\r
731 else if (type==0x48) sprintf(DisaText,"exg a%d, a%d",sr,tr);
\r
732 else if (type==0x88) sprintf(DisaText,"exg a%d, d%d",sr,tr);
\r
738 // ================ Opcodes 0xd100+ ================
\r
739 static int DisaAddx(int op)
\r
741 // 1t01ddd1 xx000sss addx
\r
742 int type=0,size=0,dea=0,sea=0;
\r
743 char deat[64]="",seat[64]="";
\r
744 char *opcode[6]={"","subx","","","","addx"};
\r
748 size=(op>> 6)&3; if (size>=3) return 1;
\r
751 DisaGetEa(deat,dea,size);
\r
752 DisaGetEa(seat,sea,size);
\r
754 sprintf(DisaText,"%s.%c %s, %s",opcode[type],Tasm[size],seat,deat);
\r
758 // ================ Opcodes 0xe000+ ================
\r
759 static char *AsrName[4]={"as","ls","rox","ro"};
\r
760 static int DisaAsr(int op)
\r
762 // Asr/l/Ror/l etc - 1110cccd xxuttnnn
\r
763 // (ccc=count, d=direction xx=size extension, u=use reg for count, tt=type, nnn=register Dn)
\r
764 int count=0,dir=0,size=0,usereg=0,type=0,num=0;
\r
768 size =(op>>6)&3; if (size>=3) return 1; // todo Asr EA
\r
771 num = op &7; // Register number
\r
773 if (usereg==0) count=((count-1)&7)+1; // because ccc=000 means 8
\r
775 sprintf(DisaText,"%s%c.%c %c%d, d%d",
\r
776 AsrName[type], dir?'l':'r', Tasm[size],
\r
777 usereg?'d':'#', count, num);
\r
781 static int DisaAsrEa(int op)
\r
783 // Asr/l/Ror/l etc EA - 11100ttd 11eeeeee
\r
784 int type=0,dir=0,size=1;
\r
789 DisaGetEa(eat,op&0x3f,size);
\r
791 sprintf(DisaText,"%s%c.w %s", AsrName[type], dir?'l':'r', eat);
\r
795 // =================================================================
\r
797 static int TryOp(int op)
\r
799 if ((op&0xf100)==0x0000) DisaArithImm(op); // Ori/And/Sub/Add/Eor/Cmp Immediate
\r
800 if ((op&0xf5bf)==0x003c) DisaArithSr(op); // Ori/Andi/Eori $nnnn,sr
\r
801 if ((op&0xf100)==0x0100) DisaBtstReg(op);
\r
802 if ((op&0xf138)==0x0108) DisaMovep(op);
\r
803 if ((op&0xff00)==0x0800) DisaBtstImm(op); // Btst/Bchg/Bclr/Bset
\r
804 if ((op&0xc000)==0x0000) DisaMove(op);
\r
805 if ((op&0xf900)==0x4000) DisaNeg(op); // Negx/Clr/Neg/Not
\r
806 if ((op&0xf1c0)==0x41c0) DisaLea(op);
\r
807 if ((op&0xf9c0)==0x40c0) DisaMoveSr(op);
\r
808 if ((op&0xfff8)==0x4840) DisaSwap(op);
\r
809 if ((op&0xffc0)==0x4840) DisaPea(op);
\r
810 if ((op&0xffb8)==0x4880) DisaExt(op);
\r
811 if ((op&0xfb80)==0x4880) DisaMovem(op);
\r
812 if ((op&0xff00)==0x4a00) DisaTst(op);
\r
813 if ((op&0xfff0)==0x4e40) DisaTrap(op);
\r
814 if ((op&0xfff8)==0x4e50) DisaLink(op);
\r
815 if ((op&0xfff8)==0x4e58) DisaUnlk(op);
\r
816 if ((op&0xfff0)==0x4e60) DisaMoveUsp(op);
\r
817 if ((op&0xfff8)==0x4e70) Disa4E70(op);
\r
818 if ((op&0xff80)==0x4e80) DisaJsr(op);
\r
819 if ((op&0xf000)==0x5000) DisaAddq(op);
\r
820 if ((op&0xf0c0)==0x50c0) DisaSet(op);
\r
821 if ((op&0xf0f8)==0x50c8) DisaDbra(op);
\r
822 if ((op&0xf000)==0x6000) DisaBranch(op);
\r
823 if ((op&0xa000)==0x8000) DisaArithReg(op); // Or/Sub/And/Add
\r
824 if ((op&0xb1f0)==0x8100) DisaAbcd(op);
\r
825 if ((op&0xb130)==0x9100) DisaAddx(op);
\r
826 if ((op&0xb0c0)==0x80c0) DisaMul(op);
\r
827 if ((op&0xf100)==0x7000) DisaMoveq(op);
\r
828 if ((op&0x90c0)==0x90c0) DisaAritha(op);
\r
829 if ((op&0xf000)==0xb000) DisaCmpEor(op);
\r
830 if ((op&0xf138)==0xb108) DisaCmpm(op);
\r
831 if ((op&0xf130)==0xc100) DisaExg(op);
\r
832 if ((op&0xf000)==0xe000) DisaAsr(op);
\r
833 if ((op&0xf8c0)==0xe0c0) DisaAsrEa(op);
\r
842 if (DisaWord==NULL) return 1;
\r
845 DisaText[0]=0; // Assume opcode unknown
\r
847 op=DisaWord(DisaPc)&0xffff; DisaPc+=2;
\r
849 strcat(DisaText,Comment);
\r