DataMuseum.dk

top - download

    Length: 2284 (0x8ec)
    Types: TextFile
    Names: »ENTRY_TABLE_ASM«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦24d1ddd49⟧ 
                └─⟦this⟧ 

TextFile

;    The use of this system is subject to the software license terms and
;    conditions agreed upon between Rational and the Customer.
;
;                Copyright 1988 by Rational.
;
;                          RESTRICTED RIGHTS LEGEND
;
;    Use, duplication, or disclosure by the Government is subject to
;    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
;    Technical Data and Computer Software clause at 52.227-7013.
;
;
;                Rational
;                3320 Scott Boulevard
;                Santa Clara, California 95054-3197
;
;   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
;   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
;   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
;   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
;   1976.  CREATED 1988.  ALL RIGHTS RESERVED.
;
;
        .module "RUNTIME_ENTRY_POINT_TABLE"
;
;
;

        .include "^^standard_assembler_include_file"
        .include "^^common.runtime_definitions"

        comp_unit  runtime_compunit

        .sect   ada_runtime_code,code,relocatable,alignment:=2

;
;   This module defines the table of entry points
;   to the shared runtime,
;
;   Each ADA program will have a pointer to this table
;   in __Runtime_Entry_Pointer.  The values in the table
;   are word offsets relative to the base of the table.
;   Calls to the services are generally performed by
;
;       movea.l (__runtime_entry_pointer,a5),a1
;       move.w  #rt.operation,d0
;       move.w  (a0,d0.w),d0 
;       jmp     (a0,d0.w)
;

        .gbl.l  __runtime_entry_table

        .gbl.l  __runtime_version_machine_id
        .gbl.l  __runtime_version_object_id

        .ext.l  __module_begin

;
;   Version information for the runtime.  Real values are filled in
;   when the runtime is loaded and executed.      
;
__runtime_version_machine_id:   .dc.l  0
__runtime_version_object_id:    .dc.l  0

;
;   Word before beginning to the entry point table
;   is offset to the beginning of the module.  Used
;   by the debugger.
;
        .local
        .dc.l   __module_begin - $base
__runtime_entry_table:
$base:

        .macro  build
        .ext.a  %1
        .dc.w   (%1-$base)/2

        .endmacro

        .include "^^common.entry_table_definitions"

        .end