+ implemented console output in the ZX Spectrum RTL. Writeln('Hello, world!'); now works!!! :)

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

2 files changed, 10 insertions, 4 deletions

diff --git a/rtl/zxspectrum/sysfile.inc b/rtl/zxspectrum/sysfile.inc
index 484bf00e4e..a4621ae79f 100644
--- a/rtl/zxspectrum/sysfile.inc
+++ b/rtl/zxspectrum/sysfile.inc
@@ -35,6 +35,13 @@ end;
 
 function do_write(h:thandle;addr:pointer;len : longint) : longint;
 begin
+  do_write:=len;
+  while len>0 do
+  begin
+    PrintChar(PChar(addr)^);
+    Inc(addr);
+    Dec(len);
+  end;
 end;
 
 
@@ -83,4 +90,5 @@ end;
 
 function do_isdevice(handle:THandle):boolean;
 begin
+  do_isdevice:=true;
 end;
diff --git a/rtl/zxspectrum/system.pp b/rtl/zxspectrum/system.pp
index 5279d44df6..ef4fb8e46b 100644
--- a/rtl/zxspectrum/system.pp
+++ b/rtl/zxspectrum/system.pp
@@ -53,7 +53,7 @@ function KeyPressed: Boolean;
 implementation
 
 const
-  LineEnding = #13#10;
+  LineEnding = #13;
   { LFNSupport is a variable here, defined below!!! }
   DirectorySeparator = '\';
   DriveSeparator = ':';
@@ -76,7 +76,7 @@ const
   CtrlZMarksEOF: boolean = true; (* #26 is considered as end of file *)
 
   sLineBreak = LineEnding;
-  DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
+  DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCR;
 
 var
   __heapsize: Word;external name '__heapsize';
@@ -267,7 +267,6 @@ end;
 
 procedure SysInitStdIO;
 begin
-(* TODO: doesn't work yet...
   OpenStdIO(Input,fmInput,StdInputHandle);
   OpenStdIO(Output,fmOutput,StdOutputHandle);
   OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
@@ -275,7 +274,6 @@ begin
   OpenStdIO(StdOut,fmOutput,StdOutputHandle);
   OpenStdIO(StdErr,fmOutput,StdErrorHandle);
 {$endif FPC_STDOUT_TRUE_ALIAS}
-*)
 end;
 
 begin