+ added PrintShortString to the ZX Spectrum RTL to help with testing

git-svn-id: branches/z80@45099 -

rtl/zxspectrum/system.pp

@@ -40,6 +40,7 @@ var
 procedure OpenChannel(Chan: Byte);
 procedure PrintChar(Ch: Char);
 procedure PrintLn;
+procedure PrintShortString(const s: ShortString);
 procedure PrintHexDigit(const d: byte);
 procedure PrintHexByte(const b: byte);
 procedure PrintHexWord(const w: word);
@@ -243,6 +244,14 @@ begin
   PrintChar(Char(Y-1));
 end;
 
+procedure PrintShortString(const s: ShortString);
+var
+  i: byte;
+begin
+  for i:=1 to length(s) do
+    PrintChar(s[i]);
+end;
+
 {*****************************************************************************
                          SystemUnit Initialization
 *****************************************************************************}