DataMuseum.dk

top - download

    Length: 2412 (0x96c)
    Types: TextFile
    Names: »PREDEFINED_EXCEPTIONS_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 "predefined_exceptions"
        .include "^standard_assembler_include_file"
        .include "runtime_definitions"
        comp_unit  exception_compunit,constraint_err

        .gbl.l  __constraint_error
        .gbl.l  __numeric_error
        .gbl.l  __program_error
        .gbl.l  __storage_error
        .gbl.l  __tasking_error

        .sect   predefined_exception_values,data,readonly,alignment:=4

        .local
$predefined_exception_vars:
$constraint_error_var:
        .dc.l   1
        .dc.w   1
        .dc.w   16
        .ascii  "CONSTRAINT_ERROR"
$cevend:

$numeric_error_var:
        .dc.l   1
        .dc.w   2
        .dc.w   13
        .ascii  "NUMERIC_ERROR"
$nevend:

$program_error_var:
        .dc.l   1
        .dc.w   3
        .dc.w   13
        .ascii  "PROGRAM_ERROR"
$pevend:

$storage_error_var:
        .dc.l   1
        .dc.w   4
        .dc.w   13
        .ascii  "STORAGE_ERROR"
$sevend:

$tasking_error_var:
        .dc.l   1
        .dc.w   5
        .dc.w   13
        .ascii  "TASKING_ERROR"
        .align  4
$tevend:

        .sect   predefined_exceptions,data,readonly,alignment:=4
constraint_err:
__constraint_error:     .ds.b   $cevend - $constraint_error_var
__numeric_error:        .ds.b   $nevend - $numeric_error_var
__program_error:        .ds.b   $pevend - $program_error_var
__storage_error:        .ds.b   $sevend - $storage_error_var
__tasking_error:        .ds.b   $tevend - $tasking_error_var
                        .align  4
        .indirect       $predefined_exception_vars

        .end