|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 INIT_0018,For_Outer_Call,Visible,Unelaborated
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 INIT_00b0,For_Call
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 INIT_00c8,For_Call
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 | QQ_Declare_Type Array,Constrained,Bounds_With_Object
0047 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
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 INIT_0118,For_Call
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 INIT_0148,For_Call
0063 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0065 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0067 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0069 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
006b 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
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_Value,New_Top_Offset 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 0x9
00b4 7808 |x | Jump 0xbd ; case 0x0
00b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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 0x9
00e4 7808 |x | Jump 0xed ; case 0x0
00e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,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,New_Top_Offset 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,New_Top_Offset 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 | QQ_execute Variant_Record,XXX
0111 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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 0x6
011c 7804 |x | Jump 0x121 ; case 0x0
011d 7814 |x | Jump 0x132 ; case 0x1
011e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
011f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0120 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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_Suprogram New_Top_Offset 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,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,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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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 INIT_0318,For_Call
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_Suprogram New_Top_Offset 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 INIT_0360,For_Call
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_Suprogram New_Top_Offset 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 INIT_03d0,For_Call
02a8 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call
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 7054 |pT | Jump_Nonzero 0x307
02b3 e604 | | Load 0x3,0x4
02b4 e603 | | Load 0x3,0x3
02b5 027f | | Execute Discrete,Equal
02b6 681b |h | Jump_Zero 0x2d2
02b7 00e1 | | Load_Encached Boolean_Cache
02b8 8606 | | Call 0x3,0x6
02b9 c605 | | Store 0x3,0x5
02ba 00db | | Load_Top At_Offset_3
02bb 7016 |p | Jump_Nonzero 0x2d2
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 035b | [ | Declare_Type Array,Constrained
02c3 0337 | 7 | Declare_Variable Array
02c4 e5f5 | | Load 0x2,-0xb
02c5 e006 | | Load 0x0,0x6
02c6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02c7 4801 |H | Short_Literal 0x1
02c8 00da | | Load_Top At_Offset_2
02c9 01d6 | | Execute Vector,Field_Write
02ca 6045 |`E | Indirect_Literal Discrete,0x310,{0x00000000, 0x0000380b}
02cb e004 | | Load 0x0,0x4
02cc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02cd 8607 | | Call 0x3,0x7
02ce e407 | | Load 0x2,0x7
02cf 0335 | 5 | Declare_Variable Array,Duplicate
02d0 00cd | | Action Spare6_Action
02d1 00ca | | Action Exit_Nullary_Function
02d2 e603 | | Load 0x3,0x3
02d3 a604 | | Store_Unchecked 0x3,0x4
02d4 00cf | | Action Mark_Auxiliary
02d5 e40e | | Load 0x2,0xe
02d6 01dc | | Execute Vector,Last
02d7 4801 |H | Short_Literal 0x1
02d8 0263 | c | Execute Discrete,Above_Bound
02d9 702a |p* | Jump_Nonzero 0x304
02da 00d8 | | Load_Top At_Offset_0
02db e40e | | Load 0x2,0xe
02dc 01d5 | | Execute Vector,Field_Reference
02dd 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
02de 7023 |p# | Jump_Nonzero 0x302
02df 00d8 | | Load_Top At_Offset_0
02e0 e40e | | Load 0x2,0xe
02e1 01d5 | | Execute Vector,Field_Reference
02e2 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
02e3 701e |p | Jump_Nonzero 0x302
02e4 0092 0478 | x| Action Push_String_Extended,0x478 ; " => "
02e6 00d9 | | Load_Top At_Offset_1
02e7 e40e | | Load 0x2,0xe
02e8 01d5 | | Execute Vector,Field_Reference
02e9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ea e5f7 | | Load 0x2,-0x9
02eb 0119 | | Execute Any,Check_In_Formal_Type
02ec 85fe | | Call 0x2,-0x2
02ed 01cc | | Execute Vector,Catenate
02ee 840f | | Call 0x2,0xf
02ef 00d8 | | Load_Top At_Offset_0
02f0 e40e | | Load 0x2,0xe
02f1 01d5 | | Execute Vector,Field_Reference
02f2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02f3 e603 | | Load 0x3,0x3
02f4 e602 | | Load 0x3,0x2
02f5 01d6 | | Execute Vector,Field_Write
02f6 e603 | | Load 0x3,0x3
02f7 0a01 | | Execute_Immediate Plus,0x1
02f8 c603 | | Store 0x3,0x3
02f9 4801 |H | Short_Literal 0x1
02fa 00d9 | | Load_Top At_Offset_1
02fb e40e | | Load 0x2,0xe
02fc 01d5 | | Execute Vector,Field_Reference
02fd 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
02fe 00d8 | | Load_Top At_Offset_0
02ff e40e | | Load 0x2,0xe
0300 01d5 | | Execute Vector,Field_Reference
0301 8413 | | Call 0x2,0x13
0302 00c8 | | Action Pop_Auxiliary_Range
0303 3fd6 |? | Loop_Increasing 0x2da
0304 00ce | | Action Pop_Auxiliary
0305 00c9 | | Action Pop_Auxiliary_Loop
0306 7fa7 | | Jump 0x2ae
0307 00ce | | Action Pop_Auxiliary
0308 0092 0479 | y| Action Push_String_Extended,0x479 ; "Ordering completed."
030a 840f | | Call 0x2,0xf
030b e602 | | Load 0x3,0x2
030c e5f8 | | Load 0x2,-0x8
030d 01c6 | | Execute Vector,Convert_To_Formal
030e 00ca | | Action Exit_Nullary_Function
030f 0000 | | .XXX[0x1]
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_Suprogram New_Top_Offset 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,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_Suprogram New_Top_Offset 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 035b | [ | Declare_Type Array,Constrained
03a1 0337 | 7 | Declare_Variable Array
03a2 e7ff | | Load 0x3,-0x1
03a3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03a4 e5f7 | | Load 0x2,-0x9
03a5 0119 | | Execute Any,Check_In_Formal_Type
03a6 85fd | | Call 0x2,-0x3
03a7 4801 |H | Short_Literal 0x1
03a8 00da | | Load_Top At_Offset_2
03a9 01d6 | | Execute Vector,Field_Write
03aa 601d |` | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x0000380c}
03ab e004 | | Load 0x0,0x4
03ac 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03ad e602 | | Load 0x3,0x2
03ae e40e | | Load 0x2,0xe
03af 01da | | Execute Vector,Bounds
03b0 0262 | b | Execute Discrete,In_Range
03b1 680c |h | Jump_Zero 0x3be
03b2 0092 047f | | Action Push_String_Extended,0x47f ; " Client is "
03b4 e602 | | Load 0x3,0x2
03b5 e40e | | Load 0x2,0xe
03b6 01d5 | | Execute Vector,Field_Reference
03b7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03b8 e5f7 | | Load 0x2,-0x9
03b9 0119 | | Execute Any,Check_In_Formal_Type
03ba 85fe | | Call 0x2,-0x2
03bb 01cc | | Execute Vector,Catenate
03bc 840f | | Call 0x2,0xf
03bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03be 0092 047c | || Action Push_String_Extended,0x47c ; " Client_Index ="
03c0 e602 | | Load 0x3,0x2
03c1 00e0 | | Load_Encached Standard_Cache
03c2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03c3 01cc | | Execute Vector,Catenate
03c4 840f | | Call 0x2,0xf
03c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c6 0000 0000 | | .XXX[0x2]
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,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,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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 "
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 ="
047d 00fd | | .STRTAB 0x00fd->0x04fb ; " Decrementing supplier count to"
047e 011a | | .STRTAB 0x011a->0x050b ; " 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 000d | | .DEBUG4 0x0004,0x000d,0xd932,0x0000,0x0001,0x0000
054e 0000 0024 | $| .XXX[0xd]
0550 75cd 0000 |u |
0552 c665 0163 | e c|
0554 7471 0163 |tq c|
0556 7571 0023 |uq #|
0558 8aec 8000 | |
055a c666 | f |
055b 0000 0000 | | .BLANK 0000[0x4]
055f 0023 8b8c | # | .XXX[0xc]
0561 8000 c667 | g|
0563 0163 73f1 | cs |
0565 0163 78c9 | cx |
0567 0023 8c40 | # @|
0569 8000 c668 | h|
056b 0000 0000 | | .BLANK 0000[0x4]
056f 0023 8ce4 | # | .XXX[0xc]
0571 8000 c669 | i|
0573 0163 7671 | cvq|
0575 0163 7771 | cwq|
0577 00b1 bc28 | (|
0579 8000 c66a | j|
057b 0000 0000 | | .BLANK 0000[0x6]
0581 00b1 bc28 | (| .XXX[0x28]
0583 800f 690f | i |
0585 8000 0000 | |
0587 8000 0003 | |
0589 a9aa 20aa | |
058b 24a7 a700 |$ |
058d b1bc d480 | |
058f 00c6 6b01 | k |
0591 6376 f101 |cv |
0593 637a c900 |cz |
0595 0000 0000 | |
0597 b1bc d480 | |
0599 7234 0800 |r4 |
059b 0000 0080 | |
059d 0000 0629 | )|
059f aa20 aa24 | $|
05a1 a7a7 13a1 | |
05a3 27a2 2c80 |' , |
05a5 22ab ad80 |" |
05a7 00c6 6c00 | l |
05a9 0000 0000 | | .BLANK 0000[0x4]
05ad 22b8 b680 |" | .XXX[0x22]
05af 00c6 6d01 | m |
05b1 637a 4901 |czI |
05b3 637b 4900 |c{I |
05b5 261c 5700 |& W |
05b7 00c6 6e00 | n |
05b9 0000 0001 | |
05bb 637b c980 |c{ |
05bd 2631 0a00 |&1 |
05bf 00c6 6f00 | o |
05c1 0000 0000 | |
05c3 0000 007f | |
05c5 e000 3191 | 1 |
05c7 4000 0000 |@ |
05c9 00b1 be89 | |
05cb 0000 0000 | |
05cd 0000 0001 | |
05cf 0000 0000 | | .BLANK 0000[0x4]
05d3 8002 6a54 | jT| .XXX[0x2]
05d5 0000 0000 | | .BLANK 0000[0x4]
05d9 00b1 c0c9 | | .XXX[0xc]
05db 0000 0000 | |
05dd 0000 000f | |
05df 0000 0000 | |
05e1 0011 2f99 | / |
05e3 4000 6330 |@ c0|
05e5 0000 0000 | | .BLANK 0000[0x4]
05e9 0011 33e4 | 3 | .XXX[0xc]
05eb c000 6330 | c0|
05ed 80b1 bf09 | |
05ef 00b1 bf89 | |
05f1 0011 3a2d | :-|
05f3 0000 6331 | c1|
05f5 0000 0000 | | .BLANK 0000[0x4]
05f9 0011 3bd1 | ; | .XXX[0x7]
05fb 8000 6331 | c1|
05fd 80b1 bf49 | I|
05ff 00b1 | |