DataMuseum.dk

top - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »AMDIO.SRC«

└─⟦c9df7130d⟧ Bits:30005915 Pascal MT+ Release 5.2 (Jet-80)
    └─ ⟦this⟧ »AMDIO.SRC« 

TextFile

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.
«eof»