|
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: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0960 | ` | .CONST 0x0960 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0095 | | .CONST 0x0095 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002d | - | .CONST 0x002d ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000e 0129 | ) | Execute Any,Make_Visible 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 e001 | | Load 0x0,0x1 0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0022 e20d | | Load 0x1,0xd 0023 00e2 | | Load_Encached Integer_Cache 0024 029f 088b | | Declare_Subprogram INIT_0888,For_Call 0026 4803 |H | Short_Literal 0x3 0027 032e | . | Declare_Type Record,Defined,Visible 0028 c215 | | Store 0x1,0x15 0029 00e2 | | Load_Encached Integer_Cache 002a 0266 | f | Execute Discrete,Bounds 002b e215 | | Load 0x1,0x15 002c 029f 009b | | Declare_Subprogram INIT_0098,For_Call 002e 4801 |H | Short_Literal 0x1 002f 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0030 c20f | | Store 0x1,0xf 0031 00e2 | | Load_Encached Integer_Cache 0032 4801 |H | Short_Literal 0x1 0033 6078 |`x | Indirect_Literal Discrete,0xac,{0x00000000, 0x7fffffff} 0034 e20f | | Load 0x1,0xf 0035 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 0036 029f 08a3 | | Declare_Subprogram INIT_08a0,For_Call 0038 4800 |H | Short_Literal 0x0 0039 4801 |H | Short_Literal 0x1 003a 4800 |H | Short_Literal 0x0 003b 4800 |H | Short_Literal 0x0 003c 4801 |H | Short_Literal 0x1 003d 4801 |H | Short_Literal 0x1 003e 031e | | Declare_Type Variant_Record,Defined,Visible 003f c210 | | Store 0x1,0x10 0040 e001 | | Load 0x0,0x1 0041 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0042 e001 | | Load 0x0,0x1 0043 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0044 029f 08cb | | Declare_Subprogram INIT_08c8,For_Call 0046 4802 |H | Short_Literal 0x2 0047 032e | . | Declare_Type Record,Defined,Visible 0048 c211 | | Store 0x1,0x11 0049 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 004b c216 | | Store 0x1,0x16 004c 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 004e c213 | | Store 0x1,0x13 004f 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0051 c217 | | Store 0x1,0x17 0052 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0054 c21e | | Store 0x1,0x1e 0055 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0057 c218 | | Store 0x1,0x18 0058 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 005a c219 | | Store 0x1,0x19 005b 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 005d c21a | | Store 0x1,0x1a 005e 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0060 c21b | | Store 0x1,0x1b 0061 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0063 c21d | | Store 0x1,0x1d 0064 00bf | | Action Accept_Activation 0065 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call 0067 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call 0069 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 006a 00c7 | | Action Elaborate_Subprogram 006b 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call 006d 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 006f 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call 0071 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call 0073 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 0075 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 0077 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call 0079 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call 007b 029d 049b | | Declare_Subprogram INIT_0498,For_Outer_Call 007d 029d 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call 007f 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call 0081 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call 0083 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call 0085 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0086 00c7 | | Action Elaborate_Subprogram 0087 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0088 00c7 | | Action Elaborate_Subprogram 0089 1d17 | | Execute_Immediate Reference_Lex_1,0x17 008a 00c7 | | Action Elaborate_Subprogram 008b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 008c 00c7 | | Action Elaborate_Subprogram 008d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 008e 00c7 | | Action Elaborate_Subprogram 008f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0090 00c7 | | Action Elaborate_Subprogram 0091 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0092 00c7 | | Action Elaborate_Subprogram 0093 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0094 00c7 | | Action Elaborate_Subprogram 0095 BODY_0008: 0095 00bc | | Action Signal_Activated 0096 00bb | | Action Signal_Completion 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00d1 | | Pop_Control Pop_Count_1 009c 00da | | Load_Top At_Offset_2 009d 01dc | | Execute Vector,Last 009e 00db | | Load_Top At_Offset_3 009f 01dd | | Execute Vector,First 00a0 0263 | c | Execute Discrete,Above_Bound 00a1 7006 |p | Jump_Nonzero 0xa8 00a2 00d8 | | Load_Top At_Offset_0 00a3 e5ff | | Load 0x2,-0x1 00a4 01d5 | | Execute Vector,Field_Reference 00a5 1c00 | | Execute_Immediate Run_Utility,0x0 00a6 0a01 | | Execute_Immediate Plus,0x1 00a7 7ff8 | | Jump 0xa0 00a8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00a9 0000 0000 | | .XXX[0x3] 00ab 0000 | | 00ac 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00d5 | | .CONST 0x00d5 ; Address of begin 00b1 018e | | .CONST 0x018e ; Address of exception handler 00b2 0009 | | .CONST 0x0009 ; Number of locals 00b3 INIT_00b0: 00b3 e001 | | Load 0x0,0x1 00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b5 02c7 | | Declare_Variable Any 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 e001 | | Load 0x0,0x1 00b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ba 02c7 | | Declare_Variable Any 00bb 00d8 | | Load_Top At_Offset_0 00bc 1c00 | | Execute_Immediate Run_Utility,0x0 00bd e002 | | Load 0x0,0x2 00be 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00bf e002 | | Load 0x0,0x2 00c0 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00c1 02c7 | | Declare_Variable Any 00c2 00d8 | | Load_Top At_Offset_0 00c3 1c00 | | Execute_Immediate Run_Utility,0x0 00c4 e002 | | Load 0x0,0x2 00c5 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00c6 02c7 | | Declare_Variable Any 00c7 00d8 | | Load_Top At_Offset_0 00c8 1c00 | | Execute_Immediate Run_Utility,0x0 00c9 e002 | | Load 0x0,0x2 00ca 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00cb 02c7 | | Declare_Variable Any 00cc 00d8 | | Load_Top At_Offset_0 00cd 1c00 | | Execute_Immediate Run_Utility,0x0 00ce e002 | | Load 0x0,0x2 00cf 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 00d0 02c7 | | Declare_Variable Any 00d1 00d8 | | Load_Top At_Offset_0 00d2 1c00 | | Execute_Immediate Run_Utility,0x0 00d3 029f 0583 | | Declare_Subprogram INIT_0580,For_Call 00d5 BODY_00b0: 00d5 4800 |H | Short_Literal 0x0 00d6 a5fd | | Store_Unchecked 0x2,-0x3 00d7 4800 |H | Short_Literal 0x0 00d8 a5fc | | Store_Unchecked 0x2,-0x4 00d9 4800 |H | Short_Literal 0x0 00da a5fb | | Store_Unchecked 0x2,-0x5 00db e5fe | | Load 0x2,-0x2 00dc e5ff | | Load 0x2,-0x1 00dd e003 | | Load 0x0,0x3 00de 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00df 7001 |p | Jump_Nonzero 0xe1 00e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e1 e5fe | | Load 0x2,-0x2 00e2 4801 |H | Short_Literal 0x1 00e3 e5ff | | Load 0x2,-0x1 00e4 e003 | | Load 0x0,0x3 00e5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e6 c402 | | Store 0x2,0x2 00e7 e5fe | | Load 0x2,-0x2 00e8 4801 |H | Short_Literal 0x1 00e9 e402 | | Load 0x2,0x2 00ea e003 | | Load 0x0,0x3 00eb 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ec c403 | | Store 0x2,0x3 00ed e002 | | Load 0x0,0x2 00ee 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ef e405 | | Load 0x2,0x5 00f0 0120 | | Execute Any,Is_Value 00f1 6803 |h | Jump_Zero 0xf5 00f2 e002 | | Load 0x0,0x2 00f3 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00f4 7801 |x | Jump 0xf6 00f5 e405 | | Load 0x2,0x5 00f6 e004 | | Load 0x0,0x4 00f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f8 e403 | | Load 0x2,0x3 00f9 e003 | | Load 0x0,0x3 00fa 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00fb 0092 08e3 | | Action Push_String_Extended,0x8e3 ; ".state.cmvc_database" 00fd 01cc | | Execute Vector,Catenate 00fe e002 | | Load 0x0,0x2 00ff 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0100 180e | | Execute Package,Field_Execute,Field_Number 0xe 0101 c405 | | Store 0x2,0x5 0102 c404 | | Store 0x2,0x4 0103 e404 | | Load 0x2,0x4 0104 e002 | | Load 0x0,0x2 0105 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0106 6817 |h | Jump_Zero 0x11e 0107 e5fe | | Load 0x2,-0x2 0108 4801 |H | Short_Literal 0x1 0109 4801 |H | Short_Literal 0x1 010a e005 | | Load 0x0,0x5 010b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010c 035b | [ | Declare_Type Array,Constrained 010d 0337 | 7 | Declare_Variable Array 010e e403 | | Load 0x2,0x3 010f e003 | | Load 0x0,0x3 0110 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0111 e005 | | Load 0x0,0x5 0112 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0113 0119 | | Execute Any,Check_In_Formal_Type 0114 4801 |H | Short_Literal 0x1 0115 00da | | Load_Top At_Offset_2 0116 01d6 | | Execute Vector,Field_Write 0117 6094 |` | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x000081c7} 0118 e006 | | Load 0x0,0x6 0119 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 011a 6091 |` | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x000081c7} 011b a5fb | | Store_Unchecked 0x2,-0x5 011c e007 | | Load 0x0,0x7 011d 0257 | W | Execute Discrete,Raise 011e e002 | | Load 0x0,0x2 011f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0120 00db | | Load_Top At_Offset_3 0121 0120 | | Execute Any,Is_Value 0122 6803 |h | Jump_Zero 0x126 0123 e002 | | Load 0x0,0x2 0124 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0125 7801 |x | Jump 0x127 0126 00db | | Load_Top At_Offset_3 0127 e405 | | Load 0x2,0x5 0128 e402 | | Load 0x2,0x2 0129 e003 | | Load 0x0,0x3 012a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 012b e001 | | Load 0x0,0x1 012c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 012d 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 012e e002 | | Load 0x0,0x2 012f 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0130 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0131 c407 | | Store 0x2,0x7 0132 c404 | | Store 0x2,0x4 0133 e404 | | Load 0x2,0x4 0134 e002 | | Load 0x0,0x2 0135 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0136 6817 |h | Jump_Zero 0x14e 0137 e5fe | | Load 0x2,-0x2 0138 4801 |H | Short_Literal 0x1 0139 4801 |H | Short_Literal 0x1 013a e005 | | Load 0x0,0x5 013b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 013c 035b | [ | Declare_Type Array,Constrained 013d 0337 | 7 | Declare_Variable Array 013e e402 | | Load 0x2,0x2 013f e003 | | Load 0x0,0x3 0140 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0141 e005 | | Load 0x0,0x5 0142 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0143 0119 | | Execute Any,Check_In_Formal_Type 0144 4801 |H | Short_Literal 0x1 0145 00da | | Load_Top At_Offset_2 0146 01d6 | | Execute Vector,Field_Write 0147 6060 |`` | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x000081c8} 0148 e006 | | Load 0x0,0x6 0149 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 014a 605d |`] | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x000081c8} 014b a5fb | | Store_Unchecked 0x2,-0x5 014c e007 | | Load 0x0,0x7 014d 0257 | W | Execute Discrete,Raise 014e 8409 | | Call 0x2,0x9 014f e002 | | Load 0x0,0x2 0150 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0151 00da | | Load_Top At_Offset_2 0152 0120 | | Execute Any,Is_Value 0153 6803 |h | Jump_Zero 0x157 0154 e002 | | Load 0x0,0x2 0155 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0156 7801 |x | Jump 0x158 0157 00da | | Load_Top At_Offset_2 0158 e407 | | Load 0x2,0x7 0159 e406 | | Load 0x2,0x6 015a e002 | | Load 0x0,0x2 015b 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 015c 180f | | Execute Package,Field_Execute,Field_Number 0xf 015d c408 | | Store 0x2,0x8 015e c404 | | Store 0x2,0x4 015f e404 | | Load 0x2,0x4 0160 e002 | | Load 0x0,0x2 0161 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0162 6817 |h | Jump_Zero 0x17a 0163 e5fe | | Load 0x2,-0x2 0164 4801 |H | Short_Literal 0x1 0165 4801 |H | Short_Literal 0x1 0166 e005 | | Load 0x0,0x5 0167 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0168 035b | [ | Declare_Type Array,Constrained 0169 0337 | 7 | Declare_Variable Array 016a e5ff | | Load 0x2,-0x1 016b e003 | | Load 0x0,0x3 016c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 016d e005 | | Load 0x0,0x5 016e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 016f 0119 | | Execute Any,Check_In_Formal_Type 0170 4801 |H | Short_Literal 0x1 0171 00da | | Load_Top At_Offset_2 0172 01d6 | | Execute Vector,Field_Write 0173 6030 |`0 | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x000081c9} 0174 e006 | | Load 0x0,0x6 0175 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0176 602d |`- | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x000081c9} 0177 a5fb | | Store_Unchecked 0x2,-0x5 0178 e007 | | Load 0x0,0x7 0179 0257 | W | Execute Discrete,Raise 017a 00da | | Load_Top At_Offset_2 017b e406 | | Load 0x2,0x6 017c e002 | | Load 0x0,0x2 017d 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 017e 180d | | Execute Package,Field_Execute,Field_Number 0xd 017f a5fd | | Store_Unchecked 0x2,-0x3 0180 00d9 | | Load_Top At_Offset_1 0181 e002 | | Load 0x0,0x2 0182 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0183 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0184 a5fc | | Store_Unchecked 0x2,-0x4 0185 e002 | | Load 0x0,0x2 0186 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0187 4800 |H | Short_Literal 0x0 0188 e405 | | Load 0x2,0x5 0189 e002 | | Load 0x0,0x2 018a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 018b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018c c404 | | Store 0x2,0x4 018d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 018e TRAP_00b0: 018e e007 | | Load 0x0,0x7 018f 010f | | Execute Exception,Equal 0190 6809 |h | Jump_Zero 0x19a 0191 e002 | | Load 0x0,0x2 0192 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0193 4800 |H | Short_Literal 0x0 0194 e405 | | Load 0x2,0x5 0195 e002 | | Load 0x0,0x2 0196 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0197 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0198 c404 | | Store 0x2,0x4 0199 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019a 6005 |` | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x0000813b} 019b a5fb | | Store_Unchecked 0x2,-0x5 019c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 01a4 0000 0000 | | .LITERAL {0x00000000, 0x000081c9} 01a8 0000 0000 | | .LITERAL {0x00000000, 0x000081c8} 01ac 0000 0000 | | .LITERAL {0x00000000, 0x000081c7} 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01c2 | | .CONST 0x01c2 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0005 | | .CONST 0x0005 ; Number of locals 01b3 INIT_01b0: 01b3 e001 | | Load 0x0,0x1 01b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b5 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01b6 02c7 | | Declare_Variable Any 01b7 00d8 | | Load_Top At_Offset_0 01b8 1c00 | | Execute_Immediate Run_Utility,0x0 01b9 4800 |H | Short_Literal 0x0 01ba e210 | | Load 0x1,0x10 01bb 1c08 | | Execute_Immediate Run_Utility,0x8 01bc 00d8 | | Load_Top At_Offset_0 01bd 1c00 | | Execute_Immediate Run_Utility,0x0 01be 00e2 | | Load_Encached Integer_Cache 01bf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01c0 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call 01c2 BODY_01b0: 01c2 e5ff | | Load 0x2,-0x1 01c3 e003 | | Load 0x0,0x3 01c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01c5 0092 08e4 | | Action Push_String_Extended,0x8e4 ; ".units.??'c(~library)" 01c7 01cc | | Execute Vector,Catenate 01c8 8222 | " | Call 0x1,0x22 01c9 c402 | | Store 0x2,0x2 01ca 00db | | Load_Top At_Offset_3 01cb 8224 | $ | Call 0x1,0x24 01cc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01cd 00d9 | | Load_Top At_Offset_1 01ce 0c01 | | Execute_Immediate Greater_Equal,0x1 01cf 6801 |h | Jump_Zero 0x1d1 01d0 8405 | | Call 0x2,0x5 01d1 00da | | Load_Top At_Offset_2 01d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d3 0000 0000 | | .BLANK 0000[0x5] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 01fc | | .CONST 0x01fc ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 4800 |H | Short_Literal 0x0 01dc a5f8 | | Store_Unchecked 0x2,-0x8 01dd e5f9 | | Load 0x2,-0x7 01de e5fc | | Load 0x2,-0x4 01df e5fd | | Load 0x2,-0x3 01e0 8228 | ( | Call 0x1,0x28 01e1 e5f9 | | Load 0x2,-0x7 01e2 e5fb | | Load 0x2,-0x5 01e3 e5fa | | Load 0x2,-0x6 01e4 e5fd | | Load 0x2,-0x3 01e5 e5fe | | Load 0x2,-0x2 01e6 e5ff | | Load 0x2,-0x1 01e7 822b | + | Call 0x1,0x2b 01e8 e5f9 | | Load 0x2,-0x7 01e9 e5fb | | Load 0x2,-0x5 01ea e5fa | | Load 0x2,-0x6 01eb e5fd | | Load 0x2,-0x3 01ec e5fe | | Load 0x2,-0x2 01ed e5ff | | Load 0x2,-0x1 01ee 822a | * | Call 0x1,0x2a 01ef e006 | | Load 0x0,0x6 01f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f1 e5f9 | | Load 0x2,-0x7 01f2 e5fe | | Load 0x2,-0x2 01f3 e003 | | Load 0x0,0x3 01f4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01f5 0092 08e5 | | Action Push_String_Extended,0x8e5 ; ".units" 01f7 01cc | | Execute Vector,Catenate 01f8 e008 | | Load 0x0,0x8 01f9 1884 | | Execute Package,Field_Execute,Field_Number 0x84 01fa c5f8 | | Store 0x2,-0x8 01fb 4508 |E | Exit_Suprogram New_Top_Offset 0x8 01fc TRAP_01d8: 01fc 0007 | | Action Break_Optional 01fd 6002 |` | Indirect_Literal Discrete,0x200,{0x00000000, 0x0000813b} 01fe a5f8 | | Store_Unchecked 0x2,-0x8 01ff 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0200 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0216 | | .CONST 0x0216 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0005 | | .CONST 0x0005 ; Number of locals 020b INIT_0208: 020b e001 | | Load 0x0,0x1 020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020d 02c7 | | Declare_Variable Any 020e 00d8 | | Load_Top At_Offset_0 020f 1c00 | | Execute_Immediate Run_Utility,0x0 0210 e006 | | Load 0x0,0x6 0211 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0212 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0213 00e1 | | Load_Encached Boolean_Cache 0214 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call 0216 BODY_0208: 0216 e5ff | | Load 0x2,-0x1 0217 e001 | | Load 0x0,0x1 0218 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0219 012f | / | Execute Any,Equal 021a 6801 |h | Jump_Zero 0x21c 021b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 021c e5fd | | Load 0x2,-0x3 021d e003 | | Load 0x0,0x3 021e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 021f e009 | | Load 0x0,0x9 0220 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0221 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0222 6801 |h | Jump_Zero 0x224 0223 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0224 8405 | | Call 0x2,0x5 0225 e006 | | Load 0x0,0x6 0226 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0227 e5fc | | Load 0x2,-0x4 0228 e5fe | | Load 0x2,-0x2 0229 e003 | | Load 0x0,0x3 022a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 022b 0092 08e5 | | Action Push_String_Extended,0x8e5 ; ".units" 022d 01cc | | Execute Vector,Catenate 022e e008 | | Load 0x0,0x8 022f 1883 | | Execute Package,Field_Execute,Field_Number 0x83 0230 005b | [ | Store_Top Discrete,At_Offset_3 0231 e006 | | Load 0x0,0x6 0232 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0233 e5fc | | Load 0x2,-0x4 0234 e5fe | | Load 0x2,-0x2 0235 e003 | | Load 0x0,0x3 0236 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0237 0092 08e5 | | Action Push_String_Extended,0x8e5 ; ".units" 0239 01cc | | Execute Vector,Catenate 023a e008 | | Load 0x0,0x8 023b 1884 | | Execute Package,Field_Execute,Field_Number 0x84 023c 005b | [ | Store_Top Discrete,At_Offset_3 023d 4800 |H | Short_Literal 0x0 023e 00db | | Load_Top At_Offset_3 023f e006 | | Load 0x0,0x6 0240 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0241 7003 |p | Jump_Nonzero 0x245 0242 e006 | | Load 0x0,0x6 0243 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0244 0257 | W | Execute Discrete,Raise 0245 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0246 0000 0000 | | .XXX[0x2] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 025f | _ | .CONST 0x025f ; Address of begin 0249 026b | k | .CONST 0x026b ; Address of exception handler 024a 0007 | | .CONST 0x0007 ; Number of locals 024b INIT_0248: 024b 4800 |H | Short_Literal 0x0 024c e210 | | Load 0x1,0x10 024d 1c08 | | Execute_Immediate Run_Utility,0x8 024e 00d8 | | Load_Top At_Offset_0 024f 1c00 | | Execute_Immediate Run_Utility,0x0 0250 e001 | | Load 0x0,0x1 0251 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0252 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0253 02c7 | | Declare_Variable Any 0254 00d8 | | Load_Top At_Offset_0 0255 1c00 | | Execute_Immediate Run_Utility,0x0 0256 00e2 | | Load_Encached Integer_Cache 0257 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0258 00e1 | | Load_Encached Boolean_Cache 0259 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 025a e006 | | Load 0x0,0x6 025b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 025c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 025d 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call 025f BODY_0248: 025f e5ff | | Load 0x2,-0x1 0260 8222 | " | Call 0x1,0x22 0261 c403 | | Store 0x2,0x3 0262 e403 | | Load 0x2,0x3 0263 8224 | $ | Call 0x1,0x24 0264 a404 | | Store_Unchecked 0x2,0x4 0265 00db | | Load_Top At_Offset_3 0266 0c01 | | Execute_Immediate Greater_Equal,0x1 0267 6801 |h | Jump_Zero 0x269 0268 8407 | | Call 0x2,0x7 0269 e402 | | Load 0x2,0x2 026a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 026b TRAP_0248: 026b 0007 | | Action Break_Optional 026c e402 | | Load 0x2,0x2 026d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 026e 0000 0000 | | .XXX[0x2] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0287 | | .CONST 0x0287 ; Address of begin 0271 0293 | | .CONST 0x0293 ; Address of exception handler 0272 0007 | | .CONST 0x0007 ; Number of locals 0273 INIT_0270: 0273 4800 |H | Short_Literal 0x0 0274 e210 | | Load 0x1,0x10 0275 1c08 | | Execute_Immediate Run_Utility,0x8 0276 00d8 | | Load_Top At_Offset_0 0277 1c00 | | Execute_Immediate Run_Utility,0x0 0278 e001 | | Load 0x0,0x1 0279 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 027a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 027b 02c7 | | Declare_Variable Any 027c 00d8 | | Load_Top At_Offset_0 027d 1c00 | | Execute_Immediate Run_Utility,0x0 027e 00e2 | | Load_Encached Integer_Cache 027f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0280 00e1 | | Load_Encached Boolean_Cache 0281 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0282 e006 | | Load 0x0,0x6 0283 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0284 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0285 029f 071b | | Declare_Subprogram INIT_0718,For_Call 0287 BODY_0270: 0287 e5ff | | Load 0x2,-0x1 0288 8222 | " | Call 0x1,0x22 0289 c403 | | Store 0x2,0x3 028a e403 | | Load 0x2,0x3 028b 8224 | $ | Call 0x1,0x24 028c a404 | | Store_Unchecked 0x2,0x4 028d 00db | | Load_Top At_Offset_3 028e 0c01 | | Execute_Immediate Greater_Equal,0x1 028f 6801 |h | Jump_Zero 0x291 0290 8407 | | Call 0x2,0x7 0291 e402 | | Load 0x2,0x2 0292 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0293 TRAP_0270: 0293 0007 | | Action Break_Optional 0294 e402 | | Load 0x2,0x2 0295 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0296 0000 0000 | | .XXX[0x2] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 02ae | | .CONST 0x02ae ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 4800 |H | Short_Literal 0x0 029c a5fc | | Store_Unchecked 0x2,-0x4 029d 00cf | | Action Mark_Auxiliary 029e 00db | | Load_Top At_Offset_3 029f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02a0 4801 |H | Short_Literal 0x1 02a1 0263 | c | Execute Discrete,Above_Bound 02a2 700a |p | Jump_Nonzero 0x2ad 02a3 e5fd | | Load 0x2,-0x3 02a4 e5fe | | Load 0x2,-0x2 02a5 00da | | Load_Top At_Offset_2 02a6 e5ff | | Load 0x2,-0x1 02a7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02a8 01d5 | | Execute Vector,Field_Reference 02a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02aa 8226 | & | Call 0x1,0x26 02ab 00c8 | | Action Pop_Auxiliary_Range 02ac 3ff6 |? | Loop_Increasing 0x2a3 02ad 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02ae TRAP_0298: 02ae 0007 | | Action Break_Optional 02af 6004 |` | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x0000813b} 02b0 a5fc | | Store_Unchecked 0x2,-0x4 02b1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02b2 0000 0000 | | .XXX[0x2] 02b4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02c0 | | .CONST 0x02c0 ; Address of begin 02b9 02e1 | | .CONST 0x02e1 ; Address of exception handler 02ba 0002 | | .CONST 0x0002 ; Number of locals 02bb INIT_02b8: 02bb e001 | | Load 0x0,0x1 02bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02bd 02c7 | | Declare_Variable Any 02be 00d8 | | Load_Top At_Offset_0 02bf 1c00 | | Execute_Immediate Run_Utility,0x0 02c0 BODY_02b8: 02c0 4800 |H | Short_Literal 0x0 02c1 a5fb | | Store_Unchecked 0x2,-0x5 02c2 e5fe | | Load 0x2,-0x2 02c3 7001 |p | Jump_Nonzero 0x2c5 02c4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02c5 00cf | | Action Mark_Auxiliary 02c6 e5ff | | Load 0x2,-0x1 02c7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02c8 4801 |H | Short_Literal 0x1 02c9 0263 | c | Execute Discrete,Above_Bound 02ca 7015 |p | Jump_Nonzero 0x2e0 02cb 00d8 | | Load_Top At_Offset_0 02cc e5ff | | Load 0x2,-0x1 02cd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02ce 01d5 | | Execute Vector,Field_Reference 02cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02d0 c402 | | Store 0x2,0x2 02d1 00d8 | | Load_Top At_Offset_0 02d2 e5ff | | Load 0x2,-0x1 02d3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 02d4 01d5 | | Execute Vector,Field_Reference 02d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02d6 e402 | | Load 0x2,0x2 02d7 8220 | | Call 0x1,0x20 02d8 027d | } | Execute Discrete,Greater 02d9 6804 |h | Jump_Zero 0x2de 02da e5fc | | Load 0x2,-0x4 02db e5fd | | Load 0x2,-0x3 02dc e402 | | Load 0x2,0x2 02dd 8227 | ' | Call 0x1,0x27 02de 00c8 | | Action Pop_Auxiliary_Range 02df 3feb |? | Loop_Increasing 0x2cb 02e0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02e1 TRAP_02b8: 02e1 0007 | | Action Break_Optional 02e2 67d1 |g | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x0000813b} 02e3 a5fb | | Store_Unchecked 0x2,-0x5 02e4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02ff | | .CONST 0x02ff ; Address of begin 02e9 030b | | .CONST 0x030b ; Address of exception handler 02ea 0007 | | .CONST 0x0007 ; Number of locals 02eb INIT_02e8: 02eb 4800 |H | Short_Literal 0x0 02ec e210 | | Load 0x1,0x10 02ed 1c08 | | Execute_Immediate Run_Utility,0x8 02ee 00d8 | | Load_Top At_Offset_0 02ef 1c00 | | Execute_Immediate Run_Utility,0x0 02f0 e001 | | Load 0x0,0x1 02f1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02f2 1b18 | | Execute Package,Field_Read,Field_Number 0x18 02f3 02c7 | | Declare_Variable Any 02f4 00d8 | | Load_Top At_Offset_0 02f5 1c00 | | Execute_Immediate Run_Utility,0x0 02f6 00e2 | | Load_Encached Integer_Cache 02f7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02f8 00e1 | | Load_Encached Boolean_Cache 02f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02fa e006 | | Load 0x0,0x6 02fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02fc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02fd 029f 0793 | | Declare_Subprogram INIT_0790,For_Call 02ff BODY_02e8: 02ff e5ff | | Load 0x2,-0x1 0300 8222 | " | Call 0x1,0x22 0301 c403 | | Store 0x2,0x3 0302 e403 | | Load 0x2,0x3 0303 8224 | $ | Call 0x1,0x24 0304 a404 | | Store_Unchecked 0x2,0x4 0305 00db | | Load_Top At_Offset_3 0306 0c01 | | Execute_Immediate Greater_Equal,0x1 0307 6801 |h | Jump_Zero 0x309 0308 8407 | | Call 0x2,0x7 0309 e402 | | Load 0x2,0x2 030a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 030b TRAP_02e8: 030b 0007 | | Action Break_Optional 030c e402 | | Load 0x2,0x2 030d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 030e 0000 0000 | | .XXX[0x2] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 031d | | .CONST 0x031d ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0003 | | .CONST 0x0003 ; Number of locals 0313 INIT_0310: 0313 00db | | Load_Top At_Offset_3 0314 4801 |H | Short_Literal 0x1 0315 e5ff | | Load 0x2,-0x1 0316 e003 | | Load 0x0,0x3 0317 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0318 e003 | | Load 0x0,0x3 0319 1817 | | Execute Package,Field_Execute,Field_Number 0x17 031a 00db | | Load_Top At_Offset_3 031b e003 | | Load 0x0,0x3 031c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 031d BODY_0310: 031d 00d8 | | Load_Top At_Offset_0 031e 01dd | | Execute Vector,First 031f 00da | | Load_Top At_Offset_2 0320 01db | | Execute Vector,Length 0321 0273 | s | Execute Discrete,Plus 0322 0a01 | | Execute_Immediate Plus,0x1 0323 00d8 | | Load_Top At_Offset_0 0324 00e2 | | Load_Encached Integer_Cache 0325 0260 | ` | Execute Discrete,In_Type 0326 7001 |p | Jump_Nonzero 0x328 0327 0801 | | Execute_Immediate Raise,0x1 0328 00d9 | | Load_Top At_Offset_1 0329 01dc | | Execute Vector,Last 032a 00da | | Load_Top At_Offset_2 032b 01cf | | Execute Vector,Slice_Read 032c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 032d 0000 0000 | | .XXX[0x3] 032f 0000 | | 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0338 | 8 | .CONST 0x0338 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0003 | | .CONST 0x0003 ; Number of locals 0333 INIT_0330: 0333 e001 | | Load 0x0,0x1 0334 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0335 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0336 e001 | | Load 0x0,0x1 0337 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0338 BODY_0330: 0338 e001 | | Load 0x0,0x1 0339 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033a e001 | | Load 0x0,0x1 033b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 033c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033d 600e |` | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00004000} 033e e004 | | Load 0x0,0x4 033f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0340 4800 |H | Short_Literal 0x0 0341 e5ff | | Load 0x2,-0x1 0342 e001 | | Load 0x0,0x1 0343 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0344 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0345 e001 | | Load 0x0,0x1 0346 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0347 180f | | Execute Package,Field_Execute,Field_Number 0xf 0348 005b | [ | Store_Top Discrete,At_Offset_3 0349 0059 | Y | Store_Top Discrete,At_Offset_1 034a 00d9 | | Load_Top At_Offset_1 034b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 034c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0358 | X | .CONST 0x0358 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0003 | | .CONST 0x0003 ; Number of locals 0353 INIT_0350: 0353 e001 | | Load 0x0,0x1 0354 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0355 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0356 e001 | | Load 0x0,0x1 0357 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0358 BODY_0350: 0358 e001 | | Load 0x0,0x1 0359 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035a e001 | | Load 0x0,0x1 035b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 035c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035d 67ee |g | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00004000} 035e e004 | | Load 0x0,0x4 035f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0360 4800 |H | Short_Literal 0x0 0361 e5ff | | Load 0x2,-0x1 0362 e001 | | Load 0x0,0x1 0363 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0364 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0365 e001 | | Load 0x0,0x1 0366 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0367 180f | | Execute Package,Field_Execute,Field_Number 0xf 0368 005b | [ | Store_Top Discrete,At_Offset_3 0369 0059 | Y | Store_Top Discrete,At_Offset_1 036a 00d9 | | Load_Top At_Offset_1 036b 0f04 | | Execute_Immediate Equal,0x4 036c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036d 0000 0000 | | .XXX[0x3] 036f 0000 | | 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 037c | | | .CONST 0x037c ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0003 | | .CONST 0x0003 ; Number of locals 0373 INIT_0370: 0373 e001 | | Load 0x0,0x1 0374 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0375 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0376 02c7 | | Declare_Variable Any 0377 00d8 | | Load_Top At_Offset_0 0378 1c00 | | Execute_Immediate Run_Utility,0x0 0379 e001 | | Load 0x0,0x1 037a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 037b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 037c BODY_0370: 037c e001 | | Load 0x0,0x1 037d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 037e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 037f 00da | | Load_Top At_Offset_2 0380 601f |` | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x00004000} 0381 e004 | | Load 0x0,0x4 0382 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0383 e00a | | Load 0x0,0xa 0384 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0385 e00b | | Load 0x0,0xb 0386 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0387 4801 |H | Short_Literal 0x1 0388 4800 |H | Short_Literal 0x0 0389 e00a | | Load 0x0,0xa 038a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 038b e001 | | Load 0x0,0x1 038c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 038d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 038e e5ff | | Load 0x2,-0x1 038f e001 | | Load 0x0,0x1 0390 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0391 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0392 c402 | | Store 0x2,0x2 0393 0059 | Y | Store_Top Discrete,At_Offset_1 0394 00d8 | | Load_Top At_Offset_0 0395 0e00 | | Execute_Immediate Not_Equal,0x0 0396 00d9 | | Load_Top At_Offset_1 0397 0e03 | | Execute_Immediate Not_Equal,0x3 0398 0279 | y | Execute Discrete,And 0399 6804 |h | Jump_Zero 0x39e 039a e001 | | Load 0x0,0x1 039b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 039c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 039d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 039e 00d9 | | Load_Top At_Offset_1 039f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 03a4 0000 0000 | | .BLANK 0000[0x4] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03b1 | | .CONST 0x03b1 ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0004 | | .CONST 0x0004 ; Number of locals 03ab INIT_03a8: 03ab 00e2 | | Load_Encached Integer_Cache 03ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03ad 03e9 | | Declare_Variable Discrete,Duplicate 03ae e006 | | Load 0x0,0x6 03af 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03b1 BODY_03a8: 03b1 e006 | | Load 0x0,0x6 03b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b3 00e3 | | Load_Encached Natural_Cache 03b4 00e3 | | Load_Encached Natural_Cache 03b5 e5fe | | Load 0x2,-0x2 03b6 e5ff | | Load 0x2,-0x1 03b7 8216 | | Call 0x1,0x16 03b8 c402 | | Store 0x2,0x2 03b9 005b | [ | Store_Top Discrete,At_Offset_3 03ba 0059 | Y | Store_Top Discrete,At_Offset_1 03bb 4800 |H | Short_Literal 0x0 03bc 00d9 | | Load_Top At_Offset_1 03bd e006 | | Load 0x0,0x6 03be 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 03bf 7002 |p | Jump_Nonzero 0x3c2 03c0 4800 |H | Short_Literal 0x0 03c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c2 00da | | Load_Top At_Offset_2 03c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c4 0000 0000 | | .BLANK 0000[0x4] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03d3 | | .CONST 0x03d3 ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0003 | | .CONST 0x0003 ; Number of locals 03cb INIT_03c8: 03cb 00e2 | | Load_Encached Integer_Cache 03cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03cd e001 | | Load 0x0,0x1 03ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03cf 1b18 | | Execute Package,Field_Read,Field_Number 0x18 03d0 02c7 | | Declare_Variable Any 03d1 e5ff | | Load 0x2,-0x1 03d2 a403 | | Store_Unchecked 0x2,0x3 03d3 BODY_03c8: 03d3 00d8 | | Load_Top At_Offset_0 03d4 e001 | | Load 0x0,0x1 03d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03d6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03d7 6802 |h | Jump_Zero 0x3da 03d8 4800 |H | Short_Literal 0x0 03d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03da 00d8 | | Load_Top At_Offset_0 03db e001 | | Load 0x0,0x1 03dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03de c403 | | Store 0x2,0x3 03df 00cf | | Action Mark_Auxiliary 03e0 7809 |x | Jump 0x3ea 03e1 00da | | Load_Top At_Offset_2 03e2 0a01 | | Execute_Immediate Plus,0x1 03e3 005b | [ | Store_Top Discrete,At_Offset_3 03e4 00d9 | | Load_Top At_Offset_1 03e5 e001 | | Load 0x0,0x1 03e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03e7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03e8 c403 | | Store 0x2,0x3 03e9 00c9 | | Action Pop_Auxiliary_Loop 03ea 00d9 | | Load_Top At_Offset_1 03eb e001 | | Load 0x0,0x1 03ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03ed 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03ee 6ff2 |o | Jump_Zero 0x3e1 03ef 00ce | | Action Pop_Auxiliary 03f0 00d8 | | Load_Top At_Offset_0 03f1 e001 | | Load 0x0,0x1 03f2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03f3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03f4 c403 | | Store 0x2,0x3 03f5 00d9 | | Load_Top At_Offset_1 03f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f7 0000 | | .XXX[0x1] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb e004 | | Load 0x0,0x4 03fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03fd 00db | | Load_Top At_Offset_3 03fe e00c | | Load 0x0,0xc 03ff 180d | | Execute Package,Field_Execute,Field_Number 0xd 0400 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0401 0000 0000 | | .BLANK 0000[0x7] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 00da | | Load_Top At_Offset_2 040c 8221 | ! | Call 0x1,0x21 040d 682a |h* | Jump_Zero 0x438 040e 00db | | Load_Top At_Offset_3 040f 7016 |p | Jump_Nonzero 0x426 0410 e5fd | | Load 0x2,-0x3 0411 4801 |H | Short_Literal 0x1 0412 4801 |H | Short_Literal 0x1 0413 e005 | | Load 0x0,0x5 0414 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0415 035b | [ | Declare_Type Array,Constrained 0416 0337 | 7 | Declare_Variable Array 0417 e5ff | | Load 0x2,-0x1 0418 e003 | | Load 0x0,0x3 0419 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 041a e005 | | Load 0x0,0x5 041b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 041c 0119 | | Execute Any,Check_In_Formal_Type 041d 4801 |H | Short_Literal 0x1 041e 00da | | Load_Top At_Offset_2 041f 01d6 | | Execute Vector,Field_Write 0420 601b |` | Indirect_Literal Discrete,0x43c,{0x00000000, 0x000081ca} 0421 e006 | | Load 0x0,0x6 0422 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0423 e006 | | Load 0x0,0x6 0424 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0425 0257 | W | Execute Discrete,Raise 0426 4801 |H | Short_Literal 0x1 0427 4801 |H | Short_Literal 0x1 0428 4800 |H | Short_Literal 0x0 0429 4801 |H | Short_Literal 0x1 042a e5fd | | Load 0x2,-0x3 042b e003 | | Load 0x0,0x3 042c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 042d e00d | | Load 0x0,0xd 042e 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 042f 4800 |H | Short_Literal 0x0 0430 0092 08e6 | | Action Push_String_Extended,0x8e6 ; "<ALL_WORLDS>" 0432 4802 |H | Short_Literal 0x2 0433 e5ff | | Load 0x2,-0x1 0434 e003 | | Load 0x0,0x3 0435 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0436 e00e | | Load 0x0,0xe 0437 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0438 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0439 0000 0000 | | .XXX[0x3] 043b 0000 | | 043c 0000 0000 | | .LITERAL {0x00000000, 0x000081ca} 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 4800 |H | Short_Literal 0x0 0444 4801 |H | Short_Literal 0x1 0445 4800 |H | Short_Literal 0x0 0446 4801 |H | Short_Literal 0x1 0447 e5fd | | Load 0x2,-0x3 0448 e003 | | Load 0x0,0x3 0449 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 044a e00d | | Load 0x0,0xd 044b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 044c 4800 |H | Short_Literal 0x0 044d 0092 08e7 | | Action Push_String_Extended,0x8e7 ; "<WORLDS>" 044f e5fe | | Load 0x2,-0x2 0450 4803 |H | Short_Literal 0x3 0451 e5ff | | Load 0x2,-0x1 0452 e003 | | Load 0x0,0x3 0453 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0454 e00e | | Load 0x0,0xe 0455 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0456 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0457 0000 | | .XXX[0x1] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 0466 | f | .CONST 0x0466 ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0004 | | .CONST 0x0004 ; Number of locals 045b INIT_0458: 045b e001 | | Load 0x0,0x1 045c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 045d 02c7 | | Declare_Variable Any 045e 00d8 | | Load_Top At_Offset_0 045f 1c00 | | Execute_Immediate Run_Utility,0x0 0460 e001 | | Load 0x0,0x1 0461 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0462 02c7 | | Declare_Variable Any 0463 00d8 | | Load_Top At_Offset_0 0464 1c00 | | Execute_Immediate Run_Utility,0x0 0465 00e1 | | Load_Encached Boolean_Cache 0466 BODY_0458: 0466 00cf | | Action Mark_Auxiliary 0467 e5ff | | Load 0x2,-0x1 0468 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0469 4801 |H | Short_Literal 0x1 046a 0263 | c | Execute Discrete,Above_Bound 046b 702a |p* | Jump_Nonzero 0x496 046c 00d8 | | Load_Top At_Offset_0 046d e5ff | | Load 0x2,-0x1 046e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 046f 01d5 | | Execute Vector,Field_Reference 0470 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0471 c402 | | Store 0x2,0x2 0472 00d8 | | Load_Top At_Offset_0 0473 e5ff | | Load 0x2,-0x1 0474 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0475 01d5 | | Execute Vector,Field_Reference 0476 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0477 e5fd | | Load 0x2,-0x3 0478 e402 | | Load 0x2,0x2 0479 8223 | # | Call 0x1,0x23 047a 027c | | | Execute Discrete,Less 047b 6818 |h | Jump_Zero 0x494 047c e402 | | Load 0x2,0x2 047d e003 | | Load 0x0,0x3 047e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 047f 7014 |p | Jump_Nonzero 0x494 0480 00e1 | | Load_Encached Boolean_Cache 0481 e403 | | Load 0x2,0x3 0482 0120 | | Execute Any,Is_Value 0483 6803 |h | Jump_Zero 0x487 0484 e001 | | Load 0x0,0x1 0485 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0486 7801 |x | Jump 0x488 0487 e403 | | Load 0x2,0x3 0488 e5fd | | Load 0x2,-0x3 0489 e402 | | Load 0x2,0x2 048a e008 | | Load 0x0,0x8 048b 1887 | | Execute Package,Field_Execute,Field_Number 0x87 048c c403 | | Store 0x2,0x3 048d c404 | | Store 0x2,0x4 048e 00db | | Load_Top At_Offset_3 048f 6804 |h | Jump_Zero 0x494 0490 e5fd | | Load 0x2,-0x3 0491 e5fe | | Load 0x2,-0x2 0492 e403 | | Load 0x2,0x3 0493 8226 | & | Call 0x1,0x26 0494 00c8 | | Action Pop_Auxiliary_Range 0495 3fd6 |? | Loop_Increasing 0x46c 0496 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0497 0000 | | .XXX[0x1] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 00cf | | Action Mark_Auxiliary 049c e5fe | | Load 0x2,-0x2 049d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 049e 4801 |H | Short_Literal 0x1 049f 0263 | c | Execute Discrete,Above_Bound 04a0 700c |p | Jump_Nonzero 0x4ad 04a1 e5ff | | Load 0x2,-0x1 04a2 00d9 | | Load_Top At_Offset_1 04a3 e5fe | | Load 0x2,-0x2 04a4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04a5 01d5 | | Execute Vector,Field_Reference 04a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04a7 012f | / | Execute Any,Equal 04a8 6802 |h | Jump_Zero 0x4ab 04a9 4801 |H | Short_Literal 0x1 04aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ab 00c8 | | Action Pop_Auxiliary_Range 04ac 3ff4 |? | Loop_Increasing 0x4a1 04ad 00ce | | Action Pop_Auxiliary 04ae 4800 |H | Short_Literal 0x0 04af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04be | | .CONST 0x04be ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0003 | | .CONST 0x0003 ; Number of locals 04b3 INIT_04b0: 04b3 e001 | | Load 0x0,0x1 04b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04b5 02c7 | | Declare_Variable Any 04b6 00d8 | | Load_Top At_Offset_0 04b7 1c00 | | Execute_Immediate Run_Utility,0x0 04b8 e001 | | Load 0x0,0x1 04b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ba 1b18 | | Execute Package,Field_Read,Field_Number 0x18 04bb 02c7 | | Declare_Variable Any 04bc 00d8 | | Load_Top At_Offset_0 04bd 1c00 | | Execute_Immediate Run_Utility,0x0 04be BODY_04b0: 04be e5fe | | Load 0x2,-0x2 04bf e003 | | Load 0x0,0x3 04c0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04c1 0092 08e8 | | Action Push_String_Extended,0x8e8 ; ".units.??'c(ada)'if(controlled)" 04c3 01cc | | Execute Vector,Catenate 04c4 8222 | " | Call 0x1,0x22 04c5 c403 | | Store 0x2,0x3 04c6 00cf | | Action Mark_Auxiliary 04c7 781b |x | Jump 0x4e3 04c8 e5fa | | Load 0x2,-0x6 04c9 4801 |H | Short_Literal 0x1 04ca 00db | | Load_Top At_Offset_3 04cb e003 | | Load 0x0,0x3 04cc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04cd c402 | | Store 0x2,0x2 04ce e5fd | | Load 0x2,-0x3 04cf 00db | | Load_Top At_Offset_3 04d0 8229 | ) | Call 0x1,0x29 04d1 700b |p | Jump_Nonzero 0x4dd 04d2 e5fa | | Load 0x2,-0x6 04d3 00db | | Load_Top At_Offset_3 04d4 e5fe | | Load 0x2,-0x2 04d5 e5ff | | Load 0x2,-0x1 04d6 821e | | Call 0x1,0x1e 04d7 e5fb | | Load 0x2,-0x5 04d8 6804 |h | Jump_Zero 0x4dd 04d9 e5fa | | Load 0x2,-0x6 04da e5fc | | Load 0x2,-0x4 04db e402 | | Load 0x2,0x2 04dc 8227 | ' | Call 0x1,0x27 04dd 00d9 | | Load_Top At_Offset_1 04de e001 | | Load 0x0,0x1 04df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04e0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04e1 c403 | | Store 0x2,0x3 04e2 00c9 | | Action Pop_Auxiliary_Loop 04e3 00d9 | | Load_Top At_Offset_1 04e4 e001 | | Load 0x0,0x1 04e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04e6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04e7 6fe0 |o | Jump_Zero 0x4c8 04e8 4507 |E | Exit_Suprogram New_Top_Offset 0x7 04e9 0000 0000 | | .BLANK 0000[0x7] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f8 | | .CONST 0x04f8 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0002 | | .CONST 0x0002 ; Number of locals 04f3 INIT_04f0: 04f3 e001 | | Load 0x0,0x1 04f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04f5 02c7 | | Declare_Variable Any 04f6 00d8 | | Load_Top At_Offset_0 04f7 1c00 | | Execute_Immediate Run_Utility,0x0 04f8 BODY_04f0: 04f8 00cf | | Action Mark_Auxiliary 04f9 e5fd | | Load 0x2,-0x3 04fa 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04fb 4801 |H | Short_Literal 0x1 04fc 0263 | c | Execute Discrete,Above_Bound 04fd 7031 |p1 | Jump_Nonzero 0x52f 04fe 00d8 | | Load_Top At_Offset_0 04ff e5fd | | Load 0x2,-0x3 0500 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0501 01d5 | | Execute Vector,Field_Reference 0502 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0503 c402 | | Store 0x2,0x2 0504 00db | | Load_Top At_Offset_3 0505 e003 | | Load 0x0,0x3 0506 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0507 6825 |h% | Jump_Zero 0x52d 0508 00d8 | | Load_Top At_Offset_0 0509 e5fd | | Load 0x2,-0x3 050a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 050b 01d5 | | Execute Vector,Field_Reference 050c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 050d e5fa | | Load 0x2,-0x6 050e e402 | | Load 0x2,0x2 050f 8223 | # | Call 0x1,0x23 0510 027c | | | Execute Discrete,Less 0511 680c |h | Jump_Zero 0x51e 0512 e5fa | | Load 0x2,-0x6 0513 e402 | | Load 0x2,0x2 0514 e5fe | | Load 0x2,-0x2 0515 e5ff | | Load 0x2,-0x1 0516 821e | | Call 0x1,0x1e 0517 e5fb | | Load 0x2,-0x5 0518 6814 |h | Jump_Zero 0x52d 0519 e5fa | | Load 0x2,-0x6 051a e5fc | | Load 0x2,-0x4 051b e402 | | Load 0x2,0x2 051c 8227 | ' | Call 0x1,0x27 051d 780f |x | Jump 0x52d 051e 00d8 | | Load_Top At_Offset_0 051f e5fd | | Load 0x2,-0x3 0520 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0521 01d5 | | Execute Vector,Field_Reference 0522 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0523 e402 | | Load 0x2,0x2 0524 8220 | | Call 0x1,0x20 0525 027d | } | Execute Discrete,Greater 0526 6806 |h | Jump_Zero 0x52d 0527 e5fb | | Load 0x2,-0x5 0528 6804 |h | Jump_Zero 0x52d 0529 e5fa | | Load 0x2,-0x6 052a e5fc | | Load 0x2,-0x4 052b e402 | | Load 0x2,0x2 052c 8227 | ' | Call 0x1,0x27 052d 00c8 | | Action Pop_Auxiliary_Range 052e 3fcf |? | Loop_Increasing 0x4fe 052f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0545 | E | .CONST 0x0545 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0007 | | .CONST 0x0007 ; Number of locals 0533 INIT_0530: 0533 e001 | | Load 0x0,0x1 0534 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0535 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0536 02c7 | | Declare_Variable Any 0537 00d8 | | Load_Top At_Offset_0 0538 1c00 | | Execute_Immediate Run_Utility,0x0 0539 e001 | | Load 0x0,0x1 053a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 053b 02c7 | | Declare_Variable Any 053c 00d8 | | Load_Top At_Offset_0 053d 1c00 | | Execute_Immediate Run_Utility,0x0 053e e006 | | Load 0x0,0x6 053f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0540 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0541 00e2 | | Load_Encached Integer_Cache 0542 00e1 | | Load_Encached Boolean_Cache 0543 029f 0803 | | Declare_Subprogram INIT_0800,For_Call 0545 BODY_0530: 0545 e5ff | | Load 0x2,-0x1 0546 e003 | | Load 0x0,0x3 0547 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0548 7001 |p | Jump_Nonzero 0x54a 0549 8407 | | Call 0x2,0x7 054a 4800 |H | Short_Literal 0x0 054b a5fc | | Store_Unchecked 0x2,-0x4 054c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 054d 0000 0000 | | .XXX[0x3] 054f 0000 | | 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0559 | Y | .CONST 0x0559 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0004 | | .CONST 0x0004 ; Number of locals 0553 INIT_0550: 0553 e006 | | Load 0x0,0x6 0554 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0555 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0556 00e2 | | Load_Encached Integer_Cache 0557 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0558 03e9 | | Declare_Variable Discrete,Duplicate 0559 BODY_0550: 0559 e006 | | Load 0x0,0x6 055a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 055b 00e3 | | Load_Encached Natural_Cache 055c 00e3 | | Load_Encached Natural_Cache 055d e5fc | | Load 0x2,-0x4 055e e5ff | | Load 0x2,-0x1 055f 8216 | | Call 0x1,0x16 0560 c403 | | Store 0x2,0x3 0561 005a | Z | Store_Top Discrete,At_Offset_2 0562 005b | [ | Store_Top Discrete,At_Offset_3 0563 4800 |H | Short_Literal 0x0 0564 00db | | Load_Top At_Offset_3 0565 e006 | | Load 0x0,0x6 0566 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0567 7002 |p | Jump_Nonzero 0x56a 0568 4800 |H | Short_Literal 0x0 0569 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 056a e5fe | | Load 0x2,-0x2 056b 4fff |O | Short_Literal -0x1 056c 027f | | Execute Discrete,Equal 056d 6805 |h | Jump_Zero 0x573 056e 00d9 | | Load_Top At_Offset_1 056f 0f01 | | Execute_Immediate Equal,0x1 0570 6802 |h | Jump_Zero 0x573 0571 4800 |H | Short_Literal 0x0 0572 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0573 00d9 | | Load_Top At_Offset_1 0574 e5fe | | Load 0x2,-0x2 0575 027f | | Execute Discrete,Equal 0576 6802 |h | Jump_Zero 0x579 0577 4800 |H | Short_Literal 0x0 0578 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0579 4801 |H | Short_Literal 0x1 057a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 057b 0000 0000 | | .BLANK 0000[0x5] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0586 | | .CONST 0x0586 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0002 | | .CONST 0x0002 ; Number of locals 0583 INIT_0580: 0583 e5fe | | Load 0x2,-0x2 0584 e5ff | | Load 0x2,-0x1 0585 821f | | Call 0x1,0x1f 0586 BODY_0580: 0586 e002 | | Load 0x0,0x2 0587 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0588 e406 | | Load 0x2,0x6 0589 0120 | | Execute Any,Is_Value 058a 6803 |h | Jump_Zero 0x58e 058b e002 | | Load 0x0,0x2 058c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 058d 7801 |x | Jump 0x58f 058e e406 | | Load 0x2,0x6 058f e405 | | Load 0x2,0x5 0590 00db | | Load_Top At_Offset_3 0591 e002 | | Load 0x0,0x2 0592 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0593 180e | | Execute Package,Field_Execute,Field_Number 0xe 0594 c406 | | Store 0x2,0x6 0595 c404 | | Store 0x2,0x4 0596 e404 | | Load 0x2,0x4 0597 e002 | | Load 0x0,0x2 0598 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0599 6817 |h | Jump_Zero 0x5b1 059a e5fe | | Load 0x2,-0x2 059b 4801 |H | Short_Literal 0x1 059c 4801 |H | Short_Literal 0x1 059d e005 | | Load 0x0,0x5 059e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 059f 035b | [ | Declare_Type Array,Constrained 05a0 0337 | 7 | Declare_Variable Array 05a1 e5ff | | Load 0x2,-0x1 05a2 e003 | | Load 0x0,0x3 05a3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 05a4 e005 | | Load 0x0,0x5 05a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05a6 0119 | | Execute Any,Check_In_Formal_Type 05a7 4801 |H | Short_Literal 0x1 05a8 00da | | Load_Top At_Offset_2 05a9 01d6 | | Execute Vector,Field_Write 05aa 6009 |` | Indirect_Literal Discrete,0x5b4,{0x00000000, 0x000081c9} 05ab e006 | | Load 0x0,0x6 05ac 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05ad 6006 |` | Indirect_Literal Discrete,0x5b4,{0x00000000, 0x000081c9} 05ae a5fb | | Store_Unchecked 0x2,-0x5 05af e007 | | Load 0x0,0x7 05b0 0257 | W | Execute Discrete,Raise 05b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05b2 0000 0000 | | .XXX[0x2] 05b4 0000 0000 | | .LITERAL {0x00000000, 0x000081c9} 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05c7 | | .CONST 0x05c7 ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0004 | | .CONST 0x0004 ; Number of locals 05bb INIT_05b8: 05bb e404 | | Load 0x2,0x4 05bc e210 | | Load 0x1,0x10 05bd 1c08 | | Execute_Immediate Run_Utility,0x8 05be 00d8 | | Load_Top At_Offset_0 05bf 1c00 | | Execute_Immediate Run_Utility,0x0 05c0 00e2 | | Load_Encached Integer_Cache 05c1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05c2 e001 | | Load 0x0,0x1 05c3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05c4 02c7 | | Declare_Variable Any 05c5 00d8 | | Load_Top At_Offset_0 05c6 1c00 | | Execute_Immediate Run_Utility,0x0 05c7 BODY_05b8: 05c7 00cf | | Action Mark_Auxiliary 05c8 7824 |x$ | Jump 0x5ed 05c9 00da | | Load_Top At_Offset_2 05ca 0a01 | | Execute_Immediate Plus,0x1 05cb 005b | [ | Store_Top Discrete,At_Offset_3 05cc e5fe | | Load 0x2,-0x2 05cd 4801 |H | Short_Literal 0x1 05ce e402 | | Load 0x2,0x2 05cf e003 | | Load 0x0,0x3 05d0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 05d1 c604 | | Store 0x3,0x4 05d2 00d9 | | Load_Top At_Offset_1 05d3 00db | | Load_Top At_Offset_3 05d4 e602 | | Load 0x3,0x2 05d5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 05d6 01d5 | | Execute Vector,Field_Reference 05d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05d8 00d9 | | Load_Top At_Offset_1 05d9 8220 | | Call 0x1,0x20 05da 00db | | Load_Top At_Offset_3 05db e602 | | Load 0x3,0x2 05dc 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 05dd 01d5 | | Execute Vector,Field_Reference 05de 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05df e5fe | | Load 0x2,-0x2 05e0 00da | | Load_Top At_Offset_2 05e1 8223 | # | Call 0x1,0x23 05e2 00db | | Load_Top At_Offset_3 05e3 e602 | | Load 0x3,0x2 05e4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 05e5 01d5 | | Execute Vector,Field_Reference 05e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05e7 e402 | | Load 0x2,0x2 05e8 e001 | | Load 0x0,0x1 05e9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05eb c402 | | Store 0x2,0x2 05ec 00c9 | | Action Pop_Auxiliary_Loop 05ed e402 | | Load 0x2,0x2 05ee e001 | | Load 0x0,0x1 05ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05f0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 05f1 6fd7 |o | Jump_Zero 0x5c9 05f2 00ce | | Action Pop_Auxiliary 05f3 00da | | Load_Top At_Offset_2 05f4 00cb | | Action Pop_Block_With_Result 05f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05f6 0000 0000 | | .XXX[0x2] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 0611 | | .CONST 0x0611 ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0005 | | .CONST 0x0005 ; Number of locals 05fb INIT_05f8: 05fb e5fc | | Load 0x2,-0x4 05fc 00d8 | | Load_Top At_Offset_0 05fd 4801 |H | Short_Literal 0x1 05fe e5fd | | Load 0x2,-0x3 05ff e003 | | Load 0x0,0x3 0600 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0601 821f | | Call 0x1,0x1f 0602 00d8 | | Load_Top At_Offset_0 0603 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 0605 01cc | | Execute Vector,Catenate 0606 e5fd | | Load 0x2,-0x3 0607 e003 | | Load 0x0,0x3 0608 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0609 01cc | | Execute Vector,Catenate 060a 0007 | | Action Break_Optional 060b e5ff | | Load 0x2,-0x1 060c e003 | | Load 0x0,0x3 060d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 060e e5fe | | Load 0x2,-0x2 060f e003 | | Load 0x0,0x3 0610 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0611 BODY_05f8: 0611 e5fd | | Load 0x2,-0x3 0612 e003 | | Load 0x0,0x3 0613 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0614 6842 |hB | Jump_Zero 0x657 0615 00ea | | Load_Encached Null_String_Cache 0616 4801 |H | Short_Literal 0x1 0617 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>" 0619 4801 |H | Short_Literal 0x1 061a e604 | | Load 0x3,0x4 061b 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 061d 01cc | | Execute Vector,Catenate 061e e603 | | Load 0x3,0x3 061f 01cc | | Execute Vector,Catenate 0620 0092 08eb | | Action Push_String_Extended,0x8eb ; "_secondary_@_spec" 0622 01cc | | Execute Vector,Catenate 0623 e604 | | Load 0x3,0x4 0624 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 0626 01cc | | Execute Vector,Catenate 0627 e603 | | Load 0x3,0x3 0628 01cc | | Execute Vector,Catenate 0629 0092 08ec | | Action Push_String_Extended,0x8ec ; "'spec.<secondary_@>" 062b 01cc | | Execute Vector,Catenate 062c e00f | | Load 0x0,0xf 062d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 062e 00ea | | Load_Encached Null_String_Cache 062f 4801 |H | Short_Literal 0x1 0630 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>" 0632 4801 |H | Short_Literal 0x1 0633 e605 | | Load 0x3,0x5 0634 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 0636 01cc | | Execute Vector,Catenate 0637 e603 | | Load 0x3,0x3 0638 01cc | | Execute Vector,Catenate 0639 0092 08eb | | Action Push_String_Extended,0x8eb ; "_secondary_@_spec" 063b 01cc | | Execute Vector,Catenate 063c e604 | | Load 0x3,0x4 063d 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 063f 01cc | | Execute Vector,Catenate 0640 e603 | | Load 0x3,0x3 0641 01cc | | Execute Vector,Catenate 0642 0092 08eb | | Action Push_String_Extended,0x8eb ; "_secondary_@_spec" 0644 01cc | | Execute Vector,Catenate 0645 e00f | | Load 0x0,0xf 0646 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0647 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>" 0649 0092 08ed | | Action Push_String_Extended,0x8ed ; "<DIRECTORIES>" 064b 00db | | Load_Top At_Offset_3 064c 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 064e 01cc | | Execute Vector,Catenate 064f e603 | | Load 0x3,0x3 0650 01cc | | Execute Vector,Catenate 0651 0092 08eb | | Action Push_String_Extended,0x8eb ; "_secondary_@_spec" 0653 01cc | | Execute Vector,Catenate 0654 e00f | | Load 0x0,0xf 0655 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0656 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0657 00ea | | Load_Encached Null_String_Cache 0658 4801 |H | Short_Literal 0x1 0659 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>" 065b 4801 |H | Short_Literal 0x1 065c e604 | | Load 0x3,0x4 065d 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 065f 01cc | | Execute Vector,Catenate 0660 e603 | | Load 0x3,0x3 0661 01cc | | Execute Vector,Catenate 0662 0092 08ee | | Action Push_String_Extended,0x8ee ; "_secondary_@_body" 0664 01cc | | Execute Vector,Catenate 0665 e604 | | Load 0x3,0x4 0666 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 0668 01cc | | Execute Vector,Catenate 0669 e603 | | Load 0x3,0x3 066a 01cc | | Execute Vector,Catenate 066b 0092 08ef | | Action Push_String_Extended,0x8ef ; "'body.<secondary_@>" 066d 01cc | | Execute Vector,Catenate 066e e00f | | Load 0x0,0xf 066f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0670 00ea | | Load_Encached Null_String_Cache 0671 4801 |H | Short_Literal 0x1 0672 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>" 0674 4801 |H | Short_Literal 0x1 0675 e605 | | Load 0x3,0x5 0676 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 0678 01cc | | Execute Vector,Catenate 0679 e603 | | Load 0x3,0x3 067a 01cc | | Execute Vector,Catenate 067b 0092 08ee | | Action Push_String_Extended,0x8ee ; "_secondary_@_body" 067d 01cc | | Execute Vector,Catenate 067e e604 | | Load 0x3,0x4 067f 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 0681 01cc | | Execute Vector,Catenate 0682 e603 | | Load 0x3,0x3 0683 01cc | | Execute Vector,Catenate 0684 0092 08ee | | Action Push_String_Extended,0x8ee ; "_secondary_@_body" 0686 01cc | | Execute Vector,Catenate 0687 e00f | | Load 0x0,0xf 0688 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0689 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>" 068b 0092 08ed | | Action Push_String_Extended,0x8ed ; "<DIRECTORIES>" 068d 00db | | Load_Top At_Offset_3 068e 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "." 0690 01cc | | Execute Vector,Catenate 0691 e603 | | Load 0x3,0x3 0692 01cc | | Execute Vector,Catenate 0693 0092 08ee | | Action Push_String_Extended,0x8ee ; "_secondary_@_body" 0695 01cc | | Execute Vector,Catenate 0696 e00f | | Load 0x0,0xf 0697 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0698 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0699 0000 0000 | | .BLANK 0000[0x7] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06b6 | | .CONST 0x06b6 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0006 | | .CONST 0x0006 ; Number of locals 06a3 INIT_06a0: 06a3 e404 | | Load 0x2,0x4 06a4 e210 | | Load 0x1,0x10 06a5 1c08 | | Execute_Immediate Run_Utility,0x8 06a6 00d8 | | Load_Top At_Offset_0 06a7 1c00 | | Execute_Immediate Run_Utility,0x0 06a8 00e2 | | Load_Encached Integer_Cache 06a9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06aa e001 | | Load 0x0,0x1 06ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06ac 02c7 | | Declare_Variable Any 06ad 00d8 | | Load_Top At_Offset_0 06ae 1c00 | | Execute_Immediate Run_Utility,0x0 06af e001 | | Load 0x0,0x1 06b0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06b1 02c7 | | Declare_Variable Any 06b2 00d8 | | Load_Top At_Offset_0 06b3 1c00 | | Execute_Immediate Run_Utility,0x0 06b4 029f 0843 | C| Declare_Subprogram INIT_0840,For_Call 06b6 BODY_06a0: 06b6 00cf | | Action Mark_Auxiliary 06b7 784e |xN | Jump 0x706 06b8 e5fe | | Load 0x2,-0x2 06b9 4801 |H | Short_Literal 0x1 06ba e403 | | Load 0x2,0x3 06bb e003 | | Load 0x0,0x3 06bc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 06bd c604 | | Store 0x3,0x4 06be 00db | | Load_Top At_Offset_3 06bf e003 | | Load 0x0,0x3 06c0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 06c1 703e |p> | Jump_Nonzero 0x700 06c2 e5fe | | Load 0x2,-0x2 06c3 e604 | | Load 0x3,0x4 06c4 e003 | | Load 0x0,0x3 06c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06c6 6839 |h9 | Jump_Zero 0x700 06c7 e5fe | | Load 0x2,-0x2 06c8 e604 | | Load 0x3,0x4 06c9 e003 | | Load 0x0,0x3 06ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06cb 6834 |h4 | Jump_Zero 0x700 06cc 00e1 | | Load_Encached Boolean_Cache 06cd 00db | | Load_Top At_Offset_3 06ce 0120 | | Execute Any,Is_Value 06cf 6803 |h | Jump_Zero 0x6d3 06d0 e001 | | Load 0x0,0x1 06d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06d2 7801 |x | Jump 0x6d4 06d3 00db | | Load_Top At_Offset_3 06d4 e5fe | | Load 0x2,-0x2 06d5 e604 | | Load 0x3,0x4 06d6 822c | , | Call 0x1,0x2c 06d7 c605 | | Store 0x3,0x5 06d8 c405 | | Store 0x2,0x5 06d9 e405 | | Load 0x2,0x5 06da 6825 |h% | Jump_Zero 0x700 06db e006 | | Load 0x0,0x6 06dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06dd e5fe | | Load 0x2,-0x2 06de e604 | | Load 0x3,0x4 06df e003 | | Load 0x0,0x3 06e0 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 06e1 c406 | | Store 0x2,0x6 06e2 4800 |H | Short_Literal 0x0 06e3 e406 | | Load 0x2,0x6 06e4 e006 | | Load 0x0,0x6 06e5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 06e6 7003 |p | Jump_Nonzero 0x6ea 06e7 e006 | | Load 0x0,0x6 06e8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 06e9 0257 | W | Execute Discrete,Raise 06ea e603 | | Load 0x3,0x3 06eb 0a01 | | Execute_Immediate Plus,0x1 06ec c603 | | Store 0x3,0x3 06ed 00da | | Load_Top At_Offset_2 06ee e603 | | Load 0x3,0x3 06ef e602 | | Load 0x3,0x2 06f0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 06f1 01d5 | | Execute Vector,Field_Reference 06f2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06f3 00da | | Load_Top At_Offset_2 06f4 8220 | | Call 0x1,0x20 06f5 e603 | | Load 0x3,0x3 06f6 e602 | | Load 0x3,0x2 06f7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 06f8 01d5 | | Execute Vector,Field_Reference 06f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06fa 4800 |H | Short_Literal 0x0 06fb e603 | | Load 0x3,0x3 06fc e602 | | Load 0x3,0x2 06fd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 06fe 01d5 | | Execute Vector,Field_Reference 06ff 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0700 e403 | | Load 0x2,0x3 0701 e001 | | Load 0x0,0x1 0702 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0703 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0704 c403 | | Store 0x2,0x3 0705 00c9 | | Action Pop_Auxiliary_Loop 0706 e403 | | Load 0x2,0x3 0707 e001 | | Load 0x0,0x1 0708 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0709 181e | | Execute Package,Field_Execute,Field_Number 0x1e 070a 6fad |o | Jump_Zero 0x6b8 070b 00ce | | Action Pop_Auxiliary 070c 00db | | Load_Top At_Offset_3 070d 0c01 | | Execute_Immediate Greater_Equal,0x1 070e 6801 |h | Jump_Zero 0x710 070f 8606 | | Call 0x3,0x6 0710 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0711 0000 0000 | | .BLANK 0000[0x7] 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 072e | . | .CONST 0x072e ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0006 | | .CONST 0x0006 ; Number of locals 071b INIT_0718: 071b e404 | | Load 0x2,0x4 071c e210 | | Load 0x1,0x10 071d 1c08 | | Execute_Immediate Run_Utility,0x8 071e 00d8 | | Load_Top At_Offset_0 071f 1c00 | | Execute_Immediate Run_Utility,0x0 0720 00e2 | | Load_Encached Integer_Cache 0721 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0722 e001 | | Load 0x0,0x1 0723 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0724 02c7 | | Declare_Variable Any 0725 00d8 | | Load_Top At_Offset_0 0726 1c00 | | Execute_Immediate Run_Utility,0x0 0727 e001 | | Load 0x0,0x1 0728 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0729 02c7 | | Declare_Variable Any 072a 00d8 | | Load_Top At_Offset_0 072b 1c00 | | Execute_Immediate Run_Utility,0x0 072c 029f 085b | [| Declare_Subprogram INIT_0858,For_Call 072e BODY_0718: 072e 00cf | | Action Mark_Auxiliary 072f 7854 |xT | Jump 0x784 0730 e5fc | | Load 0x2,-0x4 0731 4801 |H | Short_Literal 0x1 0732 e403 | | Load 0x2,0x3 0733 e003 | | Load 0x0,0x3 0734 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0735 c604 | | Store 0x3,0x4 0736 00db | | Load_Top At_Offset_3 0737 e003 | | Load 0x0,0x3 0738 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0739 7044 |pD | Jump_Nonzero 0x77e 073a e5fc | | Load 0x2,-0x4 073b e604 | | Load 0x3,0x4 073c e003 | | Load 0x0,0x3 073d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 073e 683f |h? | Jump_Zero 0x77e 073f e5fc | | Load 0x2,-0x4 0740 e604 | | Load 0x3,0x4 0741 e003 | | Load 0x0,0x3 0742 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0743 703a |p: | Jump_Nonzero 0x77e 0744 00e1 | | Load_Encached Boolean_Cache 0745 00db | | Load_Top At_Offset_3 0746 0120 | | Execute Any,Is_Value 0747 6803 |h | Jump_Zero 0x74b 0748 e001 | | Load 0x0,0x1 0749 1b0f | | Execute Package,Field_Read,Field_Number 0xf 074a 7801 |x | Jump 0x74c 074b 00db | | Load_Top At_Offset_3 074c e5fc | | Load 0x2,-0x4 074d e604 | | Load 0x3,0x4 074e 822c | , | Call 0x1,0x2c 074f c605 | | Store 0x3,0x5 0750 c405 | | Store 0x2,0x5 0751 e405 | | Load 0x2,0x5 0752 682b |h+ | Jump_Zero 0x77e 0753 e5fc | | Load 0x2,-0x4 0754 e5fd | | Load 0x2,-0x3 0755 e5fe | | Load 0x2,-0x2 0756 e604 | | Load 0x3,0x4 0757 822d | - | Call 0x1,0x2d 0758 6825 |h% | Jump_Zero 0x77e 0759 e006 | | Load 0x0,0x6 075a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 075b e5fc | | Load 0x2,-0x4 075c e604 | | Load 0x3,0x4 075d e003 | | Load 0x0,0x3 075e 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 075f c406 | | Store 0x2,0x6 0760 4800 |H | Short_Literal 0x0 0761 e406 | | Load 0x2,0x6 0762 e006 | | Load 0x0,0x6 0763 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0764 7003 |p | Jump_Nonzero 0x768 0765 e006 | | Load 0x0,0x6 0766 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0767 0257 | W | Execute Discrete,Raise 0768 e603 | | Load 0x3,0x3 0769 0a01 | | Execute_Immediate Plus,0x1 076a c603 | | Store 0x3,0x3 076b 00da | | Load_Top At_Offset_2 076c e603 | | Load 0x3,0x3 076d e602 | | Load 0x3,0x2 076e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 076f 01d5 | | Execute Vector,Field_Reference 0770 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0771 00da | | Load_Top At_Offset_2 0772 8220 | | Call 0x1,0x20 0773 e603 | | Load 0x3,0x3 0774 e602 | | Load 0x3,0x2 0775 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0776 01d5 | | Execute Vector,Field_Reference 0777 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0778 4800 |H | Short_Literal 0x0 0779 e603 | | Load 0x3,0x3 077a e602 | | Load 0x3,0x2 077b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 077c 01d5 | | Execute Vector,Field_Reference 077d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 077e e403 | | Load 0x2,0x3 077f e001 | | Load 0x0,0x1 0780 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0781 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0782 c403 | | Store 0x2,0x3 0783 00c9 | | Action Pop_Auxiliary_Loop 0784 e403 | | Load 0x2,0x3 0785 e001 | | Load 0x0,0x1 0786 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0787 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0788 6fa7 |o | Jump_Zero 0x730 0789 00ce | | Action Pop_Auxiliary 078a 00db | | Load_Top At_Offset_3 078b 0c01 | | Execute_Immediate Greater_Equal,0x1 078c 6801 |h | Jump_Zero 0x78e 078d 8606 | | Call 0x3,0x6 078e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 078f 0000 | | .XXX[0x1] 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 07a6 | | .CONST 0x07a6 ; Address of begin 0791 0004 | | .CONST 0x0004 ; Address of exception handler 0792 0006 | | .CONST 0x0006 ; Number of locals 0793 INIT_0790: 0793 e404 | | Load 0x2,0x4 0794 e210 | | Load 0x1,0x10 0795 1c08 | | Execute_Immediate Run_Utility,0x8 0796 00d8 | | Load_Top At_Offset_0 0797 1c00 | | Execute_Immediate Run_Utility,0x0 0798 00e2 | | Load_Encached Integer_Cache 0799 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 079a e001 | | Load 0x0,0x1 079b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 079c 02c7 | | Declare_Variable Any 079d 00d8 | | Load_Top At_Offset_0 079e 1c00 | | Execute_Immediate Run_Utility,0x0 079f e001 | | Load 0x0,0x1 07a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07a1 02c7 | | Declare_Variable Any 07a2 00d8 | | Load_Top At_Offset_0 07a3 1c00 | | Execute_Immediate Run_Utility,0x0 07a4 029f 0873 | s| Declare_Subprogram INIT_0870,For_Call 07a6 BODY_0790: 07a6 00cf | | Action Mark_Auxiliary 07a7 7849 |xI | Jump 0x7f1 07a8 e5fe | | Load 0x2,-0x2 07a9 4801 |H | Short_Literal 0x1 07aa e403 | | Load 0x2,0x3 07ab e003 | | Load 0x0,0x3 07ac 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 07ad c604 | | Store 0x3,0x4 07ae 00db | | Load_Top At_Offset_3 07af e003 | | Load 0x0,0x3 07b0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 07b1 7039 |p9 | Jump_Nonzero 0x7eb 07b2 e5fe | | Load 0x2,-0x2 07b3 e604 | | Load 0x3,0x4 07b4 e003 | | Load 0x0,0x3 07b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 07b6 6834 |h4 | Jump_Zero 0x7eb 07b7 00e1 | | Load_Encached Boolean_Cache 07b8 00db | | Load_Top At_Offset_3 07b9 0120 | | Execute Any,Is_Value 07ba 6803 |h | Jump_Zero 0x7be 07bb e001 | | Load 0x0,0x1 07bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07bd 7801 |x | Jump 0x7bf 07be 00db | | Load_Top At_Offset_3 07bf e5fe | | Load 0x2,-0x2 07c0 e604 | | Load 0x3,0x4 07c1 822c | , | Call 0x1,0x2c 07c2 c605 | | Store 0x3,0x5 07c3 c405 | | Store 0x2,0x5 07c4 e405 | | Load 0x2,0x5 07c5 6825 |h% | Jump_Zero 0x7eb 07c6 e006 | | Load 0x0,0x6 07c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07c8 e5fe | | Load 0x2,-0x2 07c9 e604 | | Load 0x3,0x4 07ca e003 | | Load 0x0,0x3 07cb 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 07cc c406 | | Store 0x2,0x6 07cd 4800 |H | Short_Literal 0x0 07ce e406 | | Load 0x2,0x6 07cf e006 | | Load 0x0,0x6 07d0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 07d1 7003 |p | Jump_Nonzero 0x7d5 07d2 e006 | | Load 0x0,0x6 07d3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 07d4 0257 | W | Execute Discrete,Raise 07d5 e603 | | Load 0x3,0x3 07d6 0a01 | | Execute_Immediate Plus,0x1 07d7 c603 | | Store 0x3,0x3 07d8 00da | | Load_Top At_Offset_2 07d9 e603 | | Load 0x3,0x3 07da e602 | | Load 0x3,0x2 07db 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 07dc 01d5 | | Execute Vector,Field_Reference 07dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07de 00da | | Load_Top At_Offset_2 07df 8220 | | Call 0x1,0x20 07e0 e603 | | Load 0x3,0x3 07e1 e602 | | Load 0x3,0x2 07e2 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 07e3 01d5 | | Execute Vector,Field_Reference 07e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07e5 4800 |H | Short_Literal 0x0 07e6 e603 | | Load 0x3,0x3 07e7 e602 | | Load 0x3,0x2 07e8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 07e9 01d5 | | Execute Vector,Field_Reference 07ea 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 07eb e403 | | Load 0x2,0x3 07ec e001 | | Load 0x0,0x1 07ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07ee 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07ef c403 | | Store 0x2,0x3 07f0 00c9 | | Action Pop_Auxiliary_Loop 07f1 e403 | | Load 0x2,0x3 07f2 e001 | | Load 0x0,0x1 07f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07f4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 07f5 6fb2 |o | Jump_Zero 0x7a8 07f6 00ce | | Action Pop_Auxiliary 07f7 00db | | Load_Top At_Offset_3 07f8 0c01 | | Execute_Immediate Greater_Equal,0x1 07f9 6801 |h | Jump_Zero 0x7fb 07fa 8606 | | Call 0x3,0x6 07fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07fc 0000 0000 | | .BLANK 0000[0x4] 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 0815 | | .CONST 0x0815 ; Address of begin 0801 0004 | | .CONST 0x0004 ; Address of exception handler 0802 0002 | | .CONST 0x0002 ; Number of locals 0803 INIT_0800: 0803 e5fe | | Load 0x2,-0x2 0804 4801 |H | Short_Literal 0x1 0805 e5ff | | Load 0x2,-0x1 0806 e003 | | Load 0x0,0x3 0807 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0808 e003 | | Load 0x0,0x3 0809 1817 | | Execute Package,Field_Execute,Field_Number 0x17 080a 0092 08f0 | | Action Push_String_Extended,0x8f0 ; ".@'c(ada).<secondary_" 080c 01cc | | Execute Vector,Catenate 080d e5ff | | Load 0x2,-0x1 080e e003 | | Load 0x0,0x3 080f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0810 01cc | | Execute Vector,Catenate 0811 0092 08f1 | | Action Push_String_Extended,0x8f1 ; ">" 0813 01cc | | Execute Vector,Catenate 0814 0007 | | Action Break_Optional 0815 BODY_0800: 0815 00d8 | | Load_Top At_Offset_0 0816 8222 | " | Call 0x1,0x22 0817 c402 | | Store 0x2,0x2 0818 e402 | | Load 0x2,0x2 0819 e001 | | Load 0x0,0x1 081a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 081b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 081c 7022 |p" | Jump_Nonzero 0x83f 081d e402 | | Load 0x2,0x2 081e e001 | | Load 0x0,0x1 081f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0820 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0821 701d |p | Jump_Nonzero 0x83f 0822 e5fe | | Load 0x2,-0x2 0823 4801 |H | Short_Literal 0x1 0824 e402 | | Load 0x2,0x2 0825 e003 | | Load 0x0,0x3 0826 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0827 c403 | | Store 0x2,0x3 0828 e006 | | Load 0x0,0x6 0829 1b0d | | Execute Package,Field_Read,Field_Number 0xd 082a 00e2 | | Load_Encached Integer_Cache 082b 00e1 | | Load_Encached Boolean_Cache 082c e5fd | | Load 0x2,-0x3 082d 0120 | | Execute Any,Is_Value 082e 6803 |h | Jump_Zero 0x832 082f e001 | | Load 0x0,0x1 0830 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0831 7801 |x | Jump 0x833 0832 e5fd | | Load 0x2,-0x3 0833 e5fe | | Load 0x2,-0x2 0834 e403 | | Load 0x2,0x3 0835 e008 | | Load 0x0,0x8 0836 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0837 c5fd | | Store 0x2,-0x3 0838 c406 | | Store 0x2,0x6 0839 c405 | | Store 0x2,0x5 083a c404 | | Store 0x2,0x4 083b e406 | | Load 0x2,0x6 083c a5fc | | Store_Unchecked 0x2,-0x4 083d 00cc | | Action Pop_Block 083e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 083f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0840 ; -------------------------------------------------------------------------------------- 0840 ; SUBPROGRAM 0840 ; -------------------------------------------------------------------------------------- 0840 0848 | H | .CONST 0x0848 ; Address of begin 0841 0004 | | .CONST 0x0004 ; Address of exception handler 0842 0002 | | .CONST 0x0002 ; Number of locals 0843 INIT_0840: 0843 e603 | | Load 0x3,0x3 0844 e210 | | Load 0x1,0x10 0845 1c08 | | Execute_Immediate Run_Utility,0x8 0846 00d8 | | Load_Top At_Offset_0 0847 1c00 | | Execute_Immediate Run_Utility,0x0 0848 BODY_0840: 0848 4801 |H | Short_Literal 0x1 0849 e603 | | Load 0x3,0x3 084a e602 | | Load 0x3,0x2 084b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 084c 01cf | | Execute Vector,Slice_Read 084d 4801 |H | Short_Literal 0x1 084e e603 | | Load 0x3,0x3 084f 00db | | Load_Top At_Offset_3 0850 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0851 01ce | | Execute Vector,Slice_Write 0852 00d8 | | Load_Top At_Offset_0 0853 00cb | | Action Pop_Block_With_Result 0854 00cb | | Action Pop_Block_With_Result 0855 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0856 0000 0000 | | .XXX[0x2] 0858 ; -------------------------------------------------------------------------------------- 0858 ; SUBPROGRAM 0858 ; -------------------------------------------------------------------------------------- 0858 0860 | ` | .CONST 0x0860 ; Address of begin 0859 0004 | | .CONST 0x0004 ; Address of exception handler 085a 0002 | | .CONST 0x0002 ; Number of locals 085b INIT_0858: 085b e603 | | Load 0x3,0x3 085c e210 | | Load 0x1,0x10 085d 1c08 | | Execute_Immediate Run_Utility,0x8 085e 00d8 | | Load_Top At_Offset_0 085f 1c00 | | Execute_Immediate Run_Utility,0x0 0860 BODY_0858: 0860 4801 |H | Short_Literal 0x1 0861 e603 | | Load 0x3,0x3 0862 e602 | | Load 0x3,0x2 0863 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0864 01cf | | Execute Vector,Slice_Read 0865 4801 |H | Short_Literal 0x1 0866 e603 | | Load 0x3,0x3 0867 00db | | Load_Top At_Offset_3 0868 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0869 01ce | | Execute Vector,Slice_Write 086a 00d8 | | Load_Top At_Offset_0 086b 00cb | | Action Pop_Block_With_Result 086c 00cb | | Action Pop_Block_With_Result 086d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 086e 0000 0000 | | .XXX[0x2] 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0878 | x | .CONST 0x0878 ; Address of begin 0871 0004 | | .CONST 0x0004 ; Address of exception handler 0872 0002 | | .CONST 0x0002 ; Number of locals 0873 INIT_0870: 0873 e603 | | Load 0x3,0x3 0874 e210 | | Load 0x1,0x10 0875 1c08 | | Execute_Immediate Run_Utility,0x8 0876 00d8 | | Load_Top At_Offset_0 0877 1c00 | | Execute_Immediate Run_Utility,0x0 0878 BODY_0870: 0878 4801 |H | Short_Literal 0x1 0879 e603 | | Load 0x3,0x3 087a e602 | | Load 0x3,0x2 087b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 087c 01cf | | Execute Vector,Slice_Read 087d 4801 |H | Short_Literal 0x1 087e e603 | | Load 0x3,0x3 087f 00db | | Load_Top At_Offset_3 0880 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0881 01ce | | Execute Vector,Slice_Write 0882 00d8 | | Load_Top At_Offset_0 0883 00cb | | Action Pop_Block_With_Result 0884 00cb | | Action Pop_Block_With_Result 0885 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0886 0000 0000 | | .XXX[0x2] 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 088b | | .CONST 0x088b ; Address of begin 0889 0004 | | .CONST 0x0004 ; Address of exception handler 088a 0001 | | .CONST 0x0001 ; Number of locals 088b BODY_0888: 088b INIT_0888: 088b 4608 |F | Jump_Case 0x9 088c 7808 |x | Jump 0x895 ; case 0x0 088d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 088e 780d |x | Jump 0x89c ; case 0x2 088f 780c |x | Jump 0x89c ; case 0x3 0890 780b |x | Jump 0x89c ; case 0x4 0891 780a |x | Jump 0x89c ; case 0x5 0892 7809 |x | Jump 0x89c ; case 0x6 0893 7808 |x | Jump 0x89c ; case 0x7 0894 7807 |x | Jump 0x89c ; case 0x8 0895 00da | | Load_Top At_Offset_2 0896 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0897 0125 | % | Execute Any,Set_Constraint 0898 00da | | Load_Top At_Offset_2 0899 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 089a 1c00 | | Execute_Immediate Run_Utility,0x0 089b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 089c 0869 | i | Execute_Immediate Raise,0x69 089d 0000 0000 | | .XXX[0x3] 089f 0000 | | 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a3 | | .CONST 0x08a3 ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0001 | | .CONST 0x0001 ; Number of locals 08a3 BODY_08a0: 08a3 INIT_08a0: 08a3 4608 |F | Jump_Case 0x9 08a4 7808 |x | Jump 0x8ad ; case 0x0 08a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 08a6 781d |x | Jump 0x8c4 ; case 0x2 08a7 781c |x | Jump 0x8c4 ; case 0x3 08a8 781b |x | Jump 0x8c4 ; case 0x4 08a9 781a |x | Jump 0x8c4 ; case 0x5 08aa 7819 |x | Jump 0x8c4 ; case 0x6 08ab 7805 |x | Jump 0x8b1 ; case 0x7 08ac 780d |x | Jump 0x8ba ; case 0x8 08ad 00da | | Load_Top At_Offset_2 08ae 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 08af 1c00 | | Execute_Immediate Run_Utility,0x0 08b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 08b1 00db | | Load_Top At_Offset_3 08b2 4801 |H | Short_Literal 0x1 08b3 e5fe | | Load 0x2,-0x2 08b4 e20f | | Load 0x1,0xf 08b5 035b | [ | Declare_Type Array,Constrained 08b6 4801 |H | Short_Literal 0x1 08b7 e5ff | | Load 0x2,-0x1 08b8 031b | | Declare_Type Variant_Record,Constrained 08b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 08ba 00db | | Load_Top At_Offset_3 08bb 00db | | Load_Top At_Offset_3 08bc 02fc | | Declare_Variable Variant_Record,With_Constraint 08bd 4801 |H | Short_Literal 0x1 08be e5fe | | Load 0x2,-0x2 08bf e20f | | Load 0x1,0xf 08c0 0334 | 4 | Declare_Variable Array,With_Constraint 08c1 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 08c2 016a | j | QQ_execute Variant_Record,XXX 08c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 08c4 0869 | i | Execute_Immediate Raise,0x69 08c5 0000 0000 | | .XXX[0x3] 08c7 0000 | | 08c8 ; -------------------------------------------------------------------------------------- 08c8 ; SUBPROGRAM 08c8 ; -------------------------------------------------------------------------------------- 08c8 08cb | | .CONST 0x08cb ; Address of begin 08c9 0004 | | .CONST 0x0004 ; Address of exception handler 08ca 0001 | | .CONST 0x0001 ; Number of locals 08cb BODY_08c8: 08cb INIT_08c8: 08cb 4608 |F | Jump_Case 0x9 08cc 7808 |x | Jump 0x8d5 ; case 0x0 08cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 08ce 7813 |x | Jump 0x8e2 ; case 0x2 08cf 7812 |x | Jump 0x8e2 ; case 0x3 08d0 7811 |x | Jump 0x8e2 ; case 0x4 08d1 7810 |x | Jump 0x8e2 ; case 0x5 08d2 780f |x | Jump 0x8e2 ; case 0x6 08d3 780e |x | Jump 0x8e2 ; case 0x7 08d4 780d |x | Jump 0x8e2 ; case 0x8 08d5 00da | | Load_Top At_Offset_2 08d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 08d7 0125 | % | Execute Any,Set_Constraint 08d8 00da | | Load_Top At_Offset_2 08d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 08da 1c00 | | Execute_Immediate Run_Utility,0x0 08db 00da | | Load_Top At_Offset_2 08dc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 08dd 0125 | % | Execute Any,Set_Constraint 08de 00da | | Load_Top At_Offset_2 08df 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 08e0 1c00 | | Execute_Immediate Run_Utility,0x0 08e1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 08e2 0869 | i | Execute_Immediate Raise,0x69 08e3 ; -------------------------------------------------------------------------------------- 08e3 ; STRING TABLE 08e3 ; -------------------------------------------------------------------------------------- 08e3 0020 | | .STRTAB 0x0020->0x08f3 ; ".state.cmvc_database" 08e4 0032 | 2 | .STRTAB 0x0032->0x08fd ; ".units.??'c(~library)" 08e5 0045 | E | .STRTAB 0x0045->0x0907 ; ".units" 08e6 0049 | I | .STRTAB 0x0049->0x090a ; "<ALL_WORLDS>" 08e7 0053 | S | .STRTAB 0x0053->0x0910 ; "<WORLDS>" 08e8 0059 | Y | .STRTAB 0x0059->0x0914 ; ".units.??'c(ada)'if(controlled)" 08e9 0076 | v | .STRTAB 0x0076->0x0924 ; "." 08ea 0075 | u | .STRTAB 0x0075->0x0924 ; "<QUIET>" 08eb 007a | z | .STRTAB 0x007a->0x0928 ; "_secondary_@_spec" 08ec 0089 | | .STRTAB 0x0089->0x0930 ; "'spec.<secondary_@>" 08ed 009a | | .STRTAB 0x009a->0x093a ; "<DIRECTORIES>" 08ee 00a5 | | .STRTAB 0x00a5->0x0940 ; "_secondary_@_body" 08ef 00b4 | | .STRTAB 0x00b4->0x0949 ; "'body.<secondary_@>" 08f0 00c5 | | .STRTAB 0x00c5->0x0952 ; ".@'c(ada).<secondary_" 08f1 00d8 | | .STRTAB 0x00d8->0x095d ; ">" 08f2 00d7 | | .STREND 0x00d7->0x095d 08f3 2e73 7461 |.sta| .STRTAB_STRINGS 095e 0000 0000 | | .XXX[0x2] 0960 ; -------------------------------------------------------------------------------------- 0960 ; Debug Table 0960 ; -------------------------------------------------------------------------------------- 0960 0004 000f | | .DEBUG4 0x0004,0x000f,0x2ede,0x0000,0x0001,0x0000 0966 0000 0000 | | .BLANK 0000[0x13] 0979 8020 e0fb | | .XXX[0x4] 097b 802e 880c | . | 097d 0000 0000 | | .BLANK 0000[0x6] 0983 4400 |D | .XXX[0x1] 0984 0000 0000 | | .BLANK 0000[0x26] 09aa 0008 020e | | .XXX[0x10] 09ac 0fb8 0080 | | 09ae 0041 f7c4 | A | 09b0 0041 f7c4 | A | 09b2 0000 0000 | | 09b4 0041 c1f7 | A | 09b6 8020 e0fb | | 09b8 8072 280c | r( | 09ba 0000 0000 | | .BLANK 0000[0x6] 09c0 2100 0000 |! | .XXX[0x3] 09c2 0600 | | 09c3 0000 0000 | | .BLANK 0000[0x38] 09fb 0040 | @ | .XXX[0x1] 09fc 0000 0000 | | .BLANK 0000[0x4]