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