DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦03158708d⟧

    Length: 8192 (0x2000)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0d98       |    |		.CONST	0x0d98								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0007       |    |		.CONST	0x0007								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0090       |    |		.CONST	0x0090								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0020       |    |		.CONST	0x0020								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0 = .DEBUG	0x000b,0x0e02,0x0000,0x0000,0x005a,0x12e5,0x0000,0x0a38
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4817       |H   |		Short_Literal	0x17
000d 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible			; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0x11,0xfffd
0013 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x13,0xfffc
0015 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x15,0xfffb
0017 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x17,0xfffa
0019 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x19,0xfff9
001b 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1b,0xfff8
001d 4802       |H   |		Short_Literal	0x2							; Debug Table 0x0.0x8 = 0x1d,0xfff7
001e 032a       | *  |		Declare_Type	Record,Incomplete
001f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x9 = 0x1f,0xfff6
0020 02a0       |    |		Declare_Subprogram	Null_Subprogram
0021 e20e       |    |		Load	0x1,0xe
0022 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0023 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0xa = 0x23,0xfff5
0024 e20d       |    |		Load	0x1,0xd								; Debug Table 0x1 = .DEBUG	0x0024,0x0e1a,0x0000,0x0000,0x005a,0x21b5,0x0000,0x0008
													; Debug Table 0x1.0x0 = 0x24,0xffff
0025 0266       | f  |		Execute	Discrete,Bounds
0026 00e1       |    |		Load_Encached	Boolean_Cache
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 4801       |H   |		Short_Literal	0x1
0029 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
002a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1.0x1 = 0x2a,0xfffe
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 03ad       |    |		Declare_Type	Heap_Access,Defined
002d 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x2d,0xfffd
002e e20d       |    |		Load	0x1,0xd								; Debug Table 0x1.0x3 = 0x2e,0xfffc
002f 0266       | f  |		Execute	Discrete,Bounds
0030 00db       |    |		Load_Top	At_Offset_3
0031 035b       | [  |		Declare_Type	Array,Constrained
0032 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x1.0x4 = 0x32,0xfffb
0033 00d9       |    |		Load_Top	At_Offset_1
0034 02a0       |    |		Declare_Subprogram	Null_Subprogram
0035 e215       |    |		Load	0x1,0x15
0036 0326       | &  |		Complete_Type	Record,By_Defining
0037 029d 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call			; Debug Table 0x1.0x5 = 0x37,0xfffa
0039 029d 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call			; Debug Table 0x1.0x6 = 0x39,0xfff9
003b 6190       |a   |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x005a21b5}		; Debug Table 0x1.0x7 = 0x3b,0xfff8
003c 49e9       |I   |		Short_Literal	0x1e9
003d e001       |    |		Load	0x0,0x1
003e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
003f e001       |    |		Load	0x0,0x1
0040 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0041 e002       |    |		Load	0x0,0x2
0042 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0043 0387       |    |		Declare_Variable	Package
0044 00d8       |    |		Load_Top	At_Offset_0
0045 020f       |    |		Execute	Module,Activate
0046 6185       |a   |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x005a21b5}		; Debug Table 0x1.0x8 = 0x46,0xfff7
0047 49f6       |I   |		Short_Literal	0x1f6
0048 484c       |HL  |		Short_Literal	0x4c
0049 0092 01e8  |    |		Action	Push_String_Extended,0x1e8					; "Limit_Semantic_Messages"
004b 48c8       |H   |		Short_Literal	0xc8
004c 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
004d e002       |    |		Load	0x0,0x2
004e 191e       |    |		Execute	Package,Field_Reference,Field_Number 0x1e
004f e21b       |    |		Load	0x1,0x1b
0050 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0051 0387       |    |		Declare_Variable	Package
0052 00d8       |    |		Load_Top	At_Offset_0
0053 020f       |    |		Execute	Module,Activate
0054 029d 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call			; Debug Table 0x1.0x9 = 0x54,0xfff6
0056 029d 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call
0058 6173       |as  |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x005a21b5}
0059 4a06       |J   |		Short_Literal	0x206
005a 00e1       |    |		Load_Encached	Boolean_Cache
005b 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
005c 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
005d e21b       |    |		Load	0x1,0x1b
005e 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
005f 0092 01e9  |    |		Action	Push_String_Extended,0x1e9					; "Boolean"
0061 4804       |H   |		Short_Literal	0x4
0062 e21b       |    |		Load	0x1,0x1b
0063 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0064 0387       |    |		Declare_Variable	Package
0065 00d8       |    |		Load_Top	At_Offset_0
0066 020f       |    |		Execute	Module,Activate
0067 6164       |ad  |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x005a21b5}		; Debug Table 0x1.0xa = 0x67,0xfff5
0068 4a2b       |J+  |		Short_Literal	0x22b
0069 e20d       |    |		Load	0x1,0xd
006a e216       |    |		Load	0x1,0x16
006b e217       |    |		Load	0x1,0x17
006c 484c       |HL  |		Short_Literal	0x4c
006d 0092 01ea  |    |		Action	Push_String_Extended,0x1ea					; "Toggles"
006f 4800       |H   |		Short_Literal	0x0
0070 4817       |H   |		Short_Literal	0x17
0071 e216       |    |		Load	0x1,0x16
0072 0334       | 4  |		Declare_Variable	Array,With_Constraint
0073 4817       |H   |		Short_Literal	0x17
0074 4800       |H   |		Short_Literal	0x0
0075 4800       |H   |		Short_Literal	0x0
0076 00d9       |    |		Load_Top	At_Offset_1
0077 e227       | '  |		Load	0x1,0x27
0078 01d6       |    |		Execute	Vector,Field_Write
0079 3ffb       |?   |		Loop_Increasing	0x75
007a e218       |    |		Load	0x1,0x18
007b 01c3       |    |		Execute	Vector,Check_In_Type
007c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
007d e002       |    |		Load	0x0,0x2
007e 191f       |    |		Execute	Package,Field_Reference,Field_Number 0x1f
007f e21f       |    |		Load	0x1,0x1f
0080 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0081 0387       |    |		Declare_Variable	Package
0082 00d8       |    |		Load_Top	At_Offset_0
0083 020f       |    |		Execute	Module,Activate
0084 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0xb = 0x84,0xfff4
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0xc = 0x86,0xfff3
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0xd = 0x88,0xfff2
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0xe = 0x8a,0xfff1
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xf = 0x8c,0xfff0
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x10 = 0x8e,0xffef
008f 00c7       |    |		Action	Elaborate_Subprogram
0090			BODY_0008:
0090 0092 01eb  |    |		Action	Push_String_Extended,0x1eb					; "sm_@"
													; Debug Table 0x1.0x11 = 0x90,0x1
0092 e21b       |    |		Load	0x1,0x1b
0093 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0094 0092 01ec  |    |		Action	Push_String_Extended,0x1ec					; "drop_minor_errors"
													; Debug Table 0x1.0x12 = 0x94,0x2
0096 e21b       |    |		Load	0x1,0x1b
0097 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0098 0092 01ed  |    |		Action	Push_String_Extended,0x1ed					; "ignore_cdb"
													; Debug Table 0x1.0x13 = 0x98,0x3
009a e21b       |    |		Load	0x1,0x1b
009b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
009c 0092 01ee  |    |		Action	Push_String_Extended,0x1ee					; "ignore_rep_specs"
													; Debug Table 0x1.0x14 = 0x9c,0x4
009e e21b       |    |		Load	0x1,0x1b
009f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00a0 00bc       |    |		Action	Signal_Activated
00a1 00bb       |    |		Action	Signal_Completion
00a2 0000 0000  |    |		.BLANK	0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 4603       |F   |		Jump_Case	0x4							; Debug Table 0x2 = .DEBUG	0x00ab,0x0e46,0x0005,0x0000,0x005a,0x12e5,0x0000,0x0a39
00ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ad 7802       |x   |		Jump	0xb0								; case 0x1
00ae 7805       |x   |		Jump	0xb4								; case 0x2
00af 7809       |x   |		Jump	0xb9								; case 0x3
00b0 00da       |    |		Load_Top	At_Offset_2
00b1 0091 01d0  |    |		Action	Push_String_Extended_Indexed,0x1d0				; "IGNORE_MINOR_ERRORS"
00b3 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b4 00db       |    |		Load_Top	At_Offset_3
00b5 00db       |    |		Load_Top	At_Offset_3
00b6 00e0       |    |		Load_Encached	Standard_Cache
00b7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00b8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b9 00da       |    |		Load_Top	At_Offset_2
00ba 00e0       |    |		Load_Encached	Standard_Cache
00bb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00bc 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00bd 0000 0000  |    |		.XXX[0x3]
00bf 0000       |    |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00ce       |    |		.CONST	0x00ce								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0003       |    |		.CONST	0x0003								; Number of locals
00c3			INIT_00c0:
00c3 6104       |a   |		Indirect_Literal	Discrete,0x1c8,{0x00000000, 0x00004000}		; Debug Table 0x3 = .DEBUG	0x00c3,0x0e48,0x0002,0x0000,0x005a,0x12e5,0x0000,0x0a59
													; Debug Table 0x3.0x0 = 0xc3,0xffff
00c4 e5fe       |    |		Load	0x2,-0x2
00c5 e5ff       |    |		Load	0x2,-0x1
00c6 e220       |    |		Load	0x1,0x20
00c7 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00c8 e20e       |    |		Load	0x1,0xe								; Debug Table 0x3.0x1 = 0xc8,0xfffe
00c9 e20e       |    |		Load	0x1,0xe
00ca 8003       |    |		Call	0x0,0x3
00cb 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
00cc 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00cd 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x2 = 0xcd,0xfffd
00ce			BODY_00c0:
00ce 60f9       |`   |		Indirect_Literal	Discrete,0x1c8,{0x00000000, 0x00004000}		; Debug Table 0x3.0x3 = 0xce,0x1
00cf e5fe       |    |		Load	0x2,-0x2
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 e21c       |    |		Load	0x1,0x1c
00d2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00d3 00d9       |    |		Load_Top	At_Offset_1
00d4 0217       |    |		Execute	Heap_Access,All_Reference
00d5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x4 = 0xd6,0x2
00d7 0219       |    |		Execute	Heap_Access,All_Read
00d8 00d8       |    |		Load_Top	At_Offset_0
00d9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00da 00d8       |    |		Load_Top	At_Offset_0
00db 01da       |    |		Execute	Vector,Bounds
00dc e216       |    |		Load	0x1,0x16
00dd 035b       | [  |		Declare_Type	Array,Constrained
00de 0337       | 7  |		Declare_Variable	Array
00df 00d8       |    |		Load_Top	At_Offset_0
00e0 01d9       |    |		Execute	Vector,Reverse_Bounds
00e1 0263       | c  |		Execute	Discrete,Above_Bound
00e2 7005       |p   |		Jump_Nonzero	0xe8
00e3 4800       |H   |		Short_Literal	0x0
00e4 00d9       |    |		Load_Top	At_Offset_1
00e5 e406       |    |		Load	0x2,0x6
00e6 01d6       |    |		Execute	Vector,Field_Write
00e7 3ffb       |?   |		Loop_Increasing	0xe3
00e8 00d0       |    |		Action	Swap_Control
00e9 00d1       |    |		Pop_Control	Pop_Count_1
00ea 00d9       |    |		Load_Top	At_Offset_1
00eb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00ec 00d1       |    |		Pop_Control	Pop_Count_1
00ed 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x5 = 0xed,0x3
00ee 01dc       |    |		Execute	Vector,Last
00ef 0c18       |    |		Execute_Immediate	Greater_Equal,0x18
00f0 680a       |h   |		Jump_Zero	0xfb
00f1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x6 = 0xf1,0x4
00f2 0217       |    |		Execute	Heap_Access,All_Reference
00f3 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f4 01da       |    |		Execute	Vector,Bounds
00f5 00db       |    |		Load_Top	At_Offset_3
00f6 01cf       |    |		Execute	Vector,Slice_Read
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 0217       |    |		Execute	Heap_Access,All_Reference
00f9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00fa 7807       |x   |		Jump	0x102
00fb 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x7 = 0xfb,0x5
00fc 00da       |    |		Load_Top	At_Offset_2
00fd 01da       |    |		Execute	Vector,Bounds
00fe 00db       |    |		Load_Top	At_Offset_3
00ff 0219       |    |		Execute	Heap_Access,All_Read
0100 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0101 01ce       |    |		Execute	Vector,Slice_Write
0102 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x8 = 0x102,0x6
0103 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0104 0000 0000  |    |		.BLANK	0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4 = .DEBUG	0x010b,0x0e5c,0x0001,0x0000,0x005a,0x12e5,0x0000,0x0a6a
													; Debug Table 0x4.0x0 = 0x10b,0x1
010c 00db       |    |		Load_Top	At_Offset_3
010d 8004       |    |		Call	0x0,0x4
010e 0217       |    |		Execute	Heap_Access,All_Reference
010f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0110 01d6       |    |		Execute	Vector,Field_Write
0111 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0112 0000 0000  |    |		.BLANK	0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x011b,0x0e60,0x0002,0x0000,0x005a,0x12e5,0x0000,0x0a76
													; Debug Table 0x5.0x0 = 0x11b,0x1
011c 8004       |    |		Call	0x0,0x4
011d 0217       |    |		Execute	Heap_Access,All_Reference
011e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
011f 01d7       |    |		Execute	Vector,Field_Read
0120 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 8004       |    |		Call	0x0,0x4								; Debug Table 0x6 = .DEBUG	0x012b,0x0e64,0x0002,0x0000,0x005a,0x12e5,0x0000,0x0a7f
													; Debug Table 0x6.0x0 = 0x12b,0x1
012c 0217       |    |		Execute	Heap_Access,All_Reference
012d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
012e 00ca       |    |		Action	Exit_Nullary_Function
012f 0000       |    |		.XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4805       |H   |		Short_Literal	0x5							; Debug Table 0x7 = .DEBUG	0x0133,0x0e68,0x0001,0x0000,0x005a,0x12e5,0x0000,0x0a84
													; Debug Table 0x7.0x0 = 0x133,0x1
0134 00db       |    |		Load_Top	At_Offset_3
0135 e005       |    |		Load	0x0,0x5
0136 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0137 8004       |    |		Call	0x0,0x4
0138 0217       |    |		Execute	Heap_Access,All_Reference
0139 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
013a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
013b 0000 0000  |    |		.BLANK	0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0146       | F  |		.CONST	0x0146								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 e20e       |    |		Load	0x1,0xe								; Debug Table 0x8 = .DEBUG	0x0143,0x0e6c,0x0002,0x0000,0x005a,0x12e5,0x0000,0x0a8c
													; Debug Table 0x8.0x0 = 0x143,0xffff
0144 8004       |    |		Call	0x0,0x4
0145 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0146			BODY_0140:
0146 4806       |H   |		Short_Literal	0x6							; Debug Table 0x8.0x1 = 0x146,0x1
0147 00d9       |    |		Load_Top	At_Offset_1
0148 0217       |    |		Execute	Heap_Access,All_Reference
0149 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
014a 01d7       |    |		Execute	Vector,Field_Read
014b 7006       |p   |		Jump_Nonzero	0x152
014c 4805       |H   |		Short_Literal	0x5
014d 00d9       |    |		Load_Top	At_Offset_1
014e 0217       |    |		Execute	Heap_Access,All_Reference
014f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0150 01d7       |    |		Execute	Vector,Field_Read
0151 00ca       |    |		Action	Exit_Nullary_Function
0152 4801       |H   |		Short_Literal	0x1
0153 00ca       |    |		Action	Exit_Nullary_Function
0154 0000 0000  |    |		.BLANK	0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 01a8       |    |		.CONST	0x01a8								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9 = .DEBUG	0x015b,0x0e72,0x0002,0x0000,0x005a,0x21b5,0x0000,0x0030
													; Debug Table 0x9.0x0 = 0x15b,0x1
015c e20d       |    |		Load	0x1,0xd
015d 00e0       |    |		Load_Encached	Standard_Cache
015e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
015f 4617       |F   |		Jump_Case	0x18
0160 7820       |x   |		Jump	0x181								; case 0x0
0161 7834       |x4  |		Jump	0x196								; case 0x1
0162 7836       |x6  |		Jump	0x199								; case 0x2
0163 781a       |x   |		Jump	0x17e								; case 0x3
0164 7837       |x7  |		Jump	0x19c								; case 0x4
0165 783c       |x<  |		Jump	0x1a2								; case 0x5
0166 7838       |x8  |		Jump	0x19f								; case 0x6
0167 7810       |x   |		Jump	0x178								; case 0x7
0168 780f       |x   |		Jump	0x178								; case 0x8
0169 780e       |x   |		Jump	0x178								; case 0x9
016a 780d       |x   |		Jump	0x178								; case 0xa
016b 780c       |x   |		Jump	0x178								; case 0xb
016c 780b       |x   |		Jump	0x178								; case 0xc
016d 780a       |x   |		Jump	0x178								; case 0xd
016e 7809       |x   |		Jump	0x178								; case 0xe
016f 7808       |x   |		Jump	0x178								; case 0xf
0170 780a       |x   |		Jump	0x17b								; case 0x10
0171 7818       |x   |		Jump	0x18a								; case 0x11
0172 781a       |x   |		Jump	0x18d								; case 0x12
0173 781c       |x   |		Jump	0x190								; case 0x13
0174 781e       |x   |		Jump	0x193								; case 0x14
0175 7811       |x   |		Jump	0x187								; case 0x15
0176 780d       |x   |		Jump	0x184								; case 0x16
0177 782d       |x-  |		Jump	0x1a5								; case 0x17
0178 0092 01ef  |    |		Action	Push_String_Extended,0x1ef					; "Internal debugging switch."
													; Debug Table 0x9.0x1 = 0x178,0x2
017a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017b 0092 01f0  |    |		Action	Push_String_Extended,0x1f0					; "Controls whether minor errors are reported.  When False, minor errors are reported according to the Ignore_Minor_Errors switch.  When True, minor errors are not reported at all."
													; Debug Table 0x9.0x2 = 0x17b,0x3
017d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017e 0092 01f1  |    |		Action	Push_String_Extended,0x1f1					; "Controls use of the CDB during incremental insertions.  When False, incremental insertions of declarations receive declaration numbers.  When True, incrementatl insertions do not receive declaration numbers.  New declarations, exported by packages, especially across subsystems, must have declaration numbers in order to function correctly."
													; Debug Table 0x9.0x3 = 0x17e,0x4
0180 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0181 0092 01f2  |    |		Action	Push_String_Extended,0x1f2					; "Controls whether to flag minor errors with a warning or as an error. When False, minor errors are flagged as errors, thus preventing the units that contain them from being installed.  When True, minor errors are flagged with warning messages in the log and are otherwise ignored. Minor errors are those that the Reference Manual for the Ada Programming Language defines as illegal but that do not affect the semantic validity of the program. An example is illegal declaration order. The default is False.  The full switch name is Semantics.Ignore_Minor_Errors."
													; Debug Table 0x9.0x4 = 0x181,0x5
0183 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0184 0092 01f3  |    |		Action	Push_String_Extended,0x1f3					; "Managed by Rational Subsystems. This switch should not be changed by users."
													; Debug Table 0x9.0x5 = 0x184,0x6
0186 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0187 0092 01f4  |    |		Action	Push_String_Extended,0x1f4					; "Managed by Rational Subsystems. This switch should not bechanged by users."
													; Debug Table 0x9.0x6 = 0x187,0x7
0189 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
018a 0092 01f5  |    |		Action	Push_String_Extended,0x1f5					; "Controls whether the semanticist processes representation specifications. When True representation specifications are ignored. The default is False."
													; Debug Table 0x9.0x7 = 0x18a,0x8
018c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
018d 0092 01f6  |    |		Action	Push_String_Extended,0x1f6					; "Controls whether to flag unsupported representation specifications with a warning or as an error.  When False, unsupported representation specifications are flagged as errors, thus preventing the units that contain them from being installed (the Ignore_Invalid_Rep_Specs switch must also be False).  When Ignore_Unsupported_Rep_Specs is True, unsupported representation specifications are flagged with warning messages in the log and are otherwise ignored.  For most purposes, the Ignore_Unsupported_Rep_Specs switch and the Ignore_Invalid_Rep_Specs switch should have the same value.  The default is False.  The full switch name is Semantics.Ignore_Unsupported_Rep_Specs."
													; Debug Table 0x9.0x8 = 0x18d,0x9
018f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0190 0092 01f7  |    |		Action	Push_String_Extended,0x1f7					; "Controls whether to flag either invalid or unsupported representation specifications with a warning or as an error.  When False, all invalid representation specifications are flagged as errors, thus preventing the units that contain them from being installed.  (Unsupported representation specifications are flagged as errors only if the Ignore_Unsupported_Rep_Specs switch is also False.) When Ignore_Invalid_Rep_Specs is True, both invalid and unsupported representation specifications are flagged with warning messages in the log and are otherwise ignored.  (Setting this switch to True overrides the value of the Ignore_Unsupported_Rep_Specs switch.) Representation specifications are considered invalid if they do not conform to the restrictions specified in the Appendix F for the R1000 compiler.  For most purposes, the Ignore_Invalid_Rep_Specs switch and the Ignore_Unsupported_Rep_Specs switch should have the same value.  The default is False.  The full switch name is Semantics.Ignore_Invalid_Rep_Specs."
													; Debug Table 0x9.0x9 = 0x190,0xa
0192 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0193 0092 01f8  |    |		Action	Push_String_Extended,0x1f8					; "Controls whether pragma Interface is ignored. When True, the R1000 compiler ignores the pragma completely.  When False, the R1000 compiler builds an implicit body that raises the Program_Error exception whenever the subprogram is executed.  The default is False.  The full name of this switch is Semantics.Ignore_Interface_Pragmas."
													; Debug Table 0x9.0xa = 0x193,0xb
0195 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0196 0092 01f9  |    |		Action	Push_String_Extended,0x1f9					; "Controls whether to flag illegal Ada pragmas with warnings or as errors. When True, illegal Ada pragmas are flagged as errors, thus preventing the units that contain them from being installed.  When False (the default), illegal Ada pragmas are flagged with warning messages in the log and are otherwise ignored.  The full switch name is Semantics.Reject_Bad_Lrm_Pragmas."
													; Debug Table 0x9.0xb = 0x196,0xc
0198 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0199 0092 01fa  |    |		Action	Push_String_Extended,0x1fa					; "Controls whether illegal Rational pragmas are reported as warnings or errors. When True, illegal Rational pragmas are flagged as errors, thus preventing the units that contain them from being installed. When False, illegal Rational pragmas are flagged with warning messages in the log and are otherwise ignored.  The full switch name is Semantics.Reject_Bad_Rational_Pragmas."
													; Debug Table 0x9.0xc = 0x199,0xd
019b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
019c 0092 01fb  |    |		Action	Push_String_Extended,0x1fb					; "Controls whether to flag as an error any pragma that is unknown to the compiler.  default is False. The full switch name is Semantics.Reject_Undefined_Pragmas."
													; Debug Table 0x9.0xd = 0x19c,0xe
019e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
019f 0092 01fc  |    |		Action	Push_String_Extended,0x1fc					; "Controls whether to flag with a warning any statically determinable situation that is certain to raise an exception when executed, such as an illegal assignment. This switch is overridden by the Reject_Inevitable_Exceptions switch. Thus, if both switches are True, inevitable exceptions are rejected. The default is False."
													; Debug Table 0x9.0xe = 0x19f,0xf
01a1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a2 0092 01fd  |    |		Action	Push_String_Extended,0x1fd					; "Controls whether to flag as an error any statically determinable situation that is certain to raise an exception when executed, such as an illegal assignment. This switch overrides the Flag_inevitable_Exceptions switch. Thus, if both switches are True, inevitable exceptions are rejected. The default is False."
													; Debug Table 0x9.0xf = 0x1a2,0x10
01a4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a5 0092 01fe  |    |		Action	Push_String_Extended,0x1fe					; "Controls whether to flag [statement] prompts as an error. When False, prompts are compiled normally and raise Program_Error at runtime.  When True, prompts will be treated as semantic errors in the program."
													; Debug Table 0x9.0x10 = 0x1a5,0x11
01a7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a8			TRAP_0158:
01a8 0007       |    |		Action	Break_Optional
01a9 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x9.0x11 = 0x1a9,0x12
01aa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ab 0000 0000  |    |		.BLANK	0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 0092 01ff  |    |		Action	Push_String_Extended,0x1ff					; "Limits the number of semantic messages (errors and warnings combined) that can be attached to an Ada image.  Messages beyond this number will be discarded.  They may be retrieved by expanding this limit and resemanticizing the image."
													; Debug Table 0xa = .DEBUG	0x01b3,0x0e98,0x0002,0x0000,0x005a,0x21b5,0x0000,0x01ca
													; Debug Table 0xa.0x0 = 0x1b3,0x1
01b5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01b6 0000 0000  |    |		.XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb = .DEBUG	0x01bb,0x0e9c,0x0007,0x0000,0x005a,0x21b5,0x0000,0x0000
01bc 00e1       |    |		Load_Encached	Boolean_Cache
01bd 025e       | ^  |		Execute	Discrete,Convert
01be 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc = .DEBUG	0x01c3,0x0e9e,0x0007,0x0000,0x005a,0x21b5,0x0000,0x0000
01c4 00e1       |    |		Load_Encached	Boolean_Cache
01c5 00e0       |    |		Load_Encached	Standard_Cache
01c6 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x005a21b5}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; STRING TABLE
01d0 ; --------------------------------------------------------------------------------------
01d0 0062       | b  |		.STRTAB	0x0062->0x0201							; "IGNORE_MINOR_ERRORS"
01d1 0073       | s  |		.STRTAB	0x0073->0x020a							; "REJECT_BAD_LRM_PRAGMAS"
01d2 0087       |    |		.STRTAB	0x0087->0x0215							; "REJECT_BAD_RATIONAL_PRAGMAS"
01d3 00a0       |    |		.STRTAB	0x00a0->0x0223							; "IGNORE_CDB"
01d4 00a8       |    |		.STRTAB	0x00a8->0x0228							; "REJECT_UNDEFINED_PRAGMAS"
01d5 00be       |    |		.STRTAB	0x00be->0x0234							; "REJECT_INEVITABLE_EXCEPTIONS"
01d6 00d8       |    |		.STRTAB	0x00d8->0x0242							; "FLAG_INEVITABLE_EXCEPTIONS"
01d7 00f0       |    |		.STRTAB	0x00f0->0x024f							; "SM_EXP_TRACE"
01d8 00fa       |    |		.STRTAB	0x00fa->0x0255							; "SM_SOLVE_TRACE"
01d9 0106       |    |		.STRTAB	0x0106->0x025c							; "SM_ASSIGN_TRACE"
01da 0113       |    |		.STRTAB	0x0113->0x0263							; "SM_CALL_TRACE"
01db 011e       |    |		.STRTAB	0x011e->0x026a							; "SM_RANGE_TRACE"
01dc 012a       | *  |		.STRTAB	0x012a->0x0271							; "SM_AGG_TRACE"
01dd 0134       | 4  |		.STRTAB	0x0134->0x0277							; "SM_ATTR_TRACE"
01de 013f       | ?  |		.STRTAB	0x013f->0x027d							; "SM_MATCH_TRACE"
01df 014b       | K  |		.STRTAB	0x014b->0x0284							; "SM_TYPE_EQ"
01e0 0153       | S  |		.STRTAB	0x0153->0x0289							; "DROP_MINOR_ERRORS"
01e1 0162       | b  |		.STRTAB	0x0162->0x0292							; "IGNORE_REP_SPECS"
01e2 0170       | p  |		.STRTAB	0x0170->0x029a							; "IGNORE_UNSUPPORTED_REP_SPECS"
01e3 018a       |    |		.STRTAB	0x018a->0x02a8							; "IGNORE_INVALID_REP_SPECS"
01e4 01a0       |    |		.STRTAB	0x01a0->0x02b4							; "IGNORE_INTERFACE_PRAGMAS"
01e5 01b6       |    |		.STRTAB	0x01b6->0x02c0							; "CLOSED_PRIVATE_PART"
01e6 01c7       |    |		.STRTAB	0x01c7->0x02c9							; "SUBSYSTEM_INTERFACE"
01e7 01d8       |    |		.STRTAB	0x01d8->0x02d3							; "REJECT_STATEMENT_PROMPTS"
01e8 01ee       |    |		.STRTAB	0x01ee->0x02df							; "Limit_Semantic_Messages"
01e9 0203       |    |		.STRTAB	0x0203->0x02ea							; "Boolean"
01ea 0208       |    |		.STRTAB	0x0208->0x02ee							; "Toggles"
01eb 020d       |    |		.STRTAB	0x020d->0x02f1							; "sm_@"
01ec 020f       |    |		.STRTAB	0x020f->0x02f3							; "drop_minor_errors"
01ed 021e       |    |		.STRTAB	0x021e->0x02fc							; "ignore_cdb"
01ee 0226       | &  |		.STRTAB	0x0226->0x0301							; "ignore_rep_specs"
01ef 0234       | 4  |		.STRTAB	0x0234->0x0309							; "Internal debugging switch."
01f0 024c       | L  |		.STRTAB	0x024c->0x0316							; "Controls whether minor errors are reported.  When False, minor errors are reported according to the Ignore_Minor_Errors switch.  When True, minor errors are not reported at all."
01f1 02fb       |    |		.STRTAB	0x02fb->0x036e							; "Controls use of the CDB during incremental insertions.  When False, incremental insertions of declarations receive declaration numbers.  When True, incrementatl insertions do not receive declaration numbers.  New declarations, exported by packages, especially across subsystems, must have declaration numbers in order to function correctly."
01f2 044d       | M  |		.STRTAB	0x044d->0x0418							; "Controls whether to flag minor errors with a warning or as an error. When False, minor errors are flagged as errors, thus preventing the units that contain them from being installed.  When True, minor errors are flagged with warning messages in the log and are otherwise ignored. Minor errors are those that the Reference Manual for the Ada Programming Language defines as illegal but that do not affect the semantic validity of the program. An example is illegal declaration order. The default is False.  The full switch name is Semantics.Ignore_Minor_Errors."
01f3 067b       | {  |		.STRTAB	0x067b->0x0530							; "Managed by Rational Subsystems. This switch should not be changed by users."
01f4 06c4       |    |		.STRTAB	0x06c4->0x0556							; "Managed by Rational Subsystems. This switch should not bechanged by users."
01f5 070c       |    |		.STRTAB	0x070c->0x057b							; "Controls whether the semanticist processes representation specifications. When True representation specifications are ignored. The default is False."
01f6 079e       |    |		.STRTAB	0x079e->0x05c5							; "Controls whether to flag unsupported representation specifications with a warning or as an error.  When False, unsupported representation specifications are flagged as errors, thus preventing the units that contain them from being installed (the Ignore_Invalid_Rep_Specs switch must also be False).  When Ignore_Unsupported_Rep_Specs is True, unsupported representation specifications are flagged with warning messages in the log and are otherwise ignored.  For most purposes, the Ignore_Unsupported_Rep_Specs switch and the Ignore_Invalid_Rep_Specs switch should have the same value.  The default is False.  The full switch name is Semantics.Ignore_Unsupported_Rep_Specs."
01f7 0a3c       | <  |		.STRTAB	0x0a3c->0x0715							; "Controls whether to flag either invalid or unsupported representation specifications with a warning or as an error.  When False, all invalid representation specifications are flagged as errors, thus preventing the units that contain them from being installed.  (Unsupported representation specifications are flagged as errors only if the Ignore_Unsupported_Rep_Specs switch is also False.) When Ignore_Invalid_Rep_Specs is True, both invalid and unsupported representation specifications are flagged with warning messages in the log and are otherwise ignored.  (Setting this switch to True overrides the value of the Ignore_Unsupported_Rep_Specs switch.) Representation specifications are considered invalid if they do not conform to the restrictions specified in the Appendix F for the R1000 compiler.  For most purposes, the Ignore_Invalid_Rep_Specs switch and the Ignore_Unsupported_Rep_Specs switch should have the same value.  The default is False.  The full switch name is Semantics.Ignore_Invalid_Rep_Specs."
01f8 0e30       | 0  |		.STRTAB	0x0e30->0x0910							; "Controls whether pragma Interface is ignored. When True, the R1000 compiler ignores the pragma completely.  When False, the R1000 compiler builds an implicit body that raises the Program_Error exception whenever the subprogram is executed.  The default is False.  The full name of this switch is Semantics.Ignore_Interface_Pragmas."
01f9 0f79       | y  |		.STRTAB	0x0f79->0x09b5							; "Controls whether to flag illegal Ada pragmas with warnings or as errors. When True, illegal Ada pragmas are flagged as errors, thus preventing the units that contain them from being installed.  When False (the default), illegal Ada pragmas are flagged with warning messages in the log and are otherwise ignored.  The full switch name is Semantics.Reject_Bad_Lrm_Pragmas."
01fa 10e9       |    |		.STRTAB	0x10e9->0x0a6e							; "Controls whether illegal Rational pragmas are reported as warnings or errors. When True, illegal Rational pragmas are flagged as errors, thus preventing the units that contain them from being installed. When False, illegal Rational pragmas are flagged with warning messages in the log and are otherwise ignored.  The full switch name is Semantics.Reject_Bad_Rational_Pragmas."
01fb 125e       | ^  |		.STRTAB	0x125e->0x0b2a							; "Controls whether to flag as an error any pragma that is unknown to the compiler.  default is False. The full switch name is Semantics.Reject_Undefined_Pragmas."
01fc 12fb       |    |		.STRTAB	0x12fb->0x0b79							; "Controls whether to flag with a warning any statically determinable situation that is certain to raise an exception when executed, such as an illegal assignment. This switch is overridden by the Reject_Inevitable_Exceptions switch. Thus, if both switches are True, inevitable exceptions are rejected. The default is False."
01fd 143b       | ;  |		.STRTAB	0x143b->0x0c1a							; "Controls whether to flag as an error any statically determinable situation that is certain to raise an exception when executed, such as an illegal assignment. This switch overrides the Flag_inevitable_Exceptions switch. Thus, if both switches are True, inevitable exceptions are rejected. The default is False."
01fe 156f       | o  |		.STRTAB	0x156f->0x0cb5							; "Controls whether to flag [statement] prompts as an error. When False, prompts are compiled normally and raise Program_Error at runtime.  When True, prompts will be treated as semantic errors in the program."
01ff 163b       | ;  |		.STRTAB	0x163b->0x0d1c							; "Limits the number of semantic messages (errors and warnings combined) that can be attached to an Ada image.  Messages beyond this number will be discarded.  They may be retrieved by expanding this limit and resemanticizing the image."
0200 1722       | "  |		.STREND 0x1722->0x0d91
0201 4947 4e4f  |IGNO|		.STRTAB_STRINGS
0d91 0000 0000  |    |		.BLANK	0000[0x7]
0d98 ; --------------------------------------------------------------------------------------
0d98 ; Debug Table
0d98 ; --------------------------------------------------------------------------------------
0d98 0003 000d  |    |		.CONST	0x0003,0x000d
0d9a 000b 0e02  |    |		.DEBUG	0x000b,0x0e02,0x0000,0x0000,0x005a,0x12e5,0x0000,0x0a38
0da2 0024 0e1a  | $  |		.DEBUG	0x0024,0x0e1a,0x0000,0x0000,0x005a,0x21b5,0x0000,0x0008
0daa 00ab 0e46  |   F|		.DEBUG	0x00ab,0x0e46,0x0005,0x0000,0x005a,0x12e5,0x0000,0x0a39
0db2 00c3 0e48  |   H|		.DEBUG	0x00c3,0x0e48,0x0002,0x0000,0x005a,0x12e5,0x0000,0x0a59
0dba 010b 0e5c  |   \|		.DEBUG	0x010b,0x0e5c,0x0001,0x0000,0x005a,0x12e5,0x0000,0x0a6a
0dc2 011b 0e60  |   `|		.DEBUG	0x011b,0x0e60,0x0002,0x0000,0x005a,0x12e5,0x0000,0x0a76
0dca 012b 0e64  | + d|		.DEBUG	0x012b,0x0e64,0x0002,0x0000,0x005a,0x12e5,0x0000,0x0a7f
0dd2 0133 0e68  | 3 h|		.DEBUG	0x0133,0x0e68,0x0001,0x0000,0x005a,0x12e5,0x0000,0x0a84
0dda 0143 0e6c  | C l|		.DEBUG	0x0143,0x0e6c,0x0002,0x0000,0x005a,0x12e5,0x0000,0x0a8c
0de2 015b 0e72  | [ r|		.DEBUG	0x015b,0x0e72,0x0002,0x0000,0x005a,0x21b5,0x0000,0x0030
0dea 01b3 0e98  |    |		.DEBUG	0x01b3,0x0e98,0x0002,0x0000,0x005a,0x21b5,0x0000,0x01ca
0df2 01bb 0e9c  |    |		.DEBUG	0x01bb,0x0e9c,0x0007,0x0000,0x005a,0x21b5,0x0000,0x0000
0dfa 01c3 0e9e  |    |		.DEBUG	0x01c3,0x0e9e,0x0007,0x0000,0x005a,0x21b5,0x0000,0x0000
0e02 ; --------------------------------------------------------------------------------------
0e02 ; Debug3 Subtable 0x0
0e02 ; --------------------------------------------------------------------------------------
0e02 000b 0000  |    |		.DBG3TAB	0x000b,0x0000
0e04 000b ffff  |    |		.CONST	0x000b,0xffff
0e06 0010 fffe  |    |		.CONST	0x0010,0xfffe
0e08 0011 fffd  |    |		.CONST	0x0011,0xfffd
0e0a 0013 fffc  |    |		.CONST	0x0013,0xfffc
0e0c 0015 fffb  |    |		.CONST	0x0015,0xfffb
0e0e 0017 fffa  |    |		.CONST	0x0017,0xfffa
0e10 0019 fff9  |    |		.CONST	0x0019,0xfff9
0e12 001b fff8  |    |		.CONST	0x001b,0xfff8
0e14 001d fff7  |    |		.CONST	0x001d,0xfff7
0e16 001f fff6  |    |		.CONST	0x001f,0xfff6
0e18 0023 fff5  | #  |		.CONST	0x0023,0xfff5
0e1a ; --------------------------------------------------------------------------------------
0e1a ; Debug3 Subtable 0x1
0e1a ; --------------------------------------------------------------------------------------
0e1a 0011 0004  |    |		.DBG3TAB	0x0011,0x0004
0e1c 0024 ffff  | $  |		.CONST	0x0024,0xffff
0e1e 002a fffe  | *  |		.CONST	0x002a,0xfffe
0e20 002d fffd  | -  |		.CONST	0x002d,0xfffd
0e22 002e fffc  | .  |		.CONST	0x002e,0xfffc
0e24 0032 fffb  | 2  |		.CONST	0x0032,0xfffb
0e26 0037 fffa  | 7  |		.CONST	0x0037,0xfffa
0e28 0039 fff9  | 9  |		.CONST	0x0039,0xfff9
0e2a 003b fff8  | ;  |		.CONST	0x003b,0xfff8
0e2c 0046 fff7  | F  |		.CONST	0x0046,0xfff7
0e2e 0054 fff6  | T  |		.CONST	0x0054,0xfff6
0e30 0067 fff5  | g  |		.CONST	0x0067,0xfff5
0e32 0084 fff4  |    |		.CONST	0x0084,0xfff4
0e34 0086 fff3  |    |		.CONST	0x0086,0xfff3
0e36 0088 fff2  |    |		.CONST	0x0088,0xfff2
0e38 008a fff1  |    |		.CONST	0x008a,0xfff1
0e3a 008c fff0  |    |		.CONST	0x008c,0xfff0
0e3c 008e ffef  |    |		.CONST	0x008e,0xffef
0e3e 0090 0001  |    |		.CONST	0x0090,0x0001
0e40 0094 0002  |    |		.CONST	0x0094,0x0002
0e42 0098 0003  |    |		.CONST	0x0098,0x0003
0e44 009c 0004  |    |		.CONST	0x009c,0x0004
0e46 ; --------------------------------------------------------------------------------------
0e46 ; Debug3 Subtable 0x2
0e46 ; --------------------------------------------------------------------------------------
0e46 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0e48 ; --------------------------------------------------------------------------------------
0e48 ; Debug3 Subtable 0x3
0e48 ; --------------------------------------------------------------------------------------
0e48 0003 0006  |    |		.DBG3TAB	0x0003,0x0006
0e4a 00c3 ffff  |    |		.CONST	0x00c3,0xffff
0e4c 00c8 fffe  |    |		.CONST	0x00c8,0xfffe
0e4e 00cd fffd  |    |		.CONST	0x00cd,0xfffd
0e50 00ce 0001  |    |		.CONST	0x00ce,0x0001
0e52 00d6 0002  |    |		.CONST	0x00d6,0x0002
0e54 00ed 0003  |    |		.CONST	0x00ed,0x0003
0e56 00f1 0004  |    |		.CONST	0x00f1,0x0004
0e58 00fb 0005  |    |		.CONST	0x00fb,0x0005
0e5a 0102 0006  |    |		.CONST	0x0102,0x0006
0e5c ; --------------------------------------------------------------------------------------
0e5c ; Debug3 Subtable 0x4
0e5c ; --------------------------------------------------------------------------------------
0e5c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0e5e 010b 0001  |    |		.CONST	0x010b,0x0001
0e60 ; --------------------------------------------------------------------------------------
0e60 ; Debug3 Subtable 0x5
0e60 ; --------------------------------------------------------------------------------------
0e60 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0e62 011b 0001  |    |		.CONST	0x011b,0x0001
0e64 ; --------------------------------------------------------------------------------------
0e64 ; Debug3 Subtable 0x6
0e64 ; --------------------------------------------------------------------------------------
0e64 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0e66 012b 0001  | +  |		.CONST	0x012b,0x0001
0e68 ; --------------------------------------------------------------------------------------
0e68 ; Debug3 Subtable 0x7
0e68 ; --------------------------------------------------------------------------------------
0e68 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0e6a 0133 0001  | 3  |		.CONST	0x0133,0x0001
0e6c ; --------------------------------------------------------------------------------------
0e6c ; Debug3 Subtable 0x8
0e6c ; --------------------------------------------------------------------------------------
0e6c 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0e6e 0143 ffff  | C  |		.CONST	0x0143,0xffff
0e70 0146 0001  | F  |		.CONST	0x0146,0x0001
0e72 ; --------------------------------------------------------------------------------------
0e72 ; Debug3 Subtable 0x9
0e72 ; --------------------------------------------------------------------------------------
0e72 0000 0012  |    |		.DBG3TAB	0x0000,0x0012
0e74 015b 0001  | [  |		.CONST	0x015b,0x0001
0e76 0178 0002  | x  |		.CONST	0x0178,0x0002
0e78 017b 0003  | {  |		.CONST	0x017b,0x0003
0e7a 017e 0004  | ~  |		.CONST	0x017e,0x0004
0e7c 0181 0005  |    |		.CONST	0x0181,0x0005
0e7e 0184 0006  |    |		.CONST	0x0184,0x0006
0e80 0187 0007  |    |		.CONST	0x0187,0x0007
0e82 018a 0008  |    |		.CONST	0x018a,0x0008
0e84 018d 0009  |    |		.CONST	0x018d,0x0009
0e86 0190 000a  |    |		.CONST	0x0190,0x000a
0e88 0193 000b  |    |		.CONST	0x0193,0x000b
0e8a 0196 000c  |    |		.CONST	0x0196,0x000c
0e8c 0199 000d  |    |		.CONST	0x0199,0x000d
0e8e 019c 000e  |    |		.CONST	0x019c,0x000e
0e90 019f 000f  |    |		.CONST	0x019f,0x000f
0e92 01a2 0010  |    |		.CONST	0x01a2,0x0010
0e94 01a5 0011  |    |		.CONST	0x01a5,0x0011
0e96 01a9 0012  |    |		.CONST	0x01a9,0x0012
0e98 ; --------------------------------------------------------------------------------------
0e98 ; Debug3 Subtable 0xa
0e98 ; --------------------------------------------------------------------------------------
0e98 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0e9a 01b3 0001  |    |		.CONST	0x01b3,0x0001
0e9c ; --------------------------------------------------------------------------------------
0e9c ; Debug3 Subtable 0xb
0e9c ; --------------------------------------------------------------------------------------
0e9c 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0e9e ; --------------------------------------------------------------------------------------
0e9e ; Debug3 Subtable 0xc
0e9e ; --------------------------------------------------------------------------------------
0e9e 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0ea0 0000 0000  |    |		.BLANK	0000[0x160]