|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 0638 | 8 | .CONST 0x0638 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003a | : | .CONST 0x003a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 4800 |H | Short_Literal 0x0 0011 4807 |H | Short_Literal 0x7 0012 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0014 03fd | | Declare_Type Discrete,Defined 0015 4802 |H | Short_Literal 0x2 0016 4807 |H | Short_Literal 0x7 0017 00da | | Load_Top At_Offset_2 0018 03f8 | | Declare_Type Discrete,Constrained 0019 0092 05dd | | Action Push_String_Extended,0x5dd ; "???" 001b 00ec | | Load_Encached Diana_Tree_Cache 001c 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call 001e 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call 0020 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 0022 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 0024 029d 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call 0026 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 0028 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 002a 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 002c 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 002e 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call 0030 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 0032 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call 0034 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call 0036 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0037 00c7 | | Action Elaborate_Subprogram 0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0039 00c7 | | Action Elaborate_Subprogram 003a BODY_0008: 003a 00bc | | Action Signal_Activated 003b 00bb | | Action Signal_Completion 003c 0000 0000 | | .BLANK 0000[0x4] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0048 | H | .CONST 0x0048 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0004 | | .CONST 0x0004 ; Number of locals 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 8213 | | Call 0x1,0x13 0045 00e3 | | Load_Encached Natural_Cache 0046 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call 0048 BODY_0040: 0048 00da | | Load_Top At_Offset_2 0049 01db | | Execute Vector,Length 004a 0f01 | | Execute_Immediate Equal,0x1 004b 6803 |h | Jump_Zero 0x4f 004c 0092 05de | | Action Push_String_Extended,0x5de ; "." 004e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004f 00da | | Load_Top At_Offset_2 0050 01db | | Execute Vector,Length 0051 0902 | | Execute_Immediate Binary_Scale,0x2 0052 005a | Z | Store_Top Discrete,At_Offset_2 0053 00cf | | Action Mark_Auxiliary 0054 8404 | | Call 0x2,0x4 0055 00c9 | | Action Pop_Auxiliary_Loop 0056 7ffd | | Jump 0x54 0057 0000 | | .XXX[0x1] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005d | ] | .CONST 0x005d ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0003 | | .CONST 0x0003 ; Number of locals 005b INIT_0058: 005b 00ec | | Load_Encached Diana_Tree_Cache 005c 00e3 | | Load_Encached Natural_Cache 005d BODY_0058: 005d e5fe | | Load 0x2,-0x2 005e 01db | | Execute Vector,Length 005f 7002 |p | Jump_Nonzero 0x62 0060 00ec | | Load_Encached Diana_Tree_Cache 0061 a5fd | | Store_Unchecked 0x2,-0x3 0062 e5fc | | Load 0x2,-0x4 0063 e003 | | Load 0x0,0x3 0064 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0065 c5fc | | Store 0x2,-0x4 0066 e5ff | | Load 0x2,-0x1 0067 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0068 e5fe | | Load 0x2,-0x2 0069 01dd | | Execute Vector,First 006a 0a01 | | Execute_Immediate Plus,0x1 006b 0059 | Y | Store_Top Discrete,At_Offset_1 006c 00cf | | Action Mark_Auxiliary 006d e5fe | | Load 0x2,-0x2 006e 01dc | | Execute Vector,Last 006f e5fe | | Load 0x2,-0x2 0070 01dd | | Execute Vector,First 0071 0a01 | | Execute_Immediate Plus,0x1 0072 00d8 | | Load_Top At_Offset_0 0073 00e2 | | Load_Encached Integer_Cache 0074 0260 | ` | Execute Discrete,In_Type 0075 7001 |p | Jump_Nonzero 0x77 0076 0801 | | Execute_Immediate Raise,0x1 0077 0263 | c | Execute Discrete,Above_Bound 0078 7031 |p1 | Jump_Nonzero 0xaa 0079 00d8 | | Load_Top At_Offset_0 007a e5fe | | Load 0x2,-0x2 007b 01d7 | | Execute Vector,Field_Read 007c 0f2e | . | Execute_Immediate Equal,0x2e 007d 6811 |h | Jump_Zero 0x8f 007e 00db | | Load_Top At_Offset_3 007f 00d9 | | Load_Top At_Offset_1 0080 0aff | | Execute_Immediate Plus,-0x1 0081 00d8 | | Load_Top At_Offset_0 0082 00e2 | | Load_Encached Integer_Cache 0083 0260 | ` | Execute Discrete,In_Type 0084 7001 |p | Jump_Nonzero 0x86 0085 0801 | | Execute_Immediate Raise,0x1 0086 e5fe | | Load 0x2,-0x2 0087 01cf | | Execute Vector,Slice_Read 0088 e402 | | Load 0x2,0x2 0089 821b | | Call 0x1,0x1b 008a a402 | | Store_Unchecked 0x2,0x2 008b 00d8 | | Load_Top At_Offset_0 008c 0a01 | | Execute_Immediate Plus,0x1 008d c403 | | Store 0x2,0x3 008e 780c |x | Jump 0x9b 008f 00d8 | | Load_Top At_Offset_0 0090 e5fe | | Load 0x2,-0x2 0091 01dc | | Execute Vector,Last 0092 027f | | Execute Discrete,Equal 0093 6807 |h | Jump_Zero 0x9b 0094 00db | | Load_Top At_Offset_3 0095 00d9 | | Load_Top At_Offset_1 0096 e5fe | | Load 0x2,-0x2 0097 01cf | | Execute Vector,Slice_Read 0098 e402 | | Load 0x2,0x2 0099 821b | | Call 0x1,0x1b 009a a402 | | Store_Unchecked 0x2,0x2 009b e402 | | Load 0x2,0x2 009c e212 | | Load 0x1,0x12 009d 021f | | Execute Heap_Access,Equal 009e 6809 |h | Jump_Zero 0xa8 009f e5fc | | Load 0x2,-0x4 00a0 0092 05df | | Action Push_String_Extended,0x5df ; "Unable to locate specified position within Ada unit" 00a2 e004 | | Load 0x0,0x4 00a3 e003 | | Load 0x0,0x3 00a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00a5 c5fc | | Store 0x2,-0x4 00a6 00d2 | | Pop_Control Pop_Count_2 00a7 7802 |x | Jump 0xaa 00a8 00c8 | | Action Pop_Auxiliary_Range 00a9 3fcf |? | Loop_Increasing 0x79 00aa 00ce | | Action Pop_Auxiliary 00ab 00d9 | | Load_Top At_Offset_1 00ac a5fd | | Store_Unchecked 0x2,-0x3 00ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4607 |F | Jump_Case 0x8 00b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00b5 7807 |x | Jump 0xbd ; case 0x1 00b6 780a |x | Jump 0xc1 ; case 0x2 00b7 780e |x | Jump 0xc6 ; case 0x3 00b8 7811 |x | Jump 0xca ; case 0x4 00b9 7812 |x | Jump 0xcc ; case 0x5 00ba 7813 |x | Jump 0xce ; case 0x6 00bb 7816 |x | Jump 0xd2 ; case 0x7 00bc 4302 |C | .XXX[0x1] 00bd 00da | | Load_Top At_Offset_2 00be 0091 05d5 | | Action Push_String_Extended_Indexed,0x5d5 ; "POSITIONAL_NAME" 00c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c1 00db | | Load_Top At_Offset_3 00c2 00db | | Load_Top At_Offset_3 00c3 00e0 | | Load_Encached Standard_Cache 00c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c6 00da | | Load_Top At_Offset_2 00c7 00e0 | | Load_Encached Standard_Cache 00c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00ca 00db | | Load_Top At_Offset_3 00cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00cc 00db | | Load_Top At_Offset_3 00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ce e20f | | Load 0x1,0xf 00cf 00dc | | Load_Top At_Offset_4 00d0 0267 | g | Execute Discrete,Predecessor 00d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d2 e20f | | Load 0x1,0xf 00d3 00dc | | Load_Top At_Offset_4 00d4 0268 | h | Execute Discrete,Successor 00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d6 0000 0000 | | .XXX[0x2] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00df | | .CONST 0x00df ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0004 | | .CONST 0x0004 ; Number of locals 00db INIT_00d8: 00db 00ec | | Load_Encached Diana_Tree_Cache 00dc 00e3 | | Load_Encached Natural_Cache 00dd 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call 00df BODY_00d8: 00df e5ff | | Load 0x2,-0x1 00e0 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00e1 4800 |H | Short_Literal 0x0 00e2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00e3 00cf | | Action Mark_Auxiliary 00e4 7808 |x | Jump 0xed 00e5 00da | | Load_Top At_Offset_2 00e6 0a01 | | Execute_Immediate Plus,0x1 00e7 005b | [ | Store_Top Discrete,At_Offset_3 00e8 00db | | Load_Top At_Offset_3 00e9 00eb | | Load_Encached Diana_Cache 00ea 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00eb a402 | | Store_Unchecked 0x2,0x2 00ec 00c9 | | Action Pop_Auxiliary_Loop 00ed 00db | | Load_Top At_Offset_3 00ee 77f6 |w | Jump_Nonzero 0xe5 00ef 00ce | | Action Pop_Auxiliary 00f0 8404 | | Call 0x2,0x4 00f1 0831 | 1 | Execute_Immediate Raise,0x31 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 0145 | E | Execute Heap_Access,Diana_Tree_Kind 00fd 00d8 | | Load_Top At_Offset_0 00fe 4842 |HB | Short_Literal 0x42 00ff 4845 |HE | Short_Literal 0x45 0100 0262 | b | Execute Discrete,In_Range 0101 7004 |p | Jump_Nonzero 0x106 0102 0f40 | @ | Execute_Immediate Equal,0x40 0103 7003 |p | Jump_Nonzero 0x107 0104 4801 |H | Short_Literal 0x1 0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0106 00d1 | | Pop_Control Pop_Count_1 0107 4800 |H | Short_Literal 0x0 0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0114 | | .CONST 0x0114 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 00ee | | Load_Encached Diana_Seq_Type_Cache 0114 BODY_0110: 0114 00db | | Load_Top At_Offset_3 0115 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0116 0b02 | | Execute_Immediate Case_Compare,0x2 0117 700e |p | Jump_Nonzero 0x126 0118 4837 |H7 | Short_Literal 0x37 0119 483a |H: | Short_Literal 0x3a 011a 0262 | b | Execute Discrete,In_Range 011b 700b |p | Jump_Nonzero 0x127 011c 00db | | Load_Top At_Offset_3 011d 4976 |Iv | Short_Literal 0x176 011e 00eb | | Load_Encached Diana_Cache 011f 0098 | | Execute Package,Field_Read_Dynamic 0120 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0121 00eb | | Load_Encached Diana_Cache 0122 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0123 00eb | | Load_Encached Diana_Cache 0124 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0126 00d1 | | Pop_Control Pop_Count_1 0127 00db | | Load_Top At_Offset_3 0128 00eb | | Load_Encached Diana_Cache 0129 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0 012a 00eb | | Load_Encached Diana_Cache 012b 1889 | | Execute Package,Field_Execute,Field_Number 0x89 012c 0031 | 1 | Store_Top Heap_Access,At_Offset_1 012d 00d8 | | Load_Top At_Offset_0 012e 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 012f 00eb | | Load_Encached Diana_Cache 0130 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0131 00eb | | Load_Encached Diana_Cache 0132 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0133 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0134 0000 0000 | | .BLANK 0000[0x4] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013e | > | .CONST 0x013e ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0004 | | .CONST 0x0004 ; Number of locals 013b INIT_0138: 013b 00ec | | Load_Encached Diana_Tree_Cache 013c 00ee | | Load_Encached Diana_Seq_Type_Cache 013d 00e3 | | Load_Encached Natural_Cache 013e BODY_0138: 013e 4800 |H | Short_Literal 0x0 013f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0140 e5ff | | Load 0x2,-0x1 0141 00eb | | Load_Encached Diana_Cache 0142 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0143 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0144 00cf | | Action Mark_Auxiliary 0145 00da | | Load_Top At_Offset_2 0146 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 0147 a402 | | Store_Unchecked 0x2,0x2 0148 00db | | Load_Top At_Offset_3 0149 8214 | | Call 0x1,0x14 014a 6808 |h | Jump_Zero 0x153 014b 00db | | Load_Top At_Offset_3 014c 8215 | | Call 0x1,0x15 014d e5fe | | Load 0x2,-0x2 014e 01df | | Execute Vector,Equal 014f 6803 |h | Jump_Zero 0x153 0150 00d9 | | Load_Top At_Offset_1 0151 0a01 | | Execute_Immediate Plus,0x1 0152 005a | Z | Store_Top Discrete,At_Offset_2 0153 00d9 | | Load_Top At_Offset_1 0154 e5fd | | Load 0x2,-0x3 0155 027f | | Execute Discrete,Equal 0156 700a |p | Jump_Nonzero 0x161 0157 00da | | Load_Top At_Offset_2 0158 0217 | | Execute Heap_Access,All_Reference 0159 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 015a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 015b 00da | | Load_Top At_Offset_2 015c 7002 |p | Jump_Nonzero 0x15f 015d e212 | | Load 0x1,0x12 015e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 015f 00c9 | | Action Pop_Auxiliary_Loop 0160 7fe4 | | Jump 0x145 0161 00ce | | Action Pop_Auxiliary 0162 00da | | Load_Top At_Offset_2 0163 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0164 0000 0000 | | .BLANK 0000[0x4] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 016d 4842 |HB | Short_Literal 0x42 016e 4844 |HD | Short_Literal 0x44 016f 0262 | b | Execute Discrete,In_Range 0170 7002 |p | Jump_Nonzero 0x173 0171 4800 |H | Short_Literal 0x0 0172 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0173 4801 |H | Short_Literal 0x1 0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 017d 0b85 | | Execute_Immediate Case_Compare,0x85 017e 7004 |p | Jump_Nonzero 0x183 017f 0f45 | E | Execute_Immediate Equal,0x45 0180 7003 |p | Jump_Nonzero 0x184 0181 4800 |H | Short_Literal 0x0 0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0183 00d1 | | Pop_Control Pop_Count_1 0184 4801 |H | Short_Literal 0x1 0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018e | | .CONST 0x018e ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0004 | | .CONST 0x0004 ; Number of locals 018b INIT_0188: 018b 00e3 | | Load_Encached Natural_Cache 018c 00ee | | Load_Encached Diana_Seq_Type_Cache 018d 00ec | | Load_Encached Diana_Tree_Cache 018e BODY_0188: 018e e5fd | | Load 0x2,-0x3 018f 0e06 | | Execute_Immediate Not_Equal,0x6 0190 6855 |hU | Jump_Zero 0x1e6 0191 e5fd | | Load 0x2,-0x3 0192 0e03 | | Execute_Immediate Not_Equal,0x3 0193 6852 |hR | Jump_Zero 0x1e6 0194 e5ff | | Load 0x2,-0x1 0195 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0196 00d8 | | Load_Top At_Offset_0 0197 0d84 | | Execute_Immediate Less,-0x7c 0198 702f |p/ | Jump_Nonzero 0x1c8 0199 4f7c |O| | Short_Literal -0x84 019a 0273 | s | Execute Discrete,Plus 019b 4629 |F) | Jump_Case 0x2a 019c 783c |x< | Jump 0x1d9 ; case 0x0 019d 7828 |x( | Jump 0x1c6 ; case 0x1 019e 7827 |x' | Jump 0x1c6 ; case 0x2 019f 7826 |x& | Jump 0x1c6 ; case 0x3 01a0 7825 |x% | Jump 0x1c6 ; case 0x4 01a1 782d |x- | Jump 0x1cf ; case 0x5 01a2 7823 |x# | Jump 0x1c6 ; case 0x6 01a3 7822 |x" | Jump 0x1c6 ; case 0x7 01a4 7839 |x9 | Jump 0x1de ; case 0x8 01a5 7820 |x | Jump 0x1c6 ; case 0x9 01a6 781f |x | Jump 0x1c6 ; case 0xa 01a7 781e |x | Jump 0x1c6 ; case 0xb 01a8 781d |x | Jump 0x1c6 ; case 0xc 01a9 7834 |x4 | Jump 0x1de ; case 0xd 01aa 781b |x | Jump 0x1c6 ; case 0xe 01ab 781a |x | Jump 0x1c6 ; case 0xf 01ac 7819 |x | Jump 0x1c6 ; case 0x10 01ad 7826 |x& | Jump 0x1d4 ; case 0x11 01ae 7817 |x | Jump 0x1c6 ; case 0x12 01af 781a |x | Jump 0x1ca ; case 0x13 01b0 7815 |x | Jump 0x1c6 ; case 0x14 01b1 7814 |x | Jump 0x1c6 ; case 0x15 01b2 7813 |x | Jump 0x1c6 ; case 0x16 01b3 7812 |x | Jump 0x1c6 ; case 0x17 01b4 7811 |x | Jump 0x1c6 ; case 0x18 01b5 7810 |x | Jump 0x1c6 ; case 0x19 01b6 780f |x | Jump 0x1c6 ; case 0x1a 01b7 780e |x | Jump 0x1c6 ; case 0x1b 01b8 780d |x | Jump 0x1c6 ; case 0x1c 01b9 780c |x | Jump 0x1c6 ; case 0x1d 01ba 780b |x | Jump 0x1c6 ; case 0x1e 01bb 780a |x | Jump 0x1c6 ; case 0x1f 01bc 7809 |x | Jump 0x1c6 ; case 0x20 01bd 7808 |x | Jump 0x1c6 ; case 0x21 01be 7807 |x | Jump 0x1c6 ; case 0x22 01bf 7806 |x | Jump 0x1c6 ; case 0x23 01c0 7805 |x | Jump 0x1c6 ; case 0x24 01c1 7804 |x | Jump 0x1c6 ; case 0x25 01c2 7803 |x | Jump 0x1c6 ; case 0x26 01c3 7802 |x | Jump 0x1c6 ; case 0x27 01c4 7801 |x | Jump 0x1c6 ; case 0x28 01c5 7800 |x | Jump 0x1c6 ; case 0x29 01c6 e212 | | Load 0x1,0x12 01c7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01c8 00d1 | | Pop_Control Pop_Count_1 01c9 7ffc | | Jump 0x1c6 01ca e5fd | | Load 0x2,-0x3 01cb 0e02 | | Execute_Immediate Not_Equal,0x2 01cc 6819 |h | Jump_Zero 0x1e6 01cd e212 | | Load 0x1,0x12 01ce 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01cf e5fd | | Load 0x2,-0x3 01d0 0e04 | | Execute_Immediate Not_Equal,0x4 01d1 6814 |h | Jump_Zero 0x1e6 01d2 e212 | | Load 0x1,0x12 01d3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01d4 e5fd | | Load 0x2,-0x3 01d5 0e03 | | Execute_Immediate Not_Equal,0x3 01d6 680f |h | Jump_Zero 0x1e6 01d7 e212 | | Load 0x1,0x12 01d8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01d9 e5fd | | Load 0x2,-0x3 01da 0e05 | | Execute_Immediate Not_Equal,0x5 01db 680a |h | Jump_Zero 0x1e6 01dc e212 | | Load 0x1,0x12 01dd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01de e5fd | | Load 0x2,-0x3 01df 0e07 | | Execute_Immediate Not_Equal,0x7 01e0 6805 |h | Jump_Zero 0x1e6 01e1 e5fd | | Load 0x2,-0x3 01e2 0e05 | | Execute_Immediate Not_Equal,0x5 01e3 6802 |h | Jump_Zero 0x1e6 01e4 e212 | | Load 0x1,0x12 01e5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01e6 4800 |H | Short_Literal 0x0 01e7 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01e8 e5ff | | Load 0x2,-0x1 01e9 00eb | | Load_Encached Diana_Cache 01ea 1889 | | Execute Package,Field_Execute,Field_Number 0x89 01eb 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01ec 00cf | | Action Mark_Auxiliary 01ed 00da | | Load_Top At_Offset_2 01ee 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 01ef 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01f0 e5fd | | Load 0x2,-0x3 01f1 0afe | | Execute_Immediate Plus,-0x2 01f2 4605 |F | Jump_Case 0x6 01f3 7824 |x$ | Jump 0x218 ; case 0x0 01f4 7814 |x | Jump 0x209 ; case 0x1 01f5 7822 |x" | Jump 0x218 ; case 0x2 01f6 781a |x | Jump 0x211 ; case 0x3 01f7 7808 |x | Jump 0x200 ; case 0x4 01f8 7800 |x | Jump 0x1f9 ; case 0x5 01f9 00d9 | | Load_Top At_Offset_1 01fa 8217 | | Call 0x1,0x17 01fb 6823 |h# | Jump_Zero 0x21f 01fc 00db | | Load_Top At_Offset_3 01fd 0a01 | | Execute_Immediate Plus,0x1 01fe c402 | | Store 0x2,0x2 01ff 781f |x | Jump 0x21f 0200 00d9 | | Load_Top At_Offset_1 0201 49a1 |I | Short_Literal 0x1a1 0202 00eb | | Load_Encached Diana_Cache 0203 0096 | | Execute Package,Entry 0204 681a |h | Jump_Zero 0x21f 0205 00db | | Load_Top At_Offset_3 0206 0a01 | | Execute_Immediate Plus,0x1 0207 c402 | | Store 0x2,0x2 0208 7816 |x | Jump 0x21f 0209 00d9 | | Load_Top At_Offset_1 020a 0145 | E | Execute Heap_Access,Diana_Tree_Kind 020b 0f40 | @ | Execute_Immediate Equal,0x40 020c 6812 |h | Jump_Zero 0x21f 020d 00db | | Load_Top At_Offset_3 020e 0a01 | | Execute_Immediate Plus,0x1 020f c402 | | Store 0x2,0x2 0210 780e |x | Jump 0x21f 0211 00d9 | | Load_Top At_Offset_1 0212 8218 | | Call 0x1,0x18 0213 680b |h | Jump_Zero 0x21f 0214 00db | | Load_Top At_Offset_3 0215 0a01 | | Execute_Immediate Plus,0x1 0216 c402 | | Store 0x2,0x2 0217 7807 |x | Jump 0x21f 0218 00d9 | | Load_Top At_Offset_1 0219 0145 | E | Execute Heap_Access,Diana_Tree_Kind 021a 0f40 | @ | Execute_Immediate Equal,0x40 021b 7003 |p | Jump_Nonzero 0x21f 021c 00db | | Load_Top At_Offset_3 021d 0a01 | | Execute_Immediate Plus,0x1 021e c402 | | Store 0x2,0x2 021f 00db | | Load_Top At_Offset_3 0220 e5fe | | Load 0x2,-0x2 0221 027f | | Execute Discrete,Equal 0222 700a |p | Jump_Nonzero 0x22d 0223 00da | | Load_Top At_Offset_2 0224 0217 | | Execute Heap_Access,All_Reference 0225 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0226 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0227 00da | | Load_Top At_Offset_2 0228 7002 |p | Jump_Nonzero 0x22b 0229 e212 | | Load 0x1,0x12 022a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 022b 00c9 | | Action Pop_Auxiliary_Loop 022c 7fc0 | | Jump 0x1ed 022d 00ce | | Action Pop_Auxiliary 022e 00d8 | | Load_Top At_Offset_0 022f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0235 | 5 | .CONST 0x0235 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0002 | | .CONST 0x0002 ; Number of locals 0233 INIT_0230: 0233 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 0235 BODY_0230: 0235 e5fe | | Load 0x2,-0x2 0236 7002 |p | Jump_Nonzero 0x239 0237 e212 | | Load 0x1,0x12 0238 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0239 00db | | Load_Top At_Offset_3 023a 0145 | E | Execute Heap_Access,Diana_Tree_Kind 023b 008e | | Action Discrete,Diana_Arity_For_Kind 023c 4604 |F | Jump_Case 0x5 023d 7806 |x | Jump 0x244 ; case 0x0 023e 7807 |x | Jump 0x246 ; case 0x1 023f 780f |x | Jump 0x24f ; case 0x2 0240 781e |x | Jump 0x25f ; case 0x3 0241 7800 |x | Jump 0x242 ; case 0x4 0242 8402 | | Call 0x2,0x2 0243 7832 |x2 | Jump 0x276 0244 e212 | | Load 0x1,0x12 0245 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0246 e5fe | | Load 0x2,-0x2 0247 0f01 | | Execute_Immediate Equal,0x1 0248 7002 |p | Jump_Nonzero 0x24b 0249 e212 | | Load 0x1,0x12 024a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 024b 00db | | Load_Top At_Offset_3 024c 00eb | | Load_Encached Diana_Cache 024d 1885 | | Execute Package,Field_Execute,Field_Number 0x85 024e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 024f e5fe | | Load 0x2,-0x2 0250 0b01 | | Execute_Immediate Case_Compare,0x1 0251 7004 |p | Jump_Nonzero 0x256 0252 0f02 | | Execute_Immediate Equal,0x2 0253 7007 |p | Jump_Nonzero 0x25b 0254 e212 | | Load 0x1,0x12 0255 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0256 00d1 | | Pop_Control Pop_Count_1 0257 00db | | Load_Top At_Offset_3 0258 00eb | | Load_Encached Diana_Cache 0259 1885 | | Execute Package,Field_Execute,Field_Number 0x85 025a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 025b 00db | | Load_Top At_Offset_3 025c 00eb | | Load_Encached Diana_Cache 025d 1886 | | Execute Package,Field_Execute,Field_Number 0x86 025e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 025f e5fe | | Load 0x2,-0x2 0260 0b01 | | Execute_Immediate Case_Compare,0x1 0261 7006 |p | Jump_Nonzero 0x268 0262 0b02 | | Execute_Immediate Case_Compare,0x2 0263 7009 |p | Jump_Nonzero 0x26d 0264 0f03 | | Execute_Immediate Equal,0x3 0265 700c |p | Jump_Nonzero 0x272 0266 e212 | | Load 0x1,0x12 0267 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0268 00d1 | | Pop_Control Pop_Count_1 0269 00db | | Load_Top At_Offset_3 026a 00eb | | Load_Encached Diana_Cache 026b 1885 | | Execute Package,Field_Execute,Field_Number 0x85 026c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 026d 00d1 | | Pop_Control Pop_Count_1 026e 00db | | Load_Top At_Offset_3 026f 00eb | | Load_Encached Diana_Cache 0270 1886 | | Execute Package,Field_Execute,Field_Number 0x86 0271 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0272 00db | | Load_Top At_Offset_3 0273 00eb | | Load_Encached Diana_Cache 0274 1887 | | Execute Package,Field_Execute,Field_Number 0x87 0275 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0276 0831 | 1 | Execute_Immediate Raise,0x31 0277 0000 | | .XXX[0x1] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 0280 | | .CONST 0x0280 ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0005 | | .CONST 0x0005 ; Number of locals 027b INIT_0278: 027b e20f | | Load 0x1,0xf 027c 0007 | | Action Break_Optional 027d 00e3 | | Load_Encached Natural_Cache 027e 00e3 | | Load_Encached Natural_Cache 027f 00e1 | | Load_Encached Boolean_Cache 0280 BODY_0278: 0280 4801 |H | Short_Literal 0x1 0281 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0282 00cf | | Action Mark_Auxiliary 0283 e5fe | | Load 0x2,-0x2 0284 01d9 | | Execute Vector,Reverse_Bounds 0285 0263 | c | Execute Discrete,Above_Bound 0286 7010 |p | Jump_Nonzero 0x297 0287 00d8 | | Load_Top At_Offset_0 0288 e5fe | | Load 0x2,-0x2 0289 01d7 | | Execute Vector,Field_Read 028a 0f20 | | Execute_Immediate Equal,0x20 028b 6809 |h | Jump_Zero 0x295 028c 00db | | Load_Top At_Offset_3 028d 6805 |h | Jump_Zero 0x293 028e 00d8 | | Load_Top At_Offset_0 028f a403 | | Store_Unchecked 0x2,0x3 0290 4800 |H | Short_Literal 0x0 0291 a405 | | Store_Unchecked 0x2,0x5 0292 7802 |x | Jump 0x295 0293 00d8 | | Load_Top At_Offset_0 0294 a404 | | Store_Unchecked 0x2,0x4 0295 00c8 | | Action Pop_Auxiliary_Range 0296 3ff0 |? | Loop_Increasing 0x287 0297 00ce | | Action Pop_Auxiliary 0298 e5fe | | Load 0x2,-0x2 0299 01dd | | Execute Vector,First 029a 00db | | Load_Top At_Offset_3 029b 0aff | | Execute_Immediate Plus,-0x1 029c e5fe | | Load 0x2,-0x2 029d 01cf | | Execute Vector,Slice_Read 029e 00e2 | | Load_Encached Integer_Cache 029f 00e0 | | Load_Encached Standard_Cache 02a0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02a1 00d8 | | Load_Top At_Offset_0 02a2 e20f | | Load 0x1,0xf 02a3 0260 | ` | Execute Discrete,In_Type 02a4 7001 |p | Jump_Nonzero 0x2a6 02a5 0801 | | Execute_Immediate Raise,0x1 02a6 a402 | | Store_Unchecked 0x2,0x2 02a7 00db | | Load_Top At_Offset_3 02a8 4607 |F | Jump_Case 0x8 02a9 781d |x | Jump 0x2c7 ; case 0x0 02aa 7832 |x2 | Jump 0x2dd ; case 0x1 02ab 7805 |x | Jump 0x2b1 ; case 0x2 02ac 7804 |x | Jump 0x2b1 ; case 0x3 02ad 7803 |x | Jump 0x2b1 ; case 0x4 02ae 7802 |x | Jump 0x2b1 ; case 0x5 02af 7801 |x | Jump 0x2b1 ; case 0x6 02b0 7800 |x | Jump 0x2b1 ; case 0x7 02b1 00db | | Load_Top At_Offset_3 02b2 00d8 | | Load_Top At_Offset_0 02b3 e210 | | Load 0x1,0x10 02b4 0260 | ` | Execute Discrete,In_Type 02b5 7001 |p | Jump_Nonzero 0x2b7 02b6 0801 | | Execute_Immediate Raise,0x1 02b7 00db | | Load_Top At_Offset_3 02b8 e5fe | | Load 0x2,-0x2 02b9 01dc | | Execute Vector,Last 02ba e5fe | | Load 0x2,-0x2 02bb 01cf | | Execute Vector,Slice_Read 02bc 00e2 | | Load_Encached Integer_Cache 02bd 00e0 | | Load_Encached Standard_Cache 02be 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02bf 00d8 | | Load_Top At_Offset_0 02c0 00e3 | | Load_Encached Natural_Cache 02c1 0260 | ` | Execute Discrete,In_Type 02c2 7001 |p | Jump_Nonzero 0x2c4 02c3 0801 | | Execute_Immediate Raise,0x1 02c4 e5ff | | Load 0x2,-0x1 02c5 8219 | | Call 0x1,0x19 02c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02c7 00da | | Load_Top At_Offset_2 02c8 0a01 | | Execute_Immediate Plus,0x1 02c9 00d8 | | Load_Top At_Offset_0 02ca 00e2 | | Load_Encached Integer_Cache 02cb 0260 | ` | Execute Discrete,In_Type 02cc 7001 |p | Jump_Nonzero 0x2ce 02cd 0801 | | Execute_Immediate Raise,0x1 02ce e5fe | | Load 0x2,-0x2 02cf 01dc | | Execute Vector,Last 02d0 e5fe | | Load 0x2,-0x2 02d1 01cf | | Execute Vector,Slice_Read 02d2 00e2 | | Load_Encached Integer_Cache 02d3 00e0 | | Load_Encached Standard_Cache 02d4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02d5 00d8 | | Load_Top At_Offset_0 02d6 00e3 | | Load_Encached Natural_Cache 02d7 0260 | ` | Execute Discrete,In_Type 02d8 7001 |p | Jump_Nonzero 0x2da 02d9 0801 | | Execute_Immediate Raise,0x1 02da e5ff | | Load 0x2,-0x1 02db 821a | | Call 0x1,0x1a 02dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02dd 00d9 | | Load_Top At_Offset_1 02de 0a01 | | Execute_Immediate Plus,0x1 02df 00d8 | | Load_Top At_Offset_0 02e0 00e2 | | Load_Encached Integer_Cache 02e1 0260 | ` | Execute Discrete,In_Type 02e2 7001 |p | Jump_Nonzero 0x2e4 02e3 0801 | | Execute_Immediate Raise,0x1 02e4 e5fe | | Load 0x2,-0x2 02e5 01dc | | Execute Vector,Last 02e6 e5fe | | Load 0x2,-0x2 02e7 01cf | | Execute Vector,Slice_Read 02e8 00e2 | | Load_Encached Integer_Cache 02e9 00e0 | | Load_Encached Standard_Cache 02ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02eb 00d8 | | Load_Top At_Offset_0 02ec 00e3 | | Load_Encached Natural_Cache 02ed 0260 | ` | Execute Discrete,In_Type 02ee 7001 |p | Jump_Nonzero 0x2f0 02ef 0801 | | Execute_Immediate Raise,0x1 02f0 00db | | Load_Top At_Offset_3 02f1 0a01 | | Execute_Immediate Plus,0x1 02f2 00d8 | | Load_Top At_Offset_0 02f3 00e2 | | Load_Encached Integer_Cache 02f4 0260 | ` | Execute Discrete,In_Type 02f5 7001 |p | Jump_Nonzero 0x2f7 02f6 0801 | | Execute_Immediate Raise,0x1 02f7 00db | | Load_Top At_Offset_3 02f8 0aff | | Execute_Immediate Plus,-0x1 02f9 e5fe | | Load 0x2,-0x2 02fa 01cf | | Execute Vector,Slice_Read 02fb e5ff | | Load 0x2,-0x1 02fc 8216 | | Call 0x1,0x16 02fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02fe 0000 0000 | | .XXX[0x2] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0308 | | .CONST 0x0308 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0005 | | .CONST 0x0005 ; Number of locals 0303 INIT_0300: 0303 00db | | Load_Top At_Offset_3 0304 8215 | | Call 0x1,0x15 0305 00ec | | Load_Encached Diana_Tree_Cache 0306 00ee | | Load_Encached Diana_Seq_Type_Cache 0307 00e3 | | Load_Encached Natural_Cache 0308 BODY_0300: 0308 4800 |H | Short_Literal 0x0 0309 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 030a e5ff | | Load 0x2,-0x1 030b 00eb | | Load_Encached Diana_Cache 030c 1889 | | Execute Package,Field_Execute,Field_Number 0x89 030d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 030e 00cf | | Action Mark_Auxiliary 030f 00da | | Load_Top At_Offset_2 0310 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 0311 a403 | | Store_Unchecked 0x2,0x3 0312 00db | | Load_Top At_Offset_3 0313 8214 | | Call 0x1,0x14 0314 6808 |h | Jump_Zero 0x31d 0315 00db | | Load_Top At_Offset_3 0316 8215 | | Call 0x1,0x15 0317 e402 | | Load 0x2,0x2 0318 01df | | Execute Vector,Equal 0319 6803 |h | Jump_Zero 0x31d 031a 00d9 | | Load_Top At_Offset_1 031b 0a01 | | Execute_Immediate Plus,0x1 031c 005a | Z | Store_Top Discrete,At_Offset_2 031d 00db | | Load_Top At_Offset_3 031e e5fe | | Load 0x2,-0x2 031f 021f | | Execute Heap_Access,Equal 0320 700a |p | Jump_Nonzero 0x32b 0321 00da | | Load_Top At_Offset_2 0322 0217 | | Execute Heap_Access,All_Reference 0323 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0324 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0325 00da | | Load_Top At_Offset_2 0326 7002 |p | Jump_Nonzero 0x329 0327 e211 | | Load 0x1,0x11 0328 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0329 00c9 | | Action Pop_Auxiliary_Loop 032a 7fe4 | | Jump 0x30f 032b 00ce | | Action Pop_Auxiliary 032c 4820 |H | Short_Literal 0x20 032d 4820 |H | Short_Literal 0x20 032e 4820 |H | Short_Literal 0x20 032f 4800 |H | Short_Literal 0x0 0330 480a |H | Short_Literal 0xa 0331 4801 |H | Short_Literal 0x1 0332 e005 | | Load 0x0,0x5 0333 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0334 01cb | | Execute Vector,Append 0335 e402 | | Load 0x2,0x2 0336 01cc | | Execute Vector,Catenate 0337 01cb | | Execute Vector,Append 0338 4820 |H | Short_Literal 0x20 0339 4800 |H | Short_Literal 0x0 033a 480a |H | Short_Literal 0xa 033b e405 | | Load 0x2,0x5 033c e005 | | Load 0x0,0x5 033d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 033e 01cc | | Execute Vector,Catenate 033f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0346 | F | .CONST 0x0346 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0004 | | .CONST 0x0004 ; Number of locals 0343 INIT_0340: 0343 00e3 | | Load_Encached Natural_Cache 0344 00ee | | Load_Encached Diana_Seq_Type_Cache 0345 00ec | | Load_Encached Diana_Tree_Cache 0346 BODY_0340: 0346 e5fd | | Load 0x2,-0x3 0347 0e06 | | Execute_Immediate Not_Equal,0x6 0348 6855 |hU | Jump_Zero 0x39e 0349 e5fd | | Load 0x2,-0x3 034a 0e03 | | Execute_Immediate Not_Equal,0x3 034b 6852 |hR | Jump_Zero 0x39e 034c e5ff | | Load 0x2,-0x1 034d 0145 | E | Execute Heap_Access,Diana_Tree_Kind 034e 00d8 | | Load_Top At_Offset_0 034f 0d84 | | Execute_Immediate Less,-0x7c 0350 702f |p/ | Jump_Nonzero 0x380 0351 4f7c |O| | Short_Literal -0x84 0352 0273 | s | Execute Discrete,Plus 0353 4629 |F) | Jump_Case 0x2a 0354 783c |x< | Jump 0x391 ; case 0x0 0355 7828 |x( | Jump 0x37e ; case 0x1 0356 7827 |x' | Jump 0x37e ; case 0x2 0357 7826 |x& | Jump 0x37e ; case 0x3 0358 7825 |x% | Jump 0x37e ; case 0x4 0359 782d |x- | Jump 0x387 ; case 0x5 035a 7823 |x# | Jump 0x37e ; case 0x6 035b 7822 |x" | Jump 0x37e ; case 0x7 035c 7839 |x9 | Jump 0x396 ; case 0x8 035d 7820 |x | Jump 0x37e ; case 0x9 035e 781f |x | Jump 0x37e ; case 0xa 035f 781e |x | Jump 0x37e ; case 0xb 0360 781d |x | Jump 0x37e ; case 0xc 0361 7834 |x4 | Jump 0x396 ; case 0xd 0362 781b |x | Jump 0x37e ; case 0xe 0363 781a |x | Jump 0x37e ; case 0xf 0364 7819 |x | Jump 0x37e ; case 0x10 0365 7826 |x& | Jump 0x38c ; case 0x11 0366 7817 |x | Jump 0x37e ; case 0x12 0367 781a |x | Jump 0x382 ; case 0x13 0368 7815 |x | Jump 0x37e ; case 0x14 0369 7814 |x | Jump 0x37e ; case 0x15 036a 7813 |x | Jump 0x37e ; case 0x16 036b 7812 |x | Jump 0x37e ; case 0x17 036c 7811 |x | Jump 0x37e ; case 0x18 036d 7810 |x | Jump 0x37e ; case 0x19 036e 780f |x | Jump 0x37e ; case 0x1a 036f 780e |x | Jump 0x37e ; case 0x1b 0370 780d |x | Jump 0x37e ; case 0x1c 0371 780c |x | Jump 0x37e ; case 0x1d 0372 780b |x | Jump 0x37e ; case 0x1e 0373 780a |x | Jump 0x37e ; case 0x1f 0374 7809 |x | Jump 0x37e ; case 0x20 0375 7808 |x | Jump 0x37e ; case 0x21 0376 7807 |x | Jump 0x37e ; case 0x22 0377 7806 |x | Jump 0x37e ; case 0x23 0378 7805 |x | Jump 0x37e ; case 0x24 0379 7804 |x | Jump 0x37e ; case 0x25 037a 7803 |x | Jump 0x37e ; case 0x26 037b 7802 |x | Jump 0x37e ; case 0x27 037c 7801 |x | Jump 0x37e ; case 0x28 037d 7800 |x | Jump 0x37e ; case 0x29 037e e211 | | Load 0x1,0x11 037f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0380 00d1 | | Pop_Control Pop_Count_1 0381 7ffc | | Jump 0x37e 0382 e5fd | | Load 0x2,-0x3 0383 0e02 | | Execute_Immediate Not_Equal,0x2 0384 6819 |h | Jump_Zero 0x39e 0385 e211 | | Load 0x1,0x11 0386 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0387 e5fd | | Load 0x2,-0x3 0388 0e04 | | Execute_Immediate Not_Equal,0x4 0389 6814 |h | Jump_Zero 0x39e 038a e211 | | Load 0x1,0x11 038b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 038c e5fd | | Load 0x2,-0x3 038d 0e03 | | Execute_Immediate Not_Equal,0x3 038e 680f |h | Jump_Zero 0x39e 038f e211 | | Load 0x1,0x11 0390 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0391 e5fd | | Load 0x2,-0x3 0392 0e05 | | Execute_Immediate Not_Equal,0x5 0393 680a |h | Jump_Zero 0x39e 0394 e211 | | Load 0x1,0x11 0395 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0396 e5fd | | Load 0x2,-0x3 0397 0e07 | | Execute_Immediate Not_Equal,0x7 0398 6805 |h | Jump_Zero 0x39e 0399 e5fd | | Load 0x2,-0x3 039a 0e05 | | Execute_Immediate Not_Equal,0x5 039b 6802 |h | Jump_Zero 0x39e 039c e211 | | Load 0x1,0x11 039d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 039e 4800 |H | Short_Literal 0x0 039f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 03a0 e5ff | | Load 0x2,-0x1 03a1 00eb | | Load_Encached Diana_Cache 03a2 1889 | | Execute Package,Field_Execute,Field_Number 0x89 03a3 0032 | 2 | Store_Top Heap_Access,At_Offset_2 03a4 00cf | | Action Mark_Auxiliary 03a5 00da | | Load_Top At_Offset_2 03a6 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 03a7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 03a8 e5fd | | Load 0x2,-0x3 03a9 0afe | | Execute_Immediate Plus,-0x2 03aa 4605 |F | Jump_Case 0x6 03ab 7824 |x$ | Jump 0x3d0 ; case 0x0 03ac 7814 |x | Jump 0x3c1 ; case 0x1 03ad 7822 |x" | Jump 0x3d0 ; case 0x2 03ae 781a |x | Jump 0x3c9 ; case 0x3 03af 7808 |x | Jump 0x3b8 ; case 0x4 03b0 7800 |x | Jump 0x3b1 ; case 0x5 03b1 00d9 | | Load_Top At_Offset_1 03b2 8217 | | Call 0x1,0x17 03b3 6823 |h# | Jump_Zero 0x3d7 03b4 00db | | Load_Top At_Offset_3 03b5 0a01 | | Execute_Immediate Plus,0x1 03b6 c402 | | Store 0x2,0x2 03b7 781f |x | Jump 0x3d7 03b8 00d9 | | Load_Top At_Offset_1 03b9 49a1 |I | Short_Literal 0x1a1 03ba 00eb | | Load_Encached Diana_Cache 03bb 0096 | | Execute Package,Entry 03bc 681a |h | Jump_Zero 0x3d7 03bd 00db | | Load_Top At_Offset_3 03be 0a01 | | Execute_Immediate Plus,0x1 03bf c402 | | Store 0x2,0x2 03c0 7816 |x | Jump 0x3d7 03c1 00d9 | | Load_Top At_Offset_1 03c2 0145 | E | Execute Heap_Access,Diana_Tree_Kind 03c3 0f40 | @ | Execute_Immediate Equal,0x40 03c4 6812 |h | Jump_Zero 0x3d7 03c5 00db | | Load_Top At_Offset_3 03c6 0a01 | | Execute_Immediate Plus,0x1 03c7 c402 | | Store 0x2,0x2 03c8 780e |x | Jump 0x3d7 03c9 00d9 | | Load_Top At_Offset_1 03ca 8218 | | Call 0x1,0x18 03cb 680b |h | Jump_Zero 0x3d7 03cc 00db | | Load_Top At_Offset_3 03cd 0a01 | | Execute_Immediate Plus,0x1 03ce c402 | | Store 0x2,0x2 03cf 7807 |x | Jump 0x3d7 03d0 00d9 | | Load_Top At_Offset_1 03d1 0145 | E | Execute Heap_Access,Diana_Tree_Kind 03d2 0f40 | @ | Execute_Immediate Equal,0x40 03d3 7003 |p | Jump_Nonzero 0x3d7 03d4 00db | | Load_Top At_Offset_3 03d5 0a01 | | Execute_Immediate Plus,0x1 03d6 c402 | | Store 0x2,0x2 03d7 00d9 | | Load_Top At_Offset_1 03d8 e5fe | | Load 0x2,-0x2 03d9 021f | | Execute Heap_Access,Equal 03da 700a |p | Jump_Nonzero 0x3e5 03db 00da | | Load_Top At_Offset_2 03dc 0217 | | Execute Heap_Access,All_Reference 03dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03de 0033 | 3 | Store_Top Heap_Access,At_Offset_3 03df 00da | | Load_Top At_Offset_2 03e0 7002 |p | Jump_Nonzero 0x3e3 03e1 e211 | | Load 0x1,0x11 03e2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03e3 00c9 | | Action Pop_Auxiliary_Loop 03e4 7fc0 | | Jump 0x3a5 03e5 00ce | | Action Pop_Auxiliary 03e6 4820 |H | Short_Literal 0x20 03e7 4820 |H | Short_Literal 0x20 03e8 4800 |H | Short_Literal 0x0 03e9 480a |H | Short_Literal 0xa 03ea e5fd | | Load 0x2,-0x3 03eb 00d8 | | Load_Top At_Offset_0 03ec 00e2 | | Load_Encached Integer_Cache 03ed 0260 | ` | Execute Discrete,In_Type 03ee 7001 |p | Jump_Nonzero 0x3f0 03ef 0801 | | Execute_Immediate Raise,0x1 03f0 e005 | | Load 0x0,0x5 03f1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03f2 01cb | | Execute Vector,Append 03f3 4820 |H | Short_Literal 0x20 03f4 4800 |H | Short_Literal 0x0 03f5 480a |H | Short_Literal 0xa 03f6 e402 | | Load 0x2,0x2 03f7 e005 | | Load 0x0,0x5 03f8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03f9 01cc | | Execute Vector,Catenate 03fa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03fb 0000 0000 | | .BLANK 0000[0x5] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0406 | | .CONST 0x0406 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0003 | | .CONST 0x0003 ; Number of locals 0403 INIT_0400: 0403 00e3 | | Load_Encached Natural_Cache 0404 029f 0593 | | Declare_Subprogram INIT_0590,For_Call 0406 BODY_0400: 0406 e5ff | | Load 0x2,-0x1 0407 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0408 008e | | Action Discrete,Diana_Arity_For_Kind 0409 4604 |F | Jump_Case 0x5 040a 7806 |x | Jump 0x411 ; case 0x0 040b 7808 |x | Jump 0x414 ; case 0x1 040c 7813 |x | Jump 0x420 ; case 0x2 040d 7827 |x' | Jump 0x435 ; case 0x3 040e 7800 |x | Jump 0x40f ; case 0x4 040f 8403 | | Call 0x2,0x3 0410 7841 |xA | Jump 0x452 0411 4800 |H | Short_Literal 0x0 0412 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0413 783e |x> | Jump 0x452 0414 e5fe | | Load 0x2,-0x2 0415 e5ff | | Load 0x2,-0x1 0416 00eb | | Load_Encached Diana_Cache 0417 1885 | | Execute Package,Field_Execute,Field_Number 0x85 0418 021f | | Execute Heap_Access,Equal 0419 6803 |h | Jump_Zero 0x41d 041a 4801 |H | Short_Literal 0x1 041b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 041c 7835 |x5 | Jump 0x452 041d 4800 |H | Short_Literal 0x0 041e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 041f 7832 |x2 | Jump 0x452 0420 e5fe | | Load 0x2,-0x2 0421 e5ff | | Load 0x2,-0x1 0422 00eb | | Load_Encached Diana_Cache 0423 1885 | | Execute Package,Field_Execute,Field_Number 0x85 0424 021f | | Execute Heap_Access,Equal 0425 6803 |h | Jump_Zero 0x429 0426 4801 |H | Short_Literal 0x1 0427 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0428 7829 |x) | Jump 0x452 0429 e5fe | | Load 0x2,-0x2 042a e5ff | | Load 0x2,-0x1 042b 00eb | | Load_Encached Diana_Cache 042c 1886 | | Execute Package,Field_Execute,Field_Number 0x86 042d 021f | | Execute Heap_Access,Equal 042e 6803 |h | Jump_Zero 0x432 042f 4802 |H | Short_Literal 0x2 0430 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0431 7820 |x | Jump 0x452 0432 4800 |H | Short_Literal 0x0 0433 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0434 781d |x | Jump 0x452 0435 e5fe | | Load 0x2,-0x2 0436 e5ff | | Load 0x2,-0x1 0437 00eb | | Load_Encached Diana_Cache 0438 1885 | | Execute Package,Field_Execute,Field_Number 0x85 0439 021f | | Execute Heap_Access,Equal 043a 6803 |h | Jump_Zero 0x43e 043b 4801 |H | Short_Literal 0x1 043c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 043d 7814 |x | Jump 0x452 043e e5fe | | Load 0x2,-0x2 043f e5ff | | Load 0x2,-0x1 0440 00eb | | Load_Encached Diana_Cache 0441 1886 | | Execute Package,Field_Execute,Field_Number 0x86 0442 021f | | Execute Heap_Access,Equal 0443 6803 |h | Jump_Zero 0x447 0444 4802 |H | Short_Literal 0x2 0445 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0446 780b |x | Jump 0x452 0447 e5fe | | Load 0x2,-0x2 0448 e5ff | | Load 0x2,-0x1 0449 00eb | | Load_Encached Diana_Cache 044a 1887 | | Execute Package,Field_Execute,Field_Number 0x87 044b 021f | | Execute Heap_Access,Equal 044c 6803 |h | Jump_Zero 0x450 044d 4803 |H | Short_Literal 0x3 044e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 044f 7802 |x | Jump 0x452 0450 4800 |H | Short_Literal 0x0 0451 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0452 00d9 | | Load_Top At_Offset_1 0453 7002 |p | Jump_Nonzero 0x456 0454 e211 | | Load 0x1,0x11 0455 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0456 4820 |H | Short_Literal 0x20 0457 4820 |H | Short_Literal 0x20 0458 4800 |H | Short_Literal 0x0 0459 480a |H | Short_Literal 0xa 045a 4800 |H | Short_Literal 0x0 045b e005 | | Load 0x0,0x5 045c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 045d 01cb | | Execute Vector,Append 045e 4820 |H | Short_Literal 0x20 045f 4800 |H | Short_Literal 0x0 0460 480a |H | Short_Literal 0xa 0461 e402 | | Load 0x2,0x2 0462 e005 | | Load 0x0,0x5 0463 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0464 01cc | | Execute Vector,Catenate 0465 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0466 0000 0000 | | .XXX[0x2] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046d | m | .CONST 0x046d ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0002 | | .CONST 0x0002 ; Number of locals 046b INIT_0468: 046b e20f | | Load 0x1,0xf 046c 0007 | | Action Break_Optional 046d BODY_0468: 046d e5fe | | Load 0x2,-0x2 046e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 046f 0f40 | @ | Execute_Immediate Equal,0x40 0470 680b |h | Jump_Zero 0x47c 0471 e5fe | | Load 0x2,-0x2 0472 49a1 |I | Short_Literal 0x1a1 0473 00eb | | Load_Encached Diana_Cache 0474 0096 | | Execute Package,Entry 0475 6803 |h | Jump_Zero 0x479 0476 4806 |H | Short_Literal 0x6 0477 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0478 7854 |xT | Jump 0x4cd 0479 4803 |H | Short_Literal 0x3 047a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 047b 7851 |xQ | Jump 0x4cd 047c 00db | | Load_Top At_Offset_3 047d 0145 | E | Execute Heap_Access,Diana_Tree_Kind 047e 00d8 | | Load_Top At_Offset_0 047f 0d84 | | Execute_Immediate Less,-0x7c 0480 7030 |p0 | Jump_Nonzero 0x4b1 0481 4f7c |O| | Short_Literal -0x84 0482 0273 | s | Execute Discrete,Plus 0483 4629 |F) | Jump_Case 0x2a 0484 7846 |xF | Jump 0x4cb ; case 0x0 0485 7828 |x( | Jump 0x4ae ; case 0x1 0486 7827 |x' | Jump 0x4ae ; case 0x2 0487 7826 |x& | Jump 0x4ae ; case 0x3 0488 7825 |x% | Jump 0x4ae ; case 0x4 0489 783e |x> | Jump 0x4c8 ; case 0x5 048a 7823 |x# | Jump 0x4ae ; case 0x6 048b 7822 |x" | Jump 0x4ae ; case 0x7 048c 7826 |x& | Jump 0x4b3 ; case 0x8 048d 7820 |x | Jump 0x4ae ; case 0x9 048e 781f |x | Jump 0x4ae ; case 0xa 048f 781e |x | Jump 0x4ae ; case 0xb 0490 781d |x | Jump 0x4ae ; case 0xc 0491 7821 |x! | Jump 0x4b3 ; case 0xd 0492 781b |x | Jump 0x4ae ; case 0xe 0493 781a |x | Jump 0x4ae ; case 0xf 0494 7819 |x | Jump 0x4ae ; case 0x10 0495 782f |x/ | Jump 0x4c5 ; case 0x11 0496 7817 |x | Jump 0x4ae ; case 0x12 0497 782a |x* | Jump 0x4c2 ; case 0x13 0498 7815 |x | Jump 0x4ae ; case 0x14 0499 7814 |x | Jump 0x4ae ; case 0x15 049a 7813 |x | Jump 0x4ae ; case 0x16 049b 7812 |x | Jump 0x4ae ; case 0x17 049c 7811 |x | Jump 0x4ae ; case 0x18 049d 7810 |x | Jump 0x4ae ; case 0x19 049e 780f |x | Jump 0x4ae ; case 0x1a 049f 780e |x | Jump 0x4ae ; case 0x1b 04a0 780d |x | Jump 0x4ae ; case 0x1c 04a1 780c |x | Jump 0x4ae ; case 0x1d 04a2 780b |x | Jump 0x4ae ; case 0x1e 04a3 780a |x | Jump 0x4ae ; case 0x1f 04a4 7809 |x | Jump 0x4ae ; case 0x20 04a5 7808 |x | Jump 0x4ae ; case 0x21 04a6 7807 |x | Jump 0x4ae ; case 0x22 04a7 7806 |x | Jump 0x4ae ; case 0x23 04a8 7805 |x | Jump 0x4ae ; case 0x24 04a9 7804 |x | Jump 0x4ae ; case 0x25 04aa 7803 |x | Jump 0x4ae ; case 0x26 04ab 7802 |x | Jump 0x4ae ; case 0x27 04ac 7801 |x | Jump 0x4ae ; case 0x28 04ad 7800 |x | Jump 0x4ae ; case 0x29 04ae 4800 |H | Short_Literal 0x0 04af 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 04b0 781c |x | Jump 0x4cd 04b1 00d1 | | Pop_Control Pop_Count_1 04b2 7ffb | | Jump 0x4ae 04b3 e5fe | | Load 0x2,-0x2 04b4 8217 | | Call 0x1,0x17 04b5 6803 |h | Jump_Zero 0x4b9 04b6 4807 |H | Short_Literal 0x7 04b7 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 04b8 7814 |x | Jump 0x4cd 04b9 e5fe | | Load 0x2,-0x2 04ba 8218 | | Call 0x1,0x18 04bb 6803 |h | Jump_Zero 0x4bf 04bc 4805 |H | Short_Literal 0x5 04bd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 04be 780e |x | Jump 0x4cd 04bf 4801 |H | Short_Literal 0x1 04c0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 04c1 780b |x | Jump 0x4cd 04c2 4802 |H | Short_Literal 0x2 04c3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 04c4 7808 |x | Jump 0x4cd 04c5 4803 |H | Short_Literal 0x3 04c6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 04c7 7805 |x | Jump 0x4cd 04c8 4804 |H | Short_Literal 0x4 04c9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 04ca 7802 |x | Jump 0x4cd 04cb 4805 |H | Short_Literal 0x5 04cc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 04cd 00d8 | | Load_Top At_Offset_0 04ce 4607 |F | Jump_Case 0x8 04cf 7811 |x | Jump 0x4e1 ; case 0x0 04d0 7814 |x | Jump 0x4e5 ; case 0x1 04d1 7805 |x | Jump 0x4d7 ; case 0x2 04d2 7804 |x | Jump 0x4d7 ; case 0x3 04d3 7803 |x | Jump 0x4d7 ; case 0x4 04d4 7802 |x | Jump 0x4d7 ; case 0x5 04d5 7801 |x | Jump 0x4d7 ; case 0x6 04d6 7800 |x | Jump 0x4d7 ; case 0x7 04d7 00d8 | | Load_Top At_Offset_0 04d8 00d8 | | Load_Top At_Offset_0 04d9 e210 | | Load 0x1,0x10 04da 0260 | ` | Execute Discrete,In_Type 04db 7001 |p | Jump_Nonzero 0x4dd 04dc 0801 | | Execute_Immediate Raise,0x1 04dd e5fe | | Load 0x2,-0x2 04de e5ff | | Load 0x2,-0x1 04df 821d | | Call 0x1,0x1d 04e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e1 e5fe | | Load 0x2,-0x2 04e2 e5ff | | Load 0x2,-0x1 04e3 821e | | Call 0x1,0x1e 04e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e5 e5fe | | Load 0x2,-0x2 04e6 e5ff | | Load 0x2,-0x1 04e7 821c | | Call 0x1,0x1c 04e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e9 0000 0000 | | .BLANK 0000[0x7] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 0501 | | .CONST 0x0501 ; Address of begin 04f1 0525 | % | .CONST 0x0525 ; Address of exception handler 04f2 0005 | | .CONST 0x0005 ; Number of locals 04f3 INIT_04f0: 04f3 4801 |H | Short_Literal 0x1 04f4 e403 | | Load 0x2,0x3 04f5 00e9 | | Load_Encached String_Cache 04f6 035b | [ | Declare_Type Array,Constrained 04f7 0337 | 7 | Declare_Variable Array 04f8 00e3 | | Load_Encached Natural_Cache 04f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04fa 0093 0000 | | push_full_address 0x0 04fc 6033 |`3 | Indirect_Literal Discrete,0x530,{0x80000000, 0x00010000} 04fd 0273 | s | Execute Discrete,Plus 04fe 0007 | | Action Break_Optional 04ff 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call 0501 BODY_04f0: 0501 00cf | | Action Mark_Auxiliary 0502 e402 | | Load 0x2,0x2 0503 01dc | | Execute Vector,Last 0504 0aff | | Execute_Immediate Plus,-0x1 0505 00d8 | | Load_Top At_Offset_0 0506 00e2 | | Load_Encached Integer_Cache 0507 0260 | ` | Execute Discrete,In_Type 0508 7001 |p | Jump_Nonzero 0x50a 0509 0801 | | Execute_Immediate Raise,0x1 050a e402 | | Load 0x2,0x2 050b 01dd | | Execute Vector,First 050c 0263 | c | Execute Discrete,Above_Bound 050d 700e |p | Jump_Nonzero 0x51c 050e 0092 05de | | Action Push_String_Extended,0x5de ; "." 0510 8605 | | Call 0x3,0x5 0511 00d8 | | Load_Top At_Offset_0 0512 0a01 | | Execute_Immediate Plus,0x1 0513 e402 | | Load 0x2,0x2 0514 01d7 | | Execute Vector,Field_Read 0515 00d9 | | Load_Top At_Offset_1 0516 e402 | | Load 0x2,0x2 0517 01d7 | | Execute Vector,Field_Read 0518 821f | | Call 0x1,0x1f 0519 8605 | | Call 0x3,0x5 051a 00c8 | | Action Pop_Auxiliary_Range 051b 3ff2 |? | Loop_Increasing 0x50e 051c 00ce | | Action Pop_Auxiliary 051d 4801 |H | Short_Literal 0x1 051e 00db | | Load_Top At_Offset_3 051f e602 | | Load 0x3,0x2 0520 01cf | | Execute Vector,Slice_Read 0521 00e9 | | Load_Encached String_Cache 0522 01c6 | | Execute Vector,Convert_To_Formal 0523 00cb | | Action Pop_Block_With_Result 0524 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0525 TRAP_04f0: 0525 00da | | Load_Top At_Offset_2 0526 010f | | Execute Exception,Equal 0527 6804 |h | Jump_Zero 0x52c 0528 e403 | | Load 0x2,0x3 0529 0901 | | Execute_Immediate Binary_Scale,0x1 052a c403 | | Store 0x2,0x3 052b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 052c 0100 | | Execute Exception,Raise 052d 0000 0000 | | .XXX[0x3] 052f 0000 | | 0530 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0534 0000 0000 | | .BLANK 0000[0x4] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 0547 | G | .CONST 0x0547 ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0003 | | .CONST 0x0003 ; Number of locals 053b INIT_0538: 053b 4801 |H | Short_Literal 0x1 053c e403 | | Load 0x2,0x3 053d 49a0 |I | Short_Literal 0x1a0 053e 00eb | | Load_Encached Diana_Cache 053f 0098 | | Execute Package,Field_Read_Dynamic 0540 035b | [ | Declare_Type Array,Constrained 0541 0337 | 7 | Declare_Variable Array 0542 00d8 | | Load_Top At_Offset_0 0543 01dc | | Execute Vector,Last 0544 0a01 | | Execute_Immediate Plus,0x1 0545 00e3 | | Load_Encached Natural_Cache 0546 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0547 BODY_0538: 0547 e5ff | | Load 0x2,-0x1 0548 a402 | | Store_Unchecked 0x2,0x2 0549 00cf | | Action Mark_Auxiliary 054a 780c |x | Jump 0x557 054b 00d9 | | Load_Top At_Offset_1 054c 0aff | | Execute_Immediate Plus,-0x1 054d 005a | Z | Store_Top Discrete,At_Offset_2 054e e402 | | Load 0x2,0x2 054f 00da | | Load_Top At_Offset_2 0550 e602 | | Load 0x3,0x2 0551 01d6 | | Execute Vector,Field_Write 0552 e402 | | Load 0x2,0x2 0553 00eb | | Load_Encached Diana_Cache 0554 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0555 a402 | | Store_Unchecked 0x2,0x2 0556 00c9 | | Action Pop_Auxiliary_Loop 0557 e402 | | Load 0x2,0x2 0558 77f2 |w | Jump_Nonzero 0x54b 0559 00ce | | Action Pop_Auxiliary 055a 00d9 | | Load_Top At_Offset_1 055b 49a0 |I | Short_Literal 0x1a0 055c 00eb | | Load_Encached Diana_Cache 055d 0098 | | Execute Package,Field_Read_Dynamic 055e 01c6 | | Execute Vector,Convert_To_Formal 055f 00cb | | Action Pop_Block_With_Result 0560 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0561 0000 0000 | | .BLANK 0000[0x7] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056e | n | .CONST 0x056e ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0002 | | .CONST 0x0002 ; Number of locals 056b INIT_0568: 056b e5ff | | Load 0x2,-0x1 056c 00eb | | Load_Encached Diana_Cache 056d 1889 | | Execute Package,Field_Execute,Field_Number 0x89 056e BODY_0568: 056e 00cf | | Action Mark_Auxiliary 056f e5fe | | Load 0x2,-0x2 0570 0aff | | Execute_Immediate Plus,-0x1 0571 4801 |H | Short_Literal 0x1 0572 0263 | c | Execute Discrete,Above_Bound 0573 700b |p | Jump_Nonzero 0x57f 0574 00db | | Load_Top At_Offset_3 0575 7003 |p | Jump_Nonzero 0x579 0576 e212 | | Load 0x1,0x12 0577 00cb | | Action Pop_Block_With_Result 0578 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0579 00db | | Load_Top At_Offset_3 057a 0217 | | Execute Heap_Access,All_Reference 057b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 057c a602 | | Store_Unchecked 0x3,0x2 057d 00c8 | | Action Pop_Auxiliary_Range 057e 3ff5 |? | Loop_Increasing 0x574 057f 00ce | | Action Pop_Auxiliary 0580 00d8 | | Load_Top At_Offset_0 0581 7003 |p | Jump_Nonzero 0x585 0582 e212 | | Load 0x1,0x12 0583 00cb | | Action Pop_Block_With_Result 0584 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0585 00d8 | | Load_Top At_Offset_0 0586 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 0587 00cb | | Action Pop_Block_With_Result 0588 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0589 0000 0000 | | .BLANK 0000[0x7] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0596 | | .CONST 0x0596 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0002 | | .CONST 0x0002 ; Number of locals 0593 INIT_0590: 0593 e5ff | | Load 0x2,-0x1 0594 00eb | | Load_Encached Diana_Cache 0595 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0596 BODY_0590: 0596 4800 |H | Short_Literal 0x0 0597 a402 | | Store_Unchecked 0x2,0x2 0598 00cf | | Action Mark_Auxiliary 0599 780e |x | Jump 0x5a8 059a e402 | | Load 0x2,0x2 059b 0a01 | | Execute_Immediate Plus,0x1 059c c402 | | Store 0x2,0x2 059d e5fe | | Load 0x2,-0x2 059e 00da | | Load_Top At_Offset_2 059f 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 05a0 021f | | Execute Heap_Access,Equal 05a1 6801 |h | Jump_Zero 0x5a3 05a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05a3 00d9 | | Load_Top At_Offset_1 05a4 0217 | | Execute Heap_Access,All_Reference 05a5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05a6 0032 | 2 | Store_Top Heap_Access,At_Offset_2 05a7 00c9 | | Action Pop_Auxiliary_Loop 05a8 00d9 | | Load_Top At_Offset_1 05a9 77f0 |w | Jump_Nonzero 0x59a 05aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05ab 0000 0000 | | .BLANK 0000[0x5] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b3 | | .CONST 0x05b3 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0001 | | .CONST 0x0001 ; Number of locals 05b3 BODY_05b0: 05b3 INIT_05b0: 05b3 e403 | | Load 0x2,0x3 05b4 e603 | | Load 0x3,0x3 05b5 0272 | r | Execute Discrete,Minus 05b6 00db | | Load_Top At_Offset_3 05b7 01db | | Execute Vector,Length 05b8 027c | | | Execute Discrete,Less 05b9 6802 |h | Jump_Zero 0x5bc 05ba e604 | | Load 0x3,0x4 05bb 0257 | W | Execute Discrete,Raise 05bc 00da | | Load_Top At_Offset_2 05bd e603 | | Load 0x3,0x3 05be 0a01 | | Execute_Immediate Plus,0x1 05bf 00d8 | | Load_Top At_Offset_0 05c0 00e2 | | Load_Encached Integer_Cache 05c1 0260 | ` | Execute Discrete,In_Type 05c2 7001 |p | Jump_Nonzero 0x5c4 05c3 0801 | | Execute_Immediate Raise,0x1 05c4 e603 | | Load 0x3,0x3 05c5 e9ff | | Load 0x4,-0x1 05c6 01db | | Execute Vector,Length 05c7 0273 | s | Execute Discrete,Plus 05c8 00d8 | | Load_Top At_Offset_0 05c9 00e2 | | Load_Encached Integer_Cache 05ca 0260 | ` | Execute Discrete,In_Type 05cb 7001 |p | Jump_Nonzero 0x5cd 05cc 0801 | | Execute_Immediate Raise,0x1 05cd e602 | | Load 0x3,0x2 05ce 01ce | | Execute Vector,Slice_Write 05cf e603 | | Load 0x3,0x3 05d0 00db | | Load_Top At_Offset_3 05d1 01db | | Execute Vector,Length 05d2 0273 | s | Execute Discrete,Plus 05d3 c603 | | Store 0x3,0x3 05d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05d5 ; -------------------------------------------------------------------------------------- 05d5 ; STRING TABLE 05d5 ; -------------------------------------------------------------------------------------- 05d5 0018 | | .STRTAB 0x0018->0x05e1 ; "POSITIONAL_NAME" 05d6 0025 | % | .STRTAB 0x0025->0x05e8 ; "DECLARATION_NAME" 05d7 0033 | 3 | .STRTAB 0x0033->0x05f0 ; "STATEMENT_NAME" 05d8 003f | ? | .STRTAB 0x003f->0x05f7 ; "PRAGMA_NAME" 05d9 0048 | H | .STRTAB 0x0048->0x05fd ; "ALTERNATIVE_NAME" 05da 0056 | V | .STRTAB 0x0056->0x0605 ; "CONTEXT_NAME" 05db 0060 | ` | .STRTAB 0x0060->0x060b ; "COMMENT_NAME" 05dc 006a | j | .STRTAB 0x006a->0x0611 ; "REPRESENTATION_NAME" 05dd 007b | { | .STRTAB 0x007b->0x061a ; "???" 05de 007c | | | .STRTAB 0x007c->0x061c ; "." 05df 007b | { | .STRTAB 0x007b->0x061c ; "Unable to locate specified position within Ada unit" 05e0 00ac | | .STREND 0x00ac->0x0636 05e1 504f 5349 |POSI| .STRTAB_STRINGS 0636 0000 0000 | | .XXX[0x2] 0638 ; -------------------------------------------------------------------------------------- 0638 ; Debug Table 0638 ; -------------------------------------------------------------------------------------- 0638 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5de2,0x0000,0x0001,0x0000 063e 0000 0000 | | .BLANK 0000[0x1c2]