|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Types: TextFile
Names: »AMDIO.SRC«
└─⟦02f213fda⟧ Bits:30008919 MT+ SPP 2/3
└─⟦this⟧ »AMDIO.SRC«
└─⟦8dcf1351b⟧ Bits:30004118/disk2.imd SW1720/I5 Pascal/MT+ Release 5.5
└─⟦this⟧ »AMDIO.SRC«
└─⟦c9df7130d⟧ Bits:30005915 Pascal MT+ Release 5.2 (Jet-80)
└─⟦this⟧ »AMDIO.SRC«
└─⟦e44a40b06⟧ Bits:30005968 SW1820/I8 RC855 Pascal MT+ Release 5.5
└─⟦this⟧ »AMDIO.SRC«
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»