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

36
rtl/zxspectrum/system.pp
View File

@ -146,28 +146,24 @@ begin
KeyPressed:=LastKey<>#0;
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;
procedure OpenChannel(Chan: Byte);assembler;
asm
ld iy,(save_iy)
ld a, (Chan)
push ix
call 5633
pop ix
ld (save_iy),iy
end;
procedure PrintChar(Ch: Char);
begin
asm
ld iy,(save_iy)
ld a, (Ch)
push ix
rst 16
pop ix
ld (save_iy),iy
end;
procedure PrintChar(Ch: Char);assembler;
asm
ld iy,(save_iy)
ld a, (Ch)
push ix
rst 16
pop ix
ld (save_iy),iy
end;
procedure PrintLn;