DataMuseum.dk

top - download

    Length: 3231 (0xc9f)
    Types: TextFile
    Names: »DEBUG_INFO_SEQ_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  "DEBUG_INFO_SEQ"
        .include "^common.runtime_definitions"
        .sect    ada_runtime_const,data,readonly,relocatable,alignment:=4

        .gbl.l  __Debug_Info_Sequential
    
        .ext.l  __debug.seq_root_creation
        .ext.l  __debug.seq_root_termination
        .ext.l  __Root_Task_Id
        .ext.l  __debug.raise

__debug_info_sequential:

Version:.dc.w   7                               ; version
        .dc.a   __debug.seq_root_creation
        .dc.a   __debug.seq_root_termination
        .dc.a   0                               ; Task_Create
        .dc.a   0                               ; Task_Term           
        .dc.b   12,-1                           ; Register with TCB at:
                                                ;   dynamic task creation
                                                ;   dynamic task termination
        .dc.a   __Root_Task_Id                  ; The one and only TCB
        .dc.a   __debug.raise
        .dc.b   -1,0                            ; Registers which contain:
                                                ;   PC of exception raise
                                                ;   Exception name
        .dc.w   0;                              ; Bottom Fp Value
        .dc.b   14                              ; Frame pointer register (A6)

tcb:    .dc.b   0
        .dc.b   tcb.exception_id                ; tcb exception id offset
        .dc.b   tcb.stack_bounds.first          ; tcb stack bounds first offset
        .dc.b   tcb.stack_bounds.size           ; tcb stack size offset
        .dc.b   tcb.suspension_state            ; state
        .dc.b   tcb.action_state                ; activity
        .dc.b   tcb.current_priority            ; current priority
        .dc.b   tcb.code_start                  ; tcb code start offset
        .dc.b   tcb.parent_tcb                  ; parent TCB address
        .dc.b   tcb.parent_frame_link           ; frame pointer of creator
        .dc.b   0                               ; Parent PC offset (not implemented)
        .dc.w   0                               ; FP0 offset in csa (not applicable here)
        .dc.w   0                               ; D0 offset in csa (not applicable here)
        .dc.w   0                               ; tcb.all_tcbs+queue.next offset (not applicable here)

        .align 4

        .end