|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 05a0 | | .CONST 0x05a0 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0047 | G | .CONST 0x0047 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0013 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0015 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0017 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0019 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 001b 0093 0000 | | push_full_address 0x0 001d 6052 |`R | Indirect_Literal Discrete,0x70,{0x80000000, 0x00010000} 001e 0273 | s | Execute Discrete,Plus 001f 0129 | ) | Execute Any,Make_Visible 0020 00bf | | Action Accept_Activation 0021 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 0023 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 0025 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0026 00c7 | | Action Elaborate_Subprogram 0027 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 0029 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 002b 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002c 00c7 | | Action Elaborate_Subprogram 002d 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 002f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0030 00c7 | | Action Elaborate_Subprogram 0031 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0032 00c7 | | Action Elaborate_Subprogram 0033 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 0035 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 0037 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 0039 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 003b 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call 003d 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call 003f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0040 00c7 | | Action Elaborate_Subprogram 0041 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0042 00c7 | | Action Elaborate_Subprogram 0043 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0044 00c7 | | Action Elaborate_Subprogram 0045 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0046 00c7 | | Action Elaborate_Subprogram 0047 BODY_0008: 0047 00bc | | Action Signal_Activated 0048 00bb | | Action Signal_Completion 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 00eb | | Load_Encached Diana_Cache 0055 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0056 00d8 | | Load_Top At_Offset_0 0057 4842 |HB | Short_Literal 0x42 0058 4845 |HE | Short_Literal 0x45 0059 0262 | b | Execute Discrete,In_Range 005a 700b |p | Jump_Nonzero 0x66 005b 0f40 | @ | Execute_Immediate Equal,0x40 005c 700c |p | Jump_Nonzero 0x69 005d 00da | | Load_Top At_Offset_2 005e e002 | | Load 0x0,0x2 005f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0060 6803 |h | Jump_Zero 0x64 0061 00da | | Load_Top At_Offset_2 0062 8217 | | Call 0x1,0x17 0063 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0064 4801 |H | Short_Literal 0x1 0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0066 00d1 | | Pop_Control Pop_Count_1 0067 4800 |H | Short_Literal 0x0 0068 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0069 00da | | Load_Top At_Offset_2 006a 49a1 |I | Short_Literal 0x1a1 006b 00eb | | Load_Encached Diana_Cache 006c 0096 | | Execute Package,Entry 006d 0f00 | | Execute_Immediate Equal,0x0 006e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006f 0000 | | .XXX[0x1] 0070 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0074 0000 0000 | | .BLANK 0000[0x4] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007d | } | .CONST 0x007d ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0003 | | .CONST 0x0003 ; Number of locals 007b INIT_0078: 007b 00e3 | | Load_Encached Natural_Cache 007c 00ec | | Load_Encached Diana_Tree_Cache 007d BODY_0078: 007d e5ff | | Load 0x2,-0x1 007e 8219 | | Call 0x1,0x19 007f e5fe | | Load 0x2,-0x2 0080 6017 |` | Indirect_Literal Discrete,0x98,{0x00000000, 0x7fffffff} 0081 027f | | Execute Discrete,Equal 0082 6802 |h | Jump_Zero 0x85 0083 e5ff | | Load 0x2,-0x1 0084 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0085 00e3 | | Load_Encached Natural_Cache 0086 00ec | | Load_Encached Diana_Tree_Cache 0087 00eb | | Load_Encached Diana_Cache 0088 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0089 e5fe | | Load 0x2,-0x2 008a e5ff | | Load 0x2,-0x1 008b 8218 | | Call 0x1,0x18 008c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 008d 005a | Z | Store_Top Discrete,At_Offset_2 008e 00d9 | | Load_Top At_Offset_1 008f e5fe | | Load 0x2,-0x2 0090 027b | { | Execute Discrete,Greater_Equal 0091 6802 |h | Jump_Zero 0x94 0092 00d8 | | Load_Top At_Offset_0 0093 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0094 00eb | | Load_Encached Diana_Cache 0095 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0096 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0097 0000 | | .XXX[0x1] 0098 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a9 | | .CONST 0x00a9 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0007 | | .CONST 0x0007 ; Number of locals 00a3 INIT_00a0: 00a3 00ee | | Load_Encached Diana_Seq_Type_Cache 00a4 00ee | | Load_Encached Diana_Seq_Type_Cache 00a5 00e2 | | Load_Encached Integer_Cache 00a6 00ec | | Load_Encached Diana_Tree_Cache 00a7 00e2 | | Load_Encached Integer_Cache 00a8 00e2 | | Load_Encached Integer_Cache 00a9 BODY_00a0: 00a9 e403 | | Load 0x2,0x3 00aa e402 | | Load 0x2,0x2 00ab e5ff | | Load 0x2,-0x1 00ac 821e | | Call 0x1,0x1e 00ad c402 | | Store 0x2,0x2 00ae c403 | | Store 0x2,0x3 00af 00e3 | | Load_Encached Natural_Cache 00b0 00ec | | Load_Encached Diana_Tree_Cache 00b1 00eb | | Load_Encached Diana_Cache 00b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b3 e5fe | | Load 0x2,-0x2 00b4 e402 | | Load 0x2,0x2 00b5 8220 | | Call 0x1,0x20 00b6 c405 | | Store 0x2,0x5 00b7 005a | Z | Store_Top Discrete,At_Offset_2 00b8 00da | | Load_Top At_Offset_2 00b9 00eb | | Load_Encached Diana_Cache 00ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bb 7002 |p | Jump_Nonzero 0xbe 00bc 00da | | Load_Top At_Offset_2 00bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00be e5fe | | Load 0x2,-0x2 00bf 00da | | Load_Top At_Offset_2 00c0 0272 | r | Execute Discrete,Minus 00c1 c404 | | Store 0x2,0x4 00c2 00db | | Load_Top At_Offset_3 00c3 e403 | | Load 0x2,0x3 00c4 4975 |Iu | Short_Literal 0x175 00c5 00eb | | Load_Encached Diana_Cache 00c6 0098 | | Execute Package,Field_Read_Dynamic 00c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c8 027a | z | Execute Discrete,Less_Equal 00c9 6810 |h | Jump_Zero 0xda 00ca 00e3 | | Load_Encached Natural_Cache 00cb 00ec | | Load_Encached Diana_Tree_Cache 00cc 00eb | | Load_Encached Diana_Cache 00cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ce e404 | | Load 0x2,0x4 00cf 00d8 | | Load_Top At_Offset_0 00d0 00e4 | | Load_Encached Positive_Cache 00d1 0260 | ` | Execute Discrete,In_Type 00d2 7001 |p | Jump_Nonzero 0xd4 00d3 0801 | | Execute_Immediate Raise,0x1 00d4 e403 | | Load 0x2,0x3 00d5 8220 | | Call 0x1,0x20 00d6 c405 | | Store 0x2,0x5 00d7 0059 | Y | Store_Top Discrete,At_Offset_1 00d8 00da | | Load_Top At_Offset_2 00d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00da 00eb | | Load_Encached Diana_Cache 00db 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00dd 0000 0000 | | .XXX[0x3] 00df 0000 | | 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00db | | Load_Top At_Offset_3 00e4 0c01 | | Execute_Immediate Greater_Equal,0x1 00e5 6809 |h | Jump_Zero 0xef 00e6 00db | | Load_Top At_Offset_3 00e7 00d8 | | Load_Top At_Offset_0 00e8 00e4 | | Load_Encached Positive_Cache 00e9 0260 | ` | Execute Discrete,In_Type 00ea 7001 |p | Jump_Nonzero 0xec 00eb 0801 | | Execute_Immediate Raise,0x1 00ec 00db | | Load_Top At_Offset_3 00ed 820e | | Call 0x1,0xe 00ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ef 00db | | Load_Top At_Offset_3 00f0 0d00 | | Execute_Immediate Less,0x0 00f1 680a |h | Jump_Zero 0xfc 00f2 00db | | Load_Top At_Offset_3 00f3 0275 | u | Execute Discrete,Unary_Minus 00f4 00d8 | | Load_Top At_Offset_0 00f5 00e4 | | Load_Encached Positive_Cache 00f6 0260 | ` | Execute Discrete,In_Type 00f7 7001 |p | Jump_Nonzero 0xf9 00f8 0801 | | Execute_Immediate Raise,0x1 00f9 00db | | Load_Top At_Offset_3 00fa 820f | | Call 0x1,0xf 00fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00fc 00eb | | Load_Encached Diana_Cache 00fd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ff 0000 | | .XXX[0x1] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0107 | | .CONST 0x0107 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0005 | | .CONST 0x0005 ; Number of locals 0103 INIT_0100: 0103 00e3 | | Load_Encached Natural_Cache 0104 00e2 | | Load_Encached Integer_Cache 0105 00ec | | Load_Encached Diana_Tree_Cache 0106 039d | | Declare_Variable Heap_Access,Duplicate 0107 BODY_0100: 0107 e5ff | | Load 0x2,-0x1 0108 8219 | | Call 0x1,0x19 0109 e5fe | | Load 0x2,-0x2 010a e002 | | Load 0x0,0x2 010b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 010c 7002 |p | Jump_Nonzero 0x10f 010d e215 | | Load 0x1,0x15 010e 0257 | W | Execute Discrete,Raise 010f e5fe | | Load 0x2,-0x2 0110 821a | | Call 0x1,0x1a 0111 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0112 e5fe | | Load 0x2,-0x2 0113 e003 | | Load 0x0,0x3 0114 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0115 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0116 680f |h | Jump_Zero 0x126 0117 e5fe | | Load 0x2,-0x2 0118 e003 | | Load 0x0,0x3 0119 1b10 | | Execute Package,Field_Read,Field_Number 0x10 011a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 011b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 011c 00da | | Load_Top At_Offset_2 011d 0c01 | | Execute_Immediate Greater_Equal,0x1 011e 6807 |h | Jump_Zero 0x126 011f 00da | | Load_Top At_Offset_2 0120 00d8 | | Load_Top At_Offset_0 0121 00e3 | | Load_Encached Natural_Cache 0122 0260 | ` | Execute Discrete,In_Type 0123 7001 |p | Jump_Nonzero 0x125 0124 0801 | | Execute_Immediate Raise,0x1 0125 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0126 00e3 | | Load_Encached Natural_Cache 0127 00ec | | Load_Encached Diana_Tree_Cache 0128 00da | | Load_Top At_Offset_2 0129 600e |` | Indirect_Literal Discrete,0x138,{0x00000000, 0x7fffffff} 012a e5ff | | Load 0x2,-0x1 012b 8218 | | Call 0x1,0x18 012c 0033 | 3 | Store_Top Heap_Access,At_Offset_3 012d c402 | | Store 0x2,0x2 012e 00d9 | | Load_Top At_Offset_1 012f 00d9 | | Load_Top At_Offset_1 0130 021f | | Execute Heap_Access,Equal 0131 6802 |h | Jump_Zero 0x134 0132 00db | | Load_Top At_Offset_3 0133 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0134 4800 |H | Short_Literal 0x0 0135 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0136 0000 0000 | | .XXX[0x2] 0138 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 013c 0000 0000 | | .BLANK 0000[0x4] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0148 | H | .CONST 0x0148 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0006 | | .CONST 0x0006 ; Number of locals 0143 INIT_0140: 0143 00ee | | Load_Encached Diana_Seq_Type_Cache 0144 00ee | | Load_Encached Diana_Seq_Type_Cache 0145 00ec | | Load_Encached Diana_Tree_Cache 0146 00e3 | | Load_Encached Natural_Cache 0147 00e3 | | Load_Encached Natural_Cache 0148 BODY_0140: 0148 0092 053e | >| Action Push_String_Extended,0x53e ; "Get_Declaration_Number passed empty Decl_Node" 014a e5fe | | Load 0x2,-0x2 014b 00eb | | Load_Encached Diana_Cache 014c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014d 0f00 | | Execute_Immediate Equal,0x0 014e e004 | | Load 0x0,0x4 014f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0150 e5fe | | Load 0x2,-0x2 0151 0092 053f | ?| Action Push_String_Extended,0x53f ; "Get_Declaration_Number passed non Decl Node" 0153 e5fe | | Load 0x2,-0x2 0154 e002 | | Load 0x0,0x2 0155 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0156 821d | | Call 0x1,0x1d 0157 e5fe | | Load 0x2,-0x2 0158 0092 0540 | @| Action Push_String_Extended,0x540 ; "Get_Declaration_Number passed unnumbered Decl_Node" 015a e5fe | | Load 0x2,-0x2 015b 820d | | Call 0x1,0xd 015c 821d | | Call 0x1,0x1d 015d 00db | | Load_Top At_Offset_3 015e e402 | | Load 0x2,0x2 015f e5ff | | Load 0x2,-0x1 0160 821e | | Call 0x1,0x1e 0161 c402 | | Store 0x2,0x2 0162 c403 | | Store 0x2,0x3 0163 00e3 | | Load_Encached Natural_Cache 0164 00ec | | Load_Encached Diana_Tree_Cache 0165 e5fe | | Load 0x2,-0x2 0166 67d1 |g | Indirect_Literal Discrete,0x138,{0x00000000, 0x7fffffff} 0167 e402 | | Load 0x2,0x2 0168 8220 | | Call 0x1,0x20 0169 c404 | | Store 0x2,0x4 016a 005a | Z | Store_Top Discrete,At_Offset_2 016b 00da | | Load_Top At_Offset_2 016c e5fe | | Load 0x2,-0x2 016d 021f | | Execute Heap_Access,Equal 016e 6802 |h | Jump_Zero 0x171 016f 00d9 | | Load_Top At_Offset_1 0170 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0171 00d9 | | Load_Top At_Offset_1 0172 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0173 00e3 | | Load_Encached Natural_Cache 0174 00ec | | Load_Encached Diana_Tree_Cache 0175 e5fe | | Load 0x2,-0x2 0176 67c1 |g | Indirect_Literal Discrete,0x138,{0x00000000, 0x7fffffff} 0177 e403 | | Load 0x2,0x3 0178 8220 | | Call 0x1,0x20 0179 c404 | | Store 0x2,0x4 017a 005a | Z | Store_Top Discrete,At_Offset_2 017b 00da | | Load_Top At_Offset_2 017c e5fe | | Load 0x2,-0x2 017d 021f | | Execute Heap_Access,Equal 017e 6809 |h | Jump_Zero 0x188 017f 00d9 | | Load_Top At_Offset_1 0180 00d9 | | Load_Top At_Offset_1 0181 0273 | s | Execute Discrete,Plus 0182 00d8 | | Load_Top At_Offset_0 0183 00e3 | | Load_Encached Natural_Cache 0184 0260 | ` | Execute Discrete,In_Type 0185 7001 |p | Jump_Nonzero 0x187 0186 0801 | | Execute_Immediate Raise,0x1 0187 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0188 4800 |H | Short_Literal 0x0 0189 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0197 | | .CONST 0x0197 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00db | | Load_Top At_Offset_3 0194 00db | | Load_Top At_Offset_3 0195 8211 | | Call 0x1,0x11 0196 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0197 TRAP_0190: 0197 0007 | | Action Break_Optional 0198 e5fe | | Load 0x2,-0x2 0199 e5ff | | Load 0x2,-0x1 019a 8212 | | Call 0x1,0x12 019b 0275 | u | Execute Discrete,Unary_Minus 019c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a5 | | .CONST 0x01a5 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0003 | | .CONST 0x0003 ; Number of locals 01a3 INIT_01a0: 01a3 00ec | | Load_Encached Diana_Tree_Cache 01a4 00e3 | | Load_Encached Natural_Cache 01a5 BODY_01a0: 01a5 e5ff | | Load 0x2,-0x1 01a6 8219 | | Call 0x1,0x19 01a7 00e3 | | Load_Encached Natural_Cache 01a8 00ec | | Load_Encached Diana_Tree_Cache 01a9 00eb | | Load_Encached Diana_Cache 01aa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ab 6008 |` | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x7fffffff} 01ac e5ff | | Load 0x2,-0x1 01ad 8218 | | Call 0x1,0x18 01ae 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01af 0059 | Y | Store_Top Discrete,At_Offset_1 01b0 00d8 | | Load_Top At_Offset_0 01b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b2 0000 0000 | | .XXX[0x2] 01b4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c0 | | .CONST 0x01c0 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0005 | | .CONST 0x0005 ; Number of locals 01bb INIT_01b8: 01bb 00ec | | Load_Encached Diana_Tree_Cache 01bc 039d | | Declare_Variable Heap_Access,Duplicate 01bd 00ee | | Load_Encached Diana_Seq_Type_Cache 01be 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 01c0 BODY_01b8: 01c0 e5ff | | Load 0x2,-0x1 01c1 00eb | | Load_Encached Diana_Cache 01c2 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01c3 a402 | | Store_Unchecked 0x2,0x2 01c4 00db | | Load_Top At_Offset_3 01c5 00eb | | Load_Encached Diana_Cache 01c6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01c7 0f97 | | Execute_Immediate Equal,-0x69 01c8 6816 |h | Jump_Zero 0x1df 01c9 00db | | Load_Top At_Offset_3 01ca 00eb | | Load_Encached Diana_Cache 01cb 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01cc 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01cd 00da | | Load_Top At_Offset_2 01ce 00eb | | Load_Encached Diana_Cache 01cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01d0 0b60 | ` | Execute_Immediate Case_Compare,0x60 01d1 7004 |p | Jump_Nonzero 0x1d6 01d2 0f9e | | Execute_Immediate Equal,-0x62 01d3 7003 |p | Jump_Nonzero 0x1d7 01d4 4800 |H | Short_Literal 0x0 01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d6 00d1 | | Pop_Control Pop_Count_1 01d7 00db | | Load_Top At_Offset_3 01d8 00eb | | Load_Encached Diana_Cache 01d9 1888 | | Execute Package,Field_Execute,Field_Number 0x88 01da 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01db e5ff | | Load 0x2,-0x1 01dc 8405 | | Call 0x2,0x5 01dd 021f | | Execute Heap_Access,Equal 01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01df 4800 |H | Short_Literal 0x0 01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 00eb | | Load_Encached Diana_Cache 01ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01ee 00d8 | | Load_Top At_Offset_0 01ef 0d52 | R | Execute_Immediate Less,0x52 01f0 700b |p | Jump_Nonzero 0x1fc 01f1 00d8 | | Load_Top At_Offset_0 01f2 0c53 | S | Execute_Immediate Greater_Equal,0x53 01f3 7005 |p | Jump_Nonzero 0x1f9 01f4 00d1 | | Pop_Control Pop_Count_1 01f5 00da | | Load_Top At_Offset_2 01f6 8216 | | Call 0x1,0x16 01f7 0f00 | | Execute_Immediate Equal,0x0 01f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f9 0f5f | _ | Execute_Immediate Equal,0x5f 01fa 700a |p | Jump_Nonzero 0x205 01fb 780b |x | Jump 0x207 01fc 0f40 | @ | Execute_Immediate Equal,0x40 01fd 7001 |p | Jump_Nonzero 0x1ff 01fe 7808 |x | Jump 0x207 01ff 00da | | Load_Top At_Offset_2 0200 49a1 |I | Short_Literal 0x1a1 0201 00eb | | Load_Encached Diana_Cache 0202 0096 | | Execute Package,Entry 0203 0f00 | | Execute_Immediate Equal,0x0 0204 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0205 4800 |H | Short_Literal 0x0 0206 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0207 4801 |H | Short_Literal 0x1 0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0226 | & | .CONST 0x0226 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0009 | | .CONST 0x0009 ; Number of locals 0213 INIT_0210: 0213 00ec | | Load_Encached Diana_Tree_Cache 0214 00e3 | | Load_Encached Natural_Cache 0215 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0216 00e1 | | Load_Encached Boolean_Cache 0217 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0218 029e 034b | K| Declare_Subprogram INIT_0348,For_Call,Unelaborated 021a 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call 021c 029f 03db | | Declare_Subprogram INIT_03d8,For_Call 021e 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 0220 029f 0403 | | Declare_Subprogram INIT_0400,For_Call 0222 4805 |H | Short_Literal 0x5 0223 4802 |H | Short_Literal 0x2 0224 0099 | | Action Reference_Dynamic 0225 00c7 | | Action Elaborate_Subprogram 0226 BODY_0210: 0226 e5ff | | Load 0x2,-0x1 0227 8405 | | Call 0x2,0x5 0228 e402 | | Load 0x2,0x2 0229 a5fc | | Store_Unchecked 0x2,-0x4 022a e403 | | Load 0x2,0x3 022b a5fb | | Store_Unchecked 0x2,-0x5 022c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 022d 0000 0000 | | .XXX[0x3] 022f 0000 | | 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 00eb | | Load_Encached Diana_Cache 0235 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0236 0b4e | N | Execute_Immediate Case_Compare,0x4e 0237 7004 |p | Jump_Nonzero 0x23c 0238 0f4c | L | Execute_Immediate Equal,0x4c 0239 7003 |p | Jump_Nonzero 0x23d 023a e215 | | Load 0x1,0x15 023b 0257 | W | Execute Discrete,Raise 023c 00d1 | | Pop_Control Pop_Count_1 023d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 023e 0000 0000 | | .XXX[0x2] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 0244 00eb | | Load_Encached Diana_Cache 0245 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0246 00d8 | | Load_Top At_Offset_0 0247 4857 |HW | Short_Literal 0x57 0248 4858 |HX | Short_Literal 0x58 0249 0262 | b | Execute Discrete,In_Range 024a 7004 |p | Jump_Nonzero 0x24f 024b 0f59 | Y | Execute_Immediate Equal,0x59 024c 7007 |p | Jump_Nonzero 0x254 024d 00da | | Load_Top At_Offset_2 024e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024f 00d1 | | Pop_Control Pop_Count_1 0250 00da | | Load_Top At_Offset_2 0251 00eb | | Load_Encached Diana_Cache 0252 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0 0253 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0254 00da | | Load_Top At_Offset_2 0255 00eb | | Load_Encached Diana_Cache 0256 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0257 00eb | | Load_Encached Diana_Cache 0258 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0 0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025a 0000 0000 | | .BLANK 0000[0x6] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 00eb | | Load_Encached Diana_Cache 0265 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0266 6809 |h | Jump_Zero 0x270 0267 0092 0541 | A| Action Push_String_Extended,0x541 ; "." 0269 00db | | Load_Top At_Offset_3 026a 00eb | | Load_Encached Diana_Cache 026b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 026c 00eb | | Load_Encached Diana_Cache 026d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 026e 01cc | | Execute Vector,Catenate 026f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0270 00ea | | Load_Encached Null_String_Cache 0271 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0272 0000 0000 | | .BLANK 0000[0x6] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00da | | Load_Top At_Offset_2 027c 00eb | | Load_Encached Diana_Cache 027d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 027e 00eb | | Load_Encached Diana_Cache 027f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0280 011c | | Execute Any,Convert_Unchecked 0281 1c01 | | Execute_Immediate Run_Utility,0x1 0282 00db | | Load_Top At_Offset_3 0283 821b | | Call 0x1,0x1b 0284 01cc | | Execute Vector,Catenate 0285 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0286 0000 0000 | | .XXX[0x2] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 00da | | Load_Top At_Offset_2 028c 7011 |p | Jump_Nonzero 0x29e 028d e5fd | | Load 0x2,-0x3 028e 00eb | | Load_Encached Diana_Cache 028f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0290 6804 |h | Jump_Zero 0x295 0291 00db | | Load_Top At_Offset_3 0292 e004 | | Load 0x0,0x4 0293 180f | | Execute Package,Field_Execute,Field_Number 0xf 0294 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0295 00db | | Load_Top At_Offset_3 0296 0092 0542 | B| Action Push_String_Extended,0x542 ; ": " 0298 01cc | | Execute Vector,Catenate 0299 e5fd | | Load 0x2,-0x3 029a 821c | | Call 0x1,0x1c 029b 01cc | | Execute Vector,Catenate 029c e004 | | Load 0x0,0x4 029d 180f | | Execute Package,Field_Execute,Field_Number 0xf 029e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 029f 0000 | | .XXX[0x1] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 00da | | Load_Top At_Offset_2 02a4 00eb | | Load_Encached Diana_Cache 02a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a6 00d8 | | Load_Top At_Offset_0 02a7 0d4c | L | Execute_Immediate Less,0x4c 02a8 700b |p | Jump_Nonzero 0x2b4 02a9 00d8 | | Load_Top At_Offset_0 02aa 0c4f | O | Execute_Immediate Greater_Equal,0x4f 02ab 7005 |p | Jump_Nonzero 0x2b1 02ac 0b4c | L | Execute_Immediate Case_Compare,0x4c 02ad 700d |p | Jump_Nonzero 0x2bb 02ae 0f4e | N | Execute_Immediate Equal,0x4e 02af 7013 |p | Jump_Nonzero 0x2c3 02b0 7804 |x | Jump 0x2b5 02b1 0f7c | | | Execute_Immediate Equal,0x7c 02b2 701a |p | Jump_Nonzero 0x2cd 02b3 7801 |x | Jump 0x2b5 02b4 00d1 | | Pop_Control Pop_Count_1 02b5 00da | | Load_Top At_Offset_2 02b6 0092 0543 | C| Action Push_String_Extended,0x543 ; "Get_Nth_Declaration passed incorrect node" 02b8 4800 |H | Short_Literal 0x0 02b9 821d | | Call 0x1,0x1d 02ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02bb 00d1 | | Pop_Control Pop_Count_1 02bc 00eb | | Load_Encached Diana_Cache 02bd 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 02be a5fe | | Store_Unchecked 0x2,-0x2 02bf 00eb | | Load_Encached Diana_Cache 02c0 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 02c1 a5fe | | Store_Unchecked 0x2,-0x2 02c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c3 00da | | Load_Top At_Offset_2 02c4 00eb | | Load_Encached Diana_Cache 02c5 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1 02c6 00eb | | Load_Encached Diana_Cache 02c7 1888 | | Execute Package,Field_Execute,Field_Number 0x88 02c8 a5fe | | Store_Unchecked 0x2,-0x2 02c9 00eb | | Load_Encached Diana_Cache 02ca 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 02cb a5fd | | Store_Unchecked 0x2,-0x3 02cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02cd 00da | | Load_Top At_Offset_2 02ce 00eb | | Load_Encached Diana_Cache 02cf 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 02d0 00eb | | Load_Encached Diana_Cache 02d1 1888 | | Execute Package,Field_Execute,Field_Number 0x88 02d2 a5fe | | Store_Unchecked 0x2,-0x2 02d3 00da | | Load_Top At_Offset_2 02d4 00eb | | Load_Encached Diana_Cache 02d5 18be | | Execute Package,Field_Execute,Field_Number 0xbe 02d6 00eb | | Load_Encached Diana_Cache 02d7 1888 | | Execute Package,Field_Execute,Field_Number 0x88 02d8 a5fd | | Store_Unchecked 0x2,-0x3 02d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02da 0000 0000 | | .BLANK 0000[0x6] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00db | | Load_Top At_Offset_3 02e4 00eb | | Load_Encached Diana_Cache 02e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02e6 7004 |p | Jump_Nonzero 0x2eb 02e7 00da | | Load_Top At_Offset_2 02e8 e5fe | | Load 0x2,-0x2 02e9 021f | | Execute Heap_Access,Equal 02ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02eb 4800 |H | Short_Literal 0x0 02ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02ed 0000 0000 | | .XXX[0x3] 02ef 0000 | | 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02fd | | .CONST 0x02fd ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0004 | | .CONST 0x0004 ; Number of locals 02f3 INIT_02f0: 02f3 00da | | Load_Top At_Offset_2 02f4 4975 |Iu | Short_Literal 0x175 02f5 00eb | | Load_Encached Diana_Cache 02f6 0098 | | Execute Package,Field_Read_Dynamic 02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f8 00e3 | | Load_Encached Natural_Cache 02f9 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02fa 00e3 | | Load_Encached Natural_Cache 02fb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02fc 00ec | | Load_Encached Diana_Tree_Cache 02fd BODY_02f0: 02fd 00cf | | Action Mark_Auxiliary 02fe 00db | | Load_Top At_Offset_3 02ff 4801 |H | Short_Literal 0x1 0300 0263 | c | Execute Discrete,Above_Bound 0301 701c |p | Jump_Nonzero 0x31e 0302 00d8 | | Load_Top At_Offset_0 0303 e5ff | | Load 0x2,-0x1 0304 4975 |Iu | Short_Literal 0x175 0305 00eb | | Load_Encached Diana_Cache 0306 0098 | | Execute Package,Field_Read_Dynamic 0307 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0308 a404 | | Store_Unchecked 0x2,0x4 0309 00db | | Load_Top At_Offset_3 030a 820d | | Call 0x1,0xd 030b 6810 |h | Jump_Zero 0x31c 030c e403 | | Load 0x2,0x3 030d 0a01 | | Execute_Immediate Plus,0x1 030e c403 | | Store 0x2,0x3 030f e403 | | Load 0x2,0x3 0310 e5fe | | Load 0x2,-0x2 0311 027f | | Execute Discrete,Equal 0312 7004 |p | Jump_Nonzero 0x317 0313 e5fd | | Load 0x2,-0x3 0314 e404 | | Load 0x2,0x4 0315 821f | | Call 0x1,0x1f 0316 6805 |h | Jump_Zero 0x31c 0317 00db | | Load_Top At_Offset_3 0318 a5fc | | Store_Unchecked 0x2,-0x4 0319 e403 | | Load 0x2,0x3 031a a5fb | | Store_Unchecked 0x2,-0x5 031b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 031c 00c8 | | Action Pop_Auxiliary_Range 031d 3fe4 |? | Loop_Increasing 0x302 031e 00ce | | Action Pop_Auxiliary 031f 00d9 | | Load_Top At_Offset_1 0320 a5fb | | Store_Unchecked 0x2,-0x5 0321 00eb | | Load_Encached Diana_Cache 0322 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0323 a5fc | | Store_Unchecked 0x2,-0x4 0324 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0325 0000 0000 | | .XXX[0x3] 0327 0000 | | 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032c | , | .CONST 0x032c ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0002 | | .CONST 0x0002 ; Number of locals 032b INIT_0328: 032b 00ec | | Load_Encached Diana_Tree_Cache 032c BODY_0328: 032c 00cf | | Action Mark_Auxiliary 032d 7810 |x | Jump 0x33e 032e e404 | | Load 0x2,0x4 032f 00eb | | Load_Encached Diana_Cache 0330 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0331 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0332 00d9 | | Load_Top At_Offset_1 0333 49a1 |I | Short_Literal 0x1a1 0334 00eb | | Load_Encached Diana_Cache 0335 0096 | | Execute Package,Entry 0336 7002 |p | Jump_Nonzero 0x339 0337 00d9 | | Load_Top At_Offset_1 0338 00ca | | Action Exit_Nullary_Function 0339 e404 | | Load 0x2,0x4 033a 00eb | | Load_Encached Diana_Cache 033b 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 033c a404 | | Store_Unchecked 0x2,0x4 033d 00c9 | | Action Pop_Auxiliary_Loop 033e e404 | | Load 0x2,0x4 033f 00eb | | Load_Encached Diana_Cache 0340 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 0341 6fec |o | Jump_Zero 0x32e 0342 00ce | | Action Pop_Auxiliary 0343 00eb | | Load_Encached Diana_Cache 0344 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0345 00ca | | Action Exit_Nullary_Function 0346 0000 0000 | | .XXX[0x2] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0367 | g | .CONST 0x0367 ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 000f | | .CONST 0x000f ; Number of locals 034b INIT_0348: 034b 029f 0413 | | Declare_Subprogram INIT_0410,For_Call 034d 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call 034f 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call 0351 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 0353 029f 045b | [| Declare_Subprogram INIT_0458,For_Call 0355 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call 0357 029f 047b | {| Declare_Subprogram INIT_0478,For_Call 0359 029f 048b | | Declare_Subprogram INIT_0488,For_Call 035b 029f 0493 | | Declare_Subprogram INIT_0490,For_Call 035d 029f 04ab | | Declare_Subprogram INIT_04a8,For_Call 035f 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call 0361 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 0363 029f 0513 | | Declare_Subprogram INIT_0510,For_Call 0365 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call 0367 BODY_0348: 0367 e7ff | | Load 0x3,-0x1 0368 00eb | | Load_Encached Diana_Cache 0369 1814 | | Execute Package,Field_Execute,Field_Number 0x14 036a 00d8 | | Load_Top At_Offset_0 036b 0d4a | J | Execute_Immediate Less,0x4a 036c 7043 |pC | Jump_Nonzero 0x3b0 036d 00d8 | | Load_Top At_Offset_0 036e 0c59 | Y | Execute_Immediate Greater_Equal,0x59 036f 7016 |p | Jump_Nonzero 0x386 0370 0ab6 | | Execute_Immediate Plus,-0x4a 0371 460e |F | Jump_Case 0xf 0372 7841 |xA | Jump 0x3b4 ; case 0x0 0373 7835 |x5 | Jump 0x3a9 ; case 0x1 0374 784e |xN | Jump 0x3c3 ; case 0x2 0375 7833 |x3 | Jump 0x3a9 ; case 0x3 0376 7845 |xE | Jump 0x3bc ; case 0x4 0377 7842 |xB | Jump 0x3ba ; case 0x5 0378 7830 |x0 | Jump 0x3a9 ; case 0x6 0379 7847 |xG | Jump 0x3c1 ; case 0x7 037a 782e |x. | Jump 0x3a9 ; case 0x8 037b 782d |x- | Jump 0x3a9 ; case 0x9 037c 782c |x, | Jump 0x3a9 ; case 0xa 037d 782b |x+ | Jump 0x3a9 ; case 0xb 037e 7833 |x3 | Jump 0x3b2 ; case 0xc 037f 7801 |x | Jump 0x381 ; case 0xd 0380 7800 |x | Jump 0x381 ; case 0xe 0381 e7ff | | Load 0x3,-0x1 0382 00eb | | Load_Encached Diana_Cache 0383 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0 0384 8405 | | Call 0x2,0x5 0385 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0386 00d8 | | Load_Top At_Offset_0 0387 0d97 | | Execute_Immediate Less,-0x69 0388 7022 |p" | Jump_Nonzero 0x3ab 0389 00d8 | | Load_Top At_Offset_0 038a 0c98 | | Execute_Immediate Greater_Equal,-0x68 038b 7004 |p | Jump_Nonzero 0x390 038c 00d1 | | Pop_Control Pop_Count_1 038d e7ff | | Load 0x3,-0x1 038e 8409 | | Call 0x2,0x9 038f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0390 4f68 |Oh | Short_Literal -0x98 0391 0273 | s | Execute Discrete,Plus 0392 4615 |F | Jump_Case 0x16 0393 7815 |x | Jump 0x3a9 ; case 0x0 0394 7814 |x | Jump 0x3a9 ; case 0x1 0395 7813 |x | Jump 0x3a9 ; case 0x2 0396 7812 |x | Jump 0x3a9 ; case 0x3 0397 7811 |x | Jump 0x3a9 ; case 0x4 0398 7810 |x | Jump 0x3a9 ; case 0x5 0399 782b |x+ | Jump 0x3c5 ; case 0x6 039a 781b |x | Jump 0x3b6 ; case 0x7 039b 780d |x | Jump 0x3a9 ; case 0x8 039c 781b |x | Jump 0x3b8 ; case 0x9 039d 780b |x | Jump 0x3a9 ; case 0xa 039e 780a |x | Jump 0x3a9 ; case 0xb 039f 7809 |x | Jump 0x3a9 ; case 0xc 03a0 7808 |x | Jump 0x3a9 ; case 0xd 03a1 7807 |x | Jump 0x3a9 ; case 0xe 03a2 7806 |x | Jump 0x3a9 ; case 0xf 03a3 7805 |x | Jump 0x3a9 ; case 0x10 03a4 7804 |x | Jump 0x3a9 ; case 0x11 03a5 7803 |x | Jump 0x3a9 ; case 0x12 03a6 7802 |x | Jump 0x3a9 ; case 0x13 03a7 7801 |x | Jump 0x3a9 ; case 0x14 03a8 7800 |x | Jump 0x3a9 ; case 0x15 03a9 860f | | Call 0x3,0xf 03aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ab 0b5e | ^ | Execute_Immediate Case_Compare,0x5e 03ac 7011 |p | Jump_Nonzero 0x3be 03ad 0f60 | ` | Execute_Immediate Equal,0x60 03ae 7012 |p | Jump_Nonzero 0x3c1 03af 7ff9 | | Jump 0x3a9 03b0 6816 |h | Jump_Zero 0x3c7 03b1 7ff7 | | Jump 0x3a9 03b2 8603 | | Call 0x3,0x3 03b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03b4 8604 | | Call 0x3,0x4 03b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03b6 8606 | | Call 0x3,0x6 03b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03b8 8607 | | Call 0x3,0x7 03b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ba 8605 | | Call 0x3,0x5 03bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03bc 860a | | Call 0x3,0xa 03bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03be 00d1 | | Pop_Control Pop_Count_1 03bf 860d | | Call 0x3,0xd 03c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c1 860e | | Call 0x3,0xe 03c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c3 8609 | | Call 0x3,0x9 03c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c5 860c | | Call 0x3,0xc 03c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb e5fd | | Load 0x2,-0x3 03cc 00eb | | Load_Encached Diana_Cache 03cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ce 7004 |p | Jump_Nonzero 0x3d3 03cf e402 | | Load 0x2,0x2 03d0 e5fd | | Load 0x2,-0x3 03d1 021f | | Execute Heap_Access,Equal 03d2 00ca | | Action Exit_Nullary_Function 03d3 4800 |H | Short_Literal 0x0 03d4 00ca | | Action Exit_Nullary_Function 03d5 0000 0000 | | .XXX[0x3] 03d7 0000 | | 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db e403 | | Load 0x2,0x3 03dc e5fe | | Load 0x2,-0x2 03dd 027b | { | Execute Discrete,Greater_Equal 03de 8406 | | Call 0x2,0x6 03df 0278 | x | Execute Discrete,Or 03e0 00ca | | Action Exit_Nullary_Function 03e1 0000 0000 | | .BLANK 0000[0x7] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03ec | | .CONST 0x03ec ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0002 | | .CONST 0x0002 ; Number of locals 03eb INIT_03e8: 03eb 00da | | Load_Top At_Offset_2 03ec BODY_03e8: 03ec 00cf | | Action Mark_Auxiliary 03ed 7809 |x | Jump 0x3f7 03ee 00d9 | | Load_Top At_Offset_1 03ef 00eb | | Load_Encached Diana_Cache 03f0 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 03f1 8405 | | Call 0x2,0x5 03f2 00d9 | | Load_Top At_Offset_1 03f3 00eb | | Load_Encached Diana_Cache 03f4 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 03f5 0032 | 2 | Store_Top Heap_Access,At_Offset_2 03f6 00c9 | | Action Pop_Auxiliary_Loop 03f7 8407 | | Call 0x2,0x7 03f8 0f00 | | Execute_Immediate Equal,0x0 03f9 00da | | Load_Top At_Offset_2 03fa 00eb | | Load_Encached Diana_Cache 03fb 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 03fc 0f00 | | Execute_Immediate Equal,0x0 03fd 0279 | y | Execute Discrete,And 03fe 77ef |w | Jump_Nonzero 0x3ee 03ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 8407 | | Call 0x2,0x7 0404 7004 |p | Jump_Nonzero 0x409 0405 00da | | Load_Top At_Offset_2 0406 00eb | | Load_Encached Diana_Cache 0407 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0408 8408 | | Call 0x2,0x8 0409 4502 |E | Exit_Suprogram New_Top_Offset 0x2 040a 0000 0000 | | .BLANK 0000[0x6] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 00da | | Load_Top At_Offset_2 0414 8217 | | Call 0x1,0x17 0415 6805 |h | Jump_Zero 0x41b 0416 e403 | | Load 0x2,0x3 0417 0a01 | | Execute_Immediate Plus,0x1 0418 c403 | | Store 0x2,0x3 0419 00da | | Load_Top At_Offset_2 041a a402 | | Store_Unchecked 0x2,0x2 041b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 041c 0000 0000 | | .BLANK 0000[0x4] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0423 | # | .CONST 0x0423 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0001 | | .CONST 0x0001 ; Number of locals 0423 BODY_0420: 0423 INIT_0420: 0423 e7ff | | Load 0x3,-0x1 0424 8602 | | Call 0x3,0x2 0425 e7ff | | Load 0x3,-0x1 0426 00eb | | Load_Encached Diana_Cache 0427 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0428 00eb | | Load_Encached Diana_Cache 0429 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 042a 00eb | | Load_Encached Diana_Cache 042b 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 042c 8409 | | Call 0x2,0x9 042d e7ff | | Load 0x3,-0x1 042e 00eb | | Load_Encached Diana_Cache 042f 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0430 00eb | | Load_Encached Diana_Cache 0431 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0432 8408 | | Call 0x2,0x8 0433 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0434 0000 0000 | | .BLANK 0000[0x4] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b e7ff | | Load 0x3,-0x1 043c 8602 | | Call 0x3,0x2 043d e7ff | | Load 0x3,-0x1 043e 00eb | | Load_Encached Diana_Cache 043f 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 0440 8409 | | Call 0x2,0x9 0441 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0442 0000 0000 | | .BLANK 0000[0x6] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b e7ff | | Load 0x3,-0x1 044c 8602 | | Call 0x3,0x2 044d e7ff | | Load 0x3,-0x1 044e 00eb | | Load_Encached Diana_Cache 044f 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4 0450 8409 | | Call 0x2,0x9 0451 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0452 0000 0000 | | .BLANK 0000[0x6] 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 e7ff | | Load 0x3,-0x1 045c 00eb | | Load_Encached Diana_Cache 045d 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 045e 8409 | | Call 0x2,0x9 045f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0466 | f | .CONST 0x0466 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0002 | | .CONST 0x0002 ; Number of locals 0463 INIT_0460: 0463 e7ff | | Load 0x3,-0x1 0464 00eb | | Load_Encached Diana_Cache 0465 18ca | | Execute Package,Field_Execute,Field_Number 0xca 0466 BODY_0460: 0466 00d8 | | Load_Top At_Offset_0 0467 00eb | | Load_Encached Diana_Cache 0468 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0469 7002 |p | Jump_Nonzero 0x46c 046a e7ff | | Load 0x3,-0x1 046b 8602 | | Call 0x3,0x2 046c e7ff | | Load 0x3,-0x1 046d 00eb | | Load_Encached Diana_Cache 046e 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 046f 8409 | | Call 0x2,0x9 0470 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 e404 | | Load 0x2,0x4 047c 7007 |p | Jump_Nonzero 0x484 047d 4801 |H | Short_Literal 0x1 047e a404 | | Store_Unchecked 0x2,0x4 047f 00da | | Load_Top At_Offset_2 0480 00eb | | Load_Encached Diana_Cache 0481 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 0482 8409 | | Call 0x2,0x9 0483 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0484 00da | | Load_Top At_Offset_2 0485 8602 | | Call 0x3,0x2 0486 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0487 0000 | | .XXX[0x1] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b e7ff | | Load 0x3,-0x1 048c 8608 | | Call 0x3,0x8 048d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 048e 0000 0000 | | .XXX[0x2] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 e404 | | Load 0x2,0x4 0494 700b |p | Jump_Nonzero 0x4a0 0495 4801 |H | Short_Literal 0x1 0496 a404 | | Store_Unchecked 0x2,0x4 0497 e7ff | | Load 0x3,-0x1 0498 00eb | | Load_Encached Diana_Cache 0499 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 049a 8409 | | Call 0x2,0x9 049b e7ff | | Load 0x3,-0x1 049c 00eb | | Load_Encached Diana_Cache 049d 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4 049e 8409 | | Call 0x2,0x9 049f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04a0 e7ff | | Load 0x3,-0x1 04a1 8602 | | Call 0x3,0x2 04a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04a3 0000 0000 | | .BLANK 0000[0x5] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab 00cf | | Action Mark_Auxiliary 04ac 7805 |x | Jump 0x4b2 04ad 00db | | Load_Top At_Offset_3 04ae 00eb | | Load_Encached Diana_Cache 04af 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 04b0 a9ff | | Store_Unchecked 0x4,-0x1 04b1 00c9 | | Action Pop_Auxiliary_Loop 04b2 00db | | Load_Top At_Offset_3 04b3 00eb | | Load_Encached Diana_Cache 04b4 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 04b5 7007 |p | Jump_Nonzero 0x4bd 04b6 00db | | Load_Top At_Offset_3 04b7 00eb | | Load_Encached Diana_Cache 04b8 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 04b9 49a1 |I | Short_Literal 0x1a1 04ba 00eb | | Load_Encached Diana_Cache 04bb 0096 | | Execute Package,Entry 04bc 77f0 |w | Jump_Nonzero 0x4ad 04bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04be 0000 0000 | | .XXX[0x2] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c9 | | .CONST 0x04c9 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0003 | | .CONST 0x0003 ; Number of locals 04c3 INIT_04c0: 04c3 00ec | | Load_Encached Diana_Tree_Cache 04c4 e7ff | | Load 0x3,-0x1 04c5 00eb | | Load_Encached Diana_Cache 04c6 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 04c7 00eb | | Load_Encached Diana_Cache 04c8 1888 | | Execute Package,Field_Execute,Field_Number 0x88 04c9 BODY_04c0: 04c9 00d8 | | Load_Top At_Offset_0 04ca 860b | | Call 0x3,0xb 04cb 0031 | 1 | Store_Top Heap_Access,At_Offset_1 04cc 00d8 | | Load_Top At_Offset_0 04cd 00eb | | Load_Encached Diana_Cache 04ce 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 04cf 0032 | 2 | Store_Top Heap_Access,At_Offset_2 04d0 00d9 | | Load_Top At_Offset_1 04d1 00eb | | Load_Encached Diana_Cache 04d2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04d3 0f4c | L | Execute_Immediate Equal,0x4c 04d4 6802 |h | Jump_Zero 0x4d7 04d5 00d9 | | Load_Top At_Offset_1 04d6 8608 | | Call 0x3,0x8 04d7 00d8 | | Load_Top At_Offset_0 04d8 00eb | | Load_Encached Diana_Cache 04d9 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 04da 8408 | | Call 0x2,0x8 04db 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04dc 0000 0000 | | .BLANK 0000[0x4] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04e7 | | .CONST 0x04e7 ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0004 | | .CONST 0x0004 ; Number of locals 04e3 INIT_04e0: 04e3 00ee | | Load_Encached Diana_Seq_Type_Cache 04e4 00ec | | Load_Encached Diana_Tree_Cache 04e5 029f 052b | +| Declare_Subprogram INIT_0528,For_Call 04e7 BODY_04e0: 04e7 e7ff | | Load 0x3,-0x1 04e8 8602 | | Call 0x3,0x2 04e9 8407 | | Call 0x2,0x7 04ea 6801 |h | Jump_Zero 0x4ec 04eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04ec e7ff | | Load 0x3,-0x1 04ed 00eb | | Load_Encached Diana_Cache 04ee 18df | | Execute Package,Field_Execute,Field_Number 0xdf 04ef 00eb | | Load_Encached Diana_Cache 04f0 1888 | | Execute Package,Field_Execute,Field_Number 0x88 04f1 0033 | 3 | Store_Top Heap_Access,At_Offset_3 04f2 00da | | Load_Top At_Offset_2 04f3 860b | | Call 0x3,0xb 04f4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 04f5 00da | | Load_Top At_Offset_2 04f6 00eb | | Load_Encached Diana_Cache 04f7 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 04f8 8405 | | Call 0x2,0x5 04f9 00da | | Load_Top At_Offset_2 04fa 00eb | | Load_Encached Diana_Cache 04fb 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 04fc 8804 | | Call 0x4,0x4 04fd e7ff | | Load 0x3,-0x1 04fe 00eb | | Load_Encached Diana_Cache 04ff 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 0500 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0501 00d9 | | Load_Top At_Offset_1 0502 00eb | | Load_Encached Diana_Cache 0503 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0504 7008 |p | Jump_Nonzero 0x50d 0505 00d9 | | Load_Top At_Offset_1 0506 00eb | | Load_Encached Diana_Cache 0507 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0508 00eb | | Load_Encached Diana_Cache 0509 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 050a 7002 |p | Jump_Nonzero 0x50d 050b 00d9 | | Load_Top At_Offset_1 050c 8405 | | Call 0x2,0x5 050d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 050e 0000 0000 | | .XXX[0x2] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0513 | | .CONST 0x0513 ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0001 | | .CONST 0x0001 ; Number of locals 0513 BODY_0510: 0513 INIT_0510: 0513 e7ff | | Load 0x3,-0x1 0514 8602 | | Call 0x3,0x2 0515 e7ff | | Load 0x3,-0x1 0516 00eb | | Load_Encached Diana_Cache 0517 18e2 | | Execute Package,Field_Execute,Field_Number 0xe2 0518 8409 | | Call 0x2,0x9 0519 e7ff | | Load 0x3,-0x1 051a 00eb | | Load_Encached Diana_Cache 051b 18e3 | | Execute Package,Field_Execute,Field_Number 0xe3 051c 8409 | | Call 0x2,0x9 051d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 051e 0000 0000 | | .XXX[0x2] 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0523 | # | .CONST 0x0523 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0001 | | .CONST 0x0001 ; Number of locals 0523 BODY_0520: 0523 INIT_0520: 0523 e7ff | | Load 0x3,-0x1 0524 8602 | | Call 0x3,0x2 0525 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0526 0000 0000 | | .XXX[0x2] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052c | , | .CONST 0x052c ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0002 | | .CONST 0x0002 ; Number of locals 052b INIT_0528: 052b 00da | | Load_Top At_Offset_2 052c BODY_0528: 052c 00cf | | Action Mark_Auxiliary 052d 7809 |x | Jump 0x537 052e 00d9 | | Load_Top At_Offset_1 052f 00eb | | Load_Encached Diana_Cache 0530 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0531 8405 | | Call 0x2,0x5 0532 00d9 | | Load_Top At_Offset_1 0533 00eb | | Load_Encached Diana_Cache 0534 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0535 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0536 00c9 | | Action Pop_Auxiliary_Loop 0537 8407 | | Call 0x2,0x7 0538 7004 |p | Jump_Nonzero 0x53d 0539 00d9 | | Load_Top At_Offset_1 053a 00eb | | Load_Encached Diana_Cache 053b 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 053c 6ff1 |o | Jump_Zero 0x52e 053d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 053e ; -------------------------------------------------------------------------------------- 053e ; STRING TABLE 053e ; -------------------------------------------------------------------------------------- 053e 000e | | .STRTAB 0x000e->0x0545 ; "Get_Declaration_Number passed empty Decl_Node" 053f 0039 | 9 | .STRTAB 0x0039->0x055b ; "Get_Declaration_Number passed non Decl Node" 0540 0062 | b | .STRTAB 0x0062->0x0571 ; "Get_Declaration_Number passed unnumbered Decl_Node" 0541 0092 | | .STRTAB 0x0092->0x058a ; "." 0542 0091 | | .STRTAB 0x0091->0x058a ; ": " 0543 0091 | | .STRTAB 0x0091->0x058b ; "Get_Nth_Declaration passed incorrect node" 0544 00b8 | | .STREND 0x00b8->0x05a0 0545 4765 745f |Get_| .STRTAB_STRINGS 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; Debug Table 05a0 ; -------------------------------------------------------------------------------------- 05a0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a9d,0x0000,0x0001,0x0000 05a6 0000 0001 | | .XXX[0x5a] 05a8 e000 0000 | | 05aa 0800 0003 | | 05ac e001 0a6a | j| 05ae 4a1a 927a |J z| 05b0 1a7a 222a | z"*| 05b2 faa2 ca82 | | 05b4 2a99 72ba |* r | 05b6 7a92 22fa |z " | 05b8 224a 9a82 |"J | 05ba 620a 1a2a |b *| 05bc 6a2a 72a1 |j*r | 05be dccb 91cc | | 05c0 80e0 0022 | "| 05c2 820a 3a2b | :+| 05c4 30b8 00da |0 | 05c6 6a4a 1a92 |jJ | 05c8 7a1a 7a22 |z z"| 05ca 2afa a2ca |* | 05cc 822a 9972 | * r| 05ce 820a 3a2a | :*| 05d0 fa72 aa6a | r j| 05d2 122a 9000 | * | 05d4 01cc 80e0 | | 05d6 0022 ba7a | " z| 05d8 9223 30b8 | #0 | 05da 00da 6a4a | jJ| 05dc 1a92 7a1a | z | 05de 7a22 2afa |z"* | 05e0 a2ca 822a | *| 05e2 9972 ba7a | r z| 05e4 9222 fa72 | " r| 05e6 aa6a 122a | j *| 05e8 9000 0000 | | 05ea 0000 3bbd | ; | 05ec 8800 0005 | | 05ee 2000 0000 | | 05f0 1000 000a | | 05f2 a001 b4d4 | | 05f4 9435 24f4 | 5$ | 05f6 34f4 4455 |4 DU| 05f8 f545 9504 | E | 05fa 5532 e464 |U2 d| 05fc c4f4 1545 | E| 05fe f564 14c5 | d |