blob: 750442d1a95ef0285dc6b3b1ea72697d2d492997 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{$r+}
{$q+}
var
wo: word;
si: smallint;
begin
wo:=$9876;
if swap(wo)<>$7698 then
halt(1);
if swapendian(wo)<>$7698 then
halt(2);
wo:=$1290;
if swap(wo)<>$9012 then
halt(3);
if swapendian(wo)<>$9012 then
halt(4);
si:=smallint($9876);
if swap(si)<>$7698 then
halt(5);
if swapendian(si)<>$7698 then
halt(6);
si:=$1290;
if swap(si)<>smallint($9012) then
halt(7);
if swapendian(si)<>smallint($9012) then
halt(8);
end.
|
