|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0548 | H | .CONST 0x0548 ; 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 0045 | E | .CONST 0x0045 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0013 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0015 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0017 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0019 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001b e001 | | Load 0x0,0x1 001c 0129 | ) | Execute Any,Make_Visible 001d 00bf | | Action Accept_Activation 001e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001f 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call 0021 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0023 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0024 00c7 | | Action Elaborate_Subprogram 0025 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 0027 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002a 00c7 | | Action Elaborate_Subprogram 002b 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 002d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002e 00c7 | | Action Elaborate_Subprogram 002f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0030 00c7 | | Action Elaborate_Subprogram 0031 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 0033 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 0035 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call 0037 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 0039 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call 003b 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call 003d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003e 00c7 | | Action Elaborate_Subprogram 003f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0040 00c7 | | Action Elaborate_Subprogram 0041 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0042 00c7 | | Action Elaborate_Subprogram 0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0044 00c7 | | Action Elaborate_Subprogram 0045 BODY_0008: 0045 00bc | | Action Signal_Activated 0046 00bb | | Action Signal_Completion 0047 0000 | | .XXX[0x1] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 004c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 004d 00d8 | | Load_Top At_Offset_0 004e 4842 |HB | Short_Literal 0x42 004f 4845 |HE | Short_Literal 0x45 0050 0262 | b | Execute Discrete,In_Range 0051 700b |p | Jump_Nonzero 0x5d 0052 0f40 | @ | Execute_Immediate Equal,0x40 0053 700c |p | Jump_Nonzero 0x60 0054 00da | | Load_Top At_Offset_2 0055 e002 | | Load 0x0,0x2 0056 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0057 6803 |h | Jump_Zero 0x5b 0058 00da | | Load_Top At_Offset_2 0059 8218 | | Call 0x1,0x18 005a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005b 4801 |H | Short_Literal 0x1 005c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005d 00d1 | | Pop_Control Pop_Count_1 005e 4800 |H | Short_Literal 0x0 005f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0060 00da | | Load_Top At_Offset_2 0061 49a1 |I | Short_Literal 0x1a1 0062 00eb | | Load_Encached Diana_Cache 0063 0096 | | Execute Package,Entry 0064 0f00 | | Execute_Immediate Equal,0x0 0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006d | m | .CONST 0x006d ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b 00e3 | | Load_Encached Natural_Cache 006c 00ec | | Load_Encached Diana_Tree_Cache 006d BODY_0068: 006d e5ff | | Load 0x2,-0x1 006e 821a | | Call 0x1,0x1a 006f e5fe | | Load 0x2,-0x2 0070 6017 |` | Indirect_Literal Discrete,0x88,{0x00000000, 0x7fffffff} 0071 027f | | Execute Discrete,Equal 0072 6802 |h | Jump_Zero 0x75 0073 e5ff | | Load 0x2,-0x1 0074 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0075 00e3 | | Load_Encached Natural_Cache 0076 00ec | | Load_Encached Diana_Tree_Cache 0077 00ec | | Load_Encached Diana_Tree_Cache 0078 e5fe | | Load 0x2,-0x2 0079 e5ff | | Load 0x2,-0x1 007a 8219 | | Call 0x1,0x19 007b 0032 | 2 | Store_Top Heap_Access,At_Offset_2 007c 005a | Z | Store_Top Discrete,At_Offset_2 007d 00d9 | | Load_Top At_Offset_1 007e e5fe | | Load 0x2,-0x2 007f 027b | { | Execute Discrete,Greater_Equal 0080 6802 |h | Jump_Zero 0x83 0081 00d8 | | Load_Top At_Offset_0 0082 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0083 00ec | | Load_Encached Diana_Tree_Cache 0084 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0099 | | .CONST 0x0099 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0007 | | .CONST 0x0007 ; Number of locals 0093 INIT_0090: 0093 00ee | | Load_Encached Diana_Seq_Type_Cache 0094 00ee | | Load_Encached Diana_Seq_Type_Cache 0095 00e2 | | Load_Encached Integer_Cache 0096 00ec | | Load_Encached Diana_Tree_Cache 0097 00e2 | | Load_Encached Integer_Cache 0098 00e2 | | Load_Encached Integer_Cache 0099 BODY_0090: 0099 e403 | | Load 0x2,0x3 009a e402 | | Load 0x2,0x2 009b e5ff | | Load 0x2,-0x1 009c 821f | | Call 0x1,0x1f 009d c402 | | Store 0x2,0x2 009e c403 | | Store 0x2,0x3 009f 00e3 | | Load_Encached Natural_Cache 00a0 00ec | | Load_Encached Diana_Tree_Cache 00a1 00ec | | Load_Encached Diana_Tree_Cache 00a2 e5fe | | Load 0x2,-0x2 00a3 e402 | | Load 0x2,0x2 00a4 8221 | ! | Call 0x1,0x21 00a5 c405 | | Store 0x2,0x5 00a6 005a | Z | Store_Top Discrete,At_Offset_2 00a7 00da | | Load_Top At_Offset_2 00a8 6802 |h | Jump_Zero 0xab 00a9 00da | | Load_Top At_Offset_2 00aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ab e5fe | | Load 0x2,-0x2 00ac 00da | | Load_Top At_Offset_2 00ad 0272 | r | Execute Discrete,Minus 00ae c404 | | Store 0x2,0x4 00af 00db | | Load_Top At_Offset_3 00b0 e403 | | Load 0x2,0x3 00b1 4975 |Iu | Short_Literal 0x175 00b2 00eb | | Load_Encached Diana_Cache 00b3 0098 | | Execute Package,Field_Read_Dynamic 00b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b5 027a | z | Execute Discrete,Less_Equal 00b6 680f |h | Jump_Zero 0xc6 00b7 00e3 | | Load_Encached Natural_Cache 00b8 00ec | | Load_Encached Diana_Tree_Cache 00b9 00ec | | Load_Encached Diana_Tree_Cache 00ba e404 | | Load 0x2,0x4 00bb 00d8 | | Load_Top At_Offset_0 00bc 00e4 | | Load_Encached Positive_Cache 00bd 0260 | ` | Execute Discrete,In_Type 00be 7001 |p | Jump_Nonzero 0xc0 00bf 0801 | | Execute_Immediate Raise,0x1 00c0 e403 | | Load 0x2,0x3 00c1 8221 | ! | Call 0x1,0x21 00c2 c405 | | Store 0x2,0x5 00c3 0059 | Y | Store_Top Discrete,At_Offset_1 00c4 00da | | Load_Top At_Offset_2 00c5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c6 00ec | | Load_Encached Diana_Tree_Cache 00c7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 00db | | Load_Top At_Offset_3 00cc 0c01 | | Execute_Immediate Greater_Equal,0x1 00cd 6809 |h | Jump_Zero 0xd7 00ce 00db | | Load_Top At_Offset_3 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 00db | | Load_Top At_Offset_3 00d5 820e | | Call 0x1,0xe 00d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d7 00db | | Load_Top At_Offset_3 00d8 0d00 | | Execute_Immediate Less,0x0 00d9 680a |h | Jump_Zero 0xe4 00da 00db | | Load_Top At_Offset_3 00db 0275 | u | Execute Discrete,Unary_Minus 00dc 00d8 | | Load_Top At_Offset_0 00dd 00e4 | | Load_Encached Positive_Cache 00de 0260 | ` | Execute Discrete,In_Type 00df 7001 |p | Jump_Nonzero 0xe1 00e0 0801 | | Execute_Immediate Raise,0x1 00e1 00db | | Load_Top At_Offset_3 00e2 820f | | Call 0x1,0xf 00e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e4 00ec | | Load_Encached Diana_Tree_Cache 00e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00ef | | .CONST 0x00ef ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0005 | | .CONST 0x0005 ; Number of locals 00eb INIT_00e8: 00eb 00e3 | | Load_Encached Natural_Cache 00ec 00e2 | | Load_Encached Integer_Cache 00ed 00ec | | Load_Encached Diana_Tree_Cache 00ee 039d | | Declare_Variable Heap_Access,Duplicate 00ef BODY_00e8: 00ef e5ff | | Load 0x2,-0x1 00f0 821a | | Call 0x1,0x1a 00f1 e5fe | | Load 0x2,-0x2 00f2 e002 | | Load 0x0,0x2 00f3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00f4 7002 |p | Jump_Nonzero 0xf7 00f5 e215 | | Load 0x1,0x15 00f6 0257 | W | Execute Discrete,Raise 00f7 e5fe | | Load 0x2,-0x2 00f8 821b | | Call 0x1,0x1b 00f9 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00fa e5fe | | Load 0x2,-0x2 00fb e003 | | Load 0x0,0x3 00fc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00fd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00fe 680f |h | Jump_Zero 0x10e 00ff e5fe | | Load 0x2,-0x2 0100 e003 | | Load 0x0,0x3 0101 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0102 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0103 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0104 00da | | Load_Top At_Offset_2 0105 0c01 | | Execute_Immediate Greater_Equal,0x1 0106 6807 |h | Jump_Zero 0x10e 0107 00da | | Load_Top At_Offset_2 0108 00d8 | | Load_Top At_Offset_0 0109 00e3 | | Load_Encached Natural_Cache 010a 0260 | ` | Execute Discrete,In_Type 010b 7001 |p | Jump_Nonzero 0x10d 010c 0801 | | Execute_Immediate Raise,0x1 010d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010e 00e3 | | Load_Encached Natural_Cache 010f 00ec | | Load_Encached Diana_Tree_Cache 0110 00da | | Load_Top At_Offset_2 0111 600e |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x7fffffff} 0112 e5ff | | Load 0x2,-0x1 0113 8219 | | Call 0x1,0x19 0114 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0115 c402 | | Store 0x2,0x2 0116 00d9 | | Load_Top At_Offset_1 0117 00d9 | | Load_Top At_Offset_1 0118 021f | | Execute Heap_Access,Equal 0119 6802 |h | Jump_Zero 0x11c 011a 00db | | Load_Top At_Offset_3 011b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011c 4800 |H | Short_Literal 0x0 011d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011e 0000 0000 | | .XXX[0x2] 0120 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0124 0000 0000 | | .BLANK 0000[0x4] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0130 | 0 | .CONST 0x0130 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0006 | | .CONST 0x0006 ; Number of locals 012b INIT_0128: 012b 00ee | | Load_Encached Diana_Seq_Type_Cache 012c 00ee | | Load_Encached Diana_Seq_Type_Cache 012d 00ec | | Load_Encached Diana_Tree_Cache 012e 00e3 | | Load_Encached Natural_Cache 012f 00e3 | | Load_Encached Natural_Cache 0130 BODY_0128: 0130 e5fe | | Load 0x2,-0x2 0131 0092 04fb | | Action Push_String_Extended,0x4fb ; "Get_Declaration_Number passed non Decl Node" 0133 e5fe | | Load 0x2,-0x2 0134 e002 | | Load 0x0,0x2 0135 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0136 821e | | Call 0x1,0x1e 0137 e5fe | | Load 0x2,-0x2 0138 0092 04fc | | Action Push_String_Extended,0x4fc ; "Get_Declaration_Number passed unnumbered Decl_Node" 013a e5fe | | Load 0x2,-0x2 013b 8216 | | Call 0x1,0x16 013c 821e | | Call 0x1,0x1e 013d 00db | | Load_Top At_Offset_3 013e e402 | | Load 0x2,0x2 013f e5ff | | Load 0x2,-0x1 0140 821f | | Call 0x1,0x1f 0141 c402 | | Store 0x2,0x2 0142 c403 | | Store 0x2,0x3 0143 00e3 | | Load_Encached Natural_Cache 0144 00ec | | Load_Encached Diana_Tree_Cache 0145 e5fe | | Load 0x2,-0x2 0146 67d9 |g | Indirect_Literal Discrete,0x120,{0x00000000, 0x7fffffff} 0147 e402 | | Load 0x2,0x2 0148 8221 | ! | Call 0x1,0x21 0149 c404 | | Store 0x2,0x4 014a 005a | Z | Store_Top Discrete,At_Offset_2 014b 00da | | Load_Top At_Offset_2 014c e5fe | | Load 0x2,-0x2 014d 021f | | Execute Heap_Access,Equal 014e 6802 |h | Jump_Zero 0x151 014f 00d9 | | Load_Top At_Offset_1 0150 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0151 00d9 | | Load_Top At_Offset_1 0152 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0153 00e3 | | Load_Encached Natural_Cache 0154 00ec | | Load_Encached Diana_Tree_Cache 0155 e5fe | | Load 0x2,-0x2 0156 67c9 |g | Indirect_Literal Discrete,0x120,{0x00000000, 0x7fffffff} 0157 e403 | | Load 0x2,0x3 0158 8221 | ! | Call 0x1,0x21 0159 c404 | | Store 0x2,0x4 015a 005a | Z | Store_Top Discrete,At_Offset_2 015b 00da | | Load_Top At_Offset_2 015c e5fe | | Load 0x2,-0x2 015d 021f | | Execute Heap_Access,Equal 015e 6809 |h | Jump_Zero 0x168 015f 00d9 | | Load_Top At_Offset_1 0160 00d9 | | Load_Top At_Offset_1 0161 0273 | s | Execute Discrete,Plus 0162 00d8 | | Load_Top At_Offset_0 0163 00e3 | | Load_Encached Natural_Cache 0164 0260 | ` | Execute Discrete,In_Type 0165 7001 |p | Jump_Nonzero 0x167 0166 0801 | | Execute_Immediate Raise,0x1 0167 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0168 4800 |H | Short_Literal 0x0 0169 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0177 | w | .CONST 0x0177 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00db | | Load_Top At_Offset_3 0174 00db | | Load_Top At_Offset_3 0175 8211 | | Call 0x1,0x11 0176 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0177 TRAP_0170: 0177 0007 | | Action Break_Optional 0178 e5fe | | Load 0x2,-0x2 0179 e5ff | | Load 0x2,-0x1 017a 8212 | | Call 0x1,0x12 017b 0275 | u | Execute Discrete,Unary_Minus 017c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0185 | | .CONST 0x0185 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 00ec | | Load_Encached Diana_Tree_Cache 0184 00e3 | | Load_Encached Natural_Cache 0185 BODY_0180: 0185 e5ff | | Load 0x2,-0x1 0186 821a | | Call 0x1,0x1a 0187 00e3 | | Load_Encached Natural_Cache 0188 00ec | | Load_Encached Diana_Tree_Cache 0189 00ec | | Load_Encached Diana_Tree_Cache 018a 6009 |` | Indirect_Literal Discrete,0x194,{0x00000000, 0x7fffffff} 018b e5ff | | Load 0x2,-0x1 018c 8219 | | Call 0x1,0x19 018d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 018e 0059 | Y | Store_Top Discrete,At_Offset_1 018f 00d8 | | Load_Top At_Offset_0 0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0191 0000 0000 | | .XXX[0x3] 0193 0000 | | 0194 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a0 | | .CONST 0x01a0 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0005 | | .CONST 0x0005 ; Number of locals 019b INIT_0198: 019b 00ec | | Load_Encached Diana_Tree_Cache 019c 039d | | Declare_Variable Heap_Access,Duplicate 019d 00ee | | Load_Encached Diana_Seq_Type_Cache 019e 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call 01a0 BODY_0198: 01a0 e5ff | | Load 0x2,-0x1 01a1 00eb | | Load_Encached Diana_Cache 01a2 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01a3 a402 | | Store_Unchecked 0x2,0x2 01a4 00db | | Load_Top At_Offset_3 01a5 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01a6 0f97 | | Execute_Immediate Equal,-0x69 01a7 6815 |h | Jump_Zero 0x1bd 01a8 00db | | Load_Top At_Offset_3 01a9 00eb | | Load_Encached Diana_Cache 01aa 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01ab 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01ac 00da | | Load_Top At_Offset_2 01ad 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01ae 0b60 | ` | Execute_Immediate Case_Compare,0x60 01af 7004 |p | Jump_Nonzero 0x1b4 01b0 0f9e | | Execute_Immediate Equal,-0x62 01b1 7003 |p | Jump_Nonzero 0x1b5 01b2 4800 |H | Short_Literal 0x0 01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b4 00d1 | | Pop_Control Pop_Count_1 01b5 00db | | Load_Top At_Offset_3 01b6 00eb | | Load_Encached Diana_Cache 01b7 1888 | | Execute Package,Field_Execute,Field_Number 0x88 01b8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01b9 e5ff | | Load 0x2,-0x1 01ba 8405 | | Call 0x2,0x5 01bb 021f | | Execute Heap_Access,Equal 01bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bd 4800 |H | Short_Literal 0x0 01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01c5 00d8 | | Load_Top At_Offset_0 01c6 0d52 | R | Execute_Immediate Less,0x52 01c7 700b |p | Jump_Nonzero 0x1d3 01c8 00d8 | | Load_Top At_Offset_0 01c9 0c53 | S | Execute_Immediate Greater_Equal,0x53 01ca 7005 |p | Jump_Nonzero 0x1d0 01cb 00d1 | | Pop_Control Pop_Count_1 01cc 00da | | Load_Top At_Offset_2 01cd 8217 | | Call 0x1,0x17 01ce 0f00 | | Execute_Immediate Equal,0x0 01cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d0 0f5f | _ | Execute_Immediate Equal,0x5f 01d1 700a |p | Jump_Nonzero 0x1dc 01d2 780b |x | Jump 0x1de 01d3 0f40 | @ | Execute_Immediate Equal,0x40 01d4 7001 |p | Jump_Nonzero 0x1d6 01d5 7808 |x | Jump 0x1de 01d6 00da | | Load_Top At_Offset_2 01d7 49a1 |I | Short_Literal 0x1a1 01d8 00eb | | Load_Encached Diana_Cache 01d9 0096 | | Execute Package,Entry 01da 0f00 | | Execute_Immediate Equal,0x0 01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01dc 4800 |H | Short_Literal 0x0 01dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01de 4801 |H | Short_Literal 0x1 01df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01f6 | | .CONST 0x01f6 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0009 | | .CONST 0x0009 ; Number of locals 01e3 INIT_01e0: 01e3 00ec | | Load_Encached Diana_Tree_Cache 01e4 00e3 | | Load_Encached Natural_Cache 01e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01e6 00e1 | | Load_Encached Boolean_Cache 01e7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01e8 029e 0313 | | Declare_Subprogram INIT_0310,For_Call,Unelaborated 01ea 029f 0393 | | Declare_Subprogram INIT_0390,For_Call 01ec 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call 01ee 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call 01f0 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call 01f2 4805 |H | Short_Literal 0x5 01f3 4802 |H | Short_Literal 0x2 01f4 0099 | | Action Reference_Dynamic 01f5 00c7 | | Action Elaborate_Subprogram 01f6 BODY_01e0: 01f6 e5ff | | Load 0x2,-0x1 01f7 8405 | | Call 0x2,0x5 01f8 e402 | | Load 0x2,0x2 01f9 a5fc | | Store_Unchecked 0x2,-0x4 01fa e403 | | Load 0x2,0x3 01fb a5fb | | Store_Unchecked 0x2,-0x5 01fc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01fd 0000 0000 | | .XXX[0x3] 01ff 0000 | | 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0205 0b4e | N | Execute_Immediate Case_Compare,0x4e 0206 7004 |p | Jump_Nonzero 0x20b 0207 0f4c | L | Execute_Immediate Equal,0x4c 0208 7003 |p | Jump_Nonzero 0x20c 0209 e215 | | Load 0x1,0x15 020a 0257 | W | Execute Discrete,Raise 020b 00d1 | | Pop_Control Pop_Count_1 020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020d 0000 0000 | | .XXX[0x3] 020f 0000 | | 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0215 00d8 | | Load_Top At_Offset_0 0216 4857 |HW | Short_Literal 0x57 0217 4858 |HX | Short_Literal 0x58 0218 0262 | b | Execute Discrete,In_Range 0219 7004 |p | Jump_Nonzero 0x21e 021a 0f59 | Y | Execute_Immediate Equal,0x59 021b 7007 |p | Jump_Nonzero 0x223 021c 00da | | Load_Top At_Offset_2 021d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021e 00d1 | | Pop_Control Pop_Count_1 021f 00da | | Load_Top At_Offset_2 0220 00eb | | Load_Encached Diana_Cache 0221 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0 0222 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0223 00da | | Load_Top At_Offset_2 0224 00eb | | Load_Encached Diana_Cache 0225 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0226 00eb | | Load_Encached Diana_Cache 0227 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0 0228 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0229 0000 0000 | | .BLANK 0000[0x7] 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 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0235 008a | | Action Discrete,Diana_Spare0 0236 6809 |h | Jump_Zero 0x240 0237 0092 04fd | | Action Push_String_Extended,0x4fd ; "." 0239 00db | | Load_Top At_Offset_3 023a 00eb | | Load_Encached Diana_Cache 023b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 023c 00eb | | Load_Encached Diana_Cache 023d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 023e 01cc | | Execute Vector,Catenate 023f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0240 00ea | | Load_Encached Null_String_Cache 0241 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0242 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 024c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 024d 00eb | | Load_Encached Diana_Cache 024e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 024f 011c | | Execute Any,Convert_Unchecked 0250 1c01 | | Execute_Immediate Run_Utility,0x1 0251 00db | | Load_Top At_Offset_3 0252 821c | | Call 0x1,0x1c 0253 01cc | | Execute Vector,Catenate 0254 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0255 0000 0000 | | .XXX[0x3] 0257 0000 | | 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 00da | | Load_Top At_Offset_2 025c 700d |p | Jump_Nonzero 0x26a 025d e5fd | | Load 0x2,-0x3 025e 7001 |p | Jump_Nonzero 0x260 025f 08e2 | | Execute_Immediate Raise,0xe2 0260 00db | | Load_Top At_Offset_3 0261 0092 04fe | | Action Push_String_Extended,0x4fe ; ": " 0263 01cc | | Execute Vector,Catenate 0264 e5fd | | Load 0x2,-0x3 0265 821d | | Call 0x1,0x1d 0266 01cc | | Execute Vector,Catenate 0267 e004 | | Load 0x0,0x4 0268 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0269 08e2 | | Execute_Immediate Raise,0xe2 026a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 026b 0000 0000 | | .BLANK 0000[0x5] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0275 00d8 | | Load_Top At_Offset_0 0276 0d4c | L | Execute_Immediate Less,0x4c 0277 700b |p | Jump_Nonzero 0x283 0278 00d8 | | Load_Top At_Offset_0 0279 0c4f | O | Execute_Immediate Greater_Equal,0x4f 027a 7005 |p | Jump_Nonzero 0x280 027b 0b4c | L | Execute_Immediate Case_Compare,0x4c 027c 700d |p | Jump_Nonzero 0x28a 027d 0f4e | N | Execute_Immediate Equal,0x4e 027e 7011 |p | Jump_Nonzero 0x290 027f 7804 |x | Jump 0x284 0280 0f7c | | | Execute_Immediate Equal,0x7c 0281 7017 |p | Jump_Nonzero 0x299 0282 7801 |x | Jump 0x284 0283 00d1 | | Pop_Control Pop_Count_1 0284 00da | | Load_Top At_Offset_2 0285 0092 04ff | | Action Push_String_Extended,0x4ff ; "Get_Nth_Declaration passed incorrect node" 0287 4800 |H | Short_Literal 0x0 0288 821e | | Call 0x1,0x1e 0289 4502 |E | Exit_Suprogram New_Top_Offset 0x2 028a 00d1 | | Pop_Control Pop_Count_1 028b 00ee | | Load_Encached Diana_Seq_Type_Cache 028c a5fe | | Store_Unchecked 0x2,-0x2 028d 00ee | | Load_Encached Diana_Seq_Type_Cache 028e a5fe | | Store_Unchecked 0x2,-0x2 028f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0290 00da | | Load_Top At_Offset_2 0291 00eb | | Load_Encached Diana_Cache 0292 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1 0293 00eb | | Load_Encached Diana_Cache 0294 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0295 a5fe | | Store_Unchecked 0x2,-0x2 0296 00ee | | Load_Encached Diana_Seq_Type_Cache 0297 a5fd | | Store_Unchecked 0x2,-0x3 0298 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0299 00da | | Load_Top At_Offset_2 029a 00eb | | Load_Encached Diana_Cache 029b 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 029c 00eb | | Load_Encached Diana_Cache 029d 1888 | | Execute Package,Field_Execute,Field_Number 0x88 029e a5fe | | Store_Unchecked 0x2,-0x2 029f 00da | | Load_Top At_Offset_2 02a0 00eb | | Load_Encached Diana_Cache 02a1 18be | | Execute Package,Field_Execute,Field_Number 0xbe 02a2 00eb | | Load_Encached Diana_Cache 02a3 1888 | | Execute Package,Field_Execute,Field_Number 0x88 02a4 a5fd | | Store_Unchecked 0x2,-0x3 02a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a6 0000 0000 | | .XXX[0x2] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 00db | | Load_Top At_Offset_3 02ac 6804 |h | Jump_Zero 0x2b1 02ad 00da | | Load_Top At_Offset_2 02ae e5fe | | Load 0x2,-0x2 02af 021f | | Execute Heap_Access,Equal 02b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02b1 4800 |H | Short_Literal 0x0 02b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02b3 0000 0000 | | .BLANK 0000[0x5] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02c5 | | .CONST 0x02c5 ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0004 | | .CONST 0x0004 ; Number of locals 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 4975 |Iu | Short_Literal 0x175 02bd 00eb | | Load_Encached Diana_Cache 02be 0098 | | Execute Package,Field_Read_Dynamic 02bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02c0 00e3 | | Load_Encached Natural_Cache 02c1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02c2 00e3 | | Load_Encached Natural_Cache 02c3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02c4 00ec | | Load_Encached Diana_Tree_Cache 02c5 BODY_02b8: 02c5 00cf | | Action Mark_Auxiliary 02c6 00db | | Load_Top At_Offset_3 02c7 4801 |H | Short_Literal 0x1 02c8 0263 | c | Execute Discrete,Above_Bound 02c9 701c |p | Jump_Nonzero 0x2e6 02ca 00d8 | | Load_Top At_Offset_0 02cb e5ff | | Load 0x2,-0x1 02cc 4975 |Iu | Short_Literal 0x175 02cd 00eb | | Load_Encached Diana_Cache 02ce 0098 | | Execute Package,Field_Read_Dynamic 02cf 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02d0 a404 | | Store_Unchecked 0x2,0x4 02d1 00db | | Load_Top At_Offset_3 02d2 8216 | | Call 0x1,0x16 02d3 6810 |h | Jump_Zero 0x2e4 02d4 e403 | | Load 0x2,0x3 02d5 0a01 | | Execute_Immediate Plus,0x1 02d6 c403 | | Store 0x2,0x3 02d7 e403 | | Load 0x2,0x3 02d8 e5fe | | Load 0x2,-0x2 02d9 027f | | Execute Discrete,Equal 02da 7004 |p | Jump_Nonzero 0x2df 02db e5fd | | Load 0x2,-0x3 02dc e404 | | Load 0x2,0x4 02dd 8220 | | Call 0x1,0x20 02de 6805 |h | Jump_Zero 0x2e4 02df 00db | | Load_Top At_Offset_3 02e0 a5fc | | Store_Unchecked 0x2,-0x4 02e1 e403 | | Load 0x2,0x3 02e2 a5fb | | Store_Unchecked 0x2,-0x5 02e3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02e4 00c8 | | Action Pop_Auxiliary_Range 02e5 3fe4 |? | Loop_Increasing 0x2ca 02e6 00ce | | Action Pop_Auxiliary 02e7 00d9 | | Load_Top At_Offset_1 02e8 a5fb | | Store_Unchecked 0x2,-0x5 02e9 00ec | | Load_Encached Diana_Tree_Cache 02ea a5fc | | Store_Unchecked 0x2,-0x4 02eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02ec 0000 0000 | | .BLANK 0000[0x4] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f4 | | .CONST 0x02f4 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0002 | | .CONST 0x0002 ; Number of locals 02f3 INIT_02f0: 02f3 00ec | | Load_Encached Diana_Tree_Cache 02f4 BODY_02f0: 02f4 00cf | | Action Mark_Auxiliary 02f5 780f |x | Jump 0x305 02f6 e404 | | Load 0x2,0x4 02f7 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 02f8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 02f9 00d9 | | Load_Top At_Offset_1 02fa 49a1 |I | Short_Literal 0x1a1 02fb 00eb | | Load_Encached Diana_Cache 02fc 0096 | | Execute Package,Entry 02fd 7002 |p | Jump_Nonzero 0x300 02fe 00d9 | | Load_Top At_Offset_1 02ff 00ca | | Action Exit_Nullary_Function 0300 e404 | | Load 0x2,0x4 0301 0217 | | Execute Heap_Access,All_Reference 0302 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0303 a404 | | Store_Unchecked 0x2,0x4 0304 00c9 | | Action Pop_Auxiliary_Loop 0305 e404 | | Load 0x2,0x4 0306 77ef |w | Jump_Nonzero 0x2f6 0307 00ce | | Action Pop_Auxiliary 0308 00ec | | Load_Encached Diana_Tree_Cache 0309 00ca | | Action Exit_Nullary_Function 030a 0000 0000 | | .BLANK 0000[0x6] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 032f | / | .CONST 0x032f ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 000f | | .CONST 0x000f ; Number of locals 0313 INIT_0310: 0313 029f 03db | | Declare_Subprogram INIT_03d8,For_Call 0315 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 0317 029f 0403 | | Declare_Subprogram INIT_0400,For_Call 0319 029f 0413 | | Declare_Subprogram INIT_0410,For_Call 031b 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call 031d 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 031f 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call 0321 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 0323 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call 0325 029f 046b | k| Declare_Subprogram INIT_0468,For_Call 0327 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 0329 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call 032b 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call 032d 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 032f BODY_0310: 032f e7ff | | Load 0x3,-0x1 0330 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0331 00d8 | | Load_Top At_Offset_0 0332 0d4a | J | Execute_Immediate Less,0x4a 0333 7043 |pC | Jump_Nonzero 0x377 0334 00d8 | | Load_Top At_Offset_0 0335 0c59 | Y | Execute_Immediate Greater_Equal,0x59 0336 7016 |p | Jump_Nonzero 0x34d 0337 0ab6 | | Execute_Immediate Plus,-0x4a 0338 460e |F | Jump_Case 0xf 0339 7841 |xA | Jump 0x37b ; case 0x0 033a 7835 |x5 | Jump 0x370 ; case 0x1 033b 784e |xN | Jump 0x38a ; case 0x2 033c 7833 |x3 | Jump 0x370 ; case 0x3 033d 7845 |xE | Jump 0x383 ; case 0x4 033e 7842 |xB | Jump 0x381 ; case 0x5 033f 7830 |x0 | Jump 0x370 ; case 0x6 0340 7847 |xG | Jump 0x388 ; case 0x7 0341 782e |x. | Jump 0x370 ; case 0x8 0342 782d |x- | Jump 0x370 ; case 0x9 0343 782c |x, | Jump 0x370 ; case 0xa 0344 782b |x+ | Jump 0x370 ; case 0xb 0345 7833 |x3 | Jump 0x379 ; case 0xc 0346 7801 |x | Jump 0x348 ; case 0xd 0347 7800 |x | Jump 0x348 ; case 0xe 0348 e7ff | | Load 0x3,-0x1 0349 00eb | | Load_Encached Diana_Cache 034a 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0 034b 8405 | | Call 0x2,0x5 034c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 034d 00d8 | | Load_Top At_Offset_0 034e 0d97 | | Execute_Immediate Less,-0x69 034f 7022 |p" | Jump_Nonzero 0x372 0350 00d8 | | Load_Top At_Offset_0 0351 0c98 | | Execute_Immediate Greater_Equal,-0x68 0352 7004 |p | Jump_Nonzero 0x357 0353 00d1 | | Pop_Control Pop_Count_1 0354 e7ff | | Load 0x3,-0x1 0355 8409 | | Call 0x2,0x9 0356 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0357 4f68 |Oh | Short_Literal -0x98 0358 0273 | s | Execute Discrete,Plus 0359 4615 |F | Jump_Case 0x16 035a 7815 |x | Jump 0x370 ; case 0x0 035b 7814 |x | Jump 0x370 ; case 0x1 035c 7813 |x | Jump 0x370 ; case 0x2 035d 7812 |x | Jump 0x370 ; case 0x3 035e 7811 |x | Jump 0x370 ; case 0x4 035f 7810 |x | Jump 0x370 ; case 0x5 0360 782b |x+ | Jump 0x38c ; case 0x6 0361 781b |x | Jump 0x37d ; case 0x7 0362 780d |x | Jump 0x370 ; case 0x8 0363 781b |x | Jump 0x37f ; case 0x9 0364 780b |x | Jump 0x370 ; case 0xa 0365 780a |x | Jump 0x370 ; case 0xb 0366 7809 |x | Jump 0x370 ; case 0xc 0367 7808 |x | Jump 0x370 ; case 0xd 0368 7807 |x | Jump 0x370 ; case 0xe 0369 7806 |x | Jump 0x370 ; case 0xf 036a 7805 |x | Jump 0x370 ; case 0x10 036b 7804 |x | Jump 0x370 ; case 0x11 036c 7803 |x | Jump 0x370 ; case 0x12 036d 7802 |x | Jump 0x370 ; case 0x13 036e 7801 |x | Jump 0x370 ; case 0x14 036f 7800 |x | Jump 0x370 ; case 0x15 0370 860f | | Call 0x3,0xf 0371 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0372 0b5e | ^ | Execute_Immediate Case_Compare,0x5e 0373 7011 |p | Jump_Nonzero 0x385 0374 0f60 | ` | Execute_Immediate Equal,0x60 0375 7012 |p | Jump_Nonzero 0x388 0376 7ff9 | | Jump 0x370 0377 6816 |h | Jump_Zero 0x38e 0378 7ff7 | | Jump 0x370 0379 8603 | | Call 0x3,0x3 037a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 037b 8604 | | Call 0x3,0x4 037c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 037d 8606 | | Call 0x3,0x6 037e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 037f 8607 | | Call 0x3,0x7 0380 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0381 8605 | | Call 0x3,0x5 0382 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0383 860a | | Call 0x3,0xa 0384 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0385 00d1 | | Pop_Control Pop_Count_1 0386 860d | | Call 0x3,0xd 0387 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0388 860e | | Call 0x3,0xe 0389 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038a 8609 | | Call 0x3,0x9 038b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038c 860c | | Call 0x3,0xc 038d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038f 0000 | | .XXX[0x1] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 e5fd | | Load 0x2,-0x3 0394 6804 |h | Jump_Zero 0x399 0395 e402 | | Load 0x2,0x2 0396 e5fd | | Load 0x2,-0x3 0397 021f | | Execute Heap_Access,Equal 0398 00ca | | Action Exit_Nullary_Function 0399 4800 |H | Short_Literal 0x0 039a 00ca | | Action Exit_Nullary_Function 039b 0000 0000 | | .BLANK 0000[0x5] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 e403 | | Load 0x2,0x3 03a4 e5fe | | Load 0x2,-0x2 03a5 027b | { | Execute Discrete,Greater_Equal 03a6 8406 | | Call 0x2,0x6 03a7 0278 | x | Execute Discrete,Or 03a8 00ca | | Action Exit_Nullary_Function 03a9 0000 0000 | | .BLANK 0000[0x7] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b4 | | .CONST 0x03b4 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0002 | | .CONST 0x0002 ; Number of locals 03b3 INIT_03b0: 03b3 00da | | Load_Top At_Offset_2 03b4 BODY_03b0: 03b4 00cf | | Action Mark_Auxiliary 03b5 7808 |x | Jump 0x3be 03b6 00d9 | | Load_Top At_Offset_1 03b7 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 03b8 8405 | | Call 0x2,0x5 03b9 00d9 | | Load_Top At_Offset_1 03ba 0217 | | Execute Heap_Access,All_Reference 03bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03bc 0032 | 2 | Store_Top Heap_Access,At_Offset_2 03bd 00c9 | | Action Pop_Auxiliary_Loop 03be 8407 | | Call 0x2,0x7 03bf 0f00 | | Execute_Immediate Equal,0x0 03c0 00da | | Load_Top At_Offset_2 03c1 021d | | Execute Heap_Access,Is_Null 03c2 0f00 | | Execute_Immediate Equal,0x0 03c3 0279 | y | Execute Discrete,And 03c4 77f1 |w | Jump_Nonzero 0x3b6 03c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c6 0000 0000 | | .XXX[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 8407 | | Call 0x2,0x7 03cc 7004 |p | Jump_Nonzero 0x3d1 03cd 00da | | Load_Top At_Offset_2 03ce 00eb | | Load_Encached Diana_Cache 03cf 1888 | | Execute Package,Field_Execute,Field_Number 0x88 03d0 8408 | | Call 0x2,0x8 03d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03d2 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 03dc 8218 | | Call 0x1,0x18 03dd 6805 |h | Jump_Zero 0x3e3 03de e403 | | Load 0x2,0x3 03df 0a01 | | Execute_Immediate Plus,0x1 03e0 c403 | | Store 0x2,0x3 03e1 00da | | Load_Top At_Offset_2 03e2 a402 | | Store_Unchecked 0x2,0x2 03e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e4 0000 0000 | | .BLANK 0000[0x4] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb e7ff | | Load 0x3,-0x1 03ec 8602 | | Call 0x3,0x2 03ed e7ff | | Load 0x3,-0x1 03ee 00eb | | Load_Encached Diana_Cache 03ef 1888 | | Execute Package,Field_Execute,Field_Number 0x88 03f0 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 03f1 00eb | | Load_Encached Diana_Cache 03f2 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 03f3 8409 | | Call 0x2,0x9 03f4 e7ff | | Load 0x3,-0x1 03f5 00eb | | Load_Encached Diana_Cache 03f6 1888 | | Execute Package,Field_Execute,Field_Number 0x88 03f7 0217 | | Execute Heap_Access,All_Reference 03f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03f9 8408 | | Call 0x2,0x8 03fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03fb 0000 0000 | | .BLANK 0000[0x5] 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 e7ff | | Load 0x3,-0x1 0404 8602 | | Call 0x3,0x2 0405 e7ff | | Load 0x3,-0x1 0406 00eb | | Load_Encached Diana_Cache 0407 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 0408 8409 | | Call 0x2,0x9 0409 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 e7ff | | Load 0x3,-0x1 0414 8602 | | Call 0x3,0x2 0415 e7ff | | Load 0x3,-0x1 0416 00eb | | Load_Encached Diana_Cache 0417 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4 0418 8409 | | Call 0x2,0x9 0419 4501 |E | Exit_Suprogram New_Top_Offset 0x1 041a 0000 0000 | | .BLANK 0000[0x6] 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 00eb | | Load_Encached Diana_Cache 0425 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 0426 8409 | | Call 0x2,0x9 0427 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042e | . | .CONST 0x042e ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0002 | | .CONST 0x0002 ; Number of locals 042b INIT_0428: 042b e7ff | | Load 0x3,-0x1 042c 00eb | | Load_Encached Diana_Cache 042d 18ca | | Execute Package,Field_Execute,Field_Number 0xca 042e BODY_0428: 042e 00d8 | | Load_Top At_Offset_0 042f 6802 |h | Jump_Zero 0x432 0430 e7ff | | Load 0x3,-0x1 0431 8602 | | Call 0x3,0x2 0432 e7ff | | Load 0x3,-0x1 0433 00eb | | Load_Encached Diana_Cache 0434 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 0435 8409 | | Call 0x2,0x9 0436 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0437 0000 | | .XXX[0x1] 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 e404 | | Load 0x2,0x4 043c 7007 |p | Jump_Nonzero 0x444 043d 4801 |H | Short_Literal 0x1 043e a404 | | Store_Unchecked 0x2,0x4 043f 00da | | Load_Top At_Offset_2 0440 00eb | | Load_Encached Diana_Cache 0441 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 0442 8409 | | Call 0x2,0x9 0443 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0444 00da | | Load_Top At_Offset_2 0445 8602 | | Call 0x3,0x2 0446 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0447 0000 | | .XXX[0x1] 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 8608 | | Call 0x3,0x8 044d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 044e 0000 0000 | | .XXX[0x2] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 e404 | | Load 0x2,0x4 0454 700b |p | Jump_Nonzero 0x460 0455 4801 |H | Short_Literal 0x1 0456 a404 | | Store_Unchecked 0x2,0x4 0457 e7ff | | Load 0x3,-0x1 0458 00eb | | Load_Encached Diana_Cache 0459 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 045a 8409 | | Call 0x2,0x9 045b e7ff | | Load 0x3,-0x1 045c 00eb | | Load_Encached Diana_Cache 045d 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4 045e 8409 | | Call 0x2,0x9 045f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0460 e7ff | | Load 0x3,-0x1 0461 8602 | | Call 0x3,0x2 0462 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0463 0000 0000 | | .BLANK 0000[0x5] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b 00cf | | Action Mark_Auxiliary 046c 7805 |x | Jump 0x472 046d 00db | | Load_Top At_Offset_3 046e 0217 | | Execute Heap_Access,All_Reference 046f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0470 a9ff | | Store_Unchecked 0x4,-0x1 0471 00c9 | | Action Pop_Auxiliary_Loop 0472 00db | | Load_Top At_Offset_3 0473 6806 |h | Jump_Zero 0x47a 0474 00db | | Load_Top At_Offset_3 0475 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 0476 49a1 |I | Short_Literal 0x1a1 0477 00eb | | Load_Encached Diana_Cache 0478 0096 | | Execute Package,Entry 0479 77f3 |w | Jump_Nonzero 0x46d 047a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 047b 0000 0000 | | .BLANK 0000[0x5] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0489 | | .CONST 0x0489 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0003 | | .CONST 0x0003 ; Number of locals 0483 INIT_0480: 0483 00ec | | Load_Encached Diana_Tree_Cache 0484 e7ff | | Load 0x3,-0x1 0485 00eb | | Load_Encached Diana_Cache 0486 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 0487 00eb | | Load_Encached Diana_Cache 0488 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0489 BODY_0480: 0489 00d8 | | Load_Top At_Offset_0 048a 860b | | Call 0x3,0xb 048b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 048c 00d8 | | Load_Top At_Offset_0 048d 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 048e 0032 | 2 | Store_Top Heap_Access,At_Offset_2 048f 00d9 | | Load_Top At_Offset_1 0490 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0491 0f4c | L | Execute_Immediate Equal,0x4c 0492 6802 |h | Jump_Zero 0x495 0493 00d9 | | Load_Top At_Offset_1 0494 8608 | | Call 0x3,0x8 0495 00d8 | | Load_Top At_Offset_0 0496 0217 | | Execute Heap_Access,All_Reference 0497 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0498 8408 | | Call 0x2,0x8 0499 4501 |E | Exit_Suprogram New_Top_Offset 0x1 049a 0000 0000 | | .BLANK 0000[0x6] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a7 | | .CONST 0x04a7 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0004 | | .CONST 0x0004 ; Number of locals 04a3 INIT_04a0: 04a3 00ee | | Load_Encached Diana_Seq_Type_Cache 04a4 00ec | | Load_Encached Diana_Tree_Cache 04a5 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call 04a7 BODY_04a0: 04a7 e7ff | | Load 0x3,-0x1 04a8 8602 | | Call 0x3,0x2 04a9 8407 | | Call 0x2,0x7 04aa 6801 |h | Jump_Zero 0x4ac 04ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04ac e7ff | | Load 0x3,-0x1 04ad 00eb | | Load_Encached Diana_Cache 04ae 18df | | Execute Package,Field_Execute,Field_Number 0xdf 04af 00eb | | Load_Encached Diana_Cache 04b0 1888 | | Execute Package,Field_Execute,Field_Number 0x88 04b1 0033 | 3 | Store_Top Heap_Access,At_Offset_3 04b2 00da | | Load_Top At_Offset_2 04b3 860b | | Call 0x3,0xb 04b4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 04b5 00da | | Load_Top At_Offset_2 04b6 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 04b7 8405 | | Call 0x2,0x5 04b8 00da | | Load_Top At_Offset_2 04b9 0217 | | Execute Heap_Access,All_Reference 04ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04bb 8804 | | Call 0x4,0x4 04bc e7ff | | Load 0x3,-0x1 04bd 00eb | | Load_Encached Diana_Cache 04be 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 04bf 0032 | 2 | Store_Top Heap_Access,At_Offset_2 04c0 00d9 | | Load_Top At_Offset_1 04c1 6806 |h | Jump_Zero 0x4c8 04c2 00d9 | | Load_Top At_Offset_1 04c3 00eb | | Load_Encached Diana_Cache 04c4 1888 | | Execute Package,Field_Execute,Field_Number 0x88 04c5 6802 |h | Jump_Zero 0x4c8 04c6 00d9 | | Load_Top At_Offset_1 04c7 8405 | | Call 0x2,0x5 04c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04c9 0000 0000 | | .BLANK 0000[0x7] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 e7ff | | Load 0x3,-0x1 04d4 8602 | | Call 0x3,0x2 04d5 e7ff | | Load 0x3,-0x1 04d6 00eb | | Load_Encached Diana_Cache 04d7 18e2 | | Execute Package,Field_Execute,Field_Number 0xe2 04d8 8409 | | Call 0x2,0x9 04d9 e7ff | | Load 0x3,-0x1 04da 00eb | | Load_Encached Diana_Cache 04db 18e3 | | Execute Package,Field_Execute,Field_Number 0xe3 04dc 8409 | | Call 0x2,0x9 04dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04de 0000 0000 | | .XXX[0x2] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04e3 | | .CONST 0x04e3 ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0001 | | .CONST 0x0001 ; Number of locals 04e3 BODY_04e0: 04e3 INIT_04e0: 04e3 e7ff | | Load 0x3,-0x1 04e4 8602 | | Call 0x3,0x2 04e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e6 0000 0000 | | .XXX[0x2] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04ec | | .CONST 0x04ec ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0002 | | .CONST 0x0002 ; Number of locals 04eb INIT_04e8: 04eb 00da | | Load_Top At_Offset_2 04ec BODY_04e8: 04ec 00cf | | Action Mark_Auxiliary 04ed 7808 |x | Jump 0x4f6 04ee 00d9 | | Load_Top At_Offset_1 04ef 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 04f0 8405 | | Call 0x2,0x5 04f1 00d9 | | Load_Top At_Offset_1 04f2 0217 | | Execute Heap_Access,All_Reference 04f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04f4 0032 | 2 | Store_Top Heap_Access,At_Offset_2 04f5 00c9 | | Action Pop_Auxiliary_Loop 04f6 8407 | | Call 0x2,0x7 04f7 7002 |p | Jump_Nonzero 0x4fa 04f8 00d9 | | Load_Top At_Offset_1 04f9 77f4 |w | Jump_Nonzero 0x4ee 04fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04fb ; -------------------------------------------------------------------------------------- 04fb ; STRING TABLE 04fb ; -------------------------------------------------------------------------------------- 04fb 000c | | .STRTAB 0x000c->0x0501 ; "Get_Declaration_Number passed non Decl Node" 04fc 0035 | 5 | .STRTAB 0x0035->0x0516 ; "Get_Declaration_Number passed unnumbered Decl_Node" 04fd 0065 | e | .STRTAB 0x0065->0x052f ; "." 04fe 0064 | d | .STRTAB 0x0064->0x0530 ; ": " 04ff 0064 | d | .STRTAB 0x0064->0x0531 ; "Get_Nth_Declaration passed incorrect node" 0500 008b | | .STREND 0x008b->0x0545 0501 4765 745f |Get_| .STRTAB_STRINGS 0546 0000 0000 | | .XXX[0x2] 0548 ; -------------------------------------------------------------------------------------- 0548 ; Debug Table 0548 ; -------------------------------------------------------------------------------------- 0548 0004 0012 | | .DEBUG4 0x0004,0x0012,0x5c06,0x0000,0x0001,0x0000 054e 0000 0000 | | .BLANK 0000[0x26] 0574 8014 0000 | | .XXX[0xb] 0576 0000 0000 | | 0578 0100 0000 | | 057a 0880 0000 | | 057c 0004 0000 | | 057e 0028 | ( | 057f 0000 0000 | | .BLANK 0000[0x2e] 05ad 1002 8000 | | .XXX[0xb] 05af 0000 0000 | | 05b1 0020 0000 | | 05b3 0110 0000 | | 05b5 0000 8000 | | 05b7 0005 | | 05b8 0000 0000 | | .BLANK 0000[0x48]