|
@@ -189,7 +189,7 @@ begin
|
|
|
bit9_15 := 63;
|
|
|
assert((AsWord and $7fff) = $7FFF, 'Is: ' + IntToHex(Asword,4) + ' Should be $7FFF');
|
|
|
{$else}
|
|
|
- assert((AsWord and $fffe) = $c000, 'Is: ' + IntToHex(Asword,4) + ' Should be $C001');
|
|
|
+ assert((AsWord and $fffe) = $c000, 'Is: ' + IntToHex(Asword,4) + ' Should be $C000');
|
|
|
|
|
|
bit1_8 := $FE;
|
|
|
assert((AsWord and $fffe) = $FF00, 'Is: ' + IntToHex(Asword,4) + ' Should be $FF00');
|