From 843024f3b7700be0fb864e16779526862913c64b Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 26 Apr 2020 23:16:48 +0000
Subject: [PATCH] * PrintChar and OpenChannel converted to pure assembler
 functions

git-svn-id: branches/z80@45135 -
---
 rtl/zxspectrum/system.pp | 36 ++++++++++++++++--------------------
 1 file 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;