DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: R T

⟦0f13568e2⟧ TextFile

    Length: 1939 (0x793)
    Types: TextFile
    Names: »RUNTIME_ENTRY_POINTS_ASM«

Derivation

└─⟦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_POINTS"

        .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_Pointer

        offset  set     0

        .macro build
        .gbl.a  %1
        subprogram sp_rt,sp.internal,linkage.simple
        .if (offset = 32)
%1:
        moveq.l #offset,d0
runtime_caller:
        movea.l (__runtime_entry_pointer,a5),a0
        move.w  (a0,d0.w*2),d0
        jmp     (a0,d0.w*2)

        .else
%1:
        moveq.l #offset,d0
        bra.s   runtime_caller
        .endif
        offset  set     offset + 1

        .endmacro


        .include "^common.entry_table_definitions"

        .ext.l  __tdlystm_indirect
        .gbl.a  __delay_statement
        subprogram sp_rt,sp.internal,linkage.simple
__delay_statement:
        jmp     ([__tdlystm_indirect,a5])       ; delays are unique

        end_subprograms

        .end