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

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@45099 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 0 deletions

diff --git a/rtl/zxspectrum/system.pp b/rtl/zxspectrum/system.pp
index 1fed49dae7..7eb2ddb891 100644
--- a/rtl/zxspectrum/system.pp
+++ b/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
 *****************************************************************************}