|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 751 (0x2ef)
Types: TextFile
Names: »V«
└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
└─ ⟦9a14c9417⟧ »DATA«
└─⟦this⟧
-- Copyright 1988 Verdix Corporation ------------------------------------------------------------------------------ -- Interface to the routines that contain the actual machine trap instructions -- for trapping to TDM or kernel. ------------------------------------------------------------------------------ PACKAGE V_I_Trap IS PRAGMA Suppress (All_Checks); PRAGMA Suppress (Exception_Tables); PRAGMA Not_Elaborated; -- -- The following routines do the traps -- PROCEDURE Trap_To_Tdm; PROCEDURE Trap_To_Krn; PRIVATE PRAGMA Interface (Ada, Trap_To_Tdm); PRAGMA Interface_Name (Trap_To_Tdm, "__TRAP_TO_TDM"); PRAGMA Interface (Ada, Trap_To_Krn); PRAGMA Interface_Name (Trap_To_Krn, "__TRAP_TO_KRN"); END V_I_Trap;