|
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_0ea8df
└─⟦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 07b0 | | .CONST 0x07b0 ; 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 0067 | g | .CONST 0x0067 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0872,0x8000,0x0000,0x005a,0x84f5,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe 000e 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd 0010 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc 0012 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x12,0xfffb 0014 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x14,0xfffa 0016 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x16,0xfff9 0018 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x18,0xfff8 001a 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1a,0xfff7 001c 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1c,0xfff6 001e 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1e,0xfff5 0020 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x20,0xfff4 0022 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x22,0xfff3 0024 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x24,0xfff2 0026 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x26,0xfff1 0028 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x28,0xfff0 002a 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x2a,0xffef 002c 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x2c,0xffee 002e 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x2e,0xffed 0030 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x30,0xffec 0031 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x31,0xffeb 0032 00bf | | Action Accept_Activation ; Debug Table 0x0.0x15 = 0x32,0xffea 0033 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0033,0x08a0,0x8000,0x0000,0x005a,0x8aa5,0x0000,0x003b ; Debug Table 0x1.0x0 = 0x33,0xffff 0034 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x34,0xfffe 0035 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x35,0xfffd 0036 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x36,0xfffc 0037 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x37,0xfffb 0038 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x38,0xfffa 0039 0007 | | Action Break_Optional ; Debug Table 0x1.0x6 = 0x39,0xfff9 003a 0007 | | Action Break_Optional ; Debug Table 0x1.0x7 = 0x3a,0xfff8 003b 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call ; Debug Table 0x1.0x8 = 0x3b,0xfff7 003d 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call ; Debug Table 0x1.0x9 = 0x3d,0xfff6 003f 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call ; Debug Table 0x1.0xa = 0x3f,0xfff5 0041 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call ; Debug Table 0x1.0xb = 0x41,0xfff4 0043 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0xc = 0x43,0xfff3 0044 00c7 | | Action Elaborate_Subprogram 0045 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0xd = 0x45,0xfff2 0046 00c7 | | Action Elaborate_Subprogram 0047 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xe = 0x47,0xfff1 0048 00c7 | | Action Elaborate_Subprogram 0049 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xf = 0x49,0xfff0 004a 00c7 | | Action Elaborate_Subprogram 004b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x10 = 0x4b,0xffef 004c 00c7 | | Action Elaborate_Subprogram 004d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x11 = 0x4d,0xffee 004e 00c7 | | Action Elaborate_Subprogram 004f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x12 = 0x4f,0xffed 0050 00c7 | | Action Elaborate_Subprogram 0051 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x13 = 0x51,0xffec 0052 00c7 | | Action Elaborate_Subprogram 0053 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x14 = 0x53,0xffeb 0054 00c7 | | Action Elaborate_Subprogram 0055 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x15 = 0x55,0xffea 0056 00c7 | | Action Elaborate_Subprogram 0057 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x16 = 0x57,0xffe9 0058 00c7 | | Action Elaborate_Subprogram 0059 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x17 = 0x59,0xffe8 005a 00c7 | | Action Elaborate_Subprogram 005b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x18 = 0x5b,0xffe7 005c 00c7 | | Action Elaborate_Subprogram 005d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x19 = 0x5d,0xffe6 005e 00c7 | | Action Elaborate_Subprogram 005f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x1a = 0x5f,0xffe5 0060 00c7 | | Action Elaborate_Subprogram 0061 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x1b = 0x61,0xffe4 0062 00c7 | | Action Elaborate_Subprogram 0063 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x1c = 0x63,0xffe3 0064 00c7 | | Action Elaborate_Subprogram 0065 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x1d = 0x65,0xffe2 0066 00c7 | | Action Elaborate_Subprogram 0067 BODY_0008: 0067 00bc | | Action Signal_Activated 0068 00bb | | Action Signal_Completion 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 0092 059c | | Action Push_String_Extended,0x59c ; "Ada.Code_Unit" ; Debug Table 0x2 = .DEBUG 0x0073,0x08de,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0008 ; Debug Table 0x2.0x0 = 0x73,0x1 0075 e001 | | Load 0x0,0x1 0076 180d | | Execute Package,Field_Execute,Field_Number 0xd 0077 4804 |H | Short_Literal 0x4 ; Debug Table 0x2.0x1 = 0x77,0x2 0078 8221 | ! | Call 0x1,0x21 0079 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007a 0000 0000 | | .BLANK 0000[0x6] 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 0092 059d | | Action Push_String_Extended,0x59d ; "Ada.Install_Unit" ; Debug Table 0x3 = .DEBUG 0x0083,0x08e4,0x0001,0x0000,0x005a,0x84f5,0x0000,0x000c ; Debug Table 0x3.0x0 = 0x83,0x1 0085 e001 | | Load 0x0,0x1 0086 180d | | Execute Package,Field_Execute,Field_Number 0xd 0087 4803 |H | Short_Literal 0x3 ; Debug Table 0x3.0x1 = 0x87,0x2 0088 8221 | ! | Call 0x1,0x21 0089 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008a 0000 0000 | | .BLANK 0000[0x6] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 0092 059e | | Action Push_String_Extended,0x59e ; "Ada.Source_Unit" ; Debug Table 0x4 = .DEBUG 0x0093,0x08ea,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0010 ; Debug Table 0x4.0x0 = 0x93,0x1 0095 e001 | | Load 0x0,0x1 0096 180d | | Execute Package,Field_Execute,Field_Number 0xd 0097 4802 |H | Short_Literal 0x2 ; Debug Table 0x4.0x1 = 0x97,0x2 0098 8221 | ! | Call 0x1,0x21 0099 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009a 0000 0000 | | .BLANK 0000[0x6] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00b3 | | .CONST 0x00b3 ; Address of begin 00a1 0142 | B | .CONST 0x0142 ; Address of exception handler 00a2 0006 | | .CONST 0x0006 ; Number of locals 00a3 INIT_00a0: 00a3 e002 | | Load 0x0,0x2 ; Debug Table 0x5 = .DEBUG 0x00a3,0x08f0,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0014 ; Debug Table 0x5.0x0 = 0xa3,0xffff 00a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00a6 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5.0x1 = 0xa6,0xfffe 00a7 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5.0x2 = 0xa7,0xfffd 00a8 e003 | | Load 0x0,0x3 ; Debug Table 0x5.0x3 = 0xa8,0xfffc 00a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00aa 0322 | " | Declare_Variable Record 00ab 00d8 | | Load_Top At_Offset_0 00ac 1c00 | | Execute_Immediate Run_Utility,0x0 00ad e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x4 = 0xad,0xfffb 00ae e004 | | Load 0x0,0x4 00af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b0 e004 | | Load 0x0,0x4 00b1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00b2 03f1 | | Declare_Variable Discrete,With_Value 00b3 BODY_00a0: 00b3 0092 059f | | Action Push_String_Extended,0x59f ; "Ada.Withdraw" ; Debug Table 0x5.0x5 = 0xb3,0x1 00b5 e001 | | Load 0x0,0x1 00b6 180d | | Execute Package,Field_Execute,Field_Number 0xd 00b7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x6 = 0xb7,0x2 00b8 4604 |F | Jump_Case 0x5 00b9 7863 |xc | Jump 0x11d ; case 0x0 00ba 7862 |xb | Jump 0x11d ; case 0x1 00bb 7861 |xa | Jump 0x11d ; case 0x2 00bc 7801 |x | Jump 0xbe ; case 0x3 00bd 785f |x_ | Jump 0x11d ; case 0x4 00be 821f | | Call 0x1,0x1f ; Debug Table 0x5.0x7 = 0xbe,0x3 00bf 680e |h | Jump_Zero 0xce 00c0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x8 = 0xc0,0x4 00c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c2 00ec | | Load_Encached Diana_Tree_Cache 00c3 e005 | | Load 0x0,0x5 00c4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00c5 4801 |H | Short_Literal 0x1 00c6 e006 | | Load 0x0,0x6 00c7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00c8 e006 | | Load 0x0,0x6 00c9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00ca 00db | | Load_Top At_Offset_3 00cb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00cc 00d1 | | Pop_Control Pop_Count_1 00cd 7861 |xa | Jump 0x12f 00ce e006 | | Load 0x0,0x6 ; Debug Table 0x5.0x9 = 0xce,0x5 00cf 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00d0 00da | | Load_Top At_Offset_2 00d1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d2 e002 | | Load 0x0,0x2 ; Debug Table 0x5.0xa = 0xd2,0x6 00d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00d5 e002 | | Load 0x0,0x2 00d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d7 e007 | | Load 0x0,0x7 00d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d9 4800 |H | Short_Literal 0x0 00da e008 | | Load 0x0,0x8 00db 180e | | Execute Package,Field_Execute,Field_Number 0xe 00dc c403 | | Store 0x2,0x3 00dd c402 | | Store 0x2,0x2 00de 0007 | | Action Break_Optional ; Debug Table 0x5.0xb = 0xde,0x7 00df e403 | | Load 0x2,0x3 ; Debug Table 0x5.0xc = 0xdf,0x401 00e0 0007 | | Action Break_Optional 00e1 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x5.0xd = 0xe1,0x402 00e2 0007 | | Action Break_Optional ; Debug Table 0x5.0xe = 0xe2,0x403 00e3 0007 | | Action Break_Optional ; Debug Table 0x5.0xf = 0xe3,0x404 00e4 0b00 | | Execute_Immediate Case_Compare,0x0 ; Debug Table 0x5.0x10 = 0xe4,0x7 00e5 7024 |p$ | Jump_Nonzero 0x10a 00e6 0b39 | 9 | Execute_Immediate Case_Compare,0x39 00e7 7027 |p' | Jump_Nonzero 0x10f 00e8 0b30 | 0 | Execute_Immediate Case_Compare,0x30 00e9 7025 |p% | Jump_Nonzero 0x10f 00ea e403 | | Load 0x2,0x3 ; Debug Table 0x5.0x11 = 0xea,0xd 00eb e009 | | Load 0x0,0x9 00ec 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 00ed 7004 |p | Jump_Nonzero 0xf2 00ee e403 | | Load 0x2,0x3 00ef e009 | | Load 0x0,0x9 00f0 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 00f1 6826 |h& | Jump_Zero 0x118 00f2 e403 | | Load 0x2,0x3 ; Debug Table 0x5.0x12 = 0xf2,0xe 00f3 00eb | | Load_Encached Diana_Cache 00f4 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00f5 a404 | | Store_Unchecked 0x2,0x4 00f6 0007 | | Action Break_Optional ; Debug Table 0x5.0x13 = 0xf6,0xf 00f7 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0x14 = 0xf7,0x801 00f8 0007 | | Action Break_Optional 00f9 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x5.0x15 = 0xf9,0x802 00fa 0007 | | Action Break_Optional ; Debug Table 0x5.0x16 = 0xfa,0x803 00fb 0007 | | Action Break_Optional ; Debug Table 0x5.0x17 = 0xfb,0x804 00fc 0ba8 | | Execute_Immediate Case_Compare,0xa8 ; Debug Table 0x5.0x18 = 0xfc,0xf 00fd 7003 |p | Jump_Nonzero 0x101 00fe 0b49 | I | Execute_Immediate Case_Compare,0x49 00ff 7004 |p | Jump_Nonzero 0x104 0100 7807 |x | Jump 0x108 ; Debug Table 0x5.0x19 = 0x100,0x12 0101 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0x1a = 0x101,0x10 0102 a403 | | Store_Unchecked 0x2,0x3 0103 7804 |x | Jump 0x108 0104 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0x1b = 0x104,0x11 0105 00eb | | Load_Encached Diana_Cache 0106 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0107 a403 | | Store_Unchecked 0x2,0x3 0108 00d1 | | Pop_Control Pop_Count_1 0109 780e |x | Jump 0x118 010a 0092 05a0 | | Action Push_String_Extended,0x5a0 ; "Command failed - no selection" ; Debug Table 0x5.0x1c = 0x10a,0x8 010c e00a | | Load 0x0,0xa 010d 180d | | Execute Package,Field_Execute,Field_Number 0xd 010e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5.0x1d = 0x10e,0x9 010f e403 | | Load 0x2,0x3 ; Debug Table 0x5.0x1e = 0x10f,0xa 0110 e00b | | Load 0x0,0xb 0111 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0112 6805 |h | Jump_Zero 0x118 0113 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "Command failed - not an ada object" ; Debug Table 0x5.0x1f = 0x113,0xb 0115 e00a | | Load 0x0,0xa 0116 180d | | Execute Package,Field_Execute,Field_Number 0xd 0117 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5.0x20 = 0x117,0xc 0118 00d1 | | Pop_Control Pop_Count_1 0119 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x21 = 0x119,0x13 011a 00da | | Load_Top At_Offset_2 011b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 011c 7812 |x | Jump 0x12f 011d e006 | | Load 0x0,0x6 ; Debug Table 0x5.0x22 = 0x11d,0x14 011e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 011f 00da | | Load_Top At_Offset_2 0120 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0121 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x23 = 0x121,0x15 0122 4801 |H | Short_Literal 0x1 0123 e007 | | Load 0x0,0x7 0124 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0125 e002 | | Load 0x0,0x2 0126 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0127 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0128 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "Withdraw" 012a e5ff | | Load 0x2,-0x1 012b e00c | | Load 0x0,0xc 012c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 012d 00da | | Load_Top At_Offset_2 012e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x24 = 0x12f,0x16 0130 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0131 0007 | | Action Break_Optional 0132 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x25 = 0x132,0xc01 0133 021d | | Execute Heap_Access,Is_Null 0134 00d0 | | Action Swap_Control 0135 00d1 | | Pop_Control Pop_Count_1 0136 7006 |p | Jump_Nonzero 0x13d ; Debug Table 0x5.0x26 = 0x136,0x16 0137 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x27 = 0x137,0x17 0138 4801 |H | Short_Literal 0x1 0139 4801 |H | Short_Literal 0x1 013a e405 | | Load 0x2,0x5 013b e003 | | Load 0x0,0x3 013c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 013d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x28 = 0x13d,0x18 013e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 013f e006 | | Load 0x0,0x6 0140 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0141 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0142 TRAP_00a0: 0142 0007 | | Action Break_Optional 0143 e00d | | Load 0x0,0xd ; Debug Table 0x5.0x29 = 0x143,0x19 0144 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0145 0092 05a3 | | Action Push_String_Extended,0x5a3 ; "*** Exception in Ada.Withdraw: " ; Debug Table 0x5.0x2a = 0x145,0x1a 0147 e00e | | Load 0x0,0xe 0148 180d | | Execute Package,Field_Execute,Field_Number 0xd 0149 01cc | | Execute Vector,Catenate 014a e00d | | Load 0x0,0xd 014b 180f | | Execute Package,Field_Execute,Field_Number 0xf 014c 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x2b = 0x14c,0x1b 014d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014e e006 | | Load 0x0,0x6 014f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0150 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0151 0000 0000 | | .BLANK 0000[0x7] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015c | \ | .CONST 0x015c ; Address of begin 0159 0176 | v | .CONST 0x0176 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6 = .DEBUG 0x015b,0x094a,0x0001,0x0000,0x005a,0x84f5,0x0000,0x001d ; Debug Table 0x6.0x0 = 0x15b,0xffff 015c BODY_0158: 015c 0092 05a4 | | Action Push_String_Extended,0x5a4 ; "Ada.Diana_Edit" ; Debug Table 0x6.0x1 = 0x15c,0x1 015e e001 | | Load 0x0,0x1 015f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0160 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x2 = 0x160,0x2 0161 4801 |H | Short_Literal 0x1 0162 e007 | | Load 0x0,0x7 0163 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0164 e002 | | Load 0x0,0x2 0165 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0166 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0167 0092 05a4 | | Action Push_String_Extended,0x5a4 ; "Ada.Diana_Edit" 0169 e5ff | | Load 0x2,-0x1 016a e00c | | Load 0x0,0xc 016b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 016c 0031 | 1 | Store_Top Heap_Access,At_Offset_1 016d 0007 | | Action Break_Optional ; Debug Table 0x6.0x3 = 0x16d,0x3 016e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x4 = 0x16e,0x401 016f 021d | | Execute Heap_Access,Is_Null 0170 6801 |h | Jump_Zero 0x172 ; Debug Table 0x6.0x5 = 0x170,0x3 0171 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x6.0x6 = 0x171,0x4 0172 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x7 = 0x172,0x5 0173 e00f | | Load 0x0,0xf 0174 180d | | Execute Package,Field_Execute,Field_Number 0xd 0175 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0176 TRAP_0158: 0176 62a9 |b | Indirect_Literal Discrete,0x420,{0x00000000, 0x5a851501} 0177 010f | | Execute Exception,Equal 0178 6801 |h | Jump_Zero 0x17a 0179 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x6.0x8 = 0x179,0x6 017a e00d | | Load 0x0,0xd ; Debug Table 0x6.0x9 = 0x17a,0x7 017b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 017c 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "*** Exception in Ada.Diana_Edit: " ; Debug Table 0x6.0xa = 0x17c,0x8 017e e00e | | Load 0x0,0xe 017f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0180 01cc | | Execute Vector,Catenate 0181 e00d | | Load 0x0,0xd 0182 180f | | Execute Package,Field_Execute,Field_Number 0xf 0183 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018c | | .CONST 0x018c ; Address of begin 0189 01a5 | | .CONST 0x01a5 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7 = .DEBUG 0x018b,0x0962,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0026 ; Debug Table 0x7.0x0 = 0x18b,0xffff 018c BODY_0188: 018c 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "Ada.Install_Stub" ; Debug Table 0x7.0x1 = 0x18c,0x1 018e e001 | | Load 0x0,0x1 018f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0190 e005 | | Load 0x0,0x5 ; Debug Table 0x7.0x2 = 0x190,0x2 0191 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0192 4801 |H | Short_Literal 0x1 0193 e006 | | Load 0x0,0x6 0194 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0195 e006 | | Load 0x0,0x6 0196 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0197 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0198 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x3 = 0x198,0x3 0199 e003 | | Load 0x0,0x3 019a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 019b 4604 |F | Jump_Case 0x5 019c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0 019d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1 019e 7802 |x | Jump 0x1a1 ; case 0x2 019f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3 01a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4 01a1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x4 = 0x1a1,0x4 01a2 e003 | | Load 0x0,0x3 01a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a5 TRAP_0188: 01a5 627a |bz | Indirect_Literal Discrete,0x420,{0x00000000, 0x5a851501} 01a6 010f | | Execute Exception,Equal 01a7 6801 |h | Jump_Zero 0x1a9 01a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x7.0x5 = 0x1a8,0x6 01a9 e00d | | Load 0x0,0xd ; Debug Table 0x7.0x6 = 0x1a9,0x7 01aa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ab 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "*** Exception in Ada.Install_Stub: " ; Debug Table 0x7.0x7 = 0x1ab,0x8 01ad e00e | | Load 0x0,0xe 01ae 180d | | Execute Package,Field_Execute,Field_Number 0xd 01af 01cc | | Execute Vector,Catenate 01b0 e00d | | Load 0x0,0xd 01b1 180f | | Execute Package,Field_Execute,Field_Number 0xf 01b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b3 0000 0000 | | .BLANK 0000[0x5] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01be | | .CONST 0x01be ; Address of begin 01b9 01f2 | | .CONST 0x01f2 ; Address of exception handler 01ba 0004 | | .CONST 0x0004 ; Number of locals 01bb INIT_01b8: 01bb 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8 = .DEBUG 0x01bb,0x0974,0x0001,0x0000,0x005a,0x84f5,0x0000,0x002a ; Debug Table 0x8.0x0 = 0x1bb,0xffff 01bc 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x1 = 0x1bc,0xfffe 01bd 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8.0x2 = 0x1bd,0xfffd 01be BODY_01b8: 01be 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "Ada.Make_Inline" ; Debug Table 0x8.0x3 = 0x1be,0x1 01c0 e001 | | Load 0x0,0x1 01c1 180d | | Execute Package,Field_Execute,Field_Number 0xd 01c2 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x4 = 0x1c2,0x2 01c3 4801 |H | Short_Literal 0x1 01c4 e007 | | Load 0x0,0x7 01c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c6 e002 | | Load 0x0,0x2 01c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c9 00ea | | Load_Encached Null_String_Cache 01ca 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "<IMAGE>" 01cc e00c | | Load 0x0,0xc 01cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ce 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01cf 0007 | | Action Break_Optional ; Debug Table 0x8.0x5 = 0x1cf,0x3 01d0 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x6 = 0x1d0,0x401 01d1 021d | | Execute Heap_Access,Is_Null 01d2 6805 |h | Jump_Zero 0x1d8 ; Debug Table 0x8.0x7 = 0x1d2,0x3 01d3 0092 05aa | | Action Push_String_Extended,0x5aa ; "Make_Inline failed - unit is not an Ada object" ; Debug Table 0x8.0x8 = 0x1d3,0x4 01d5 e00a | | Load 0x0,0xa 01d6 180d | | Execute Package,Field_Execute,Field_Number 0xd 01d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x8.0x9 = 0x1d7,0x5 01d8 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0xa = 0x1d8,0x6 01d9 00eb | | Load_Encached Diana_Cache 01da 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01db 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0xb = 0x1db,0x801 01dc 021d | | Execute Heap_Access,Is_Null 01dd 00d0 | | Action Swap_Control 01de 00d1 | | Pop_Control Pop_Count_1 01df 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 ; Debug Table 0x8.0xc = 0x1df,0x6 01e0 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8.0xd = 0x1e0,0x7 01e1 00db | | Load_Top At_Offset_3 01e2 8010 | | Call 0x0,0x10 01e3 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01e4 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0xe = 0x1e4,0x8 01e5 680b |h | Jump_Zero 0x1f1 01e6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0xf = 0x1e6,0xc01 01e7 021d | | Execute Heap_Access,Is_Null 01e8 7008 |p | Jump_Nonzero 0x1f1 ; Debug Table 0x8.0x10 = 0x1e8,0x8 01e9 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x11 = 0x1e9,0x9 01ea 4801 |H | Short_Literal 0x1 01eb 4800 |H | Short_Literal 0x0 01ec e006 | | Load 0x0,0x6 01ed 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 01ee e404 | | Load 0x2,0x4 01ef e006 | | Load 0x0,0x6 01f0 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f2 TRAP_01b8: 01f2 622d |b- | Indirect_Literal Discrete,0x420,{0x00000000, 0x5a851501} 01f3 010f | | Execute Exception,Equal 01f4 6801 |h | Jump_Zero 0x1f6 01f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x8.0x12 = 0x1f5,0xa 01f6 e00d | | Load 0x0,0xd ; Debug Table 0x8.0x13 = 0x1f6,0xb 01f7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01f8 0092 05ab | | Action Push_String_Extended,0x5ab ; "*** Exception in Ada.Make_Inline: " ; Debug Table 0x8.0x14 = 0x1f8,0xc 01fa e00e | | Load 0x0,0xe 01fb 180d | | Execute Package,Field_Execute,Field_Number 0xd 01fc 01cc | | Execute Vector,Catenate 01fd e00d | | Load 0x0,0xd 01fe 180f | | Execute Package,Field_Execute,Field_Number 0xf 01ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020e | | .CONST 0x020e ; Address of begin 0201 022e | . | .CONST 0x022e ; Address of exception handler 0202 0004 | | .CONST 0x0004 ; Number of locals 0203 INIT_0200: 0203 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x9 = .DEBUG 0x0203,0x09a0,0x0001,0x0000,0x005a,0x84f5,0x0000,0x002e ; Debug Table 0x9.0x0 = 0x203,0xffff 0204 e006 | | Load 0x0,0x6 ; Debug Table 0x9.0x1 = 0x204,0xfffe 0205 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0206 0322 | " | Declare_Variable Record 0207 00d8 | | Load_Top At_Offset_0 0208 1c00 | | Execute_Immediate Run_Utility,0x0 0209 e002 | | Load 0x0,0x2 ; Debug Table 0x9.0x2 = 0x209,0xfffd 020a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 020b 02ff | | Declare_Variable Variant_Record 020c 00d8 | | Load_Top At_Offset_0 020d 1c00 | | Execute_Immediate Run_Utility,0x0 020e BODY_0200: 020e 0092 05ac | | Action Push_String_Extended,0x5ac ; "Ada.Make_Separate" ; Debug Table 0x9.0x3 = 0x20e,0x1 0210 e001 | | Load 0x0,0x1 0211 180d | | Execute Package,Field_Execute,Field_Number 0xd 0212 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x4 = 0x212,0x2 0213 00ec | | Load_Encached Diana_Tree_Cache 0214 e005 | | Load 0x0,0x5 0215 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0216 4801 |H | Short_Literal 0x1 0217 e006 | | Load 0x0,0x6 0218 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0219 e006 | | Load 0x0,0x6 021a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 021b c402 | | Store 0x2,0x2 021c 00d1 | | Pop_Control Pop_Count_1 021d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x5 = 0x21d,0x3 021e 00db | | Load_Top At_Offset_3 021f 8011 | | Call 0x0,0x11 0220 00d1 | | Pop_Control Pop_Count_1 0221 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x6 = 0x221,0x4 0222 e002 | | Load 0x0,0x2 0223 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0224 7008 |p | Jump_Nonzero 0x22d 0225 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x7 = 0x225,0x5 0226 e007 | | Load 0x0,0x7 0227 180e | | Execute Package,Field_Execute,Field_Number 0xe 0228 4800 |H | Short_Literal 0x0 0229 4800 |H | Short_Literal 0x0 022a e004 | | Load 0x0,0x4 022b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 022c 00d1 | | Pop_Control Pop_Count_1 022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022e TRAP_0200: 022e 61f1 |a | Indirect_Literal Discrete,0x420,{0x00000000, 0x5a851501} 022f 010f | | Execute Exception,Equal 0230 6801 |h | Jump_Zero 0x232 0231 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x9.0x8 = 0x231,0x6 0232 e00d | | Load 0x0,0xd ; Debug Table 0x9.0x9 = 0x232,0x7 0233 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0234 0092 05ad | | Action Push_String_Extended,0x5ad ; "*** Exception in Ada.Make_Separate: " ; Debug Table 0x9.0xa = 0x234,0x8 0236 e00e | | Load 0x0,0xe 0237 180d | | Execute Package,Field_Execute,Field_Number 0xd 0238 01cc | | Execute Vector,Catenate 0239 e00d | | Load 0x0,0xd 023a 180f | | Execute Package,Field_Execute,Field_Number 0xf 023b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 023c 0000 0000 | | .BLANK 0000[0x4] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0275 | u | .CONST 0x0275 ; Address of begin 0241 0351 | Q | .CONST 0x0351 ; Address of exception handler 0242 000e | | .CONST 0x000e ; Number of locals 0243 INIT_0240: 0243 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xa = .DEBUG 0x0243,0x09b8,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0032 ; Debug Table 0xa.0x0 = 0x243,0xffff 0244 e006 | | Load 0x0,0x6 ; Debug Table 0xa.0x1 = 0x244,0xfffe 0245 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0246 0322 | " | Declare_Variable Record 0247 00d8 | | Load_Top At_Offset_0 0248 1c00 | | Execute_Immediate Run_Utility,0x0 0249 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xa.0x2 = 0x249,0xfffd 024a e006 | | Load 0x0,0x6 ; Debug Table 0xa.0x3 = 0x24a,0xfffc 024b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 024c 0322 | " | Declare_Variable Record 024d 00d8 | | Load_Top At_Offset_0 024e 1c00 | | Execute_Immediate Run_Utility,0x0 024f e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x4 = 0x24f,0xfffb 0250 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0251 e006 | | Load 0x0,0x6 ; Debug Table 0xa.0x5 = 0x251,0xfffa 0252 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0253 0322 | " | Declare_Variable Record 0254 e006 | | Load 0x0,0x6 ; Debug Table 0xa.0x6 = 0x254,0xfff9 0255 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0256 e003 | | Load 0x0,0x3 ; Debug Table 0xa.0x7 = 0x256,0xfff8 0257 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0258 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x8 = 0x258,0xfff7 0259 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 025a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025b 02c7 | | Declare_Variable Any 025c 00d8 | | Load_Top At_Offset_0 025d 1c00 | | Execute_Immediate Run_Utility,0x0 025e e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x9 = 0x25e,0xfff6 025f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0260 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0261 02c7 | | Declare_Variable Any 0262 00d8 | | Load_Top At_Offset_0 0263 1c00 | | Execute_Immediate Run_Utility,0x0 0264 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0xa = 0x264,0xfff5 0265 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0266 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0267 02c7 | | Declare_Variable Any 0268 00d8 | | Load_Top At_Offset_0 0269 1c00 | | Execute_Immediate Run_Utility,0x0 026a e005 | | Load 0x0,0x5 ; Debug Table 0xa.0xb = 0x26a,0xfff4 026b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 026c 0322 | " | Declare_Variable Record 026d 00d8 | | Load_Top At_Offset_0 026e 1c00 | | Execute_Immediate Run_Utility,0x0 026f e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0xc = 0x26f,0xfff3 0270 e004 | | Load 0x0,0x4 0271 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0272 e004 | | Load 0x0,0x4 0273 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0274 03f1 | | Declare_Variable Discrete,With_Value 0275 BODY_0240: 0275 0092 05ae | | Action Push_String_Extended,0x5ae ; "Ada.Other_Part" ; Debug Table 0xa.0xd = 0x275,0x1 0277 e001 | | Load 0x0,0x1 0278 180d | | Execute Package,Field_Execute,Field_Number 0xd 0279 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0xe = 0x279,0x2 027a a409 | | Store_Unchecked 0x2,0x9 027b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xf = 0x27b,0x3 027c 4604 |F | Jump_Case 0x5 027d 7854 |xT | Jump 0x2d2 ; case 0x0 027e 7853 |xS | Jump 0x2d2 ; case 0x1 027f 7852 |xR | Jump 0x2d2 ; case 0x2 0280 7801 |x | Jump 0x282 ; case 0x3 0281 7850 |xP | Jump 0x2d2 ; case 0x4 0282 e007 | | Load 0x0,0x7 ; Debug Table 0xa.0x10 = 0x282,0x4 0283 180e | | Execute Package,Field_Execute,Field_Number 0xe 0284 e005 | | Load 0x0,0x5 0285 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0286 00da | | Load_Top At_Offset_2 0287 017d | } | Execute Record,Structure_Write 0288 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x11 = 0x288,0x5 0289 8222 | " | Call 0x1,0x22 028a 6831 |h1 | Jump_Zero 0x2bc 028b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x12 = 0x28b,0x6 028c e006 | | Load 0x0,0x6 028d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 028e e006 | | Load 0x0,0x6 028f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0290 e403 | | Load 0x2,0x3 0291 017d | } | Execute Record,Structure_Write 0292 e403 | | Load 0x2,0x3 ; Debug Table 0xa.0x13 = 0x292,0x7 0293 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0294 e002 | | Load 0x0,0x2 0295 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0296 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0297 c40a | | Store 0x2,0xa 0298 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x14 = 0x298,0x8 0299 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029a 00db | | Load_Top At_Offset_3 029b 0120 | | Execute Any,Is_Value 029c 6804 |h | Jump_Zero 0x2a1 029d e002 | | Load 0x0,0x2 029e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 029f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02a0 7801 |x | Jump 0x2a2 02a1 00db | | Load_Top At_Offset_3 02a2 e002 | | Load 0x0,0x2 02a3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02a4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02a5 6176 |av | Indirect_Literal Discrete,0x41c,{0x00000000, 0x00004000} 02a6 4801 |H | Short_Literal 0x1 02a7 4800 |H | Short_Literal 0x0 02a8 e403 | | Load 0x2,0x3 02a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02aa e012 | | Load 0x0,0x12 02ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ac 4800 |H | Short_Literal 0x0 02ad e40a | | Load 0x2,0xa 02ae e002 | | Load 0x0,0x2 02af 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02b0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02b1 c402 | | Store 0x2,0x2 02b2 c40c | | Store 0x2,0xc 02b3 c406 | | Store 0x2,0x6 02b4 e406 | | Load 0x2,0x6 ; Debug Table 0xa.0x15 = 0x2b4,0x9 02b5 0092 05af | | Action Push_String_Extended,0x5af ; "Ada.Open" 02b7 e003 | | Load 0x0,0x3 02b8 180f | | Execute Package,Field_Execute,Field_Number 0xf 02b9 4802 |H | Short_Literal 0x2 ; Debug Table 0xa.0x16 = 0x2b9,0xa 02ba a409 | | Store_Unchecked 0x2,0x9 02bb 7828 |x( | Jump 0x2e4 02bc e405 | | Load 0x2,0x5 ; Debug Table 0xa.0x17 = 0x2bc,0xb 02bd e407 | | Load 0x2,0x7 02be e006 | | Load 0x0,0x6 02bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c0 e005 | | Load 0x0,0x5 02c1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02c2 4801 |H | Short_Literal 0x1 02c3 e006 | | Load 0x0,0x6 02c4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02c5 e006 | | Load 0x0,0x6 02c6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02c7 c408 | | Store 0x2,0x8 02c8 00d2 | | Pop_Control Pop_Count_2 02c9 e407 | | Load 0x2,0x7 ; Debug Table 0xa.0x18 = 0x2c9,0xc 02ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02cb a402 | | Store_Unchecked 0x2,0x2 02cc e408 | | Load 0x2,0x8 ; Debug Table 0xa.0x19 = 0x2cc,0xd 02cd 0f01 | | Execute_Immediate Equal,0x1 02ce 6815 |h | Jump_Zero 0x2e4 02cf 4802 |H | Short_Literal 0x2 ; Debug Table 0xa.0x1a = 0x2cf,0xe 02d0 a409 | | Store_Unchecked 0x2,0x9 02d1 7812 |x | Jump 0x2e4 02d2 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x1b = 0x2d2,0xf 02d3 4801 |H | Short_Literal 0x1 02d4 e007 | | Load 0x0,0x7 02d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d6 e002 | | Load 0x0,0x2 02d7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02d9 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "Other_Part" 02db e5ff | | Load 0x2,-0x1 02dc e00c | | Load 0x0,0xc 02dd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02de a402 | | Store_Unchecked 0x2,0x2 02df 0007 | | Action Break_Optional ; Debug Table 0xa.0x1c = 0x2df,0x10 02e0 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x1d = 0x2e0,0x401 02e1 021d | | Execute Heap_Access,Is_Null 02e2 6801 |h | Jump_Zero 0x2e4 ; Debug Table 0xa.0x1e = 0x2e2,0x10 02e3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xa.0x1f = 0x2e3,0x11 02e4 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x20 = 0x2e4,0x12 02e5 e00c | | Load 0x0,0xc 02e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02e7 a404 | | Store_Unchecked 0x2,0x4 02e8 0007 | | Action Break_Optional ; Debug Table 0xa.0x21 = 0x2e8,0x13 02e9 e404 | | Load 0x2,0x4 ; Debug Table 0xa.0x22 = 0x2e9,0x801 02ea 021d | | Execute Heap_Access,Is_Null 02eb 685e |h^ | Jump_Zero 0x34a ; Debug Table 0xa.0x23 = 0x2eb,0x13 02ec e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x24 = 0x2ec,0x14 02ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ee e002 | | Load 0x0,0x2 02ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02f0 612b |a+ | Indirect_Literal Discrete,0x41c,{0x00000000, 0x00004000} 02f1 e012 | | Load 0x0,0x12 02f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02f3 e402 | | Load 0x2,0x2 02f4 e002 | | Load 0x0,0x2 02f5 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 02f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02f7 c404 | | Store 0x2,0x4 02f8 c406 | | Store 0x2,0x6 02f9 e406 | | Load 0x2,0x6 ; Debug Table 0xa.0x25 = 0x2f9,0x15 02fa 684f |hO | Jump_Zero 0x34a 02fb e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x26 = 0x2fb,0x16 02fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02fd e40a | | Load 0x2,0xa 02fe 0120 | | Execute Any,Is_Value 02ff 6804 |h | Jump_Zero 0x304 0300 e002 | | Load 0x0,0x2 0301 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0302 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0303 7801 |x | Jump 0x305 0304 e40a | | Load 0x2,0xa 0305 e402 | | Load 0x2,0x2 0306 e002 | | Load 0x0,0x2 0307 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0308 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0309 c40a | | Store 0x2,0xa 030a c406 | | Store 0x2,0x6 030b e406 | | Load 0x2,0x6 ; Debug Table 0xa.0x27 = 0x30b,0x17 030c 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "Ada.Get_Unit" 030e e003 | | Load 0x0,0x3 030f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0310 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x28 = 0x310,0x18 0311 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0312 e40b | | Load 0x2,0xb 0313 0120 | | Execute Any,Is_Value 0314 6804 |h | Jump_Zero 0x319 0315 e002 | | Load 0x0,0x2 0316 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0317 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0318 7801 |x | Jump 0x31a 0319 e40b | | Load 0x2,0xb 031a 6101 |a | Indirect_Literal Discrete,0x41c,{0x00000000, 0x00004000} 031b e012 | | Load 0x0,0x12 031c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 031d e40a | | Load 0x2,0xa 031e e002 | | Load 0x0,0x2 031f 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0320 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0321 c40b | | Store 0x2,0xb 0322 c406 | | Store 0x2,0x6 0323 e406 | | Load 0x2,0x6 ; Debug Table 0xa.0x29 = 0x323,0x19 0324 6805 |h | Jump_Zero 0x32a 0325 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "Other part failed - not found" ; Debug Table 0xa.0x2a = 0x325,0x1a 0327 e00a | | Load 0x0,0xa 0328 180d | | Execute Package,Field_Execute,Field_Number 0xd 0329 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xa.0x2b = 0x329,0x1b 032a e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x2c = 0x32a,0x1c 032b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032c 00db | | Load_Top At_Offset_3 032d 0120 | | Execute Any,Is_Value 032e 6804 |h | Jump_Zero 0x333 032f e002 | | Load 0x0,0x2 0330 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0331 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0332 7801 |x | Jump 0x334 0333 00db | | Load_Top At_Offset_3 0334 e002 | | Load 0x0,0x2 0335 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0336 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0337 60e4 |` | Indirect_Literal Discrete,0x41c,{0x00000000, 0x00004000} 0338 4801 |H | Short_Literal 0x1 0339 4800 |H | Short_Literal 0x0 033a 4800 |H | Short_Literal 0x0 033b e012 | | Load 0x0,0x12 033c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 033d 4800 |H | Short_Literal 0x0 033e e40b | | Load 0x2,0xb 033f e002 | | Load 0x0,0x2 0340 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0341 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0342 c404 | | Store 0x2,0x4 0343 c40c | | Store 0x2,0xc 0344 c406 | | Store 0x2,0x6 0345 e406 | | Load 0x2,0x6 ; Debug Table 0xa.0x2d = 0x345,0x1d 0346 0092 05af | | Action Push_String_Extended,0x5af ; "Ada.Open" 0348 e003 | | Load 0x0,0x3 0349 180f | | Execute Package,Field_Execute,Field_Number 0xf 034a e409 | | Load 0x2,0x9 ; Debug Table 0xa.0x2e = 0x34a,0x1e 034b 4800 |H | Short_Literal 0x0 034c e5fe | | Load 0x2,-0x2 034d e404 | | Load 0x2,0x4 034e e003 | | Load 0x0,0x3 034f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0350 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0351 TRAP_0240: 0351 0007 | | Action Break_Optional 0352 e00d | | Load 0x0,0xd ; Debug Table 0xa.0x2f = 0x352,0x1f 0353 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0354 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "*** Exception in Ada.Other_Part: " ; Debug Table 0xa.0x30 = 0x354,0x20 0356 e00e | | Load 0x0,0xe 0357 180d | | Execute Package,Field_Execute,Field_Number 0xd 0358 01cc | | Execute Vector,Catenate 0359 e00d | | Load 0x0,0xd 035a 180f | | Execute Package,Field_Execute,Field_Number 0xf 035b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 035c 0000 0000 | | .BLANK 0000[0x4] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 0092 05b4 | | Action Push_String_Extended,0x5b4 ; "Ada.Replace_Id" ; Debug Table 0xb = .DEBUG 0x0363,0x0a1c,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0040 ; Debug Table 0xb.0x0 = 0x363,0x1 0365 e001 | | Load 0x0,0x1 0366 180d | | Execute Package,Field_Execute,Field_Number 0xd 0367 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x1 = 0x367,0x2 0368 00db | | Load_Top At_Offset_3 0369 8013 | | Call 0x0,0x13 036a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 036b 0000 0000 | | .BLANK 0000[0x5] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 037e | ~ | .CONST 0x037e ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "Ada.Show_Usage" ; Debug Table 0xc = .DEBUG 0x0373,0x0a22,0x0001,0x0000,0x005a,0x84f5,0x0000,0x004e ; Debug Table 0xc.0x0 = 0x373,0x1 0375 e001 | | Load 0x0,0x1 0376 180d | | Execute Package,Field_Execute,Field_Number 0xd 0377 e5fc | | Load 0x2,-0x4 ; Debug Table 0xc.0x1 = 0x377,0x2 0378 e5fd | | Load 0x2,-0x3 0379 e5fe | | Load 0x2,-0x2 037a e5ff | | Load 0x2,-0x1 037b e014 | | Load 0x0,0x14 037c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 037d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 037e TRAP_0370: 037e 0007 | | Action Break_Optional 037f e00d | | Load 0x0,0xd ; Debug Table 0xc.0x2 = 0x37f,0x3 0380 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0381 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "*** Exception in Ada.Show_Usage: " ; Debug Table 0xc.0x3 = 0x381,0x4 0383 e00e | | Load 0x0,0xe 0384 180d | | Execute Package,Field_Execute,Field_Number 0xd 0385 01cc | | Execute Vector,Catenate 0386 e00d | | Load 0x0,0xd 0387 180f | | Execute Package,Field_Execute,Field_Number 0xf 0388 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0389 0000 0000 | | .BLANK 0000[0x7] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 039d | | .CONST 0x039d ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Ada.Show_Unused" ; Debug Table 0xd = .DEBUG 0x0393,0x0a2c,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0066 ; Debug Table 0xd.0x0 = 0x393,0x1 0395 e001 | | Load 0x0,0x1 0396 180d | | Execute Package,Field_Execute,Field_Number 0xd 0397 e014 | | Load 0x0,0x14 ; Debug Table 0xd.0x1 = 0x397,0x2 0398 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0399 e5fe | | Load 0x2,-0x2 039a e5ff | | Load 0x2,-0x1 039b 8015 | | Call 0x0,0x15 039c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 039d TRAP_0390: 039d 0007 | | Action Break_Optional 039e e00d | | Load 0x0,0xd ; Debug Table 0xd.0x2 = 0x39e,0x3 039f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03a0 0092 05b8 | | Action Push_String_Extended,0x5b8 ; "*** Exception in Ada.Show_Unused: " ; Debug Table 0xd.0x3 = 0x3a0,0x4 03a2 e00e | | Load 0x0,0xe 03a3 180d | | Execute Package,Field_Execute,Field_Number 0xd 03a4 01cc | | Execute Vector,Catenate 03a5 e00d | | Load 0x0,0xd 03a6 180f | | Execute Package,Field_Execute,Field_Number 0xf 03a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 03b2 | | .CONST 0x03b2 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "Ada.Create_Body" ; Debug Table 0xe = .DEBUG 0x03ab,0x0a36,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0074 ; Debug Table 0xe.0x0 = 0x3ab,0x1 03ad e001 | | Load 0x0,0x1 03ae 180d | | Execute Package,Field_Execute,Field_Number 0xd 03af 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x1 = 0x3af,0x2 03b0 8016 | | Call 0x0,0x16 03b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03b2 TRAP_03a8: 03b2 0007 | | Action Break_Optional 03b3 e00d | | Load 0x0,0xd ; Debug Table 0xe.0x2 = 0x3b3,0x3 03b4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03b5 0092 05ba | | Action Push_String_Extended,0x5ba ; "*** Exception in Ada.Create_Body: " ; Debug Table 0xe.0x3 = 0x3b5,0x4 03b7 e00e | | Load 0x0,0xe 03b8 180d | | Execute Package,Field_Execute,Field_Number 0xd 03b9 01cc | | Execute Vector,Catenate 03ba e00d | | Load 0x0,0xd 03bb 180f | | Execute Package,Field_Execute,Field_Number 0xf 03bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03bd 0000 0000 | | .XXX[0x3] 03bf 0000 | | 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03ca | | .CONST 0x03ca ; Address of begin 03c1 040e | | .CONST 0x040e ; Address of exception handler 03c2 0003 | | .CONST 0x0003 ; Number of locals 03c3 INIT_03c0: 03c3 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xf = .DEBUG 0x03c3,0x0a40,0x0001,0x0000,0x005a,0x84f5,0x0000,0x007d ; Debug Table 0xf.0x0 = 0x3c3,0xffff 03c4 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x1 = 0x3c4,0xfffe 03c5 e004 | | Load 0x0,0x4 03c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c7 e004 | | Load 0x0,0x4 03c8 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03c9 03f1 | | Declare_Variable Discrete,With_Value 03ca BODY_03c0: 03ca 0092 05bb | | Action Push_String_Extended,0x5bb ; "Ada.Create_Private" ; Debug Table 0xf.0x2 = 0x3ca,0x1 03cc e001 | | Load 0x0,0x1 03cd 180d | | Execute Package,Field_Execute,Field_Number 0xd 03ce 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x3 = 0x3ce,0x2 03cf 4604 |F | Jump_Case 0x5 03d0 780d |x | Jump 0x3de ; case 0x0 03d1 780c |x | Jump 0x3de ; case 0x1 03d2 780b |x | Jump 0x3de ; case 0x2 03d3 7801 |x | Jump 0x3d5 ; case 0x3 03d4 7809 |x | Jump 0x3de ; case 0x4 03d5 e005 | | Load 0x0,0x5 ; Debug Table 0xf.0x4 = 0x3d5,0x3 03d6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03d7 4801 |H | Short_Literal 0x1 03d8 e006 | | Load 0x0,0x6 03d9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03da e006 | | Load 0x0,0x6 03db 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 03dc 0032 | 2 | Store_Top Heap_Access,At_Offset_2 03dd 7812 |x | Jump 0x3f0 03de 4801 |H | Short_Literal 0x1 ; Debug Table 0xf.0x5 = 0x3de,0x4 03df 4801 |H | Short_Literal 0x1 03e0 e007 | | Load 0x0,0x7 03e1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03e2 e002 | | Load 0x0,0x2 03e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03e4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03e5 0092 05bc | | Action Push_String_Extended,0x5bc ; "Ada.Create_Private_Part" 03e7 e5ff | | Load 0x2,-0x1 03e8 e00c | | Load 0x0,0xc 03e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03ea 0032 | 2 | Store_Top Heap_Access,At_Offset_2 03eb 0007 | | Action Break_Optional ; Debug Table 0xf.0x6 = 0x3eb,0x5 03ec 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xf.0x7 = 0x3ec,0x401 03ed 021d | | Execute Heap_Access,Is_Null 03ee 6801 |h | Jump_Zero 0x3f0 ; Debug Table 0xf.0x8 = 0x3ee,0x5 03ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xf.0x9 = 0x3ef,0x6 03f0 0007 | | Action Break_Optional ; Debug Table 0xf.0xa = 0x3f0,0x7 03f1 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xf.0xb = 0x3f1,0x801 03f2 021d | | Execute Heap_Access,Is_Null 03f3 6805 |h | Jump_Zero 0x3f9 ; Debug Table 0xf.0xc = 0x3f3,0x7 03f4 0092 05bd | | Action Push_String_Extended,0x5bd ; "Private_Part failed - no visible part selected" ; Debug Table 0xf.0xd = 0x3f4,0x8 03f6 e00a | | Load 0x0,0xa 03f7 180d | | Execute Package,Field_Execute,Field_Number 0xd 03f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xf.0xe = 0x3f8,0x9 03f9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xf.0xf = 0x3f9,0xa 03fa e002 | | Load 0x0,0x2 03fb 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 03fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03fd 700c |p | Jump_Nonzero 0x40a 03fe 0092 05be | | Action Push_String_Extended,0x5be ; "Private_Part failed - " ; Debug Table 0xf.0x10 = 0x3fe,0xb 0400 00da | | Load_Top At_Offset_2 0401 e017 | | Load 0x0,0x17 0402 180f | | Execute Package,Field_Execute,Field_Number 0xf 0403 01cc | | Execute Vector,Catenate 0404 0092 05bf | | Action Push_String_Extended,0x5bf ; " must be source" 0406 01cc | | Execute Vector,Catenate 0407 e00a | | Load 0x0,0xa 0408 180d | | Execute Package,Field_Execute,Field_Number 0xd 0409 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xf.0x11 = 0x409,0xc 040a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xf.0x12 = 0x40a,0xd 040b 8018 | | Call 0x0,0x18 040c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 040d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 040e TRAP_03c0: 040e 0007 | | Action Break_Optional 040f e00d | | Load 0x0,0xd ; Debug Table 0xf.0x13 = 0x40f,0xe 0410 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0411 0092 05c0 | | Action Push_String_Extended,0x5c0 ; "*** Exception in Ada.Create_Private: " ; Debug Table 0xf.0x14 = 0x411,0xf 0413 e00e | | Load 0x0,0xe 0414 180d | | Execute Package,Field_Execute,Field_Number 0xd 0415 01cc | | Execute Vector,Catenate 0416 e00d | | Load 0x0,0xd 0417 180f | | Execute Package,Field_Execute,Field_Number 0xf 0418 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0419 0000 0000 | | .XXX[0x3] 041b 0000 | | 041c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0420 0000 0000 | | .LITERAL {0x00000000, 0x5a851501} 0424 0000 0000 | | .BLANK 0000[0x4] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 0430 | 0 | .CONST 0x0430 ; Address of begin 0429 0449 | I | .CONST 0x0449 ; Address of exception handler 042a 0002 | | .CONST 0x0002 ; Number of locals 042b INIT_0428: 042b e006 | | Load 0x0,0x6 ; Debug Table 0x10 = .DEBUG 0x042b,0x0a6c,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0086 ; Debug Table 0x10.0x0 = 0x42b,0xffff 042c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 042d 0322 | " | Declare_Variable Record 042e 00d8 | | Load_Top At_Offset_0 042f 1c00 | | Execute_Immediate Run_Utility,0x0 0430 BODY_0428: 0430 0092 05c1 | | Action Push_String_Extended,0x5c1 ; "Ada.Get_Errors" ; Debug Table 0x10.0x1 = 0x430,0x1 0432 e001 | | Load 0x0,0x1 0433 180d | | Execute Package,Field_Execute,Field_Number 0xd 0434 e005 | | Load 0x0,0x5 ; Debug Table 0x10.0x2 = 0x434,0x2 0435 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0436 e006 | | Load 0x0,0x6 0437 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0438 e006 | | Load 0x0,0x6 0439 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 043a 00d9 | | Load_Top At_Offset_1 043b 017d | } | Execute Record,Structure_Write 043c e007 | | Load 0x0,0x7 ; Debug Table 0x10.0x3 = 0x43c,0x3 043d 180e | | Execute Package,Field_Execute,Field_Number 0xe 043e 00d9 | | Load_Top At_Offset_1 043f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0440 e004 | | Load 0x0,0x4 0441 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0442 e007 | | Load 0x0,0x7 ; Debug Table 0x10.0x4 = 0x442,0x4 0443 180e | | Execute Package,Field_Execute,Field_Number 0xe 0444 00d9 | | Load_Top At_Offset_1 0445 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0446 e004 | | Load 0x0,0x4 0447 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0448 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0449 TRAP_0428: 0449 0007 | | Action Break_Optional 044a e00d | | Load 0x0,0xd ; Debug Table 0x10.0x5 = 0x44a,0x5 044b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 044c 0092 05c0 | | Action Push_String_Extended,0x5c0 ; "*** Exception in Ada.Create_Private: " ; Debug Table 0x10.0x6 = 0x44c,0x6 044e e00e | | Load 0x0,0xe 044f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0450 01cc | | Execute Vector,Catenate 0451 e00d | | Load 0x0,0xd 0452 180f | | Execute Package,Field_Execute,Field_Number 0xf 0453 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0454 0000 0000 | | .BLANK 0000[0x4] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 0092 05c2 | | Action Push_String_Extended,0x5c2 ; "Insert_Blank_Line is not yet implemented" ; Debug Table 0x11 = .DEBUG 0x045b,0x0a7c,0x0001,0x0000,0x005a,0x84f5,0x0000,0x008a ; Debug Table 0x11.0x0 = 0x45b,0x1 045d e00a | | Load 0x0,0xa 045e 180d | | Execute Package,Field_Execute,Field_Number 0xd 045f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 0092 05c3 | | Action Push_String_Extended,0x5c3 ; "Delete_Blank_Line is not yet implemented" ; Debug Table 0x12 = .DEBUG 0x0463,0x0a80,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0093 ; Debug Table 0x12.0x0 = 0x463,0x1 0465 e00a | | Load 0x0,0xa 0466 180d | | Execute Package,Field_Execute,Field_Number 0xd 0467 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b e5fc | | Load 0x2,-0x4 ; Debug Table 0x13 = .DEBUG 0x046b,0x0a84,0x0001,0x0000,0x005a,0x84f5,0x0000,0x009c ; Debug Table 0x13.0x0 = 0x46b,0x1 046c e5fd | | Load 0x2,-0x3 046d e5fe | | Load 0x2,-0x2 046e e5ff | | Load 0x2,-0x1 046f 8019 | | Call 0x0,0x19 0470 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0471 0000 0000 | | .BLANK 0000[0x7] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047b | { | .CONST 0x047b ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0001 | | .CONST 0x0001 ; Number of locals 047b BODY_0478: 047b INIT_0478: 047b 4801 |H | Short_Literal 0x1 ; Debug Table 0x14 = .DEBUG 0x047b,0x0a88,0x0002,0x0000,0x005a,0x8aa5,0x0000,0x0078 ; Debug Table 0x14.0x0 = 0x47b,0x1 047c 0092 05c4 | | Action Push_String_Extended,0x5c4 ; "ADA" 047e e008 | | Load 0x0,0x8 047f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0480 e01a | | Load 0x0,0x1a 0481 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0482 00ca | | Action Exit_Nullary_Function 0483 0000 0000 | | .BLANK 0000[0x5] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 0496 | | .CONST 0x0496 ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0005 | | .CONST 0x0005 ; Number of locals 048b INIT_0488: 048b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x15 = .DEBUG 0x048b,0x0a8c,0x0002,0x0000,0x005a,0x8aa5,0x0000,0x0092 ; Debug Table 0x15.0x0 = 0x48b,0xffff 048c e002 | | Load 0x0,0x2 ; Debug Table 0x15.0x1 = 0x48c,0xfffe 048d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 048e 02c7 | | Declare_Variable Any 048f 00d8 | | Load_Top At_Offset_0 0490 1c00 | | Execute_Immediate Run_Utility,0x0 0491 e002 | | Load 0x0,0x2 ; Debug Table 0x15.0x2 = 0x491,0xfffd 0492 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0493 e002 | | Load 0x0,0x2 ; Debug Table 0x15.0x3 = 0x493,0xfffc 0494 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0495 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0496 BODY_0488: 0496 0007 | | Action Break_Optional ; Debug Table 0x15.0x4 = 0x496,0x1 0497 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x15.0x5 = 0x497,0x401 0498 a402 | | Store_Unchecked 0x2,0x2 ; Debug Table 0x15.0x6 = 0x498,0x1 0499 e002 | | Load 0x0,0x2 ; Debug Table 0x15.0x7 = 0x499,0x2 049a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 049b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 049c e002 | | Load 0x0,0x2 049d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 049e e007 | | Load 0x0,0x7 049f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04a0 4800 |H | Short_Literal 0x0 04a1 e008 | | Load 0x0,0x8 04a2 180e | | Execute Package,Field_Execute,Field_Number 0xe 04a3 c402 | | Store 0x2,0x2 04a4 0059 | Y | Store_Top Discrete,At_Offset_1 04a5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x8 = 0x4a5,0x3 04a6 460e |F | Jump_Case 0xf 04a7 780e |x | Jump 0x4b6 ; case 0x0 04a8 780f |x | Jump 0x4b8 ; case 0x1 04a9 780e |x | Jump 0x4b8 ; case 0x2 04aa 780d |x | Jump 0x4b8 ; case 0x3 04ab 780c |x | Jump 0x4b8 ; case 0x4 04ac 780b |x | Jump 0x4b8 ; case 0x5 04ad 780a |x | Jump 0x4b8 ; case 0x6 04ae 7809 |x | Jump 0x4b8 ; case 0x7 04af 7808 |x | Jump 0x4b8 ; case 0x8 04b0 780a |x | Jump 0x4bb ; case 0x9 04b1 7806 |x | Jump 0x4b8 ; case 0xa 04b2 7808 |x | Jump 0x4bb ; case 0xb 04b3 7804 |x | Jump 0x4b8 ; case 0xc 04b4 7803 |x | Jump 0x4b8 ; case 0xd 04b5 7802 |x | Jump 0x4b8 ; case 0xe 04b6 00db | | Load_Top At_Offset_3 ; Debug Table 0x15.0x9 = 0x4b6,0x4 04b7 00ca | | Action Exit_Nullary_Function 04b8 0007 | | Action Break_Optional ; Debug Table 0x15.0xa = 0x4b8,0x6 04b9 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x15.0xb = 0x4b9,0x801 04ba 00ca | | Action Exit_Nullary_Function ; Debug Table 0x15.0xc = 0x4ba,0x6 04bb e002 | | Load 0x0,0x2 ; Debug Table 0x15.0xd = 0x4bb,0x7 04bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04be 00db | | Load_Top At_Offset_3 04bf 0120 | | Execute Any,Is_Value 04c0 6803 |h | Jump_Zero 0x4c4 04c1 e002 | | Load 0x0,0x2 04c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04c3 7801 |x | Jump 0x4c5 04c4 00db | | Load_Top At_Offset_3 04c5 e007 | | Load 0x0,0x7 04c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04c7 4800 |H | Short_Literal 0x0 04c8 e002 | | Load 0x0,0x2 04c9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 04ca 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04cb e008 | | Load 0x0,0x8 04cc 180f | | Execute Package,Field_Execute,Field_Number 0xf 04cd c403 | | Store 0x2,0x3 04ce 0059 | Y | Store_Top Discrete,At_Offset_1 04cf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0xe = 0x4cf,0x8 04d0 0b00 | | Execute_Immediate Case_Compare,0x0 04d1 7003 |p | Jump_Nonzero 0x4d5 04d2 0007 | | Action Break_Optional ; Debug Table 0x15.0xf = 0x4d2,0xb 04d3 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x15.0x10 = 0x4d3,0xc01 04d4 00ca | | Action Exit_Nullary_Function ; Debug Table 0x15.0x11 = 0x4d4,0xb 04d5 e002 | | Load 0x0,0x2 ; Debug Table 0x15.0x12 = 0x4d5,0x9 04d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d7 e002 | | Load 0x0,0x2 04d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04d9 6742 |gB | Indirect_Literal Discrete,0x41c,{0x00000000, 0x00004000} 04da e012 | | Load 0x0,0x12 04db 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04dc 4800 |H | Short_Literal 0x0 04dd e403 | | Load 0x2,0x3 04de e002 | | Load 0x0,0x2 04df 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 04e0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04e1 c402 | | Store 0x2,0x2 04e2 005b | [ | Store_Top Discrete,At_Offset_3 04e3 e402 | | Load 0x2,0x2 ; Debug Table 0x15.0x13 = 0x4e3,0xa 04e4 00ca | | Action Exit_Nullary_Function 04e5 0000 0000 | | .XXX[0x3] 04e7 0000 | | 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04f3 | | .CONST 0x04f3 ; Address of begin 04e9 0570 | p | .CONST 0x0570 ; Address of exception handler 04ea 0005 | | .CONST 0x0005 ; Number of locals 04eb INIT_04e8: 04eb 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x16 = .DEBUG 0x04eb,0x0ab6,0x0001,0x0000,0x005a,0x8aa5,0x0000,0x0119 ; Debug Table 0x16.0x0 = 0x4eb,0xffff 04ec 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x16.0x1 = 0x4ec,0xfffe 04ed 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x16.0x2 = 0x4ed,0xfffd 04ee e003 | | Load 0x0,0x3 ; Debug Table 0x16.0x3 = 0x4ee,0xfffc 04ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04f0 0322 | " | Declare_Variable Record 04f1 00d8 | | Load_Top At_Offset_0 04f2 1c00 | | Execute_Immediate Run_Utility,0x0 04f3 BODY_04e8: 04f3 821f | | Call 0x1,0x1f ; Debug Table 0x16.0x4 = 0x4f3,0x1 04f4 6823 |h# | Jump_Zero 0x518 04f5 0007 | | Action Break_Optional ; Debug Table 0x16.0x5 = 0x4f5,0x2 04f6 e006 | | Load 0x0,0x6 ; Debug Table 0x16.0x6 = 0x4f6,0xfbff 04f7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 04f8 0322 | " | Declare_Variable Record 04f9 e006 | | Load 0x0,0x6 ; Debug Table 0x16.0x7 = 0x4f9,0xfbfe 04fa 1b18 | | Execute Package,Field_Read,Field_Number 0x18 04fb 0322 | " | Declare_Variable Record 04fc 00d8 | | Load_Top At_Offset_0 04fd 1c00 | | Execute_Immediate Run_Utility,0x0 04fe e006 | | Load 0x0,0x6 ; Debug Table 0x16.0x8 = 0x4fe,0xfbfd 04ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0500 00db | | Load_Top At_Offset_3 ; Debug Table 0x16.0x9 = 0x500,0x401 0501 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0502 00da | | Load_Top At_Offset_2 0503 e406 | | Load 0x2,0x6 0504 e006 | | Load 0x0,0x6 0505 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0506 e005 | | Load 0x0,0x5 0507 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0508 4801 |H | Short_Literal 0x1 0509 e006 | | Load 0x0,0x6 050a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 050b e006 | | Load 0x0,0x6 050c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 050d c408 | | Store 0x2,0x8 050e 00d3 | | Pop_Control Pop_Count_3 050f 00da | | Load_Top At_Offset_2 ; Debug Table 0x16.0xa = 0x50f,0x402 0510 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0511 e405 | | Load 0x2,0x5 0512 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0513 00da | | Load_Top At_Offset_2 ; Debug Table 0x16.0xb = 0x513,0x403 0514 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0515 c404 | | Store 0x2,0x4 0516 00d3 | | Pop_Control Pop_Count_3 0517 784a |xJ | Jump 0x562 0518 0007 | | Action Break_Optional ; Debug Table 0x16.0xc = 0x518,0x3 0519 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x16.0xd = 0x519,0xf7ff 051a 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x16.0xe = 0x51a,0xf7fe 051b e006 | | Load 0x0,0x6 ; Debug Table 0x16.0xf = 0x51b,0x801 051c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 051d 00db | | Load_Top At_Offset_3 051e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 051f 8220 | | Call 0x1,0x20 ; Debug Table 0x16.0x10 = 0x51f,0x802 0520 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0521 0007 | | Action Break_Optional ; Debug Table 0x16.0x11 = 0x521,0x803 0522 e406 | | Load 0x2,0x6 ; Debug Table 0x16.0x12 = 0x522,0xc01 0523 0007 | | Action Break_Optional 0524 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x16.0x13 = 0x524,0xc02 0525 0007 | | Action Break_Optional ; Debug Table 0x16.0x14 = 0x525,0xc03 0526 0007 | | Action Break_Optional ; Debug Table 0x16.0x15 = 0x526,0xc04 0527 0b00 | | Execute_Immediate Case_Compare,0x0 ; Debug Table 0x16.0x16 = 0x527,0x803 0528 7024 |p$ | Jump_Nonzero 0x54d 0529 0b39 | 9 | Execute_Immediate Case_Compare,0x39 052a 7027 |p' | Jump_Nonzero 0x552 052b 0b30 | 0 | Execute_Immediate Case_Compare,0x30 052c 7025 |p% | Jump_Nonzero 0x552 052d 00da | | Load_Top At_Offset_2 ; Debug Table 0x16.0x17 = 0x52d,0x809 052e e009 | | Load 0x0,0x9 052f 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0530 7004 |p | Jump_Nonzero 0x535 0531 00da | | Load_Top At_Offset_2 0532 e009 | | Load 0x0,0x9 0533 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0534 6826 |h& | Jump_Zero 0x55b 0535 00da | | Load_Top At_Offset_2 ; Debug Table 0x16.0x18 = 0x535,0x80a 0536 00eb | | Load_Encached Diana_Cache 0537 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0538 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0539 0007 | | Action Break_Optional ; Debug Table 0x16.0x19 = 0x539,0x80b 053a e407 | | Load 0x2,0x7 ; Debug Table 0x16.0x1a = 0x53a,0x1001 053b 0007 | | Action Break_Optional 053c 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x16.0x1b = 0x53c,0x1002 053d 0007 | | Action Break_Optional ; Debug Table 0x16.0x1c = 0x53d,0x1003 053e 0007 | | Action Break_Optional ; Debug Table 0x16.0x1d = 0x53e,0x1004 053f 0ba8 | | Execute_Immediate Case_Compare,0xa8 ; Debug Table 0x16.0x1e = 0x53f,0x80b 0540 7003 |p | Jump_Nonzero 0x544 0541 0b49 | I | Execute_Immediate Case_Compare,0x49 0542 7004 |p | Jump_Nonzero 0x547 0543 7807 |x | Jump 0x54b ; Debug Table 0x16.0x1f = 0x543,0x80e 0544 00da | | Load_Top At_Offset_2 ; Debug Table 0x16.0x20 = 0x544,0x80c 0545 a406 | | Store_Unchecked 0x2,0x6 0546 7804 |x | Jump 0x54b 0547 00da | | Load_Top At_Offset_2 ; Debug Table 0x16.0x21 = 0x547,0x80d 0548 00eb | | Load_Encached Diana_Cache 0549 18ec | | Execute Package,Field_Execute,Field_Number 0xec 054a a406 | | Store_Unchecked 0x2,0x6 054b 00d1 | | Pop_Control Pop_Count_1 054c 780e |x | Jump 0x55b 054d 0092 05a0 | | Action Push_String_Extended,0x5a0 ; "Command failed - no selection" ; Debug Table 0x16.0x22 = 0x54d,0x804 054f e00a | | Load 0x0,0xa 0550 180d | | Execute Package,Field_Execute,Field_Number 0xd 0551 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x16.0x23 = 0x551,0x805 0552 00da | | Load_Top At_Offset_2 ; Debug Table 0x16.0x24 = 0x552,0x806 0553 e00b | | Load 0x0,0xb 0554 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0555 6805 |h | Jump_Zero 0x55b 0556 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "Command failed - not an ada object" ; Debug Table 0x16.0x25 = 0x556,0x807 0558 e00a | | Load 0x0,0xa 0559 180d | | Execute Package,Field_Execute,Field_Number 0xd 055a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x16.0x26 = 0x55a,0x808 055b 00d1 | | Pop_Control Pop_Count_1 055c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x16.0x27 = 0x55c,0x80f 055d 00db | | Load_Top At_Offset_3 055e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 055f 4801 |H | Short_Literal 0x1 ; Debug Table 0x16.0x28 = 0x55f,0x810 0560 a404 | | Store_Unchecked 0x2,0x4 0561 00d2 | | Pop_Control Pop_Count_2 0562 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x16.0x29 = 0x562,0x4 0563 00ec | | Load_Encached Diana_Tree_Cache 0564 00db | | Load_Top At_Offset_3 0565 e5ff | | Load 0x2,-0x1 0566 e405 | | Load 0x2,0x5 0567 e003 | | Load 0x0,0x3 0568 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0569 c403 | | Store 0x2,0x3 056a c402 | | Store 0x2,0x2 056b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x16.0x2a = 0x56b,0x5 056c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 056d e006 | | Load 0x0,0x6 056e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 056f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0570 TRAP_04e8: 0570 0007 | | Action Break_Optional 0571 e00d | | Load 0x0,0xd ; Debug Table 0x16.0x2b = 0x571,0x6 0572 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0573 0092 05c5 | | Action Push_String_Extended,0x5c5 ; "*** Exception in Ada.Change_State: " ; Debug Table 0x16.0x2c = 0x573,0x7 0575 e00e | | Load 0x0,0xe 0576 180d | | Execute Package,Field_Execute,Field_Number 0xd 0577 01cc | | Execute Vector,Catenate 0578 e00d | | Load 0x0,0xd 0579 180f | | Execute Package,Field_Execute,Field_Number 0xf 057a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x16.0x2d = 0x57a,0x8 057b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 057c e006 | | Load 0x0,0x6 057d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 057e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 057f 0000 | | .XXX[0x1] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0583 | | .CONST 0x0583 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0001 | | .CONST 0x0001 ; Number of locals 0583 BODY_0580: 0583 INIT_0580: 0583 00da | | Load_Top At_Offset_2 ; Debug Table 0x17 = .DEBUG 0x0583,0x0b14,0x0002,0x0000,0x005a,0x8aa5,0x0000,0x0244 ; Debug Table 0x17.0x0 = 0x583,0x1 0584 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0585 7002 |p | Jump_Nonzero 0x588 0586 4801 |H | Short_Literal 0x1 ; Debug Table 0x17.0x1 = 0x586,0x2 0587 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0588 00da | | Load_Top At_Offset_2 ; Debug Table 0x17.0x2 = 0x588,0x3 0589 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 058a 00db | | Load_Top At_Offset_3 058b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 058c 027e | ~ | Execute Discrete,Not_Equal 058d 7006 |p | Jump_Nonzero 0x594 058e 00da | | Load_Top At_Offset_2 058f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0590 00db | | Load_Top At_Offset_3 0591 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0592 027e | ~ | Execute Discrete,Not_Equal 0593 6802 |h | Jump_Zero 0x596 0594 4801 |H | Short_Literal 0x1 ; Debug Table 0x17.0x3 = 0x594,0x4 0595 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0596 00da | | Load_Top At_Offset_2 ; Debug Table 0x17.0x4 = 0x596,0x5 0597 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0598 e005 | | Load 0x0,0x5 0599 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 059a 0f01 | | Execute_Immediate Equal,0x1 059b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 059c ; -------------------------------------------------------------------------------------- 059c ; STRING TABLE 059c ; -------------------------------------------------------------------------------------- 059c 0056 | V | .STRTAB 0x0056->0x05c7 ; "Ada.Code_Unit" 059d 0061 | a | .STRTAB 0x0061->0x05cd ; "Ada.Install_Unit" 059e 006f | o | .STRTAB 0x006f->0x05d5 ; "Ada.Source_Unit" 059f 007c | | | .STRTAB 0x007c->0x05dd ; "Ada.Withdraw" 05a0 0086 | | .STRTAB 0x0086->0x05e3 ; "Command failed - no selection" 05a1 00a1 | | .STRTAB 0x00a1->0x05f1 ; "Command failed - not an ada object" 05a2 00c1 | | .STRTAB 0x00c1->0x0602 ; "Withdraw" 05a3 00c7 | | .STRTAB 0x00c7->0x0606 ; "*** Exception in Ada.Withdraw: " 05a4 00e4 | | .STRTAB 0x00e4->0x0616 ; "Ada.Diana_Edit" 05a5 00f0 | | .STRTAB 0x00f0->0x061d ; "*** Exception in Ada.Diana_Edit: " 05a6 010f | | .STRTAB 0x010f->0x062d ; "Ada.Install_Stub" 05a7 011d | | .STRTAB 0x011d->0x0635 ; "*** Exception in Ada.Install_Stub: " 05a8 013e | > | .STRTAB 0x013e->0x0647 ; "Ada.Make_Inline" 05a9 014b | K | .STRTAB 0x014b->0x064e ; "<IMAGE>" 05aa 0150 | P | .STRTAB 0x0150->0x0652 ; "Make_Inline failed - unit is not an Ada object" 05ab 017c | | | .STRTAB 0x017c->0x0669 ; "*** Exception in Ada.Make_Inline: " 05ac 019c | | .STRTAB 0x019c->0x067a ; "Ada.Make_Separate" 05ad 01ab | | .STRTAB 0x01ab->0x0682 ; "*** Exception in Ada.Make_Separate: " 05ae 01cd | | .STRTAB 0x01cd->0x0694 ; "Ada.Other_Part" 05af 01d9 | | .STRTAB 0x01d9->0x069b ; "Ada.Open" 05b0 01df | | .STRTAB 0x01df->0x069f ; "Other_Part" 05b1 01e7 | | .STRTAB 0x01e7->0x06a4 ; "Ada.Get_Unit" 05b2 01f1 | | .STRTAB 0x01f1->0x06aa ; "Other part failed - not found" 05b3 020c | | .STRTAB 0x020c->0x06b9 ; "*** Exception in Ada.Other_Part: " 05b4 022b | + | .STRTAB 0x022b->0x06c9 ; "Ada.Replace_Id" 05b5 0237 | 7 | .STRTAB 0x0237->0x06d0 ; "Ada.Show_Usage" 05b6 0243 | C | .STRTAB 0x0243->0x06d7 ; "*** Exception in Ada.Show_Usage: " 05b7 0262 | b | .STRTAB 0x0262->0x06e8 ; "Ada.Show_Unused" 05b8 026f | o | .STRTAB 0x026f->0x06ef ; "*** Exception in Ada.Show_Unused: " 05b9 028f | | .STRTAB 0x028f->0x0700 ; "Ada.Create_Body" 05ba 029c | | .STRTAB 0x029c->0x0708 ; "*** Exception in Ada.Create_Body: " 05bb 02bc | | .STRTAB 0x02bc->0x0719 ; "Ada.Create_Private" 05bc 02cc | | .STRTAB 0x02cc->0x0722 ; "Ada.Create_Private_Part" 05bd 02e1 | | .STRTAB 0x02e1->0x072d ; "Private_Part failed - no visible part selected" 05be 030d | | .STRTAB 0x030d->0x0744 ; "Private_Part failed - " 05bf 0321 | ! | .STRTAB 0x0321->0x074f ; " must be source" 05c0 032e | . | .STRTAB 0x032e->0x0757 ; "*** Exception in Ada.Create_Private: " 05c1 0351 | Q | .STRTAB 0x0351->0x0769 ; "Ada.Get_Errors" 05c2 035d | ] | .STRTAB 0x035d->0x0770 ; "Insert_Blank_Line is not yet implemented" 05c3 0383 | | .STRTAB 0x0383->0x0784 ; "Delete_Blank_Line is not yet implemented" 05c4 03a9 | | .STRTAB 0x03a9->0x0798 ; "ADA" 05c5 03aa | | .STRTAB 0x03aa->0x079a ; "*** Exception in Ada.Change_State: " 05c6 03cb | | .STREND 0x03cb->0x07ab 05c7 4164 612e |Ada.| .STRTAB_STRINGS 07ac 0000 0000 | | .BLANK 0000[0x4] 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; Debug Table 07b0 ; -------------------------------------------------------------------------------------- 07b0 0003 0018 | | .CONST 0x0003,0x0018 07b2 000b 0872 | r| .DEBUG 0x000b,0x0872,0x8000,0x0000,0x005a,0x84f5,0x0000,0x0003 07ba 0033 08a0 | 3 | .DEBUG 0x0033,0x08a0,0x8000,0x0000,0x005a,0x8aa5,0x0000,0x003b 07c2 0073 08de | s | .DEBUG 0x0073,0x08de,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0008 07ca 0083 08e4 | | .DEBUG 0x0083,0x08e4,0x0001,0x0000,0x005a,0x84f5,0x0000,0x000c 07d2 0093 08ea | | .DEBUG 0x0093,0x08ea,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0010 07da 00a3 08f0 | | .DEBUG 0x00a3,0x08f0,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0014 07e2 015b 094a | [ J| .DEBUG 0x015b,0x094a,0x0001,0x0000,0x005a,0x84f5,0x0000,0x001d 07ea 018b 0962 | b| .DEBUG 0x018b,0x0962,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0026 07f2 01bb 0974 | t| .DEBUG 0x01bb,0x0974,0x0001,0x0000,0x005a,0x84f5,0x0000,0x002a 07fa 0203 09a0 | | .DEBUG 0x0203,0x09a0,0x0001,0x0000,0x005a,0x84f5,0x0000,0x002e 0802 0243 09b8 | C | .DEBUG 0x0243,0x09b8,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0032 080a 0363 0a1c | c | .DEBUG 0x0363,0x0a1c,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0040 0812 0373 0a22 | s "| .DEBUG 0x0373,0x0a22,0x0001,0x0000,0x005a,0x84f5,0x0000,0x004e 081a 0393 0a2c | ,| .DEBUG 0x0393,0x0a2c,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0066 0822 03ab 0a36 | 6| .DEBUG 0x03ab,0x0a36,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0074 082a 03c3 0a40 | @| .DEBUG 0x03c3,0x0a40,0x0001,0x0000,0x005a,0x84f5,0x0000,0x007d 0832 042b 0a6c | + l| .DEBUG 0x042b,0x0a6c,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0086 083a 045b 0a7c | [ || .DEBUG 0x045b,0x0a7c,0x0001,0x0000,0x005a,0x84f5,0x0000,0x008a 0842 0463 0a80 | c | .DEBUG 0x0463,0x0a80,0x0001,0x0000,0x005a,0x84f5,0x0000,0x0093 084a 046b 0a84 | k | .DEBUG 0x046b,0x0a84,0x0001,0x0000,0x005a,0x84f5,0x0000,0x009c 0852 047b 0a88 | { | .DEBUG 0x047b,0x0a88,0x0002,0x0000,0x005a,0x8aa5,0x0000,0x0078 085a 048b 0a8c | | .DEBUG 0x048b,0x0a8c,0x0002,0x0000,0x005a,0x8aa5,0x0000,0x0092 0862 04eb 0ab6 | | .DEBUG 0x04eb,0x0ab6,0x0001,0x0000,0x005a,0x8aa5,0x0000,0x0119 086a 0583 0b14 | | .DEBUG 0x0583,0x0b14,0x0002,0x0000,0x005a,0x8aa5,0x0000,0x0244 0872 ; -------------------------------------------------------------------------------------- 0872 ; Debug3 Subtable 0x0 0872 ; -------------------------------------------------------------------------------------- 0872 0016 0000 | | .DBG3TAB 0x0016,0x0000 0874 000b ffff | | .CONST 0x000b,0xffff 0876 000c fffe | | .CONST 0x000c,0xfffe 0878 000e fffd | | .CONST 0x000e,0xfffd 087a 0010 fffc | | .CONST 0x0010,0xfffc 087c 0012 fffb | | .CONST 0x0012,0xfffb 087e 0014 fffa | | .CONST 0x0014,0xfffa 0880 0016 fff9 | | .CONST 0x0016,0xfff9 0882 0018 fff8 | | .CONST 0x0018,0xfff8 0884 001a fff7 | | .CONST 0x001a,0xfff7 0886 001c fff6 | | .CONST 0x001c,0xfff6 0888 001e fff5 | | .CONST 0x001e,0xfff5 088a 0020 fff4 | | .CONST 0x0020,0xfff4 088c 0022 fff3 | " | .CONST 0x0022,0xfff3 088e 0024 fff2 | $ | .CONST 0x0024,0xfff2 0890 0026 fff1 | & | .CONST 0x0026,0xfff1 0892 0028 fff0 | ( | .CONST 0x0028,0xfff0 0894 002a ffef | * | .CONST 0x002a,0xffef 0896 002c ffee | , | .CONST 0x002c,0xffee 0898 002e ffed | . | .CONST 0x002e,0xffed 089a 0030 ffec | 0 | .CONST 0x0030,0xffec 089c 0031 ffeb | 1 | .CONST 0x0031,0xffeb 089e 0032 ffea | 2 | .CONST 0x0032,0xffea 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; Debug3 Subtable 0x1 08a0 ; -------------------------------------------------------------------------------------- 08a0 001e 0000 | | .DBG3TAB 0x001e,0x0000 08a2 0033 ffff | 3 | .CONST 0x0033,0xffff 08a4 0034 fffe | 4 | .CONST 0x0034,0xfffe 08a6 0035 fffd | 5 | .CONST 0x0035,0xfffd 08a8 0036 fffc | 6 | .CONST 0x0036,0xfffc 08aa 0037 fffb | 7 | .CONST 0x0037,0xfffb 08ac 0038 fffa | 8 | .CONST 0x0038,0xfffa 08ae 0039 fff9 | 9 | .CONST 0x0039,0xfff9 08b0 003a fff8 | : | .CONST 0x003a,0xfff8 08b2 003b fff7 | ; | .CONST 0x003b,0xfff7 08b4 003d fff6 | = | .CONST 0x003d,0xfff6 08b6 003f fff5 | ? | .CONST 0x003f,0xfff5 08b8 0041 fff4 | A | .CONST 0x0041,0xfff4 08ba 0043 fff3 | C | .CONST 0x0043,0xfff3 08bc 0045 fff2 | E | .CONST 0x0045,0xfff2 08be 0047 fff1 | G | .CONST 0x0047,0xfff1 08c0 0049 fff0 | I | .CONST 0x0049,0xfff0 08c2 004b ffef | K | .CONST 0x004b,0xffef 08c4 004d ffee | M | .CONST 0x004d,0xffee 08c6 004f ffed | O | .CONST 0x004f,0xffed 08c8 0051 ffec | Q | .CONST 0x0051,0xffec 08ca 0053 ffeb | S | .CONST 0x0053,0xffeb 08cc 0055 ffea | U | .CONST 0x0055,0xffea 08ce 0057 ffe9 | W | .CONST 0x0057,0xffe9 08d0 0059 ffe8 | Y | .CONST 0x0059,0xffe8 08d2 005b ffe7 | [ | .CONST 0x005b,0xffe7 08d4 005d ffe6 | ] | .CONST 0x005d,0xffe6 08d6 005f ffe5 | _ | .CONST 0x005f,0xffe5 08d8 0061 ffe4 | a | .CONST 0x0061,0xffe4 08da 0063 ffe3 | c | .CONST 0x0063,0xffe3 08dc 0065 ffe2 | e | .CONST 0x0065,0xffe2 08de ; -------------------------------------------------------------------------------------- 08de ; Debug3 Subtable 0x2 08de ; -------------------------------------------------------------------------------------- 08de 0000 0002 | | .DBG3TAB 0x0000,0x0002 08e0 0073 0001 | s | .CONST 0x0073,0x0001 08e2 0077 0002 | w | .CONST 0x0077,0x0002 08e4 ; -------------------------------------------------------------------------------------- 08e4 ; Debug3 Subtable 0x3 08e4 ; -------------------------------------------------------------------------------------- 08e4 0000 0002 | | .DBG3TAB 0x0000,0x0002 08e6 0083 0001 | | .CONST 0x0083,0x0001 08e8 0087 0002 | | .CONST 0x0087,0x0002 08ea ; -------------------------------------------------------------------------------------- 08ea ; Debug3 Subtable 0x4 08ea ; -------------------------------------------------------------------------------------- 08ea 0000 0002 | | .DBG3TAB 0x0000,0x0002 08ec 0093 0001 | | .CONST 0x0093,0x0001 08ee 0097 0002 | | .CONST 0x0097,0x0002 08f0 ; -------------------------------------------------------------------------------------- 08f0 ; Debug3 Subtable 0x5 08f0 ; -------------------------------------------------------------------------------------- 08f0 0005 0027 | '| .DBG3TAB 0x0005,0x0027 08f2 00a3 ffff | | .CONST 0x00a3,0xffff 08f4 00a6 fffe | | .CONST 0x00a6,0xfffe 08f6 00a7 fffd | | .CONST 0x00a7,0xfffd 08f8 00a8 fffc | | .CONST 0x00a8,0xfffc 08fa 00ad fffb | | .CONST 0x00ad,0xfffb 08fc 00b3 0001 | | .CONST 0x00b3,0x0001 08fe 00b7 0002 | | .CONST 0x00b7,0x0002 0900 00be 0003 | | .CONST 0x00be,0x0003 0902 00c0 0004 | | .CONST 0x00c0,0x0004 0904 00ce 0005 | | .CONST 0x00ce,0x0005 0906 00d2 0006 | | .CONST 0x00d2,0x0006 0908 00de 0007 | | .CONST 0x00de,0x0007 090a 00df 0401 | | .CONST 0x00df,0x0401 090c 00e1 0402 | | .CONST 0x00e1,0x0402 090e 00e2 0403 | | .CONST 0x00e2,0x0403 0910 00e3 0404 | | .CONST 0x00e3,0x0404 0912 00e4 0007 | | .CONST 0x00e4,0x0007 0914 00ea 000d | | .CONST 0x00ea,0x000d 0916 00f2 000e | | .CONST 0x00f2,0x000e 0918 00f6 000f | | .CONST 0x00f6,0x000f 091a 00f7 0801 | | .CONST 0x00f7,0x0801 091c 00f9 0802 | | .CONST 0x00f9,0x0802 091e 00fa 0803 | | .CONST 0x00fa,0x0803 0920 00fb 0804 | | .CONST 0x00fb,0x0804 0922 00fc 000f | | .CONST 0x00fc,0x000f 0924 0100 0012 | | .CONST 0x0100,0x0012 0926 0101 0010 | | .CONST 0x0101,0x0010 0928 0104 0011 | | .CONST 0x0104,0x0011 092a 010a 0008 | | .CONST 0x010a,0x0008 092c 010e 0009 | | .CONST 0x010e,0x0009 092e 010f 000a | | .CONST 0x010f,0x000a 0930 0113 000b | | .CONST 0x0113,0x000b 0932 0117 000c | | .CONST 0x0117,0x000c 0934 0119 0013 | | .CONST 0x0119,0x0013 0936 011d 0014 | | .CONST 0x011d,0x0014 0938 0121 0015 | ! | .CONST 0x0121,0x0015 093a 012f 0016 | / | .CONST 0x012f,0x0016 093c 0132 0c01 | 2 | .CONST 0x0132,0x0c01 093e 0136 0016 | 6 | .CONST 0x0136,0x0016 0940 0137 0017 | 7 | .CONST 0x0137,0x0017 0942 013d 0018 | = | .CONST 0x013d,0x0018 0944 0143 0019 | C | .CONST 0x0143,0x0019 0946 0145 001a | E | .CONST 0x0145,0x001a 0948 014c 001b | L | .CONST 0x014c,0x001b 094a ; -------------------------------------------------------------------------------------- 094a ; Debug3 Subtable 0x6 094a ; -------------------------------------------------------------------------------------- 094a 0001 000a | | .DBG3TAB 0x0001,0x000a 094c 015b ffff | [ | .CONST 0x015b,0xffff 094e 015c 0001 | \ | .CONST 0x015c,0x0001 0950 0160 0002 | ` | .CONST 0x0160,0x0002 0952 016d 0003 | m | .CONST 0x016d,0x0003 0954 016e 0401 | n | .CONST 0x016e,0x0401 0956 0170 0003 | p | .CONST 0x0170,0x0003 0958 0171 0004 | q | .CONST 0x0171,0x0004 095a 0172 0005 | r | .CONST 0x0172,0x0005 095c 0179 0006 | y | .CONST 0x0179,0x0006 095e 017a 0007 | z | .CONST 0x017a,0x0007 0960 017c 0008 | | | .CONST 0x017c,0x0008 0962 ; -------------------------------------------------------------------------------------- 0962 ; Debug3 Subtable 0x7 0962 ; -------------------------------------------------------------------------------------- 0962 0001 0007 | | .DBG3TAB 0x0001,0x0007 0964 018b ffff | | .CONST 0x018b,0xffff 0966 018c 0001 | | .CONST 0x018c,0x0001 0968 0190 0002 | | .CONST 0x0190,0x0002 096a 0198 0003 | | .CONST 0x0198,0x0003 096c 01a1 0004 | | .CONST 0x01a1,0x0004 096e 01a8 0006 | | .CONST 0x01a8,0x0006 0970 01a9 0007 | | .CONST 0x01a9,0x0007 0972 01ab 0008 | | .CONST 0x01ab,0x0008 0974 ; -------------------------------------------------------------------------------------- 0974 ; Debug3 Subtable 0x8 0974 ; -------------------------------------------------------------------------------------- 0974 0003 0012 | | .DBG3TAB 0x0003,0x0012 0976 01bb ffff | | .CONST 0x01bb,0xffff 0978 01bc fffe | | .CONST 0x01bc,0xfffe 097a 01bd fffd | | .CONST 0x01bd,0xfffd 097c 01be 0001 | | .CONST 0x01be,0x0001 097e 01c2 0002 | | .CONST 0x01c2,0x0002 0980 01cf 0003 | | .CONST 0x01cf,0x0003 0982 01d0 0401 | | .CONST 0x01d0,0x0401 0984 01d2 0003 | | .CONST 0x01d2,0x0003 0986 01d3 0004 | | .CONST 0x01d3,0x0004 0988 01d7 0005 | | .CONST 0x01d7,0x0005 098a 01d8 0006 | | .CONST 0x01d8,0x0006 098c 01db 0801 | | .CONST 0x01db,0x0801 098e 01df 0006 | | .CONST 0x01df,0x0006 0990 01e0 0007 | | .CONST 0x01e0,0x0007 0992 01e4 0008 | | .CONST 0x01e4,0x0008 0994 01e6 0c01 | | .CONST 0x01e6,0x0c01 0996 01e8 0008 | | .CONST 0x01e8,0x0008 0998 01e9 0009 | | .CONST 0x01e9,0x0009 099a 01f5 000a | | .CONST 0x01f5,0x000a 099c 01f6 000b | | .CONST 0x01f6,0x000b 099e 01f8 000c | | .CONST 0x01f8,0x000c 09a0 ; -------------------------------------------------------------------------------------- 09a0 ; Debug3 Subtable 0x9 09a0 ; -------------------------------------------------------------------------------------- 09a0 0003 0008 | | .DBG3TAB 0x0003,0x0008 09a2 0203 ffff | | .CONST 0x0203,0xffff 09a4 0204 fffe | | .CONST 0x0204,0xfffe 09a6 0209 fffd | | .CONST 0x0209,0xfffd 09a8 020e 0001 | | .CONST 0x020e,0x0001 09aa 0212 0002 | | .CONST 0x0212,0x0002 09ac 021d 0003 | | .CONST 0x021d,0x0003 09ae 0221 0004 | ! | .CONST 0x0221,0x0004 09b0 0225 0005 | % | .CONST 0x0225,0x0005 09b2 0231 0006 | 1 | .CONST 0x0231,0x0006 09b4 0232 0007 | 2 | .CONST 0x0232,0x0007 09b6 0234 0008 | 4 | .CONST 0x0234,0x0008 09b8 ; -------------------------------------------------------------------------------------- 09b8 ; Debug3 Subtable 0xa 09b8 ; -------------------------------------------------------------------------------------- 09b8 000d 0024 | $| .DBG3TAB 0x000d,0x0024 09ba 0243 ffff | C | .CONST 0x0243,0xffff 09bc 0244 fffe | D | .CONST 0x0244,0xfffe 09be 0249 fffd | I | .CONST 0x0249,0xfffd 09c0 024a fffc | J | .CONST 0x024a,0xfffc 09c2 024f fffb | O | .CONST 0x024f,0xfffb 09c4 0251 fffa | Q | .CONST 0x0251,0xfffa 09c6 0254 fff9 | T | .CONST 0x0254,0xfff9 09c8 0256 fff8 | V | .CONST 0x0256,0xfff8 09ca 0258 fff7 | X | .CONST 0x0258,0xfff7 09cc 025e fff6 | ^ | .CONST 0x025e,0xfff6 09ce 0264 fff5 | d | .CONST 0x0264,0xfff5 09d0 026a fff4 | j | .CONST 0x026a,0xfff4 09d2 026f fff3 | o | .CONST 0x026f,0xfff3 09d4 0275 0001 | u | .CONST 0x0275,0x0001 09d6 0279 0002 | y | .CONST 0x0279,0x0002 09d8 027b 0003 | { | .CONST 0x027b,0x0003 09da 0282 0004 | | .CONST 0x0282,0x0004 09dc 0288 0005 | | .CONST 0x0288,0x0005 09de 028b 0006 | | .CONST 0x028b,0x0006 09e0 0292 0007 | | .CONST 0x0292,0x0007 09e2 0298 0008 | | .CONST 0x0298,0x0008 09e4 02b4 0009 | | .CONST 0x02b4,0x0009 09e6 02b9 000a | | .CONST 0x02b9,0x000a 09e8 02bc 000b | | .CONST 0x02bc,0x000b 09ea 02c9 000c | | .CONST 0x02c9,0x000c 09ec 02cc 000d | | .CONST 0x02cc,0x000d 09ee 02cf 000e | | .CONST 0x02cf,0x000e 09f0 02d2 000f | | .CONST 0x02d2,0x000f 09f2 02df 0010 | | .CONST 0x02df,0x0010 09f4 02e0 0401 | | .CONST 0x02e0,0x0401 09f6 02e2 0010 | | .CONST 0x02e2,0x0010 09f8 02e3 0011 | | .CONST 0x02e3,0x0011 09fa 02e4 0012 | | .CONST 0x02e4,0x0012 09fc 02e8 0013 | | .CONST 0x02e8,0x0013 09fe 02e9 0801 | | .CONST 0x02e9,0x0801 0a00 02eb 0013 | | .CONST 0x02eb,0x0013 0a02 02ec 0014 | | .CONST 0x02ec,0x0014 0a04 02f9 0015 | | .CONST 0x02f9,0x0015 0a06 02fb 0016 | | .CONST 0x02fb,0x0016 0a08 030b 0017 | | .CONST 0x030b,0x0017 0a0a 0310 0018 | | .CONST 0x0310,0x0018 0a0c 0323 0019 | # | .CONST 0x0323,0x0019 0a0e 0325 001a | % | .CONST 0x0325,0x001a 0a10 0329 001b | ) | .CONST 0x0329,0x001b 0a12 032a 001c | * | .CONST 0x032a,0x001c 0a14 0345 001d | E | .CONST 0x0345,0x001d 0a16 034a 001e | J | .CONST 0x034a,0x001e 0a18 0352 001f | R | .CONST 0x0352,0x001f 0a1a 0354 0020 | T | .CONST 0x0354,0x0020 0a1c ; -------------------------------------------------------------------------------------- 0a1c ; Debug3 Subtable 0xb 0a1c ; -------------------------------------------------------------------------------------- 0a1c 0000 0002 | | .DBG3TAB 0x0000,0x0002 0a1e 0363 0001 | c | .CONST 0x0363,0x0001 0a20 0367 0002 | g | .CONST 0x0367,0x0002 0a22 ; -------------------------------------------------------------------------------------- 0a22 ; Debug3 Subtable 0xc 0a22 ; -------------------------------------------------------------------------------------- 0a22 0000 0004 | | .DBG3TAB 0x0000,0x0004 0a24 0373 0001 | s | .CONST 0x0373,0x0001 0a26 0377 0002 | w | .CONST 0x0377,0x0002 0a28 037f 0003 | | .CONST 0x037f,0x0003 0a2a 0381 0004 | | .CONST 0x0381,0x0004 0a2c ; -------------------------------------------------------------------------------------- 0a2c ; Debug3 Subtable 0xd 0a2c ; -------------------------------------------------------------------------------------- 0a2c 0000 0004 | | .DBG3TAB 0x0000,0x0004 0a2e 0393 0001 | | .CONST 0x0393,0x0001 0a30 0397 0002 | | .CONST 0x0397,0x0002 0a32 039e 0003 | | .CONST 0x039e,0x0003 0a34 03a0 0004 | | .CONST 0x03a0,0x0004 0a36 ; -------------------------------------------------------------------------------------- 0a36 ; Debug3 Subtable 0xe 0a36 ; -------------------------------------------------------------------------------------- 0a36 0000 0004 | | .DBG3TAB 0x0000,0x0004 0a38 03ab 0001 | | .CONST 0x03ab,0x0001 0a3a 03af 0002 | | .CONST 0x03af,0x0002 0a3c 03b3 0003 | | .CONST 0x03b3,0x0003 0a3e 03b5 0004 | | .CONST 0x03b5,0x0004 0a40 ; -------------------------------------------------------------------------------------- 0a40 ; Debug3 Subtable 0xf 0a40 ; -------------------------------------------------------------------------------------- 0a40 0002 0013 | | .DBG3TAB 0x0002,0x0013 0a42 03c3 ffff | | .CONST 0x03c3,0xffff 0a44 03c4 fffe | | .CONST 0x03c4,0xfffe 0a46 03ca 0001 | | .CONST 0x03ca,0x0001 0a48 03ce 0002 | | .CONST 0x03ce,0x0002 0a4a 03d5 0003 | | .CONST 0x03d5,0x0003 0a4c 03de 0004 | | .CONST 0x03de,0x0004 0a4e 03eb 0005 | | .CONST 0x03eb,0x0005 0a50 03ec 0401 | | .CONST 0x03ec,0x0401 0a52 03ee 0005 | | .CONST 0x03ee,0x0005 0a54 03ef 0006 | | .CONST 0x03ef,0x0006 0a56 03f0 0007 | | .CONST 0x03f0,0x0007 0a58 03f1 0801 | | .CONST 0x03f1,0x0801 0a5a 03f3 0007 | | .CONST 0x03f3,0x0007 0a5c 03f4 0008 | | .CONST 0x03f4,0x0008 0a5e 03f8 0009 | | .CONST 0x03f8,0x0009 0a60 03f9 000a | | .CONST 0x03f9,0x000a 0a62 03fe 000b | | .CONST 0x03fe,0x000b 0a64 0409 000c | | .CONST 0x0409,0x000c 0a66 040a 000d | | .CONST 0x040a,0x000d 0a68 040f 000e | | .CONST 0x040f,0x000e 0a6a 0411 000f | | .CONST 0x0411,0x000f 0a6c ; -------------------------------------------------------------------------------------- 0a6c ; Debug3 Subtable 0x10 0a6c ; -------------------------------------------------------------------------------------- 0a6c 0001 0006 | | .DBG3TAB 0x0001,0x0006 0a6e 042b ffff | + | .CONST 0x042b,0xffff 0a70 0430 0001 | 0 | .CONST 0x0430,0x0001 0a72 0434 0002 | 4 | .CONST 0x0434,0x0002 0a74 043c 0003 | < | .CONST 0x043c,0x0003 0a76 0442 0004 | B | .CONST 0x0442,0x0004 0a78 044a 0005 | J | .CONST 0x044a,0x0005 0a7a 044c 0006 | L | .CONST 0x044c,0x0006 0a7c ; -------------------------------------------------------------------------------------- 0a7c ; Debug3 Subtable 0x11 0a7c ; -------------------------------------------------------------------------------------- 0a7c 0000 0001 | | .DBG3TAB 0x0000,0x0001 0a7e 045b 0001 | [ | .CONST 0x045b,0x0001 0a80 ; -------------------------------------------------------------------------------------- 0a80 ; Debug3 Subtable 0x12 0a80 ; -------------------------------------------------------------------------------------- 0a80 0000 0001 | | .DBG3TAB 0x0000,0x0001 0a82 0463 0001 | c | .CONST 0x0463,0x0001 0a84 ; -------------------------------------------------------------------------------------- 0a84 ; Debug3 Subtable 0x13 0a84 ; -------------------------------------------------------------------------------------- 0a84 0000 0001 | | .DBG3TAB 0x0000,0x0001 0a86 046b 0001 | k | .CONST 0x046b,0x0001 0a88 ; -------------------------------------------------------------------------------------- 0a88 ; Debug3 Subtable 0x14 0a88 ; -------------------------------------------------------------------------------------- 0a88 0000 0001 | | .DBG3TAB 0x0000,0x0001 0a8a 047b 0001 | { | .CONST 0x047b,0x0001 0a8c ; -------------------------------------------------------------------------------------- 0a8c ; Debug3 Subtable 0x15 0a8c ; -------------------------------------------------------------------------------------- 0a8c 0004 0010 | | .DBG3TAB 0x0004,0x0010 0a8e 048b ffff | | .CONST 0x048b,0xffff 0a90 048c fffe | | .CONST 0x048c,0xfffe 0a92 0491 fffd | | .CONST 0x0491,0xfffd 0a94 0493 fffc | | .CONST 0x0493,0xfffc 0a96 0496 0001 | | .CONST 0x0496,0x0001 0a98 0497 0401 | | .CONST 0x0497,0x0401 0a9a 0498 0001 | | .CONST 0x0498,0x0001 0a9c 0499 0002 | | .CONST 0x0499,0x0002 0a9e 04a5 0003 | | .CONST 0x04a5,0x0003 0aa0 04b6 0004 | | .CONST 0x04b6,0x0004 0aa2 04b8 0006 | | .CONST 0x04b8,0x0006 0aa4 04b9 0801 | | .CONST 0x04b9,0x0801 0aa6 04ba 0006 | | .CONST 0x04ba,0x0006 0aa8 04bb 0007 | | .CONST 0x04bb,0x0007 0aaa 04cf 0008 | | .CONST 0x04cf,0x0008 0aac 04d2 000b | | .CONST 0x04d2,0x000b 0aae 04d3 0c01 | | .CONST 0x04d3,0x0c01 0ab0 04d4 000b | | .CONST 0x04d4,0x000b 0ab2 04d5 0009 | | .CONST 0x04d5,0x0009 0ab4 04e3 000a | | .CONST 0x04e3,0x000a 0ab6 ; -------------------------------------------------------------------------------------- 0ab6 ; Debug3 Subtable 0x16 0ab6 ; -------------------------------------------------------------------------------------- 0ab6 0009 0025 | %| .DBG3TAB 0x0009,0x0025 0ab8 04eb ffff | | .CONST 0x04eb,0xffff 0aba 04ec fffe | | .CONST 0x04ec,0xfffe 0abc 04ed fffd | | .CONST 0x04ed,0xfffd 0abe 04ee fffc | | .CONST 0x04ee,0xfffc 0ac0 04f3 0001 | | .CONST 0x04f3,0x0001 0ac2 04f5 0002 | | .CONST 0x04f5,0x0002 0ac4 04f6 fbff | | .CONST 0x04f6,0xfbff 0ac6 04f9 fbfe | | .CONST 0x04f9,0xfbfe 0ac8 04fe fbfd | | .CONST 0x04fe,0xfbfd 0aca 0500 0401 | | .CONST 0x0500,0x0401 0acc 050f 0402 | | .CONST 0x050f,0x0402 0ace 0513 0403 | | .CONST 0x0513,0x0403 0ad0 0518 0003 | | .CONST 0x0518,0x0003 0ad2 0519 f7ff | | .CONST 0x0519,0xf7ff 0ad4 051a f7fe | | .CONST 0x051a,0xf7fe 0ad6 051b 0801 | | .CONST 0x051b,0x0801 0ad8 051f 0802 | | .CONST 0x051f,0x0802 0ada 0521 0803 | ! | .CONST 0x0521,0x0803 0adc 0522 0c01 | " | .CONST 0x0522,0x0c01 0ade 0524 0c02 | $ | .CONST 0x0524,0x0c02 0ae0 0525 0c03 | % | .CONST 0x0525,0x0c03 0ae2 0526 0c04 | & | .CONST 0x0526,0x0c04 0ae4 0527 0803 | ' | .CONST 0x0527,0x0803 0ae6 052d 0809 | - | .CONST 0x052d,0x0809 0ae8 0535 080a | 5 | .CONST 0x0535,0x080a 0aea 0539 080b | 9 | .CONST 0x0539,0x080b 0aec 053a 1001 | : | .CONST 0x053a,0x1001 0aee 053c 1002 | < | .CONST 0x053c,0x1002 0af0 053d 1003 | = | .CONST 0x053d,0x1003 0af2 053e 1004 | > | .CONST 0x053e,0x1004 0af4 053f 080b | ? | .CONST 0x053f,0x080b 0af6 0543 080e | C | .CONST 0x0543,0x080e 0af8 0544 080c | D | .CONST 0x0544,0x080c 0afa 0547 080d | G | .CONST 0x0547,0x080d 0afc 054d 0804 | M | .CONST 0x054d,0x0804 0afe 0551 0805 | Q | .CONST 0x0551,0x0805 0b00 0552 0806 | R | .CONST 0x0552,0x0806 0b02 0556 0807 | V | .CONST 0x0556,0x0807 0b04 055a 0808 | Z | .CONST 0x055a,0x0808 0b06 055c 080f | \ | .CONST 0x055c,0x080f 0b08 055f 0810 | _ | .CONST 0x055f,0x0810 0b0a 0562 0004 | b | .CONST 0x0562,0x0004 0b0c 056b 0005 | k | .CONST 0x056b,0x0005 0b0e 0571 0006 | q | .CONST 0x0571,0x0006 0b10 0573 0007 | s | .CONST 0x0573,0x0007 0b12 057a 0008 | z | .CONST 0x057a,0x0008 0b14 ; -------------------------------------------------------------------------------------- 0b14 ; Debug3 Subtable 0x17 0b14 ; -------------------------------------------------------------------------------------- 0b14 0000 0005 | | .DBG3TAB 0x0000,0x0005 0b16 0583 0001 | | .CONST 0x0583,0x0001 0b18 0586 0002 | | .CONST 0x0586,0x0002 0b1a 0588 0003 | | .CONST 0x0588,0x0003 0b1c 0594 0004 | | .CONST 0x0594,0x0004 0b1e 0596 0005 | | .CONST 0x0596,0x0005 0b20 0000 0000 | | .BLANK 0000[0xe0]