|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0548 | H | .CONST 0x0548 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0018
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 006d | m | .CONST 0x006d ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0014 | | .CONST 0x0014 ; Number of locals
001b INIT_0018:
001b 00e1 | | Load_Encached Boolean_Cache
001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001d e001 | | Load 0x0,0x1
001e 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
001f 02c7 | | Declare_Variable Any
0020 00d8 | | Load_Top At_Offset_0
0021 1c00 | | Execute_Immediate Run_Utility,0x0
0022 e001 | | Load 0x0,0x1
0023 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0024 02c7 | | Declare_Variable Any
0025 00d8 | | Load_Top At_Offset_0
0026 1c00 | | Execute_Immediate Run_Utility,0x0
0027 00e2 | | Load_Encached Integer_Cache
0028 00e2 | | Load_Encached Integer_Cache
0029 4801 |H | Short_Literal 0x1
002a 4800 |H | Short_Literal 0x0
002b e5f8 | | Load 0x2,-0x8
002c 035b | [ | Declare_Type Array,Constrained
002d 0337 | 7 | Declare_Variable Array
002e 00d8 | | Load_Top At_Offset_0
002f 1c00 | | Execute_Immediate Run_Utility,0x0
0030 00e3 | | Load_Encached Natural_Cache
0031 00d8 | | Load_Top At_Offset_0
0032 00e1 | | Load_Encached Boolean_Cache
0033 029f 00b3 | | Declare_Subprogram For_Call,INIT_00b0
0035 4802 |H | Short_Literal 0x2
0036 032d | - | Declare_Type Record,Defined
0037 00e3 | | Load_Encached Natural_Cache
0038 0266 | f | Execute Discrete,Bounds
0039 00da | | Load_Top At_Offset_2
003a 029f 00cb | | Declare_Subprogram For_Call,INIT_00c8
003c 4801 |H | Short_Literal 0x1
003d 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
003e 00e3 | | Load_Encached Natural_Cache
003f e5f7 | | Load 0x2,-0x9
0040 00e3 | | Load_Encached Natural_Cache
0041 00e3 | | Load_Encached Natural_Cache
0042 00e1 | | Load_Encached Boolean_Cache
0043 4801 |H | Short_Literal 0x1
0044 6063 |`c | Indirect_Literal Discrete,0xa8,{0x00000000, 0x7fffffff}
0045 e40a | | Load 0x2,0xa
0046 034e | N | Declare_Type Array,Constrained,Bounds_With_Object
0047 029f 00e3 | | Declare_Subprogram For_Call,INIT_00e0
0049 4800 |H | Short_Literal 0x0
004a 4801 |H | Short_Literal 0x1
004b 4804 |H | Short_Literal 0x4
004c 4800 |H | Short_Literal 0x0
004d 4801 |H | Short_Literal 0x1
004e 4801 |H | Short_Literal 0x1
004f 031d | | Declare_Type Variant_Record,Defined
0050 e5f6 | | Load 0x2,-0xa
0051 01db | | Execute Vector,Length
0052 00e3 | | Load_Encached Natural_Cache
0053 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0054 4801 |H | Short_Literal 0x1
0055 00d9 | | Load_Top At_Offset_1
0056 00da | | Load_Top At_Offset_2
0057 e40b | | Load 0x2,0xb
0058 1c07 | | Execute_Immediate Run_Utility,0x7
0059 029f 011b | | Declare_Subprogram For_Call,INIT_0118
005b 4801 |H | Short_Literal 0x1
005c 035d | ] | Declare_Type Array,Defined
005d 00d8 | | Load_Top At_Offset_0
005e 0337 | 7 | Declare_Variable Array
005f 00d8 | | Load_Top At_Offset_0
0060 1c00 | | Execute_Immediate Run_Utility,0x0
0061 029f 014b | K| Declare_Subprogram For_Call,INIT_0148
0063 029f 015b | [| Declare_Subprogram For_Call,INIT_0158
0065 029f 0213 | | Declare_Subprogram For_Call,INIT_0210
0067 029f 0233 | 3| Declare_Subprogram For_Call,INIT_0230
0069 029f 027b | {| Declare_Subprogram For_Call,INIT_0278
006b 029f 0293 | | Declare_Subprogram For_Call,INIT_0290
006d BODY_0018:
006d e403 | | Load 0x2,0x3
006e 0120 | | Execute Any,Is_Value
006f 6803 |h | Jump_Zero 0x73
0070 e001 | | Load 0x0,0x1
0071 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0072 7801 |x | Jump 0x74
0073 e403 | | Load 0x2,0x3
0074 4be8 |K | Short_Literal 0x3e8
0075 0092 0469 | i| Action Push_String_Extended,0x469 ; "DEBUG_HISTORY_ENTRIES"
0077 e001 | | Load 0x0,0x1
0078 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0079 c403 | | Store 0x2,0x3
007a e002 | | Load 0x0,0x2
007b 180f | | Execute Package,Field_Execute,Field_Number 0xf
007c e403 | | Load 0x2,0x3
007d e001 | | Load 0x0,0x1
007e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
007f e001 | | Load 0x0,0x1
0080 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0081 a405 | | Store_Unchecked 0x2,0x5
0082 e405 | | Load 0x2,0x5
0083 480a |H | Short_Literal 0xa
0084 026f | o | Execute Discrete,Remainder
0085 0f01 | | Execute_Immediate Equal,0x1
0086 681c |h | Jump_Zero 0xa3
0087 e404 | | Load 0x2,0x4
0088 0120 | | Execute Any,Is_Value
0089 6803 |h | Jump_Zero 0x8d
008a e001 | | Load 0x0,0x1
008b 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
008c 7801 |x | Jump 0x8e
008d e404 | | Load 0x2,0x4
008e 4850 |HP | Short_Literal 0x50
008f 0092 046a | j| Action Push_String_Extended,0x46a ; "WINDOW_SHIFT_OVERLAP"
0091 e001 | | Load 0x0,0x1
0092 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0093 c404 | | Store 0x2,0x4
0094 e002 | | Load 0x0,0x2
0095 180f | | Execute Package,Field_Execute,Field_Number 0xf
0096 e404 | | Load 0x2,0x4
0097 e001 | | Load 0x0,0x1
0098 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0099 e001 | | Load 0x0,0x1
009a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
009b a406 | | Store_Unchecked 0x2,0x6
009c e406 | | Load 0x2,0x6
009d 480a |H | Short_Literal 0xa
009e 026f | o | Execute Discrete,Remainder
009f 0f01 | | Execute_Immediate Equal,0x1
00a0 6802 |h | Jump_Zero 0xa3
00a1 4801 |H | Short_Literal 0x1
00a2 a402 | | Store_Unchecked 0x2,0x2
00a3 8412 | | Call 0x2,0x12
00a4 8414 | | Call 0x2,0x14
00a5 e5f8 | | Load 0x2,-0x8
00a6 01c6 | | Execute Vector,Convert_To_Formal
00a7 440b |D | Exit_Subprogram With_Result,0xb
00a8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00ac 0000 0000 | | .BLANK 0000[0x4]
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 4608 |F | Jump_Case 0x8
00b4 7808 |x | Jump 0xbd ; case 0x0
00b5 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
00b6 780d |x | Jump 0xc4 ; case 0x2
00b7 780c |x | Jump 0xc4 ; case 0x3
00b8 780b |x | Jump 0xc4 ; case 0x4
00b9 780a |x | Jump 0xc4 ; case 0x5
00ba 7809 |x | Jump 0xc4 ; case 0x6
00bb 7808 |x | Jump 0xc4 ; case 0x7
00bc 7807 |x | Jump 0xc4 ; case 0x8
00bd 4800 |H | Short_Literal 0x0
00be 00db | | Load_Top At_Offset_3
00bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c0 4801 |H | Short_Literal 0x1
00c1 00db | | Load_Top At_Offset_3
00c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c3 4302 |C | Exit_Subprogram From_Utility,0x2
00c4 0869 | i | Execute_Immediate Raise,0x69
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00d1 | | Pop_Control Pop_Count_1
00cc 00da | | Load_Top At_Offset_2
00cd 01d8 | | Execute Vector,Element_Type
00ce 0322 | " | Declare_Variable Record
00cf 00d8 | | Load_Top At_Offset_0
00d0 1c00 | | Execute_Immediate Run_Utility,0x0
00d1 00db | | Load_Top At_Offset_3
00d2 01dc | | Execute Vector,Last
00d3 e7ff | | Load 0x3,-0x1
00d4 01dd | | Execute Vector,First
00d5 0263 | c | Execute Discrete,Above_Bound
00d6 7006 |p | Jump_Nonzero 0xdd
00d7 00da | | Load_Top At_Offset_2
00d8 00d9 | | Load_Top At_Offset_1
00d9 e7ff | | Load 0x3,-0x1
00da 01d6 | | Execute Vector,Field_Write
00db 0a01 | | Execute_Immediate Plus,0x1
00dc 7ff8 | | Jump 0xd5
00dd 4302 |C | Exit_Subprogram From_Utility,0x2
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4608 |F | Jump_Case 0x8
00e4 7808 |x | Jump 0xed ; case 0x0
00e5 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
00e6 782b |x+ | Jump 0x112 ; case 0x2
00e7 782a |x* | Jump 0x112 ; case 0x3
00e8 7829 |x) | Jump 0x112 ; case 0x4
00e9 7828 |x( | Jump 0x112 ; case 0x5
00ea 7827 |x' | Jump 0x112 ; case 0x6
00eb 7813 |x | Jump 0xff ; case 0x7
00ec 781b |x | Jump 0x108 ; case 0x8
00ed 00da | | Load_Top At_Offset_2
00ee 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
00ef 00da | | Load_Top At_Offset_2
00f0 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
00f1 1c00 | | Execute_Immediate Run_Utility,0x0
00f2 00da | | Load_Top At_Offset_2
00f3 2506 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x6
00f4 1c00 | | Execute_Immediate Run_Utility,0x0
00f5 4800 |H | Short_Literal 0x0
00f6 00db | | Load_Top At_Offset_3
00f7 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00f8 4800 |H | Short_Literal 0x0
00f9 00db | | Load_Top At_Offset_3
00fa 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
00fb 4800 |H | Short_Literal 0x0
00fc 00db | | Load_Top At_Offset_3
00fd 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
00fe 4302 |C | Exit_Subprogram From_Utility,0x2
00ff 00db | | Load_Top At_Offset_3
0100 4801 |H | Short_Literal 0x1
0101 e7fe | | Load 0x3,-0x2
0102 e40a | | Load 0x2,0xa
0103 035b | [ | Declare_Type Array,Constrained
0104 4801 |H | Short_Literal 0x1
0105 e7ff | | Load 0x3,-0x1
0106 031b | | Declare_Type Variant_Record,Constrained
0107 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0108 00db | | Load_Top At_Offset_3
0109 00db | | Load_Top At_Offset_3
010a 02fc | | Declare_Variable Variant_Record,With_Constraint
010b 4801 |H | Short_Literal 0x1
010c e7fe | | Load 0x3,-0x2
010d e40a | | Load 0x2,0xa
010e 0334 | 4 | Declare_Variable Array,With_Constraint
010f 2d06 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x6
0110 016a | j | Execute Variant_Record,Indirects_Appended
0111 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0112 0869 | i | Execute_Immediate Raise,0x69
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4605 |F | Jump_Case 0x5
011c 7804 |x | Jump 0x121 ; case 0x0
011d 7814 |x | Jump 0x132 ; case 0x1
011e 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
011f 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0120 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0121 00da | | Load_Top At_Offset_2 ; case 0x5
0122 01dc | | Execute Vector,Last
0123 00db | | Load_Top At_Offset_3
0124 01dd | | Execute Vector,First
0125 0263 | c | Execute Discrete,Above_Bound
0126 700a |p | Jump_Nonzero 0x131
0127 00d8 | | Load_Top At_Offset_0
0128 e7ff | | Load 0x3,-0x1
0129 01d5 | | Execute Vector,Field_Reference
012a 0125 | % | Execute Any,Set_Constraint
012b 00d8 | | Load_Top At_Offset_0
012c e7ff | | Load 0x3,-0x1
012d 01d5 | | Execute Vector,Field_Reference
012e 1c00 | | Execute_Immediate Run_Utility,0x0
012f 0a01 | | Execute_Immediate Plus,0x1
0130 7ff4 | | Jump 0x125
0131 4302 |C | Exit_Subprogram From_Utility,0x2
0132 00da | | Load_Top At_Offset_2
0133 01dc | | Execute Vector,Last
0134 00db | | Load_Top At_Offset_3
0135 01dd | | Execute Vector,First
0136 0263 | c | Execute Discrete,Above_Bound
0137 700a |p | Jump_Nonzero 0x142
0138 00d8 | | Load_Top At_Offset_0
0139 e7ff | | Load 0x3,-0x1
013a 01d5 | | Execute Vector,Field_Reference
013b 0125 | % | Execute Any,Set_Constraint
013c 00d8 | | Load_Top At_Offset_0
013d e7ff | | Load 0x3,-0x1
013e 01d7 | | Execute Vector,Field_Read
013f 1c00 | | Execute_Immediate Run_Utility,0x0
0140 0a01 | | Execute_Immediate Plus,0x1
0141 7ff4 | | Jump 0x136
0142 4302 |C | Exit_Subprogram From_Utility,0x2
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
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 INIT_0148:
014b e003 | | Load 0x0,0x3
014c 180e | | Execute Package,Field_Execute,Field_Number 0xe
014d 00db | | Load_Top At_Offset_3
014e 4801 |H | Short_Literal 0x1
014f 6004 |` | Indirect_Literal Discrete,0x154,{0x00000000, 0x00005802}
0150 e004 | | Load 0x0,0x4
0151 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0152 4502 |E | Exit_Subprogram 0x2
0153 0000 | | .XXX[0x1]
0154 0000 0000 | | .LITERAL {0x00000000, 0x00005802}
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0168 | h | .CONST 0x0168 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0006 | | .CONST 0x0006 ; Number of locals
015b INIT_0158:
015b e5f5 | | Load 0x2,-0xb
015c 00db | | Load_Top At_Offset_3
015d e40e | | Load 0x2,0xe
015e 01d5 | | Execute Vector,Field_Reference
015f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0160 e5f7 | | Load 0x2,-0x9
0161 0119 | | Execute Any,Check_In_Formal_Type
0162 85fb | | Call 0x2,-0x5
0163 00e3 | | Load_Encached Natural_Cache
0164 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0165 00e1 | | Load_Encached Boolean_Cache
0166 00e8 | | Load_Encached Character_Cache
0167 00e1 | | Load_Encached Boolean_Cache
0168 BODY_0158:
0168 4800 |H | Short_Literal 0x0
0169 e7ff | | Load 0x3,-0x1
016a e40e | | Load 0x2,0xe
016b 01d5 | | Execute Vector,Field_Reference
016c 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
016d 00cf | | Action Mark_Auxiliary
016e e602 | | Load 0x3,0x2
016f 01dc | | Execute Vector,Last
0170 e602 | | Load 0x3,0x2
0171 01dd | | Execute Vector,First
0172 0263 | c | Execute Discrete,Above_Bound
0173 7097 |p | Jump_Nonzero 0x20b
0174 4800 |H | Short_Literal 0x0
0175 a606 | | Store_Unchecked 0x3,0x6
0176 e402 | | Load 0x2,0x2
0177 680a |h | Jump_Zero 0x182
0178 0092 046b | k| Action Push_String_Extended,0x46b ; " Immediate_Client = "
017a 00d9 | | Load_Top At_Offset_1
017b e602 | | Load 0x3,0x2
017c 01d7 | | Execute Vector,Field_Read
017d e5f7 | | Load 0x2,-0x9
017e 0119 | | Execute Any,Check_In_Formal_Type
017f 85fe | | Call 0x2,-0x2
0180 01cc | | Execute Vector,Catenate
0181 840f | | Call 0x2,0xf
0182 00cf | | Action Mark_Auxiliary
0183 e40e | | Load 0x2,0xe
0184 01dc | | Execute Vector,Last
0185 4801 |H | Short_Literal 0x1
0186 0263 | c | Execute Discrete,Above_Bound
0187 7079 |py | Jump_Nonzero 0x201
0188 00d8 | | Load_Top At_Offset_0
0189 e40e | | Load 0x2,0xe
018a 01d5 | | Execute Vector,Field_Reference
018b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
018c e5f7 | | Load 0x2,-0x9
018d 0119 | | Execute Any,Check_In_Formal_Type
018e e609 | | Load 0x3,0x9
018f e602 | | Load 0x3,0x2
0190 01d7 | | Execute Vector,Field_Read
0191 e5f7 | | Load 0x2,-0x9
0192 0119 | | Execute Any,Check_In_Formal_Type
0193 85f9 | | Call 0x2,-0x7
0194 686a |hj | Jump_Zero 0x1ff
0195 e603 | | Load 0x3,0x3
0196 0a01 | | Execute_Immediate Plus,0x1
0197 c603 | | Store 0x3,0x3
0198 00d8 | | Load_Top At_Offset_0
0199 e603 | | Load 0x3,0x3
019a e7ff | | Load 0x3,-0x1
019b e40e | | Load 0x2,0xe
019c 01d5 | | Execute Vector,Field_Reference
019d 2506 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x6
019e 01d5 | | Execute Vector,Field_Reference
019f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a0 e7ff | | Load 0x3,-0x1
01a1 e40e | | Load 0x2,0xe
01a2 01d5 | | Execute Vector,Field_Reference
01a3 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01a4 0a01 | | Execute_Immediate Plus,0x1
01a5 e7ff | | Load 0x3,-0x1
01a6 e40e | | Load 0x2,0xe
01a7 01d5 | | Execute Vector,Field_Reference
01a8 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01a9 00d8 | | Load_Top At_Offset_0
01aa e40e | | Load 0x2,0xe
01ab 01d5 | | Execute Vector,Field_Reference
01ac 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01ad e5f7 | | Load 0x2,-0x9
01ae 0119 | | Execute Any,Check_In_Formal_Type
01af e7ff | | Load 0x3,-0x1
01b0 e40e | | Load 0x2,0xe
01b1 01d5 | | Execute Vector,Field_Reference
01b2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01b3 e5f7 | | Load 0x2,-0x9
01b4 0119 | | Execute Any,Check_In_Formal_Type
01b5 85fa | | Call 0x2,-0x6
01b6 a604 | | Store_Unchecked 0x3,0x4
01b7 e604 | | Load 0x3,0x4
01b8 e603 | | Load 0x3,0x3
01b9 e7ff | | Load 0x3,-0x1
01ba e40e | | Load 0x2,0xe
01bb 01d5 | | Execute Vector,Field_Reference
01bc 2506 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x6
01bd 01d5 | | Execute Vector,Field_Reference
01be 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01bf e402 | | Load 0x2,0x2
01c0 683a |h: | Jump_Zero 0x1fb
01c1 e604 | | Load 0x3,0x4
01c2 6803 |h | Jump_Zero 0x1c6
01c3 4848 |HH | Short_Literal 0x48
01c4 a605 | | Store_Unchecked 0x3,0x5
01c5 7802 |x | Jump 0x1c8
01c6 4820 |H | Short_Literal 0x20
01c7 a605 | | Store_Unchecked 0x3,0x5
01c8 e605 | | Load 0x3,0x5
01c9 0092 046c | l| Action Push_String_Extended,0x46c ; " Add "
01cb 00da | | Load_Top At_Offset_2
01cc e40e | | Load 0x2,0xe
01cd 01d5 | | Execute Vector,Field_Reference
01ce 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01cf e5f7 | | Load 0x2,-0x9
01d0 0119 | | Execute Any,Check_In_Formal_Type
01d1 85fe | | Call 0x2,-0x2
01d2 01cc | | Execute Vector,Catenate
01d3 0092 046d | m| Action Push_String_Extended,0x46d ; " as client"
01d5 01cc | | Execute Vector,Catenate
01d6 00da | | Load_Top At_Offset_2
01d7 00e0 | | Load_Encached Standard_Cache
01d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d9 01cc | | Execute Vector,Catenate
01da 0092 046e | n| Action Push_String_Extended,0x46e ; " ("
01dc 01cc | | Execute Vector,Catenate
01dd e603 | | Load 0x3,0x3
01de 00e0 | | Load_Encached Standard_Cache
01df 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e0 01cc | | Execute Vector,Catenate
01e1 0092 046f | o| Action Push_String_Extended,0x46f ; ","
01e3 01cc | | Execute Vector,Catenate
01e4 e7ff | | Load 0x3,-0x1
01e5 e40e | | Load 0x2,0xe
01e6 01d5 | | Execute Vector,Field_Reference
01e7 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01e8 00e0 | | Load_Encached Standard_Cache
01e9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ea 01cc | | Execute Vector,Catenate
01eb 0092 0470 | p| Action Push_String_Extended,0x470 ; ") ["
01ed 01cc | | Execute Vector,Catenate
01ee 01cb | | Execute Vector,Append
01ef 0092 0471 | q| Action Push_String_Extended,0x471 ; "] of "
01f1 01cc | | Execute Vector,Catenate
01f2 e7ff | | Load 0x3,-0x1
01f3 e40e | | Load 0x2,0xe
01f4 01d5 | | Execute Vector,Field_Reference
01f5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01f6 e5f7 | | Load 0x2,-0x9
01f7 0119 | | Execute Any,Check_In_Formal_Type
01f8 85fe | | Call 0x2,-0x2
01f9 01cc | | Execute Vector,Catenate
01fa 840f | | Call 0x2,0xf
01fb 4801 |H | Short_Literal 0x1
01fc a606 | | Store_Unchecked 0x3,0x6
01fd 00d2 | | Pop_Control Pop_Count_2
01fe 7802 |x | Jump 0x201
01ff 00c8 | | Action Pop_Auxiliary_Range
0200 3f87 |? | Loop_Increasing 0x188
0201 00ce | | Action Pop_Auxiliary
0202 e402 | | Load 0x2,0x2
0203 6805 |h | Jump_Zero 0x209
0204 00db | | Load_Top At_Offset_3
0205 7003 |p | Jump_Nonzero 0x209
0206 0092 0472 | r| Action Push_String_Extended,0x472 ; " Not found"
0208 840f | | Call 0x2,0xf
0209 00c8 | | Action Pop_Auxiliary_Range
020a 3f69 |?i | Loop_Increasing 0x174
020b 4502 |E | Exit_Subprogram 0x2
020c 0000 0000 | | .BLANK 0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00cf | | Action Mark_Auxiliary
0214 00db | | Load_Top At_Offset_3
0215 01dc | | Execute Vector,Last
0216 e7ff | | Load 0x3,-0x1
0217 01dd | | Execute Vector,First
0218 0263 | c | Execute Discrete,Above_Bound
0219 700e |p | Jump_Nonzero 0x228
021a e7fe | | Load 0x3,-0x2
021b e5f7 | | Load 0x2,-0x9
021c 0119 | | Execute Any,Check_In_Formal_Type
021d 00d9 | | Load_Top At_Offset_1
021e e7ff | | Load 0x3,-0x1
021f 01d7 | | Execute Vector,Field_Read
0220 e5f7 | | Load 0x2,-0x9
0221 0119 | | Execute Any,Check_In_Formal_Type
0222 85f9 | | Call 0x2,-0x7
0223 6802 |h | Jump_Zero 0x226
0224 4801 |H | Short_Literal 0x1
0225 4402 |D | Exit_Subprogram With_Result,0x2
0226 00c8 | | Action Pop_Auxiliary_Range
0227 3ff2 |? | Loop_Increasing 0x21a
0228 00ce | | Action Pop_Auxiliary
0229 4800 |H | Short_Literal 0x0
022a 4402 |D | Exit_Subprogram With_Result,0x2
022b 0000 0000 | | .BLANK 0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0235 | 5 | .CONST 0x0235 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 029f 031b | | Declare_Subprogram For_Call,INIT_0318
0235 BODY_0230:
0235 00cf | | Action Mark_Auxiliary
0236 e5f6 | | Load 0x2,-0xa
0237 01dc | | Execute Vector,Last
0238 e5f6 | | Load 0x2,-0xa
0239 01dd | | Execute Vector,First
023a 0263 | c | Execute Discrete,Above_Bound
023b 7009 |p | Jump_Nonzero 0x245
023c 00d8 | | Load_Top At_Offset_0
023d e5f6 | | Load 0x2,-0xa
023e 01d7 | | Execute Vector,Field_Read
023f 00d9 | | Load_Top At_Offset_1
0240 e40e | | Load 0x2,0xe
0241 01d5 | | Execute Vector,Field_Reference
0242 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0243 00c8 | | Action Pop_Auxiliary_Range
0244 3ff7 |? | Loop_Increasing 0x23c
0245 00c9 | | Action Pop_Auxiliary_Loop
0246 e40e | | Load 0x2,0xe
0247 01dc | | Execute Vector,Last
0248 4801 |H | Short_Literal 0x1
0249 0263 | c | Execute Discrete,Above_Bound
024a 7029 |p) | Jump_Nonzero 0x274
024b 8602 | | Call 0x3,0x2
024c 00d8 | | Load_Top At_Offset_0
024d 8410 | | Call 0x2,0x10
024e e402 | | Load 0x2,0x2
024f 6822 |h" | Jump_Zero 0x272
0250 0092 0473 | s| Action Push_String_Extended,0x473 ; "Dependencies for "
0252 00d9 | | Load_Top At_Offset_1
0253 e40e | | Load 0x2,0xe
0254 01d5 | | Execute Vector,Field_Reference
0255 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0256 e5f7 | | Load 0x2,-0x9
0257 0119 | | Execute Any,Check_In_Formal_Type
0258 85fe | | Call 0x2,-0x2
0259 01cc | | Execute Vector,Catenate
025a 0092 0474 | t| Action Push_String_Extended,0x474 ; " (Clients ="
025c 01cc | | Execute Vector,Catenate
025d 00d9 | | Load_Top At_Offset_1
025e e40e | | Load 0x2,0xe
025f 01d5 | | Execute Vector,Field_Reference
0260 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0261 00e0 | | Load_Encached Standard_Cache
0262 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0263 01cc | | Execute Vector,Catenate
0264 0092 0475 | u| Action Push_String_Extended,0x475 ; ", Suppliers ="
0266 01cc | | Execute Vector,Catenate
0267 00d9 | | Load_Top At_Offset_1
0268 e40e | | Load 0x2,0xe
0269 01d5 | | Execute Vector,Field_Reference
026a 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
026b 00e0 | | Load_Encached Standard_Cache
026c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026d 01cc | | Execute Vector,Catenate
026e 0092 0476 | v| Action Push_String_Extended,0x476 ; ")"
0270 01cc | | Execute Vector,Catenate
0271 840f | | Call 0x2,0xf
0272 00c8 | | Action Pop_Auxiliary_Range
0273 3fd7 |? | Loop_Increasing 0x24b
0274 4501 |E | Exit_Subprogram 0x1
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027e | ~ | .CONST 0x027e ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b e408 | | Load 0x2,0x8
027c 029f 0363 | c| Declare_Subprogram For_Call,INIT_0360
027e BODY_0278:
027e 00cf | | Action Mark_Auxiliary
027f e7ff | | Load 0x3,-0x1
0280 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0281 00d8 | | Load_Top At_Offset_0
0282 00e2 | | Load_Encached Integer_Cache
0283 0260 | ` | Execute Discrete,In_Type
0284 7001 |p | Jump_Nonzero 0x286
0285 0801 | | Execute_Immediate Raise,0x1
0286 4801 |H | Short_Literal 0x1
0287 0263 | c | Execute Discrete,Above_Bound
0288 7003 |p | Jump_Nonzero 0x28c
0289 8603 | | Call 0x3,0x3
028a 00c8 | | Action Pop_Auxiliary_Range
028b 3ffd |? | Loop_Increasing 0x289
028c 4502 |E | Exit_Subprogram 0x2
028d 0000 0000 | | .XXX[0x3]
028f 0000 | |
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 02aa | | .CONST 0x02aa ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0007 | | .CONST 0x0007 ; Number of locals
0293 INIT_0290:
0293 4801 |H | Short_Literal 0x1
0294 e40e | | Load 0x2,0xe
0295 01db | | Execute Vector,Length
0296 00d8 | | Load_Top At_Offset_0
0297 00e2 | | Load_Encached Integer_Cache
0298 0260 | ` | Execute Discrete,In_Type
0299 7001 |p | Jump_Nonzero 0x29b
029a 0801 | | Execute_Immediate Raise,0x1
029b e5f8 | | Load 0x2,-0x8
029c 035b | [ | Declare_Type Array,Constrained
029d 0337 | 7 | Declare_Variable Array
029e 00d8 | | Load_Top At_Offset_0
029f 1c00 | | Execute_Immediate Run_Utility,0x0
02a0 00e3 | | Load_Encached Natural_Cache
02a1 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02a2 00e3 | | Load_Encached Natural_Cache
02a3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02a4 00e1 | | Load_Encached Boolean_Cache
02a5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02a6 029f 03d3 | | Declare_Subprogram For_Call,INIT_03d0
02a8 029f 043b | ;| Declare_Subprogram For_Call,INIT_0438
02aa BODY_0290:
02aa 0092 0477 | w| Action Push_String_Extended,0x477 ; "Generating View/Compilation Ordering:"
02ac 840f | | Call 0x2,0xf
02ad 00cf | | Action Mark_Auxiliary
02ae e603 | | Load 0x3,0x3
02af e602 | | Load 0x3,0x2
02b0 01db | | Execute Vector,Length
02b1 027d | } | Execute Discrete,Greater
02b2 7053 |pS | Jump_Nonzero 0x306
02b3 e604 | | Load 0x3,0x4
02b4 e603 | | Load 0x3,0x3
02b5 027f | | Execute Discrete,Equal
02b6 681a |h | Jump_Zero 0x2d1
02b7 00e1 | | Load_Encached Boolean_Cache
02b8 8606 | | Call 0x3,0x6
02b9 c605 | | Store 0x3,0x5
02ba 00db | | Load_Top At_Offset_3
02bb 7015 |p | Jump_Nonzero 0x2d1
02bc e003 | | Load 0x0,0x3
02bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
02be 4801 |H | Short_Literal 0x1
02bf 4801 |H | Short_Literal 0x1
02c0 e005 | | Load 0x0,0x5
02c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c2 0334 | 4 | Declare_Variable Array,With_Constraint
02c3 e5f5 | | Load 0x2,-0xb
02c4 e006 | | Load 0x0,0x6
02c5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02c6 4801 |H | Short_Literal 0x1
02c7 00da | | Load_Top At_Offset_2
02c8 01d6 | | Execute Vector,Field_Write
02c9 6046 |`F | Indirect_Literal Discrete,0x310,{0x00000000, 0x0000380b}
02ca e004 | | Load 0x0,0x4
02cb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02cc 8607 | | Call 0x3,0x7
02cd e407 | | Load 0x2,0x7
02ce 0335 | 5 | Declare_Variable Array,Duplicate
02cf 00cd | | Action Spare6_Action
02d0 00ca | | Action Exit_Nullary_Function
02d1 e603 | | Load 0x3,0x3
02d2 a604 | | Store_Unchecked 0x3,0x4
02d3 00cf | | Action Mark_Auxiliary
02d4 e40e | | Load 0x2,0xe
02d5 01dc | | Execute Vector,Last
02d6 4801 |H | Short_Literal 0x1
02d7 0263 | c | Execute Discrete,Above_Bound
02d8 702a |p* | Jump_Nonzero 0x303
02d9 00d8 | | Load_Top At_Offset_0
02da e40e | | Load 0x2,0xe
02db 01d5 | | Execute Vector,Field_Reference
02dc 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
02dd 7023 |p# | Jump_Nonzero 0x301
02de 00d8 | | Load_Top At_Offset_0
02df e40e | | Load 0x2,0xe
02e0 01d5 | | Execute Vector,Field_Reference
02e1 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
02e2 701e |p | Jump_Nonzero 0x301
02e3 0092 0478 | x| Action Push_String_Extended,0x478 ; " => "
02e5 00d9 | | Load_Top At_Offset_1
02e6 e40e | | Load 0x2,0xe
02e7 01d5 | | Execute Vector,Field_Reference
02e8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02e9 e5f7 | | Load 0x2,-0x9
02ea 0119 | | Execute Any,Check_In_Formal_Type
02eb 85fe | | Call 0x2,-0x2
02ec 01cc | | Execute Vector,Catenate
02ed 840f | | Call 0x2,0xf
02ee 00d8 | | Load_Top At_Offset_0
02ef e40e | | Load 0x2,0xe
02f0 01d5 | | Execute Vector,Field_Reference
02f1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02f2 e603 | | Load 0x3,0x3
02f3 e602 | | Load 0x3,0x2
02f4 01d6 | | Execute Vector,Field_Write
02f5 e603 | | Load 0x3,0x3
02f6 0a01 | | Execute_Immediate Plus,0x1
02f7 c603 | | Store 0x3,0x3
02f8 4801 |H | Short_Literal 0x1
02f9 00d9 | | Load_Top At_Offset_1
02fa e40e | | Load 0x2,0xe
02fb 01d5 | | Execute Vector,Field_Reference
02fc 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
02fd 00d8 | | Load_Top At_Offset_0
02fe e40e | | Load 0x2,0xe
02ff 01d5 | | Execute Vector,Field_Reference
0300 8413 | | Call 0x2,0x13
0301 00c8 | | Action Pop_Auxiliary_Range
0302 3fd6 |? | Loop_Increasing 0x2d9
0303 00ce | | Action Pop_Auxiliary
0304 00c9 | | Action Pop_Auxiliary_Loop
0305 7fa8 | | Jump 0x2ae
0306 00ce | | Action Pop_Auxiliary
0307 0092 0479 | y| Action Push_String_Extended,0x479 ; "Ordering completed."
0309 840f | | Call 0x2,0xf
030a e602 | | Load 0x3,0x2
030b e5f8 | | Load 0x2,-0x8
030c 01c6 | | Execute Vector,Convert_To_Formal
030d 00ca | | Action Exit_Nullary_Function
030e 0000 0000 | | .XXX[0x2]
0310 0000 0000 | | .LITERAL {0x00000000, 0x0000380b}
0314 0000 0000 | | .BLANK 0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0323 | # | .CONST 0x0323 ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b e5f5 | | Load 0x2,-0xb
031c e605 | | Load 0x3,0x5
031d e40e | | Load 0x2,0xe
031e 01d5 | | Execute Vector,Field_Reference
031f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0320 e5f7 | | Load 0x2,-0x9
0321 0119 | | Execute Any,Check_In_Formal_Type
0322 85fc | | Call 0x2,-0x4
0323 BODY_0318:
0323 00cf | | Action Mark_Auxiliary
0324 00d9 | | Load_Top At_Offset_1
0325 01dc | | Execute Vector,Last
0326 00da | | Load_Top At_Offset_2
0327 01dd | | Execute Vector,First
0328 0263 | c | Execute Discrete,Above_Bound
0329 7034 |p4 | Jump_Nonzero 0x35e
032a 00d8 | | Load_Top At_Offset_0
032b e802 | | Load 0x4,0x2
032c 01d7 | | Execute Vector,Field_Read
032d e5f7 | | Load 0x2,-0x9
032e 0119 | | Execute Any,Check_In_Formal_Type
032f e5f6 | | Load 0x2,-0xa
0330 8411 | | Call 0x2,0x11
0331 682a |h* | Jump_Zero 0x35c
0332 e605 | | Load 0x3,0x5
0333 e40e | | Load 0x2,0xe
0334 01d5 | | Execute Vector,Field_Reference
0335 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0336 0a01 | | Execute_Immediate Plus,0x1
0337 e605 | | Load 0x3,0x5
0338 e40e | | Load 0x2,0xe
0339 01d5 | | Execute Vector,Field_Reference
033a 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
033b e402 | | Load 0x2,0x2
033c 681f |h | Jump_Zero 0x35c
033d 0092 046c | l| Action Push_String_Extended,0x46c ; " Add "
033f 00d9 | | Load_Top At_Offset_1
0340 e802 | | Load 0x4,0x2
0341 01d7 | | Execute Vector,Field_Read
0342 e5f7 | | Load 0x2,-0x9
0343 0119 | | Execute Any,Check_In_Formal_Type
0344 85fe | | Call 0x2,-0x2
0345 01cc | | Execute Vector,Catenate
0346 0092 047a | z| Action Push_String_Extended,0x47a ; " as supplier"
0348 01cc | | Execute Vector,Catenate
0349 e605 | | Load 0x3,0x5
034a e40e | | Load 0x2,0xe
034b 01d5 | | Execute Vector,Field_Reference
034c 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
034d 00e0 | | Load_Encached Standard_Cache
034e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
034f 01cc | | Execute Vector,Catenate
0350 0092 047b | {| Action Push_String_Extended,0x47b ; " of "
0352 01cc | | Execute Vector,Catenate
0353 e605 | | Load 0x3,0x5
0354 e40e | | Load 0x2,0xe
0355 01d5 | | Execute Vector,Field_Reference
0356 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0357 e5f7 | | Load 0x2,-0x9
0358 0119 | | Execute Any,Check_In_Formal_Type
0359 85fe | | Call 0x2,-0x2
035a 01cc | | Execute Vector,Catenate
035b 840f | | Call 0x2,0xf
035c 00c8 | | Action Pop_Auxiliary_Range
035d 3fcc |? | Loop_Increasing 0x32a
035e 4501 |E | Exit_Subprogram 0x1
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0399 | | .CONST 0x0399 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 e606 | | Load 0x3,0x6
0364 e7ff | | Load 0x3,-0x1
0365 2506 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x6
0366 01d5 | | Execute Vector,Field_Reference
0367 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0368 a602 | | Store_Unchecked 0x3,0x2
0369 e402 | | Load 0x2,0x2
036a 6807 |h | Jump_Zero 0x372
036b 0092 047c | || Action Push_String_Extended,0x47c ; " Client_Index ="
036d e602 | | Load 0x3,0x2
036e 00e0 | | Load_Encached Standard_Cache
036f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0370 01cc | | Execute Vector,Catenate
0371 840f | | Call 0x2,0xf
0372 e602 | | Load 0x3,0x2
0373 e40e | | Load 0x2,0xe
0374 01d5 | | Execute Vector,Field_Reference
0375 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0376 7021 |p! | Jump_Nonzero 0x398
0377 e402 | | Load 0x2,0x2
0378 6816 |h | Jump_Zero 0x38f
0379 0092 047d | }| Action Push_String_Extended,0x47d ; " Decrementing supplier count to"
037b e602 | | Load 0x3,0x2
037c e40e | | Load 0x2,0xe
037d 01d5 | | Execute Vector,Field_Reference
037e 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
037f 0aff | | Execute_Immediate Plus,-0x1
0380 00e0 | | Load_Encached Standard_Cache
0381 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0382 01cc | | Execute Vector,Catenate
0383 0092 047e | ~| Action Push_String_Extended,0x47e ; " for "
0385 01cc | | Execute Vector,Catenate
0386 e602 | | Load 0x3,0x2
0387 e40e | | Load 0x2,0xe
0388 01d5 | | Execute Vector,Field_Reference
0389 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
038a e5f7 | | Load 0x2,-0x9
038b 0119 | | Execute Any,Check_In_Formal_Type
038c 85fe | | Call 0x2,-0x2
038d 01cc | | Execute Vector,Catenate
038e 840f | | Call 0x2,0xf
038f e602 | | Load 0x3,0x2
0390 e40e | | Load 0x2,0xe
0391 01d5 | | Execute Vector,Field_Reference
0392 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0393 0aff | | Execute_Immediate Plus,-0x1
0394 e602 | | Load 0x3,0x2
0395 e40e | | Load 0x2,0xe
0396 01d5 | | Execute Vector,Field_Reference
0397 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0398 4501 |E | Exit_Subprogram 0x1
0399 TRAP_0360:
0399 0007 | | Action Break_Optional
039a e003 | | Load 0x0,0x3
039b 180e | | Execute Package,Field_Execute,Field_Number 0xe
039c 4801 |H | Short_Literal 0x1
039d 4801 |H | Short_Literal 0x1
039e e005 | | Load 0x0,0x5
039f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03a0 0334 | 4 | Declare_Variable Array,With_Constraint
03a1 e7ff | | Load 0x3,-0x1
03a2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03a3 e5f7 | | Load 0x2,-0x9
03a4 0119 | | Execute Any,Check_In_Formal_Type
03a5 85fd | | Call 0x2,-0x3
03a6 4801 |H | Short_Literal 0x1
03a7 00da | | Load_Top At_Offset_2
03a8 01d6 | | Execute Vector,Field_Write
03a9 601e |` | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x0000380c}
03aa e004 | | Load 0x0,0x4
03ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03ac e602 | | Load 0x3,0x2
03ad e40e | | Load 0x2,0xe
03ae 01da | | Execute Vector,Bounds
03af 0262 | b | Execute Discrete,In_Range
03b0 680c |h | Jump_Zero 0x3bd
03b1 0092 047f | | Action Push_String_Extended,0x47f ; " Client is "
03b3 e602 | | Load 0x3,0x2
03b4 e40e | | Load 0x2,0xe
03b5 01d5 | | Execute Vector,Field_Reference
03b6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03b7 e5f7 | | Load 0x2,-0x9
03b8 0119 | | Execute Any,Check_In_Formal_Type
03b9 85fe | | Call 0x2,-0x2
03ba 01cc | | Execute Vector,Catenate
03bb 840f | | Call 0x2,0xf
03bc 4501 |E | Exit_Subprogram 0x1
03bd 0092 047c | || Action Push_String_Extended,0x47c ; " Client_Index ="
03bf e602 | | Load 0x3,0x2
03c0 00e0 | | Load_Encached Standard_Cache
03c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03c2 01cc | | Execute Vector,Catenate
03c3 840f | | Call 0x2,0xf
03c4 4501 |E | Exit_Subprogram 0x1
03c5 0000 0000 | | .XXX[0x3]
03c7 0000 | |
03c8 0000 0000 | | .LITERAL {0x00000000, 0x0000380c}
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d5 | | .CONST 0x03d5 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0002 | | .CONST 0x0002 ; Number of locals
03d3 INIT_03d0:
03d3 e408 | | Load 0x2,0x8
03d4 0007 | | Action Break_Optional
03d5 BODY_03d0:
03d5 4800 |H | Short_Literal 0x0
03d6 a9ff | | Store_Unchecked 0x4,-0x1
03d7 00cf | | Action Mark_Auxiliary
03d8 e40e | | Load 0x2,0xe
03d9 01dc | | Execute Vector,Last
03da 4801 |H | Short_Literal 0x1
03db 0263 | c | Execute Discrete,Above_Bound
03dc 7056 |pV | Jump_Nonzero 0x433
03dd 00d8 | | Load_Top At_Offset_0
03de e40e | | Load 0x2,0xe
03df 01d5 | | Execute Vector,Field_Reference
03e0 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
03e1 704f |pO | Jump_Nonzero 0x431
03e2 00cf | | Action Mark_Auxiliary
03e3 00d9 | | Load_Top At_Offset_1
03e4 e40e | | Load 0x2,0xe
03e5 01d5 | | Execute Vector,Field_Reference
03e6 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03e7 4801 |H | Short_Literal 0x1
03e8 0263 | c | Execute Discrete,Above_Bound
03e9 7046 |pF | Jump_Nonzero 0x430
03ea 00d8 | | Load_Top At_Offset_0
03eb e805 | | Load 0x4,0x5
03ec e40e | | Load 0x2,0xe
03ed 01d5 | | Execute Vector,Field_Reference
03ee 2506 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x6
03ef 01d5 | | Execute Vector,Field_Reference
03f0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03f1 a802 | | Store_Unchecked 0x4,0x2
03f2 00d8 | | Load_Top At_Offset_0
03f3 e805 | | Load 0x4,0x5
03f4 e40e | | Load 0x2,0xe
03f5 01d5 | | Execute Vector,Field_Reference
03f6 2506 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x6
03f7 01d5 | | Execute Vector,Field_Reference
03f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03f9 7034 |p4 | Jump_Nonzero 0x42e
03fa e802 | | Load 0x4,0x2
03fb e40e | | Load 0x2,0xe
03fc 01d5 | | Execute Vector,Field_Reference
03fd 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
03fe 702f |p/ | Jump_Nonzero 0x42e
03ff e802 | | Load 0x4,0x2
0400 e40e | | Load 0x2,0xe
0401 01d5 | | Execute Vector,Field_Reference
0402 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0403 0c01 | | Execute_Immediate Greater_Equal,0x1
0404 6829 |h) | Jump_Zero 0x42e
0405 e402 | | Load 0x2,0x2
0406 681c |h | Jump_Zero 0x423
0407 0092 0480 | | Action Push_String_Extended,0x480 ; "Removing soft dependency"
0409 00d9 | | Load_Top At_Offset_1
040a 00e0 | | Load_Encached Standard_Cache
040b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
040c 01cc | | Execute Vector,Catenate
040d 0092 047e | ~| Action Push_String_Extended,0x47e ; " for "
040f 01cc | | Execute Vector,Catenate
0410 e802 | | Load 0x4,0x2
0411 e40e | | Load 0x2,0xe
0412 01d5 | | Execute Vector,Field_Reference
0413 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0414 e5f7 | | Load 0x2,-0x9
0415 0119 | | Execute Any,Check_In_Formal_Type
0416 85fe | | Call 0x2,-0x2
0417 01cc | | Execute Vector,Catenate
0418 0092 046e | n| Action Push_String_Extended,0x46e ; " ("
041a 01cc | | Execute Vector,Catenate
041b e805 | | Load 0x4,0x5
041c 00e0 | | Load_Encached Standard_Cache
041d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
041e 01cc | | Execute Vector,Catenate
041f 0092 0476 | v| Action Push_String_Extended,0x476 ; ")"
0421 01cc | | Execute Vector,Catenate
0422 840f | | Call 0x2,0xf
0423 e802 | | Load 0x4,0x2
0424 e40e | | Load 0x2,0xe
0425 01d5 | | Execute Vector,Field_Reference
0426 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0427 0aff | | Execute_Immediate Plus,-0x1
0428 e802 | | Load 0x4,0x2
0429 e40e | | Load 0x2,0xe
042a 01d5 | | Execute Vector,Field_Reference
042b 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
042c 4801 |H | Short_Literal 0x1
042d a9ff | | Store_Unchecked 0x4,-0x1
042e 00c8 | | Action Pop_Auxiliary_Range
042f 3fba |? | Loop_Increasing 0x3ea
0430 00ce | | Action Pop_Auxiliary
0431 00c8 | | Action Pop_Auxiliary_Range
0432 3faa |? | Loop_Increasing 0x3dd
0433 4501 |E | Exit_Subprogram 0x1
0434 0000 0000 | | .BLANK 0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b e003 | | Load 0x0,0x3
043c 180e | | Execute Package,Field_Execute,Field_Number 0xe
043d 4800 |H | Short_Literal 0x0
043e 0092 0481 | | Action Push_String_Extended,0x481 ; "Unable to generate instructions for:"
0440 e007 | | Load 0x0,0x7
0441 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0442 00cf | | Action Mark_Auxiliary
0443 e40e | | Load 0x2,0xe
0444 01dc | | Execute Vector,Last
0445 4801 |H | Short_Literal 0x1
0446 0263 | c | Execute Discrete,Above_Bound
0447 7020 |p | Jump_Nonzero 0x468
0448 00d8 | | Load_Top At_Offset_0
0449 e40e | | Load 0x2,0xe
044a 01d5 | | Execute Vector,Field_Reference
044b 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
044c 7019 |p | Jump_Nonzero 0x466
044d e003 | | Load 0x0,0x3
044e 180e | | Execute Package,Field_Execute,Field_Number 0xe
044f 4800 |H | Short_Literal 0x0
0450 0092 0482 | | Action Push_String_Extended,0x482 ; " Unit/View => "
0452 00db | | Load_Top At_Offset_3
0453 e40e | | Load 0x2,0xe
0454 01d5 | | Execute Vector,Field_Reference
0455 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0456 e5f7 | | Load 0x2,-0x9
0457 0119 | | Execute Any,Check_In_Formal_Type
0458 85fe | | Call 0x2,-0x2
0459 01cc | | Execute Vector,Catenate
045a 0092 0483 | | Action Push_String_Extended,0x483 ; ", Supplier_Count ="
045c 01cc | | Execute Vector,Catenate
045d 00db | | Load_Top At_Offset_3
045e e40e | | Load 0x2,0xe
045f 01d5 | | Execute Vector,Field_Reference
0460 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0461 00e0 | | Load_Encached Standard_Cache
0462 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0463 01cc | | Execute Vector,Catenate
0464 e007 | | Load 0x0,0x7
0465 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0466 00c8 | | Action Pop_Auxiliary_Range
0467 3fe0 |? | Loop_Increasing 0x448
0468 4501 |E | Exit_Subprogram 0x1
0469 ; --------------------------------------------------------------------------------------
0469 ; STRING TABLE
0469 ; --------------------------------------------------------------------------------------
0469 0038 | 8 | .STRTAB 0x0038->0x0485 ; "DEBUG_HISTORY_ENTRIES"
046a 004b | K | .STRTAB 0x004b->0x048f ; "WINDOW_SHIFT_OVERLAP"
046b 005d | ] | .STRTAB 0x005d->0x0499 ; " Immediate_Client = "
046c 0070 | p | .STRTAB 0x0070->0x04a4 ; " Add "
; " Add "
046d 0073 | s | .STRTAB 0x0073->0x04a6 ; " as client"
046e 007b | { | .STRTAB 0x007b->0x04ab ; " ("
; " ("
046f 007b | { | .STRTAB 0x007b->0x04ac ; ","
0470 007a | z | .STRTAB 0x007a->0x04ad ; ") ["
0471 007b | { | .STRTAB 0x007b->0x04ae ; "] of "
0472 007e | ~ | .STRTAB 0x007e->0x04b1 ; " Not found"
0473 0089 | | .STRTAB 0x0089->0x04b7 ; "Dependencies for "
0474 0098 | | .STRTAB 0x0098->0x04c0 ; " (Clients ="
0475 00a1 | | .STRTAB 0x00a1->0x04c5 ; ", Suppliers ="
0476 00ac | | .STRTAB 0x00ac->0x04cc ; ")"
; ")"
0477 00ab | | .STRTAB 0x00ab->0x04cc ; "Generating View/Compilation Ordering:"
0478 00ce | | .STRTAB 0x00ce->0x04df ; " => "
0479 00d2 | | .STRTAB 0x00d2->0x04e2 ; "Ordering completed."
047a 00e3 | | .STRTAB 0x00e3->0x04eb ; " as supplier"
047b 00ed | | .STRTAB 0x00ed->0x04f1 ; " of "
047c 00ef | | .STRTAB 0x00ef->0x04f3 ; " Client_Index ="
; " Client_Index ="
047d 00fd | | .STRTAB 0x00fd->0x04fb ; " Decrementing supplier count to"
047e 011a | | .STRTAB 0x011a->0x050b ; " for "
; " for "
047f 011d | | .STRTAB 0x011d->0x050d ; " Client is "
0480 0127 | ' | .STRTAB 0x0127->0x0513 ; "Removing soft dependency"
0481 013d | = | .STRTAB 0x013d->0x051f ; "Unable to generate instructions for:"
0482 015f | _ | .STRTAB 0x015f->0x0531 ; " Unit/View => "
0483 016d | m | .STRTAB 0x016d->0x0539 ; ", Supplier_Count ="
0484 017d | } | .STREND 0x017d->0x0542
0485 4445 4255 |DEBU| .STRTAB_STRINGS
0543 0000 0000 | | .BLANK 0000[0x5]
0548 ; --------------------------------------------------------------------------------------
0548 ; Debug Table
0548 ; --------------------------------------------------------------------------------------
0548 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb3d,0x0000,0x0001,0x0000
054e 7e90 2300 |~ # | .XXX[0xb2]
0550 0c49 535f | IS_|
0552 5345 434f |SECO|
0554 4e44 4152 |NDAR|
0556 5917 0010 |Y |
0558 5354 414e |STAN|
055a 4441 5244 |DARD|
055c 2e42 4f4f |.BOO|
055e 4c45 414e |LEAN|
0560 007f 9024 | $|
0562 0006 5354 | ST|
0564 4154 5553 |ATUS|
0566 1700 1753 | S|
0568 494d 504c |IMPL|
056a 455f 5354 |E_ST|
056c 4154 5553 |ATUS|
056e 2e43 4f4e |.CON|
0570 4449 5449 |DITI|
0572 4f4e 0035 |ON 5|
0574 3d2c 0013 |=, |
0576 5052 4f4d |PROM|
0578 4f54 455f |OTE_|
057a 504f 5354 |POST|
057c 5052 4f43 |PROC|
057e 4553 5300 |ESS |
0580 7b94 7e90 |{ ~ |
0582 2300 0948 |# H|
0584 4f53 545f |OST_|
0586 554e 4954 |UNIT|
0588 1700 1044 | D|
058a 4952 4543 |IREC|
058c 544f 5259 |TORY|
058e 2e4f 424a |.OBJ|
0590 4543 5400 |ECT |
0592 7e90 2300 |~ # |
0594 1052 454d | REM|
0596 4f54 455f |OTE_|
0598 554e 4954 |UNIT|
059a 5f4e 414d |_NAM|
059c 4517 000f |E |
059e 5354 414e |STAN|
05a0 4441 5244 |DARD|
05a2 2e53 5452 |.STR|
05a4 494e 4700 |ING |
05a6 7e90 2300 |~ # |
05a8 0e52 454d | REM|
05aa 4f54 455f |OTE_|
05ac 4c49 4252 |LIBR|
05ae 4152 5917 |ARY |
05b0 000f 5354 | ST|
05b2 414e 4441 |ANDA|
05b4 5244 2e53 |RD.S|
05b6 5452 494e |TRIN|
05b8 4700 7e90 |G ~ |
05ba 2300 0e52 |# R|
05bc 454d 4f54 |EMOT|
05be 455f 4d41 |E_MA|
05c0 4348 494e |CHIN|
05c2 4517 000f |E |
05c4 5354 414e |STAN|
05c6 4441 5244 |DARD|
05c8 2e53 5452 |.STR|
05ca 494e 4700 |ING |
05cc 7e90 2300 |~ # |
05ce 1052 454d | REM|
05d0 4f54 455f |OTE_|
05d2 4449 5245 |DIRE|
05d4 4354 4f52 |CTOR|
05d6 5917 000f |Y |
05d8 5354 414e |STAN|
05da 4441 5244 |DARD|
05dc 2e53 5452 |.STR|
05de 494e 4700 |ING |
05e0 7e90 2300 |~ # |
05e2 0b50 5245 | PRE|
05e4 5f4f 5054 |_OPT|
05e6 494f 4e53 |IONS|
05e8 1700 0f53 | S|
05ea 5441 4e44 |TAND|
05ec 4152 442e |ARD.|
05ee 5354 5249 |STRI|
05f0 4e47 007e |NG ~|
05f2 9023 000c | # |
05f4 504f 5354 |POST|
05f6 5f4f 5054 |_OPT|
05f8 494f 4e53 |IONS|
05fa 1700 0f53 | S|
05fc 5441 4e44 |TAND|
05fe 4152 442e |ARD.|