IMPLEMENTATION MODULE TKCalls;

FROM String IMPORT CopyLC ;

FROM SYSTEM IMPORT REGISTER , TKCALL ;

(* ========================================================================= *)

PROCEDURE Version( VAR String : ARRAY OF CHAR ) ;
BEGIN
   CopyLC( "TKCalls         0.01/02  17 Aug 84 13:00:50" , String ) ;
END Version ;


PROCEDURE TKCall ;
(* Performs the TK call specified by the Register array. *)
BEGIN
   Register[ 0 ] := CARDINAL( TKCALL( Register[ 0 ] ,
                                      Register[ 1 ] ,
                                      Register[ 2 ] ,
                                      Register[ 3 ] ,
                                      Register[ 4 ] ,
                                      Register[ 5 ] ,
                                      Register[ 6 ] ,
                                      Register[ 7 ] ) ) ;
   Register[ 1 ] := CARDINAL( REGISTER( 1 ) ) ;
   Register[ 2 ] := CARDINAL( REGISTER( 2 ) ) ;
   Register[ 3 ] := CARDINAL( REGISTER( 3 ) ) ;
   Register[ 4 ] := CARDINAL( REGISTER( 4 ) ) ;
   Register[ 5 ] := CARDINAL( REGISTER( 5 ) ) ;
   Register[ 6 ] := CARDINAL( REGISTER( 6 ) ) ;
   Register[ 7 ] := CARDINAL( REGISTER( 7 ) ) ;
END TKCall ;


END TKCalls.