|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800) Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
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 0728 | ( | .CONST 0x0728 ; 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 0005 | | .CONST 0x0005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x079a,0x8000,0x0000,0x0057,0x9455,0x0000,0x0006 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0038 | 8 | .CONST 0x0038 ; Address of begin 0019 0063 | c | .CONST 0x0063 ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001b,0x079c,0x8001,0x0000,0x0057,0x9455,0x0000,0x0006 ; Debug Table 0x1.0x0 = 0x1b,0xffff 001c 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x1c,0xfffe 001d 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x1d,0xfffd 001e 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x1e,0xfffc 001f 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "Make_Separate failed - " ; Debug Table 0x1.0x4 = 0x1f,0xfffb 0021 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x5 = 0x21,0xfffa 0022 4802 |H | Short_Literal 0x2 0023 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0025 03fd | | Declare_Type Discrete,Defined 0026 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x6 = 0x26,0xfff9 0027 0007 | | Action Break_Optional 0028 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x7 = 0x28,0xfff8 0029 e5ff | | Load 0x2,-0x1 002a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 002b 0007 | | Action Break_Optional ; Debug Table 0x1.0x8 = 0x2b,0xfff7 002c 029f 0083 | | Declare_Subprogram INIT_0080,For_Call ; Debug Table 0x1.0x9 = 0x2c,0xfff6 002e 029f 009b | | Declare_Subprogram INIT_0098,For_Call ; Debug Table 0x1.0xa = 0x2e,0xfff5 0030 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call ; Debug Table 0x1.0xb = 0x30,0xfff4 0032 029f 0183 | | Declare_Subprogram INIT_0180,For_Call ; Debug Table 0x1.0xc = 0x32,0xfff3 0034 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call ; Debug Table 0x1.0xd = 0x34,0xfff2 0036 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call ; Debug Table 0x1.0xe = 0x36,0xfff1 0038 BODY_0018: 0038 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xf = 0x38,0x1 0039 1815 | | Execute Package,Field_Execute,Field_Number 0x15 003a e5fe | | Load 0x2,-0x2 003b 016d | m | Execute Variant_Record,Structure_Write 003c 0007 | | Action Break_Optional ; Debug Table 0x1.0x10 = 0x3c,0x2 003d e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x11 = 0x3d,0x401 003e 0007 | | Action Break_Optional 003f 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x1.0x12 = 0x3f,0x402 0040 0007 | | Action Break_Optional ; Debug Table 0x1.0x13 = 0x40,0x403 0041 0007 | | Action Break_Optional ; Debug Table 0x1.0x14 = 0x41,0x404 0042 0b21 | ! | Execute_Immediate Case_Compare,0x21 ; Debug Table 0x1.0x15 = 0x42,0x2 0043 7007 |p | Jump_Nonzero 0x4b 0044 0b29 | ) | Execute_Immediate Case_Compare,0x29 0045 7005 |p | Jump_Nonzero 0x4b 0046 0b2e | . | Execute_Immediate Case_Compare,0x2e 0047 7003 |p | Jump_Nonzero 0x4b 0048 0b2c | , | Execute_Immediate Case_Compare,0x2c 0049 7001 |p | Jump_Nonzero 0x4b 004a 7804 |x | Jump 0x4f ; Debug Table 0x1.0x16 = 0x4a,0x4 004b e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x17 = 0x4b,0x3 004c 00eb | | Load_Encached Diana_Cache 004d 18ec | | Execute Package,Field_Execute,Field_Number 0xec 004e a405 | | Store_Unchecked 0x2,0x5 004f 00d1 | | Pop_Control Pop_Count_1 0050 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x18 = 0x50,0x5 0051 8407 | | Call 0x2,0x7 0052 a404 | | Store_Unchecked 0x2,0x4 0053 e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x19 = 0x53,0x6 0054 7001 |p | Jump_Nonzero 0x56 0055 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x1.0x1a = 0x55,0x7 0056 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x1b = 0x56,0x8 0057 e001 | | Load 0x0,0x1 0058 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0059 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005a 6804 |h | Jump_Zero 0x5f 005b e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x1c = 0x5b,0x9 005c 840a | | Call 0x2,0xa 005d c405 | | Store 0x2,0x5 005e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 005f e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x1d = 0x5f,0xa 0060 840b | | Call 0x2,0xb 0061 c405 | | Store 0x2,0x5 0062 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0063 TRAP_0018: 0063 633c |c< | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x57946501} 0064 010f | | Execute Exception,Equal 0065 6801 |h | Jump_Zero 0x67 0066 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x1.0x1e = 0x66,0xb 0067 0100 | | Execute Exception,Raise 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x006b,0x07dc,0x0005,0x0000,0x0057,0x9465,0x0000,0x004c 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 006d 7802 |x | Jump 0x70 ; case 0x1 006e 7805 |x | Jump 0x74 ; case 0x2 006f 7809 |x | Jump 0x79 ; case 0x3 0070 00da | | Load_Top At_Offset_2 0071 0091 05f2 | | Action Push_String_Extended_Indexed,0x5f2 ; "NOT_SEPARABLE" 0073 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0074 00db | | Load_Top At_Offset_3 0075 00db | | Load_Top At_Offset_3 0076 00e0 | | Load_Encached Standard_Cache 0077 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0078 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0079 00da | | Load_Top At_Offset_2 007a 00e0 | | Load_Encached Standard_Cache 007b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 007c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e002 | | Load 0x0,0x2 ; Debug Table 0x3 = .DEBUG 0x0083,0x07de,0x0001,0x0000,0x0057,0x9465,0x0000,0x0063 ; Debug Table 0x3.0x0 = 0x83,0x1 0084 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0085 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "Make_Separate." ; Debug Table 0x3.0x1 = 0x85,0x2 0087 00db | | Load_Top At_Offset_3 0088 01cc | | Execute Vector,Catenate 0089 0092 05f7 | | Action Push_String_Extended,0x5f7 ; " failed - " 008b 01cc | | Execute Vector,Catenate 008c e7fe | | Load 0x3,-0x2 008d 01cc | | Execute Vector,Catenate 008e e002 | | Load 0x0,0x2 008f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0090 630f |c | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x57946501} ; Debug Table 0x3.0x2 = 0x90,0x3 0091 0257 | W | Execute Discrete,Raise 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a4 | | .CONST 0x00a4 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0008 | | .CONST 0x0008 ; Number of locals 009b INIT_0098: 009b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4 = .DEBUG 0x009b,0x07e6,0x0002,0x0000,0x0057,0x9465,0x0000,0x008c ; Debug Table 0x4.0x0 = 0x9b,0xffff 009c 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x4.0x1 = 0x9c,0xfffe 009d 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x2 = 0x9d,0xfffd 009e 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x3 = 0x9e,0xfffc 009f 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x4 = 0x9f,0xfffb 00a0 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call ; Debug Table 0x4.0x5 = 0xa0,0xfffa 00a2 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call ; Debug Table 0x4.0x6 = 0xa2,0xfff9 00a4 BODY_0098: 00a4 e7ff | | Load 0x3,-0x1 ; Debug Table 0x4.0x7 = 0xa4,0x1 00a5 4974 |It | Short_Literal 0x174 00a6 00eb | | Load_Encached Diana_Cache 00a7 0098 | | Execute Package,Field_Read_Dynamic 00a8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00a9 a602 | | Store_Unchecked 0x3,0x2 00aa e602 | | Load 0x3,0x2 ; Debug Table 0x4.0x8 = 0xaa,0x2 00ab e7ff | | Load 0x3,-0x1 00ac 021f | | Execute Heap_Access,Equal 00ad 685f |h_ | Jump_Zero 0x10d 00ae e7ff | | Load 0x3,-0x1 00af 0007 | | Action Break_Optional 00b0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x9 = 0xb0,0x401 00b1 0007 | | Action Break_Optional 00b2 e60a | | Load 0x3,0xa ; Debug Table 0x4.0xa = 0xb2,0x801 00b3 0007 | | Action Break_Optional 00b4 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x4.0xb = 0xb4,0x802 00b5 0007 | | Action Break_Optional ; Debug Table 0x4.0xc = 0xb5,0x803 00b6 00d0 | | Action Swap_Control ; Debug Table 0x4.0xd = 0xb6,0x804 00b7 00d1 | | Pop_Control Pop_Count_1 00b8 49e2 |I | Short_Literal 0x1e2 ; Debug Table 0x4.0xe = 0xb8,0x401 00b9 00eb | | Load_Encached Diana_Cache 00ba 0098 | | Execute Package,Field_Read_Dynamic 00bb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00bc 7800 |x | Jump 0xbd 00bd 00d0 | | Action Swap_Control 00be 00d1 | | Pop_Control Pop_Count_1 00bf 0f04 | | Execute_Immediate Equal,0x4 ; Debug Table 0x4.0xf = 0xbf,0x2 00c0 684c |hL | Jump_Zero 0x10d 00c1 e7ff | | Load 0x3,-0x1 ; Debug Table 0x4.0x10 = 0xc1,0x3 00c2 00eb | | Load_Encached Diana_Cache 00c3 1889 | | Execute Package,Field_Execute,Field_Number 0x89 00c4 a603 | | Store_Unchecked 0x3,0x3 00c5 e603 | | Load 0x3,0x3 ; Debug Table 0x4.0x11 = 0xc5,0x4 00c6 4975 |Iu | Short_Literal 0x175 00c7 00eb | | Load_Encached Diana_Cache 00c8 0098 | | Execute Package,Field_Read_Dynamic 00c9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ca 683a |h: | Jump_Zero 0x105 00cb e603 | | Load 0x3,0x3 ; Debug Table 0x4.0x12 = 0xcb,0x5 00cc 0007 | | Action Break_Optional 00cd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x13 = 0xcd,0xc01 00ce 7002 |p | Jump_Nonzero 0xd1 00cf 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x14 = 0xcf,0xc02 00d0 782c |x, | Jump 0xfd 00d1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x15 = 0xd1,0xc03 00d2 0217 | | Execute Heap_Access,All_Reference 00d3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d4 6804 |h | Jump_Zero 0xd9 00d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x16 = 0xd5,0xc04 00d6 0217 | | Execute Heap_Access,All_Reference 00d7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00d8 7824 |x$ | Jump 0xfd 00d9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x17 = 0xd9,0xc05 00da 0007 | | Action Break_Optional 00db e60a | | Load 0x3,0xa ; Debug Table 0x4.0x18 = 0xdb,0x1001 00dc 0007 | | Action Break_Optional 00dd 0148 | H | Execute Heap_Access,Get_Offset ; Debug Table 0x4.0x19 = 0xdd,0x1002 00de 0007 | | Action Break_Optional ; Debug Table 0x4.0x1a = 0xde,0x1003 00df 00d0 | | Action Swap_Control ; Debug Table 0x4.0x1b = 0xdf,0x1004 00e0 00d1 | | Pop_Control Pop_Count_1 00e1 49bb |I | Short_Literal 0x1bb ; Debug Table 0x4.0x1c = 0xe1,0xc05 00e2 00eb | | Load_Encached Diana_Cache 00e3 0098 | | Execute Package,Field_Read_Dynamic 00e4 012c | , | Execute Any,Size 00e5 e003 | | Load 0x0,0x3 00e6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00e7 025b | [ | Execute Discrete,Check_In_Type 00e8 0273 | s | Execute Discrete,Plus 00e9 00d9 | | Load_Top At_Offset_1 00ea 0007 | | Action Break_Optional 00eb e60b | | Load 0x3,0xb ; Debug Table 0x4.0x1d = 0xeb,0x1401 00ec 0007 | | Action Break_Optional 00ed 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x4.0x1e = 0xed,0x1402 00ee 0007 | | Action Break_Optional ; Debug Table 0x4.0x1f = 0xee,0x1403 00ef 00d0 | | Action Swap_Control ; Debug Table 0x4.0x20 = 0xef,0x1404 00f0 00d1 | | Pop_Control Pop_Count_1 00f1 49c8 |I | Short_Literal 0x1c8 ; Debug Table 0x4.0x21 = 0xf1,0x1004 00f2 00eb | | Load_Encached Diana_Cache 00f3 0098 | | Execute Package,Field_Read_Dynamic 00f4 49c9 |I | Short_Literal 0x1c9 00f5 00eb | | Load_Encached Diana_Cache 00f6 0098 | | Execute Package,Field_Read_Dynamic 00f7 49ca |I | Short_Literal 0x1ca 00f8 00eb | | Load_Encached Diana_Cache 00f9 0095 | | Execute Package,Field_Reference_Dynamic 00fa e004 | | Load 0x0,0x4 00fb 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00fc 7800 |x | Jump 0xfd 00fd 00d0 | | Action Swap_Control 00fe 00d1 | | Pop_Control Pop_Count_1 00ff 8608 | | Call 0x3,0x8 ; Debug Table 0x4.0x22 = 0xff,0x5 0100 6802 |h | Jump_Zero 0x103 0101 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x23 = 0x101,0x6 0102 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0103 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x24 = 0x103,0x7 0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0105 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x25 = 0x105,0x8 0106 0092 05f8 | | Action Push_String_Extended,0x5f8 ; "Object is a list with many elements" 0108 01cc | | Execute Vector,Catenate 0109 e005 | | Load 0x0,0x5 010a 180d | | Execute Package,Field_Execute,Field_Number 0xd 010b 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x26 = 0x10b,0x9 010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010d 0007 | | Action Break_Optional ; Debug Table 0x4.0x27 = 0x10d,0xa 010e e602 | | Load 0x3,0x2 ; Debug Table 0x4.0x28 = 0x10e,0x1801 010f 0007 | | Action Break_Optional 0110 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x4.0x29 = 0x110,0x1802 0111 0007 | | Action Break_Optional ; Debug Table 0x4.0x2a = 0x111,0x1803 0112 0007 | | Action Break_Optional ; Debug Table 0x4.0x2b = 0x112,0x1804 0113 0fa8 | | Execute_Immediate Equal,-0x58 ; Debug Table 0x4.0x2c = 0x113,0xa 0114 6805 |h | Jump_Zero 0x11a 0115 e602 | | Load 0x3,0x2 ; Debug Table 0x4.0x2d = 0x115,0xb 0116 00eb | | Load_Encached Diana_Cache 0117 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 0118 a604 | | Store_Unchecked 0x3,0x4 0119 7805 |x | Jump 0x11f 011a 0092 05f9 | | Action Push_String_Extended,0x5f9 ; "Root is not Comp_Unit or Mumble_S" ; Debug Table 0x4.0x2e = 0x11a,0xc 011c 0092 05fa | | Action Push_String_Extended,0x5fa ; "Get_Decl_Kind" 011e 8406 | | Call 0x2,0x6 011f 0007 | | Action Break_Optional ; Debug Table 0x4.0x2f = 0x11f,0xd 0120 e604 | | Load 0x3,0x4 ; Debug Table 0x4.0x30 = 0x120,0x1c01 0121 0007 | | Action Break_Optional 0122 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x4.0x31 = 0x122,0x1c02 0123 0007 | | Action Break_Optional ; Debug Table 0x4.0x32 = 0x123,0x1c03 0124 0007 | | Action Break_Optional ; Debug Table 0x4.0x33 = 0x124,0x1c04 0125 0b49 | I | Execute_Immediate Case_Compare,0x49 ; Debug Table 0x4.0x34 = 0x125,0xd 0126 700e |p | Jump_Nonzero 0x135 0127 0b48 | H | Execute_Immediate Case_Compare,0x48 0128 7013 |p | Jump_Nonzero 0x13c 0129 0b47 | G | Execute_Immediate Case_Compare,0x47 012a 7011 |p | Jump_Nonzero 0x13c 012b 0b46 | F | Execute_Immediate Case_Compare,0x46 012c 700f |p | Jump_Nonzero 0x13c 012d e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x35 = 0x12d,0x10 012e 0092 05fb | | Action Push_String_Extended,0x5fb ; "Enclosing is not a body" 0130 01cc | | Execute Vector,Catenate 0131 e005 | | Load 0x0,0x5 0132 180d | | Execute Package,Field_Execute,Field_Number 0xd 0133 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x36 = 0x133,0x11 0134 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0135 e604 | | Load 0x3,0x4 ; Debug Table 0x4.0x37 = 0x135,0xe 0136 00eb | | Load_Encached Diana_Cache 0137 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5 0138 00eb | | Load_Encached Diana_Cache 0139 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6 013a a605 | | Store_Unchecked 0x3,0x5 013b 7804 |x | Jump 0x140 013c e604 | | Load 0x3,0x4 ; Debug Table 0x4.0x38 = 0x13c,0xf 013d 00eb | | Load_Encached Diana_Cache 013e 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6 013f a605 | | Store_Unchecked 0x3,0x5 0140 00d1 | | Pop_Control Pop_Count_1 0141 0007 | | Action Break_Optional ; Debug Table 0x4.0x39 = 0x141,0x12 0142 e605 | | Load 0x3,0x5 ; Debug Table 0x4.0x3a = 0x142,0x2001 0143 0007 | | Action Break_Optional 0144 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x4.0x3b = 0x144,0x2002 0145 0007 | | Action Break_Optional ; Debug Table 0x4.0x3c = 0x145,0x2003 0146 0007 | | Action Break_Optional ; Debug Table 0x4.0x3d = 0x146,0x2004 0147 0b4e | N | Execute_Immediate Case_Compare,0x4e ; Debug Table 0x4.0x3e = 0x147,0x12 0148 7008 |p | Jump_Nonzero 0x151 0149 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x3f = 0x149,0x14 014a 0092 05fb | | Action Push_String_Extended,0x5fb ; "Enclosing is not a body" 014c 01cc | | Execute Vector,Catenate 014d e005 | | Load 0x0,0x5 014e 180d | | Execute Package,Field_Execute,Field_Number 0xd 014f 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x40 = 0x14f,0x15 0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0151 e605 | | Load 0x3,0x5 ; Debug Table 0x4.0x41 = 0x151,0x13 0152 00eb | | Load_Encached Diana_Cache 0153 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1 0154 a606 | | Store_Unchecked 0x3,0x6 0155 00d1 | | Pop_Control Pop_Count_1 0156 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x42 = 0x156,0x16 0157 e7ff | | Load 0x3,-0x1 0158 00eb | | Load_Encached Diana_Cache 0159 18ec | | Execute Package,Field_Execute,Field_Number 0xec 015a 021f | | Execute Heap_Access,Equal 015b 7008 |p | Jump_Nonzero 0x164 015c e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x43 = 0x15c,0x17 015d 0092 05fc | | Action Push_String_Extended,0x5fc ; "Object is too deeply nested" 015f 01cc | | Execute Vector,Catenate 0160 e005 | | Load 0x0,0x5 0161 180d | | Execute Package,Field_Execute,Field_Number 0xd 0162 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x44 = 0x162,0x18 0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0164 e7ff | | Load 0x3,-0x1 ; Debug Table 0x4.0x45 = 0x164,0x19 0165 8608 | | Call 0x3,0x8 0166 6802 |h | Jump_Zero 0x169 0167 4802 |H | Short_Literal 0x2 ; Debug Table 0x4.0x46 = 0x167,0x1a 0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0169 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x47 = 0x169,0x1b 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b 0000 0000 | | .BLANK 0000[0x5] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0174 | t | .CONST 0x0174 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5 = .DEBUG 0x0173,0x0878,0x0002,0x0000,0x0057,0x9465,0x0000,0x02f9 ; Debug Table 0x5.0x0 = 0x173,0xffff 0174 BODY_0170: 0174 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0x174,0x1 0175 e006 | | Load 0x0,0x6 0176 180e | | Execute Package,Field_Execute,Field_Number 0xe 0177 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0178 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0x178,0x2 0179 e007 | | Load 0x0,0x7 017a 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 017b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 017c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x3 = 0x17c,0x3 017d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017e 0000 0000 | | .XXX[0x2] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0192 | | .CONST 0x0192 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0008 | | .CONST 0x0008 ; Number of locals 0183 INIT_0180: 0183 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6 = .DEBUG 0x0183,0x0882,0x0002,0x0000,0x0057,0x9465,0x0000,0x0321 ; Debug Table 0x6.0x0 = 0x183,0xffff 0184 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6.0x1 = 0x184,0xfffe 0185 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6.0x2 = 0x185,0xfffd 0186 e008 | | Load 0x0,0x8 ; Debug Table 0x6.0x3 = 0x186,0xfffc 0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0188 02c7 | | Declare_Variable Any 0189 00d8 | | Load_Top At_Offset_0 018a 1c00 | | Execute_Immediate Run_Utility,0x0 018b e006 | | Load 0x0,0x6 ; Debug Table 0x6.0x4 = 0x18b,0xfffb 018c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 018d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 018e e009 | | Load 0x0,0x9 ; Debug Table 0x6.0x5 = 0x18e,0xfffa 018f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0190 029f 050b | | Declare_Subprogram INIT_0508,For_Call ; Debug Table 0x6.0x6 = 0x190,0xfff9 0192 BODY_0180: 0192 e7fb | | Load 0x3,-0x5 ; Debug Table 0x6.0x7 = 0x192,0x1 0193 681b |h | Jump_Zero 0x1af 0194 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x8 = 0x194,0x2 0195 0120 | | Execute Any,Is_Value 0196 6803 |h | Jump_Zero 0x19a 0197 e008 | | Load 0x0,0x8 0198 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0199 7801 |x | Jump 0x19b 019a 00db | | Load_Top At_Offset_3 019b e7fc | | Load 0x3,-0x4 019c e00a | | Load 0x0,0xa 019d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 019e e00b | | Load 0x0,0xb 019f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a0 e007 | | Load 0x0,0x7 01a1 180f | | Execute Package,Field_Execute,Field_Number 0xf 01a2 e008 | | Load 0x0,0x8 01a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a4 c605 | | Store 0x3,0x5 01a5 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6.0x9 = 0x1a5,0x3 01a6 00db | | Load_Top At_Offset_3 01a7 e605 | | Load 0x3,0x5 01a8 4801 |H | Short_Literal 0x1 01a9 e7fd | | Load 0x3,-0x3 01aa e7fe | | Load 0x3,-0x2 01ab e008 | | Load 0x0,0x8 01ac 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 01ad c602 | | Store 0x3,0x2 01ae 7804 |x | Jump 0x1b3 01af e7fd | | Load 0x3,-0x3 ; Debug Table 0x6.0xa = 0x1af,0x4 01b0 a602 | | Store_Unchecked 0x3,0x2 01b1 e7fe | | Load 0x3,-0x2 ; Debug Table 0x6.0xb = 0x1b1,0x5 01b2 c605 | | Store 0x3,0x5 01b3 e602 | | Load 0x3,0x2 ; Debug Table 0x6.0xc = 0x1b3,0x6 01b4 e605 | | Load 0x3,0x5 01b5 e008 | | Load 0x0,0x8 01b6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b7 e602 | | Load 0x3,0x2 ; Debug Table 0x6.0xd = 0x1b7,0x7 01b8 00eb | | Load_Encached Diana_Cache 01b9 1889 | | Execute Package,Field_Execute,Field_Number 0x89 01ba 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xe = 0x1ba,0x401 01bb 7002 |p | Jump_Nonzero 0x1be 01bc 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6.0xf = 0x1bc,0x402 01bd 782c |x, | Jump 0x1ea 01be 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x10 = 0x1be,0x403 01bf 0217 | | Execute Heap_Access,All_Reference 01c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c1 6804 |h | Jump_Zero 0x1c6 01c2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x11 = 0x1c2,0x404 01c3 0217 | | Execute Heap_Access,All_Reference 01c4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01c5 7824 |x$ | Jump 0x1ea 01c6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x12 = 0x1c6,0x405 01c7 0007 | | Action Break_Optional 01c8 e60a | | Load 0x3,0xa ; Debug Table 0x6.0x13 = 0x1c8,0x801 01c9 0007 | | Action Break_Optional 01ca 0148 | H | Execute Heap_Access,Get_Offset ; Debug Table 0x6.0x14 = 0x1ca,0x802 01cb 0007 | | Action Break_Optional ; Debug Table 0x6.0x15 = 0x1cb,0x803 01cc 00d0 | | Action Swap_Control ; Debug Table 0x6.0x16 = 0x1cc,0x804 01cd 00d1 | | Pop_Control Pop_Count_1 01ce 49bb |I | Short_Literal 0x1bb ; Debug Table 0x6.0x17 = 0x1ce,0x405 01cf 00eb | | Load_Encached Diana_Cache 01d0 0098 | | Execute Package,Field_Read_Dynamic 01d1 012c | , | Execute Any,Size 01d2 e003 | | Load 0x0,0x3 01d3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01d4 025b | [ | Execute Discrete,Check_In_Type 01d5 0273 | s | Execute Discrete,Plus 01d6 00d9 | | Load_Top At_Offset_1 01d7 0007 | | Action Break_Optional 01d8 e60b | | Load 0x3,0xb ; Debug Table 0x6.0x18 = 0x1d8,0xc01 01d9 0007 | | Action Break_Optional 01da 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x6.0x19 = 0x1da,0xc02 01db 0007 | | Action Break_Optional ; Debug Table 0x6.0x1a = 0x1db,0xc03 01dc 00d0 | | Action Swap_Control ; Debug Table 0x6.0x1b = 0x1dc,0xc04 01dd 00d1 | | Pop_Control Pop_Count_1 01de 49c8 |I | Short_Literal 0x1c8 ; Debug Table 0x6.0x1c = 0x1de,0x804 01df 00eb | | Load_Encached Diana_Cache 01e0 0098 | | Execute Package,Field_Read_Dynamic 01e1 49c9 |I | Short_Literal 0x1c9 01e2 00eb | | Load_Encached Diana_Cache 01e3 0098 | | Execute Package,Field_Read_Dynamic 01e4 49ca |I | Short_Literal 0x1ca 01e5 00eb | | Load_Encached Diana_Cache 01e6 0095 | | Execute Package,Field_Reference_Dynamic 01e7 e004 | | Load 0x0,0x4 01e8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01e9 7800 |x | Jump 0x1ea 01ea 00d0 | | Action Swap_Control 01eb 00d1 | | Pop_Control Pop_Count_1 01ec a604 | | Store_Unchecked 0x3,0x4 ; Debug Table 0x6.0x1d = 0x1ec,0x7 01ed 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x1e = 0x1ed,0x8 01ee e604 | | Load 0x3,0x4 01ef 4974 |It | Short_Literal 0x174 01f0 00eb | | Load_Encached Diana_Cache 01f1 0098 | | Execute Package,Field_Read_Dynamic 01f2 180f | | Execute Package,Field_Execute,Field_Number 0xf 01f3 0007 | | Action Break_Optional ; Debug Table 0x6.0x1f = 0x1f3,0x9 01f4 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x6.0x20 = 0x1f4,0x1001 01f5 4895 |H | Short_Literal 0x95 ; Debug Table 0x6.0x21 = 0x1f5,0x9 01f6 00eb | | Load_Encached Diana_Cache 01f7 187f | | Execute Package,Field_Execute,Field_Number 0x7f 01f8 e604 | | Load 0x3,0x4 01f9 e7ff | | Load 0x3,-0x1 01fa 8608 | | Call 0x3,0x8 01fb 4849 |HI | Short_Literal 0x49 01fc 00eb | | Load_Encached Diana_Cache 01fd 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 01fe 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x6.0x22 = 0x1fe,0x1401 01ff 4884 |H | Short_Literal 0x84 ; Debug Table 0x6.0x23 = 0x1ff,0x1001 0200 00eb | | Load_Encached Diana_Cache 0201 187f | | Execute Package,Field_Execute,Field_Number 0x7f 0202 48a8 |H | Short_Literal 0xa8 0203 00eb | | Load_Encached Diana_Cache 0204 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 0205 a603 | | Store_Unchecked 0x3,0x3 0206 e7fc | | Load 0x3,-0x4 ; Debug Table 0x6.0x24 = 0x206,0xa 0207 e009 | | Load 0x0,0x9 0208 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0209 0032 | 2 | Store_Top Heap_Access,At_Offset_2 020a 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x25 = 0x20a,0xb 020b 00da | | Load_Top At_Offset_2 020c 0217 | | Execute Heap_Access,All_Reference 020d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 020e e603 | | Load 0x3,0x3 ; Debug Table 0x6.0x26 = 0x20e,0xc 020f e605 | | Load 0x3,0x5 0210 e008 | | Load 0x0,0x8 0211 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0212 e7fb | | Load 0x3,-0x5 ; Debug Table 0x6.0x27 = 0x212,0xd 0213 6804 |h | Jump_Zero 0x218 0214 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x28 = 0x214,0xe 0215 e008 | | Load 0x0,0x8 0216 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0217 c605 | | Store 0x3,0x5 0218 e603 | | Load 0x3,0x3 ; Debug Table 0x6.0x29 = 0x218,0xf 0219 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 021a 0000 0000 | | .BLANK 0000[0x6] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0256 | V | .CONST 0x0256 ; Address of begin 0221 038a | | .CONST 0x038a ; Address of exception handler 0222 0013 | | .CONST 0x0013 ; Number of locals 0223 INIT_0220: 0223 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7 = .DEBUG 0x0223,0x08d8,0x0001,0x0000,0x0057,0x9465,0x0000,0x04a7 ; Debug Table 0x7.0x0 = 0x223,0xffff 0224 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7.0x1 = 0x224,0xfffe 0225 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7.0x2 = 0x225,0xfffd 0226 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7.0x3 = 0x226,0xfffc 0227 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7.0x4 = 0x227,0xfffb 0228 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x7.0x5 = 0x228,0xfffa 0229 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x7.0x6 = 0x229,0xfff9 022a 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x7.0x7 = 0x22a,0xfff8 022b e00c | | Load 0x0,0xc ; Debug Table 0x7.0x8 = 0x22b,0xfff7 022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022d 02c7 | | Declare_Variable Any 022e 00d8 | | Load_Top At_Offset_0 022f 1c00 | | Execute_Immediate Run_Utility,0x0 0230 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x9 = 0x230,0xfff6 0231 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0232 02c7 | | Declare_Variable Any 0233 00d8 | | Load_Top At_Offset_0 0234 1c00 | | Execute_Immediate Run_Utility,0x0 0235 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0xa = 0x235,0xfff5 0236 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0237 02ff | | Declare_Variable Variant_Record 0238 00d8 | | Load_Top At_Offset_0 0239 1c00 | | Execute_Immediate Run_Utility,0x0 023a e001 | | Load 0x0,0x1 ; Debug Table 0x7.0xb = 0x23a,0xfff4 023b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 023c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 023d 02c7 | | Declare_Variable Any 023e 00d8 | | Load_Top At_Offset_0 023f 1c00 | | Execute_Immediate Run_Utility,0x0 0240 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0xc = 0x240,0xfff3 0241 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0242 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0243 02c7 | | Declare_Variable Any 0244 00d8 | | Load_Top At_Offset_0 0245 1c00 | | Execute_Immediate Run_Utility,0x0 0246 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0xd = 0x246,0xfff2 0247 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0248 e00d | | Load 0x0,0xd ; Debug Table 0x7.0xe = 0x248,0xfff1 0249 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024a 0322 | " | Declare_Variable Record 024b 00d8 | | Load_Top At_Offset_0 024c 1c00 | | Execute_Immediate Run_Utility,0x0 024d e009 | | Load 0x0,0x9 ; Debug Table 0x7.0xf = 0x24d,0xfff0 024e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 024f 02c7 | | Declare_Variable Any 0250 00d8 | | Load_Top At_Offset_0 0251 1c00 | | Execute_Immediate Run_Utility,0x0 0252 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call ; Debug Table 0x7.0x10 = 0x252,0xffef 0254 029f 05ab | | Declare_Subprogram INIT_05a8,For_Call ; Debug Table 0x7.0x11 = 0x254,0xffee 0256 BODY_0220: 0256 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x12 = 0x256,0x1 0257 e7ff | | Load 0x3,-0x1 0258 e00e | | Load 0x0,0xe 0259 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025a e00d | | Load 0x0,0xd 025b 180e | | Execute Package,Field_Execute,Field_Number 0xe 025c c7ff | | Store 0x3,-0x1 025d 00d1 | | Pop_Control Pop_Count_1 025e e404 | | Load 0x2,0x4 ; Debug Table 0x7.0x13 = 0x25e,0x2 025f 0f01 | | Execute_Immediate Equal,0x1 0260 6839 |h9 | Jump_Zero 0x29a 0261 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x14 = 0x261,0x3 0262 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0263 e001 | | Load 0x0,0x1 0264 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0265 6136 |a6 | Indirect_Literal Discrete,0x39c,{0x00000000, 0x00004000} 0266 e00e | | Load 0x0,0xe 0267 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0268 4800 |H | Short_Literal 0x0 0269 e610 | | Load 0x3,0x10 026a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 026b e001 | | Load 0x0,0x1 026c 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 026d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 026e c605 | | Store 0x3,0x5 026f c60f | | Store 0x3,0xf 0270 e60f | | Load 0x3,0xf ; Debug Table 0x7.0x15 = 0x270,0x4 0271 0092 05fd | | Action Push_String_Extended,0x5fd ; "Traversal.Get_Declaration" 0273 e00f | | Load 0x0,0xf 0274 180f | | Execute Package,Field_Execute,Field_Number 0xf 0275 e605 | | Load 0x3,0x5 ; Debug Table 0x7.0x16 = 0x275,0x5 0276 4974 |It | Short_Literal 0x174 0277 00eb | | Load_Encached Diana_Cache 0278 0098 | | Execute Package,Field_Read_Dynamic 0279 181a | | Execute Package,Field_Execute,Field_Number 0x1a 027a a603 | | Store_Unchecked 0x3,0x3 027b 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x17 = 0x27b,0x6 027c e610 | | Load 0x3,0x10 027d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 027e e7ff | | Load 0x3,-0x1 027f e610 | | Load 0x3,0x10 0280 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0281 e603 | | Load 0x3,0x3 0282 8409 | | Call 0x2,0x9 0283 a604 | | Store_Unchecked 0x3,0x4 0284 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x18 = 0x284,0x7 0285 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0286 e60c | | Load 0x3,0xc 0287 e604 | | Load 0x3,0x4 0288 e001 | | Load 0x0,0x1 0289 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 028a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 028b 00d1 | | Pop_Control Pop_Count_1 028c c60f | | Store 0x3,0xf 028d e60f | | Load 0x3,0xf ; Debug Table 0x7.0x19 = 0x28d,0x8 028e 0092 05fe | | Action Push_String_Extended,0x5fe ; "Ada.Get_Version" 0290 e00f | | Load 0x0,0xf 0291 180f | | Execute Package,Field_Execute,Field_Number 0xf 0292 e605 | | Load 0x3,0x5 ; Debug Table 0x7.0x1a = 0x292,0x9 0293 e604 | | Load 0x3,0x4 0294 8612 | | Call 0x3,0x12 0295 c605 | | Store 0x3,0x5 0296 e604 | | Load 0x3,0x4 ; Debug Table 0x7.0x1b = 0x296,0xa 0297 e610 | | Load 0x3,0x10 0298 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0299 78e8 |x | Jump 0x382 029a e7ff | | Load 0x3,-0x1 ; Debug Table 0x7.0x1c = 0x29a,0xb 029b 4974 |It | Short_Literal 0x174 029c 00eb | | Load_Encached Diana_Cache 029d 0098 | | Execute Package,Field_Read_Dynamic 029e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 029f a603 | | Store_Unchecked 0x3,0x3 02a0 e7ff | | Load 0x3,-0x1 ; Debug Table 0x7.0x1d = 0x2a0,0xc 02a1 00eb | | Load_Encached Diana_Cache 02a2 18ec | | Execute Package,Field_Execute,Field_Number 0xec 02a3 a606 | | Store_Unchecked 0x3,0x6 02a4 e606 | | Load 0x3,0x6 ; Debug Table 0x7.0x1e = 0x2a4,0xd 02a5 00eb | | Load_Encached Diana_Cache 02a6 1889 | | Execute Package,Field_Execute,Field_Number 0x89 02a7 e7ff | | Load 0x3,-0x1 02a8 4975 |Iu | Short_Literal 0x175 02a9 00eb | | Load_Encached Diana_Cache 02aa 0098 | | Execute Package,Field_Read_Dynamic 02ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02ac 0a01 | | Execute_Immediate Plus,0x1 02ad c607 | | Store 0x3,0x7 02ae e7ff | | Load 0x3,-0x1 ; Debug Table 0x7.0x1f = 0x2ae,0xe 02af 8613 | | Call 0x3,0x13 02b0 a605 | | Store_Unchecked 0x3,0x5 02b1 e607 | | Load 0x3,0x7 ; Debug Table 0x7.0x20 = 0x2b1,0xf 02b2 e605 | | Load 0x3,0x5 02b3 e606 | | Load 0x3,0x6 02b4 e610 | | Load 0x3,0x10 02b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02b6 e008 | | Load 0x0,0x8 02b7 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02b8 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x21 = 0x2b8,0x10 02b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ba e60b | | Load 0x3,0xb 02bb 0120 | | Execute Any,Is_Value 02bc 6803 |h | Jump_Zero 0x2c0 02bd e001 | | Load 0x0,0x1 02be 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02bf 7801 |x | Jump 0x2c1 02c0 e60b | | Load 0x3,0xb 02c1 60da |` | Indirect_Literal Discrete,0x39c,{0x00000000, 0x00004000} 02c2 e610 | | Load 0x3,0x10 02c3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02c4 4800 |H | Short_Literal 0x0 02c5 e001 | | Load 0x0,0x1 02c6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02c7 e605 | | Load 0x3,0x5 02c8 e001 | | Load 0x0,0x1 02c9 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 02ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02cb c60b | | Store 0x3,0xb 02cc c60f | | Store 0x3,0xf 02cd e60f | | Load 0x3,0xf ; Debug Table 0x7.0x22 = 0x2cd,0x11 02ce 0092 05ff | | Action Push_String_Extended,0x5ff ; "Traversal.Get_Object" 02d0 e00f | | Load 0x0,0xf 02d1 180f | | Execute Package,Field_Execute,Field_Number 0xf 02d2 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x23 = 0x2d2,0x12 02d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d4 00f1 | | Load_Encached Diana_Temp_Seq 02d5 e001 | | Load 0x0,0x1 02d6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02d7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02d8 e60a | | Load 0x3,0xa 02d9 0120 | | Execute Any,Is_Value 02da 6803 |h | Jump_Zero 0x2de 02db e00c | | Load 0x0,0xc 02dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02dd 7801 |x | Jump 0x2df 02de e60a | | Load 0x3,0xa 02df e60c | | Load 0x3,0xc 02e0 60bb |` | Indirect_Literal Discrete,0x39c,{0x00000000, 0x00004000} 02e1 e610 | | Load 0x3,0x10 02e2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02e3 4800 |H | Short_Literal 0x0 02e4 e001 | | Load 0x0,0x1 02e5 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02e7 e001 | | Load 0x0,0x1 02e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02e9 4ffc |O | Short_Literal -0x4 02ea 4ffd |O | Short_Literal -0x3 02eb e60b | | Load 0x3,0xb 02ec e001 | | Load 0x0,0x1 02ed 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 02ee 180d | | Execute Package,Field_Execute,Field_Number 0xd 02ef 00d1 | | Pop_Control Pop_Count_1 02f0 c60a | | Store 0x3,0xa 02f1 c608 | | Store 0x3,0x8 02f2 c609 | | Store 0x3,0x9 02f3 c60f | | Store 0x3,0xf 02f4 e60f | | Load 0x3,0xf ; Debug Table 0x7.0x24 = 0x2f4,0x13 02f5 0092 0600 | | Action Push_String_Extended,0x600 ; "Object_Operations.Create" 02f7 e00f | | Load 0x0,0xf 02f8 180f | | Execute Package,Field_Execute,Field_Number 0xf 02f9 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x25 = 0x2f9,0x14 02fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02fb e60d | | Load 0x3,0xd 02fc 0120 | | Execute Any,Is_Value 02fd 6804 |h | Jump_Zero 0x302 02fe e001 | | Load 0x0,0x1 02ff 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0300 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0301 7801 |x | Jump 0x303 0302 e60d | | Load 0x3,0xd 0303 e001 | | Load 0x0,0x1 0304 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0305 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0306 e60c | | Load 0x3,0xc 0307 6094 |` | Indirect_Literal Discrete,0x39c,{0x00000000, 0x00004000} 0308 4801 |H | Short_Literal 0x1 0309 4800 |H | Short_Literal 0x0 030a e610 | | Load 0x3,0x10 030b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 030c 4802 |H | Short_Literal 0x2 030d e001 | | Load 0x0,0x1 030e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 030f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0310 00d1 | | Pop_Control Pop_Count_1 0311 c602 | | Store 0x3,0x2 0312 c60d | | Store 0x3,0xd 0313 c60f | | Store 0x3,0xf 0314 e60f | | Load 0x3,0xf ; Debug Table 0x7.0x26 = 0x314,0x15 0315 0092 0601 | | Action Push_String_Extended,0x601 ; "Ada.Open" 0317 e00f | | Load 0x0,0xf 0318 180f | | Execute Package,Field_Execute,Field_Number 0xf 0319 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x27 = 0x319,0x16 031a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031b 00db | | Load_Top At_Offset_3 031c 0120 | | Execute Any,Is_Value 031d 6803 |h | Jump_Zero 0x321 031e e009 | | Load 0x0,0x9 031f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0320 7801 |x | Jump 0x322 0321 00db | | Load_Top At_Offset_3 0322 e60c | | Load 0x3,0xc 0323 e001 | | Load 0x0,0x1 0324 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0325 e610 | | Load 0x3,0x10 0326 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0327 4802 |H | Short_Literal 0x2 0328 e60b | | Load 0x3,0xb 0329 e001 | | Load 0x0,0x1 032a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 032b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 032c e010 | | Load 0x0,0x10 032d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 032e c611 | | Store 0x3,0x11 032f c60f | | Store 0x3,0xf 0330 e60f | | Load 0x3,0xf ; Debug Table 0x7.0x28 = 0x330,0x17 0331 0092 0602 | | Action Push_String_Extended,0x602 ; "Ada_Utilities.Open_Image" 0333 e00f | | Load 0x0,0xf 0334 180f | | Execute Package,Field_Execute,Field_Number 0xf 0335 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x29 = 0x335,0x18 0336 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0337 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0338 c60e | | Store 0x3,0xe 0339 e011 | | Load 0x0,0x11 ; Debug Table 0x7.0x2a = 0x339,0x19 033a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 033b 4800 |H | Short_Literal 0x0 033c e602 | | Load 0x3,0x2 033d e012 | | Load 0x0,0x12 033e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 033f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0340 e012 | | Load 0x0,0x12 0341 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0342 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0343 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x2b = 0x343,0x1a 0344 00db | | Load_Top At_Offset_3 0345 e7ff | | Load 0x3,-0x1 0346 e610 | | Load 0x3,0x10 0347 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0348 e603 | | Load 0x3,0x3 0349 8409 | | Call 0x2,0x9 034a a604 | | Store_Unchecked 0x3,0x4 034b e607 | | Load 0x3,0x7 ; Debug Table 0x7.0x2c = 0x34b,0x1b 034c e606 | | Load 0x3,0x6 034d e610 | | Load 0x3,0x10 034e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 034f e008 | | Load 0x0,0x8 0350 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0351 e60e | | Load 0x3,0xe ; Debug Table 0x7.0x2d = 0x351,0x1c 0352 e001 | | Load 0x0,0x1 0353 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0354 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0355 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x2e = 0x355,0x1d 0356 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0357 e610 | | Load 0x3,0x10 0358 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0359 e604 | | Load 0x3,0x4 035a e001 | | Load 0x0,0x1 035b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 035c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 035d c60f | | Store 0x3,0xf 035e e60f | | Load 0x3,0xf ; Debug Table 0x7.0x2f = 0x35e,0x1e 035f 0092 0603 | | Action Push_String_Extended,0x603 ; "Ada.Set_Root" 0361 e00f | | Load 0x0,0xf 0362 180f | | Execute Package,Field_Execute,Field_Number 0xf 0363 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x30 = 0x363,0x1f 0364 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0365 4800 |H | Short_Literal 0x0 0366 4801 |H | Short_Literal 0x1 0367 e610 | | Load 0x3,0x10 0368 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0369 e604 | | Load 0x3,0x4 036a e001 | | Load 0x0,0x1 036b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 036c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 036d c60f | | Store 0x3,0xf 036e e60f | | Load 0x3,0xf ; Debug Table 0x7.0x31 = 0x36e,0x20 036f 0092 0604 | | Action Push_String_Extended,0x604 ; "Ada.Close" 0371 e00f | | Load 0x0,0xf 0372 180f | | Execute Package,Field_Execute,Field_Number 0xf 0373 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x32 = 0x373,0x21 0374 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0375 00db | | Load_Top At_Offset_3 0376 4801 |H | Short_Literal 0x1 0377 e610 | | Load 0x3,0x10 0378 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0379 e010 | | Load 0x0,0x10 037a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 037b c611 | | Store 0x3,0x11 037c c60f | | Store 0x3,0xf 037d e60f | | Load 0x3,0xf ; Debug Table 0x7.0x33 = 0x37d,0x22 037e 0092 0605 | | Action Push_String_Extended,0x605 ; "Ada_Utilities.Close_Image" 0380 e00f | | Load 0x0,0xf 0381 180f | | Execute Package,Field_Execute,Field_Number 0xf 0382 e60c | | Load 0x3,0xc ; Debug Table 0x7.0x34 = 0x382,0x23 0383 e5fe | | Load 0x2,-0x2 0384 016d | m | Execute Variant_Record,Structure_Write 0385 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x35 = 0x385,0x24 0386 4800 |H | Short_Literal 0x0 0387 e00d | | Load 0x0,0xd 0388 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0389 4501 |E | Exit_Suprogram New_Top_Offset 0x1 038a TRAP_0220: 038a 6015 |` | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x57946501} 038b 010f | | Execute Exception,Equal 038c 6807 |h | Jump_Zero 0x394 038d e610 | | Load 0x3,0x10 ; Debug Table 0x7.0x36 = 0x38d,0x25 038e 4800 |H | Short_Literal 0x0 038f e00d | | Load 0x0,0xd 0390 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0391 00d1 | | Pop_Control Pop_Count_1 0392 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x37 = 0x392,0x26 0393 0101 | | Execute Exception,Reraise 0394 e610 | | Load 0x3,0x10 ; Debug Table 0x7.0x38 = 0x394,0x27 0395 4802 |H | Short_Literal 0x2 0396 e00d | | Load 0x0,0xd 0397 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0398 00d1 | | Pop_Control Pop_Count_1 0399 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x39 = 0x399,0x28 039a 0101 | | Execute Exception,Reraise 039b 0000 | | .XXX[0x1] 039c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 03a0 0000 0000 | | .LITERAL {0x00000000, 0x57946501} 03a4 0000 0000 | | .BLANK 0000[0x4] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03bb | | .CONST 0x03bb ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0007 | | .CONST 0x0007 ; Number of locals 03ab INIT_03a8: 03ab 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8 = .DEBUG 0x03ab,0x094e,0x0001,0x0000,0x0057,0x9465,0x0000,0x0848 ; Debug Table 0x8.0x0 = 0x3ab,0xffff 03ac 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8.0x1 = 0x3ac,0xfffe 03ad 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8.0x2 = 0x3ad,0xfffd 03ae e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x3 = 0x3ae,0xfffc 03af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b0 02c7 | | Declare_Variable Any 03b1 00d8 | | Load_Top At_Offset_0 03b2 1c00 | | Execute_Immediate Run_Utility,0x0 03b3 e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x4 = 0x3b3,0xfffb 03b4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03b5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 03b6 02c7 | | Declare_Variable Any 03b7 00d8 | | Load_Top At_Offset_0 03b8 1c00 | | Execute_Immediate Run_Utility,0x0 03b9 e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x5 = 0x3b9,0xfffa 03ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03bb BODY_03a8: 03bb e404 | | Load 0x2,0x4 ; Debug Table 0x8.0x6 = 0x3bb,0x1 03bc 0e02 | | Execute_Immediate Not_Equal,0x2 03bd 680a |h | Jump_Zero 0x3c8 03be 0092 0606 | | Action Push_String_Extended,0x606 ; "Decl_Attr=" ; Debug Table 0x8.0x7 = 0x3be,0x2 03c0 e404 | | Load 0x2,0x4 03c1 e403 | | Load 0x2,0x3 03c2 025e | ^ | Execute Discrete,Convert 03c3 1c01 | | Execute_Immediate Run_Utility,0x1 03c4 01cc | | Execute Vector,Catenate 03c5 0092 0607 | | Action Push_String_Extended,0x607 ; "Make_Nonsource_Separate" 03c7 8406 | | Call 0x2,0x6 03c8 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x8 = 0x3c8,0x3 03c9 00ec | | Load_Encached Diana_Tree_Cache 03ca 4801 |H | Short_Literal 0x1 03cb 4802 |H | Short_Literal 0x2 03cc e013 | | Load 0x0,0x13 03cd 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 03ce e7ff | | Load 0x3,-0x1 03cf e00f | | Load 0x0,0xf 03d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03d1 e00f | | Load 0x0,0xf 03d2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03d3 c604 | | Store 0x3,0x4 03d4 c602 | | Store 0x3,0x2 03d5 e602 | | Load 0x3,0x2 ; Debug Table 0x8.0x9 = 0x3d5,0x4 03d6 6842 |hB | Jump_Zero 0x419 03d7 e001 | | Load 0x0,0x1 ; Debug Table 0x8.0xa = 0x3d7,0x5 03d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d9 00db | | Load_Top At_Offset_3 03da 0120 | | Execute Any,Is_Value 03db 6803 |h | Jump_Zero 0x3df 03dc e001 | | Load 0x0,0x1 03dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03de 7801 |x | Jump 0x3e0 03df 00db | | Load_Top At_Offset_3 03e0 67bb |g | Indirect_Literal Discrete,0x39c,{0x00000000, 0x00004000} 03e1 e00e | | Load 0x0,0xe 03e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03e3 4800 |H | Short_Literal 0x0 03e4 e001 | | Load 0x0,0x1 03e5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03e6 e604 | | Load 0x3,0x4 03e7 e001 | | Load 0x0,0x1 03e8 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 03e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03ea c605 | | Store 0x3,0x5 03eb 0059 | Y | Store_Top Discrete,At_Offset_1 03ec 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0xb = 0x3ec,0x6 03ed 0092 05ff | | Action Push_String_Extended,0x5ff ; "Traversal.Get_Object" 03ef e00f | | Load 0x0,0xf 03f0 180f | | Execute Package,Field_Execute,Field_Number 0xf 03f1 e001 | | Load 0x0,0x1 ; Debug Table 0x8.0xc = 0x3f1,0x7 03f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03f3 00da | | Load_Top At_Offset_2 03f4 0120 | | Execute Any,Is_Value 03f5 6804 |h | Jump_Zero 0x3fa 03f6 e001 | | Load 0x0,0x1 03f7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03f8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 03f9 7801 |x | Jump 0x3fb 03fa 00da | | Load_Top At_Offset_2 03fb e001 | | Load 0x0,0x1 03fc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03fd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03fe 679d |g | Indirect_Literal Discrete,0x39c,{0x00000000, 0x00004000} 03ff 4801 |H | Short_Literal 0x1 0400 4800 |H | Short_Literal 0x0 0401 4800 |H | Short_Literal 0x0 0402 e00e | | Load 0x0,0xe 0403 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0404 4800 |H | Short_Literal 0x0 0405 e605 | | Load 0x3,0x5 0406 e001 | | Load 0x0,0x1 0407 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0408 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0409 e001 | | Load 0x0,0x1 040a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 040b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 040c c603 | | Store 0x3,0x3 040d c606 | | Store 0x3,0x6 040e 0059 | Y | Store_Top Discrete,At_Offset_1 040f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0xd = 0x40f,0x8 0410 0092 0601 | | Action Push_String_Extended,0x601 ; "Ada.Open" 0412 e00f | | Load 0x0,0xf 0413 180f | | Execute Package,Field_Execute,Field_Number 0xf 0414 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0xe = 0x414,0x9 0415 a404 | | Store_Unchecked 0x2,0x4 0416 e603 | | Load 0x3,0x3 ; Debug Table 0x8.0xf = 0x416,0xa 0417 840a | | Call 0x2,0xa 0418 c603 | | Store 0x3,0x3 0419 4501 |E | Exit_Suprogram New_Top_Offset 0x1 041a 0000 0000 | | .BLANK 0000[0x6] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 042a | * | .CONST 0x042a ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0005 | | .CONST 0x0005 ; Number of locals 0423 INIT_0420: 0423 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x9 = .DEBUG 0x0423,0x0970,0x0002,0x0000,0x0057,0x9465,0x0000,0x00b9 ; Debug Table 0x9.0x0 = 0x423,0xffff 0424 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x9.0x1 = 0x424,0xfffe 0425 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x9.0x2 = 0x425,0xfffd 0426 00ed | | Load_Encached Diana_Symbol_Rep_Cache ; Debug Table 0x9.0x3 = 0x426,0xfffc 0427 02c7 | | Declare_Variable Any 0428 00d8 | | Load_Top At_Offset_0 0429 1c00 | | Execute_Immediate Run_Utility,0x0 042a BODY_0420: 042a e9ff | | Load 0x4,-0x1 ; Debug Table 0x9.0x4 = 0x42a,0x1 042b 4976 |Iv | Short_Literal 0x176 042c 00eb | | Load_Encached Diana_Cache 042d 0098 | | Execute Package,Field_Read_Dynamic 042e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 042f a802 | | Store_Unchecked 0x4,0x2 0430 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x5 = 0x430,0x2 0431 0007 | | Action Break_Optional 0432 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x6 = 0x432,0x401 0433 0007 | | Action Break_Optional 0434 e807 | | Load 0x4,0x7 ; Debug Table 0x9.0x7 = 0x434,0x801 0435 0007 | | Action Break_Optional 0436 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x9.0x8 = 0x436,0x802 0437 0007 | | Action Break_Optional ; Debug Table 0x9.0x9 = 0x437,0x803 0438 00d0 | | Action Swap_Control ; Debug Table 0x9.0xa = 0x438,0x804 0439 00d1 | | Pop_Control Pop_Count_1 043a 49e1 |I | Short_Literal 0x1e1 ; Debug Table 0x9.0xb = 0x43a,0x401 043b 00eb | | Load_Encached Diana_Cache 043c 0098 | | Execute Package,Field_Read_Dynamic 043d 180d | | Execute Package,Field_Execute,Field_Number 0xd 043e 7800 |x | Jump 0x43f 043f 00d0 | | Action Swap_Control 0440 00d1 | | Pop_Control Pop_Count_1 0441 7002 |p | Jump_Nonzero 0x444 ; Debug Table 0x9.0xc = 0x441,0x2 0442 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0xd = 0x442,0x3 0443 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0444 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xe = 0x444,0x4 0445 00eb | | Load_Encached Diana_Cache 0446 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0447 c805 | | Store 0x4,0x5 0448 e9ff | | Load 0x4,-0x1 ; Debug Table 0x9.0xf = 0x448,0x5 0449 00eb | | Load_Encached Diana_Cache 044a 18ec | | Execute Package,Field_Execute,Field_Number 0xec 044b 00eb | | Load_Encached Diana_Cache 044c 1888 | | Execute Package,Field_Execute,Field_Number 0x88 044d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 044e 7878 |xx | Jump 0x4c7 044f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x10 = 0x44f,0x7 0450 0007 | | Action Break_Optional 0451 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x11 = 0x451,0xc01 0452 7002 |p | Jump_Nonzero 0x455 0453 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x9.0x12 = 0x453,0xc02 0454 782c |x, | Jump 0x481 0455 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x13 = 0x455,0xc03 0456 0217 | | Execute Heap_Access,All_Reference 0457 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0458 6804 |h | Jump_Zero 0x45d 0459 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x14 = 0x459,0xc04 045a 0217 | | Execute Heap_Access,All_Reference 045b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 045c 7824 |x$ | Jump 0x481 045d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x15 = 0x45d,0xc05 045e 0007 | | Action Break_Optional 045f e807 | | Load 0x4,0x7 ; Debug Table 0x9.0x16 = 0x45f,0x1001 0460 0007 | | Action Break_Optional 0461 0148 | H | Execute Heap_Access,Get_Offset ; Debug Table 0x9.0x17 = 0x461,0x1002 0462 0007 | | Action Break_Optional ; Debug Table 0x9.0x18 = 0x462,0x1003 0463 00d0 | | Action Swap_Control ; Debug Table 0x9.0x19 = 0x463,0x1004 0464 00d1 | | Pop_Control Pop_Count_1 0465 49bb |I | Short_Literal 0x1bb ; Debug Table 0x9.0x1a = 0x465,0xc05 0466 00eb | | Load_Encached Diana_Cache 0467 0098 | | Execute Package,Field_Read_Dynamic 0468 012c | , | Execute Any,Size 0469 e003 | | Load 0x0,0x3 046a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 046b 025b | [ | Execute Discrete,Check_In_Type 046c 0273 | s | Execute Discrete,Plus 046d 00d9 | | Load_Top At_Offset_1 046e 0007 | | Action Break_Optional 046f e808 | | Load 0x4,0x8 ; Debug Table 0x9.0x1b = 0x46f,0x1401 0470 0007 | | Action Break_Optional 0471 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x9.0x1c = 0x471,0x1402 0472 0007 | | Action Break_Optional ; Debug Table 0x9.0x1d = 0x472,0x1403 0473 00d0 | | Action Swap_Control ; Debug Table 0x9.0x1e = 0x473,0x1404 0474 00d1 | | Pop_Control Pop_Count_1 0475 49c8 |I | Short_Literal 0x1c8 ; Debug Table 0x9.0x1f = 0x475,0x1004 0476 00eb | | Load_Encached Diana_Cache 0477 0098 | | Execute Package,Field_Read_Dynamic 0478 49c9 |I | Short_Literal 0x1c9 0479 00eb | | Load_Encached Diana_Cache 047a 0098 | | Execute Package,Field_Read_Dynamic 047b 49ca |I | Short_Literal 0x1ca 047c 00eb | | Load_Encached Diana_Cache 047d 0095 | | Execute Package,Field_Reference_Dynamic 047e e004 | | Load 0x0,0x4 047f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0480 7800 |x | Jump 0x481 0481 00d0 | | Action Swap_Control 0482 00d1 | | Pop_Control Pop_Count_1 0483 0033 | 3 | Store_Top Heap_Access,At_Offset_3 ; Debug Table 0x9.0x20 = 0x483,0x7 0484 0007 | | Action Break_Optional ; Debug Table 0x9.0x21 = 0x484,0x8 0485 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x22 = 0x485,0x1801 0486 7002 |p | Jump_Nonzero 0x489 0487 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x9.0x23 = 0x487,0x1802 0488 7803 |x | Jump 0x48c 0489 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x24 = 0x489,0x1803 048a 0217 | | Execute Heap_Access,All_Reference 048b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 048c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 ; Debug Table 0x9.0x25 = 0x48c,0x8 048d 0007 | | Action Break_Optional ; Debug Table 0x9.0x26 = 0x48d,0x9 048e e803 | | Load 0x4,0x3 ; Debug Table 0x9.0x27 = 0x48e,0x1c01 048f 0007 | | Action Break_Optional 0490 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x9.0x28 = 0x490,0x1c02 0491 0007 | | Action Break_Optional ; Debug Table 0x9.0x29 = 0x491,0x1c03 0492 0007 | | Action Break_Optional ; Debug Table 0x9.0x2a = 0x492,0x1c04 0493 0b48 | H | Execute_Immediate Case_Compare,0x48 ; Debug Table 0x9.0x2b = 0x493,0x9 0494 7005 |p | Jump_Nonzero 0x49a 0495 0b46 | F | Execute_Immediate Case_Compare,0x46 0496 7003 |p | Jump_Nonzero 0x49a 0497 0b47 | G | Execute_Immediate Case_Compare,0x47 0498 7001 |p | Jump_Nonzero 0x49a 0499 782c |x, | Jump 0x4c6 ; Debug Table 0x9.0x2c = 0x499,0xe 049a 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x2d = 0x49a,0xa 049b 00eb | | Load_Encached Diana_Cache 049c 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6 049d e807 | | Load 0x4,0x7 ; Debug Table 0x9.0x2e = 0x49d,0x2001 049e 0007 | | Action Break_Optional 049f 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x9.0x2f = 0x49f,0x2002 04a0 0007 | | Action Break_Optional ; Debug Table 0x9.0x30 = 0x4a0,0x2003 04a1 00d0 | | Action Swap_Control ; Debug Table 0x9.0x31 = 0x4a1,0x2004 04a2 00d1 | | Pop_Control Pop_Count_1 04a3 0f77 | w | Execute_Immediate Equal,0x77 ; Debug Table 0x9.0x32 = 0x4a3,0xa 04a4 6821 |h! | Jump_Zero 0x4c6 04a5 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x33 = 0x4a5,0xb 04a6 4976 |Iv | Short_Literal 0x176 04a7 00eb | | Load_Encached Diana_Cache 04a8 0098 | | Execute Package,Field_Read_Dynamic 04a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04aa a802 | | Store_Unchecked 0x4,0x2 04ab e802 | | Load 0x4,0x2 ; Debug Table 0x9.0x34 = 0x4ab,0xc 04ac 0007 | | Action Break_Optional 04ad 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x35 = 0x4ad,0x2401 04ae 0007 | | Action Break_Optional 04af e808 | | Load 0x4,0x8 ; Debug Table 0x9.0x36 = 0x4af,0x2801 04b0 0007 | | Action Break_Optional 04b1 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x9.0x37 = 0x4b1,0x2802 04b2 0007 | | Action Break_Optional ; Debug Table 0x9.0x38 = 0x4b2,0x2803 04b3 00d0 | | Action Swap_Control ; Debug Table 0x9.0x39 = 0x4b3,0x2804 04b4 00d1 | | Pop_Control Pop_Count_1 04b5 49e1 |I | Short_Literal 0x1e1 ; Debug Table 0x9.0x3a = 0x4b5,0x2401 04b6 00eb | | Load_Encached Diana_Cache 04b7 0098 | | Execute Package,Field_Read_Dynamic 04b8 180d | | Execute Package,Field_Execute,Field_Number 0xd 04b9 7800 |x | Jump 0x4ba 04ba 00d0 | | Action Swap_Control 04bb 00d1 | | Pop_Control Pop_Count_1 04bc 6809 |h | Jump_Zero 0x4c6 ; Debug Table 0x9.0x3b = 0x4bc,0xc 04bd e802 | | Load 0x4,0x2 04be 00eb | | Load_Encached Diana_Cache 04bf 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 04c0 00da | | Load_Top At_Offset_2 04c1 00eb | | Load_Encached Diana_Cache 04c2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04c3 6802 |h | Jump_Zero 0x4c6 04c4 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x3c = 0x4c4,0xd 04c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c6 00d1 | | Pop_Control Pop_Count_1 04c7 0007 | | Action Break_Optional ; Debug Table 0x9.0x3d = 0x4c7,0x6 04c8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x3e = 0x4c8,0x2c01 04c9 021d | | Execute Heap_Access,Is_Null 04ca 6f84 |o | Jump_Zero 0x44f ; Debug Table 0x9.0x3f = 0x4ca,0x6 04cb 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x40 = 0x4cb,0xf 04cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04cd 0000 0000 | | .XXX[0x3] 04cf 0000 | | 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 0007 | | Action Break_Optional ; Debug Table 0xa = .DEBUG 0x04d3,0x09f4,0x0002,0x0000,0x0057,0x9465,0x0000,0x0181 ; Debug Table 0xa.0x0 = 0x4d3,0x1 04d4 e9ff | | Load 0x4,-0x1 ; Debug Table 0xa.0x1 = 0x4d4,0x401 04d5 0007 | | Action Break_Optional 04d6 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0xa.0x2 = 0x4d6,0x402 04d7 0007 | | Action Break_Optional ; Debug Table 0xa.0x3 = 0x4d7,0x403 04d8 0007 | | Action Break_Optional ; Debug Table 0xa.0x4 = 0x4d8,0x404 04d9 0b48 | H | Execute_Immediate Case_Compare,0x48 ; Debug Table 0xa.0x5 = 0x4d9,0x1 04da 700c |p | Jump_Nonzero 0x4e7 04db 0b47 | G | Execute_Immediate Case_Compare,0x47 04dc 700a |p | Jump_Nonzero 0x4e7 04dd 0b46 | F | Execute_Immediate Case_Compare,0x46 04de 7008 |p | Jump_Nonzero 0x4e7 04df e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x6 = 0x4df,0x9 04e0 0092 0608 | | Action Push_String_Extended,0x608 ; "Object is not separable" 04e2 01cc | | Execute Vector,Catenate 04e3 e005 | | Load 0x0,0x5 04e4 180d | | Execute Package,Field_Execute,Field_Number 0xd 04e5 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x7 = 0x4e5,0xa 04e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e7 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x8 = 0x4e7,0x2 04e8 8607 | | Call 0x3,0x7 04e9 6808 |h | Jump_Zero 0x4f2 04ea e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x9 = 0x4ea,0x3 04eb 0092 0609 | | Action Push_String_Extended,0x609 ; "Object has a separated overload" 04ed 01cc | | Execute Vector,Catenate 04ee e005 | | Load 0x0,0x5 04ef 180d | | Execute Package,Field_Execute,Field_Number 0xd 04f0 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0xa = 0x4f0,0x4 04f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04f2 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0xb = 0x4f2,0x5 04f3 00eb | | Load_Encached Diana_Cache 04f4 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6 04f5 e803 | | Load 0x4,0x3 ; Debug Table 0xa.0xc = 0x4f5,0x801 04f6 0007 | | Action Break_Optional 04f7 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0xa.0xd = 0x4f7,0x802 04f8 0007 | | Action Break_Optional ; Debug Table 0xa.0xe = 0x4f8,0x803 04f9 00d0 | | Action Swap_Control ; Debug Table 0xa.0xf = 0x4f9,0x804 04fa 00d1 | | Pop_Control Pop_Count_1 04fb 0b4e | N | Execute_Immediate Case_Compare,0x4e ; Debug Table 0xa.0x10 = 0x4fb,0x5 04fc 7008 |p | Jump_Nonzero 0x505 04fd e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x11 = 0x4fd,0x7 04fe 0092 060a | | Action Push_String_Extended,0x60a ; "Object is separate" 0500 01cc | | Execute Vector,Catenate 0501 e005 | | Load 0x0,0x5 0502 180d | | Execute Package,Field_Execute,Field_Number 0xd 0503 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x12 = 0x503,0x8 0504 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0505 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x13 = 0x505,0x6 0506 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0507 0000 | | .XXX[0x1] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050e | | .CONST 0x050e ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0004 | | .CONST 0x0004 ; Number of locals 050b INIT_0508: 050b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xb = .DEBUG 0x050b,0x0a1e,0x0002,0x0000,0x0057,0x9465,0x0000,0x036f ; Debug Table 0xb.0x0 = 0x50b,0xffff 050c 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xb.0x1 = 0x50c,0xfffe 050d 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xb.0x2 = 0x50d,0xfffd 050e BODY_0508: 050e e9ff | | Load 0x4,-0x1 ; Debug Table 0xb.0x3 = 0x50e,0x1 050f 00eb | | Load_Encached Diana_Cache 0510 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 0511 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0512 0007 | | Action Break_Optional ; Debug Table 0xb.0x4 = 0x512,0x2 0513 e803 | | Load 0x4,0x3 ; Debug Table 0xb.0x5 = 0x513,0x401 0514 0007 | | Action Break_Optional 0515 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0xb.0x6 = 0x515,0x402 0516 0007 | | Action Break_Optional ; Debug Table 0xb.0x7 = 0x516,0x403 0517 0007 | | Action Break_Optional ; Debug Table 0xb.0x8 = 0x517,0x404 0518 0b49 | I | Execute_Immediate Case_Compare,0x49 ; Debug Table 0xb.0x9 = 0x518,0x2 0519 700c |p | Jump_Nonzero 0x526 051a 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0xa = 0x51a,0x5 051b 4976 |Iv | Short_Literal 0x176 051c 00eb | | Load_Encached Diana_Cache 051d 0098 | | Execute Package,Field_Read_Dynamic 051e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 051f 00eb | | Load_Encached Diana_Cache 0520 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0521 4817 |H | Short_Literal 0x17 0522 00eb | | Load_Encached Diana_Cache 0523 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 0524 a802 | | Store_Unchecked 0x4,0x2 0525 7816 |x | Jump 0x53c 0526 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0xb = 0x526,0x3 0527 00eb | | Load_Encached Diana_Cache 0528 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5 0529 0032 | 2 | Store_Top Heap_Access,At_Offset_2 052a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0xc = 0x52a,0x4 052b 4976 |Iv | Short_Literal 0x176 052c 00eb | | Load_Encached Diana_Cache 052d 0098 | | Execute Package,Field_Read_Dynamic 052e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 052f 00eb | | Load_Encached Diana_Cache 0530 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0531 4817 |H | Short_Literal 0x17 0532 00eb | | Load_Encached Diana_Cache 0533 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 0534 00db | | Load_Top At_Offset_3 0535 00eb | | Load_Encached Diana_Cache 0536 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0537 8408 | | Call 0x2,0x8 0538 4812 |H | Short_Literal 0x12 0539 00eb | | Load_Encached Diana_Cache 053a 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 053b a802 | | Store_Unchecked 0x4,0x2 053c 00d1 | | Pop_Control Pop_Count_1 053d 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0xd = 0x53d,0x6 053e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 053f 0000 | | .XXX[0x1] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0551 | Q | .CONST 0x0551 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0006 | | .CONST 0x0006 ; Number of locals 0543 INIT_0540: 0543 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xc = .DEBUG 0x0543,0x0a3c,0x0001,0x0000,0x0057,0x9465,0x0000,0x0522 ; Debug Table 0xc.0x0 = 0x543,0xffff 0544 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x1 = 0x544,0xfffe 0545 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0546 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0547 02c7 | | Declare_Variable Any 0548 00d8 | | Load_Top At_Offset_0 0549 1c00 | | Execute_Immediate Run_Utility,0x0 054a e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x2 = 0x54a,0xfffd 054b 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 054c e014 | | Load 0x0,0x14 ; Debug Table 0xc.0x3 = 0x54c,0xfffc 054d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 054e e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x4 = 0x54e,0xfffb 054f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0550 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0551 BODY_0540: 0551 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x5 = 0x551,0x1 0552 a802 | | Store_Unchecked 0x4,0x2 0553 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x6 = 0x553,0x2 0554 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0555 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0556 e014 | | Load 0x0,0x14 0557 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0558 e803 | | Load 0x4,0x3 0559 0120 | | Execute Any,Is_Value 055a 6804 |h | Jump_Zero 0x55f 055b e001 | | Load 0x0,0x1 055c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 055d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 055e 7801 |x | Jump 0x560 055f e803 | | Load 0x4,0x3 0560 e001 | | Load 0x0,0x1 0561 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0562 e00a | | Load 0x0,0xa 0563 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0564 e00b | | Load 0x0,0xb 0565 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0566 e610 | | Load 0x3,0x10 0567 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0568 0092 060b | | Action Push_String_Extended,0x60b ; "<WORLDS>" 056a e014 | | Load 0x0,0x14 056b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 056c c804 | | Store 0x4,0x4 056d c803 | | Store 0x4,0x3 056e 005b | [ | Store_Top Discrete,At_Offset_3 056f 0059 | Y | Store_Top Discrete,At_Offset_1 0570 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x7 = 0x570,0x3 0571 6802 |h | Jump_Zero 0x574 0572 662d |f- | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x57946501} ; Debug Table 0xc.0x8 = 0x572,0x4 0573 0257 | W | Execute Discrete,Raise 0574 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x9 = 0x574,0x5 0575 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0576 e610 | | Load 0x3,0x10 0577 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0578 e9ff | | Load 0x4,-0x1 0579 e001 | | Load 0x0,0x1 057a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 057b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 057c c60f | | Store 0x3,0xf 057d e60f | | Load 0x3,0xf ; Debug Table 0xc.0xa = 0x57d,0x6 057e 0092 0603 | | Action Push_String_Extended,0x603 ; "Ada.Set_Root" 0580 e00f | | Load 0x0,0xf 0581 180f | | Execute Package,Field_Execute,Field_Number 0xf 0582 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0xb = 0x582,0x7 0583 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0584 00f1 | | Load_Encached Diana_Temp_Seq 0585 e001 | | Load 0x0,0x1 0586 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0587 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0588 e60a | | Load 0x3,0xa 0589 0120 | | Execute Any,Is_Value 058a 6803 |h | Jump_Zero 0x58e 058b e00c | | Load 0x0,0xc 058c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 058d 7801 |x | Jump 0x58f 058e e60a | | Load 0x3,0xa 058f e802 | | Load 0x4,0x2 0590 e9fe | | Load 0x4,-0x2 0591 660a |f | Indirect_Literal Discrete,0x39c,{0x00000000, 0x00004000} 0592 e610 | | Load 0x3,0x10 0593 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0594 e804 | | Load 0x4,0x4 0595 e803 | | Load 0x4,0x3 0596 e001 | | Load 0x0,0x1 0597 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0598 4802 |H | Short_Literal 0x2 0599 e001 | | Load 0x0,0x1 059a 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 059b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 059c c9fe | | Store 0x4,-0x2 059d c802 | | Store 0x4,0x2 059e c60a | | Store 0x3,0xa 059f c608 | | Store 0x3,0x8 05a0 c609 | | Store 0x3,0x9 05a1 c60f | | Store 0x3,0xf 05a2 e60f | | Load 0x3,0xf ; Debug Table 0xc.0xc = 0x5a2,0x8 05a3 0092 060c | | Action Push_String_Extended,0x60c ; "Decl_Ops.Promote" 05a5 e00f | | Load 0x0,0xf 05a6 180f | | Execute Package,Field_Execute,Field_Number 0xf 05a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05ac | | .CONST 0x05ac ; Address of begin 05a9 0004 | | .CONST 0x0004 ; Address of exception handler 05aa 0002 | | .CONST 0x0002 ; Number of locals 05ab INIT_05a8: 05ab 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xd = .DEBUG 0x05ab,0x0a58,0x0002,0x0000,0x0057,0x9465,0x0000,0x05cb ; Debug Table 0xd.0x0 = 0x5ab,0xffff 05ac BODY_05a8: 05ac 0007 | | Action Break_Optional ; Debug Table 0xd.0x1 = 0x5ac,0x1 05ad e9ff | | Load 0x4,-0x1 ; Debug Table 0xd.0x2 = 0x5ad,0x401 05ae 0007 | | Action Break_Optional 05af 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0xd.0x3 = 0x5af,0x402 05b0 0007 | | Action Break_Optional ; Debug Table 0xd.0x4 = 0x5b0,0x403 05b1 0007 | | Action Break_Optional ; Debug Table 0xd.0x5 = 0x5b1,0x404 05b2 0b48 | H | Execute_Immediate Case_Compare,0x48 ; Debug Table 0xd.0x6 = 0x5b2,0x1 05b3 7014 |p | Jump_Nonzero 0x5c8 05b4 0b47 | G | Execute_Immediate Case_Compare,0x47 05b5 7022 |p" | Jump_Nonzero 0x5d8 05b6 0b46 | F | Execute_Immediate Case_Compare,0x46 05b7 702c |p, | Jump_Nonzero 0x5e4 05b8 0092 060d | | Action Push_String_Extended,0x60d ; "Tree kind is " ; Debug Table 0xd.0x7 = 0x5b8,0x5 05ba e9ff | | Load 0x4,-0x1 ; Debug Table 0xd.0x8 = 0x5ba,0x801 05bb 0007 | | Action Break_Optional 05bc 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0xd.0x9 = 0x5bc,0x802 05bd 0007 | | Action Break_Optional ; Debug Table 0xd.0xa = 0x5bd,0x803 05be 0007 | | Action Break_Optional ; Debug Table 0xd.0xb = 0x5be,0x804 05bf 00eb | | Load_Encached Diana_Cache ; Debug Table 0xd.0xc = 0x5bf,0x5 05c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05c1 025e | ^ | Execute Discrete,Convert 05c2 1c01 | | Execute_Immediate Run_Utility,0x1 05c3 01cc | | Execute Vector,Catenate 05c4 0092 060e | | Action Push_String_Extended,0x60e ; "Make_Source_Separate.Make_Stub" 05c6 8406 | | Call 0x2,0x6 05c7 7827 |x' | Jump 0x5ef 05c8 4877 |Hw | Short_Literal 0x77 ; Debug Table 0xd.0xd = 0x5c8,0x2 05c9 00eb | | Load_Encached Diana_Cache 05ca 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 05cb e9ff | | Load 0x4,-0x1 05cc 00eb | | Load_Encached Diana_Cache 05cd 18ce | | Execute Package,Field_Execute,Field_Number 0xce 05ce 8408 | | Call 0x2,0x8 05cf e9ff | | Load 0x4,-0x1 05d0 00eb | | Load_Encached Diana_Cache 05d1 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 05d2 8408 | | Call 0x2,0x8 05d3 4848 |HH | Short_Literal 0x48 05d4 00eb | | Load_Encached Diana_Cache 05d5 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 05d6 0032 | 2 | Store_Top Heap_Access,At_Offset_2 05d7 7817 |x | Jump 0x5ef 05d8 4877 |Hw | Short_Literal 0x77 ; Debug Table 0xd.0xe = 0x5d8,0x3 05d9 00eb | | Load_Encached Diana_Cache 05da 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 05db e9ff | | Load 0x4,-0x1 05dc 00eb | | Load_Encached Diana_Cache 05dd 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 05de 8408 | | Call 0x2,0x8 05df 4847 |HG | Short_Literal 0x47 05e0 00eb | | Load_Encached Diana_Cache 05e1 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 05e2 0032 | 2 | Store_Top Heap_Access,At_Offset_2 05e3 780b |x | Jump 0x5ef 05e4 4877 |Hw | Short_Literal 0x77 ; Debug Table 0xd.0xf = 0x5e4,0x4 05e5 00eb | | Load_Encached Diana_Cache 05e6 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 05e7 e9ff | | Load 0x4,-0x1 05e8 00eb | | Load_Encached Diana_Cache 05e9 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 05ea 8408 | | Call 0x2,0x8 05eb 4846 |HF | Short_Literal 0x46 05ec 00eb | | Load_Encached Diana_Cache 05ed 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 05ee 0032 | 2 | Store_Top Heap_Access,At_Offset_2 05ef 00d1 | | Pop_Control Pop_Count_1 05f0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x10 = 0x5f0,0x6 05f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05f2 ; -------------------------------------------------------------------------------------- 05f2 ; STRING TABLE 05f2 ; -------------------------------------------------------------------------------------- 05f2 003c | < | .STRTAB 0x003c->0x0610 ; "NOT_SEPARABLE" 05f3 0047 | G | .STRTAB 0x0047->0x0616 ; "SEPARABLE_LIST" 05f4 0053 | S | .STRTAB 0x0053->0x061d ; "SEPARABLE_DECL" 05f5 005f | _ | .STRTAB 0x005f->0x0624 ; "Make_Separate failed - " 05f6 0074 | t | .STRTAB 0x0074->0x0630 ; "Make_Separate." 05f7 0080 | | .STRTAB 0x0080->0x0637 ; " failed - " 05f8 0088 | | .STRTAB 0x0088->0x063c ; "Object is a list with many elements" 05f9 00a9 | | .STRTAB 0x00a9->0x064d ; "Root is not Comp_Unit or Mumble_S" 05fa 00c8 | | .STRTAB 0x00c8->0x065e ; "Get_Decl_Kind" 05fb 00d3 | | .STRTAB 0x00d3->0x0664 ; "Enclosing is not a body" 05fc 00e8 | | .STRTAB 0x00e8->0x0670 ; "Object is too deeply nested" 05fd 0101 | | .STRTAB 0x0101->0x067d ; "Traversal.Get_Declaration" 05fe 0118 | | .STRTAB 0x0118->0x068a ; "Ada.Get_Version" 05ff 0125 | % | .STRTAB 0x0125->0x0691 ; "Traversal.Get_Object" 0600 0137 | 7 | .STRTAB 0x0137->0x069b ; "Object_Operations.Create" 0601 014d | M | .STRTAB 0x014d->0x06a7 ; "Ada.Open" 0602 0153 | S | .STRTAB 0x0153->0x06ab ; "Ada_Utilities.Open_Image" 0603 0169 | i | .STRTAB 0x0169->0x06b7 ; "Ada.Set_Root" 0604 0173 | s | .STRTAB 0x0173->0x06bd ; "Ada.Close" 0605 017a | z | .STRTAB 0x017a->0x06c2 ; "Ada_Utilities.Close_Image" 0606 0191 | | .STRTAB 0x0191->0x06ce ; "Decl_Attr=" 0607 0199 | | .STRTAB 0x0199->0x06d3 ; "Make_Nonsource_Separate" 0608 01ae | | .STRTAB 0x01ae->0x06df ; "Object is not separable" 0609 01c3 | | .STRTAB 0x01c3->0x06ea ; "Object has a separated overload" 060a 01e0 | | .STRTAB 0x01e0->0x06fa ; "Object is separate" 060b 01f0 | | .STRTAB 0x01f0->0x0703 ; "<WORLDS>" 060c 01f6 | | .STRTAB 0x01f6->0x0707 ; "Decl_Ops.Promote" 060d 0204 | | .STRTAB 0x0204->0x070f ; "Tree kind is " 060e 020f | | .STRTAB 0x020f->0x0715 ; "Make_Source_Separate.Make_Stub" 060f 022b | + | .STREND 0x022b->0x0724 0610 4e4f 545f |NOT_| .STRTAB_STRINGS 0725 0000 0000 | | .XXX[0x3] 0727 0000 | | 0728 ; -------------------------------------------------------------------------------------- 0728 ; Debug Table 0728 ; -------------------------------------------------------------------------------------- 0728 0003 000e | | .CONST 0x0003,0x000e 072a 000b 079a | | .DEBUG 0x000b,0x079a,0x8000,0x0000,0x0057,0x9455,0x0000,0x0006 0732 001b 079c | | .DEBUG 0x001b,0x079c,0x8001,0x0000,0x0057,0x9455,0x0000,0x0006 073a 006b 07dc | k | .DEBUG 0x006b,0x07dc,0x0005,0x0000,0x0057,0x9465,0x0000,0x004c 0742 0083 07de | | .DEBUG 0x0083,0x07de,0x0001,0x0000,0x0057,0x9465,0x0000,0x0063 074a 009b 07e6 | | .DEBUG 0x009b,0x07e6,0x0002,0x0000,0x0057,0x9465,0x0000,0x008c 0752 0173 0878 | s x| .DEBUG 0x0173,0x0878,0x0002,0x0000,0x0057,0x9465,0x0000,0x02f9 075a 0183 0882 | | .DEBUG 0x0183,0x0882,0x0002,0x0000,0x0057,0x9465,0x0000,0x0321 0762 0223 08d8 | # | .DEBUG 0x0223,0x08d8,0x0001,0x0000,0x0057,0x9465,0x0000,0x04a7 076a 03ab 094e | N| .DEBUG 0x03ab,0x094e,0x0001,0x0000,0x0057,0x9465,0x0000,0x0848 0772 0423 0970 | # p| .DEBUG 0x0423,0x0970,0x0002,0x0000,0x0057,0x9465,0x0000,0x00b9 077a 04d3 09f4 | | .DEBUG 0x04d3,0x09f4,0x0002,0x0000,0x0057,0x9465,0x0000,0x0181 0782 050b 0a1e | | .DEBUG 0x050b,0x0a1e,0x0002,0x0000,0x0057,0x9465,0x0000,0x036f 078a 0543 0a3c | C <| .DEBUG 0x0543,0x0a3c,0x0001,0x0000,0x0057,0x9465,0x0000,0x0522 0792 05ab 0a58 | X| .DEBUG 0x05ab,0x0a58,0x0002,0x0000,0x0057,0x9465,0x0000,0x05cb 079a ; -------------------------------------------------------------------------------------- 079a ; Debug3 Subtable 0x0 079a ; -------------------------------------------------------------------------------------- 079a 0000 0000 | | .DBG3TAB 0x0000,0x0000 079c ; -------------------------------------------------------------------------------------- 079c ; Debug3 Subtable 0x1 079c ; -------------------------------------------------------------------------------------- 079c 000f 0010 | | .DBG3TAB 0x000f,0x0010 079e 001b ffff | | .CONST 0x001b,0xffff 07a0 001c fffe | | .CONST 0x001c,0xfffe 07a2 001d fffd | | .CONST 0x001d,0xfffd 07a4 001e fffc | | .CONST 0x001e,0xfffc 07a6 001f fffb | | .CONST 0x001f,0xfffb 07a8 0021 fffa | ! | .CONST 0x0021,0xfffa 07aa 0026 fff9 | & | .CONST 0x0026,0xfff9 07ac 0028 fff8 | ( | .CONST 0x0028,0xfff8 07ae 002b fff7 | + | .CONST 0x002b,0xfff7 07b0 002c fff6 | , | .CONST 0x002c,0xfff6 07b2 002e fff5 | . | .CONST 0x002e,0xfff5 07b4 0030 fff4 | 0 | .CONST 0x0030,0xfff4 07b6 0032 fff3 | 2 | .CONST 0x0032,0xfff3 07b8 0034 fff2 | 4 | .CONST 0x0034,0xfff2 07ba 0036 fff1 | 6 | .CONST 0x0036,0xfff1 07bc 0038 0001 | 8 | .CONST 0x0038,0x0001 07be 003c 0002 | < | .CONST 0x003c,0x0002 07c0 003d 0401 | = | .CONST 0x003d,0x0401 07c2 003f 0402 | ? | .CONST 0x003f,0x0402 07c4 0040 0403 | @ | .CONST 0x0040,0x0403 07c6 0041 0404 | A | .CONST 0x0041,0x0404 07c8 0042 0002 | B | .CONST 0x0042,0x0002 07ca 004a 0004 | J | .CONST 0x004a,0x0004 07cc 004b 0003 | K | .CONST 0x004b,0x0003 07ce 0050 0005 | P | .CONST 0x0050,0x0005 07d0 0053 0006 | S | .CONST 0x0053,0x0006 07d2 0055 0007 | U | .CONST 0x0055,0x0007 07d4 0056 0008 | V | .CONST 0x0056,0x0008 07d6 005b 0009 | [ | .CONST 0x005b,0x0009 07d8 005f 000a | _ | .CONST 0x005f,0x000a 07da 0066 000b | f | .CONST 0x0066,0x000b 07dc ; -------------------------------------------------------------------------------------- 07dc ; Debug3 Subtable 0x2 07dc ; -------------------------------------------------------------------------------------- 07dc 0000 0000 | | .DBG3TAB 0x0000,0x0000 07de ; -------------------------------------------------------------------------------------- 07de ; Debug3 Subtable 0x3 07de ; -------------------------------------------------------------------------------------- 07de 0000 0003 | | .DBG3TAB 0x0000,0x0003 07e0 0083 0001 | | .CONST 0x0083,0x0001 07e2 0085 0002 | | .CONST 0x0085,0x0002 07e4 0090 0003 | | .CONST 0x0090,0x0003 07e6 ; -------------------------------------------------------------------------------------- 07e6 ; Debug3 Subtable 0x4 07e6 ; -------------------------------------------------------------------------------------- 07e6 0007 0041 | A| .DBG3TAB 0x0007,0x0041 07e8 009b ffff | | .CONST 0x009b,0xffff 07ea 009c fffe | | .CONST 0x009c,0xfffe 07ec 009d fffd | | .CONST 0x009d,0xfffd 07ee 009e fffc | | .CONST 0x009e,0xfffc 07f0 009f fffb | | .CONST 0x009f,0xfffb 07f2 00a0 fffa | | .CONST 0x00a0,0xfffa 07f4 00a2 fff9 | | .CONST 0x00a2,0xfff9 07f6 00a4 0001 | | .CONST 0x00a4,0x0001 07f8 00aa 0002 | | .CONST 0x00aa,0x0002 07fa 00b0 0401 | | .CONST 0x00b0,0x0401 07fc 00b2 0801 | | .CONST 0x00b2,0x0801 07fe 00b4 0802 | | .CONST 0x00b4,0x0802 0800 00b5 0803 | | .CONST 0x00b5,0x0803 0802 00b6 0804 | | .CONST 0x00b6,0x0804 0804 00b8 0401 | | .CONST 0x00b8,0x0401 0806 00bf 0002 | | .CONST 0x00bf,0x0002 0808 00c1 0003 | | .CONST 0x00c1,0x0003 080a 00c5 0004 | | .CONST 0x00c5,0x0004 080c 00cb 0005 | | .CONST 0x00cb,0x0005 080e 00cd 0c01 | | .CONST 0x00cd,0x0c01 0810 00cf 0c02 | | .CONST 0x00cf,0x0c02 0812 00d1 0c03 | | .CONST 0x00d1,0x0c03 0814 00d5 0c04 | | .CONST 0x00d5,0x0c04 0816 00d9 0c05 | | .CONST 0x00d9,0x0c05 0818 00db 1001 | | .CONST 0x00db,0x1001 081a 00dd 1002 | | .CONST 0x00dd,0x1002 081c 00de 1003 | | .CONST 0x00de,0x1003 081e 00df 1004 | | .CONST 0x00df,0x1004 0820 00e1 0c05 | | .CONST 0x00e1,0x0c05 0822 00eb 1401 | | .CONST 0x00eb,0x1401 0824 00ed 1402 | | .CONST 0x00ed,0x1402 0826 00ee 1403 | | .CONST 0x00ee,0x1403 0828 00ef 1404 | | .CONST 0x00ef,0x1404 082a 00f1 1004 | | .CONST 0x00f1,0x1004 082c 00ff 0005 | | .CONST 0x00ff,0x0005 082e 0101 0006 | | .CONST 0x0101,0x0006 0830 0103 0007 | | .CONST 0x0103,0x0007 0832 0105 0008 | | .CONST 0x0105,0x0008 0834 010b 0009 | | .CONST 0x010b,0x0009 0836 010d 000a | | .CONST 0x010d,0x000a 0838 010e 1801 | | .CONST 0x010e,0x1801 083a 0110 1802 | | .CONST 0x0110,0x1802 083c 0111 1803 | | .CONST 0x0111,0x1803 083e 0112 1804 | | .CONST 0x0112,0x1804 0840 0113 000a | | .CONST 0x0113,0x000a 0842 0115 000b | | .CONST 0x0115,0x000b 0844 011a 000c | | .CONST 0x011a,0x000c 0846 011f 000d | | .CONST 0x011f,0x000d 0848 0120 1c01 | | .CONST 0x0120,0x1c01 084a 0122 1c02 | " | .CONST 0x0122,0x1c02 084c 0123 1c03 | # | .CONST 0x0123,0x1c03 084e 0124 1c04 | $ | .CONST 0x0124,0x1c04 0850 0125 000d | % | .CONST 0x0125,0x000d 0852 012d 0010 | - | .CONST 0x012d,0x0010 0854 0133 0011 | 3 | .CONST 0x0133,0x0011 0856 0135 000e | 5 | .CONST 0x0135,0x000e 0858 013c 000f | < | .CONST 0x013c,0x000f 085a 0141 0012 | A | .CONST 0x0141,0x0012 085c 0142 2001 | B | .CONST 0x0142,0x2001 085e 0144 2002 | D | .CONST 0x0144,0x2002 0860 0145 2003 | E | .CONST 0x0145,0x2003 0862 0146 2004 | F | .CONST 0x0146,0x2004 0864 0147 0012 | G | .CONST 0x0147,0x0012 0866 0149 0014 | I | .CONST 0x0149,0x0014 0868 014f 0015 | O | .CONST 0x014f,0x0015 086a 0151 0013 | Q | .CONST 0x0151,0x0013 086c 0156 0016 | V | .CONST 0x0156,0x0016 086e 015c 0017 | \ | .CONST 0x015c,0x0017 0870 0162 0018 | b | .CONST 0x0162,0x0018 0872 0164 0019 | d | .CONST 0x0164,0x0019 0874 0167 001a | g | .CONST 0x0167,0x001a 0876 0169 001b | i | .CONST 0x0169,0x001b 0878 ; -------------------------------------------------------------------------------------- 0878 ; Debug3 Subtable 0x5 0878 ; -------------------------------------------------------------------------------------- 0878 0001 0003 | | .DBG3TAB 0x0001,0x0003 087a 0173 ffff | s | .CONST 0x0173,0xffff 087c 0174 0001 | t | .CONST 0x0174,0x0001 087e 0178 0002 | x | .CONST 0x0178,0x0002 0880 017c 0003 | | | .CONST 0x017c,0x0003 0882 ; -------------------------------------------------------------------------------------- 0882 ; Debug3 Subtable 0x6 0882 ; -------------------------------------------------------------------------------------- 0882 0007 0023 | #| .DBG3TAB 0x0007,0x0023 0884 0183 ffff | | .CONST 0x0183,0xffff 0886 0184 fffe | | .CONST 0x0184,0xfffe 0888 0185 fffd | | .CONST 0x0185,0xfffd 088a 0186 fffc | | .CONST 0x0186,0xfffc 088c 018b fffb | | .CONST 0x018b,0xfffb 088e 018e fffa | | .CONST 0x018e,0xfffa 0890 0190 fff9 | | .CONST 0x0190,0xfff9 0892 0192 0001 | | .CONST 0x0192,0x0001 0894 0194 0002 | | .CONST 0x0194,0x0002 0896 01a5 0003 | | .CONST 0x01a5,0x0003 0898 01af 0004 | | .CONST 0x01af,0x0004 089a 01b1 0005 | | .CONST 0x01b1,0x0005 089c 01b3 0006 | | .CONST 0x01b3,0x0006 089e 01b7 0007 | | .CONST 0x01b7,0x0007 08a0 01ba 0401 | | .CONST 0x01ba,0x0401 08a2 01bc 0402 | | .CONST 0x01bc,0x0402 08a4 01be 0403 | | .CONST 0x01be,0x0403 08a6 01c2 0404 | | .CONST 0x01c2,0x0404 08a8 01c6 0405 | | .CONST 0x01c6,0x0405 08aa 01c8 0801 | | .CONST 0x01c8,0x0801 08ac 01ca 0802 | | .CONST 0x01ca,0x0802 08ae 01cb 0803 | | .CONST 0x01cb,0x0803 08b0 01cc 0804 | | .CONST 0x01cc,0x0804 08b2 01ce 0405 | | .CONST 0x01ce,0x0405 08b4 01d8 0c01 | | .CONST 0x01d8,0x0c01 08b6 01da 0c02 | | .CONST 0x01da,0x0c02 08b8 01db 0c03 | | .CONST 0x01db,0x0c03 08ba 01dc 0c04 | | .CONST 0x01dc,0x0c04 08bc 01de 0804 | | .CONST 0x01de,0x0804 08be 01ec 0007 | | .CONST 0x01ec,0x0007 08c0 01ed 0008 | | .CONST 0x01ed,0x0008 08c2 01f3 0009 | | .CONST 0x01f3,0x0009 08c4 01f4 1001 | | .CONST 0x01f4,0x1001 08c6 01f5 0009 | | .CONST 0x01f5,0x0009 08c8 01fe 1401 | | .CONST 0x01fe,0x1401 08ca 01ff 1001 | | .CONST 0x01ff,0x1001 08cc 0206 000a | | .CONST 0x0206,0x000a 08ce 020a 000b | | .CONST 0x020a,0x000b 08d0 020e 000c | | .CONST 0x020e,0x000c 08d2 0212 000d | | .CONST 0x0212,0x000d 08d4 0214 000e | | .CONST 0x0214,0x000e 08d6 0218 000f | | .CONST 0x0218,0x000f 08d8 ; -------------------------------------------------------------------------------------- 08d8 ; Debug3 Subtable 0x7 08d8 ; -------------------------------------------------------------------------------------- 08d8 0012 0028 | (| .DBG3TAB 0x0012,0x0028 08da 0223 ffff | # | .CONST 0x0223,0xffff 08dc 0224 fffe | $ | .CONST 0x0224,0xfffe 08de 0225 fffd | % | .CONST 0x0225,0xfffd 08e0 0226 fffc | & | .CONST 0x0226,0xfffc 08e2 0227 fffb | ' | .CONST 0x0227,0xfffb 08e4 0228 fffa | ( | .CONST 0x0228,0xfffa 08e6 0229 fff9 | ) | .CONST 0x0229,0xfff9 08e8 022a fff8 | * | .CONST 0x022a,0xfff8 08ea 022b fff7 | + | .CONST 0x022b,0xfff7 08ec 0230 fff6 | 0 | .CONST 0x0230,0xfff6 08ee 0235 fff5 | 5 | .CONST 0x0235,0xfff5 08f0 023a fff4 | : | .CONST 0x023a,0xfff4 08f2 0240 fff3 | @ | .CONST 0x0240,0xfff3 08f4 0246 fff2 | F | .CONST 0x0246,0xfff2 08f6 0248 fff1 | H | .CONST 0x0248,0xfff1 08f8 024d fff0 | M | .CONST 0x024d,0xfff0 08fa 0252 ffef | R | .CONST 0x0252,0xffef 08fc 0254 ffee | T | .CONST 0x0254,0xffee 08fe 0256 0001 | V | .CONST 0x0256,0x0001 0900 025e 0002 | ^ | .CONST 0x025e,0x0002 0902 0261 0003 | a | .CONST 0x0261,0x0003 0904 0270 0004 | p | .CONST 0x0270,0x0004 0906 0275 0005 | u | .CONST 0x0275,0x0005 0908 027b 0006 | { | .CONST 0x027b,0x0006 090a 0284 0007 | | .CONST 0x0284,0x0007 090c 028d 0008 | | .CONST 0x028d,0x0008 090e 0292 0009 | | .CONST 0x0292,0x0009 0910 0296 000a | | .CONST 0x0296,0x000a 0912 029a 000b | | .CONST 0x029a,0x000b 0914 02a0 000c | | .CONST 0x02a0,0x000c 0916 02a4 000d | | .CONST 0x02a4,0x000d 0918 02ae 000e | | .CONST 0x02ae,0x000e 091a 02b1 000f | | .CONST 0x02b1,0x000f 091c 02b8 0010 | | .CONST 0x02b8,0x0010 091e 02cd 0011 | | .CONST 0x02cd,0x0011 0920 02d2 0012 | | .CONST 0x02d2,0x0012 0922 02f4 0013 | | .CONST 0x02f4,0x0013 0924 02f9 0014 | | .CONST 0x02f9,0x0014 0926 0314 0015 | | .CONST 0x0314,0x0015 0928 0319 0016 | | .CONST 0x0319,0x0016 092a 0330 0017 | 0 | .CONST 0x0330,0x0017 092c 0335 0018 | 5 | .CONST 0x0335,0x0018 092e 0339 0019 | 9 | .CONST 0x0339,0x0019 0930 0343 001a | C | .CONST 0x0343,0x001a 0932 034b 001b | K | .CONST 0x034b,0x001b 0934 0351 001c | Q | .CONST 0x0351,0x001c 0936 0355 001d | U | .CONST 0x0355,0x001d 0938 035e 001e | ^ | .CONST 0x035e,0x001e 093a 0363 001f | c | .CONST 0x0363,0x001f 093c 036e 0020 | n | .CONST 0x036e,0x0020 093e 0373 0021 | s !| .CONST 0x0373,0x0021 0940 037d 0022 | } "| .CONST 0x037d,0x0022 0942 0382 0023 | #| .CONST 0x0382,0x0023 0944 0385 0024 | $| .CONST 0x0385,0x0024 0946 038d 0025 | %| .CONST 0x038d,0x0025 0948 0392 0026 | &| .CONST 0x0392,0x0026 094a 0394 0027 | '| .CONST 0x0394,0x0027 094c 0399 0028 | (| .CONST 0x0399,0x0028 094e ; -------------------------------------------------------------------------------------- 094e ; Debug3 Subtable 0x8 094e ; -------------------------------------------------------------------------------------- 094e 0006 000a | | .DBG3TAB 0x0006,0x000a 0950 03ab ffff | | .CONST 0x03ab,0xffff 0952 03ac fffe | | .CONST 0x03ac,0xfffe 0954 03ad fffd | | .CONST 0x03ad,0xfffd 0956 03ae fffc | | .CONST 0x03ae,0xfffc 0958 03b3 fffb | | .CONST 0x03b3,0xfffb 095a 03b9 fffa | | .CONST 0x03b9,0xfffa 095c 03bb 0001 | | .CONST 0x03bb,0x0001 095e 03be 0002 | | .CONST 0x03be,0x0002 0960 03c8 0003 | | .CONST 0x03c8,0x0003 0962 03d5 0004 | | .CONST 0x03d5,0x0004 0964 03d7 0005 | | .CONST 0x03d7,0x0005 0966 03ec 0006 | | .CONST 0x03ec,0x0006 0968 03f1 0007 | | .CONST 0x03f1,0x0007 096a 040f 0008 | | .CONST 0x040f,0x0008 096c 0414 0009 | | .CONST 0x0414,0x0009 096e 0416 000a | | .CONST 0x0416,0x000a 0970 ; -------------------------------------------------------------------------------------- 0970 ; Debug3 Subtable 0x9 0970 ; -------------------------------------------------------------------------------------- 0970 0004 003d | =| .DBG3TAB 0x0004,0x003d 0972 0423 ffff | # | .CONST 0x0423,0xffff 0974 0424 fffe | $ | .CONST 0x0424,0xfffe 0976 0425 fffd | % | .CONST 0x0425,0xfffd 0978 0426 fffc | & | .CONST 0x0426,0xfffc 097a 042a 0001 | * | .CONST 0x042a,0x0001 097c 0430 0002 | 0 | .CONST 0x0430,0x0002 097e 0432 0401 | 2 | .CONST 0x0432,0x0401 0980 0434 0801 | 4 | .CONST 0x0434,0x0801 0982 0436 0802 | 6 | .CONST 0x0436,0x0802 0984 0437 0803 | 7 | .CONST 0x0437,0x0803 0986 0438 0804 | 8 | .CONST 0x0438,0x0804 0988 043a 0401 | : | .CONST 0x043a,0x0401 098a 0441 0002 | A | .CONST 0x0441,0x0002 098c 0442 0003 | B | .CONST 0x0442,0x0003 098e 0444 0004 | D | .CONST 0x0444,0x0004 0990 0448 0005 | H | .CONST 0x0448,0x0005 0992 044f 0007 | O | .CONST 0x044f,0x0007 0994 0451 0c01 | Q | .CONST 0x0451,0x0c01 0996 0453 0c02 | S | .CONST 0x0453,0x0c02 0998 0455 0c03 | U | .CONST 0x0455,0x0c03 099a 0459 0c04 | Y | .CONST 0x0459,0x0c04 099c 045d 0c05 | ] | .CONST 0x045d,0x0c05 099e 045f 1001 | _ | .CONST 0x045f,0x1001 09a0 0461 1002 | a | .CONST 0x0461,0x1002 09a2 0462 1003 | b | .CONST 0x0462,0x1003 09a4 0463 1004 | c | .CONST 0x0463,0x1004 09a6 0465 0c05 | e | .CONST 0x0465,0x0c05 09a8 046f 1401 | o | .CONST 0x046f,0x1401 09aa 0471 1402 | q | .CONST 0x0471,0x1402 09ac 0472 1403 | r | .CONST 0x0472,0x1403 09ae 0473 1404 | s | .CONST 0x0473,0x1404 09b0 0475 1004 | u | .CONST 0x0475,0x1004 09b2 0483 0007 | | .CONST 0x0483,0x0007 09b4 0484 0008 | | .CONST 0x0484,0x0008 09b6 0485 1801 | | .CONST 0x0485,0x1801 09b8 0487 1802 | | .CONST 0x0487,0x1802 09ba 0489 1803 | | .CONST 0x0489,0x1803 09bc 048c 0008 | | .CONST 0x048c,0x0008 09be 048d 0009 | | .CONST 0x048d,0x0009 09c0 048e 1c01 | | .CONST 0x048e,0x1c01 09c2 0490 1c02 | | .CONST 0x0490,0x1c02 09c4 0491 1c03 | | .CONST 0x0491,0x1c03 09c6 0492 1c04 | | .CONST 0x0492,0x1c04 09c8 0493 0009 | | .CONST 0x0493,0x0009 09ca 0499 000e | | .CONST 0x0499,0x000e 09cc 049a 000a | | .CONST 0x049a,0x000a 09ce 049d 2001 | | .CONST 0x049d,0x2001 09d0 049f 2002 | | .CONST 0x049f,0x2002 09d2 04a0 2003 | | .CONST 0x04a0,0x2003 09d4 04a1 2004 | | .CONST 0x04a1,0x2004 09d6 04a3 000a | | .CONST 0x04a3,0x000a 09d8 04a5 000b | | .CONST 0x04a5,0x000b 09da 04ab 000c | | .CONST 0x04ab,0x000c 09dc 04ad 2401 | $ | .CONST 0x04ad,0x2401 09de 04af 2801 | ( | .CONST 0x04af,0x2801 09e0 04b1 2802 | ( | .CONST 0x04b1,0x2802 09e2 04b2 2803 | ( | .CONST 0x04b2,0x2803 09e4 04b3 2804 | ( | .CONST 0x04b3,0x2804 09e6 04b5 2401 | $ | .CONST 0x04b5,0x2401 09e8 04bc 000c | | .CONST 0x04bc,0x000c 09ea 04c4 000d | | .CONST 0x04c4,0x000d 09ec 04c7 0006 | | .CONST 0x04c7,0x0006 09ee 04c8 2c01 | , | .CONST 0x04c8,0x2c01 09f0 04ca 0006 | | .CONST 0x04ca,0x0006 09f2 04cb 000f | | .CONST 0x04cb,0x000f 09f4 ; -------------------------------------------------------------------------------------- 09f4 ; Debug3 Subtable 0xa 09f4 ; -------------------------------------------------------------------------------------- 09f4 0000 0014 | | .DBG3TAB 0x0000,0x0014 09f6 04d3 0001 | | .CONST 0x04d3,0x0001 09f8 04d4 0401 | | .CONST 0x04d4,0x0401 09fa 04d6 0402 | | .CONST 0x04d6,0x0402 09fc 04d7 0403 | | .CONST 0x04d7,0x0403 09fe 04d8 0404 | | .CONST 0x04d8,0x0404 0a00 04d9 0001 | | .CONST 0x04d9,0x0001 0a02 04df 0009 | | .CONST 0x04df,0x0009 0a04 04e5 000a | | .CONST 0x04e5,0x000a 0a06 04e7 0002 | | .CONST 0x04e7,0x0002 0a08 04ea 0003 | | .CONST 0x04ea,0x0003 0a0a 04f0 0004 | | .CONST 0x04f0,0x0004 0a0c 04f2 0005 | | .CONST 0x04f2,0x0005 0a0e 04f5 0801 | | .CONST 0x04f5,0x0801 0a10 04f7 0802 | | .CONST 0x04f7,0x0802 0a12 04f8 0803 | | .CONST 0x04f8,0x0803 0a14 04f9 0804 | | .CONST 0x04f9,0x0804 0a16 04fb 0005 | | .CONST 0x04fb,0x0005 0a18 04fd 0007 | | .CONST 0x04fd,0x0007 0a1a 0503 0008 | | .CONST 0x0503,0x0008 0a1c 0505 0006 | | .CONST 0x0505,0x0006 0a1e ; -------------------------------------------------------------------------------------- 0a1e ; Debug3 Subtable 0xb 0a1e ; -------------------------------------------------------------------------------------- 0a1e 0003 000b | | .DBG3TAB 0x0003,0x000b 0a20 050b ffff | | .CONST 0x050b,0xffff 0a22 050c fffe | | .CONST 0x050c,0xfffe 0a24 050d fffd | | .CONST 0x050d,0xfffd 0a26 050e 0001 | | .CONST 0x050e,0x0001 0a28 0512 0002 | | .CONST 0x0512,0x0002 0a2a 0513 0401 | | .CONST 0x0513,0x0401 0a2c 0515 0402 | | .CONST 0x0515,0x0402 0a2e 0516 0403 | | .CONST 0x0516,0x0403 0a30 0517 0404 | | .CONST 0x0517,0x0404 0a32 0518 0002 | | .CONST 0x0518,0x0002 0a34 051a 0005 | | .CONST 0x051a,0x0005 0a36 0526 0003 | & | .CONST 0x0526,0x0003 0a38 052a 0004 | * | .CONST 0x052a,0x0004 0a3a 053d 0006 | = | .CONST 0x053d,0x0006 0a3c ; -------------------------------------------------------------------------------------- 0a3c ; Debug3 Subtable 0xc 0a3c ; -------------------------------------------------------------------------------------- 0a3c 0005 0008 | | .DBG3TAB 0x0005,0x0008 0a3e 0543 ffff | C | .CONST 0x0543,0xffff 0a40 0544 fffe | D | .CONST 0x0544,0xfffe 0a42 054a fffd | J | .CONST 0x054a,0xfffd 0a44 054c fffc | L | .CONST 0x054c,0xfffc 0a46 054e fffb | N | .CONST 0x054e,0xfffb 0a48 0551 0001 | Q | .CONST 0x0551,0x0001 0a4a 0553 0002 | S | .CONST 0x0553,0x0002 0a4c 0570 0003 | p | .CONST 0x0570,0x0003 0a4e 0572 0004 | r | .CONST 0x0572,0x0004 0a50 0574 0005 | t | .CONST 0x0574,0x0005 0a52 057d 0006 | } | .CONST 0x057d,0x0006 0a54 0582 0007 | | .CONST 0x0582,0x0007 0a56 05a2 0008 | | .CONST 0x05a2,0x0008 0a58 ; -------------------------------------------------------------------------------------- 0a58 ; Debug3 Subtable 0xd 0a58 ; -------------------------------------------------------------------------------------- 0a58 0001 0010 | | .DBG3TAB 0x0001,0x0010 0a5a 05ab ffff | | .CONST 0x05ab,0xffff 0a5c 05ac 0001 | | .CONST 0x05ac,0x0001 0a5e 05ad 0401 | | .CONST 0x05ad,0x0401 0a60 05af 0402 | | .CONST 0x05af,0x0402 0a62 05b0 0403 | | .CONST 0x05b0,0x0403 0a64 05b1 0404 | | .CONST 0x05b1,0x0404 0a66 05b2 0001 | | .CONST 0x05b2,0x0001 0a68 05b8 0005 | | .CONST 0x05b8,0x0005 0a6a 05ba 0801 | | .CONST 0x05ba,0x0801 0a6c 05bc 0802 | | .CONST 0x05bc,0x0802 0a6e 05bd 0803 | | .CONST 0x05bd,0x0803 0a70 05be 0804 | | .CONST 0x05be,0x0804 0a72 05bf 0005 | | .CONST 0x05bf,0x0005 0a74 05c8 0002 | | .CONST 0x05c8,0x0002 0a76 05d8 0003 | | .CONST 0x05d8,0x0003 0a78 05e4 0004 | | .CONST 0x05e4,0x0004 0a7a 05f0 0006 | | .CONST 0x05f0,0x0006 0a7c 0000 0000 | | .BLANK 0000[0x184]