DataMuseum.dk

top - download

    Length: 1903 (0x76f)
    Types: TextFile
    Names: »ADA_RUNTIME_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 "ADA_RUNTIME"

;
;   This assembly file contains the initialization of
;   the shared ADA runtime
;

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

        comp_unit runtime_compunit

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

        .ext.l  __Runtime_Entry_Table

;
;   Setup Runtime Entry Table pointer in Configuration Parameter Table
;

        subprogram sp_rt,sp.internal,linkage.none
__ada_runtime:
        move.l  sp,d0                           ; get current stack pointer
        andi.l  #(-a32_size),d0                 ; mask for high order bits
        movea.l (cct_start + pi_cpt,d0),a0      ; get CPT address

        lea     (__runtime_entry_table,pc),a1   ; get address of entry table
        move.l  a1,(cpt_ada_runtime_ptr,a0)     ; put table pointer in CPT

        moveq.l #no$error,d1
        trap    #0
        .dc.w   f$exit

        end_subprograms
        
        .end    __ada_runtime