paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 15:20:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: branches/z80@45099 -
This commit is contained in:
nickysn 2020-04-26 14:03:42 +00:00
parent 6088f4a882
commit 57912f673f
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/zxspectrum/system.pp
View File

@ -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
*****************************************************************************}