testcode16/Simul_2/Test1_SystemFunc.pas

25   Inc(vchar ); if vchar  = #1       then good else bad end;
26   Inc(vbyte ); if vbyte  = 1        then good else bad end;
27   Inc(vword ); if vword  = word(1)  then good else bad end;
28   Inc(vdword); if vdword = dword(1) then good else bad end;
31   Inc(vword ); if vword  = $100  then good else bad end;
33   Inc(vdword); if vdword = $10000 then good else bad end;
40   Dec(vchar ); if vchar  = #255      then good else bad end;
41   Dec(vbyte ); if vbyte  = $FF       then good else bad end;
42   Dec(vword ); if vword  = $FFFF     then good else bad end;
43   Dec(vdword); if vdword = $FFFFFFFF then good else bad end;
46   Dec(vword ); if vword  = word($FF) then good else bad end;
48   Dec(vdword); if vdword = dword($FFFF) then good else bad end;
53   if vbyte  = 65  then good else bad end;
55   if vbyte  = 66  then good else bad end;
57   if vbyte  = 100  then good else bad end;
59   if vbyte  = 166  then good else bad end;
65   if vchar = 'A'  then good else bad end;
67   if vchar  = 'B'  then good else bad end;
70   if vchar  = 'B'  then good else bad end;
74   if vbit = 1  then good else bad end;
76   if vbit = 0  then good else bad end;
80   if vbit = 1  then good else bad end;
84   if vbit  = 0  then good else bad end;
86   if vbit  = 1  then good else bad end;
87   if bit(2) and 1 = 1 then good else bad end;
90   if bit(vbool) = 1 then good else bad end;
91   if bit(not vbool) = 0 then good else bad end;
92   if bit(not vbool) and bit(vbool) = 0 then good else bad end;
93   if bit(not vbool) or bit(vbool) = 1 then good else bad end;
97   if vbool  then good else bad end;
99   if not vbool then good else bad end;
103   if vbool then good else bad end;
107   if not vbool then good else bad end;
109   if vbool then good else bad end;
110   if boolean(2) and true then good else bad end;
113   if boolean(vbit) then good else bad end;
114   if not boolean(not vbit) then good else bad end;
115   if not (boolean(not vbit) and boolean(vbit) ) then good else bad end;
116   if boolean(not vbit) or boolean(vbit) then good else bad end;
120   if vbyte = 65  then good else bad end;
122   if vbyte = 65  then good else bad end;
124   if vbyte = $FF  then good else bad end;
127   if byte(vbit) = 0  then good else bad end;
129   if byte(vbit)+1 = 2  then good else bad end;
132   if byte(vbit and 0) = 0  then good else bad end;
135   if byte(vbyte) = 10  then good else bad end;
137   if byte(vbyte+5) = 15  then good else bad end;
140   if byte(vchar) = 48  then good else bad end;
143   if byte(vword) = 2  then good else bad end;
144   if byte(vword+1) = 3  then good else bad end;
147   if byte(vdword) = 4 then good else bad end;
148   if byte(vdword+dword(1)) = 5 then good else bad end;
152   if vword = word(65) then good else bad end;
154   if vword = word(65)  then good else bad end;
156   if vword = $FFFF  then good else bad end;
158   if vword = $0304  then good else bad end;
161   if word(vbyte) = word(65) then good else bad end;
162   if word(vbyte+1) = word(66) then good else bad end;
164   if word(vchar) = word(65)  then good else bad end;
166   if word(vword) = $FFFF  then good else bad end;
167   if word(vword+1) = word(0) then good else bad end;
169   if word(vdword) = $0304  then good else bad end;
170   if word(vdword+dword(1)) = $0305  then good else bad end;
174   if vdword = dword(65) then good else bad end;
176   if vdword = dword(65)  then good else bad end;
178   if vdword = dword($FFFF) then good else bad end;
180   if vdword = $01020304  then good else bad end;
183   if dword(vbyte) = dword(65) then good else bad end;
184   if dword(vbyte+1) = dword(66) then good else bad end;
186   if dword(vchar) = dword(65)  then good else bad end;
188   if dword(vword) = dword($FFFF)  then good else bad end;
189   if dword(vword+1) = dword(0) then good else bad end;
191   if dword(vdword) = $01020304  then good else bad end;
192   if dword(vdword+dword(1)) = $01020305  then good else bad end;
201   if TRISB = $FF then good else bad end;
205   if TRISA = 0 then good else bad end;
207   if TRISB = 0 then good else bad end;