some new ones

tests/webtbs/tbug918.pp

@@ -0,0 +1,15 @@
+program test;
+
+procedure Test1;
+var
+  a: Integer;
+
+    procedure Test2;
+    begin
+      a:= 0;
+    end;
+begin
+end;
+
+begin
+end.

tests/webtbs/tbug919.pp

@@ -0,0 +1,15 @@
+ var i:integer;
+{$i386_intel}
+{ "mov i,1"
+   is like
+  "mov word ptr [i],1"
+  or
+  movw i,$1  in ATT syntax }
+
+begin
+ asm
+  mov i, 1
+ end;
+  if i <> 1 then
+    halt(1);
+end.

tests/webtbs/tbug922.pp

@@ -0,0 +1,24 @@
+program test;
+
+{$ifdef win32}
+uses
+  windows;
+{$endif }
+
+procedure write1(  var charbuf:string);
+begin
+  Writeln(Charbuf);
+end;
+
+procedure write2(  var charbuf:string; attrbuf:array of word);
+begin
+  Writeln(Charbuf);
+end;
+
+var chars : String[82];
+    attrs : array [1..162] of word;
+begin
+  Chars := 'Das ist ein Test, den ich gerade schreibe';
+  write1(chars);
+  write2(chars,attrs);
+end.

tests/webtbs/tbug925.pp

@@ -0,0 +1,23 @@
+{$asmmode intel}
+
+{$ifdef go32v2}
+  PROCEDURE Cursor(Form: word);assembler;
+  asm
+     mov cx,word ptr[Form]
+     and cx,1F1Fh
+     mov ah,1
+     int 10h
+  end;
+{$else not go32v2}
+  { no interrupt call on other targets }
+  procedure cursor(form : word);assembler;
+  asm
+     mov cx,word ptr[Form]
+     and cx,1F1Fh
+     mov ah,1
+  end;
+{$endif go32v2}
+
+begin
+  Cursor($11F);
+end.