68000 instruction test suite QL

Discussion and advice about emulating the QL on other machines.
User avatar
XorA
Site Admin
Posts: 1358
Joined: Thu Jun 02, 2011 11:31 am
Location: Shotts, North Lanarkshire, Scotland, UK

Re: 68000 instruction test suite QL

Post by XorA »

Less than 1.5 hours (I missed the end time as I was washing up) :-D


User avatar
mk79
QL Wafer Drive
Posts: 1349
Joined: Sun Feb 02, 2014 10:54 am
Location: Esslingen/Germany
Contact:

Re: 68000 instruction test suite QL

Post by mk79 »

I guess it should be quite a bit less, I re-tested QPC yesterday and it only took 30 minutes... much faster than I remembered (mostly used it on MiSTer a few years ago which took quite a bit longer...). I checked the screenshot timestamps to get the duration ;)


User avatar
XorA
Site Admin
Posts: 1358
Joined: Thu Jun 02, 2011 11:31 am
Location: Shotts, North Lanarkshire, Scotland, UK

Re: 68000 instruction test suite QL

Post by XorA »

mk79 wrote:I guess it should be quite a bit less, I re-tested QPC yesterday and it only took 30 minutes... much faster than I remembered (mostly used it on MiSTer a few years ago which took quite a bit longer...). I checked the screenshot timestamps to get the duration ;)
I did not think of that, 11:48->13:05 :-D


User avatar
M68008
Trump Card
Posts: 223
Joined: Sat Jan 29, 2011 1:55 am
Contact:

Re: 68000 instruction test suite QL

Post by M68008 »

XorA wrote:It seems I could use your testsuite, as the following code from uqlx I guess means its nbcd instruction does not work.

Code: Select all

IDECL(nbcd)
{ 
  w8      d,r;
  w8      d2,r2;
  d=ModifyAtEA_b((code>>3)&7,code&7);
  d2=((d&0x0f)>9? 9:(d&0x0f));
  d>>=8;
  if(d>9) d2+=90; else d2+=d*10;
  carry=d2!=0;
  r2=100-d2;
  if(xflag) r2--;
  xflag=carry;
  zero=zero && r2==0;
  r=(r2%10)+((r2/10)<<4);
  RewriteEA_b(r);
NEXT;
}
Note the shifting d all 8 bits, then checking for a value > 0
Interesting. Probably need to fix the same in Q-emuLator, then.


User avatar
M68008
Trump Card
Posts: 223
Joined: Sat Jan 29, 2011 1:55 am
Contact:

Re: 68000 instruction test suite QL

Post by M68008 »

M68008 wrote: Interesting. Probably need to fix the same in Q-emuLator, then.
Looks like I had already fixed NBCD in Q-emuLator for the general case, but there was still an issue when the input value was $FA.


User avatar
XorA
Site Admin
Posts: 1358
Joined: Thu Jun 02, 2011 11:31 am
Location: Shotts, North Lanarkshire, Scotland, UK

Re: 68000 instruction test suite QL

Post by XorA »

M68008 wrote:
M68008 wrote: Interesting. Probably need to fix the same in Q-emuLator, then.
Looks like I had already fixed NBCD in Q-emuLator for the general case, but there was still an issue when the input value was $FA.
Ace, look forward to the new release. (I had not got round to running full testsuite on Q-Emulator).


Post Reply