|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 04a8 | | .CONST 0x04a8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0090 | | .CONST 0x0090 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002a | * | .CONST 0x002a ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 00e4 | | Load_Encached Positive_Cache
000e 0129 | ) | Execute Any,Make_Visible
000f 00d8 | | Load_Top At_Offset_0
0010 0266 | f | Execute Discrete,Bounds
0011 00db | | Load_Top At_Offset_3
0012 02a0 | | Declare_Subprogram Null_Subprogram
0013 4801 |H | Short_Literal 0x1
0014 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0015 e001 | | Load 0x0,0x1
0016 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0018 0129 | ) | Execute Any,Make_Visible
0019 e001 | | Load 0x0,0x1
001a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
001c 0129 | ) | Execute Any,Make_Visible
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098
0031 c223 | # | Store 0x1,0x23
0032 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
0034 c214 | | Store 0x1,0x14
0035 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
0037 c215 | | Store 0x1,0x15
0038 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8
003a c216 | | Store 0x1,0x16
003b 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8
003d c217 | | Store 0x1,0x17
003e 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0040 c218 | | Store 0x1,0x18
0041 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
0043 c219 | | Store 0x1,0x19
0044 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
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 For_Call,INIT_0148
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 For_Call,INIT_0148
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 For_Outer_Call,INIT_0178
007c 029d 018b | | Declare_Subprogram For_Outer_Call,INIT_0188
007e 029d 01b3 | | Declare_Subprogram For_Outer_Call,INIT_01b0
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 For_Call,INIT_01f0
009d BODY_0098:
009d e5fa | | Load 0x2,-0x6
009e 8402 | | Call 0x2,0x2
009f 4406 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,0x1
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
; Number of locals
014b BODY_0148:
014b BODY_0148:
014b INIT_0148:
014b INIT_0148:
014b 4608 |F | Jump_Case 0x8
014c 7808 |x | Jump 0x155 ; case 0x0
014d 4302 |C | Exit_Subprogram From_Utility,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,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,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 | Execute Variant_Record,Indirects_Appended
0172 4202 |B | Exit_Subprogram From_Utility,With_Result,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_Result,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_Result,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,Fixed,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,Fixed,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_Subprogram 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 | | Reference 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 0x7fd
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 For_Call,INIT_0270
0228 4800 |H | Short_Literal 0x0
0229 0093 0403 | | PushFullAddress InMicrocode,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 For_Call,INIT_02e8
023b 029f 032b | +| Declare_Subprogram For_Call,INIT_0328
023d 029f 0343 | C| Declare_Subprogram For_Call,INIT_0340
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_Result,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 For_Call,INIT_0380
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,Fixed,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,Fixed,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,Fixed,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_Subprogram 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 For_Call,INIT_0398
02f1 029f 03cb | | Declare_Subprogram For_Call,INIT_03c8
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_Subprogram 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_Subprogram 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_Result,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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Outer_Call,Visible,Unelaborated,INIT_0418
0405 029a 042b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0428
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_Result,0x1
0426 0000 0000 | | .XXX[0x2]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b e20f | | Load 0x1,0xf
042c 7001 |p | Jump_Nonzero 0x42e
042d 0887 | | Execute_Immediate Raise,0x87
042e e210 | | Load 0x1,0x10
042f 00ca | | Action Exit_Nullary_Function
0430 ; --------------------------------------------------------------------------------------
0430 ; STRING TABLE
0430 ; --------------------------------------------------------------------------------------
0430 0012 | | .STRTAB 0x0012->0x0439 ; "Initialized the name map"
0431 0028 | ( | .STRTAB 0x0028->0x0445 ; "Set up the unit list"
0432 003a | : | .STRTAB 0x003a->0x044f ; "Set up dependents of each unit"
0433 0056 | V | .STRTAB 0x0056->0x045e ; "Set up transitive dependency tables"
0434 0077 | w | .STRTAB 0x0077->0x046f ; "Sorted the array"
0435 0085 | | .STRTAB 0x0085->0x0477 ; "Collapsing spec "
0436 0093 | | .STRTAB 0x0093->0x047f ; " in spec view to corresponding spec in load view"
0437 00c1 | | .STRTAB 0x00c1->0x0497 ; "Returned final result"
0438 00d4 | | .STREND 0x00d4->0x04a2
0439 496e 6974 |Init| .STRTAB_STRINGS
04a2 0000 0000 | | .BLANK 0000[0x6]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug Table
04a8 ; --------------------------------------------------------------------------------------
04a8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0ed5,0x0000,0x0001,0x0000
04ae 8f5f 8496 | _ | .XXX[0x152]
04b0 a3d8 4101 | A |
04b2 9b9f 610d | a |
04b4 bf5e b7d9 | ^ |
04b6 c75e bfda | ^ |
04b8 9fb0 b691 | |
04ba a79f 5559 | UY|
04bc df5e d7d8 | ^ |
04be 31fd eb5d |1 ]|
04c0 bb9f 7159 | qY|
04c2 c39c e291 | |
04c4 ff5d 22d5 | ]" |
04c6 d79e 0b5d | ]|
04c8 2ed7 f319 |. |
04ca 36d7 0fdb |6 |
04cc ad59 ef9c | Y |
04ce 0b1f 1fd8 | |
04d0 131e 039f | |
04d2 2bd8 95fd |+ |
04d4 9e47 3bd9 | G; |
04d6 3a93 43d9 |: C |
04d8 8ad5 b244 | D|
04da e1fa 6b5f | k_|
04dc 57da 735e |W s^|
04de 1b82 0855 | U|
04e0 6a92 875f |j _|
04e2 11d5 6103 | a |
04e4 77d9 e646 |w F|
04e6 9b5f 83d8 | _ |
04e8 7b1d f647 |{ G|
04ea cfcb 93d8 | |
04ec 64e6 e3ca |d |
04ee 5709 a78f |W |
04f0 f3cf a7da | |
04f2 c75e 8f9e | ^ |
04f4 d35f 15e4 | _ |
04f6 b71c 86fc | |
04f8 bf1d de92 | |
04fa ab9f cfd9 | |
04fc ee92 5245 | RE|
04fe 7bf3 e3d8 |{ |
0500 e71f ebdb | |
0502 135e d79c | ^ |
0504 fb1e 1e91 | |
0506 031e 4ed5 | N |
0508 95fc 0bde | |
050a 6ed5 ac01 |n |
050c 1b1e 7102 | q |
050e 9246 ff9c | F |
0510 27df 45af |' E |
0512 5f5f 139c |__ |
0514 3bde 96d6 |; |
0516 b103 279d | ' |
0518 edfe da47 | G|
051a 339e e246 |3 F|
051c aed7 439f | C |
051e 95ae f647 | G|
0520 a75f 539c | _S |
0522 77dd 871c |w |
0524 7fdf b75c | \|
0526 fafa dc9b | |
0528 6f9e ead7 |o |
052a 779e f2d7 |w |
052c 7f9f d40f | |
052e 879e 700b | p |
0530 4247 e75d |BG ]|
0532 18ff 12d7 | |
0534 9f17 f75f | _|
0536 0293 a79f | |
0538 0a90 d3dc | |
053a bbdc 0b47 | G|
053c 281b 2290 |( " |
053e 39b3 3ed4 |9 > |
0540 ebdf b903 | |
0542 fad8 51b0 | Q |
0544 3363 56d7 |3cV |
0546 e39f 62d5 | b |
0548 3012 e1fe |0 |
054a 63f1 13df |c |
054c 6a92 995d |j ]|
054e 1fdc 6361 | ca|
0550 27dc 13a1 |' |
0552 2fdc 1ba0 |/ |
0554 7760 b1b0 |w` |
0556 27a0 8360 |' `|
0558 0648 8f62 | H b|
055a 771c 3ba0 |w ; |
055c 8361 63dc | ac |
055e 849c 4ba2 | K |
0560 2736 931d |'6 |
0562 01b3 f6d4 | |
0564 5fa1 83df |_ |
0566 b661 2db1 | a- |
0568 93dc 16d9 | |
056a 9bdf fe90 | |
056c 6e49 a7de |nI |
056e cb1d afdc | |
0570 e3a0 f361 | a|
0572 35b0 fb63 |5 c|
0574 895c d6ac | \ |
0576 3294 3414 |2 4 |
0578 afa1 d3dd | |
057a 1762 ff1d | b |
057c 1f63 071c | c |
057e c7a3 0f1c | |
0580 76d8 0a01 |v |
0582 3b63 231d |;c# |
0584 ffdf 715e | q^|
0586 07dc efa1 | |
0588 9105 c9cf | |
058a 431d 6362 |C cb|
058c 1fdd 024a | J|
058e 27dc 9e97 |' |
0590 ef65 f09c | e |
0592 c6d9 3648 | 6H|
0594 d2da 149f | |
0596 771d 2fa1 |w / |
0598 9b61 37a3 | a7 |
059a 871e 5fdf | _ |
059c 8f1e 35b9 | 5 |
059e 4ba1 5a4a |K ZJ|
05a0 5c9d bf62 |\ b|
05a2 4dcf a71c |M |
05a4 ae03 af1e | |
05a6 8bdc 6832 | h2|
05a8 93de 6816 | h |
05aa 9bdd 9249 | I|
05ac 87a0 da01 | |
05ae 8fa1 a249 | I|
05b0 4ad9 ff61 |J a|
05b2 ae4a dc9d | J |
05b4 b64b 98c2 | K |
05b6 c7de 949d | |
05b8 b3a2 dbdd | |
05ba 7252 6815 |rRh |
05bc 7ad9 2600 |z & |
05be 2322 f7dc |#" |
05c0 2b22 ffdf |+" |
05c2 db35 8297 | 5 |
05c4 2c9d eba0 |, |
05c6 4b20 00c7 |K |
05c8 1bde d104 | |
05ca 5b22 8763 |[" c|
05cc 2fdf 6417 |/ d |
05ce 37dd be96 |7 |
05d0 5249 c695 |RI |
05d2 8562 2ba0 | b+ |
05d4 3fe6 33a3 |? 3 |
05d6 57dc 9323 |W #|
05d8 e89d e697 | |
05da 8106 4ba0 | K |
05dc a722 c360 | " `|
05de af22 cb60 | " `|
05e0 b723 83df | # |
05e2 73df 8bdc |s |
05e4 c722 73a0 | "s |
05e6 cf23 9bde | # |
05e8 ef62 83a2 | b |
05ea f762 52da | bR |
05ec a3a0 07e2 | |
05ee 1a02 97a3 | |
05f0 3e4b 1361 |>K a|
05f2 5f23 efde |_# |
05f4 241b 2363 |$ #c|
05f6 aed9 ab23 | #|
05f8 0e49 b0ea | I |
05fa c3a3 f7de | |
05fc 241a cfa1 |$ |
05fe 8db7 4f62 | Ob|