t_id
585
t_cpu
i386
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022992093 | 1027424 | False | True | Skipping test because for other cpu |
Record count: 1
{ %CPU=i386 } { %VERSION=1.1 } {$ifdef fpc} {$mode delphi} {$asmmode intel} {$endif} function LRot(Value:Byte) : Byte; assembler; asm MOV CL, Value MOV Result, CL MOV AL, 20 end; var i : Byte; begin i:=LRot(10); writeln('LRot(10) = ',i,' (should be 10)'); if i<>10 then begin writeln('ERROR!'); halt(1); end; end.