|
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_1060f5
└─⟦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 c000 0000 | | .XXX[0x3c] 04b0 0000 0053 | S| 04b2 2b75 14cb |+u | 04b4 8885 32e8 | 2 | 04b6 1000 0ccc | | 04b8 4853 2ad1 |HS* | 04ba 0000 0005 | | 04bc 32c1 914c |2 L| 04be b6ac 0000 | | 04c0 0000 004c | L| 04c2 c485 32b7 | 2 | 04c4 5000 0000 |P | 04c6 532f 9414 |S/ | 04c8 cb4d 0000 | M | 04ca 0000 0004 | | 04cc ec5c 532f | \S/| 04ce 9400 0000 | | 04d0 002a 8280 | * | 04d2 0cf5 09d8 | | 04d4 b8a6 5832 | X2| 04d6 0000 0000 | | 04d8 8e05 0031 | 1| 04da 3793 b171 |7 q| 04dc 4cad d400 |L | 04de 0000 0096 | | 04e0 0a00 63dc | c | 04e2 2112 6299 |! b | 04e4 5688 0000 |V | 04e6 0000 0000 | | 04e8 4763 4000 |Gc@ | 04ea 0000 0000 | | .BLANK 0000[0x5] 04ef 0026 a162 | & b| .XXX[0x6] 04f1 997c a000 | | | 04f3 0000 00b4 | | 04f5 0000 0000 | | .BLANK 0000[0x4] 04f9 0998 90a6 | | .XXX[0x8] 04fb 5832 0000 |X2 | 04fd 000a 65df | e | 04ff 4299 65e8 |B e | 0501 0000 0000 | | .BLANK 0000[0x4] 0505 1065 b000 | e | .XXX[0x3d] 0507 0000 0000 | | 0509 0014 cc3d | =| 050b c533 3a41 | 3:A| 050d 4cd0 0c00 |L | 050f 0333 1214 | 3 | 0511 cc14 c000 | | 0513 0001 4cc6 | L | 0515 6c53 332d |lS3-| 0517 0000 0000 | | 0519 0013 3121 | 1!| 051b 4cc3 dc00 |L | 051d 0000 14cd | | 051f 4585 332b |E 3+| 0521 6000 0000 |` | 0523 0001 3b17 | ; | 0525 14cd 4580 | E | 0527 0000 000a | | 0529 a0a0 033d | =| 052b 4276 2e29 |Bv.)| 052d 98cd 8000 | | 052f 0000 2381 | # | 0531 400c 4de4 |@ M | 0533 ec5c 5330 | \S0| 0535 f700 0000 | | 0537 0005 0280 | | 0539 1927 d844 | ' D| 053b 98a6 60a6 | ` | 053d 0000 0000 | | 053f 0000 11d8 | | 0541 d000 | | 0542 0000 0000 | | .BLANK 0000[0x5] 0547 0009 a858 | X| .XXX[0x6] 0549 a66a 2c00 | j, | 054b 0000 002d | -| 054d 0000 0000 | | .BLANK 0000[0x4] 0551 0266 2429 | f$)| .XXX[0x8] 0553 98cd 8000 | | 0555 0002 99a3 | | 0557 e0a6 647e | d~| 0559 0000 0000 | | .BLANK 0000[0x4] 055d 0419 6c00 | l | .XXX[0x3d] 055f 0000 0000 | | 0561 0005 3367 | 3g| 0563 914c e498 | L | 0565 5339 8500 |S9 | 0567 00cc c485 | | 0569 335d 5000 |3]P | 056b 0000 5337 | S7| 056d 1d14 ce2b | +| 056f c000 0000 | | 0571 0004 cc48 | H| 0573 5336 7900 |S6y | 0575 0000 0533 | 3| 0577 a981 4ce0 | L | 0579 e000 0000 | | 057b 0000 4ec5 | N | 057d c533 a980 | 3 | 057f 0000 0002 | | 0581 a828 00cf | ( | 0583 509d 8b8a |P | 0585 66e3 a000 |f | 0587 0000 08e0 | | 0589 5003 1379 |P y| 058b 3b17 14cd |; | 058d 9e40 0000 | @ | 058f 0001 40a0 | @ | 0591 0649 f611 | I | 0593 2629 9aea |&) | 0595 8000 0000 | | 0597 0000 0476 | v| 0599 3400 |4 | 059a 0000 0000 | | .BLANK 0000[0x5] 059f 0002 6a16 | j | .XXX[0x53] 05a1 299d 4c00 |) L | 05a3 0000 000b | | 05a5 4000 0000 |@ | 05a7 0000 0000 | | 05a9 0099 890a | | 05ab 66e3 a000 |f | 05ad 0000 a673 | s| 05af fc29 9be0 | ) | 05b1 8000 0000 | | 05b3 0000 0000 | | 05b5 0106 5b00 | [ | 05b7 0000 0000 | | 05b9 0001 4cef | L | 05bb ec53 3ea8 | S> | 05bd 14cf c1c0 | | 05bf 0033 3121 | 31!| 05c1 4ced 5c00 |L \ | 05c3 0000 14cf | | 05c5 27c5 33e3 |' 3 | 05c7 1000 0000 | | 05c9 0001 3312 | 3 | 05cb 14ce fec0 | | 05cd 0000 014d | M| 05cf 0068 533d | hS=| 05d1 ba00 0000 | | 05d3 0000 13b1 | | 05d5 714d 0068 |qM h| 05d7 0000 0000 | | 05d9 aa0a 0033 | 3| 05db d427 62e2 | 'b | 05dd 99e4 f800 | | 05df 0000 0238 | 8| 05e1 1400 c4de | | 05e3 4ec5 c533 |N 3| 05e5 bfb0 0000 | | 05e7 0000 5028 | P(| 05e9 0192 7d84 | } | 05eb 498a 676a |I gj| 05ed e000 0000 | | 05ef 0000 011d | | 05f1 8d00 | | 05f2 0000 0000 | | .BLANK 0000[0x6] 05f8 9a85 8a68 | h| .XXX[0x8] 05fa 0340 0000 | @ | 05fc 0002 d000 | | 05fe 0000 0000 | |