|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 08a8 | | .CONST 0x08a8 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 008a | | .CONST 0x008a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002b | + | .CONST 0x002b ; 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 e001 | | Load 0x0,0x1 001e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001f e20d | | Load 0x1,0xd 0020 00e2 | | Load_Encached Integer_Cache 0021 029f 07d3 | | Declare_Subprogram INIT_07d0,For_Call 0023 4803 |H | Short_Literal 0x3 0024 032e | . | Declare_Type Record,Defined,Visible 0025 c215 | | Store 0x1,0x15 0026 00e2 | | Load_Encached Integer_Cache 0027 0266 | f | Execute Discrete,Bounds 0028 e215 | | Load 0x1,0x15 0029 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 002b 4801 |H | Short_Literal 0x1 002c 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 002d c20f | | Store 0x1,0xf 002e 00e2 | | Load_Encached Integer_Cache 002f 4801 |H | Short_Literal 0x1 0030 6073 |`s | Indirect_Literal Discrete,0xa4,{0x00000000, 0x7fffffff} 0031 e20f | | Load 0x1,0xf 0032 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 0033 029f 07eb | | Declare_Subprogram INIT_07e8,For_Call 0035 4800 |H | Short_Literal 0x0 0036 4801 |H | Short_Literal 0x1 0037 4800 |H | Short_Literal 0x0 0038 4800 |H | Short_Literal 0x0 0039 4801 |H | Short_Literal 0x1 003a 4801 |H | Short_Literal 0x1 003b 031e | | Declare_Type Variant_Record,Defined,Visible 003c c210 | | Store 0x1,0x10 003d e001 | | Load 0x0,0x1 003e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003f e001 | | Load 0x0,0x1 0040 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0041 029f 0813 | | Declare_Subprogram INIT_0810,For_Call 0043 4802 |H | Short_Literal 0x2 0044 032e | . | Declare_Type Record,Defined,Visible 0045 c211 | | Store 0x1,0x11 0046 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0048 c216 | | Store 0x1,0x16 0049 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 004b c213 | | Store 0x1,0x13 004c 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 004e c217 | | Store 0x1,0x17 004f 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0051 c218 | | Store 0x1,0x18 0052 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0054 c219 | | Store 0x1,0x19 0055 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0057 c21a | | Store 0x1,0x1a 0058 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 005a c21b | | Store 0x1,0x1b 005b 00bf | | Action Accept_Activation 005c 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 005e 029d 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call 0060 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call 0062 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call 0064 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 0066 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 0068 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 006a 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call 006c 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 006e 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call 0070 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call 0072 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call 0074 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call 0076 029d 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call 0078 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call 007a 029d 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call 007c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 007d 00c7 | | Action Elaborate_Subprogram 007e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 007f 00c7 | | Action Elaborate_Subprogram 0080 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0081 00c7 | | Action Elaborate_Subprogram 0082 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0083 00c7 | | Action Elaborate_Subprogram 0084 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0085 00c7 | | Action Elaborate_Subprogram 0086 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0087 00c7 | | Action Elaborate_Subprogram 0088 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0089 00c7 | | Action Elaborate_Subprogram 008a BODY_0008: 008a 00bc | | Action Signal_Activated 008b 00bb | | Action Signal_Completion 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00d1 | | Pop_Control Pop_Count_1 0094 00da | | Load_Top At_Offset_2 0095 01dc | | Execute Vector,Last 0096 00db | | Load_Top At_Offset_3 0097 01dd | | Execute Vector,First 0098 0263 | c | Execute Discrete,Above_Bound 0099 7006 |p | Jump_Nonzero 0xa0 009a 00d8 | | Load_Top At_Offset_0 009b e5ff | | Load 0x2,-0x1 009c 01d5 | | Execute Vector,Field_Reference 009d 1c00 | | Execute_Immediate Run_Utility,0x0 009e 0a01 | | Execute_Immediate Plus,0x1 009f 7ff8 | | Jump 0x98 00a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00a1 0000 0000 | | .XXX[0x3] 00a3 0000 | | 00a4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00cd | | .CONST 0x00cd ; Address of begin 00a9 0186 | | .CONST 0x0186 ; Address of exception handler 00aa 0009 | | .CONST 0x0009 ; Number of locals 00ab INIT_00a8: 00ab e001 | | Load 0x0,0x1 00ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ad 02c7 | | Declare_Variable Any 00ae 00d8 | | Load_Top At_Offset_0 00af 1c00 | | Execute_Immediate Run_Utility,0x0 00b0 e001 | | Load 0x0,0x1 00b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b2 02c7 | | Declare_Variable Any 00b3 00d8 | | Load_Top At_Offset_0 00b4 1c00 | | Execute_Immediate Run_Utility,0x0 00b5 e002 | | Load 0x0,0x2 00b6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b7 e002 | | Load 0x0,0x2 00b8 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00b9 02c7 | | Declare_Variable Any 00ba 00d8 | | Load_Top At_Offset_0 00bb 1c00 | | Execute_Immediate Run_Utility,0x0 00bc e002 | | Load 0x0,0x2 00bd 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00be 02c7 | | Declare_Variable Any 00bf 00d8 | | Load_Top At_Offset_0 00c0 1c00 | | Execute_Immediate Run_Utility,0x0 00c1 e002 | | Load 0x0,0x2 00c2 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00c3 02c7 | | Declare_Variable Any 00c4 00d8 | | Load_Top At_Offset_0 00c5 1c00 | | Execute_Immediate Run_Utility,0x0 00c6 e002 | | Load 0x0,0x2 00c7 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 00c8 02c7 | | Declare_Variable Any 00c9 00d8 | | Load_Top At_Offset_0 00ca 1c00 | | Execute_Immediate Run_Utility,0x0 00cb 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call 00cd BODY_00a8: 00cd 4800 |H | Short_Literal 0x0 00ce a5fd | | Store_Unchecked 0x2,-0x3 00cf 4800 |H | Short_Literal 0x0 00d0 a5fc | | Store_Unchecked 0x2,-0x4 00d1 4800 |H | Short_Literal 0x0 00d2 a5fb | | Store_Unchecked 0x2,-0x5 00d3 e5fe | | Load 0x2,-0x2 00d4 e5ff | | Load 0x2,-0x1 00d5 e003 | | Load 0x0,0x3 00d6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d7 7001 |p | Jump_Nonzero 0xd9 00d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d9 e5fe | | Load 0x2,-0x2 00da 4801 |H | Short_Literal 0x1 00db e5ff | | Load 0x2,-0x1 00dc e003 | | Load 0x0,0x3 00dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00de c402 | | Store 0x2,0x2 00df e5fe | | Load 0x2,-0x2 00e0 4801 |H | Short_Literal 0x1 00e1 e402 | | Load 0x2,0x2 00e2 e003 | | Load 0x0,0x3 00e3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00e4 c403 | | Store 0x2,0x3 00e5 e002 | | Load 0x0,0x2 00e6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00e7 e405 | | Load 0x2,0x5 00e8 0120 | | Execute Any,Is_Value 00e9 6803 |h | Jump_Zero 0xed 00ea e002 | | Load 0x0,0x2 00eb 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00ec 7801 |x | Jump 0xee 00ed e405 | | Load 0x2,0x5 00ee e004 | | Load 0x0,0x4 00ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f0 e403 | | Load 0x2,0x3 00f1 e003 | | Load 0x0,0x3 00f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f3 0092 082b | +| Action Push_String_Extended,0x82b ; ".state.cmvc_database" 00f5 01cc | | Execute Vector,Catenate 00f6 e002 | | Load 0x0,0x2 00f7 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00f8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f9 c405 | | Store 0x2,0x5 00fa c404 | | Store 0x2,0x4 00fb e404 | | Load 0x2,0x4 00fc e002 | | Load 0x0,0x2 00fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00fe 6817 |h | Jump_Zero 0x116 00ff e5fe | | Load 0x2,-0x2 0100 4801 |H | Short_Literal 0x1 0101 4801 |H | Short_Literal 0x1 0102 e005 | | Load 0x0,0x5 0103 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0104 035b | [ | Declare_Type Array,Constrained 0105 0337 | 7 | Declare_Variable Array 0106 e403 | | Load 0x2,0x3 0107 e003 | | Load 0x0,0x3 0108 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0109 e005 | | Load 0x0,0x5 010a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010b 0119 | | Execute Any,Check_In_Formal_Type 010c 4801 |H | Short_Literal 0x1 010d 00da | | Load_Top At_Offset_2 010e 01d6 | | Execute Vector,Field_Write 010f 6094 |` | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x000081c7} 0110 e006 | | Load 0x0,0x6 0111 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0112 6091 |` | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x000081c7} 0113 a5fb | | Store_Unchecked 0x2,-0x5 0114 e007 | | Load 0x0,0x7 0115 0257 | W | Execute Discrete,Raise 0116 e002 | | Load 0x0,0x2 0117 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0118 00db | | Load_Top At_Offset_3 0119 0120 | | Execute Any,Is_Value 011a 6803 |h | Jump_Zero 0x11e 011b e002 | | Load 0x0,0x2 011c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 011d 7801 |x | Jump 0x11f 011e 00db | | Load_Top At_Offset_3 011f e405 | | Load 0x2,0x5 0120 e402 | | Load 0x2,0x2 0121 e003 | | Load 0x0,0x3 0122 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0123 e001 | | Load 0x0,0x1 0124 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0125 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0126 e002 | | Load 0x0,0x2 0127 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0128 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0129 c407 | | Store 0x2,0x7 012a c404 | | Store 0x2,0x4 012b e404 | | Load 0x2,0x4 012c e002 | | Load 0x0,0x2 012d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 012e 6817 |h | Jump_Zero 0x146 012f e5fe | | Load 0x2,-0x2 0130 4801 |H | Short_Literal 0x1 0131 4801 |H | Short_Literal 0x1 0132 e005 | | Load 0x0,0x5 0133 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0134 035b | [ | Declare_Type Array,Constrained 0135 0337 | 7 | Declare_Variable Array 0136 e402 | | Load 0x2,0x2 0137 e003 | | Load 0x0,0x3 0138 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0139 e005 | | Load 0x0,0x5 013a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013b 0119 | | Execute Any,Check_In_Formal_Type 013c 4801 |H | Short_Literal 0x1 013d 00da | | Load_Top At_Offset_2 013e 01d6 | | Execute Vector,Field_Write 013f 6060 |`` | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x000081c8} 0140 e006 | | Load 0x0,0x6 0141 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0142 605d |`] | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x000081c8} 0143 a5fb | | Store_Unchecked 0x2,-0x5 0144 e007 | | Load 0x0,0x7 0145 0257 | W | Execute Discrete,Raise 0146 8409 | | Call 0x2,0x9 0147 e002 | | Load 0x0,0x2 0148 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0149 00da | | Load_Top At_Offset_2 014a 0120 | | Execute Any,Is_Value 014b 6803 |h | Jump_Zero 0x14f 014c e002 | | Load 0x0,0x2 014d 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 014e 7801 |x | Jump 0x150 014f 00da | | Load_Top At_Offset_2 0150 e407 | | Load 0x2,0x7 0151 e406 | | Load 0x2,0x6 0152 e002 | | Load 0x0,0x2 0153 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0154 180f | | Execute Package,Field_Execute,Field_Number 0xf 0155 c408 | | Store 0x2,0x8 0156 c404 | | Store 0x2,0x4 0157 e404 | | Load 0x2,0x4 0158 e002 | | Load 0x0,0x2 0159 1816 | | Execute Package,Field_Execute,Field_Number 0x16 015a 6817 |h | Jump_Zero 0x172 015b e5fe | | Load 0x2,-0x2 015c 4801 |H | Short_Literal 0x1 015d 4801 |H | Short_Literal 0x1 015e e005 | | Load 0x0,0x5 015f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0160 035b | [ | Declare_Type Array,Constrained 0161 0337 | 7 | Declare_Variable Array 0162 e5ff | | Load 0x2,-0x1 0163 e003 | | Load 0x0,0x3 0164 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0165 e005 | | Load 0x0,0x5 0166 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0167 0119 | | Execute Any,Check_In_Formal_Type 0168 4801 |H | Short_Literal 0x1 0169 00da | | Load_Top At_Offset_2 016a 01d6 | | Execute Vector,Field_Write 016b 6030 |`0 | Indirect_Literal Discrete,0x19c,{0x00000000, 0x000081c9} 016c e006 | | Load 0x0,0x6 016d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 016e 602d |`- | Indirect_Literal Discrete,0x19c,{0x00000000, 0x000081c9} 016f a5fb | | Store_Unchecked 0x2,-0x5 0170 e007 | | Load 0x0,0x7 0171 0257 | W | Execute Discrete,Raise 0172 00da | | Load_Top At_Offset_2 0173 e406 | | Load 0x2,0x6 0174 e002 | | Load 0x0,0x2 0175 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0176 180d | | Execute Package,Field_Execute,Field_Number 0xd 0177 a5fd | | Store_Unchecked 0x2,-0x3 0178 00d9 | | Load_Top At_Offset_1 0179 e002 | | Load 0x0,0x2 017a 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 017b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017c a5fc | | Store_Unchecked 0x2,-0x4 017d e002 | | Load 0x0,0x2 017e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 017f 4800 |H | Short_Literal 0x0 0180 e405 | | Load 0x2,0x5 0181 e002 | | Load 0x0,0x2 0182 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0183 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0184 c404 | | Store 0x2,0x4 0185 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0186 TRAP_00a8: 0186 e007 | | Load 0x0,0x7 0187 010f | | Execute Exception,Equal 0188 6809 |h | Jump_Zero 0x192 0189 e002 | | Load 0x0,0x2 018a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 018b 4800 |H | Short_Literal 0x0 018c e405 | | Load 0x2,0x5 018d e002 | | Load 0x0,0x2 018e 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 018f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0190 c404 | | Store 0x2,0x4 0191 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0192 6005 |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x0000813b} 0193 a5fb | | Store_Unchecked 0x2,-0x5 0194 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 019c 0000 0000 | | .LITERAL {0x00000000, 0x000081c9} 01a0 0000 0000 | | .LITERAL {0x00000000, 0x000081c8} 01a4 0000 0000 | | .LITERAL {0x00000000, 0x000081c7} 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ba | | .CONST 0x01ba ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0005 | | .CONST 0x0005 ; Number of locals 01ab INIT_01a8: 01ab e001 | | Load 0x0,0x1 01ac 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01ad 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01ae 02c7 | | Declare_Variable Any 01af 00d8 | | Load_Top At_Offset_0 01b0 1c00 | | Execute_Immediate Run_Utility,0x0 01b1 4800 |H | Short_Literal 0x0 01b2 e210 | | Load 0x1,0x10 01b3 1c08 | | Execute_Immediate Run_Utility,0x8 01b4 00d8 | | Load_Top At_Offset_0 01b5 1c00 | | Execute_Immediate Run_Utility,0x0 01b6 00e2 | | Load_Encached Integer_Cache 01b7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01b8 029f 058b | | Declare_Subprogram INIT_0588,For_Call 01ba BODY_01a8: 01ba e5ff | | Load 0x2,-0x1 01bb e003 | | Load 0x0,0x3 01bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01bd 0092 082c | ,| Action Push_String_Extended,0x82c ; ".units.??'c(~library)" 01bf 01cc | | Execute Vector,Catenate 01c0 8220 | | Call 0x1,0x20 01c1 c402 | | Store 0x2,0x2 01c2 00db | | Load_Top At_Offset_3 01c3 8222 | " | Call 0x1,0x22 01c4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01c5 00d9 | | Load_Top At_Offset_1 01c6 0c01 | | Execute_Immediate Greater_Equal,0x1 01c7 6801 |h | Jump_Zero 0x1c9 01c8 8405 | | Call 0x2,0x5 01c9 00da | | Load_Top At_Offset_2 01ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 01f4 | | .CONST 0x01f4 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4800 |H | Short_Literal 0x0 01d4 a5f8 | | Store_Unchecked 0x2,-0x8 01d5 e5f9 | | Load 0x2,-0x7 01d6 e5fc | | Load 0x2,-0x4 01d7 e5fd | | Load 0x2,-0x3 01d8 8226 | & | Call 0x1,0x26 01d9 e5f9 | | Load 0x2,-0x7 01da e5fb | | Load 0x2,-0x5 01db e5fa | | Load 0x2,-0x6 01dc e5fd | | Load 0x2,-0x3 01dd e5fe | | Load 0x2,-0x2 01de e5ff | | Load 0x2,-0x1 01df 8229 | ) | Call 0x1,0x29 01e0 e5f9 | | Load 0x2,-0x7 01e1 e5fb | | Load 0x2,-0x5 01e2 e5fa | | Load 0x2,-0x6 01e3 e5fd | | Load 0x2,-0x3 01e4 e5fe | | Load 0x2,-0x2 01e5 e5ff | | Load 0x2,-0x1 01e6 8228 | ( | Call 0x1,0x28 01e7 e006 | | Load 0x0,0x6 01e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e9 e5f9 | | Load 0x2,-0x7 01ea e5fe | | Load 0x2,-0x2 01eb e003 | | Load 0x0,0x3 01ec 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ed 0092 082d | -| Action Push_String_Extended,0x82d ; ".units" 01ef 01cc | | Execute Vector,Catenate 01f0 e008 | | Load 0x0,0x8 01f1 1884 | | Execute Package,Field_Execute,Field_Number 0x84 01f2 c5f8 | | Store 0x2,-0x8 01f3 4508 |E | Exit_Suprogram New_Top_Offset 0x8 01f4 TRAP_01d0: 01f4 0007 | | Action Break_Optional 01f5 6002 |` | Indirect_Literal Discrete,0x1f8,{0x00000000, 0x0000813b} 01f6 a5f8 | | Store_Unchecked 0x2,-0x8 01f7 4508 |E | Exit_Suprogram New_Top_Offset 0x8 01f8 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 01fc 0000 0000 | | .BLANK 0000[0x4] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0217 | | .CONST 0x0217 ; Address of begin 0201 0223 | # | .CONST 0x0223 ; Address of exception handler 0202 0007 | | .CONST 0x0007 ; Number of locals 0203 INIT_0200: 0203 4800 |H | Short_Literal 0x0 0204 e210 | | Load 0x1,0x10 0205 1c08 | | Execute_Immediate Run_Utility,0x8 0206 00d8 | | Load_Top At_Offset_0 0207 1c00 | | Execute_Immediate Run_Utility,0x0 0208 e001 | | Load 0x0,0x1 0209 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 020a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 020b 02c7 | | Declare_Variable Any 020c 00d8 | | Load_Top At_Offset_0 020d 1c00 | | Execute_Immediate Run_Utility,0x0 020e 00e2 | | Load_Encached Integer_Cache 020f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0210 00e1 | | Load_Encached Boolean_Cache 0211 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0212 e006 | | Load 0x0,0x6 0213 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0214 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0215 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call 0217 BODY_0200: 0217 e5ff | | Load 0x2,-0x1 0218 8220 | | Call 0x1,0x20 0219 c403 | | Store 0x2,0x3 021a e403 | | Load 0x2,0x3 021b 8222 | " | Call 0x1,0x22 021c a404 | | Store_Unchecked 0x2,0x4 021d 00db | | Load_Top At_Offset_3 021e 0c01 | | Execute_Immediate Greater_Equal,0x1 021f 6801 |h | Jump_Zero 0x221 0220 8407 | | Call 0x2,0x7 0221 e402 | | Load 0x2,0x2 0222 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0223 TRAP_0200: 0223 0007 | | Action Break_Optional 0224 e402 | | Load 0x2,0x2 0225 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 023f | ? | .CONST 0x023f ; Address of begin 0229 024b | K | .CONST 0x024b ; Address of exception handler 022a 0007 | | .CONST 0x0007 ; Number of locals 022b INIT_0228: 022b 4800 |H | Short_Literal 0x0 022c e210 | | Load 0x1,0x10 022d 1c08 | | Execute_Immediate Run_Utility,0x8 022e 00d8 | | Load_Top At_Offset_0 022f 1c00 | | Execute_Immediate Run_Utility,0x0 0230 e001 | | Load 0x0,0x1 0231 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0232 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0233 02c7 | | Declare_Variable Any 0234 00d8 | | Load_Top At_Offset_0 0235 1c00 | | Execute_Immediate Run_Utility,0x0 0236 00e2 | | Load_Encached Integer_Cache 0237 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0238 00e1 | | Load_Encached Boolean_Cache 0239 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 023a e006 | | Load 0x0,0x6 023b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 023d 029f 0643 | C| Declare_Subprogram INIT_0640,For_Call 023f BODY_0228: 023f e5ff | | Load 0x2,-0x1 0240 8220 | | Call 0x1,0x20 0241 c403 | | Store 0x2,0x3 0242 e403 | | Load 0x2,0x3 0243 8222 | " | Call 0x1,0x22 0244 a404 | | Store_Unchecked 0x2,0x4 0245 00db | | Load_Top At_Offset_3 0246 0c01 | | Execute_Immediate Greater_Equal,0x1 0247 6801 |h | Jump_Zero 0x249 0248 8407 | | Call 0x2,0x7 0249 e402 | | Load 0x2,0x2 024a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 024b TRAP_0228: 024b 0007 | | Action Break_Optional 024c e402 | | Load 0x2,0x2 024d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 024e 0000 0000 | | .XXX[0x2] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0266 | f | .CONST 0x0266 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 4800 |H | Short_Literal 0x0 0254 a5fc | | Store_Unchecked 0x2,-0x4 0255 00cf | | Action Mark_Auxiliary 0256 00db | | Load_Top At_Offset_3 0257 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0258 4801 |H | Short_Literal 0x1 0259 0263 | c | Execute Discrete,Above_Bound 025a 700a |p | Jump_Nonzero 0x265 025b e5fd | | Load 0x2,-0x3 025c e5fe | | Load 0x2,-0x2 025d 00da | | Load_Top At_Offset_2 025e e5ff | | Load 0x2,-0x1 025f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0260 01d5 | | Execute Vector,Field_Reference 0261 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0262 8224 | $ | Call 0x1,0x24 0263 00c8 | | Action Pop_Auxiliary_Range 0264 3ff6 |? | Loop_Increasing 0x25b 0265 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0266 TRAP_0250: 0266 0007 | | Action Break_Optional 0267 6004 |` | Indirect_Literal Discrete,0x26c,{0x00000000, 0x0000813b} 0268 a5fc | | Store_Unchecked 0x2,-0x4 0269 4504 |E | Exit_Suprogram New_Top_Offset 0x4 026a 0000 0000 | | .XXX[0x2] 026c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0278 | x | .CONST 0x0278 ; Address of begin 0271 0299 | | .CONST 0x0299 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 e001 | | Load 0x0,0x1 0274 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0275 02c7 | | Declare_Variable Any 0276 00d8 | | Load_Top At_Offset_0 0277 1c00 | | Execute_Immediate Run_Utility,0x0 0278 BODY_0270: 0278 4800 |H | Short_Literal 0x0 0279 a5fb | | Store_Unchecked 0x2,-0x5 027a e5fe | | Load 0x2,-0x2 027b 7001 |p | Jump_Nonzero 0x27d 027c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 027d 00cf | | Action Mark_Auxiliary 027e e5ff | | Load 0x2,-0x1 027f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0280 4801 |H | Short_Literal 0x1 0281 0263 | c | Execute Discrete,Above_Bound 0282 7015 |p | Jump_Nonzero 0x298 0283 00d8 | | Load_Top At_Offset_0 0284 e5ff | | Load 0x2,-0x1 0285 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0286 01d5 | | Execute Vector,Field_Reference 0287 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0288 c402 | | Store 0x2,0x2 0289 00d8 | | Load_Top At_Offset_0 028a e5ff | | Load 0x2,-0x1 028b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 028c 01d5 | | Execute Vector,Field_Reference 028d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028e e402 | | Load 0x2,0x2 028f 821d | | Call 0x1,0x1d 0290 027d | } | Execute Discrete,Greater 0291 6804 |h | Jump_Zero 0x296 0292 e5fc | | Load 0x2,-0x4 0293 e5fd | | Load 0x2,-0x3 0294 e402 | | Load 0x2,0x2 0295 8225 | % | Call 0x1,0x25 0296 00c8 | | Action Pop_Auxiliary_Range 0297 3feb |? | Loop_Increasing 0x283 0298 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0299 TRAP_0270: 0299 0007 | | Action Break_Optional 029a 67d1 |g | Indirect_Literal Discrete,0x26c,{0x00000000, 0x0000813b} 029b a5fb | | Store_Unchecked 0x2,-0x5 029c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 029d 0000 0000 | | .XXX[0x3] 029f 0000 | | 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02ad | | .CONST 0x02ad ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0003 | | .CONST 0x0003 ; Number of locals 02a3 INIT_02a0: 02a3 00db | | Load_Top At_Offset_3 02a4 4801 |H | Short_Literal 0x1 02a5 e5ff | | Load 0x2,-0x1 02a6 e003 | | Load 0x0,0x3 02a7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02a8 e003 | | Load 0x0,0x3 02a9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02aa 00db | | Load_Top At_Offset_3 02ab e003 | | Load 0x0,0x3 02ac 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02ad BODY_02a0: 02ad 00d8 | | Load_Top At_Offset_0 02ae 01dd | | Execute Vector,First 02af 00da | | Load_Top At_Offset_2 02b0 01db | | Execute Vector,Length 02b1 0273 | s | Execute Discrete,Plus 02b2 0a01 | | Execute_Immediate Plus,0x1 02b3 00d8 | | Load_Top At_Offset_0 02b4 00e2 | | Load_Encached Integer_Cache 02b5 0260 | ` | Execute Discrete,In_Type 02b6 7001 |p | Jump_Nonzero 0x2b8 02b7 0801 | | Execute_Immediate Raise,0x1 02b8 00d9 | | Load_Top At_Offset_1 02b9 01dc | | Execute Vector,Last 02ba 00da | | Load_Top At_Offset_2 02bb 01cf | | Execute Vector,Slice_Read 02bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02bd 0000 0000 | | .XXX[0x3] 02bf 0000 | | 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c8 | | .CONST 0x02c8 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0003 | | .CONST 0x0003 ; Number of locals 02c3 INIT_02c0: 02c3 e001 | | Load 0x0,0x1 02c4 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 02c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c6 e001 | | Load 0x0,0x1 02c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c8 BODY_02c0: 02c8 e001 | | Load 0x0,0x1 02c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ca e001 | | Load 0x0,0x1 02cb 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 02cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02cd 600e |` | Indirect_Literal Discrete,0x2dc,{0x00000000, 0x00004000} 02ce e004 | | Load 0x0,0x4 02cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d0 4800 |H | Short_Literal 0x0 02d1 e5ff | | Load 0x2,-0x1 02d2 e001 | | Load 0x0,0x1 02d3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d5 e001 | | Load 0x0,0x1 02d6 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 02d7 180f | | Execute Package,Field_Execute,Field_Number 0xf 02d8 005b | [ | Store_Top Discrete,At_Offset_3 02d9 0059 | Y | Store_Top Discrete,At_Offset_1 02da 00d9 | | Load_Top At_Offset_1 02db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02dc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02ee | | .CONST 0x02ee ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0005 | | .CONST 0x0005 ; Number of locals 02e3 INIT_02e0: 02e3 e001 | | Load 0x0,0x1 02e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02e5 02c7 | | Declare_Variable Any 02e6 00d8 | | Load_Top At_Offset_0 02e7 1c00 | | Execute_Immediate Run_Utility,0x0 02e8 e006 | | Load 0x0,0x6 02e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ea 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02eb 00e1 | | Load_Encached Boolean_Cache 02ec 029f 06bb | | Declare_Subprogram INIT_06b8,For_Call 02ee BODY_02e0: 02ee e5ff | | Load 0x2,-0x1 02ef e001 | | Load 0x0,0x1 02f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02f1 012f | / | Execute Any,Equal 02f2 6801 |h | Jump_Zero 0x2f4 02f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02f4 e5fd | | Load 0x2,-0x3 02f5 e003 | | Load 0x0,0x3 02f6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02f7 e009 | | Load 0x0,0x9 02f8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02f9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02fa 6801 |h | Jump_Zero 0x2fc 02fb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02fc 8405 | | Call 0x2,0x5 02fd e006 | | Load 0x0,0x6 02fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ff e5fc | | Load 0x2,-0x4 0300 e5fe | | Load 0x2,-0x2 0301 e003 | | Load 0x0,0x3 0302 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0303 0092 082d | -| Action Push_String_Extended,0x82d ; ".units" 0305 01cc | | Execute Vector,Catenate 0306 e008 | | Load 0x0,0x8 0307 1883 | | Execute Package,Field_Execute,Field_Number 0x83 0308 005b | [ | Store_Top Discrete,At_Offset_3 0309 e006 | | Load 0x0,0x6 030a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030b e5fc | | Load 0x2,-0x4 030c e5fe | | Load 0x2,-0x2 030d e003 | | Load 0x0,0x3 030e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 030f 0092 082d | -| Action Push_String_Extended,0x82d ; ".units" 0311 01cc | | Execute Vector,Catenate 0312 e008 | | Load 0x0,0x8 0313 1884 | | Execute Package,Field_Execute,Field_Number 0x84 0314 005b | [ | Store_Top Discrete,At_Offset_3 0315 4800 |H | Short_Literal 0x0 0316 00db | | Load_Top At_Offset_3 0317 e006 | | Load 0x0,0x6 0318 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0319 7003 |p | Jump_Nonzero 0x31d 031a e006 | | Load 0x0,0x6 031b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 031c 0257 | W | Execute Discrete,Raise 031d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 031e 0000 0000 | | .XXX[0x2] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0328 | ( | .CONST 0x0328 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0003 | | .CONST 0x0003 ; Number of locals 0323 INIT_0320: 0323 e001 | | Load 0x0,0x1 0324 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0325 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0326 e001 | | Load 0x0,0x1 0327 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0328 BODY_0320: 0328 e001 | | Load 0x0,0x1 0329 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032a e001 | | Load 0x0,0x1 032b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 032c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032d 6012 |` | Indirect_Literal Discrete,0x340,{0x00000000, 0x00004000} 032e e004 | | Load 0x0,0x4 032f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0330 4800 |H | Short_Literal 0x0 0331 e5ff | | Load 0x2,-0x1 0332 e001 | | Load 0x0,0x1 0333 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0334 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0335 e001 | | Load 0x0,0x1 0336 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0337 180f | | Execute Package,Field_Execute,Field_Number 0xf 0338 005b | [ | Store_Top Discrete,At_Offset_3 0339 0059 | Y | Store_Top Discrete,At_Offset_1 033a 00d9 | | Load_Top At_Offset_1 033b 0f04 | | Execute_Immediate Equal,0x4 033c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033d 0000 0000 | | .XXX[0x3] 033f 0000 | | 0340 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0344 0000 0000 | | .BLANK 0000[0x4] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0354 | T | .CONST 0x0354 ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0003 | | .CONST 0x0003 ; Number of locals 034b INIT_0348: 034b e001 | | Load 0x0,0x1 034c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 034d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 034e 02c7 | | Declare_Variable Any 034f 00d8 | | Load_Top At_Offset_0 0350 1c00 | | Execute_Immediate Run_Utility,0x0 0351 e001 | | Load 0x0,0x1 0352 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0353 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0354 BODY_0348: 0354 e001 | | Load 0x0,0x1 0355 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0356 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0357 00da | | Load_Top At_Offset_2 0358 67e7 |g | Indirect_Literal Discrete,0x340,{0x00000000, 0x00004000} 0359 e004 | | Load 0x0,0x4 035a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035b e00a | | Load 0x0,0xa 035c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 035d e00b | | Load 0x0,0xb 035e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 035f 4801 |H | Short_Literal 0x1 0360 4800 |H | Short_Literal 0x0 0361 e00a | | Load 0x0,0xa 0362 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0363 e001 | | Load 0x0,0x1 0364 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0365 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0366 e5ff | | Load 0x2,-0x1 0367 e001 | | Load 0x0,0x1 0368 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0369 181b | | Execute Package,Field_Execute,Field_Number 0x1b 036a c402 | | Store 0x2,0x2 036b 0059 | Y | Store_Top Discrete,At_Offset_1 036c 00d8 | | Load_Top At_Offset_0 036d 0e00 | | Execute_Immediate Not_Equal,0x0 036e 00d9 | | Load_Top At_Offset_1 036f 0e03 | | Execute_Immediate Not_Equal,0x3 0370 0279 | y | Execute Discrete,And 0371 6804 |h | Jump_Zero 0x376 0372 e001 | | Load 0x0,0x1 0373 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0374 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0375 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0376 00d9 | | Load_Top At_Offset_1 0377 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 0381 | | .CONST 0x0381 ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0004 | | .CONST 0x0004 ; Number of locals 037b INIT_0378: 037b 00e2 | | Load_Encached Integer_Cache 037c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 037d 03e9 | | Declare_Variable Discrete,Duplicate 037e e006 | | Load 0x0,0x6 037f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0380 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0381 BODY_0378: 0381 e006 | | Load 0x0,0x6 0382 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0383 00e3 | | Load_Encached Natural_Cache 0384 00e3 | | Load_Encached Natural_Cache 0385 e5fe | | Load 0x2,-0x2 0386 e5ff | | Load 0x2,-0x1 0387 8216 | | Call 0x1,0x16 0388 c402 | | Store 0x2,0x2 0389 005b | [ | Store_Top Discrete,At_Offset_3 038a 0059 | Y | Store_Top Discrete,At_Offset_1 038b 4800 |H | Short_Literal 0x0 038c 00d9 | | Load_Top At_Offset_1 038d e006 | | Load 0x0,0x6 038e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 038f 7002 |p | Jump_Nonzero 0x392 0390 4800 |H | Short_Literal 0x0 0391 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0392 00da | | Load_Top At_Offset_2 0393 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0394 0000 0000 | | .BLANK 0000[0x4] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a3 | | .CONST 0x03a3 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0003 | | .CONST 0x0003 ; Number of locals 039b INIT_0398: 039b 00e2 | | Load_Encached Integer_Cache 039c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 039d e001 | | Load 0x0,0x1 039e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 039f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 03a0 02c7 | | Declare_Variable Any 03a1 e5ff | | Load 0x2,-0x1 03a2 a403 | | Store_Unchecked 0x2,0x3 03a3 BODY_0398: 03a3 00d8 | | Load_Top At_Offset_0 03a4 e001 | | Load 0x0,0x1 03a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03a6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03a7 6802 |h | Jump_Zero 0x3aa 03a8 4800 |H | Short_Literal 0x0 03a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03aa 00d8 | | Load_Top At_Offset_0 03ab e001 | | Load 0x0,0x1 03ac 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03ad 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03ae c403 | | Store 0x2,0x3 03af 00cf | | Action Mark_Auxiliary 03b0 7809 |x | Jump 0x3ba 03b1 00da | | Load_Top At_Offset_2 03b2 0a01 | | Execute_Immediate Plus,0x1 03b3 005b | [ | Store_Top Discrete,At_Offset_3 03b4 00d9 | | Load_Top At_Offset_1 03b5 e001 | | Load 0x0,0x1 03b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03b7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03b8 c403 | | Store 0x2,0x3 03b9 00c9 | | Action Pop_Auxiliary_Loop 03ba 00d9 | | Load_Top At_Offset_1 03bb e001 | | Load 0x0,0x1 03bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03bd 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03be 6ff2 |o | Jump_Zero 0x3b1 03bf 00ce | | Action Pop_Auxiliary 03c0 00d8 | | Load_Top At_Offset_0 03c1 e001 | | Load 0x0,0x1 03c2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03c3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03c4 c403 | | Store 0x2,0x3 03c5 00d9 | | Load_Top At_Offset_1 03c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c7 0000 | | .XXX[0x1] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb e004 | | Load 0x0,0x4 03cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03cd 00db | | Load_Top At_Offset_3 03ce e00c | | Load 0x0,0xc 03cf 180d | | Execute Package,Field_Execute,Field_Number 0xd 03d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d1 0000 0000 | | .BLANK 0000[0x7] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 00da | | Load_Top At_Offset_2 03dc 821f | | Call 0x1,0x1f 03dd 682a |h* | Jump_Zero 0x408 03de 00db | | Load_Top At_Offset_3 03df 7016 |p | Jump_Nonzero 0x3f6 03e0 e5fd | | Load 0x2,-0x3 03e1 4801 |H | Short_Literal 0x1 03e2 4801 |H | Short_Literal 0x1 03e3 e005 | | Load 0x0,0x5 03e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03e5 035b | [ | Declare_Type Array,Constrained 03e6 0337 | 7 | Declare_Variable Array 03e7 e5ff | | Load 0x2,-0x1 03e8 e003 | | Load 0x0,0x3 03e9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03ea e005 | | Load 0x0,0x5 03eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ec 0119 | | Execute Any,Check_In_Formal_Type 03ed 4801 |H | Short_Literal 0x1 03ee 00da | | Load_Top At_Offset_2 03ef 01d6 | | Execute Vector,Field_Write 03f0 601b |` | Indirect_Literal Discrete,0x40c,{0x00000000, 0x000081ca} 03f1 e006 | | Load 0x0,0x6 03f2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03f3 e006 | | Load 0x0,0x6 03f4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03f5 0257 | W | Execute Discrete,Raise 03f6 4801 |H | Short_Literal 0x1 03f7 4801 |H | Short_Literal 0x1 03f8 4800 |H | Short_Literal 0x0 03f9 4801 |H | Short_Literal 0x1 03fa e5fd | | Load 0x2,-0x3 03fb e003 | | Load 0x0,0x3 03fc 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 03fd e00d | | Load 0x0,0xd 03fe 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 03ff 4800 |H | Short_Literal 0x0 0400 0092 082e | .| Action Push_String_Extended,0x82e ; "<ALL_WORLDS>" 0402 4802 |H | Short_Literal 0x2 0403 e5ff | | Load 0x2,-0x1 0404 e003 | | Load 0x0,0x3 0405 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0406 e00e | | Load 0x0,0xe 0407 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0408 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0409 0000 0000 | | .XXX[0x3] 040b 0000 | | 040c 0000 0000 | | .LITERAL {0x00000000, 0x000081ca} 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 4800 |H | Short_Literal 0x0 0414 4801 |H | Short_Literal 0x1 0415 4800 |H | Short_Literal 0x0 0416 4801 |H | Short_Literal 0x1 0417 e5fd | | Load 0x2,-0x3 0418 e003 | | Load 0x0,0x3 0419 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 041a e00d | | Load 0x0,0xd 041b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 041c 4800 |H | Short_Literal 0x0 041d 0092 082f | /| Action Push_String_Extended,0x82f ; "<WORLDS>" 041f e5fe | | Load 0x2,-0x2 0420 4803 |H | Short_Literal 0x3 0421 e5ff | | Load 0x2,-0x1 0422 e003 | | Load 0x0,0x3 0423 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0424 e00e | | Load 0x0,0xe 0425 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0426 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0427 0000 | | .XXX[0x1] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 0436 | 6 | .CONST 0x0436 ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0004 | | .CONST 0x0004 ; Number of locals 042b INIT_0428: 042b e001 | | Load 0x0,0x1 042c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 042d 02c7 | | Declare_Variable Any 042e 00d8 | | Load_Top At_Offset_0 042f 1c00 | | Execute_Immediate Run_Utility,0x0 0430 e001 | | Load 0x0,0x1 0431 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0432 02c7 | | Declare_Variable Any 0433 00d8 | | Load_Top At_Offset_0 0434 1c00 | | Execute_Immediate Run_Utility,0x0 0435 00e1 | | Load_Encached Boolean_Cache 0436 BODY_0428: 0436 00cf | | Action Mark_Auxiliary 0437 e5ff | | Load 0x2,-0x1 0438 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0439 4801 |H | Short_Literal 0x1 043a 0263 | c | Execute Discrete,Above_Bound 043b 702a |p* | Jump_Nonzero 0x466 043c 00d8 | | Load_Top At_Offset_0 043d e5ff | | Load 0x2,-0x1 043e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 043f 01d5 | | Execute Vector,Field_Reference 0440 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0441 c402 | | Store 0x2,0x2 0442 00d8 | | Load_Top At_Offset_0 0443 e5ff | | Load 0x2,-0x1 0444 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0445 01d5 | | Execute Vector,Field_Reference 0446 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0447 e5fd | | Load 0x2,-0x3 0448 e402 | | Load 0x2,0x2 0449 8221 | ! | Call 0x1,0x21 044a 027c | | | Execute Discrete,Less 044b 6818 |h | Jump_Zero 0x464 044c e402 | | Load 0x2,0x2 044d e003 | | Load 0x0,0x3 044e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 044f 7014 |p | Jump_Nonzero 0x464 0450 00e1 | | Load_Encached Boolean_Cache 0451 e403 | | Load 0x2,0x3 0452 0120 | | Execute Any,Is_Value 0453 6803 |h | Jump_Zero 0x457 0454 e001 | | Load 0x0,0x1 0455 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0456 7801 |x | Jump 0x458 0457 e403 | | Load 0x2,0x3 0458 e5fd | | Load 0x2,-0x3 0459 e402 | | Load 0x2,0x2 045a e008 | | Load 0x0,0x8 045b 1887 | | Execute Package,Field_Execute,Field_Number 0x87 045c c403 | | Store 0x2,0x3 045d c404 | | Store 0x2,0x4 045e 00db | | Load_Top At_Offset_3 045f 6804 |h | Jump_Zero 0x464 0460 e5fd | | Load 0x2,-0x3 0461 e5fe | | Load 0x2,-0x2 0462 e403 | | Load 0x2,0x3 0463 8224 | $ | Call 0x1,0x24 0464 00c8 | | Action Pop_Auxiliary_Range 0465 3fd6 |? | Loop_Increasing 0x43c 0466 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0467 0000 | | .XXX[0x1] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b 00cf | | Action Mark_Auxiliary 046c e5fe | | Load 0x2,-0x2 046d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 046e 4801 |H | Short_Literal 0x1 046f 0263 | c | Execute Discrete,Above_Bound 0470 700c |p | Jump_Nonzero 0x47d 0471 e5ff | | Load 0x2,-0x1 0472 00d9 | | Load_Top At_Offset_1 0473 e5fe | | Load 0x2,-0x2 0474 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0475 01d5 | | Execute Vector,Field_Reference 0476 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0477 012f | / | Execute Any,Equal 0478 6802 |h | Jump_Zero 0x47b 0479 4801 |H | Short_Literal 0x1 047a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 047b 00c8 | | Action Pop_Auxiliary_Range 047c 3ff4 |? | Loop_Increasing 0x471 047d 00ce | | Action Pop_Auxiliary 047e 4800 |H | Short_Literal 0x0 047f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 048e | | .CONST 0x048e ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0003 | | .CONST 0x0003 ; Number of locals 0483 INIT_0480: 0483 e001 | | Load 0x0,0x1 0484 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0485 02c7 | | Declare_Variable Any 0486 00d8 | | Load_Top At_Offset_0 0487 1c00 | | Execute_Immediate Run_Utility,0x0 0488 e001 | | Load 0x0,0x1 0489 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 048a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 048b 02c7 | | Declare_Variable Any 048c 00d8 | | Load_Top At_Offset_0 048d 1c00 | | Execute_Immediate Run_Utility,0x0 048e BODY_0480: 048e e5fe | | Load 0x2,-0x2 048f e003 | | Load 0x0,0x3 0490 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0491 0092 0830 | 0| Action Push_String_Extended,0x830 ; ".units.??'c(ada)'if(controlled)" 0493 01cc | | Execute Vector,Catenate 0494 8220 | | Call 0x1,0x20 0495 c403 | | Store 0x2,0x3 0496 00cf | | Action Mark_Auxiliary 0497 781b |x | Jump 0x4b3 0498 e5fa | | Load 0x2,-0x6 0499 4801 |H | Short_Literal 0x1 049a 00db | | Load_Top At_Offset_3 049b e003 | | Load 0x0,0x3 049c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 049d c402 | | Store 0x2,0x2 049e e5fd | | Load 0x2,-0x3 049f 00db | | Load_Top At_Offset_3 04a0 8227 | ' | Call 0x1,0x27 04a1 700b |p | Jump_Nonzero 0x4ad 04a2 e5fa | | Load 0x2,-0x6 04a3 00db | | Load_Top At_Offset_3 04a4 e5fe | | Load 0x2,-0x2 04a5 e5ff | | Load 0x2,-0x1 04a6 821e | | Call 0x1,0x1e 04a7 e5fb | | Load 0x2,-0x5 04a8 6804 |h | Jump_Zero 0x4ad 04a9 e5fa | | Load 0x2,-0x6 04aa e5fc | | Load 0x2,-0x4 04ab e402 | | Load 0x2,0x2 04ac 8225 | % | Call 0x1,0x25 04ad 00d9 | | Load_Top At_Offset_1 04ae e001 | | Load 0x0,0x1 04af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04b1 c403 | | Store 0x2,0x3 04b2 00c9 | | Action Pop_Auxiliary_Loop 04b3 00d9 | | Load_Top At_Offset_1 04b4 e001 | | Load 0x0,0x1 04b5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04b7 6fe0 |o | Jump_Zero 0x498 04b8 4507 |E | Exit_Suprogram New_Top_Offset 0x7 04b9 0000 0000 | | .BLANK 0000[0x7] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c8 | | .CONST 0x04c8 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0002 | | .CONST 0x0002 ; Number of locals 04c3 INIT_04c0: 04c3 e001 | | Load 0x0,0x1 04c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04c5 02c7 | | Declare_Variable Any 04c6 00d8 | | Load_Top At_Offset_0 04c7 1c00 | | Execute_Immediate Run_Utility,0x0 04c8 BODY_04c0: 04c8 00cf | | Action Mark_Auxiliary 04c9 e5fd | | Load 0x2,-0x3 04ca 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04cb 4801 |H | Short_Literal 0x1 04cc 0263 | c | Execute Discrete,Above_Bound 04cd 7031 |p1 | Jump_Nonzero 0x4ff 04ce 00d8 | | Load_Top At_Offset_0 04cf e5fd | | Load 0x2,-0x3 04d0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04d1 01d5 | | Execute Vector,Field_Reference 04d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04d3 c402 | | Store 0x2,0x2 04d4 00db | | Load_Top At_Offset_3 04d5 e003 | | Load 0x0,0x3 04d6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 04d7 6825 |h% | Jump_Zero 0x4fd 04d8 00d8 | | Load_Top At_Offset_0 04d9 e5fd | | Load 0x2,-0x3 04da 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04db 01d5 | | Execute Vector,Field_Reference 04dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04dd e5fa | | Load 0x2,-0x6 04de e402 | | Load 0x2,0x2 04df 8221 | ! | Call 0x1,0x21 04e0 027c | | | Execute Discrete,Less 04e1 680c |h | Jump_Zero 0x4ee 04e2 e5fa | | Load 0x2,-0x6 04e3 e402 | | Load 0x2,0x2 04e4 e5fe | | Load 0x2,-0x2 04e5 e5ff | | Load 0x2,-0x1 04e6 821e | | Call 0x1,0x1e 04e7 e5fb | | Load 0x2,-0x5 04e8 6814 |h | Jump_Zero 0x4fd 04e9 e5fa | | Load 0x2,-0x6 04ea e5fc | | Load 0x2,-0x4 04eb e402 | | Load 0x2,0x2 04ec 8225 | % | Call 0x1,0x25 04ed 780f |x | Jump 0x4fd 04ee 00d8 | | Load_Top At_Offset_0 04ef e5fd | | Load 0x2,-0x3 04f0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 04f1 01d5 | | Execute Vector,Field_Reference 04f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04f3 e402 | | Load 0x2,0x2 04f4 821d | | Call 0x1,0x1d 04f5 027d | } | Execute Discrete,Greater 04f6 6806 |h | Jump_Zero 0x4fd 04f7 e5fb | | Load 0x2,-0x5 04f8 6804 |h | Jump_Zero 0x4fd 04f9 e5fa | | Load 0x2,-0x6 04fa e5fc | | Load 0x2,-0x4 04fb e402 | | Load 0x2,0x2 04fc 8225 | % | Call 0x1,0x25 04fd 00c8 | | Action Pop_Auxiliary_Range 04fe 3fcf |? | Loop_Increasing 0x4ce 04ff 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0515 | | .CONST 0x0515 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0007 | | .CONST 0x0007 ; Number of locals 0503 INIT_0500: 0503 e001 | | Load 0x0,0x1 0504 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0505 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0506 02c7 | | Declare_Variable Any 0507 00d8 | | Load_Top At_Offset_0 0508 1c00 | | Execute_Immediate Run_Utility,0x0 0509 e001 | | Load 0x0,0x1 050a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 050b 02c7 | | Declare_Variable Any 050c 00d8 | | Load_Top At_Offset_0 050d 1c00 | | Execute_Immediate Run_Utility,0x0 050e e006 | | Load 0x0,0x6 050f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0510 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0511 00e2 | | Load_Encached Integer_Cache 0512 00e1 | | Load_Encached Boolean_Cache 0513 029f 0763 | c| Declare_Subprogram INIT_0760,For_Call 0515 BODY_0500: 0515 e5ff | | Load 0x2,-0x1 0516 e003 | | Load 0x0,0x3 0517 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0518 7001 |p | Jump_Nonzero 0x51a 0519 8407 | | Call 0x2,0x7 051a 4800 |H | Short_Literal 0x0 051b a5fc | | Store_Unchecked 0x2,-0x4 051c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 051d 0000 0000 | | .XXX[0x3] 051f 0000 | | 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0529 | ) | .CONST 0x0529 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0004 | | .CONST 0x0004 ; Number of locals 0523 INIT_0520: 0523 e006 | | Load 0x0,0x6 0524 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0525 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0526 00e2 | | Load_Encached Integer_Cache 0527 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0528 03e9 | | Declare_Variable Discrete,Duplicate 0529 BODY_0520: 0529 e006 | | Load 0x0,0x6 052a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052b 00e3 | | Load_Encached Natural_Cache 052c 00e3 | | Load_Encached Natural_Cache 052d e5fc | | Load 0x2,-0x4 052e e5ff | | Load 0x2,-0x1 052f 8216 | | Call 0x1,0x16 0530 c403 | | Store 0x2,0x3 0531 005a | Z | Store_Top Discrete,At_Offset_2 0532 005b | [ | Store_Top Discrete,At_Offset_3 0533 4800 |H | Short_Literal 0x0 0534 00db | | Load_Top At_Offset_3 0535 e006 | | Load 0x0,0x6 0536 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0537 7002 |p | Jump_Nonzero 0x53a 0538 4800 |H | Short_Literal 0x0 0539 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 053a e5fe | | Load 0x2,-0x2 053b 4fff |O | Short_Literal -0x1 053c 027f | | Execute Discrete,Equal 053d 6805 |h | Jump_Zero 0x543 053e 00d9 | | Load_Top At_Offset_1 053f 0f01 | | Execute_Immediate Equal,0x1 0540 6802 |h | Jump_Zero 0x543 0541 4800 |H | Short_Literal 0x0 0542 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0543 00d9 | | Load_Top At_Offset_1 0544 e5fe | | Load 0x2,-0x2 0545 027f | | Execute Discrete,Equal 0546 6802 |h | Jump_Zero 0x549 0547 4800 |H | Short_Literal 0x0 0548 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0549 4801 |H | Short_Literal 0x1 054a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 054b 0000 0000 | | .BLANK 0000[0x5] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0556 | V | .CONST 0x0556 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0002 | | .CONST 0x0002 ; Number of locals 0553 INIT_0550: 0553 e5fe | | Load 0x2,-0x2 0554 e5ff | | Load 0x2,-0x1 0555 821c | | Call 0x1,0x1c 0556 BODY_0550: 0556 e002 | | Load 0x0,0x2 0557 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0558 e406 | | Load 0x2,0x6 0559 0120 | | Execute Any,Is_Value 055a 6803 |h | Jump_Zero 0x55e 055b e002 | | Load 0x0,0x2 055c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 055d 7801 |x | Jump 0x55f 055e e406 | | Load 0x2,0x6 055f e405 | | Load 0x2,0x5 0560 00db | | Load_Top At_Offset_3 0561 e002 | | Load 0x0,0x2 0562 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0563 180e | | Execute Package,Field_Execute,Field_Number 0xe 0564 c406 | | Store 0x2,0x6 0565 c404 | | Store 0x2,0x4 0566 e404 | | Load 0x2,0x4 0567 e002 | | Load 0x0,0x2 0568 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0569 6817 |h | Jump_Zero 0x581 056a e5fe | | Load 0x2,-0x2 056b 4801 |H | Short_Literal 0x1 056c 4801 |H | Short_Literal 0x1 056d e005 | | Load 0x0,0x5 056e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 056f 035b | [ | Declare_Type Array,Constrained 0570 0337 | 7 | Declare_Variable Array 0571 e5ff | | Load 0x2,-0x1 0572 e003 | | Load 0x0,0x3 0573 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0574 e005 | | Load 0x0,0x5 0575 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0576 0119 | | Execute Any,Check_In_Formal_Type 0577 4801 |H | Short_Literal 0x1 0578 00da | | Load_Top At_Offset_2 0579 01d6 | | Execute Vector,Field_Write 057a 6009 |` | Indirect_Literal Discrete,0x584,{0x00000000, 0x000081c9} 057b e006 | | Load 0x0,0x6 057c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 057d 6006 |` | Indirect_Literal Discrete,0x584,{0x00000000, 0x000081c9} 057e a5fb | | Store_Unchecked 0x2,-0x5 057f e007 | | Load 0x0,0x7 0580 0257 | W | Execute Discrete,Raise 0581 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0582 0000 0000 | | .XXX[0x2] 0584 0000 0000 | | .LITERAL {0x00000000, 0x000081c9} 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 0597 | | .CONST 0x0597 ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0004 | | .CONST 0x0004 ; Number of locals 058b INIT_0588: 058b e404 | | Load 0x2,0x4 058c e210 | | Load 0x1,0x10 058d 1c08 | | Execute_Immediate Run_Utility,0x8 058e 00d8 | | Load_Top At_Offset_0 058f 1c00 | | Execute_Immediate Run_Utility,0x0 0590 00e2 | | Load_Encached Integer_Cache 0591 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0592 e001 | | Load 0x0,0x1 0593 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0594 02c7 | | Declare_Variable Any 0595 00d8 | | Load_Top At_Offset_0 0596 1c00 | | Execute_Immediate Run_Utility,0x0 0597 BODY_0588: 0597 00cf | | Action Mark_Auxiliary 0598 7824 |x$ | Jump 0x5bd 0599 00da | | Load_Top At_Offset_2 059a 0a01 | | Execute_Immediate Plus,0x1 059b 005b | [ | Store_Top Discrete,At_Offset_3 059c e5fe | | Load 0x2,-0x2 059d 4801 |H | Short_Literal 0x1 059e e402 | | Load 0x2,0x2 059f e003 | | Load 0x0,0x3 05a0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 05a1 c604 | | Store 0x3,0x4 05a2 00d9 | | Load_Top At_Offset_1 05a3 00db | | Load_Top At_Offset_3 05a4 e602 | | Load 0x3,0x2 05a5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 05a6 01d5 | | Execute Vector,Field_Reference 05a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05a8 00d9 | | Load_Top At_Offset_1 05a9 821d | | Call 0x1,0x1d 05aa 00db | | Load_Top At_Offset_3 05ab e602 | | Load 0x3,0x2 05ac 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 05ad 01d5 | | Execute Vector,Field_Reference 05ae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05af e5fe | | Load 0x2,-0x2 05b0 00da | | Load_Top At_Offset_2 05b1 8221 | ! | Call 0x1,0x21 05b2 00db | | Load_Top At_Offset_3 05b3 e602 | | Load 0x3,0x2 05b4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 05b5 01d5 | | Execute Vector,Field_Reference 05b6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05b7 e402 | | Load 0x2,0x2 05b8 e001 | | Load 0x0,0x1 05b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05ba 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05bb c402 | | Store 0x2,0x2 05bc 00c9 | | Action Pop_Auxiliary_Loop 05bd e402 | | Load 0x2,0x2 05be e001 | | Load 0x0,0x1 05bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05c0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 05c1 6fd7 |o | Jump_Zero 0x599 05c2 00ce | | Action Pop_Auxiliary 05c3 00da | | Load_Top At_Offset_2 05c4 00cb | | Action Pop_Block_With_Result 05c5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05c6 0000 0000 | | .XXX[0x2] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05de | | .CONST 0x05de ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0006 | | .CONST 0x0006 ; Number of locals 05cb INIT_05c8: 05cb e404 | | Load 0x2,0x4 05cc e210 | | Load 0x1,0x10 05cd 1c08 | | Execute_Immediate Run_Utility,0x8 05ce 00d8 | | Load_Top At_Offset_0 05cf 1c00 | | Execute_Immediate Run_Utility,0x0 05d0 00e2 | | Load_Encached Integer_Cache 05d1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05d2 e001 | | Load 0x0,0x1 05d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05d4 02c7 | | Declare_Variable Any 05d5 00d8 | | Load_Top At_Offset_0 05d6 1c00 | | Execute_Immediate Run_Utility,0x0 05d7 e001 | | Load 0x0,0x1 05d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05d9 02c7 | | Declare_Variable Any 05da 00d8 | | Load_Top At_Offset_0 05db 1c00 | | Execute_Immediate Run_Utility,0x0 05dc 029f 07a3 | | Declare_Subprogram INIT_07a0,For_Call 05de BODY_05c8: 05de 00cf | | Action Mark_Auxiliary 05df 784e |xN | Jump 0x62e 05e0 e5fe | | Load 0x2,-0x2 05e1 4801 |H | Short_Literal 0x1 05e2 e403 | | Load 0x2,0x3 05e3 e003 | | Load 0x0,0x3 05e4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 05e5 c604 | | Store 0x3,0x4 05e6 00db | | Load_Top At_Offset_3 05e7 e003 | | Load 0x0,0x3 05e8 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 05e9 703e |p> | Jump_Nonzero 0x628 05ea e5fe | | Load 0x2,-0x2 05eb e604 | | Load 0x3,0x4 05ec e003 | | Load 0x0,0x3 05ed 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05ee 6839 |h9 | Jump_Zero 0x628 05ef e5fe | | Load 0x2,-0x2 05f0 e604 | | Load 0x3,0x4 05f1 e003 | | Load 0x0,0x3 05f2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05f3 6834 |h4 | Jump_Zero 0x628 05f4 00e1 | | Load_Encached Boolean_Cache 05f5 00db | | Load_Top At_Offset_3 05f6 0120 | | Execute Any,Is_Value 05f7 6803 |h | Jump_Zero 0x5fb 05f8 e001 | | Load 0x0,0x1 05f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05fa 7801 |x | Jump 0x5fc 05fb 00db | | Load_Top At_Offset_3 05fc e5fe | | Load 0x2,-0x2 05fd e604 | | Load 0x3,0x4 05fe 822a | * | Call 0x1,0x2a 05ff c605 | | Store 0x3,0x5 0600 c405 | | Store 0x2,0x5 0601 e405 | | Load 0x2,0x5 0602 6825 |h% | Jump_Zero 0x628 0603 e006 | | Load 0x0,0x6 0604 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0605 e5fe | | Load 0x2,-0x2 0606 e604 | | Load 0x3,0x4 0607 e008 | | Load 0x0,0x8 0608 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 0609 c406 | | Store 0x2,0x6 060a 4800 |H | Short_Literal 0x0 060b e406 | | Load 0x2,0x6 060c e006 | | Load 0x0,0x6 060d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 060e 7003 |p | Jump_Nonzero 0x612 060f e006 | | Load 0x0,0x6 0610 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0611 0257 | W | Execute Discrete,Raise 0612 e603 | | Load 0x3,0x3 0613 0a01 | | Execute_Immediate Plus,0x1 0614 c603 | | Store 0x3,0x3 0615 00da | | Load_Top At_Offset_2 0616 e603 | | Load 0x3,0x3 0617 e602 | | Load 0x3,0x2 0618 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0619 01d5 | | Execute Vector,Field_Reference 061a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 061b 00da | | Load_Top At_Offset_2 061c 821d | | Call 0x1,0x1d 061d e603 | | Load 0x3,0x3 061e e602 | | Load 0x3,0x2 061f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0620 01d5 | | Execute Vector,Field_Reference 0621 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0622 4800 |H | Short_Literal 0x0 0623 e603 | | Load 0x3,0x3 0624 e602 | | Load 0x3,0x2 0625 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0626 01d5 | | Execute Vector,Field_Reference 0627 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0628 e403 | | Load 0x2,0x3 0629 e001 | | Load 0x0,0x1 062a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 062b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 062c c403 | | Store 0x2,0x3 062d 00c9 | | Action Pop_Auxiliary_Loop 062e e403 | | Load 0x2,0x3 062f e001 | | Load 0x0,0x1 0630 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0631 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0632 6fad |o | Jump_Zero 0x5e0 0633 00ce | | Action Pop_Auxiliary 0634 00db | | Load_Top At_Offset_3 0635 0c01 | | Execute_Immediate Greater_Equal,0x1 0636 6801 |h | Jump_Zero 0x638 0637 8606 | | Call 0x3,0x6 0638 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0639 0000 0000 | | .BLANK 0000[0x7] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0656 | V | .CONST 0x0656 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0006 | | .CONST 0x0006 ; Number of locals 0643 INIT_0640: 0643 e404 | | Load 0x2,0x4 0644 e210 | | Load 0x1,0x10 0645 1c08 | | Execute_Immediate Run_Utility,0x8 0646 00d8 | | Load_Top At_Offset_0 0647 1c00 | | Execute_Immediate Run_Utility,0x0 0648 00e2 | | Load_Encached Integer_Cache 0649 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 064a e001 | | Load 0x0,0x1 064b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 064c 02c7 | | Declare_Variable Any 064d 00d8 | | Load_Top At_Offset_0 064e 1c00 | | Execute_Immediate Run_Utility,0x0 064f e001 | | Load 0x0,0x1 0650 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0651 02c7 | | Declare_Variable Any 0652 00d8 | | Load_Top At_Offset_0 0653 1c00 | | Execute_Immediate Run_Utility,0x0 0654 029f 07bb | | Declare_Subprogram INIT_07b8,For_Call 0656 BODY_0640: 0656 00cf | | Action Mark_Auxiliary 0657 7854 |xT | Jump 0x6ac 0658 e5fc | | Load 0x2,-0x4 0659 4801 |H | Short_Literal 0x1 065a e403 | | Load 0x2,0x3 065b e003 | | Load 0x0,0x3 065c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 065d c604 | | Store 0x3,0x4 065e 00db | | Load_Top At_Offset_3 065f e003 | | Load 0x0,0x3 0660 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0661 7044 |pD | Jump_Nonzero 0x6a6 0662 e5fc | | Load 0x2,-0x4 0663 e604 | | Load 0x3,0x4 0664 e003 | | Load 0x0,0x3 0665 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0666 683f |h? | Jump_Zero 0x6a6 0667 e5fc | | Load 0x2,-0x4 0668 e604 | | Load 0x3,0x4 0669 e003 | | Load 0x0,0x3 066a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 066b 703a |p: | Jump_Nonzero 0x6a6 066c 00e1 | | Load_Encached Boolean_Cache 066d 00db | | Load_Top At_Offset_3 066e 0120 | | Execute Any,Is_Value 066f 6803 |h | Jump_Zero 0x673 0670 e001 | | Load 0x0,0x1 0671 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0672 7801 |x | Jump 0x674 0673 00db | | Load_Top At_Offset_3 0674 e5fc | | Load 0x2,-0x4 0675 e604 | | Load 0x3,0x4 0676 822a | * | Call 0x1,0x2a 0677 c605 | | Store 0x3,0x5 0678 c405 | | Store 0x2,0x5 0679 e405 | | Load 0x2,0x5 067a 682b |h+ | Jump_Zero 0x6a6 067b e5fc | | Load 0x2,-0x4 067c e5fd | | Load 0x2,-0x3 067d e5fe | | Load 0x2,-0x2 067e e604 | | Load 0x3,0x4 067f 822b | + | Call 0x1,0x2b 0680 6825 |h% | Jump_Zero 0x6a6 0681 e006 | | Load 0x0,0x6 0682 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0683 e5fc | | Load 0x2,-0x4 0684 e604 | | Load 0x3,0x4 0685 e008 | | Load 0x0,0x8 0686 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 0687 c406 | | Store 0x2,0x6 0688 4800 |H | Short_Literal 0x0 0689 e406 | | Load 0x2,0x6 068a e006 | | Load 0x0,0x6 068b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 068c 7003 |p | Jump_Nonzero 0x690 068d e006 | | Load 0x0,0x6 068e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 068f 0257 | W | Execute Discrete,Raise 0690 e603 | | Load 0x3,0x3 0691 0a01 | | Execute_Immediate Plus,0x1 0692 c603 | | Store 0x3,0x3 0693 00da | | Load_Top At_Offset_2 0694 e603 | | Load 0x3,0x3 0695 e602 | | Load 0x3,0x2 0696 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0697 01d5 | | Execute Vector,Field_Reference 0698 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0699 00da | | Load_Top At_Offset_2 069a 821d | | Call 0x1,0x1d 069b e603 | | Load 0x3,0x3 069c e602 | | Load 0x3,0x2 069d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 069e 01d5 | | Execute Vector,Field_Reference 069f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06a0 4800 |H | Short_Literal 0x0 06a1 e603 | | Load 0x3,0x3 06a2 e602 | | Load 0x3,0x2 06a3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 06a4 01d5 | | Execute Vector,Field_Reference 06a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06a6 e403 | | Load 0x2,0x3 06a7 e001 | | Load 0x0,0x1 06a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06a9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 06aa c403 | | Store 0x2,0x3 06ab 00c9 | | Action Pop_Auxiliary_Loop 06ac e403 | | Load 0x2,0x3 06ad e001 | | Load 0x0,0x1 06ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06af 181e | | Execute Package,Field_Execute,Field_Number 0x1e 06b0 6fa7 |o | Jump_Zero 0x658 06b1 00ce | | Action Pop_Auxiliary 06b2 00db | | Load_Top At_Offset_3 06b3 0c01 | | Execute_Immediate Greater_Equal,0x1 06b4 6801 |h | Jump_Zero 0x6b6 06b5 8606 | | Call 0x3,0x6 06b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06b7 0000 | | .XXX[0x1] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06d1 | | .CONST 0x06d1 ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0005 | | .CONST 0x0005 ; Number of locals 06bb INIT_06b8: 06bb e5fc | | Load 0x2,-0x4 06bc 00d8 | | Load_Top At_Offset_0 06bd 4801 |H | Short_Literal 0x1 06be e5fd | | Load 0x2,-0x3 06bf e003 | | Load 0x0,0x3 06c0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 06c1 821c | | Call 0x1,0x1c 06c2 00d8 | | Load_Top At_Offset_0 06c3 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 06c5 01cc | | Execute Vector,Catenate 06c6 e5fd | | Load 0x2,-0x3 06c7 e003 | | Load 0x0,0x3 06c8 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 06c9 01cc | | Execute Vector,Catenate 06ca 0007 | | Action Break_Optional 06cb e5ff | | Load 0x2,-0x1 06cc e003 | | Load 0x0,0x3 06cd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06ce e5fe | | Load 0x2,-0x2 06cf e003 | | Load 0x0,0x3 06d0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06d1 BODY_06b8: 06d1 e5fd | | Load 0x2,-0x3 06d2 e003 | | Load 0x0,0x3 06d3 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 06d4 6842 |hB | Jump_Zero 0x717 06d5 00ea | | Load_Encached Null_String_Cache 06d6 4801 |H | Short_Literal 0x1 06d7 0092 0832 | 2| Action Push_String_Extended,0x832 ; "<QUIET>" 06d9 4801 |H | Short_Literal 0x1 06da e604 | | Load 0x3,0x4 06db 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 06dd 01cc | | Execute Vector,Catenate 06de e603 | | Load 0x3,0x3 06df 01cc | | Execute Vector,Catenate 06e0 0092 0833 | 3| Action Push_String_Extended,0x833 ; "_secondary_@_spec" 06e2 01cc | | Execute Vector,Catenate 06e3 e604 | | Load 0x3,0x4 06e4 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 06e6 01cc | | Execute Vector,Catenate 06e7 e603 | | Load 0x3,0x3 06e8 01cc | | Execute Vector,Catenate 06e9 0092 0834 | 4| Action Push_String_Extended,0x834 ; "'spec.<secondary_@>" 06eb 01cc | | Execute Vector,Catenate 06ec e00f | | Load 0x0,0xf 06ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06ee 00ea | | Load_Encached Null_String_Cache 06ef 4801 |H | Short_Literal 0x1 06f0 0092 0832 | 2| Action Push_String_Extended,0x832 ; "<QUIET>" 06f2 4801 |H | Short_Literal 0x1 06f3 e605 | | Load 0x3,0x5 06f4 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 06f6 01cc | | Execute Vector,Catenate 06f7 e603 | | Load 0x3,0x3 06f8 01cc | | Execute Vector,Catenate 06f9 0092 0833 | 3| Action Push_String_Extended,0x833 ; "_secondary_@_spec" 06fb 01cc | | Execute Vector,Catenate 06fc e604 | | Load 0x3,0x4 06fd 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 06ff 01cc | | Execute Vector,Catenate 0700 e603 | | Load 0x3,0x3 0701 01cc | | Execute Vector,Catenate 0702 0092 0833 | 3| Action Push_String_Extended,0x833 ; "_secondary_@_spec" 0704 01cc | | Execute Vector,Catenate 0705 e00f | | Load 0x0,0xf 0706 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0707 0092 0832 | 2| Action Push_String_Extended,0x832 ; "<QUIET>" 0709 0092 0835 | 5| Action Push_String_Extended,0x835 ; "<DIRECTORIES>" 070b 00db | | Load_Top At_Offset_3 070c 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 070e 01cc | | Execute Vector,Catenate 070f e603 | | Load 0x3,0x3 0710 01cc | | Execute Vector,Catenate 0711 0092 0833 | 3| Action Push_String_Extended,0x833 ; "_secondary_@_spec" 0713 01cc | | Execute Vector,Catenate 0714 e00f | | Load 0x0,0xf 0715 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0716 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0717 00ea | | Load_Encached Null_String_Cache 0718 4801 |H | Short_Literal 0x1 0719 0092 0832 | 2| Action Push_String_Extended,0x832 ; "<QUIET>" 071b 4801 |H | Short_Literal 0x1 071c e604 | | Load 0x3,0x4 071d 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 071f 01cc | | Execute Vector,Catenate 0720 e603 | | Load 0x3,0x3 0721 01cc | | Execute Vector,Catenate 0722 0092 0836 | 6| Action Push_String_Extended,0x836 ; "_secondary_@_body" 0724 01cc | | Execute Vector,Catenate 0725 e604 | | Load 0x3,0x4 0726 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 0728 01cc | | Execute Vector,Catenate 0729 e603 | | Load 0x3,0x3 072a 01cc | | Execute Vector,Catenate 072b 0092 0837 | 7| Action Push_String_Extended,0x837 ; "'body.<secondary_@>" 072d 01cc | | Execute Vector,Catenate 072e e00f | | Load 0x0,0xf 072f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0730 00ea | | Load_Encached Null_String_Cache 0731 4801 |H | Short_Literal 0x1 0732 0092 0832 | 2| Action Push_String_Extended,0x832 ; "<QUIET>" 0734 4801 |H | Short_Literal 0x1 0735 e605 | | Load 0x3,0x5 0736 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 0738 01cc | | Execute Vector,Catenate 0739 e603 | | Load 0x3,0x3 073a 01cc | | Execute Vector,Catenate 073b 0092 0836 | 6| Action Push_String_Extended,0x836 ; "_secondary_@_body" 073d 01cc | | Execute Vector,Catenate 073e e604 | | Load 0x3,0x4 073f 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 0741 01cc | | Execute Vector,Catenate 0742 e603 | | Load 0x3,0x3 0743 01cc | | Execute Vector,Catenate 0744 0092 0836 | 6| Action Push_String_Extended,0x836 ; "_secondary_@_body" 0746 01cc | | Execute Vector,Catenate 0747 e00f | | Load 0x0,0xf 0748 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0749 0092 0832 | 2| Action Push_String_Extended,0x832 ; "<QUIET>" 074b 0092 0835 | 5| Action Push_String_Extended,0x835 ; "<DIRECTORIES>" 074d 00db | | Load_Top At_Offset_3 074e 0092 0831 | 1| Action Push_String_Extended,0x831 ; "." 0750 01cc | | Execute Vector,Catenate 0751 e603 | | Load 0x3,0x3 0752 01cc | | Execute Vector,Catenate 0753 0092 0836 | 6| Action Push_String_Extended,0x836 ; "_secondary_@_body" 0755 01cc | | Execute Vector,Catenate 0756 e00f | | Load 0x0,0xf 0757 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0758 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0759 0000 0000 | | .BLANK 0000[0x7] 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0775 | u | .CONST 0x0775 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0002 | | .CONST 0x0002 ; Number of locals 0763 INIT_0760: 0763 e5fe | | Load 0x2,-0x2 0764 4801 |H | Short_Literal 0x1 0765 e5ff | | Load 0x2,-0x1 0766 e003 | | Load 0x0,0x3 0767 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0768 e003 | | Load 0x0,0x3 0769 1817 | | Execute Package,Field_Execute,Field_Number 0x17 076a 0092 0838 | 8| Action Push_String_Extended,0x838 ; ".@'c(ada).<secondary_" 076c 01cc | | Execute Vector,Catenate 076d e5ff | | Load 0x2,-0x1 076e e003 | | Load 0x0,0x3 076f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0770 01cc | | Execute Vector,Catenate 0771 0092 0839 | 9| Action Push_String_Extended,0x839 ; ">" 0773 01cc | | Execute Vector,Catenate 0774 0007 | | Action Break_Optional 0775 BODY_0760: 0775 00d8 | | Load_Top At_Offset_0 0776 8220 | | Call 0x1,0x20 0777 c402 | | Store 0x2,0x2 0778 e402 | | Load 0x2,0x2 0779 e001 | | Load 0x0,0x1 077a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 077b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 077c 7022 |p" | Jump_Nonzero 0x79f 077d e402 | | Load 0x2,0x2 077e e001 | | Load 0x0,0x1 077f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0780 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0781 701d |p | Jump_Nonzero 0x79f 0782 e5fe | | Load 0x2,-0x2 0783 4801 |H | Short_Literal 0x1 0784 e402 | | Load 0x2,0x2 0785 e003 | | Load 0x0,0x3 0786 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0787 c403 | | Store 0x2,0x3 0788 e006 | | Load 0x0,0x6 0789 1b0d | | Execute Package,Field_Read,Field_Number 0xd 078a 00e2 | | Load_Encached Integer_Cache 078b 00e1 | | Load_Encached Boolean_Cache 078c e5fd | | Load 0x2,-0x3 078d 0120 | | Execute Any,Is_Value 078e 6803 |h | Jump_Zero 0x792 078f e001 | | Load 0x0,0x1 0790 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0791 7801 |x | Jump 0x793 0792 e5fd | | Load 0x2,-0x3 0793 e5fe | | Load 0x2,-0x2 0794 e403 | | Load 0x2,0x3 0795 e008 | | Load 0x0,0x8 0796 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0797 c5fd | | Store 0x2,-0x3 0798 c406 | | Store 0x2,0x6 0799 c405 | | Store 0x2,0x5 079a c404 | | Store 0x2,0x4 079b e406 | | Load 0x2,0x6 079c a5fc | | Store_Unchecked 0x2,-0x4 079d 00cc | | Action Pop_Block 079e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 079f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07a0 ; -------------------------------------------------------------------------------------- 07a0 ; SUBPROGRAM 07a0 ; -------------------------------------------------------------------------------------- 07a0 07a8 | | .CONST 0x07a8 ; Address of begin 07a1 0004 | | .CONST 0x0004 ; Address of exception handler 07a2 0002 | | .CONST 0x0002 ; Number of locals 07a3 INIT_07a0: 07a3 e603 | | Load 0x3,0x3 07a4 e210 | | Load 0x1,0x10 07a5 1c08 | | Execute_Immediate Run_Utility,0x8 07a6 00d8 | | Load_Top At_Offset_0 07a7 1c00 | | Execute_Immediate Run_Utility,0x0 07a8 BODY_07a0: 07a8 4801 |H | Short_Literal 0x1 07a9 e603 | | Load 0x3,0x3 07aa e602 | | Load 0x3,0x2 07ab 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 07ac 01cf | | Execute Vector,Slice_Read 07ad 4801 |H | Short_Literal 0x1 07ae e603 | | Load 0x3,0x3 07af 00db | | Load_Top At_Offset_3 07b0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 07b1 01ce | | Execute Vector,Slice_Write 07b2 00d8 | | Load_Top At_Offset_0 07b3 00cb | | Action Pop_Block_With_Result 07b4 00cb | | Action Pop_Block_With_Result 07b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07b6 0000 0000 | | .XXX[0x2] 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07c0 | | .CONST 0x07c0 ; Address of begin 07b9 0004 | | .CONST 0x0004 ; Address of exception handler 07ba 0002 | | .CONST 0x0002 ; Number of locals 07bb INIT_07b8: 07bb e603 | | Load 0x3,0x3 07bc e210 | | Load 0x1,0x10 07bd 1c08 | | Execute_Immediate Run_Utility,0x8 07be 00d8 | | Load_Top At_Offset_0 07bf 1c00 | | Execute_Immediate Run_Utility,0x0 07c0 BODY_07b8: 07c0 4801 |H | Short_Literal 0x1 07c1 e603 | | Load 0x3,0x3 07c2 e602 | | Load 0x3,0x2 07c3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 07c4 01cf | | Execute Vector,Slice_Read 07c5 4801 |H | Short_Literal 0x1 07c6 e603 | | Load 0x3,0x3 07c7 00db | | Load_Top At_Offset_3 07c8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 07c9 01ce | | Execute Vector,Slice_Write 07ca 00d8 | | Load_Top At_Offset_0 07cb 00cb | | Action Pop_Block_With_Result 07cc 00cb | | Action Pop_Block_With_Result 07cd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 07ce 0000 0000 | | .XXX[0x2] 07d0 ; -------------------------------------------------------------------------------------- 07d0 ; SUBPROGRAM 07d0 ; -------------------------------------------------------------------------------------- 07d0 07d3 | | .CONST 0x07d3 ; Address of begin 07d1 0004 | | .CONST 0x0004 ; Address of exception handler 07d2 0001 | | .CONST 0x0001 ; Number of locals 07d3 BODY_07d0: 07d3 INIT_07d0: 07d3 4608 |F | Jump_Case 0x9 07d4 7808 |x | Jump 0x7dd ; case 0x0 07d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 07d6 780d |x | Jump 0x7e4 ; case 0x2 07d7 780c |x | Jump 0x7e4 ; case 0x3 07d8 780b |x | Jump 0x7e4 ; case 0x4 07d9 780a |x | Jump 0x7e4 ; case 0x5 07da 7809 |x | Jump 0x7e4 ; case 0x6 07db 7808 |x | Jump 0x7e4 ; case 0x7 07dc 7807 |x | Jump 0x7e4 ; case 0x8 07dd 00da | | Load_Top At_Offset_2 07de 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07df 0125 | % | Execute Any,Set_Constraint 07e0 00da | | Load_Top At_Offset_2 07e1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07e2 1c00 | | Execute_Immediate Run_Utility,0x0 07e3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 07e4 0869 | i | Execute_Immediate Raise,0x69 07e5 0000 0000 | | .XXX[0x3] 07e7 0000 | | 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07eb | | .CONST 0x07eb ; Address of begin 07e9 0004 | | .CONST 0x0004 ; Address of exception handler 07ea 0001 | | .CONST 0x0001 ; Number of locals 07eb BODY_07e8: 07eb INIT_07e8: 07eb 4608 |F | Jump_Case 0x9 07ec 7808 |x | Jump 0x7f5 ; case 0x0 07ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 07ee 781d |x | Jump 0x80c ; case 0x2 07ef 781c |x | Jump 0x80c ; case 0x3 07f0 781b |x | Jump 0x80c ; case 0x4 07f1 781a |x | Jump 0x80c ; case 0x5 07f2 7819 |x | Jump 0x80c ; case 0x6 07f3 7805 |x | Jump 0x7f9 ; case 0x7 07f4 780d |x | Jump 0x802 ; case 0x8 07f5 00da | | Load_Top At_Offset_2 07f6 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 07f7 1c00 | | Execute_Immediate Run_Utility,0x0 07f8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 07f9 00db | | Load_Top At_Offset_3 07fa 4801 |H | Short_Literal 0x1 07fb e5fe | | Load 0x2,-0x2 07fc e20f | | Load 0x1,0xf 07fd 035b | [ | Declare_Type Array,Constrained 07fe 4801 |H | Short_Literal 0x1 07ff e5ff | | Load 0x2,-0x1 0800 031b | | Declare_Type Variant_Record,Constrained 0801 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0802 00db | | Load_Top At_Offset_3 0803 00db | | Load_Top At_Offset_3 0804 02fc | | Declare_Variable Variant_Record,With_Constraint 0805 4801 |H | Short_Literal 0x1 0806 e5fe | | Load 0x2,-0x2 0807 e20f | | Load 0x1,0xf 0808 0334 | 4 | Declare_Variable Array,With_Constraint 0809 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 080a 016a | j | QQ_execute Variant_Record,XXX 080b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 080c 0869 | i | Execute_Immediate Raise,0x69 080d 0000 0000 | | .XXX[0x3] 080f 0000 | | 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 0813 | | .CONST 0x0813 ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0001 | | .CONST 0x0001 ; Number of locals 0813 BODY_0810: 0813 INIT_0810: 0813 4608 |F | Jump_Case 0x9 0814 7808 |x | Jump 0x81d ; case 0x0 0815 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0816 7813 |x | Jump 0x82a ; case 0x2 0817 7812 |x | Jump 0x82a ; case 0x3 0818 7811 |x | Jump 0x82a ; case 0x4 0819 7810 |x | Jump 0x82a ; case 0x5 081a 780f |x | Jump 0x82a ; case 0x6 081b 780e |x | Jump 0x82a ; case 0x7 081c 780d |x | Jump 0x82a ; case 0x8 081d 00da | | Load_Top At_Offset_2 081e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 081f 0125 | % | Execute Any,Set_Constraint 0820 00da | | Load_Top At_Offset_2 0821 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0822 1c00 | | Execute_Immediate Run_Utility,0x0 0823 00da | | Load_Top At_Offset_2 0824 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0825 0125 | % | Execute Any,Set_Constraint 0826 00da | | Load_Top At_Offset_2 0827 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0828 1c00 | | Execute_Immediate Run_Utility,0x0 0829 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 082a 0869 | i | Execute_Immediate Raise,0x69 082b ; -------------------------------------------------------------------------------------- 082b ; STRING TABLE 082b ; -------------------------------------------------------------------------------------- 082b 0020 | | .STRTAB 0x0020->0x083b ; ".state.cmvc_database" 082c 0032 | 2 | .STRTAB 0x0032->0x0845 ; ".units.??'c(~library)" 082d 0045 | E | .STRTAB 0x0045->0x084f ; ".units" 082e 0049 | I | .STRTAB 0x0049->0x0852 ; "<ALL_WORLDS>" 082f 0053 | S | .STRTAB 0x0053->0x0858 ; "<WORLDS>" 0830 0059 | Y | .STRTAB 0x0059->0x085c ; ".units.??'c(ada)'if(controlled)" 0831 0076 | v | .STRTAB 0x0076->0x086c ; "." 0832 0075 | u | .STRTAB 0x0075->0x086c ; "<QUIET>" 0833 007a | z | .STRTAB 0x007a->0x0870 ; "_secondary_@_spec" 0834 0089 | | .STRTAB 0x0089->0x0878 ; "'spec.<secondary_@>" 0835 009a | | .STRTAB 0x009a->0x0882 ; "<DIRECTORIES>" 0836 00a5 | | .STRTAB 0x00a5->0x0888 ; "_secondary_@_body" 0837 00b4 | | .STRTAB 0x00b4->0x0891 ; "'body.<secondary_@>" 0838 00c5 | | .STRTAB 0x00c5->0x089a ; ".@'c(ada).<secondary_" 0839 00d8 | | .STRTAB 0x00d8->0x08a5 ; ">" 083a 00d7 | | .STREND 0x00d7->0x08a5 083b 2e73 7461 |.sta| .STRTAB_STRINGS 08a6 0000 0000 | | .XXX[0x2] 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; Debug Table 08a8 ; -------------------------------------------------------------------------------------- 08a8 0004 000d | | .DEBUG4 0x0004,0x000d,0x4e73,0x0000,0x0001,0x0000 08ae 0000 0000 | | .XXX[0xce] 08b0 005b c4da | [ | 08b2 0000 0036 | 6| 08b4 004a 500e | JP | 08b6 0000 0f32 | 2| 08b8 005b c4da | [ | 08ba 0000 0036 | 6| 08bc 004a 500e | JP | 08be 0000 1032 | 2| 08c0 005b c4da | [ | 08c2 0000 0036 | 6| 08c4 004a 500e | JP | 08c6 0000 12b2 | | 08c8 005b c4da | [ | 08ca 0000 0036 | 6| 08cc 004a 500e | JP | 08ce 0000 1432 | 2| 08d0 005b c4da | [ | 08d2 0000 0036 | 6| 08d4 004a 500e | JP | 08d6 0000 16b2 | | 08d8 005b c4da | [ | 08da 0000 0036 | 6| 08dc 004a 500e | JP | 08de 0000 17b2 | | 08e0 005b c4da | [ | 08e2 0000 0036 | 6| 08e4 004a 500e | JP | 08e6 0000 18b2 | | 08e8 005b c4da | [ | 08ea 0000 0036 | 6| 08ec 004a 500e | JP | 08ee 0000 19b2 | | 08f0 005b c4da | [ | 08f2 0000 0036 | 6| 08f4 004a 500e | JP | 08f6 0000 1a32 | 2| 08f8 005b c4da | [ | 08fa 0000 0036 | 6| 08fc 004a 500e | JP | 08fe 0000 1b32 | 2| 0900 005b c4da | [ | 0902 0000 0036 | 6| 0904 004a 500e | JP | 0906 0000 1c32 | 2| 0908 005b c4da | [ | 090a 0000 0036 | 6| 090c 004a 500e | JP | 090e 0000 1d32 | 2| 0910 005b c4da | [ | 0912 0000 0036 | 6| 0914 004a 500e | JP | 0916 0000 1e32 | 2| 0918 005b c4da | [ | 091a 0000 0036 | 6| 091c 004a 500e | JP | 091e 0000 1f32 | 2| 0920 005b c4da | [ | 0922 0000 0036 | 6| 0924 004a 500e | JP | 0926 0000 20b2 | | 0928 005b c4da | [ | 092a 0000 0036 | 6| 092c 004a 500e | JP | 092e 0000 2232 | "2| 0930 005b c4da | [ | 0932 0000 0036 | 6| 0934 004a 500e | JP | 0936 0000 23b2 | # | 0938 005b c4da | [ | 093a 0000 0036 | 6| 093c 004a 500e | JP | 093e 0000 2532 | %2| 0940 005b c4da | [ | 0942 0000 0036 | 6| 0944 004a 500e | JP | 0946 0000 2732 | '2| 0948 005b c4da | [ | 094a 0000 0036 | 6| 094c 004a 500e | JP | 094e 0000 28b2 | ( | 0950 005b c4da | [ | 0952 0000 0036 | 6| 0954 004a 500e | JP | 0956 0000 2ab2 | * | 0958 005b c4da | [ | 095a 0000 0036 | 6| 095c 004a 500e | JP | 095e 0000 2d32 | -2| 0960 005b c4da | [ | 0962 0000 07d8 | | 0964 005b ccda | [ | 0966 0000 0000 | | 0968 0006 f804 | | 096a 0000 0032 | 2| 096c 0006 f804 | | 096e 0000 0720 | | 0970 0006 f804 | | 0972 0000 0032 | 2| 0974 0006 f804 | | 0976 0000 06a0 | | 0978 0001 0404 | | 097a 0800 0888 | | 097c 0000 0000 | | .BLANK 0000[0xa] 0986 0057 26c5 | W& | .XXX[0x2] 0988 0000 0000 | | .BLANK 0000[0x7] 098f 0048 | H | .XXX[0x1] 0990 0000 0000 | | .BLANK 0000[0x8] 0998 005b c4da | [ | .XXX[0x5] 099a 0800 0480 | | 099c 8000 | | 099d 0000 0000 | | .BLANK 0000[0x9] 09a6 0057 26c5 | W& | .XXX[0x2] 09a8 0000 0000 | | .BLANK 0000[0x7] 09af 0054 | T | .XXX[0x1] 09b0 0000 0000 | | .BLANK 0000[0x8] 09b8 005b c4da | [ | .XXX[0x5] 09ba 0800 0600 | | 09bc 8000 | | 09bd 0000 0000 | | .BLANK 0000[0x9] 09c6 0057 26c5 | W& | .XXX[0x2] 09c8 0000 0000 | | .BLANK 0000[0x7] 09cf 0060 | ` | .XXX[0x1] 09d0 0000 0000 | | .BLANK 0000[0x8] 09d8 0001 0404 | | .XXX[0x5] 09da 0000 0280 | | 09dc 8000 | | 09dd 0000 0000 | | .BLANK 0000[0x9] 09e6 0057 26c5 | W& | .XXX[0x2] 09e8 0000 0000 | | .BLANK 0000[0x7] 09ef 006c | l | .XXX[0x1] 09f0 0000 0000 | | .BLANK 0000[0x8] 09f8 0001 0404 | | .XXX[0x8] 09fa 0000 0700 | | 09fc 8000 0000 | | 09fe 0000 0000 | |