paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-02 03:01:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added fancier ZX Spectrum console output stuff: OpenChannel, Ink, Paper and GotoXY

Browse Source 
git-svn-id: branches/z80@44901 -
This commit is contained in:
nickysn 2020-04-21 00:56:29 +00:00
parent 168c009bc3
commit 93be8bba50
1 changed files with 38 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
rtl/zxspectrum/system.pp
View File

@ -54,11 +54,18 @@ Type
procedure fpc_InitializeUnits;compilerproc;
Procedure fpc_do_exit;compilerproc;
{ OpenChannel(2) opens the upper screen
OpenChannel(1) opens the lower screen
OpenChannel(3) opens the ZX Printer }
procedure OpenChannel(Chan: Byte);
procedure PrintChar(Ch: Char);
procedure PrintLn;
procedure PrintHexDigit(const d: byte);
procedure PrintHexByte(const b: byte);
procedure PrintHexWord(const w: word);
procedure Ink(colour: Byte);
procedure Paper(colour: Byte);
procedure GotoXY(X, Y: Byte);
implementation
@ -75,16 +82,22 @@ begin
until false;
end;
procedure OpenChannel(Chan: Byte);
begin
asm
ld iy,(save_iy)
ld a, (Chan)
push ix
call 5633
pop ix
ld (save_iy),iy
end;
end;
procedure PrintChar(Ch: Char);
begin
asm
ld iy,(save_iy)
ld a, 2
push ix
call 5633
pop ix
ld a, (Ch)
push ix
rst 16
@ -153,4 +166,23 @@ begin
PrintHexByte(Byte(w));
end;
procedure Ink(colour: Byte);
begin
PrintChar(#16);
PrintChar(Char(colour));
end;
procedure Paper(colour: Byte);
begin
PrintChar(#17);
PrintChar(Char(colour));
end;
procedure GotoXY(X, Y: Byte);
begin
PrintChar(#22);
PrintChar(Char(X-1));
PrintChar(Char(Y-1));
end;
end.