--******************************************************************************************************************** -- Created: 9-Mar-2021 22:28:15 by OpenVMS SDL EV3-3 -- Source: 16-MAR-1993 10:47:48 $1$DGA8085:[LIB_ADA.LIS]AIBDEF.SDL;1 --******************************************************************************************************************** with SYSTEM; use SYSTEM; with STARLET; use STARLET; with CONDITION_HANDLING; use CONDITION_HANDLING; package AIBDEF is -- module $AIBDEF --+ -- FORMAT OF ACP I/O BUFFER PACKET. THIS PACKET CONTAINS ALL THE DATA -- TRANSMITTED FROM THE USER TO THE ACP AND BACK FOR AN ACP FUNCTION. -- NOTE THAT THE DESCRIPTORS IN THE PACKET ARE TREATED BY BLISS CODE -- AS A BLOCKVECTOR. --- AIB_K_LENGTH : constant := 12; -- LENGTH OF PACKET HEADER AIB_C_LENGTH : constant := 12; -- LENGTH OF PACKET HEADER AIB_S_AIBDEF : constant := 12; -- OLD SIZE NAME, SYNONYM FOR AIB$S_AIB type AIB_TYPE is record DESCRIPT : ADDRESS; -- ADDRESS OF START OF DESCRIPTORS FILLER_1 : UNSIGNED_LONGWORD; -- SPARE LONGWORD SIZE : UNSIGNED_WORD; -- SIZE OF PACKET TYP : UNSIGNED_BYTE; -- PACKET TYPE CODE FILLER_2 : UNSIGNED_BYTE; -- SPARE end record; for AIB_TYPE use record DESCRIPT at 0 range 0 .. 31; FILLER_1 at 4 range 0 .. 31; SIZE at 8 range 0 .. 15; TYP at 10 range 0 .. 7; FILLER_2 at 11 range 0 .. 7; end record; for AIB_TYPE'SIZE use 96; AIB_TYPE_INIT : constant AIB_TYPE := (DESCRIPT => ADDRESS_ZERO, FILLER_1 => 0, SIZE => 0, TYP => 0, FILLER_2 => 0); end AIBDEF;