|
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_0694fc
└─⟦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 d081 d5b9 | | .XXX[0x152]
04b0 9195 c9b1 | |
04b2 a5b9 9428 | (|
04b4 8081 8da1 | |
04b6 85c9 858d | |
04b8 d195 c9cc | |
04ba 81bd c881 | |
04bc 95e1 c1bd | |
04be b995 b9d1 | |
04c0 ccb0 8185 | |
04c2 b990 81c1 | |
04c4 c995 8d95 | |
04c6 9195 9081 | |
04c8 89e4 8184 | |
04ca 81b5 a5b9 | |
04cc d5cc 81cd | |
04ce a59d b881 | |
04d0 a598 81b9 | |
04d2 959d 85d1 | |
04d4 a5d9 94b8 | |
04d6 2880 8151 |( Q|
04d8 a194 8199 | |
04da bdc9 b585 | |
04dc d080 a1dd | |
04de a1a5 8da0 | |
04e0 81a5 b98d | |
04e2 b1d5 9195 | |
04e4 cc81 85b9 | |
04e6 e481 b195 | |
04e8 8591 a5b9 | |
04ea 9c81 cdc1 | |
04ec 858d 95cc | |
04ee 8185 b990 | |
04f0 8184 81b5 | |
04f2 a5b9 d5cc | |
04f4 81cd a59d | |
04f6 b8a4 2880 | ( |
04f8 818d 85b8 | |
04fa 8189 9481 | |
04fc cdc1 958d | |
04fe a599 a595 | |
0500 9081 89e4 | |
0502 8185 b881 | |
0504 bdc1 d1a5 | |
0506 bdb9 85b0 | |
0508 8199 a595 | |
050a b190 815d | ]|
050c a591 d1a0 | |
050e 81c1 85c9 | |
0510 85b5 95d1 | |
0512 95c8 b880 | |
0514 8159 85b1 | Y |
0516 d595 cc81 | |
0518 bd98 2880 | ( |
051a 81dd a591 | |
051c d1a1 cc81 | |
051e bd98 8199 | |
0520 a595 b191 | |
0522 cc81 a5b8 | |
0524 81bd d5d1 | |
0526 c1d5 d081 | |
0528 99bd c9b5 | |
052a 85d1 cc81 | |
052c 85c9 9481 | |
052e bd98 81d1 | |
0530 a194 81b9 | |
0532 bdb9 b995 | |
0534 9d85 d1a5 | |
0536 d994 81a5 | |
0538 b9d1 959d | |
053a 95c8 2880 | ( |
053c 8119 a595 | |
053e b190 81cd | |
0540 d589 d1e5 | |
0542 c194 b880 | |
0544 8159 85b1 | Y |
0546 d595 cc81 | |
0548 bd98 8189 | |
054a 85cd 95cc | |
054c 8185 c994 | |
054e 81bd 9881 | |
0550 d1a1 9481 | |
0552 a5b9 d195 | |
0554 9d95 c881 | |
0556 39d5 b589 |9 |
0558 95c9 7d09 | } |
055a 85cd 9428 | (|
055c 8081 cdd5 | |
055e 89d1 e5c1 | |
0560 94b8 2880 | ( |
0562 8101 b9bd | |
0564 9194 8085 | |
0566 25bc b925 |% %|
0568 bcb9 25b9 | % |
056a d195 9d95 | |
056c c97d 25bc | }% |
056e b911 9599 | |
0570 85d5 b1d1 | |
0572 7d09 85cd |} |
0574 9428 2880 | (( |
0576 8111 9599 | |
0578 85d5 b1d1 | |
057a 7d09 85cd |} |
057c 9480 e881 | |
057e 39d5 b589 |9 |
0580 95c9 7d09 | } |
0582 85cd 9480 | |
0584 e8f4 80c4 | |
0586 c0ec 2828 | ((|
0588 8081 1195 | |
058a b9bd d195 | |
058c cc81 d1a1 | |
058e 9481 9195 | |
0590 9985 d5b1 | |
0592 d081 c985 | |
0594 91a5 e081 | |
0596 8985 cd94 | |
0598 81d1 bc81 | |
059a 8994 81d5 | |
059c cd95 9081 | |
059e a5b8 81bd | |
05a0 d5d1 c1d5 | |
05a2 d081 c1c9 | |
05a4 bd8d 9591 | |
05a6 d5c9 95cc | |
05a8 b828 8081 | ( |
05aa 01b9 bd91 | |
05ac 9480 8525 | %|
05ae bcb9 25bc | % |
05b0 b925 b9d1 | % |
05b2 959d 95c9 | |
05b4 7d25 bcb9 |}% |
05b6 1195 9985 | |
05b8 d5b1 d17d | }|
05ba 5da5 91d1 |] |
05bc a028 2880 | (( |
05be 8111 9599 | |
05c0 85d5 b1d1 | |
05c2 7d5d a591 |}] |
05c4 d1a0 80e8 | |
05c6 8119 a595 | |
05c8 b190 80e8 | |
05ca f481 39d5 | 9 |
05cc b49d 5da5 | ] |
05ce 91d1 a0ec | |
05d0 2828 8081 |(( |
05d2 1195 b9bd | |
05d4 d195 cc81 | |
05d6 d1a1 9481 | |
05d8 9195 9985 | |
05da d5b1 d081 | |
05dc dda5 91d1 | |
05de a081 d1bc | |
05e0 8189 9481 | |
05e2 d5cd 9590 | |
05e4 81a5 b881 | |
05e6 bdd5 d1c1 | |
05e8 d5d0 81c1 | |
05ea c9bd 8d95 | |
05ec 91d5 c995 | |
05ee ccb8 2880 | ( |
05f0 8101 b9bd | |
05f2 9194 8085 | |
05f4 25bc b925 |% %|
05f6 bcb9 25b9 | % |
05f8 d195 9d95 | |
05fa c97d 25bc | }% |
05fc b91d 95d0 | |
05fe 2828 8081 |(( |