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

⟦21035bdb2⟧

    Length: 3072 (0xc00)
    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 0330       | 0  |		.CONST	0x0330								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0030       | 0  |		.CONST	0x0030								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x0362,0x8000,0x0000,0x005a,0x7775,0x0000,0x000d
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000e e002       |    |		Load	0x0,0x2
000f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0010 e003       |    |		Load	0x0,0x3
0011 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0012 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
0013 e004       |    |		Load	0x0,0x4
0014 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0015 00ec       |    |		Load_Encached	Diana_Tree_Cache
0016 e003       |    |		Load	0x0,0x3
0017 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0018 029f 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Call
001a 4806       |H   |		Short_Literal	0x6
001b 032e       | .  |		Declare_Type	Record,Defined,Visible
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2 = 0x1c,0xfffd
001d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x3 = 0x1d,0xfffc
001e 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x1e,0xfffb
0020 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x5 = 0x20,0xfffa
0021 4803       |H   |		Short_Literal	0x3
0022 029f 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Call
0024 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0025 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x25,0xfff9
0027 00bf       |    |		Action	Accept_Activation
0028 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0028,0x0372,0x8000,0x0000,0x005a,0x86b5,0x0000,0x0019
													; Debug Table 0x1.0x0 = 0x28,0xffff
0029 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x29,0xfffe
002a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x2a,0xfffd
002b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x2b,0xfffc
002c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x4 = 0x2c,0xfffb
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x5 = 0x2e,0xfffa
002f 00c7       |    |		Action	Elaborate_Subprogram
0030			BODY_0008:
0030 00bc       |    |		Action	Signal_Activated
0031 00bb       |    |		Action	Signal_Completion
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b 4608       |F   |		Jump_Case	0x9							; Debug Table 0x2 = .DEBUG	0x003b,0x0380,0x0005,0x0000,0x005a,0x7775,0x0000,0x0012
003c 7808       |x   |		Jump	0x45								; case 0x0
003d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
003e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
003f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0040 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0041 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0042 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0043 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0044 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0045 00da       |    |		Load_Top	At_Offset_2
0046 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0047 0125       | %  |		Execute	Any,Set_Constraint
0048 00da       |    |		Load_Top	At_Offset_2
0049 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
004a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004b 00da       |    |		Load_Top	At_Offset_2
004c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
004d 0125       | %  |		Execute	Any,Set_Constraint
004e 00da       |    |		Load_Top	At_Offset_2
004f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0050 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0051 00da       |    |		Load_Top	At_Offset_2
0052 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0053 0125       | %  |		Execute	Any,Set_Constraint
0054 00da       |    |		Load_Top	At_Offset_2
0055 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0056 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0057 00da       |    |		Load_Top	At_Offset_2
0058 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0059 0125       | %  |		Execute	Any,Set_Constraint
005a 00da       |    |		Load_Top	At_Offset_2
005b 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
005c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005d 00da       |    |		Load_Top	At_Offset_2
005e 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
005f 0125       | %  |		Execute	Any,Set_Constraint
0060 00da       |    |		Load_Top	At_Offset_2
0061 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0062 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0063 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0064 0000 0000  |    |		.BLANK	0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 00a6       |    |		.CONST	0x00a6								; Address of begin
0069 019b       |    |		.CONST	0x019b								; Address of exception handler
006a 0010       |    |		.CONST	0x0010								; Number of locals
006b			INIT_0068:
006b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3 = .DEBUG	0x006b,0x0382,0x0001,0x0000,0x005a,0x7775,0x0000,0x0048
													; Debug Table 0x3.0x0 = 0x6b,0xffff
006c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x1 = 0x6c,0xfffe
006d 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x2 = 0x6d,0xfffd
006e e004       |    |		Load	0x0,0x4								; Debug Table 0x3.0x3 = 0x6e,0xfffc
006f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0070 02c7       |    |		Declare_Variable	Any
0071 00d8       |    |		Load_Top	At_Offset_0
0072 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0073 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x4 = 0x73,0xfffb
0074 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0075 02c7       |    |		Declare_Variable	Any
0076 00d8       |    |		Load_Top	At_Offset_0
0077 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0078 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3.0x5 = 0x78,0xfffa
0079 e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x6 = 0x79,0xfff9
007a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
007b 02c7       |    |		Declare_Variable	Any
007c 00d8       |    |		Load_Top	At_Offset_0
007d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
007e e005       |    |		Load	0x0,0x5								; Debug Table 0x3.0x7 = 0x7e,0xfff8
007f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0080 02c7       |    |		Declare_Variable	Any
0081 00d8       |    |		Load_Top	At_Offset_0
0082 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0083 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x8 = 0x83,0xfff7
0084 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0085 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0086 02c7       |    |		Declare_Variable	Any
0087 00d8       |    |		Load_Top	At_Offset_0
0088 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0089 e006       |    |		Load	0x0,0x6								; Debug Table 0x3.0x9 = 0x89,0xfff6
008a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
008b 02c7       |    |		Declare_Variable	Any
008c 00d8       |    |		Load_Top	At_Offset_0
008d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008e e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0xa = 0x8e,0xfff5
008f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0090 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0xb = 0x90,0xfff4
0091 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0092 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0093 02c7       |    |		Declare_Variable	Any
0094 00d8       |    |		Load_Top	At_Offset_0
0095 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0096 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0xc = 0x96,0xfff3
0097 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0098 02ff       |    |		Declare_Variable	Variant_Record
0099 00d8       |    |		Load_Top	At_Offset_0
009a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009b e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0xd = 0x9b,0xfff2
009c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
009d 02c7       |    |		Declare_Variable	Any
009e 00d8       |    |		Load_Top	At_Offset_0
009f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a0 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0xe = 0xa0,0xfff1
00a1 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00a2 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
00a3 02c7       |    |		Declare_Variable	Any
00a4 00d8       |    |		Load_Top	At_Offset_0
00a5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a6			BODY_0068:
00a6 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0xf = 0xa6,0x1
00a7 a407       |    |		Store_Unchecked	0x2,0x7
00a8 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x10 = 0xa8,0x2
00a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00aa e40d       |    |		Load	0x2,0xd
00ab 0120       |    |		Execute	Any,Is_Value
00ac 6804       |h   |		Jump_Zero	0xb1
00ad e003       |    |		Load	0x0,0x3
00ae 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b0 7801       |x   |		Jump	0xb2
00b1 e40d       |    |		Load	0x2,0xd
00b2 e5fe       |    |		Load	0x2,-0x2
00b3 e003       |    |		Load	0x0,0x3
00b4 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00b5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b6 c40d       |    |		Store	0x2,0xd
00b7 c40c       |    |		Store	0x2,0xc
00b8 e40c       |    |		Load	0x2,0xc								; Debug Table 0x3.0x11 = 0xb8,0x3
00b9 0092 027c  |   ||		Action	Push_String_Extended,0x27c					; "Ada.Get_Unit"
00bb e007       |    |		Load	0x0,0x7
00bc 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00bd 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x12 = 0xbd,0x4
00be e003       |    |		Load	0x0,0x3
00bf 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00c0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00c1 c406       |    |		Store	0x2,0x6
00c2 e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x13 = 0xc2,0x5
00c3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c4 e406       |    |		Load	0x2,0x6
00c5 e009       |    |		Load	0x0,0x9
00c6 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00c7 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x14 = 0xc7,0x6
00c8 e004       |    |		Load	0x0,0x4
00c9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ca 012f       | /  |		Execute	Any,Equal
00cb 6808       |h   |		Jump_Zero	0xd4
00cc e00a       |    |		Load	0x0,0xa								; Debug Table 0x3.0x15 = 0xcc,0x7
00cd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00ce e004       |    |		Load	0x0,0x4
00cf 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00d0 c405       |    |		Store	0x2,0x5
00d1 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x16 = 0xd1,0x8
00d2 a407       |    |		Store_Unchecked	0x2,0x7
00d3 7802       |x   |		Jump	0xd6
00d4 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x17 = 0xd4,0x9
00d5 c405       |    |		Store	0x2,0x5
00d6 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x18 = 0xd6,0xa
00d7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d8 00e1       |    |		Load_Encached	Boolean_Cache
00d9 619a       |a   |		Indirect_Literal	Discrete,0x274,{0x00000000, 0x00004000}
00da e004       |    |		Load	0x0,0x4
00db 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00dc e406       |    |		Load	0x2,0x6
00dd e003       |    |		Load	0x0,0x3
00de 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
00df 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00e0 c402       |    |		Store	0x2,0x2
00e1 c40c       |    |		Store	0x2,0xc
00e2 e40c       |    |		Load	0x2,0xc								; Debug Table 0x3.0x19 = 0xe2,0xb
00e3 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "Object_Ops.Is_Slushy"
00e5 e007       |    |		Load	0x0,0x7
00e6 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00e7 e402       |    |		Load	0x2,0x2								; Debug Table 0x3.0x1a = 0xe7,0xc
00e8 6806       |h   |		Jump_Zero	0xef
00e9 0092 027e  |   ~|		Action	Push_String_Extended,0x27e					; "Command failed - object is not checked out"
													; Debug Table 0x3.0x1b = 0xe9,0xd
00eb e00b       |    |		Load	0x0,0xb
00ec 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00ed 6182       |a   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x5a777502}		; Debug Table 0x3.0x1c = 0xed,0xe
00ee 0257       | W  |		Execute	Discrete,Raise
00ef e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x1d = 0xef,0xf
00f0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f1 e40a       |    |		Load	0x2,0xa
00f2 0120       |    |		Execute	Any,Is_Value
00f3 6804       |h   |		Jump_Zero	0xf8
00f4 e003       |    |		Load	0x0,0x3
00f5 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00f6 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00f7 7801       |x   |		Jump	0xf9
00f8 e40a       |    |		Load	0x2,0xa
00f9 e003       |    |		Load	0x0,0x3
00fa 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00fb 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00fc 4800       |H   |		Short_Literal	0x0
00fd 4800       |H   |		Short_Literal	0x0
00fe 4800       |H   |		Short_Literal	0x0
00ff 4800       |H   |		Short_Literal	0x0
0100 e405       |    |		Load	0x2,0x5
0101 4802       |H   |		Short_Literal	0x2
0102 e40d       |    |		Load	0x2,0xd
0103 e003       |    |		Load	0x0,0x3
0104 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0105 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0106 c404       |    |		Store	0x2,0x4
0107 c40a       |    |		Store	0x2,0xa
0108 c40c       |    |		Store	0x2,0xc
0109 e40c       |    |		Load	0x2,0xc								; Debug Table 0x3.0x1e = 0x109,0x10
010a 0b00       |    |		Execute_Immediate	Case_Compare,0x0
010b 700f       |p   |		Jump_Nonzero	0x11b
010c 0b01       |    |		Execute_Immediate	Case_Compare,0x1
010d 7006       |p   |		Jump_Nonzero	0x114
010e e40c       |    |		Load	0x2,0xc								; Debug Table 0x3.0x1f = 0x10e,0x14
010f 0092 027f  |    |		Action	Push_String_Extended,0x27f					; "Ada.Open"
0111 e007       |    |		Load	0x0,0x7
0112 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0113 7807       |x   |		Jump	0x11b
0114 e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x20 = 0x114,0x12
0115 0092 0280  |    |		Action	Push_String_Extended,0x280					; "Operation"
0117 e00c       |    |		Load	0x0,0xc
0118 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0119 6156       |aV  |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x5a777502}		; Debug Table 0x3.0x21 = 0x119,0x13
011a 0257       | W  |		Execute	Discrete,Raise
011b 00d1       |    |		Pop_Control	Pop_Count_1
011c e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x22 = 0x11c,0x15
011d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011e 00db       |    |		Load_Top	At_Offset_3
011f e404       |    |		Load	0x2,0x4
0120 e003       |    |		Load	0x0,0x3
0121 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0122 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0123 00d1       |    |		Pop_Control	Pop_Count_1
0124 c40c       |    |		Store	0x2,0xc
0125 e40c       |    |		Load	0x2,0xc								; Debug Table 0x3.0x23 = 0x125,0x16
0126 0092 0281  |    |		Action	Push_String_Extended,0x281					; "Ada.Get_Version"
0128 e007       |    |		Load	0x0,0x7
0129 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
012a e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x24 = 0x12a,0x17
012b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012c e408       |    |		Load	0x2,0x8
012d 0120       |    |		Execute	Any,Is_Value
012e 6803       |h   |		Jump_Zero	0x132
012f e002       |    |		Load	0x0,0x2
0130 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0131 7801       |x   |		Jump	0x133
0132 e408       |    |		Load	0x2,0x8
0133 e40e       |    |		Load	0x2,0xe
0134 e003       |    |		Load	0x0,0x3
0135 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0136 e405       |    |		Load	0x2,0x5
0137 4802       |H   |		Short_Literal	0x2
0138 e40d       |    |		Load	0x2,0xd
0139 e00d       |    |		Load	0x0,0xd
013a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
013b c408       |    |		Store	0x2,0x8
013c c40c       |    |		Store	0x2,0xc
013d e40c       |    |		Load	0x2,0xc								; Debug Table 0x3.0x25 = 0x13d,0x18
013e 0092 0282  |    |		Action	Push_String_Extended,0x282					; "Ada_Utilities.Open_Image"
0140 e007       |    |		Load	0x0,0x7
0141 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0142 e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x26 = 0x142,0x19
0143 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0144 e00e       |    |		Load	0x0,0xe
0145 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0146 e005       |    |		Load	0x0,0x5
0147 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0148 c409       |    |		Store	0x2,0x9
0149 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x27 = 0x149,0x1a
014a 0120       |    |		Execute	Any,Is_Value
014b 6803       |h   |		Jump_Zero	0x14f
014c e001       |    |		Load	0x0,0x1
014d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
014e 7801       |x   |		Jump	0x150
014f 00d9       |    |		Load_Top	At_Offset_1
0150 e408       |    |		Load	0x2,0x8
0151 e409       |    |		Load	0x2,0x9
0152 e001       |    |		Load	0x0,0x1
0153 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0154 c40f       |    |		Store	0x2,0xf
0155 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x28 = 0x155,0x1b
0156 e404       |    |		Load	0x2,0x4								; Debug Table 0x3.0x29 = 0x156,0x401
0157 0007       |    |		Action	Break_Optional
0158 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x3.0x2a = 0x158,0x402
0159 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x2b = 0x159,0x403
015a 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x2c = 0x15a,0x404
015b 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x2d = 0x15b,0x1b
015c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x2e = 0x15c,0x801
015d 0007       |    |		Action	Break_Optional
015e 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x3.0x2f = 0x15e,0x802
015f 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x30 = 0x15f,0x803
0160 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x31 = 0x160,0x804
0161 e006       |    |		Load	0x0,0x6								; Debug Table 0x3.0x32 = 0x161,0x404
0162 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0163 c40b       |    |		Store	0x2,0xb
0164 e40b       |    |		Load	0x2,0xb								; Debug Table 0x3.0x33 = 0x164,0x1c
0165 e003       |    |		Load	0x0,0x3
0166 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0167 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0168 c40a       |    |		Store	0x2,0xa
0169 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x34 = 0x169,0x1d
016a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016b 00ec       |    |		Load_Encached	Diana_Tree_Cache
016c e40a       |    |		Load	0x2,0xa
016d e5fe       |    |		Load	0x2,-0x2
016e e003       |    |		Load	0x0,0x3
016f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0170 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0171 c403       |    |		Store	0x2,0x3
0172 c40c       |    |		Store	0x2,0xc
0173 e40c       |    |		Load	0x2,0xc								; Debug Table 0x3.0x35 = 0x173,0x1e
0174 0092 0283  |    |		Action	Push_String_Extended,0x283					; "Ada.Convert"
0176 e007       |    |		Load	0x0,0x7
0177 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0178 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x36 = 0x178,0x1f
0179 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
017a 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
017b c410       |    |		Store	0x2,0x10
017c e00a       |    |		Load	0x0,0xa								; Debug Table 0x3.0x37 = 0x17c,0x20
017d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
017e 4800       |H   |		Short_Literal	0x0
017f e404       |    |		Load	0x2,0x4
0180 e00f       |    |		Load	0x0,0xf
0181 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0182 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0183 e00f       |    |		Load	0x0,0xf
0184 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0185 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0186 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x38 = 0x186,0x21
0187 e5fd       |    |		Load	0x2,-0x3
0188 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0189 e408       |    |		Load	0x2,0x8								; Debug Table 0x3.0x39 = 0x189,0x22
018a e5fd       |    |		Load	0x2,-0x3
018b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
018c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x3a = 0x18c,0x23
018d e5fd       |    |		Load	0x2,-0x3
018e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
018f e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0x3b = 0x18f,0x24
0190 e5fd       |    |		Load	0x2,-0x3
0191 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0192 e404       |    |		Load	0x2,0x4								; Debug Table 0x3.0x3c = 0x192,0x25
0193 e5fd       |    |		Load	0x2,-0x3
0194 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0195 e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x3d = 0x195,0x26
0196 e5fd       |    |		Load	0x2,-0x3
0197 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0198 e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x3e = 0x198,0x27
0199 a5fe       |    |		Store_Unchecked	0x2,-0x2
019a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019b			TRAP_0068:
019b 0007       |    |		Action	Break_Optional
019c e010       |    |		Load	0x0,0x10							; Debug Table 0x3.0x3f = 0x19c,0x28
019d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
019e 0092 0284  |    |		Action	Push_String_Extended,0x284					; "*** Exception in Source_Updates.Start: "
													; Debug Table 0x3.0x40 = 0x19e,0x29
01a0 e011       |    |		Load	0x0,0x11
01a1 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01a2 01cc       |    |		Execute	Vector,Catenate
01a3 e010       |    |		Load	0x0,0x10
01a4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01a5 e407       |    |		Load	0x2,0x7								; Debug Table 0x3.0x41 = 0x1a5,0x2a
01a6 680b       |h   |		Jump_Zero	0x1b2
01a7 e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0x42 = 0x1a7,0x2b
01a8 4801       |H   |		Short_Literal	0x1
01a9 4800       |H   |		Short_Literal	0x0
01aa e004       |    |		Load	0x0,0x4
01ab 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01ac c405       |    |		Store	0x2,0x5
01ad e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x43 = 0x1ad,0x2c
01ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01af e406       |    |		Load	0x2,0x6
01b0 e009       |    |		Load	0x0,0x9
01b1 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
01b2 60bd       |`   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x5a777502}		; Debug Table 0x3.0x44 = 0x1b2,0x2d
01b3 0257       | W  |		Execute	Discrete,Raise
01b4 0000 0000  |    |		.BLANK	0000[0x4]
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 4603       |F   |		Jump_Case	0x4							; Debug Table 0x4 = .DEBUG	0x01bb,0x040e,0x0005,0x0000,0x005a,0x7775,0x0000,0x005f
01bc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01bd 7802       |x   |		Jump	0x1c0								; case 0x1
01be 7805       |x   |		Jump	0x1c4								; case 0x2
01bf 7809       |x   |		Jump	0x1c9								; case 0x3
01c0 00da       |    |		Load_Top	At_Offset_2
01c1 0091 0278  |   x|		Action	Push_String_Extended_Indexed,0x278				; "COMMIT_AND_FINISH"
01c3 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01c4 00db       |    |		Load_Top	At_Offset_3
01c5 00db       |    |		Load_Top	At_Offset_3
01c6 00e0       |    |		Load_Encached	Standard_Cache
01c7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c9 00da       |    |		Load_Top	At_Offset_2
01ca 00e0       |    |		Load_Encached	Standard_Cache
01cb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01cc 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01cd 0000 0000  |    |		.XXX[0x3]
01cf 0000       |    |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5       |    |		.CONST	0x01d5								; Address of begin
01d1 0262       | b  |		.CONST	0x0262								; Address of exception handler
01d2 0002       |    |		.CONST	0x0002								; Number of locals
01d3			INIT_01d0:
01d3 e003       |    |		Load	0x0,0x3								; Debug Table 0x5 = .DEBUG	0x01d3,0x0410,0x0001,0x0000,0x005a,0x7775,0x0000,0x0067
													; Debug Table 0x5.0x0 = 0x1d3,0xffff
01d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d5			BODY_01d0:
01d5 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x1 = 0x1d5,0x1
01d6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01d7 e003       |    |		Load	0x0,0x3
01d8 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01d9 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
01da 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x2 = 0x1da,0x2
01db 4603       |F   |		Jump_Case	0x4
01dc 7803       |x   |		Jump	0x1e0								; case 0x0
01dd 7802       |x   |		Jump	0x1e0								; case 0x1
01de 7849       |xI  |		Jump	0x228								; case 0x2
01df 7848       |xH  |		Jump	0x228								; case 0x3
01e0 e003       |    |		Load	0x0,0x3								; Debug Table 0x5.0x3 = 0x1e0,0x3
01e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01e2 e5fe       |    |		Load	0x2,-0x2
01e3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01e4 e5fe       |    |		Load	0x2,-0x2
01e5 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01e6 e003       |    |		Load	0x0,0x3
01e7 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01e8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01e9 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01ea 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x4 = 0x1ea,0x4
01eb 0092 0285  |    |		Action	Push_String_Extended,0x285					; "Ada.Set_Root"
01ed e007       |    |		Load	0x0,0x7
01ee 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01ef e003       |    |		Load	0x0,0x3								; Debug Table 0x5.0x5 = 0x1ef,0x5
01f0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f1 e5fe       |    |		Load	0x2,-0x2
01f2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f3 4801       |H   |		Short_Literal	0x1
01f4 e5fe       |    |		Load	0x2,-0x2
01f5 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01f6 e00d       |    |		Load	0x0,0xd
01f7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01f8 e5fe       |    |		Load	0x2,-0x2
01f9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01fa 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01fb 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x6 = 0x1fb,0x6
01fc 0092 0286  |    |		Action	Push_String_Extended,0x286					; "Ada_Utilities.Close_Image"
01fe e007       |    |		Load	0x0,0x7
01ff 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0200 e003       |    |		Load	0x0,0x3								; Debug Table 0x5.0x7 = 0x200,0x7
0201 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0202 4800       |H   |		Short_Literal	0x0
0203 4801       |H   |		Short_Literal	0x1
0204 e5fe       |    |		Load	0x2,-0x2
0205 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0206 e5fe       |    |		Load	0x2,-0x2
0207 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0208 e003       |    |		Load	0x0,0x3
0209 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
020a 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
020b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
020c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x8 = 0x20c,0x8
020d 0092 0287  |    |		Action	Push_String_Extended,0x287					; "Ada.Close"
020f e007       |    |		Load	0x0,0x7
0210 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0211 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x9 = 0x211,0x9
0212 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0213 e001       |    |		Load	0x0,0x1
0214 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0215 e5fe       |    |		Load	0x2,-0x2
0216 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0217 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0xa = 0x217,0xa
0218 700e       |p   |		Jump_Nonzero	0x227
0219 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0xb = 0x219,0xb
021a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
021b 4801       |H   |		Short_Literal	0x1
021c 4801       |H   |		Short_Literal	0x1
021d e004       |    |		Load	0x0,0x4
021e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
021f e5fe       |    |		Load	0x2,-0x2
0220 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0221 e008       |    |		Load	0x0,0x8								; Debug Table 0x5.0xc = 0x221,0xc
0222 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0223 e5fe       |    |		Load	0x2,-0x2
0224 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0225 e009       |    |		Load	0x0,0x9
0226 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0227 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0228 e003       |    |		Load	0x0,0x3								; Debug Table 0x5.0xd = 0x228,0xd
0229 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
022a e5fe       |    |		Load	0x2,-0x2
022b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
022c 4800       |H   |		Short_Literal	0x0
022d e5fe       |    |		Load	0x2,-0x2
022e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
022f e00d       |    |		Load	0x0,0xd
0230 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0231 e5fe       |    |		Load	0x2,-0x2
0232 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0233 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0234 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0xe = 0x234,0xe
0235 0092 0286  |    |		Action	Push_String_Extended,0x286					; "Ada_Utilities.Close_Image"
0237 e007       |    |		Load	0x0,0x7
0238 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0239 e003       |    |		Load	0x0,0x3								; Debug Table 0x5.0xf = 0x239,0xf
023a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023b 4800       |H   |		Short_Literal	0x0
023c 4800       |H   |		Short_Literal	0x0
023d e5fe       |    |		Load	0x2,-0x2
023e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
023f e5fe       |    |		Load	0x2,-0x2
0240 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0241 e003       |    |		Load	0x0,0x3
0242 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0243 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0244 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0245 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x10 = 0x245,0x10
0246 0092 0287  |    |		Action	Push_String_Extended,0x287					; "Ada.Close"
0248 e007       |    |		Load	0x0,0x7
0249 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
024a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x11 = 0x24a,0x11
024b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
024c e001       |    |		Load	0x0,0x1
024d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
024e e5fe       |    |		Load	0x2,-0x2
024f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0250 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x12 = 0x250,0x12
0251 0f02       |    |		Execute_Immediate	Equal,0x2
0252 680e       |h   |		Jump_Zero	0x261
0253 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x13 = 0x253,0x13
0254 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0255 4801       |H   |		Short_Literal	0x1
0256 4800       |H   |		Short_Literal	0x0
0257 e004       |    |		Load	0x0,0x4
0258 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0259 e5fe       |    |		Load	0x2,-0x2
025a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
025b e008       |    |		Load	0x0,0x8								; Debug Table 0x5.0x14 = 0x25b,0x14
025c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
025d e5fe       |    |		Load	0x2,-0x2
025e 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
025f e009       |    |		Load	0x0,0x9
0260 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0261 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0262			TRAP_01d0:
0262 0007       |    |		Action	Break_Optional
0263 e010       |    |		Load	0x0,0x10							; Debug Table 0x5.0x15 = 0x263,0x15
0264 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0265 0092 0288  |    |		Action	Push_String_Extended,0x288					; "*** Exception in Source_Updates.Finish: "
													; Debug Table 0x5.0x16 = 0x265,0x16
0267 e011       |    |		Load	0x0,0x11
0268 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0269 01cc       |    |		Execute	Vector,Catenate
026a e010       |    |		Load	0x0,0x10
026b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
026c 6003       |`   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x5a777502}		; Debug Table 0x5.0x17 = 0x26c,0x17
026d 0257       | W  |		Execute	Discrete,Raise
026e 0000 0000  |    |		.XXX[0x2]
0270 0000 0000  |    |		.LITERAL	{0x00000000, 0x5a777502}
0274 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0278 ; --------------------------------------------------------------------------------------
0278 ; STRING TABLE
0278 ; --------------------------------------------------------------------------------------
0278 0024       | $  |		.STRTAB	0x0024->0x028a							; "COMMIT_AND_FINISH"
0279 0033       | 3  |		.STRTAB	0x0033->0x0292							; "COMMIT_ONLY"
027a 003c       | <  |		.STRTAB	0x003c->0x0298							; "ABANDON_AND_FINISH"
027b 004c       | L  |		.STRTAB	0x004c->0x02a1							; "ABANDON_ONLY"
027c 0056       | V  |		.STRTAB	0x0056->0x02a7							; "Ada.Get_Unit"
027d 0060       | `  |		.STRTAB	0x0060->0x02ad							; "Object_Ops.Is_Slushy"
027e 0072       | r  |		.STRTAB	0x0072->0x02b7							; "Command failed - object is not checked out"
027f 009a       |    |		.STRTAB	0x009a->0x02cc							; "Ada.Open"
0280 00a0       |    |		.STRTAB	0x00a0->0x02d0							; "Operation"
0281 00a7       |    |		.STRTAB	0x00a7->0x02d4							; "Ada.Get_Version"
0282 00b4       |    |		.STRTAB	0x00b4->0x02dc							; "Ada_Utilities.Open_Image"
0283 00ca       |    |		.STRTAB	0x00ca->0x02e8							; "Ada.Convert"
0284 00d3       |    |		.STRTAB	0x00d3->0x02ed							; "*** Exception in Source_Updates.Start: "
0285 00f8       |    |		.STRTAB	0x00f8->0x0301							; "Ada.Set_Root"
0286 0102       |    |		.STRTAB	0x0102->0x0307							; "Ada_Utilities.Close_Image"
0287 0119       |    |		.STRTAB	0x0119->0x0313							; "Ada.Close"
0288 0120       |    |		.STRTAB	0x0120->0x0318							; "*** Exception in Source_Updates.Finish: "
0289 0146       | F  |		.STREND 0x0146->0x032c
028a 434f 4d4d  |COMM|		.STRTAB_STRINGS
032c 0000 0000  |    |		.BLANK	0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug Table
0330 ; --------------------------------------------------------------------------------------
0330 0003 0006  |    |		.CONST	0x0003,0x0006
0332 000b 0362  |   b|		.DEBUG	0x000b,0x0362,0x8000,0x0000,0x005a,0x7775,0x0000,0x000d
033a 0028 0372  | ( r|		.DEBUG	0x0028,0x0372,0x8000,0x0000,0x005a,0x86b5,0x0000,0x0019
0342 003b 0380  | ;  |		.DEBUG	0x003b,0x0380,0x0005,0x0000,0x005a,0x7775,0x0000,0x0012
034a 006b 0382  | k  |		.DEBUG	0x006b,0x0382,0x0001,0x0000,0x005a,0x7775,0x0000,0x0048
0352 01bb 040e  |    |		.DEBUG	0x01bb,0x040e,0x0005,0x0000,0x005a,0x7775,0x0000,0x005f
035a 01d3 0410  |    |		.DEBUG	0x01d3,0x0410,0x0001,0x0000,0x005a,0x7775,0x0000,0x0067
0362 ; --------------------------------------------------------------------------------------
0362 ; Debug3 Subtable 0x0
0362 ; --------------------------------------------------------------------------------------
0362 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
0364 000b ffff  |    |		.CONST	0x000b,0xffff
0366 000c fffe  |    |		.CONST	0x000c,0xfffe
0368 001c fffd  |    |		.CONST	0x001c,0xfffd
036a 001d fffc  |    |		.CONST	0x001d,0xfffc
036c 001e fffb  |    |		.CONST	0x001e,0xfffb
036e 0020 fffa  |    |		.CONST	0x0020,0xfffa
0370 0025 fff9  | %  |		.CONST	0x0025,0xfff9
0372 ; --------------------------------------------------------------------------------------
0372 ; Debug3 Subtable 0x1
0372 ; --------------------------------------------------------------------------------------
0372 0006 0000  |    |		.DBG3TAB	0x0006,0x0000
0374 0028 ffff  | (  |		.CONST	0x0028,0xffff
0376 0029 fffe  | )  |		.CONST	0x0029,0xfffe
0378 002a fffd  | *  |		.CONST	0x002a,0xfffd
037a 002b fffc  | +  |		.CONST	0x002b,0xfffc
037c 002c fffb  | ,  |		.CONST	0x002c,0xfffb
037e 002e fffa  | .  |		.CONST	0x002e,0xfffa
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug3 Subtable 0x2
0380 ; --------------------------------------------------------------------------------------
0380 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug3 Subtable 0x3
0382 ; --------------------------------------------------------------------------------------
0382 000f 0036  |   6|		.DBG3TAB	0x000f,0x0036
0384 006b ffff  | k  |		.CONST	0x006b,0xffff
0386 006c fffe  | l  |		.CONST	0x006c,0xfffe
0388 006d fffd  | m  |		.CONST	0x006d,0xfffd
038a 006e fffc  | n  |		.CONST	0x006e,0xfffc
038c 0073 fffb  | s  |		.CONST	0x0073,0xfffb
038e 0078 fffa  | x  |		.CONST	0x0078,0xfffa
0390 0079 fff9  | y  |		.CONST	0x0079,0xfff9
0392 007e fff8  | ~  |		.CONST	0x007e,0xfff8
0394 0083 fff7  |    |		.CONST	0x0083,0xfff7
0396 0089 fff6  |    |		.CONST	0x0089,0xfff6
0398 008e fff5  |    |		.CONST	0x008e,0xfff5
039a 0090 fff4  |    |		.CONST	0x0090,0xfff4
039c 0096 fff3  |    |		.CONST	0x0096,0xfff3
039e 009b fff2  |    |		.CONST	0x009b,0xfff2
03a0 00a0 fff1  |    |		.CONST	0x00a0,0xfff1
03a2 00a6 0001  |    |		.CONST	0x00a6,0x0001
03a4 00a8 0002  |    |		.CONST	0x00a8,0x0002
03a6 00b8 0003  |    |		.CONST	0x00b8,0x0003
03a8 00bd 0004  |    |		.CONST	0x00bd,0x0004
03aa 00c2 0005  |    |		.CONST	0x00c2,0x0005
03ac 00c7 0006  |    |		.CONST	0x00c7,0x0006
03ae 00cc 0007  |    |		.CONST	0x00cc,0x0007
03b0 00d1 0008  |    |		.CONST	0x00d1,0x0008
03b2 00d4 0009  |    |		.CONST	0x00d4,0x0009
03b4 00d6 000a  |    |		.CONST	0x00d6,0x000a
03b6 00e2 000b  |    |		.CONST	0x00e2,0x000b
03b8 00e7 000c  |    |		.CONST	0x00e7,0x000c
03ba 00e9 000d  |    |		.CONST	0x00e9,0x000d
03bc 00ed 000e  |    |		.CONST	0x00ed,0x000e
03be 00ef 000f  |    |		.CONST	0x00ef,0x000f
03c0 0109 0010  |    |		.CONST	0x0109,0x0010
03c2 010e 0014  |    |		.CONST	0x010e,0x0014
03c4 0114 0012  |    |		.CONST	0x0114,0x0012
03c6 0119 0013  |    |		.CONST	0x0119,0x0013
03c8 011c 0015  |    |		.CONST	0x011c,0x0015
03ca 0125 0016  | %  |		.CONST	0x0125,0x0016
03cc 012a 0017  | *  |		.CONST	0x012a,0x0017
03ce 013d 0018  | =  |		.CONST	0x013d,0x0018
03d0 0142 0019  | B  |		.CONST	0x0142,0x0019
03d2 0149 001a  | I  |		.CONST	0x0149,0x001a
03d4 0155 001b  | U  |		.CONST	0x0155,0x001b
03d6 0156 0401  | V  |		.CONST	0x0156,0x0401
03d8 0158 0402  | X  |		.CONST	0x0158,0x0402
03da 0159 0403  | Y  |		.CONST	0x0159,0x0403
03dc 015a 0404  | Z  |		.CONST	0x015a,0x0404
03de 015b 001b  | [  |		.CONST	0x015b,0x001b
03e0 015c 0801  | \  |		.CONST	0x015c,0x0801
03e2 015e 0802  | ^  |		.CONST	0x015e,0x0802
03e4 015f 0803  | _  |		.CONST	0x015f,0x0803
03e6 0160 0804  | `  |		.CONST	0x0160,0x0804
03e8 0161 0404  | a  |		.CONST	0x0161,0x0404
03ea 0164 001c  | d  |		.CONST	0x0164,0x001c
03ec 0169 001d  | i  |		.CONST	0x0169,0x001d
03ee 0173 001e  | s  |		.CONST	0x0173,0x001e
03f0 0178 001f  | x  |		.CONST	0x0178,0x001f
03f2 017c 0020  | |  |		.CONST	0x017c,0x0020
03f4 0186 0021  |   !|		.CONST	0x0186,0x0021
03f6 0189 0022  |   "|		.CONST	0x0189,0x0022
03f8 018c 0023  |   #|		.CONST	0x018c,0x0023
03fa 018f 0024  |   $|		.CONST	0x018f,0x0024
03fc 0192 0025  |   %|		.CONST	0x0192,0x0025
03fe 0195 0026  |   &|		.CONST	0x0195,0x0026
0400 0198 0027  |   '|		.CONST	0x0198,0x0027
0402 019c 0028  |   (|		.CONST	0x019c,0x0028
0404 019e 0029  |   )|		.CONST	0x019e,0x0029
0406 01a5 002a  |   *|		.CONST	0x01a5,0x002a
0408 01a7 002b  |   +|		.CONST	0x01a7,0x002b
040a 01ad 002c  |   ,|		.CONST	0x01ad,0x002c
040c 01b2 002d  |   -|		.CONST	0x01b2,0x002d
040e ; --------------------------------------------------------------------------------------
040e ; Debug3 Subtable 0x4
040e ; --------------------------------------------------------------------------------------
040e 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug3 Subtable 0x5
0410 ; --------------------------------------------------------------------------------------
0410 0001 0017  |    |		.DBG3TAB	0x0001,0x0017
0412 01d3 ffff  |    |		.CONST	0x01d3,0xffff
0414 01d5 0001  |    |		.CONST	0x01d5,0x0001
0416 01da 0002  |    |		.CONST	0x01da,0x0002
0418 01e0 0003  |    |		.CONST	0x01e0,0x0003
041a 01ea 0004  |    |		.CONST	0x01ea,0x0004
041c 01ef 0005  |    |		.CONST	0x01ef,0x0005
041e 01fb 0006  |    |		.CONST	0x01fb,0x0006
0420 0200 0007  |    |		.CONST	0x0200,0x0007
0422 020c 0008  |    |		.CONST	0x020c,0x0008
0424 0211 0009  |    |		.CONST	0x0211,0x0009
0426 0217 000a  |    |		.CONST	0x0217,0x000a
0428 0219 000b  |    |		.CONST	0x0219,0x000b
042a 0221 000c  | !  |		.CONST	0x0221,0x000c
042c 0228 000d  | (  |		.CONST	0x0228,0x000d
042e 0234 000e  | 4  |		.CONST	0x0234,0x000e
0430 0239 000f  | 9  |		.CONST	0x0239,0x000f
0432 0245 0010  | E  |		.CONST	0x0245,0x0010
0434 024a 0011  | J  |		.CONST	0x024a,0x0011
0436 0250 0012  | P  |		.CONST	0x0250,0x0012
0438 0253 0013  | S  |		.CONST	0x0253,0x0013
043a 025b 0014  | [  |		.CONST	0x025b,0x0014
043c 0263 0015  | c  |		.CONST	0x0263,0x0015
043e 0265 0016  | e  |		.CONST	0x0265,0x0016
0440 026c 0017  | l  |		.CONST	0x026c,0x0017
0442 0000 0000  |    |		.BLANK	0000[0x1be]