|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1259 (0x4eb) Types: TextFile Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦7e3383029⟧ └─⟦this⟧
with transport_defs; with system; package transport is transport_error: exception; transport_timeout: exception; transport_init_err: exception; transport_tdm_xcpt: exception; -- target processor exception while in -- TDM, normally, referencing non-existant -- memory transport_contention: exception; -- both sides trying to send procedure put_signal( sig: transport_defs.tdm_sig_t ); procedure send( chan: in transport_defs.channel_t; count: in natural; buf_addr: in system.address ); procedure receive( chan: in transport_defs.channel_t; count: in out natural; buf_addr: in system.address; rcvd_msg: out boolean ); ------------------------------------------------------ -- intialize communications hardware and reset -- -- transport internal state -- ------------------------------------------------------ procedure initialize( verbose: boolean := FALSE; preempt: boolean := FALSE ); ------------------------------------------------------ -- reset internal state of transport package, -- -- without re-initializing the hardware -- ------------------------------------------------------ procedure reset; procedure shutdown; end transport