testcode10/Simul_2/Test3_Byte2.pas

24   if 0 < 0 then bad else good end;
25   if 0 < 1 then good else bad end;
26   if 255 < 0 then bad else good end;
30   if a < a then bad else good end;
31   if a < b then bad else good end;
32   if b < a then bad else good end;
35   if a < a then bad else good end;
36   if a < b then bad else good end;
37   if b < a then bad else good end;
41   if a < 0 then bad else good end;
42   if a < 1 then bad else good end;
43   if a < 255 then good else bad end;
44   if 0 < a then good else bad end;
45   if 255 < a then bad else good end;
49   if a < a+1 then good else bad end;
50   if a+1 < a then bad else good end;
52   if a+1 < a+2 then good else bad end;
53   if a+1 < a+1 then bad else good end;
54   if a+2 < a+1 then bad else good end;
62 	if 5>=4 then good else bad end;
63 	if 5>=5 then good else bad end;
64 	if 5>=6 then bad else good end;
67   if a >= a then good else bad end;
68   if a >= b then bad else good end;
69   if b >= a then good else bad end;
71 	if a <= a then good else bad end;
72 	if a <= 6 then good else bad end;
73 	if a <= 4 then bad else good end;
80   if $00 and a = 0 then good else bad end;
81   if $FF and b = $0F then good else bad end;
83   if $FF and (b+1) = $10 then good else bad end;
85   if b and $01 = $01 then good else bad end;
87   if a and b = $0F then good else bad end;
89   if a and (b+1) = $10 then good else bad end;
91   if (b+1) and $0F = $0 then good else bad end;
93   if (b+1) and a = $10 then good else bad end;
95   if (b+1) and (a+1) = $00 then good else bad end;
102   if $00 or a = $FF then good else bad end;
103   if $00 or b = $0F then good else bad end;
105   if $00 or (b+1) = $10 then good else bad end;
107   if b or $01 = $0F then good else bad end;
109   if a or b = $FF then good else bad end;
111   if a or (b+1) = $FF then good else bad end;
113   if (b+1) or $0F = $1F then good else bad end;
115   if (b+1) or b = $1F then good else bad end;
117   if (b+1) or (a+1) = $10 then good else bad end;
124   if $00 xor a = $FF then good else bad end;
125   if $00 xor b = $0F then good else bad end;
127   if $00 xor (b+1) = $10 then good else bad end;
129   if b xor $01 = $0E then good else bad end;
131   if a xor b = $F0 then good else bad end;
133   if a xor (b+1) = $EF then good else bad end;
135   if (b+1) xor $0F = $1F then good else bad end;
137   if (b+1) xor b = $1F then good else bad end;
139   if (b+1) xor (a+1) = $10 then good else bad end;
146   if not $00 = $FF then good else bad end;
147   if not $0F = $F0 then good else bad end;
149   if not a = $00 then good else bad end;