|
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: 3072 (0xc00) Notes: 00_class, 5811_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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02d0 | | .CONST 0x02d0 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0065 | e | .CONST 0x0065 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0024 | $ | .CONST 0x0024 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x035a,0x8000,0x0000,0x0037,0xdb74,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0010 0129 | ) | Execute Any,Make_Visible 0011 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0x11,0xfffd 0012 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0013 0129 | ) | Execute Any,Make_Visible 0014 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x3 = 0x14,0xfffc 0015 1b44 | D | Execute Package,Field_Read,Field_Number 0x44 0016 0129 | ) | Execute Any,Make_Visible 0017 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x4 = 0x17,0xfffb 0018 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0019 0129 | ) | Execute Any,Make_Visible 001a e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x5 = 0x1a,0xfffa 001b 1b48 | H | Execute Package,Field_Read,Field_Number 0x48 001c 0129 | ) | Execute Any,Make_Visible 001d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1d,0xfff9 001f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1f,0xfff8 0021 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x8 = 0x21,0xfff7 0022 4802 |H | Short_Literal 0x2 0023 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0025 03fe | | Declare_Type Discrete,Defined,Visible 0026 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x26,0xfff6 0028 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x28,0xfff5 002a 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x2a,0xfff4 002c 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x2c,0xfff3 002e 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x2e,0xfff2 0030 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x30,0xfff1 0032 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x32,0xfff0 0034 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x34,0xffef 0036 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x11 = 0x36,0xffee 0037 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0038 0129 | ) | Execute Any,Make_Visible 0039 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x39,0xffed 003b 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x3b,0xffec 003c 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x3c,0xffeb 003d 00bf | | Action Accept_Activation ; Debug Table 0x0.0x15 = 0x3d,0xffea 003e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x003e,0x0388,0x8000,0x0000,0x0037,0xdc64,0x0000,0x0011 ; Debug Table 0x1.0x0 = 0x3e,0xffff 003f 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x3f,0xfffe 0040 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x40,0xfffd 0041 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0042 190f | | Execute Package,Field_Reference,Field_Number 0xf 0043 0007 | | Action Break_Optional 0044 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x44,0xfffc 0045 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0046 190e | | Execute Package,Field_Reference,Field_Number 0xe 0047 0007 | | Action Break_Optional 0048 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call ; Debug Table 0x1.0x4 = 0x48,0xfffb 004a 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call ; Debug Table 0x1.0x5 = 0x4a,0xfffa 004c 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call ; Debug Table 0x1.0x6 = 0x4c,0xfff9 004e 0007 | | Action Break_Optional ; Debug Table 0x1.0x7 = 0x4e,0xfff8 004f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x8 = 0x4f,0xfff7 0050 00c7 | | Action Elaborate_Subprogram 0051 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x9 = 0x51,0xfff6 0052 00c7 | | Action Elaborate_Subprogram 0053 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xa = 0x53,0xfff5 0054 00c7 | | Action Elaborate_Subprogram 0055 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xb = 0x55,0xfff4 0056 00c7 | | Action Elaborate_Subprogram 0057 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xc = 0x57,0xfff3 0058 00c7 | | Action Elaborate_Subprogram 0059 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xd = 0x59,0xfff2 005a 00c7 | | Action Elaborate_Subprogram 005b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0xe = 0x5b,0xfff1 005c 00c7 | | Action Elaborate_Subprogram 005d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xf = 0x5d,0xfff0 005e 00c7 | | Action Elaborate_Subprogram 005f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x10 = 0x5f,0xffef 0060 00c7 | | Action Elaborate_Subprogram 0061 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x11 = 0x61,0xffee 0062 00c7 | | Action Elaborate_Subprogram 0063 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x12 = 0x63,0xffed 0064 00c7 | | Action Elaborate_Subprogram 0065 BODY_0008: 0065 00bc | | Action Signal_Activated 0066 00bb | | Action Signal_Completion 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006c | l | .CONST 0x006c ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2 = .DEBUG 0x006b,0x03b0,0x0002,0x0000,0x0037,0xdb74,0x0000,0x002a ; Debug Table 0x2.0x0 = 0x6b,0xffff 006c BODY_0068: 006c 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x6c,0x1 006d 8220 | | Call 0x1,0x20 006e 8222 | " | Call 0x1,0x22 006f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0070 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x70,0x2 0071 00eb | | Load_Encached Diana_Cache 0072 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 0073 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0074 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x74,0x3 0075 00eb | | Load_Encached Diana_Cache 0076 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0077 0f49 | I | Execute_Immediate Equal,0x49 0078 6804 |h | Jump_Zero 0x7d 0079 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x4 = 0x79,0x4 007a 00eb | | Load_Encached Diana_Cache 007b 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5 007c 0031 | 1 | Store_Top Heap_Access,At_Offset_1 007d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x5 = 0x7d,0x5 007e 8221 | ! | Call 0x1,0x21 007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0084 | | .CONST 0x0084 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3 = .DEBUG 0x0083,0x03be,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0033 ; Debug Table 0x3.0x0 = 0x83,0xffff 0084 BODY_0080: 0084 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x84,0x1 0085 8220 | | Call 0x1,0x20 0086 8222 | " | Call 0x1,0x22 0087 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0088 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x88,0x2 0089 00eb | | Load_Encached Diana_Cache 008a 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 008b 00eb | | Load_Encached Diana_Cache 008c 1889 | | Execute Package,Field_Execute,Field_Number 0x89 008d e001 | | Load 0x0,0x1 008e 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 008f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0091 0000 0000 | | .BLANK 0000[0x7] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x009b,0x03c6,0x0005,0x0000,0x0037,0xdb74,0x0000,0x003c 009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 009d 7802 |x | Jump 0xa0 ; case 0x1 009e 7805 |x | Jump 0xa4 ; case 0x2 009f 7809 |x | Jump 0xa9 ; case 0x3 00a0 00da | | Load_Top At_Offset_2 00a1 0091 0268 | h| Action Push_String_Extended_Indexed,0x268 ; "A_WITH_CLAUSE" 00a3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00a4 00db | | Load_Top At_Offset_3 00a5 00db | | Load_Top At_Offset_3 00a6 00e0 | | Load_Encached Standard_Cache 00a7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a9 00da | | Load_Top At_Offset_2 00aa 00e0 | | Load_Encached Standard_Cache 00ab 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ac 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00b3,0x03c8,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0043 ; Debug Table 0x5.0x0 = 0xb3,0x1 00b4 8220 | | Call 0x1,0x20 00b5 00eb | | Load_Encached Diana_Cache 00b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b7 0b85 | | Execute_Immediate Case_Compare,0x85 00b8 7004 |p | Jump_Nonzero 0xbd 00b9 0b45 | E | Execute_Immediate Case_Compare,0x45 00ba 7004 |p | Jump_Nonzero 0xbf 00bb 4802 |H | Short_Literal 0x2 ; Debug Table 0x5.0x1 = 0xbb,0x4 00bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bd 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x2 = 0xbd,0x2 00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bf 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x3 = 0xbf,0x3 00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c1 0000 0000 | | .BLANK 0000[0x7] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00cb,0x03d2,0x0002,0x0000,0x0037,0xdb74,0x0000,0x004c ; Debug Table 0x6.0x0 = 0xcb,0x1 00cc 4801 |H | Short_Literal 0x1 00cd 8224 | $ | Call 0x1,0x24 00ce 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x1 = 0xce,0x2 00cf 8220 | | Call 0x1,0x20 00d0 00eb | | Load_Encached Diana_Cache 00d1 1889 | | Execute Package,Field_Execute,Field_Number 0x89 00d2 e001 | | Load 0x0,0x1 00d3 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 00d4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d6 0000 0000 | | .XXX[0x2] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00dc | | .CONST 0x00dc ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7 = .DEBUG 0x00db,0x03d8,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0055 ; Debug Table 0x7.0x0 = 0xdb,0xffff 00dc BODY_00d8: 00dc 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0xdc,0x1 00dd 8220 | | Call 0x1,0x20 00de 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00df 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0xdf,0x2 00e0 00eb | | Load_Encached Diana_Cache 00e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e2 6803 |h | Jump_Zero 0xe6 00e3 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x3 = 0xe3,0x3 00e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x4 = 0xe6,0x4 00e7 4974 |It | Short_Literal 0x174 00e8 00eb | | Load_Encached Diana_Cache 00e9 0098 | | Execute Package,Field_Read_Dynamic 00ea 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00eb 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00ec 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x5 = 0xec,0x5 00ed 00eb | | Load_Encached Diana_Cache 00ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ef 0fa8 | | Execute_Immediate Equal,-0x58 00f0 6803 |h | Jump_Zero 0xf4 00f1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x6 = 0xf1,0x6 00f2 8221 | ! | Call 0x1,0x21 00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f4 0092 026b | k| Action Push_String_Extended,0x26b ; "Element is not in a compilation unit" ; Debug Table 0x7.0x7 = 0xf4,0x7 00f6 e002 | | Load 0x0,0x2 00f7 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00f8 e003 | | Load 0x0,0x3 00f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fa e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x8 = 0xfa,0x8 00fb 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 00fc 0257 | W | Execute Discrete,Raise 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0104 | | .CONST 0x0104 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8 = .DEBUG 0x0103,0x03ec,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0060 ; Debug Table 0x8.0x0 = 0x103,0xffff 0104 BODY_0100: 0104 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x1 = 0x104,0x1 0105 8220 | | Call 0x1,0x20 0106 8222 | " | Call 0x1,0x22 0107 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0108 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x2 = 0x108,0x2 0109 00eb | | Load_Encached Diana_Cache 010a 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 010b 00eb | | Load_Encached Diana_Cache 010c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010d 0f49 | I | Execute_Immediate Equal,0x49 010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010f 0000 | | .XXX[0x1] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0115 | | .CONST 0x0115 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 e20f | | Load 0x1,0xf ; Debug Table 0x9 = .DEBUG 0x0113,0x03f4,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0069 ; Debug Table 0x9.0x0 = 0x113,0xffff 0114 0007 | | Action Break_Optional 0115 BODY_0110: 0115 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x115,0x1 0116 821b | | Call 0x1,0x1b 0117 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0118 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0x118,0x2 0119 8220 | | Call 0x1,0x20 011a 4974 |It | Short_Literal 0x174 011b 00eb | | Load_Encached Diana_Cache 011c 0098 | | Execute Package,Field_Read_Dynamic 011d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 011e 8221 | ! | Call 0x1,0x21 011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0132 | 2 | .CONST 0x0132 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0006 | | .CONST 0x0006 ; Number of locals 0123 INIT_0120: 0123 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xa = .DEBUG 0x0123,0x03fc,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0072 ; Debug Table 0xa.0x0 = 0x123,0xffff 0124 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xa.0x1 = 0x124,0xfffe 0125 e004 | | Load 0x0,0x4 ; Debug Table 0xa.0x2 = 0x125,0xfffd 0126 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0127 02c7 | | Declare_Variable Any 0128 00d8 | | Load_Top At_Offset_0 0129 1c00 | | Execute_Immediate Run_Utility,0x0 012a e004 | | Load 0x0,0x4 ; Debug Table 0xa.0x3 = 0x12a,0xfffc 012b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012d 02c7 | | Declare_Variable Any 012e 00d8 | | Load_Top At_Offset_0 012f 1c00 | | Execute_Immediate Run_Utility,0x0 0130 e004 | | Load 0x0,0x4 ; Debug Table 0xa.0x4 = 0x130,0xfffb 0131 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0132 BODY_0120: 0132 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x5 = 0x132,0x1 0133 8220 | | Call 0x1,0x20 0134 8222 | " | Call 0x1,0x22 0135 a402 | | Store_Unchecked 0x2,0x2 0136 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x6 = 0x136,0x2 0137 00eb | | Load_Encached Diana_Cache 0138 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 0139 00eb | | Load_Encached Diana_Cache 013a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 013b 0f49 | I | Execute_Immediate Equal,0x49 013c 7009 |p | Jump_Nonzero 0x146 013d 0092 026c | l| Action Push_String_Extended,0x26c ; "Element is not in a subunit" ; Debug Table 0xa.0x7 = 0x13d,0x3 013f e002 | | Load 0x0,0x2 0140 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0141 e003 | | Load 0x0,0x3 0142 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0143 e001 | | Load 0x0,0x1 ; Debug Table 0xa.0x8 = 0x143,0x4 0144 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0145 0257 | W | Execute Discrete,Raise 0146 e004 | | Load 0x0,0x4 ; Debug Table 0xa.0x9 = 0x146,0x5 0147 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0148 00da | | Load_Top At_Offset_2 0149 0120 | | Execute Any,Is_Value 014a 6804 |h | Jump_Zero 0x14f 014b e004 | | Load 0x0,0x4 014c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 014d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014e 7801 |x | Jump 0x150 014f 00da | | Load_Top At_Offset_2 0150 e402 | | Load 0x2,0x2 0151 e004 | | Load 0x0,0x4 0152 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0153 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0154 c405 | | Store 0x2,0x5 0155 0059 | Y | Store_Top Discrete,At_Offset_1 0156 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xa = 0x156,0x6 0157 8223 | # | Call 0x1,0x23 0158 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0xb = 0x158,0x7 0159 e004 | | Load 0x0,0x4 015a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 015b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 015c c404 | | Store 0x2,0x4 015d e004 | | Load 0x0,0x4 ; Debug Table 0xa.0xc = 0x15d,0x8 015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015f e004 | | Load 0x0,0x4 0160 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0161 6102 |a | Indirect_Literal Discrete,0x264,{0x00000000, 0x00004000} 0162 e005 | | Load 0x0,0x5 0163 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0164 4800 |H | Short_Literal 0x0 0165 e404 | | Load 0x2,0x4 0166 e004 | | Load 0x0,0x4 0167 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0168 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0169 c403 | | Store 0x2,0x3 016a 0059 | Y | Store_Top Discrete,At_Offset_1 016b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xd = 0x16b,0x9 016c 8223 | # | Call 0x1,0x23 016d 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0xe = 0x16d,0xa 016e 8221 | ! | Call 0x1,0x21 016f e006 | | Load 0x0,0x6 0170 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0172 0000 0000 | | .BLANK 0000[0x6] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017d | } | .CONST 0x017d ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0003 | | .CONST 0x0003 ; Number of locals 017b INIT_0178: 017b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xb = .DEBUG 0x017b,0x041c,0x0002,0x0000,0x0037,0xdb74,0x0000,0x007b ; Debug Table 0xb.0x0 = 0x17b,0xffff 017c 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0xb.0x1 = 0x17c,0xfffe 017d BODY_0178: 017d e5ff | | Load 0x2,-0x1 ; Debug Table 0xb.0x2 = 0x17d,0x1 017e 8220 | | Call 0x1,0x20 017f 8222 | " | Call 0x1,0x22 0180 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0181 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x3 = 0x181,0x2 0182 00eb | | Load_Encached Diana_Cache 0183 18db | | Execute Package,Field_Execute,Field_Number 0xdb 0184 00eb | | Load_Encached Diana_Cache 0185 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0186 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0187 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x4 = 0x187,0x3 0188 e001 | | Load 0x0,0x1 0189 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 018a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0196 | | .CONST 0x0196 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0004 | | .CONST 0x0004 ; Number of locals 0193 INIT_0190: 0193 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xc = .DEBUG 0x0193,0x0428,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0084 ; Debug Table 0xc.0x0 = 0x193,0xffff 0194 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xc.0x1 = 0x194,0xfffe 0195 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0xc.0x2 = 0x195,0xfffd 0196 BODY_0190: 0196 e5ff | | Load 0x2,-0x1 ; Debug Table 0xc.0x3 = 0x196,0x1 0197 8220 | | Call 0x1,0x20 0198 8222 | " | Call 0x1,0x22 0199 0032 | 2 | Store_Top Heap_Access,At_Offset_2 019a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x4 = 0x19a,0x2 019b 00eb | | Load_Encached Diana_Cache 019c 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 019d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 019e 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x5 = 0x19e,0x3 019f 00eb | | Load_Encached Diana_Cache 01a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a1 0f49 | I | Execute_Immediate Equal,0x49 01a2 6804 |h | Jump_Zero 0x1a7 01a3 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x6 = 0x1a3,0x4 01a4 00eb | | Load_Encached Diana_Cache 01a5 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5 01a6 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01a7 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x7 = 0x1a7,0x5 01a8 00eb | | Load_Encached Diana_Cache 01a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01aa 0b48 | H | Execute_Immediate Case_Compare,0x48 01ab 700b |p | Jump_Nonzero 0x1b7 01ac 0b3d | = | Execute_Immediate Case_Compare,0x3d 01ad 7009 |p | Jump_Nonzero 0x1b7 01ae 0092 026d | m| Action Push_String_Extended,0x26d ; "Element is not a procedure" ; Debug Table 0xc.0x8 = 0x1ae,0x7 01b0 e002 | | Load 0x0,0x2 01b1 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01b2 e003 | | Load 0x0,0x3 01b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b4 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x9 = 0x1b4,0x8 01b5 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 01b6 0257 | W | Execute Discrete,Raise 01b7 00d1 | | Pop_Control Pop_Count_1 01b8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xa = 0x1b8,0x9 01b9 00eb | | Load_Encached Diana_Cache 01ba 18db | | Execute Package,Field_Execute,Field_Number 0xdb 01bb 00eb | | Load_Encached Diana_Cache 01bc 1889 | | Execute Package,Field_Execute,Field_Number 0x89 01bd 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01be 00cf | | Action Mark_Auxiliary 01bf 7810 |x | Jump 0x1d0 01c0 0092 026e | n| Action Push_String_Extended,0x26e ; "MAIN" ; Debug Table 0xc.0xb = 0x1c0,0xb 01c2 00da | | Load_Top At_Offset_2 01c3 00eb | | Load_Encached Diana_Cache 01c4 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 01c5 e007 | | Load 0x0,0x7 01c6 180d | | Execute Package,Field_Execute,Field_Number 0xd 01c7 01df | | Execute Vector,Equal 01c8 6802 |h | Jump_Zero 0x1cb 01c9 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0xc = 0x1c9,0xc 01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cb 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xd = 0x1cb,0xd 01cc 00eb | | Load_Encached Diana_Cache 01cd 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 01ce 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01cf 00c9 | | Action Pop_Auxiliary_Loop 01d0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xe = 0x1d0,0xa 01d1 00eb | | Load_Encached Diana_Cache 01d2 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 01d3 6fec |o | Jump_Zero 0x1c0 01d4 00ce | | Action Pop_Auxiliary 01d5 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0xf = 0x1d5,0xe 01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d7 0000 | | .XXX[0x1] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e2 | | .CONST 0x01e2 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xd = .DEBUG 0x01db,0x044a,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0093 ; Debug Table 0xd.0x0 = 0x1db,0xffff 01dc 00db | | Load_Top At_Offset_3 01dd 8220 | | Call 0x1,0x20 01de 8222 | " | Call 0x1,0x22 01df 00eb | | Load_Encached Diana_Cache 01e0 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 01e1 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01e2 BODY_01d8: 01e2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x1 = 0x1e2,0x1 01e3 00eb | | Load_Encached Diana_Cache 01e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01e5 0b49 | I | Execute_Immediate Case_Compare,0x49 01e6 7009 |p | Jump_Nonzero 0x1f0 01e7 0092 026c | l| Action Push_String_Extended,0x26c ; "Element is not in a subunit" ; Debug Table 0xd.0x2 = 0x1e7,0x3 01e9 e002 | | Load 0x0,0x2 01ea 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01eb e003 | | Load 0x0,0x3 01ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ed e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x3 = 0x1ed,0x4 01ee 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 01ef 0257 | W | Execute Discrete,Raise 01f0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0x4 = 0x1f0,0x2 01f1 00eb | | Load_Encached Diana_Cache 01f2 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 01f3 8221 | ! | Call 0x1,0x21 01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fc | | .CONST 0x01fc ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xe = .DEBUG 0x01fb,0x0456,0x0002,0x0000,0x0037,0xdc64,0x0000,0x0058 ; Debug Table 0xe.0x0 = 0x1fb,0xffff 01fc BODY_01f8: 01fc 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x1 = 0x1fc,0x1 01fd 00eb | | Load_Encached Diana_Cache 01fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01ff 6805 |h | Jump_Zero 0x205 0200 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x2 = 0x200,0x2 0201 00eb | | Load_Encached Diana_Cache 0202 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0203 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0204 7802 |x | Jump 0x207 0205 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x3 = 0x205,0x3 0206 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0207 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x4 = 0x207,0x4 0208 00eb | | Load_Encached Diana_Cache 0209 1814 | | Execute Package,Field_Execute,Field_Number 0x14 020a 0b3e | > | Execute_Immediate Case_Compare,0x3e 020b 7009 |p | Jump_Nonzero 0x215 020c 0b3d | = | Execute_Immediate Case_Compare,0x3d 020d 7007 |p | Jump_Nonzero 0x215 020e 0b47 | G | Execute_Immediate Case_Compare,0x47 020f 7005 |p | Jump_Nonzero 0x215 0210 0b46 | F | Execute_Immediate Case_Compare,0x46 0211 7003 |p | Jump_Nonzero 0x215 0212 0b48 | H | Execute_Immediate Case_Compare,0x48 0213 7001 |p | Jump_Nonzero 0x215 0214 7804 |x | Jump 0x219 ; Debug Table 0xe.0x5 = 0x214,0x6 0215 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xe.0x6 = 0x215,0x5 0216 00eb | | Load_Encached Diana_Cache 0217 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0218 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0219 00d1 | | Pop_Control Pop_Count_1 021a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x7 = 0x21a,0x7 021b 00eb | | Load_Encached Diana_Cache 021c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 021d 0f49 | I | Execute_Immediate Equal,0x49 021e 6804 |h | Jump_Zero 0x223 021f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x8 = 0x21f,0x8 0220 00eb | | Load_Encached Diana_Cache 0221 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0222 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0223 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x9 = 0x223,0x9 0224 8221 | ! | Call 0x1,0x21 0225 e001 | | Load 0x0,0x1 0226 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0227 7002 |p | Jump_Nonzero 0x22a 0228 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0xa = 0x228,0xa 0229 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022a 0092 026f | o| Action Push_String_Extended,0x26f ; "Element is not a compilation unit" ; Debug Table 0xe.0xb = 0x22a,0xb 022c e002 | | Load 0x0,0x2 022d 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 022e e003 | | Load 0x0,0x3 022f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0230 e001 | | Load 0x0,0x1 ; Debug Table 0xe.0xc = 0x230,0xc 0231 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0232 0257 | W | Execute Discrete,Raise 0233 0000 0000 | | .BLANK 0000[0x5] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x023b,0x0472,0x0001,0x0000,0x0037,0xdc64,0x0000,0x00e7 ; Debug Table 0xf.0x0 = 0x23b,0x1 023c 0b00 | | Execute_Immediate Case_Compare,0x0 023d 7009 |p | Jump_Nonzero 0x247 023e 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x1 = 0x23e,0x3 023f e004 | | Load 0x0,0x4 0240 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0241 025e | ^ | Execute Discrete,Convert 0242 1c01 | | Execute_Immediate Run_Utility,0x1 0243 e002 | | Load 0x0,0x2 0244 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0245 e003 | | Load 0x0,0x3 0246 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0247 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00db | | Load_Top At_Offset_3 ; Debug Table 0x10 = .DEBUG 0x024b,0x0478,0x0001,0x0000,0x0037,0xdc64,0x0000,0x0112 ; Debug Table 0x10.0x0 = 0x24b,0x1 024c e001 | | Load 0x0,0x1 024d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 024e 00db | | Load_Top At_Offset_3 024f 027f | | Execute Discrete,Equal 0250 700f |p | Jump_Nonzero 0x260 0251 0092 0270 | p| Action Push_String_Extended,0x270 ; "Element is not " ; Debug Table 0x10.0x1 = 0x251,0x2 0253 00db | | Load_Top At_Offset_3 0254 e001 | | Load 0x0,0x1 0255 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0256 025e | ^ | Execute Discrete,Convert 0257 1c01 | | Execute_Immediate Run_Utility,0x1 0258 01cc | | Execute Vector,Catenate 0259 e002 | | Load 0x0,0x2 025a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 025b e003 | | Load 0x0,0x3 025c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 025d e001 | | Load 0x0,0x1 ; Debug Table 0x10.0x2 = 0x25d,0x3 025e 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 025f 0257 | W | Execute Discrete,Raise 0260 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0261 0000 0000 | | .XXX[0x3] 0263 0000 | | 0264 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0268 ; -------------------------------------------------------------------------------------- 0268 ; STRING TABLE 0268 ; -------------------------------------------------------------------------------------- 0268 0014 | | .STRTAB 0x0014->0x0272 ; "A_WITH_CLAUSE" 0269 001f | | .STRTAB 0x001f->0x0278 ; "A_USE_CLAUSE" 026a 0029 | ) | .STRTAB 0x0029->0x027e ; "NOT_A_CONTEXT_CLAUSE" 026b 003b | ; | .STRTAB 0x003b->0x0288 ; "Element is not in a compilation unit" 026c 005d | ] | .STRTAB 0x005d->0x029a ; "Element is not in a subunit" 026d 0076 | v | .STRTAB 0x0076->0x02a8 ; "Element is not a procedure" 026e 008e | | .STRTAB 0x008e->0x02b5 ; "MAIN" 026f 0090 | | .STRTAB 0x0090->0x02b7 ; "Element is not a compilation unit" 0270 00af | | .STRTAB 0x00af->0x02c7 ; "Element is not " 0271 00bc | | .STREND 0x00bc->0x02cf 0272 415f 5749 |A_WI| .STRTAB_STRINGS 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug Table 02d0 ; -------------------------------------------------------------------------------------- 02d0 0003 0011 | | .CONST 0x0003,0x0011 02d2 000b 035a | Z| .DEBUG 0x000b,0x035a,0x8000,0x0000,0x0037,0xdb74,0x0000,0x0005 02da 003e 0388 | > | .DEBUG 0x003e,0x0388,0x8000,0x0000,0x0037,0xdc64,0x0000,0x0011 02e2 006b 03b0 | k | .DEBUG 0x006b,0x03b0,0x0002,0x0000,0x0037,0xdb74,0x0000,0x002a 02ea 0083 03be | | .DEBUG 0x0083,0x03be,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0033 02f2 009b 03c6 | | .DEBUG 0x009b,0x03c6,0x0005,0x0000,0x0037,0xdb74,0x0000,0x003c 02fa 00b3 03c8 | | .DEBUG 0x00b3,0x03c8,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0043 0302 00cb 03d2 | | .DEBUG 0x00cb,0x03d2,0x0002,0x0000,0x0037,0xdb74,0x0000,0x004c 030a 00db 03d8 | | .DEBUG 0x00db,0x03d8,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0055 0312 0103 03ec | | .DEBUG 0x0103,0x03ec,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0060 031a 0113 03f4 | | .DEBUG 0x0113,0x03f4,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0069 0322 0123 03fc | # | .DEBUG 0x0123,0x03fc,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0072 032a 017b 041c | { | .DEBUG 0x017b,0x041c,0x0002,0x0000,0x0037,0xdb74,0x0000,0x007b 0332 0193 0428 | (| .DEBUG 0x0193,0x0428,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0084 033a 01db 044a | J| .DEBUG 0x01db,0x044a,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0093 0342 01fb 0456 | V| .DEBUG 0x01fb,0x0456,0x0002,0x0000,0x0037,0xdc64,0x0000,0x0058 034a 023b 0472 | ; r| .DEBUG 0x023b,0x0472,0x0001,0x0000,0x0037,0xdc64,0x0000,0x00e7 0352 024b 0478 | K x| .DEBUG 0x024b,0x0478,0x0001,0x0000,0x0037,0xdc64,0x0000,0x0112 035a ; -------------------------------------------------------------------------------------- 035a ; Debug3 Subtable 0x0 035a ; -------------------------------------------------------------------------------------- 035a 0016 0000 | | .DBG3TAB 0x0016,0x0000 035c 000b ffff | | .CONST 0x000b,0xffff 035e 000e fffe | | .CONST 0x000e,0xfffe 0360 0011 fffd | | .CONST 0x0011,0xfffd 0362 0014 fffc | | .CONST 0x0014,0xfffc 0364 0017 fffb | | .CONST 0x0017,0xfffb 0366 001a fffa | | .CONST 0x001a,0xfffa 0368 001d fff9 | | .CONST 0x001d,0xfff9 036a 001f fff8 | | .CONST 0x001f,0xfff8 036c 0021 fff7 | ! | .CONST 0x0021,0xfff7 036e 0026 fff6 | & | .CONST 0x0026,0xfff6 0370 0028 fff5 | ( | .CONST 0x0028,0xfff5 0372 002a fff4 | * | .CONST 0x002a,0xfff4 0374 002c fff3 | , | .CONST 0x002c,0xfff3 0376 002e fff2 | . | .CONST 0x002e,0xfff2 0378 0030 fff1 | 0 | .CONST 0x0030,0xfff1 037a 0032 fff0 | 2 | .CONST 0x0032,0xfff0 037c 0034 ffef | 4 | .CONST 0x0034,0xffef 037e 0036 ffee | 6 | .CONST 0x0036,0xffee 0380 0039 ffed | 9 | .CONST 0x0039,0xffed 0382 003b ffec | ; | .CONST 0x003b,0xffec 0384 003c ffeb | < | .CONST 0x003c,0xffeb 0386 003d ffea | = | .CONST 0x003d,0xffea 0388 ; -------------------------------------------------------------------------------------- 0388 ; Debug3 Subtable 0x1 0388 ; -------------------------------------------------------------------------------------- 0388 0013 0000 | | .DBG3TAB 0x0013,0x0000 038a 003e ffff | > | .CONST 0x003e,0xffff 038c 003f fffe | ? | .CONST 0x003f,0xfffe 038e 0040 fffd | @ | .CONST 0x0040,0xfffd 0390 0044 fffc | D | .CONST 0x0044,0xfffc 0392 0048 fffb | H | .CONST 0x0048,0xfffb 0394 004a fffa | J | .CONST 0x004a,0xfffa 0396 004c fff9 | L | .CONST 0x004c,0xfff9 0398 004e fff8 | N | .CONST 0x004e,0xfff8 039a 004f fff7 | O | .CONST 0x004f,0xfff7 039c 0051 fff6 | Q | .CONST 0x0051,0xfff6 039e 0053 fff5 | S | .CONST 0x0053,0xfff5 03a0 0055 fff4 | U | .CONST 0x0055,0xfff4 03a2 0057 fff3 | W | .CONST 0x0057,0xfff3 03a4 0059 fff2 | Y | .CONST 0x0059,0xfff2 03a6 005b fff1 | [ | .CONST 0x005b,0xfff1 03a8 005d fff0 | ] | .CONST 0x005d,0xfff0 03aa 005f ffef | _ | .CONST 0x005f,0xffef 03ac 0061 ffee | a | .CONST 0x0061,0xffee 03ae 0063 ffed | c | .CONST 0x0063,0xffed 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; Debug3 Subtable 0x2 03b0 ; -------------------------------------------------------------------------------------- 03b0 0001 0005 | | .DBG3TAB 0x0001,0x0005 03b2 006b ffff | k | .CONST 0x006b,0xffff 03b4 006c 0001 | l | .CONST 0x006c,0x0001 03b6 0070 0002 | p | .CONST 0x0070,0x0002 03b8 0074 0003 | t | .CONST 0x0074,0x0003 03ba 0079 0004 | y | .CONST 0x0079,0x0004 03bc 007d 0005 | } | .CONST 0x007d,0x0005 03be ; -------------------------------------------------------------------------------------- 03be ; Debug3 Subtable 0x3 03be ; -------------------------------------------------------------------------------------- 03be 0001 0002 | | .DBG3TAB 0x0001,0x0002 03c0 0083 ffff | | .CONST 0x0083,0xffff 03c2 0084 0001 | | .CONST 0x0084,0x0001 03c4 0088 0002 | | .CONST 0x0088,0x0002 03c6 ; -------------------------------------------------------------------------------------- 03c6 ; Debug3 Subtable 0x4 03c6 ; -------------------------------------------------------------------------------------- 03c6 0000 0000 | | .DBG3TAB 0x0000,0x0000 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; Debug3 Subtable 0x5 03c8 ; -------------------------------------------------------------------------------------- 03c8 0000 0004 | | .DBG3TAB 0x0000,0x0004 03ca 00b3 0001 | | .CONST 0x00b3,0x0001 03cc 00bb 0004 | | .CONST 0x00bb,0x0004 03ce 00bd 0002 | | .CONST 0x00bd,0x0002 03d0 00bf 0003 | | .CONST 0x00bf,0x0003 03d2 ; -------------------------------------------------------------------------------------- 03d2 ; Debug3 Subtable 0x6 03d2 ; -------------------------------------------------------------------------------------- 03d2 0000 0002 | | .DBG3TAB 0x0000,0x0002 03d4 00cb 0001 | | .CONST 0x00cb,0x0001 03d6 00ce 0002 | | .CONST 0x00ce,0x0002 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; Debug3 Subtable 0x7 03d8 ; -------------------------------------------------------------------------------------- 03d8 0001 0008 | | .DBG3TAB 0x0001,0x0008 03da 00db ffff | | .CONST 0x00db,0xffff 03dc 00dc 0001 | | .CONST 0x00dc,0x0001 03de 00df 0002 | | .CONST 0x00df,0x0002 03e0 00e3 0003 | | .CONST 0x00e3,0x0003 03e2 00e6 0004 | | .CONST 0x00e6,0x0004 03e4 00ec 0005 | | .CONST 0x00ec,0x0005 03e6 00f1 0006 | | .CONST 0x00f1,0x0006 03e8 00f4 0007 | | .CONST 0x00f4,0x0007 03ea 00fa 0008 | | .CONST 0x00fa,0x0008 03ec ; -------------------------------------------------------------------------------------- 03ec ; Debug3 Subtable 0x8 03ec ; -------------------------------------------------------------------------------------- 03ec 0001 0002 | | .DBG3TAB 0x0001,0x0002 03ee 0103 ffff | | .CONST 0x0103,0xffff 03f0 0104 0001 | | .CONST 0x0104,0x0001 03f2 0108 0002 | | .CONST 0x0108,0x0002 03f4 ; -------------------------------------------------------------------------------------- 03f4 ; Debug3 Subtable 0x9 03f4 ; -------------------------------------------------------------------------------------- 03f4 0001 0002 | | .DBG3TAB 0x0001,0x0002 03f6 0113 ffff | | .CONST 0x0113,0xffff 03f8 0115 0001 | | .CONST 0x0115,0x0001 03fa 0118 0002 | | .CONST 0x0118,0x0002 03fc ; -------------------------------------------------------------------------------------- 03fc ; Debug3 Subtable 0xa 03fc ; -------------------------------------------------------------------------------------- 03fc 0005 000a | | .DBG3TAB 0x0005,0x000a 03fe 0123 ffff | # | .CONST 0x0123,0xffff 0400 0124 fffe | $ | .CONST 0x0124,0xfffe 0402 0125 fffd | % | .CONST 0x0125,0xfffd 0404 012a fffc | * | .CONST 0x012a,0xfffc 0406 0130 fffb | 0 | .CONST 0x0130,0xfffb 0408 0132 0001 | 2 | .CONST 0x0132,0x0001 040a 0136 0002 | 6 | .CONST 0x0136,0x0002 040c 013d 0003 | = | .CONST 0x013d,0x0003 040e 0143 0004 | C | .CONST 0x0143,0x0004 0410 0146 0005 | F | .CONST 0x0146,0x0005 0412 0156 0006 | V | .CONST 0x0156,0x0006 0414 0158 0007 | X | .CONST 0x0158,0x0007 0416 015d 0008 | ] | .CONST 0x015d,0x0008 0418 016b 0009 | k | .CONST 0x016b,0x0009 041a 016d 000a | m | .CONST 0x016d,0x000a 041c ; -------------------------------------------------------------------------------------- 041c ; Debug3 Subtable 0xb 041c ; -------------------------------------------------------------------------------------- 041c 0002 0003 | | .DBG3TAB 0x0002,0x0003 041e 017b ffff | { | .CONST 0x017b,0xffff 0420 017c fffe | | | .CONST 0x017c,0xfffe 0422 017d 0001 | } | .CONST 0x017d,0x0001 0424 0181 0002 | | .CONST 0x0181,0x0002 0426 0187 0003 | | .CONST 0x0187,0x0003 0428 ; -------------------------------------------------------------------------------------- 0428 ; Debug3 Subtable 0xc 0428 ; -------------------------------------------------------------------------------------- 0428 0003 000d | | .DBG3TAB 0x0003,0x000d 042a 0193 ffff | | .CONST 0x0193,0xffff 042c 0194 fffe | | .CONST 0x0194,0xfffe 042e 0195 fffd | | .CONST 0x0195,0xfffd 0430 0196 0001 | | .CONST 0x0196,0x0001 0432 019a 0002 | | .CONST 0x019a,0x0002 0434 019e 0003 | | .CONST 0x019e,0x0003 0436 01a3 0004 | | .CONST 0x01a3,0x0004 0438 01a7 0005 | | .CONST 0x01a7,0x0005 043a 01ae 0007 | | .CONST 0x01ae,0x0007 043c 01b4 0008 | | .CONST 0x01b4,0x0008 043e 01b8 0009 | | .CONST 0x01b8,0x0009 0440 01c0 000b | | .CONST 0x01c0,0x000b 0442 01c9 000c | | .CONST 0x01c9,0x000c 0444 01cb 000d | | .CONST 0x01cb,0x000d 0446 01d0 000a | | .CONST 0x01d0,0x000a 0448 01d5 000e | | .CONST 0x01d5,0x000e 044a ; -------------------------------------------------------------------------------------- 044a ; Debug3 Subtable 0xd 044a ; -------------------------------------------------------------------------------------- 044a 0001 0004 | | .DBG3TAB 0x0001,0x0004 044c 01db ffff | | .CONST 0x01db,0xffff 044e 01e2 0001 | | .CONST 0x01e2,0x0001 0450 01e7 0003 | | .CONST 0x01e7,0x0003 0452 01ed 0004 | | .CONST 0x01ed,0x0004 0454 01f0 0002 | | .CONST 0x01f0,0x0002 0456 ; -------------------------------------------------------------------------------------- 0456 ; Debug3 Subtable 0xe 0456 ; -------------------------------------------------------------------------------------- 0456 0001 000c | | .DBG3TAB 0x0001,0x000c 0458 01fb ffff | | .CONST 0x01fb,0xffff 045a 01fc 0001 | | .CONST 0x01fc,0x0001 045c 0200 0002 | | .CONST 0x0200,0x0002 045e 0205 0003 | | .CONST 0x0205,0x0003 0460 0207 0004 | | .CONST 0x0207,0x0004 0462 0214 0006 | | .CONST 0x0214,0x0006 0464 0215 0005 | | .CONST 0x0215,0x0005 0466 021a 0007 | | .CONST 0x021a,0x0007 0468 021f 0008 | | .CONST 0x021f,0x0008 046a 0223 0009 | # | .CONST 0x0223,0x0009 046c 0228 000a | ( | .CONST 0x0228,0x000a 046e 022a 000b | * | .CONST 0x022a,0x000b 0470 0230 000c | 0 | .CONST 0x0230,0x000c 0472 ; -------------------------------------------------------------------------------------- 0472 ; Debug3 Subtable 0xf 0472 ; -------------------------------------------------------------------------------------- 0472 0000 0002 | | .DBG3TAB 0x0000,0x0002 0474 023b 0001 | ; | .CONST 0x023b,0x0001 0476 023e 0003 | > | .CONST 0x023e,0x0003 0478 ; -------------------------------------------------------------------------------------- 0478 ; Debug3 Subtable 0x10 0478 ; -------------------------------------------------------------------------------------- 0478 0000 0003 | | .DBG3TAB 0x0000,0x0003 047a 024b 0001 | K | .CONST 0x024b,0x0001 047c 0251 0002 | Q | .CONST 0x0251,0x0002 047e 025d 0003 | ] | .CONST 0x025d,0x0003 0480 0000 0000 | | .BLANK 0000[0x180]