testcode16/Simul_2/Word2.pas

23   if word(0) + word(1) = 1 then good else bad end;
24   if 32768 + 1000 = 33768 then good else bad end;
27   if 257 + a = 357 then good else bad end;
30   if 256 + (a+1) = 357 then good else bad end;
33   if a + 257 = 357 then good else bad end;
36   if a + b = 256 then good else bad end;
38   if a + b = 1256 then good else bad end;
41   if a + (a+1) = 601 then good else bad end;
44   if (a+1) + 256 = 357 then good else bad end;
47   if (a+1) + b = 302 then good else bad end;
49   if a + b + 5 = 605 then good else bad end;
52   if (a+500) + (b + 500) = 1600 then good else bad end;
59   if word(0) + 1 = 1 then good else bad end;
60   if 65534 + 1 = 65535 then good else bad end;
63   if 257 + vbyte = 357 then good else bad end;
66   if 256 + (vbyte+1) = 357 then good else bad end;
69   if a + 25 = word(125) then good else bad end;
72   if a + vbyte = word(1) then good else bad end;
74   if a + vbyte = 1001 then good else bad end;
77   if a + (vbyte+1) = 306 then good else bad end;
80   if (a+1) + 5 = word(106) then good else bad end;
83   if (a+1) + vbyte = 302 then good else bad end;
86   if (a+500) + (vbyte + 1) = 701 then good else bad end;
93   if 1 + word(0) = 1 then good else bad end;
94   if 1 + 65534  = 65535 then good else bad end;
97   if 100 + vword = 357 then good else bad end;
100   if 100 + (vword + 1) = 357 then good else bad end;
103   if vbyte + 350 = 450 then good else bad end;
106   if vbyte + vword = word(1) then good else bad end;
108   if vbyte + vword = 1001 then good else bad end;
111   if vbyte + (vword+1) = 306 then good else bad end;
114   if (vbyte+1) + 500 = 601 then good else bad end;
117   if (vbyte+1) + vword = 302 then good else bad end;
120   if (vbyte+100) + (vword + 500) = 800 then good else bad end;
126   if word(2) - word(1) = 1 then good else bad end;
127   if word(1000) - word(500) = 500 then good else bad end;
130   if word(10) - a = word(8) then good else bad end;
131   if word(1000) - a = 998 then good else bad end;
133   if word(10) - (a+1) = word(7) then good else bad end;
134   if word(1000) - (498 + a) = 500 then good else bad end;
136   if a - word(1) = word(1) then good else bad end;
138   if a - 300 = 700 then good else bad end;
141   if a - b = word(1) then good else bad end;
143   if a - b = word(1) then good else bad end;
145   if a - b = 1000 then good else bad end;
147   if a - (b+1) = 999 then good else bad end;
149   if (a+1000) - 1250 = 750 then good else bad end;
151   if (a+1000) - b = 2000 then good else bad end;
153   if (a+1000) - (b+1000) = 1000 then good else bad end;
159   if word(2) umulword word(1) = word(2) then good else bad end;
160   if word(100) umulword 500 = 50000 then good else bad end;
163   if word(10) - a = word(8) then good else bad end;
164   if word(1000) - a = 998 then good else bad end;
166   if word(10) - (a+1) = word(7) then good else bad end;
167   if word(1000) - (498 + a) = 500 then good else bad end;
169   if a - word(1) = word(1) then good else bad end;
171   if a - 300 = 700 then good else bad end;
174   if a - b = word(1) then good else bad end;
176   if a - b = word(1) then good else bad end;
178   if a - b = 1000 then good else bad end;
180   if a - (b+1) = 999 then good else bad end;
182   if (a+1000) - 1250 = 750 then good else bad end;
184   if (a+1000) - b = 2000 then good else bad end;
186   if (a+1000) - (b+1000) = 1000 then good else bad end;