summaryrefslogtreecommitdiff
path: root/packages/amunits/src/coreunits/console.pas
diff options
context:
space:
mode:
Diffstat (limited to 'packages/amunits/src/coreunits/console.pas')
-rw-r--r--packages/amunits/src/coreunits/console.pas41
1 files changed, 2 insertions, 39 deletions
diff --git a/packages/amunits/src/coreunits/console.pas b/packages/amunits/src/coreunits/console.pas
index 3780f3c90c..024faed007 100644
--- a/packages/amunits/src/coreunits/console.pas
+++ b/packages/amunits/src/coreunits/console.pas
@@ -24,12 +24,6 @@
nils.sjoholm@mailbox.swipnet.se Nils Sjoholm
}
-
-{$I useamigasmartlink.inc}
-{$ifdef use_amiga_smartlink}
- {$smartlink on}
-{$endif use_amiga_smartlink}
-
unit console;
INTERFACE
@@ -127,40 +121,9 @@ const
VAR ConsoleDevice : pDevice;
-FUNCTION CDInputHandler(events : pInputEvent; consoleDev : pLibrary) : pInputEvent;
-FUNCTION RawKeyConvert(events : pInputEvent; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : LONGINT;
+FUNCTION CDInputHandler(events : pInputEvent location 'a0'; consoleDev : pLibrary location 'a1') : pInputEvent; syscall ConsoleDevice 042;
+FUNCTION RawKeyConvert(events : pInputEvent location 'a0'; buffer : pCHAR location 'a1'; length : LONGINT location 'd1'; keyMap : pKeyMap location 'a2') : LONGINT; syscall ConsoleDevice 048;
IMPLEMENTATION
-FUNCTION CDInputHandler(events : pInputEvent; consoleDev : pLibrary) : pInputEvent;
-BEGIN
- ASM
- MOVE.L A6,-(A7)
- MOVEA.L events,A0
- MOVEA.L consoleDev,A1
- MOVEA.L ConsoleDevice,A6
- JSR -042(A6)
- MOVEA.L (A7)+,A6
- MOVE.L D0,@RESULT
- END;
-END;
-
-FUNCTION RawKeyConvert(events : pInputEvent; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : LONGINT;
-BEGIN
- ASM
- MOVE.L A6,-(A7)
- MOVEA.L events,A0
- MOVEA.L buffer,A1
- MOVE.L length,D1
- MOVEA.L keyMap,A2
- MOVEA.L ConsoleDevice,A6
- JSR -048(A6)
- MOVEA.L (A7)+,A6
- MOVE.L D0,@RESULT
- END;
-END;
-
END. (* UNIT CONSOLE *)
-
-
-