-- $Source: /commtar/monoBANK/RTS/tKadagbl.dat,v $ 
-- $Revision: 1.3 $ $Date: 88/03/18 13:14:33 $ $Author: rac $ 
with System;
with EBCDIC;

package RTS_CICS_Global_Pkg is

--| This package provides a mapping for the Ada global areas
--| that are used by the CICS specific portion of the runtime
--| system.
--|
--| Only the CICS-specific "prefix" of the task global area is
--| mapped in this packaged.
--|
--| The mapping macro (for use by runtime system assembly language
--| code) for this data areas is ADAGLOBL. That macro and this package
--| MUST be kept in synch.

type RTS_Global_Record is record
    eyecatcher:             EBCDIC.Estring(1..4); -- "TGBL"
    parm_ptr:               System.ADDRESS;       -- original R1
    register_13:            System.ADDRESS;       -- original R13
    old_pica:               System.ADDRESS;       -- original PICA
    return_code:            Integer;              -- return code to CICS
    call_trace_stk_ptr:     System.ADDRESS;       -- reserved for "hook"
    flags:                  Integer;              -- flag bits
    user_field:             Integer;              -- reserved for user
end record;

for RTS_Global_Record use record -- at mod 4
    eyecatcher              at 0  range 0..31;
    parm_ptr                at 4  range 0..31;
    register_13             at 8  range 0..31;
    old_pica                at 12 range 0..31;
    return_code             at 20 range 0..31;
    call_trace_stk_ptr      at 52 range 0..31;
    flags                   at 56 range 0..31;
    user_field              at 60 range 0..31;
end record;

type RTS_Global_Ptr is access RTS_Global_Record;

function RTS_Global_Area
  return RTS_Global_Ptr;

pragma Interface(AIE_Assembler, RTS_Global_Area);
pragma Link_Name(RTS_Global_Area, "#ADAGPTR");

end RTS_CICS_Global_Pkg;
-- $Cprt start$
--  
-- Copyright (C) 1988 by Intermetrics, Inc. 
--  
--     This material may be used duplicated or disclosed by or for the 
-- U.S. Government pursuant to the copyright license under DAR clause 
-- 7-104.9(a) (May 1981). 
--  
--     This project was spnsored by the STARS Foundation 
--     Naval Research Laboratory, Washington DC 
--  
-- $Cprt end$