with SYSTEM;   use SYSTEM;
with STARLET;  use STARLET;

package IO_DEFS is

IO_AUXILIARY    : constant FUNCTION_CODE_TYPE := 16#2B#;  -- p1=command
IO_COMMAND      : constant FUNCTION_CODE_TYPE := 16#28#;  -- p1=command
IO_COMMANDS     : constant FUNCTION_CODE_TYPE := 16#2C#;  -- p1=bufadr,
                                                           -- p2=bytcnt
IO_GO_TO_CACS   : constant FUNCTION_CODE_TYPE := 16#29#;  -- None
IO_GO_TO_CSBS   : constant FUNCTION_CODE_TYPE := 16#2A#;  -- None
IO_INITIALIZE   : constant FUNCTION_CODE_TYPE := 16#24#;  -- p1=mask, p2=addr
IO_LOADPARPOLL  : constant FUNCTION_CODE_TYPE := 16#33#;  -- p1=status byte
IO_PAR_POLL     : constant FUNCTION_CODE_TYPE := 16#26#;  -- None
IO_PARPOLLCON   : constant FUNCTION_CODE_TYPE := 16#32#;  -- p1=bufadr,
                                                           -- p2=bytcnt
IO_PASSCONTROL  : constant FUNCTION_CODE_TYPE := 16#2F#;  -- p1=talker address
IO_REC_EVENT    : constant FUNCTION_CODE_TYPE := 16#2E#;  -- None
IO_SER_POLL     : constant FUNCTION_CODE_TYPE := 16#22#;  -- p1=tlkbuf, 
                                                           -- p2=bytcnt, 
                                                           -- p3=response buffer
IO_M_ALLDEVICES : constant FUNCTION_CODE_TYPE := 16#0040#;

IO_SENSE        : constant FUNCTION_CODE_TYPE := 16#2F#;
IO_SERVICE      : constant FUNCTION_CODE_TYPE := 16#25#;  -- p1=status byte, 
                                                       -- [p2=extended address]
IO_SETEVENT     : constant FUNCTION_CODE_TYPE := 16#2D#;  -- p1=event mask


IO_SETMODE      : constant FUNCTION_CODE_TYPE := 16#23#;  -- p1=event mask
IO_M_ATTNAST    : constant FUNCTION_CODE_TYPE := 16#0100#;  -- P1=AST address
IO_M_BUFFERED   : constant FUNCTION_CODE_TYPE := 16#1000#;  -- None
IO_M_DIRECT     : constant FUNCTION_CODE_TYPE := 16#2000#;  -- None
IO_M_TIMOUT     : constant FUNCTION_CODE_TYPE := 16#4000#;  -- p1=seconds
IO_M_EOI        : constant FUNCTION_CODE_TYPE := 16#0080#;


IO_READPBLK     : constant FUNCTION_CODE_TYPE := 16#0C#;  -- p1=bufadr
                                                          -- p2=bytcnt
IO_READLBLK     : constant FUNCTION_CODE_TYPE := 16#21#;  -- p1=bufadr
                                                          -- p2=bytcnt
IO_READVBLK     : constant FUNCTION_CODE_TYPE := 16#31#;  -- p1=bufadr
                                                          -- p2=bytcnt
IO_M_TCS        : constant FUNCTION_CODE_TYPE := 16#0040#;


IO_WRITEPBLK    : constant FUNCTION_CODE_TYPE := 16#0B#;  -- p1=event mask
IO_WRITELBLK    : constant FUNCTION_CODE_TYPE := 16#20#;  -- p1=event mask
IO_WRITEVBLK    : constant FUNCTION_CODE_TYPE := 16#30#;  -- p1=event mask
IO_M_ENA_SRQ    : constant FUNCTION_CODE_TYPE := 16#0100#;

-- Univeral modifiers
IO_M_CONTROL    : constant FUNCTION_CODE_TYPE := 16#0200#;
IO_M_STANDBY    : constant FUNCTION_CODE_TYPE := 16#0400#;
IO_M_LEAVIS     : constant FUNCTION_CODE_TYPE := 16#0800#;

-- Auxiliary commands
SOFTWARE_RESET                    : constant unsigned_longword := 8#00#;
RELEASE_ACDS_HOLDOFF              : constant unsigned_longword := 8#01#;
RELEASE_RFD_HOLDOFF               : constant unsigned_longword := 8#02#;
HOLDOFF_ALL_DATA                  : constant unsigned_longword := 8#03#;
HOLDOFF_EOI_ONLY                  : constant unsigned_longword := 8#04#;

SET_NEW_BYTE_AVAIL_FALSE          : constant unsigned_longword := 8#05#;
FORCE_GROUP_EXECUTIVE_TRIGGER     : constant unsigned_longword := 8#06#;
RETURN_TO_LOCAL                   : constant unsigned_longword := 8#07#;
SEND_EOI_WITH_NEXT_BYTE           : constant unsigned_longword := 8#10#;
LISTEN_ONLY                       : constant unsigned_longword := 8#11#;

TALK_ONLY                         : constant unsigned_longword := 8#12#;
GO_TO_STANDBY                     : constant unsigned_longword := 8#13#;
TAKE_CONTROL_ASYNCH               : constant unsigned_longword := 8#14#;
TAKE_CONTROL_SYNCH                : constant unsigned_longword := 8#15#;
REQUEST_PARALLEL_POLL             : constant unsigned_longword := 8#16#;

SEND_INTERFACE_CLEAR              : constant unsigned_longword := 8#17#;
SEND_REMOTE_ENABLE                : constant unsigned_longword := 8#20#;
REQUEST_CONTROL                   : constant unsigned_longword := 8#21#;
RELEASE_CONTROL                   : constant unsigned_longword := 8#22#;
DISABLE_ALL_INTERRUPTS            : constant unsigned_longword := 8#23#;

PASS_THROUGH_NEXT_SECONDARY       : constant unsigned_longword := 8#24#;
SHORT_T1_SETTLING_TIME            : constant unsigned_longword := 8#25#;
SHADOW_HANDSHAKE                  : constant unsigned_longword := 8#26#;
VERY_SHORT_T1_DELAY               : constant unsigned_longword := 8#27#;
REQUEST_SERVICE_BIT_2             : constant unsigned_longword := 8#30#;

ON                                : constant unsigned_longword := 8#200#;
OFF                               : constant unsigned_longword := 8#000#;


--
-- AST parameters returned from an asynchronous QIO to identify the
-- user defined functions that was just completed.
--
I_MESSAGE_SENT              : constant unsigned_longword := 14;
I_LISTENERS_SET             : constant unsigned_longword := 15;
I_TALKER_SET                : constant unsigned_longword := 16;
I_GONE_TO_LOCAL             : constant unsigned_longword := 17;
I_SELECTED_DEVICES_CLEARED  : constant unsigned_longword := 18;
I_PP_CONFIGURED             : constant unsigned_longword := 19;
I_TRIGGERED                 : constant unsigned_longword := 20;
I_CONTROL_PASSED            : constant unsigned_longword := 21;
I_LOCAL_LOCKED_OUT          : constant unsigned_longword := 22;
I_INTERFACE_CLEARED         : constant unsigned_longword := 23;
I_PP_UNCONFIGURED           : constant unsigned_longword := 24;
I_SERIAL_POLL_RESULTS       : constant unsigned_longword := 25;
I_PP_RESULTS                : constant unsigned_longword := 26;
I_MESSAGE_RECEIVED          : constant unsigned_longword := 27;
I_SERVICE_REQUESTED         : constant unsigned_longword := 28;
I_PAR_POLL_LOADED           : constant unsigned_longword := 29;
I_DACR_HOLD_RELEASED        : constant unsigned_longword := 30;
I_RFD_HOLD_RELEASED         : constant unsigned_longword := 31;
I_AUX_COMMAND               : constant unsigned_longword := 32;
I_SENSE                     : constant unsigned_longword := 33;

CHANNEL                  : starlet.channel_type;
EFLAG                    : constant system.unsigned_longword := 4;

end IO_DEFS;