diff --git a/tests/tbf0230.pp b/tests/tbf0230.pp
index 476d951043..5a79b62636 100644
--- a/tests/tbf0230.pp
+++ b/tests/tbf0230.pp
@@ -8,7 +8,7 @@ var
 
 begin
  e:=-1.0;
- writeln(ln(e));
  writeln(ln(0));
  writeln(power(0,1.0));
+ writeln(ln(e));
 end .
diff --git a/tests/tbs0227.pp b/tests/tbs0227.pp
new file mode 100644
index 0000000000..ad4a5dd802
--- /dev/null
+++ b/tests/tbs0227.pp
@@ -0,0 +1,11 @@
+function getheapsize:longint;assembler;
+var
+  heapsize : longint;external name 'HEAPSIZE';
+asm
+        movl    HEAPSIZE,%eax
+end ['EAX'];
+
+begin
+  writeln(getheapsize);
+end.
+
diff --git a/tests/tbs0228.pp b/tests/tbs0228.pp
new file mode 100644
index 0000000000..b2e7097eaa
--- /dev/null
+++ b/tests/tbs0228.pp
@@ -0,0 +1,15 @@
+PROGRAM Buggy;
+
+{$ASMMODE ATT}
+
+PROCEDURE XX;  ASSEMBLER;
+TYPE
+  TabType=ARRAY[0..3] OF BYTE;
+CONST
+  TabCent   : TabType = (0,6,4,2);
+ASM
+    movzbl TabCent(,%eax),%ebx
+END;
+
+BEGIN
+END.
diff --git a/tests/tbs0230.pp b/tests/tbs0230.pp
new file mode 100644
index 0000000000..12f21bb9c1
--- /dev/null
+++ b/tests/tbs0230.pp
@@ -0,0 +1,14 @@
+{$ifdef go32v2}
+uses
+   dpmiexcp;
+{$endif}
+
+var
+   e : extended;
+
+begin
+ writeln('ln(0) = ',ln(0));
+ writeln(' zero ^ one = ',power(0,1.0));
+ e:=563545;
+ writeln('exp(',e,') = ',exp(e));
+end .
diff --git a/tests/tbs0234.pp b/tests/tbs0234.pp
new file mode 100644
index 0000000000..fa6d22dc80
Binary files /dev/null and b/tests/tbs0234.pp differ