Test suite results for test file tbs/tb0236.pp

Test run data :

View Test suite results

Test file "tbs/tb0236.pp" information:

t_id 467
t_cpu i386
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=3 Percentage= 6.00

Skipped=47 Percentage= 94.00

Source:

{ %CPU=i386 }
{ Old file: tbs0276.pp }
{ Asm, intel reference parsing incompatibility         OK 0.99.13 (PFV) }

{$asmmode intel}
type
  trec = record
    ypos,
    xpos : longint;
  end;

  z80cont = record
     dummy : longint;
     page: array [0..11,0..16383] of byte;
  end;

var
  rec : tRec;
  myz80 : z80cont;
  error : boolean;
  test  : byte;
begin
  error:=false;
  test:=23;
  rec.xpos:=1;
  myz80.page[0,5]:=15;
  asm
     lea   edi, Rec
     cmp   byte ptr [edi+tRec.Xpos], 1
     jne   @error
     cmp   byte ptr [edi].trec.Xpos, 1
     jne   @error
     mov   ecx, 5
     mov   dh,byte ptr myz80.page[ecx]
     cmp   dh,15
     jne   @error
     mov   byte ptr myz80.page[ecx],51
     jmp   @noerror
     @error:
     mov   byte ptr error,1
     @noerror:
  end;
  if error or (test<>23) or (myz80.page[0,5]<>51) then
    begin
      Writeln('Error in assembler code generation');
      Halt(1);
    end
  else
    Writeln('Correct assembler generated');
end.

Link to SVN view of tbs/tb0236.pp source.