paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 21:09:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PrintChar and OpenChannel converted to pure assembler functions

Browse Source 
git-svn-id: branches/z80@45135 -
This commit is contained in:
nickysn 2020-04-26 23:16:48 +00:00
parent fe05a87a27
commit 843024f3b7
1 changed files with 16 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/zxspectrum/system.pp
View File

@ -146,8 +146,7 @@ begin
KeyPressed:=LastKey<>#0;
end;
procedure OpenChannel(Chan: Byte);
begin
procedure OpenChannel(Chan: Byte);assembler;
asm
ld iy,(save_iy)
ld a, (Chan)
@ -156,10 +155,8 @@ begin
pop ix
ld (save_iy),iy
end;
end;
procedure PrintChar(Ch: Char);
begin
procedure PrintChar(Ch: Char);assembler;
asm
ld iy,(save_iy)
ld a, (Ch)
@ -168,7 +165,6 @@ begin
pop ix
ld (save_iy),iy
end;
end;
procedure PrintLn;
begin