|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 04a8 | | .CONST 0x04a8 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0090 | | .CONST 0x0090 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002a | * | .CONST 0x002a ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 00e4 | | Load_Encached Positive_Cache 000e 0129 | ) | Execute Any,Make_Visible 000f 00d8 | | Load_Top At_Offset_0 0010 0266 | f | Execute Discrete,Bounds 0011 00db | | Load_Top At_Offset_3 0012 02a0 | | Declare_Subprogram Null_Subprogram 0013 4801 |H | Short_Literal 0x1 0014 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0015 e001 | | Load 0x0,0x1 0016 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0018 0129 | ) | Execute Any,Make_Visible 0019 e001 | | Load 0x0,0x1 001a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 001c 0129 | ) | Execute Any,Make_Visible 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0031 c223 | # | Store 0x1,0x23 0032 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0034 c214 | | Store 0x1,0x14 0035 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0037 c215 | | Store 0x1,0x15 0038 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 003a c216 | | Store 0x1,0x16 003b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 003d c217 | | Store 0x1,0x17 003e 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0040 c218 | | Store 0x1,0x18 0041 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0043 c219 | | Store 0x1,0x19 0044 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0046 c21b | | Store 0x1,0x1b 0047 e20e | | Load 0x1,0xe 0048 4800 |H | Short_Literal 0x0 0049 4801 |H | Short_Literal 0x1 004a 4801 |H | Short_Literal 0x1 004b 480a |H | Short_Literal 0xa 004c 0318 | | Declare_Type Variant_Record,Incomplete 004d 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 004f 00d9 | | Load_Top At_Offset_1 0050 012a | * | Execute Any,Change_Utility 0051 c21a | | Store 0x1,0x1a 0052 e21a | | Load 0x1,0x1a 0053 02a0 | | Declare_Subprogram Null_Subprogram 0054 e20d | | Load 0x1,0xd 0055 03c7 | | Complete_Type Access,By_Defining 0056 00bf | | Action Accept_Activation 0057 e002 | | Load 0x0,0x2 0058 e003 | | Load 0x0,0x3 0059 e20d | | Load 0x1,0xd 005a e004 | | Load 0x0,0x4 005b 0387 | | Declare_Variable Package 005c 00d8 | | Load_Top At_Offset_0 005d 020f | | Execute Module,Activate 005e 00d8 | | Load_Top At_Offset_0 005f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0060 00e9 | | Load_Encached String_Cache 0061 02a0 | | Declare_Subprogram Null_Subprogram 0062 4818 |H | Short_Literal 0x18 0063 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0064 e20e | | Load 0x1,0xe 0065 0266 | f | Execute Discrete,Bounds 0066 00e1 | | Load_Encached Boolean_Cache 0067 02a0 | | Declare_Subprogram Null_Subprogram 0068 4801 |H | Short_Literal 0x1 0069 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 006a e210 | | Load 0x1,0x10 006b 00da | | Load_Top At_Offset_2 006c e20e | | Load 0x1,0xe 006d e210 | | Load 0x1,0x10 006e 00e1 | | Load_Encached Boolean_Cache 006f 00e3 | | Load_Encached Natural_Cache 0070 e225 | % | Load 0x1,0x25 0071 00e4 | | Load_Encached Positive_Cache 0072 e227 | ' | Load 0x1,0x27 0073 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 0075 4800 |H | Short_Literal 0x0 0076 4801 |H | Short_Literal 0x1 0077 4808 |H | Short_Literal 0x8 0078 e21a | | Load 0x1,0x1a 0079 0307 | | Complete_Type Variant_Record,By_Defining 007a 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 007c 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 007e 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call 0080 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0081 00c7 | | Action Elaborate_Subprogram 0082 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0083 00c7 | | Action Elaborate_Subprogram 0084 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0085 00c7 | | Action Elaborate_Subprogram 0086 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0087 00c7 | | Action Elaborate_Subprogram 0088 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0089 00c7 | | Action Elaborate_Subprogram 008a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 008b 00c7 | | Action Elaborate_Subprogram 008c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 008d 00c7 | | Action Elaborate_Subprogram 008e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 008f 00c7 | | Action Elaborate_Subprogram 0090 BODY_0008: 0090 00bc | | Action Signal_Activated 0091 00bb | | Action Signal_Completion 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009d | | .CONST 0x009d ; Address of begin 0099 00a0 | | .CONST 0x00a0 ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 009d BODY_0098: 009d e5fa | | Load 0x2,-0x6 009e 8402 | | Call 0x2,0x2 009f 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 00a0 TRAP_0098: 00a0 010e | | Execute Exception,Is_Constraint_Error 00a1 6808 |h | Jump_Zero 0xaa 00a2 4801 |H | Short_Literal 0x1 00a3 4800 |H | Short_Literal 0x0 00a4 e20f | | Load 0x1,0xf 00a5 035b | [ | Declare_Type Array,Constrained 00a6 0337 | 7 | Declare_Variable Array 00a7 e20f | | Load 0x1,0xf 00a8 01c6 | | Execute Vector,Convert_To_Formal 00a9 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 00aa 0100 | | Execute Exception,Raise 00ab 0000 0000 | | .BLANK 0000[0x5] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 0227 | ' | Execute Access,All_Reference 00b5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00b6 00d8 | | Load_Top At_Offset_0 00b7 0120 | | Execute Any,Is_Value 00b8 7002 |p | Jump_Nonzero 0xbb 00b9 00d8 | | Load_Top At_Offset_0 00ba 011e | | Execute Any,Convert 00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 0227 | ' | Execute Access,All_Reference 00c5 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 00c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d6 | | .CONST 0x00d6 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0003 | | .CONST 0x0003 ; Number of locals 00cb INIT_00c8: 00cb 4801 |H | Short_Literal 0x1 00cc 00db | | Load_Top At_Offset_3 00cd 0227 | ' | Execute Access,All_Reference 00ce 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 00cf e224 | $ | Load 0x1,0x24 00d0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00d1 e20f | | Load 0x1,0xf 00d2 035b | [ | Declare_Type Array,Constrained 00d3 0337 | 7 | Declare_Variable Array 00d4 e224 | $ | Load 0x1,0x24 00d5 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00d6 BODY_00c8: 00d6 e224 | $ | Load 0x1,0x24 00d7 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00d8 e5ff | | Load 0x2,-0x1 00d9 0227 | ' | Execute Access,All_Reference 00da 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 00db e224 | $ | Load 0x1,0x24 00dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00dd 0039 | 9 | Store_Top Access,At_Offset_1 00de 00cf | | Action Mark_Auxiliary 00df 00da | | Load_Top At_Offset_2 00e0 01d9 | | Execute Vector,Reverse_Bounds 00e1 0263 | c | Execute Discrete,Above_Bound 00e2 700c |p | Jump_Nonzero 0xef 00e3 00db | | Load_Top At_Offset_3 00e4 e224 | $ | Load 0x1,0x24 00e5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00e6 00d9 | | Load_Top At_Offset_1 00e7 e402 | | Load 0x2,0x2 00e8 01d6 | | Execute Vector,Field_Write 00e9 00db | | Load_Top At_Offset_3 00ea e224 | $ | Load 0x1,0x24 00eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ec c403 | | Store 0x2,0x3 00ed 00c8 | | Action Pop_Auxiliary_Range 00ee 3ff4 |? | Loop_Increasing 0xe3 00ef 00ce | | Action Pop_Auxiliary 00f0 00d9 | | Load_Top At_Offset_1 00f1 e20f | | Load 0x1,0xf 00f2 01c6 | | Execute Vector,Convert_To_Formal 00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 0227 | ' | Execute Access,All_Reference 00fd 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ff 0000 | | .XXX[0x1] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00db | | Load_Top At_Offset_3 0104 00db | | Load_Top At_Offset_3 0105 01dd | | Execute Vector,First 0106 027f | | Execute Discrete,Equal 0107 6802 |h | Jump_Zero 0x10a 0108 4800 |H | Short_Literal 0x0 0109 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010a 00db | | Load_Top At_Offset_3 010b 00db | | Load_Top At_Offset_3 010c 01d7 | | Execute Vector,Field_Read 010d 0227 | ' | Execute Access,All_Reference 010e 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 010f e5fe | | Load 0x2,-0x2 0110 0aff | | Execute_Immediate Plus,-0x1 0111 e5ff | | Load 0x2,-0x1 0112 01d7 | | Execute Vector,Field_Read 0113 0227 | ' | Execute Access,All_Reference 0114 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 0115 027d | } | Execute Discrete,Greater 0116 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011d | | .CONST 0x011d ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b 00e3 | | Load_Encached Natural_Cache 011c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 011d BODY_0118: 011d 00cf | | Action Mark_Auxiliary 011e e5ff | | Load 0x2,-0x1 011f 01d9 | | Execute Vector,Reverse_Bounds 0120 0263 | c | Execute Discrete,Above_Bound 0121 700c |p | Jump_Nonzero 0x12e 0122 00db | | Load_Top At_Offset_3 0123 00d9 | | Load_Top At_Offset_1 0124 e5ff | | Load 0x2,-0x1 0125 01d7 | | Execute Vector,Field_Read 0126 0227 | ' | Execute Access,All_Reference 0127 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0128 e224 | $ | Load 0x1,0x24 0129 1819 | | Execute Package,Field_Execute,Field_Number 0x19 012a 0273 | s | Execute Discrete,Plus 012b c402 | | Store 0x2,0x2 012c 00c8 | | Action Pop_Auxiliary_Range 012d 3ff4 |? | Loop_Increasing 0x122 012e 00ce | | Action Pop_Auxiliary 012f 00d8 | | Load_Top At_Offset_0 0130 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0131 0000 0000 | | .BLANK 0000[0x7] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c 0227 | ' | Execute Access,All_Reference 013d 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 013e e224 | $ | Load 0x1,0x24 013f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b BODY_0148: 014b INIT_0148: 014b INIT_0148: 014b 4608 |F | Jump_Case 0x9 014c 7808 |x | Jump 0x155 ; case 0x0 014d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 014e 7824 |x$ | Jump 0x173 ; case 0x2 014f 7823 |x# | Jump 0x173 ; case 0x3 0150 7822 |x" | Jump 0x173 ; case 0x4 0151 7821 |x! | Jump 0x173 ; case 0x5 0152 7820 |x | Jump 0x173 ; case 0x6 0153 780c |x | Jump 0x160 ; case 0x7 0154 7814 |x | Jump 0x169 ; case 0x8 0155 00da | | Load_Top At_Offset_2 0156 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 0157 00da | | Load_Top At_Offset_2 0158 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 0159 1c00 | | Execute_Immediate Run_Utility,0x0 015a 00da | | Load_Top At_Offset_2 015b 2205 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x5 015c 00da | | Load_Top At_Offset_2 015d 2405 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5 015e 1c00 | | Execute_Immediate Run_Utility,0x0 015f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0160 00db | | Load_Top At_Offset_3 0161 4801 |H | Short_Literal 0x1 0162 e5fe | | Load 0x2,-0x2 0163 e227 | ' | Load 0x1,0x27 0164 035b | [ | Declare_Type Array,Constrained 0165 4801 |H | Short_Literal 0x1 0166 e5ff | | Load 0x2,-0x1 0167 031b | | Declare_Type Variant_Record,Constrained 0168 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0169 00db | | Load_Top At_Offset_3 016a 00db | | Load_Top At_Offset_3 016b 02fc | | Declare_Variable Variant_Record,With_Constraint 016c 4801 |H | Short_Literal 0x1 016d e5fe | | Load 0x2,-0x2 016e e227 | ' | Load 0x1,0x27 016f 0334 | 4 | Declare_Variable Array,With_Constraint 0170 2d0a |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0xa 0171 016a | j | QQ_execute Variant_Record,XXX 0172 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0173 0869 | i | Execute_Immediate Raise,0x69 0174 0000 0000 | | .BLANK 0000[0x4] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 4800 |H | Short_Literal 0x0 017c 00ea | | Load_Encached Null_String_Cache 017d 4800 |H | Short_Literal 0x0 017e e5ff | | Load 0x2,-0x1 017f e001 | | Load 0x0,0x1 0180 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0181 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0183 0000 0000 | | .BLANK 0000[0x5] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0193 | | .CONST 0x0193 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0003 | | .CONST 0x0003 ; Number of locals 018b INIT_0188: 018b e001 | | Load 0x0,0x1 018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 018e 02c7 | | Declare_Variable Any 018f 00db | | Load_Top At_Offset_3 0190 a402 | | Store_Unchecked 0x2,0x2 0191 00e3 | | Load_Encached Natural_Cache 0192 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0193 BODY_0188: 0193 00d9 | | Load_Top At_Offset_1 0194 e001 | | Load 0x0,0x1 0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0196 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0197 00cf | | Action Mark_Auxiliary 0198 7809 |x | Jump 0x1a2 0199 00d9 | | Load_Top At_Offset_1 019a 0a01 | | Execute_Immediate Plus,0x1 019b 005a | Z | Store_Top Discrete,At_Offset_2 019c 00da | | Load_Top At_Offset_2 019d e001 | | Load 0x0,0x1 019e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01a0 c402 | | Store 0x2,0x2 01a1 00c9 | | Action Pop_Auxiliary_Loop 01a2 00da | | Load_Top At_Offset_2 01a3 e001 | | Load 0x0,0x1 01a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01a6 6ff2 |o | Jump_Zero 0x199 01a7 00ce | | Action Pop_Auxiliary 01a8 00d9 | | Load_Top At_Offset_1 01a9 e001 | | Load 0x0,0x1 01aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ab 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01ac 00d8 | | Load_Top At_Offset_0 01ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ae 0000 0000 | | .XXX[0x2] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b7 | | .CONST 0x01b7 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 e224 | $ | Load 0x1,0x24 01b4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01b5 e20d | | Load 0x1,0xd 01b6 0007 | | Action Break_Optional 01b7 BODY_01b0: 01b7 e224 | $ | Load 0x1,0x24 01b8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01b9 e5ff | | Load 0x2,-0x1 01ba e224 | $ | Load 0x1,0x24 01bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01bc 003a | : | Store_Top Access,At_Offset_2 01bd 00cf | | Action Mark_Auxiliary 01be 7825 |x% | Jump 0x1e4 01bf 00da | | Load_Top At_Offset_2 01c0 e224 | $ | Load 0x1,0x24 01c1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01c2 003a | : | Store_Top Access,At_Offset_2 01c3 e5fe | | Load 0x2,-0x2 01c4 0227 | ' | Execute Access,All_Reference 01c5 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 01c6 00da | | Load_Top At_Offset_2 01c7 0227 | ' | Execute Access,All_Reference 01c8 250a |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0xa 01c9 01d7 | | Execute Vector,Field_Read 01ca 7014 |p | Jump_Nonzero 0x1df 01cb 4801 |H | Short_Literal 0x1 01cc e5fe | | Load 0x2,-0x2 01cd 0227 | ' | Execute Access,All_Reference 01ce 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 01cf 00db | | Load_Top At_Offset_3 01d0 0227 | ' | Execute Access,All_Reference 01d1 250a |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0xa 01d2 01d6 | | Execute Vector,Field_Write 01d3 00d9 | | Load_Top At_Offset_1 01d4 0227 | ' | Execute Access,All_Reference 01d5 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7 01d6 0a01 | | Execute_Immediate Plus,0x1 01d7 00da | | Load_Top At_Offset_2 01d8 0227 | ' | Execute Access,All_Reference 01d9 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 01da e5fe | | Load 0x2,-0x2 01db 00da | | Load_Top At_Offset_2 01dc 0227 | ' | Execute Access,All_Reference 01dd 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 01de 822a | * | Call 0x1,0x2a 01df 00da | | Load_Top At_Offset_2 01e0 e224 | $ | Load 0x1,0x24 01e1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01e2 003b | ; | Store_Top Access,At_Offset_3 01e3 00c9 | | Action Pop_Auxiliary_Loop 01e4 00da | | Load_Top At_Offset_2 01e5 e224 | $ | Load 0x1,0x24 01e6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01e7 6fd7 |o | Jump_Zero 0x1bf 01e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e9 0000 0000 | | .BLANK 0000[0x7] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 023f | ? | .CONST 0x023f ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0015 | | .CONST 0x0015 ; Number of locals 01f3 INIT_01f0: 01f3 e211 | | Load 0x1,0x11 01f4 02c7 | | Declare_Variable Any 01f5 00db | | Load_Top At_Offset_3 01f6 85fb | | Call 0x2,-0x5 01f7 a602 | | Store_Unchecked 0x3,0x2 01f8 00d8 | | Load_Top At_Offset_0 01f9 8229 | ) | Call 0x1,0x29 01fa 00e3 | | Load_Encached Natural_Cache 01fb 03f1 | | Declare_Variable Discrete,With_Value 01fc 00e3 | | Load_Encached Natural_Cache 01fd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01fe e005 | | Load 0x0,0x5 01ff e006 | | Load 0x0,0x6 0200 00db | | Load_Top At_Offset_3 0201 e20d | | Load 0x1,0xd 0202 4801 |H | Short_Literal 0x1 0203 e007 | | Load 0x0,0x7 0204 0387 | | Declare_Variable Package 0205 00d8 | | Load_Top At_Offset_0 0206 020f | | Execute Module,Activate 0207 00d8 | | Load_Top At_Offset_0 0208 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0209 00db | | Load_Top At_Offset_3 020a e20d | | Load 0x1,0xd 020b 022a | * | Execute Access,Element_Type 020c 1c07 | | Execute_Immediate Run_Utility,0x7 020d e20d | | Load 0x1,0xd 020e 03d1 | | Declare_Type Access,Constrained 020f 00e4 | | Load_Encached Positive_Cache 0210 0266 | f | Execute Discrete,Bounds 0211 00da | | Load_Top At_Offset_2 0212 02a0 | | Declare_Subprogram Null_Subprogram 0213 4801 |H | Short_Literal 0x1 0214 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0215 a008 | | Store_Unchecked 0x0,0x8 0216 00c6 | | Action Check_Subprogram_Elaborated 0217 00d9 | | Load_Top At_Offset_1 0218 00e4 | | Load_Encached Positive_Cache 0219 00da | | Load_Top At_Offset_2 021a 4ffd |O | Short_Literal -0x3 021b 4802 |H | Short_Literal 0x2 021c 0099 | | Action Reference_Dynamic 021d e009 | | Load 0x0,0x9 021e e00a | | Load 0x0,0xa 021f 480f |H | Short_Literal 0xf 0220 0007 | | Action Break_Optional 0221 4801 |H | Short_Literal 0x1 0222 e603 | | Load 0x3,0x3 0223 e608 | | Load 0x3,0x8 0224 035b | [ | Declare_Type Array,Constrained 0225 0337 | 7 | Declare_Variable Array 0226 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call 0228 4800 |H | Short_Literal 0x0 0229 0093 0403 | | push_full_address INIT_0400 022b 02a0 | | Declare_Subprogram Null_Subprogram 022c 038e | | Declare_Type Package,Defined 022d 0387 | | Declare_Variable Package 022e 00b6 | | Action Make_Scope 022f 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0230 4806 |H | Short_Literal 0x6 0231 4803 |H | Short_Literal 0x3 0232 0099 | | Action Reference_Dynamic 0233 e605 | | Load 0x3,0x5 0234 4804 |H | Short_Literal 0x4 0235 e612 | | Load 0x3,0x12 0236 020e | | Execute Module,Augment_Imports 0237 00d8 | | Load_Top At_Offset_0 0238 020f | | Execute Module,Activate 0239 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 023b 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 023d 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 023f BODY_01f0: 023f e605 | | Load 0x3,0x5 0240 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0241 e605 | | Load 0x3,0x5 0242 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0243 c606 | | Store 0x3,0x6 0244 0092 0430 | 0| Action Push_String_Extended,0x430 ; "Initialized the name map" 0246 e00b | | Load 0x0,0xb 0247 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0248 8611 | | Call 0x3,0x11 0249 0092 0431 | 1| Action Push_String_Extended,0x431 ; "Set up the unit list" 024b e00b | | Load 0x0,0xb 024c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 024d 8613 | | Call 0x3,0x13 024e 0092 0432 | 2| Action Push_String_Extended,0x432 ; "Set up dependents of each unit" 0250 e00b | | Load 0x0,0xb 0251 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0252 8614 | | Call 0x3,0x14 0253 0092 0433 | 3| Action Push_String_Extended,0x433 ; "Set up transitive dependency tables" 0255 e00b | | Load 0x0,0xb 0256 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0257 e610 | | Load 0x3,0x10 0258 e609 | | Load 0x3,0x9 0259 e60a | | Load 0x3,0xa 025a e60b | | Load 0x3,0xb 025b 480c |H | Short_Literal 0xc 025c 4803 |H | Short_Literal 0x3 025d 0099 | | Action Reference_Dynamic 025e 480d |H | Short_Literal 0xd 025f 4803 |H | Short_Literal 0x3 0260 0099 | | Action Reference_Dynamic 0261 8008 | | Call 0x0,0x8 0262 00d1 | | Pop_Control Pop_Count_1 0263 0092 0434 | 4| Action Push_String_Extended,0x434 ; "Sorted the array" 0265 e00b | | Load 0x0,0xb 0266 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0267 8615 | | Call 0x3,0x15 0268 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0269 0000 0000 | | .BLANK 0000[0x7] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0279 | y | .CONST 0x0279 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0003 | | .CONST 0x0003 ; Number of locals 0273 INIT_0270: 0273 e210 | | Load 0x1,0x10 0274 02c7 | | Declare_Variable Any 0275 00d8 | | Load_Top At_Offset_0 0276 1c00 | | Execute_Immediate Run_Utility,0x0 0277 029f 0383 | | Declare_Subprogram INIT_0380,For_Call 0279 BODY_0270: 0279 00cf | | Action Mark_Auxiliary 027a e610 | | Load 0x3,0x10 027b 01d9 | | Execute Vector,Reverse_Bounds 027c 0263 | c | Execute Discrete,Above_Bound 027d 7065 |pe | Jump_Nonzero 0x2e3 027e e602 | | Load 0x3,0x2 027f e001 | | Load 0x0,0x1 0280 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0281 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0282 c802 | | Store 0x4,0x2 0283 e603 | | Load 0x3,0x3 0284 e21a | | Load 0x1,0x1a 0285 1c08 | | Execute_Immediate Run_Utility,0x8 0286 e802 | | Load 0x4,0x2 0287 e21a | | Load 0x1,0x1a 0288 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2 0289 0119 | | Execute Any,Check_In_Formal_Type 028a 00d9 | | Load_Top At_Offset_1 028b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 028c e802 | | Load 0x4,0x2 028d 8228 | ( | Call 0x1,0x28 028e e226 | & | Load 0x1,0x26 028f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0290 00d9 | | Load_Top At_Offset_1 0291 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0292 00d9 | | Load_Top At_Offset_1 0293 00d9 | | Load_Top At_Offset_1 0294 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 0295 e802 | | Load 0x4,0x2 0296 8803 | | Call 0x4,0x3 0297 e21a | | Load 0x1,0x1a 0298 2305 |# | Execute Variant_Record,Field_Type,Field_Number 0x5 0299 0119 | | Execute Any,Check_In_Formal_Type 029a 00d9 | | Load_Top At_Offset_1 029b 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 029c 4800 |H | Short_Literal 0x0 029d 00d9 | | Load_Top At_Offset_1 029e 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 029f 00d8 | | Load_Top At_Offset_0 02a0 250a |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0xa 02a1 0335 | 5 | Declare_Variable Array,Duplicate 02a2 00cd | | Action Spare6_Action 02a3 00d9 | | Load_Top At_Offset_1 02a4 250a |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0xa 02a5 01d9 | | Execute Vector,Reverse_Bounds 02a6 0263 | c | Execute Discrete,Above_Bound 02a7 7005 |p | Jump_Nonzero 0x2ad 02a8 4800 |H | Short_Literal 0x0 02a9 00d9 | | Load_Top At_Offset_1 02aa e808 | | Load 0x4,0x8 02ab 01d6 | | Execute Vector,Field_Write 02ac 3ffb |? | Loop_Increasing 0x2a8 02ad 00d9 | | Load_Top At_Offset_1 02ae 00d8 | | Load_Top At_Offset_0 02af 250a |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0xa 02b0 00da | | Load_Top At_Offset_2 02b1 01da | | Execute Vector,Bounds 02b2 00da | | Load_Top At_Offset_2 02b3 01da | | Execute Vector,Bounds 02b4 00da | | Load_Top At_Offset_2 02b5 027f | | Execute Discrete,Equal 02b6 7001 |p | Jump_Nonzero 0x2b8 02b7 08e0 | | Execute_Immediate Raise,0xe0 02b8 00cd | | Action Spare6_Action 02b9 027f | | Execute Discrete,Equal 02ba 7001 |p | Jump_Nonzero 0x2bc 02bb 08e0 | | Execute_Immediate Raise,0xe0 02bc 00d2 | | Pop_Control Pop_Count_2 02bd 00d9 | | Load_Top At_Offset_1 02be 290a |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0xa 02bf 4800 |H | Short_Literal 0x0 02c0 00d9 | | Load_Top At_Offset_1 02c1 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 02c2 e224 | $ | Load 0x1,0x24 02c3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02c4 00d9 | | Load_Top At_Offset_1 02c5 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8 02c6 4801 |H | Short_Literal 0x1 02c7 00d9 | | Load_Top At_Offset_1 02c8 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9 02c9 e20d | | Load 0x1,0xd 02ca 03b6 | | Declare_Variable Access,By_Allocation,With_Value 02cb 00d9 | | Load_Top At_Offset_1 02cc e610 | | Load 0x3,0x10 02cd 01d6 | | Execute Vector,Field_Write 02ce e606 | | Load 0x3,0x6 02cf 4800 |H | Short_Literal 0x0 02d0 00da | | Load_Top At_Offset_2 02d1 e610 | | Load 0x3,0x10 02d2 01d7 | | Execute Vector,Field_Read 02d3 00db | | Load_Top At_Offset_3 02d4 e610 | | Load 0x3,0x10 02d5 01d7 | | Execute Vector,Field_Read 02d6 0227 | ' | Execute Access,All_Reference 02d7 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 02d8 0227 | ' | Execute Access,All_Reference 02d9 e605 | | Load 0x3,0x5 02da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02db c606 | | Store 0x3,0x6 02dc e602 | | Load 0x3,0x2 02dd e001 | | Load 0x0,0x1 02de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02df 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02e0 c602 | | Store 0x3,0x2 02e1 00c8 | | Action Pop_Auxiliary_Range 02e2 3f9b |? | Loop_Increasing 0x27e 02e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e4 0000 0000 | | .BLANK 0000[0x4] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02f3 | | .CONST 0x02f3 ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0004 | | .CONST 0x0004 ; Number of locals 02eb INIT_02e8: 02eb e211 | | Load 0x1,0x11 02ec 02c7 | | Declare_Variable Any 02ed 00d8 | | Load_Top At_Offset_0 02ee 1c00 | | Execute_Immediate Run_Utility,0x0 02ef 029f 039b | | Declare_Subprogram INIT_0398,For_Call 02f1 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call 02f3 BODY_02e8: 02f3 00cf | | Action Mark_Auxiliary 02f4 e610 | | Load 0x3,0x10 02f5 01d9 | | Execute Vector,Reverse_Bounds 02f6 0263 | c | Execute Discrete,Above_Bound 02f7 702f |p/ | Jump_Nonzero 0x327 02f8 00d8 | | Load_Top At_Offset_0 02f9 e610 | | Load 0x3,0x10 02fa 01d7 | | Execute Vector,Field_Read 02fb 0227 | ' | Execute Access,All_Reference 02fc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02fd 85fc | | Call 0x2,-0x4 02fe c802 | | Store 0x4,0x2 02ff 00cf | | Action Mark_Auxiliary 0300 781e |x | Jump 0x31f 0301 e802 | | Load 0x4,0x2 0302 e001 | | Load 0x0,0x1 0303 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0304 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0305 e612 | | Load 0x3,0x12 0306 180d | | Execute Package,Field_Execute,Field_Number 0xd 0307 6802 |h | Jump_Zero 0x30a 0308 8803 | | Call 0x4,0x3 0309 780f |x | Jump 0x319 030a e802 | | Load 0x4,0x2 030b e001 | | Load 0x0,0x1 030c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 030e e00c | | Load 0x0,0xc 030f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0310 6802 |h | Jump_Zero 0x313 0311 8804 | | Call 0x4,0x4 0312 7806 |x | Jump 0x319 0313 4801 |H | Short_Literal 0x1 0314 00da | | Load_Top At_Offset_2 0315 e610 | | Load 0x3,0x10 0316 01d7 | | Execute Vector,Field_Read 0317 0227 | ' | Execute Access,All_Reference 0318 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0319 e802 | | Load 0x4,0x2 031a e001 | | Load 0x0,0x1 031b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 031d c802 | | Store 0x4,0x2 031e 00c9 | | Action Pop_Auxiliary_Loop 031f e802 | | Load 0x4,0x2 0320 e001 | | Load 0x0,0x1 0321 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0322 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0323 6fdd |o | Jump_Zero 0x301 0324 00ce | | Action Pop_Auxiliary 0325 00c8 | | Action Pop_Auxiliary_Range 0326 3fd1 |? | Loop_Increasing 0x2f8 0327 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00cf | | Action Mark_Auxiliary 032c e610 | | Load 0x3,0x10 032d 01d9 | | Execute Vector,Reverse_Bounds 032e 0263 | c | Execute Discrete,Above_Bound 032f 700b |p | Jump_Nonzero 0x33b 0330 00d8 | | Load_Top At_Offset_0 0331 e610 | | Load 0x3,0x10 0332 01d7 | | Execute Vector,Field_Read 0333 00d9 | | Load_Top At_Offset_1 0334 e610 | | Load 0x3,0x10 0335 01d7 | | Execute Vector,Field_Read 0336 0227 | ' | Execute Access,All_Reference 0337 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0338 822a | * | Call 0x1,0x2a 0339 00c8 | | Action Pop_Auxiliary_Range 033a 3ff5 |? | Loop_Increasing 0x330 033b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 033c 0000 0000 | | .BLANK 0000[0x4] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 034b | K | .CONST 0x034b ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0003 | | .CONST 0x0003 ; Number of locals 0343 INIT_0340: 0343 00e3 | | Load_Encached Natural_Cache 0344 4801 |H | Short_Literal 0x1 0345 e603 | | Load 0x3,0x3 0346 e604 | | Load 0x3,0x4 0347 0272 | r | Execute Discrete,Minus 0348 e20f | | Load 0x1,0xf 0349 035b | [ | Declare_Type Array,Constrained 034a 0337 | 7 | Declare_Variable Array 034b BODY_0340: 034b 4801 |H | Short_Literal 0x1 034c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 034d 00cf | | Action Mark_Auxiliary 034e e610 | | Load 0x3,0x10 034f 01d9 | | Execute Vector,Reverse_Bounds 0350 0263 | c | Execute Discrete,Above_Bound 0351 7023 |p# | Jump_Nonzero 0x375 0352 00d8 | | Load_Top At_Offset_0 0353 e610 | | Load 0x3,0x10 0354 01d7 | | Execute Vector,Field_Read 0355 0227 | ' | Execute Access,All_Reference 0356 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0357 e001 | | Load 0x0,0x1 0358 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0359 180f | | Execute Package,Field_Execute,Field_Number 0xf 035a 680a |h | Jump_Zero 0x365 035b 00d8 | | Load_Top At_Offset_0 035c e610 | | Load 0x3,0x10 035d 01d7 | | Execute Vector,Field_Read 035e e802 | | Load 0x4,0x2 035f e803 | | Load 0x4,0x3 0360 01d6 | | Execute Vector,Field_Write 0361 e802 | | Load 0x4,0x2 0362 0a01 | | Execute_Immediate Plus,0x1 0363 c802 | | Store 0x4,0x2 0364 780e |x | Jump 0x373 0365 0092 0435 | 5| Action Push_String_Extended,0x435 ; "Collapsing spec " 0367 00d9 | | Load_Top At_Offset_1 0368 e610 | | Load 0x3,0x10 0369 01d7 | | Execute Vector,Field_Read 036a 0227 | ' | Execute Access,All_Reference 036b 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 036c 0227 | ' | Execute Access,All_Reference 036d 01cc | | Execute Vector,Catenate 036e 0092 0436 | 6| Action Push_String_Extended,0x436 ; " in spec view to corresponding spec in load view" 0370 01cc | | Execute Vector,Catenate 0371 e00b | | Load 0x0,0xb 0372 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0373 00c8 | | Action Pop_Auxiliary_Range 0374 3fdd |? | Loop_Increasing 0x352 0375 00ce | | Action Pop_Auxiliary 0376 0092 0437 | 7| Action Push_String_Extended,0x437 ; "Returned final result" 0378 e00b | | Load 0x0,0xb 0379 1820 | | Execute Package,Field_Execute,Field_Number 0x20 037a 00d8 | | Load_Top At_Offset_0 037b e20f | | Load 0x1,0xf 037c 01c6 | | Execute Vector,Convert_To_Formal 037d 00ca | | Action Exit_Nullary_Function 037e 0000 0000 | | .XXX[0x2] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0388 | | .CONST 0x0388 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0002 | | .CONST 0x0002 ; Number of locals 0383 INIT_0380: 0383 e210 | | Load 0x1,0x10 0384 02c7 | | Declare_Variable Any 0385 e802 | | Load 0x4,0x2 0386 85fe | | Call 0x2,-0x2 0387 aa02 | | Store_Unchecked 0x5,0x2 0388 BODY_0380: 0388 00d8 | | Load_Top At_Offset_0 0389 ebff | | Load 0x5,-0x1 038a e001 | | Load 0x0,0x1 038b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 038c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 038d 7005 |p | Jump_Nonzero 0x393 038e e604 | | Load 0x3,0x4 038f 0a01 | | Execute_Immediate Plus,0x1 0390 c604 | | Store 0x3,0x4 0391 00d8 | | Load_Top At_Offset_0 0392 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0393 e001 | | Load 0x0,0x1 0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0395 180e | | Execute Package,Field_Execute,Field_Number 0xe 0396 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0397 0000 | | .XXX[0x1] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a1 | | .CONST 0x03a1 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0003 | | .CONST 0x0003 ; Number of locals 039b INIT_0398: 039b e20d | | Load 0x1,0xd 039c e612 | | Load 0x3,0x12 039d 180e | | Execute Package,Field_Execute,Field_Number 0xe 039e 0039 | 9 | Store_Top Access,At_Offset_1 039f e20d | | Load 0x1,0xd 03a0 0007 | | Action Break_Optional 03a1 BODY_0398: 03a1 00d9 | | Load_Top At_Offset_1 03a2 0227 | ' | Execute Access,All_Reference 03a3 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 03a4 e612 | | Load 0x3,0x12 03a5 180d | | Execute Package,Field_Execute,Field_Number 0xd 03a6 680f |h | Jump_Zero 0x3b6 03a7 e807 | | Load 0x4,0x7 03a8 e610 | | Load 0x3,0x10 03a9 01d7 | | Execute Vector,Field_Read 03aa 0227 | ' | Execute Access,All_Reference 03ab 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 03ac e612 | | Load 0x3,0x12 03ad 180e | | Execute Package,Field_Execute,Field_Number 0xe 03ae e224 | $ | Load 0x1,0x24 03af 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03b0 e807 | | Load 0x4,0x7 03b1 e610 | | Load 0x3,0x10 03b2 01d7 | | Execute Vector,Field_Read 03b3 0227 | ' | Execute Access,All_Reference 03b4 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8 03b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03b6 e807 | | Load 0x4,0x7 03b7 e610 | | Load 0x3,0x10 03b8 01d7 | | Execute Vector,Field_Read 03b9 0227 | ' | Execute Access,All_Reference 03ba 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 03bb 00da | | Load_Top At_Offset_2 03bc e224 | $ | Load 0x1,0x24 03bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03be e807 | | Load 0x4,0x7 03bf e610 | | Load 0x3,0x10 03c0 01d7 | | Execute Vector,Field_Read 03c1 0227 | ' | Execute Access,All_Reference 03c2 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8 03c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03c4 0000 0000 | | .BLANK 0000[0x4] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03d6 | | .CONST 0x03d6 ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0002 | | .CONST 0x0002 ; Number of locals 03cb INIT_03c8: 03cb e001 | | Load 0x0,0x1 03cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ce 02c7 | | Declare_Variable Any 03cf e802 | | Load 0x4,0x2 03d0 e001 | | Load 0x0,0x1 03d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03d3 e00c | | Load 0x0,0xc 03d4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03d5 aa02 | | Store_Unchecked 0x5,0x2 03d6 BODY_03c8: 03d6 00d8 | | Load_Top At_Offset_0 03d7 e001 | | Load 0x0,0x1 03d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d9 180f | | Execute Package,Field_Execute,Field_Number 0xf 03da 701a |p | Jump_Nonzero 0x3f5 03db 00d8 | | Load_Top At_Offset_0 03dc e612 | | Load 0x3,0x12 03dd 180d | | Execute Package,Field_Execute,Field_Number 0xd 03de 680f |h | Jump_Zero 0x3ee 03df e807 | | Load 0x4,0x7 03e0 e610 | | Load 0x3,0x10 03e1 01d7 | | Execute Vector,Field_Read 03e2 0227 | ' | Execute Access,All_Reference 03e3 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 03e4 e612 | | Load 0x3,0x12 03e5 180e | | Execute Package,Field_Execute,Field_Number 0xe 03e6 e224 | $ | Load 0x1,0x24 03e7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03e8 e807 | | Load 0x4,0x7 03e9 e610 | | Load 0x3,0x10 03ea 01d7 | | Execute Vector,Field_Read 03eb 0227 | ' | Execute Access,All_Reference 03ec 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8 03ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ee 4801 |H | Short_Literal 0x1 03ef e807 | | Load 0x4,0x7 03f0 e610 | | Load 0x3,0x10 03f1 01d7 | | Execute Vector,Field_Read 03f2 0227 | ' | Execute Access,All_Reference 03f3 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 03f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03f5 4801 |H | Short_Literal 0x1 03f6 e807 | | Load 0x4,0x7 03f7 e610 | | Load 0x3,0x10 03f8 01d7 | | Execute Vector,Field_Read 03f9 0227 | ' | Execute Access,All_Reference 03fa 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 03fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03fc 0000 0000 | | .BLANK 0000[0x4] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0410 | | .CONST 0x0410 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0010 | | .CONST 0x0010 ; Number of locals 0403 INIT_0400: 0403 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated 0405 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated 0407 00bf | | Action Accept_Activation 0408 00e1 | | Load_Encached Boolean_Cache 0409 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 040a e001 | | Load 0x0,0x1 040b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 040c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 040d 00c7 | | Action Elaborate_Subprogram 040e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 040f 00c7 | | Action Elaborate_Subprogram 0410 BODY_0400: 0410 00bc | | Action Signal_Activated 0411 00bb | | Action Signal_Completion 0412 0000 0000 | | .BLANK 0000[0x6] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b 00e1 | | Load_Encached Boolean_Cache 041c e210 | | Load 0x1,0x10 041d e5ff | | Load 0x2,-0x1 041e 8002 | | Call 0x0,0x2 041f e003 | | Load 0x0,0x3 0420 e004 | | Load 0x0,0x4 0421 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0422 c210 | | Store 0x1,0x10 0423 c20f | | Store 0x1,0xf 0424 e20f | | Load 0x1,0xf 0425 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0426 0000 0000 | | .XXX[0x2] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b e20f | | Load 0x1,0xf 042c 7001 |p | Jump_Nonzero 0x42e 042d 0887 | | Execute_Immediate Raise,0x87 042e e210 | | Load 0x1,0x10 042f 00ca | | Action Exit_Nullary_Function 0430 ; -------------------------------------------------------------------------------------- 0430 ; STRING TABLE 0430 ; -------------------------------------------------------------------------------------- 0430 0012 | | .STRTAB 0x0012->0x0439 ; "Initialized the name map" 0431 0028 | ( | .STRTAB 0x0028->0x0445 ; "Set up the unit list" 0432 003a | : | .STRTAB 0x003a->0x044f ; "Set up dependents of each unit" 0433 0056 | V | .STRTAB 0x0056->0x045e ; "Set up transitive dependency tables" 0434 0077 | w | .STRTAB 0x0077->0x046f ; "Sorted the array" 0435 0085 | | .STRTAB 0x0085->0x0477 ; "Collapsing spec " 0436 0093 | | .STRTAB 0x0093->0x047f ; " in spec view to corresponding spec in load view" 0437 00c1 | | .STRTAB 0x00c1->0x0497 ; "Returned final result" 0438 00d4 | | .STREND 0x00d4->0x04a2 0439 496e 6974 |Init| .STRTAB_STRINGS 04a2 0000 0000 | | .BLANK 0000[0x6] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; Debug Table 04a8 ; -------------------------------------------------------------------------------------- 04a8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0ed5,0x0000,0x0001,0x0000 04ae 8f5f 8496 | _ | .XXX[0x152] 04b0 a3d8 4101 | A | 04b2 9b9f 610d | a | 04b4 bf5e b7d9 | ^ | 04b6 c75e bfda | ^ | 04b8 9fb0 b691 | | 04ba a79f 5559 | UY| 04bc df5e d7d8 | ^ | 04be 31fd eb5d |1 ]| 04c0 bb9f 7159 | qY| 04c2 c39c e291 | | 04c4 ff5d 22d5 | ]" | 04c6 d79e 0b5d | ]| 04c8 2ed7 f319 |. | 04ca 36d7 0fdb |6 | 04cc ad59 ef9c | Y | 04ce 0b1f 1fd8 | | 04d0 131e 039f | | 04d2 2bd8 95fd |+ | 04d4 9e47 3bd9 | G; | 04d6 3a93 43d9 |: C | 04d8 8ad5 b244 | D| 04da e1fa 6b5f | k_| 04dc 57da 735e |W s^| 04de 1b82 0855 | U| 04e0 6a92 875f |j _| 04e2 11d5 6103 | a | 04e4 77d9 e646 |w F| 04e6 9b5f 83d8 | _ | 04e8 7b1d f647 |{ G| 04ea cfcb 93d8 | | 04ec 64e6 e3ca |d | 04ee 5709 a78f |W | 04f0 f3cf a7da | | 04f2 c75e 8f9e | ^ | 04f4 d35f 15e4 | _ | 04f6 b71c 86fc | | 04f8 bf1d de92 | | 04fa ab9f cfd9 | | 04fc ee92 5245 | RE| 04fe 7bf3 e3d8 |{ | 0500 e71f ebdb | | 0502 135e d79c | ^ | 0504 fb1e 1e91 | | 0506 031e 4ed5 | N | 0508 95fc 0bde | | 050a 6ed5 ac01 |n | 050c 1b1e 7102 | q | 050e 9246 ff9c | F | 0510 27df 45af |' E | 0512 5f5f 139c |__ | 0514 3bde 96d6 |; | 0516 b103 279d | ' | 0518 edfe da47 | G| 051a 339e e246 |3 F| 051c aed7 439f | C | 051e 95ae f647 | G| 0520 a75f 539c | _S | 0522 77dd 871c |w | 0524 7fdf b75c | \| 0526 fafa dc9b | | 0528 6f9e ead7 |o | 052a 779e f2d7 |w | 052c 7f9f d40f | | 052e 879e 700b | p | 0530 4247 e75d |BG ]| 0532 18ff 12d7 | | 0534 9f17 f75f | _| 0536 0293 a79f | | 0538 0a90 d3dc | | 053a bbdc 0b47 | G| 053c 281b 2290 |( " | 053e 39b3 3ed4 |9 > | 0540 ebdf b903 | | 0542 fad8 51b0 | Q | 0544 3363 56d7 |3cV | 0546 e39f 62d5 | b | 0548 3012 e1fe |0 | 054a 63f1 13df |c | 054c 6a92 995d |j ]| 054e 1fdc 6361 | ca| 0550 27dc 13a1 |' | 0552 2fdc 1ba0 |/ | 0554 7760 b1b0 |w` | 0556 27a0 8360 |' `| 0558 0648 8f62 | H b| 055a 771c 3ba0 |w ; | 055c 8361 63dc | ac | 055e 849c 4ba2 | K | 0560 2736 931d |'6 | 0562 01b3 f6d4 | | 0564 5fa1 83df |_ | 0566 b661 2db1 | a- | 0568 93dc 16d9 | | 056a 9bdf fe90 | | 056c 6e49 a7de |nI | 056e cb1d afdc | | 0570 e3a0 f361 | a| 0572 35b0 fb63 |5 c| 0574 895c d6ac | \ | 0576 3294 3414 |2 4 | 0578 afa1 d3dd | | 057a 1762 ff1d | b | 057c 1f63 071c | c | 057e c7a3 0f1c | | 0580 76d8 0a01 |v | 0582 3b63 231d |;c# | 0584 ffdf 715e | q^| 0586 07dc efa1 | | 0588 9105 c9cf | | 058a 431d 6362 |C cb| 058c 1fdd 024a | J| 058e 27dc 9e97 |' | 0590 ef65 f09c | e | 0592 c6d9 3648 | 6H| 0594 d2da 149f | | 0596 771d 2fa1 |w / | 0598 9b61 37a3 | a7 | 059a 871e 5fdf | _ | 059c 8f1e 35b9 | 5 | 059e 4ba1 5a4a |K ZJ| 05a0 5c9d bf62 |\ b| 05a2 4dcf a71c |M | 05a4 ae03 af1e | | 05a6 8bdc 6832 | h2| 05a8 93de 6816 | h | 05aa 9bdd 9249 | I| 05ac 87a0 da01 | | 05ae 8fa1 a249 | I| 05b0 4ad9 ff61 |J a| 05b2 ae4a dc9d | J | 05b4 b64b 98c2 | K | 05b6 c7de 949d | | 05b8 b3a2 dbdd | | 05ba 7252 6815 |rRh | 05bc 7ad9 2600 |z & | 05be 2322 f7dc |#" | 05c0 2b22 ffdf |+" | 05c2 db35 8297 | 5 | 05c4 2c9d eba0 |, | 05c6 4b20 00c7 |K | 05c8 1bde d104 | | 05ca 5b22 8763 |[" c| 05cc 2fdf 6417 |/ d | 05ce 37dd be96 |7 | 05d0 5249 c695 |RI | 05d2 8562 2ba0 | b+ | 05d4 3fe6 33a3 |? 3 | 05d6 57dc 9323 |W #| 05d8 e89d e697 | | 05da 8106 4ba0 | K | 05dc a722 c360 | " `| 05de af22 cb60 | " `| 05e0 b723 83df | # | 05e2 73df 8bdc |s | 05e4 c722 73a0 | "s | 05e6 cf23 9bde | # | 05e8 ef62 83a2 | b | 05ea f762 52da | bR | 05ec a3a0 07e2 | | 05ee 1a02 97a3 | | 05f0 3e4b 1361 |>K a| 05f2 5f23 efde |_# | 05f4 241b 2363 |$ #c| 05f6 aed9 ab23 | #| 05f8 0e49 b0ea | I | 05fa c3a3 f7de | | 05fc 241a cfa1 |$ | 05fe 8db7 4f62 | Ob|