MODULE AMDIOROUTINE;
(*----------------------------------------------------------*)
(* THIS MODULE CONTAINS TWO "ASSEMBLY" LANGUAGE SUBROUTINES *)
(* WHICH ARE CALLED FROM THE FPRTNS MODULE AND IF LOADED    *)
(* THE TRAN9511 MODULE.					    *)
(* 							    *)
(* THESE ROUTINES ARE SPECIFIC TO PASCAL/MT+ AND PASS       *)
(* PARAMETERS BACK AND FORTH THROUGH REGISTERS		    *)
(*							    *)
(* THE USER SHOULD CHANGE THE PORT NUMBERS AS NECESSARY     *)
(* FOR THEIR PARTICULAR HARDWARE IMPLEMENTATION OF THE 9511 *)
(*----------------------------------------------------------*)

PROCEDURE @O95D;	(* OUTPUT A-REG TO 9511 DATA PORT *)
BEGIN
  INLINE("OUT / $88)	(* CHANGE TO YOUR 9511 DATA PORT NUMBER *)
END;

PROCEDURE @O95C;	(* OUTPUT A-REG TO 9511 CONTROL PORT *)
BEGIN
  INLINE("OUT / $89)	(* CHANGE TO YOUR 9511 CTRL PORT NUMBER *)
END;

PROCEDURE @I95D;	(* INPUT A-REG FROM 9511 DATA PORT *)
BEGIN
  INLINE("IN / $88)	(* CHANGE TO YOUR 9511 DATA PORT (SAME AS @O95D) *)
END;

PROCEDURE @I95C;	(* INPUT A-REG FROM 9511 CONTROL PORT *)
BEGIN
  INLINE("IN / $89)	(* CHANGE TO YOUR 9511 CTRL PORT (SAME AS @O95C) *)
END;

MODEND.