DataMuseum.dk

top - metrics - download

    Length: 3466 (0xd8a)
    Types: TextFile
    Names: »DEBUG_INFO_TSK_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_TASK"

        .include  "^Common.runtime_Definitions"

        .sect     ADA_RUNTIME_CONST,data,readonly,relocatable,alignment:=4

        .gbl.l    __Debug_Info_Tasking
        
        .ext.l   __debug.tsk_root_creation
        .ext.l   __debug.tsk_root_termination
        .ext.l   __debug.task_creation
        .ext.l   __debug.task_termination
        .ext.l   __Root_Task_Id            ; Root task TCB
        .ext.l   __debug.raise

__Debug_Info_Tasking:
Version:.dc.w   7                               ; version
        .dc.a   __debug.tsk_root_creation       ; Root_Create
        .dc.a   __debug.tsk_root_termination    ; Root_Term
        .dc.a   __debug.task_creation           ; Task_Create
        .dc.a   __debug.task_termination        ; Task_Termination
        .dc.b   12,-1                           ; Registers which TCB at:
                                                ;   dynamic task creation
                                                ;   dynamic task deletion
        .dc.a   __Root_Task_Id                  ; Root task TCB ref
        .dc.a   __debug.raise                   ; Exception_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 OFFSETS

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