* PrintChar and OpenChannel converted to pure assembler functions

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@45135 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 16 insertions, 20 deletions

diff --git a/rtl/zxspectrum/system.pp b/rtl/zxspectrum/system.pp
index ef2ce354cf..06964f5d15 100644
--- a/rtl/zxspectrum/system.pp
+++ b/rtl/zxspectrum/system.pp
@@ -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;