|
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: 8192 (0x2000)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0f00 | | .CONST 0x0f00 ; 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 8008 | | .CONST 0x8008 ; 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 00a1 | | .CONST 0x00a1 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0022 | " | .CONST 0x0022 ; Number of locals
001b INIT_0018:
001b 00e3 | | Load_Encached Natural_Cache
001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001d 00e3 | | Load_Encached Natural_Cache
001e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001f 00e3 | | Load_Encached Natural_Cache
0020 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0021 00e3 | | Load_Encached Natural_Cache
0022 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0023 00e3 | | Load_Encached Natural_Cache
0024 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0025 00e3 | | Load_Encached Natural_Cache
0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0027 00e3 | | Load_Encached Natural_Cache
0028 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0029 4800 |H | Short_Literal 0x0
002a 4802 |H | Short_Literal 0x2
002b 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
002d 03fd | | Declare_Type Discrete,Defined
002e 0092 0aec | | Action Push_String_Extended,0xaec ; "<*PROGRAM_LIBRARY>"
0030 0092 0aed | | Action Push_String_Extended,0xaed ; "<???>"
0032 e002 | | Load 0x0,0x2
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 02c7 | | Declare_Variable Any
0035 e003 | | Load 0x0,0x3
0036 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0037 e002 | | Load 0x0,0x2
0038 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0039 a40c | | Store_Unchecked 0x2,0xc
003a 00e1 | | Load_Encached Boolean_Cache
003b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003c e004 | | Load 0x0,0x4
003d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
003e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003f 02c7 | | Declare_Variable Any
0040 4800 |H | Short_Literal 0x0
0041 4800 |H | Short_Literal 0x0
0042 4801 |H | Short_Literal 0x1
0043 e005 | | Load 0x0,0x5
0044 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0045 e40c | | Load 0x2,0xc
0046 e006 | | Load 0x0,0x6
0047 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0048 e007 | | Load 0x0,0x7
0049 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004a e004 | | Load 0x0,0x4
004b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
004c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004d a40e | | Store_Unchecked 0x2,0xe
004e e008 | | Load 0x0,0x8
004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0050 02c7 | | Declare_Variable Any
0051 00d8 | | Load_Top At_Offset_0
0052 1c00 | | Execute_Immediate Run_Utility,0x0
0053 0093 0000 | | push_full_address 0x0
0055 6086 |` | Indirect_Literal Discrete,0xdc,{0x80000000, 0x00010000}
0056 0273 | s | Execute Discrete,Plus
0057 0007 | | Action Break_Optional
0058 029f 010b | | Declare_Subprogram INIT_0108,For_Call
005a 029f 011b | | Declare_Subprogram INIT_0118,For_Call
005c 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
005e 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0060 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0062 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0064 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0066 4800 |H | Short_Literal 0x0
0067 0093 08e3 | | push_full_address INIT_08e0
0069 02a0 | | Declare_Subprogram Null_Subprogram
006a 038e | | Declare_Type Package,Defined
006b 0387 | | Declare_Variable Package
006c e004 | | Load 0x0,0x4
006d e409 | | Load 0x2,0x9
006e e009 | | Load 0x0,0x9
006f e00a | | Load 0x0,0xa
0070 e00b | | Load 0x0,0xb
0071 e00c | | Load 0x0,0xc
0072 e00d | | Load 0x0,0xd
0073 e00e | | Load 0x0,0xe
0074 e00f | | Load 0x0,0xf
0075 e010 | | Load 0x0,0x10
0076 4803 |H | Short_Literal 0x3
0077 4802 |H | Short_Literal 0x2
0078 0099 | | Action Reference_Dynamic
0079 4817 |H | Short_Literal 0x17
007a 4802 |H | Short_Literal 0x2
007b 0099 | | Action Reference_Dynamic
007c e011 | | Load 0x0,0x11
007d 480c |H | Short_Literal 0xc
007e 4802 |H | Short_Literal 0x2
007f 0099 | | Action Reference_Dynamic
0080 e012 | | Load 0x0,0x12
0081 4812 |H | Short_Literal 0x12
0082 4802 |H | Short_Literal 0x2
0083 0099 | | Action Reference_Dynamic
0084 4810 |H | Short_Literal 0x10
0085 e418 | | Load 0x2,0x18
0086 020e | | Execute Module,Augment_Imports
0087 00d8 | | Load_Top At_Offset_0
0088 020f | | Execute Module,Activate
0089 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
008b 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
008d 029e 02a3 | | Declare_Subprogram INIT_02a0,For_Call,Unelaborated
008f 481b |H | Short_Literal 0x1b
0090 4802 |H | Short_Literal 0x2
0091 0099 | | Action Reference_Dynamic
0092 00c7 | | Action Elaborate_Subprogram
0093 029f 031b | | Declare_Subprogram INIT_0318,For_Call
0095 029f 034b | K| Declare_Subprogram INIT_0348,For_Call
0097 029f 037b | {| Declare_Subprogram INIT_0378,For_Call
0099 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call
009b 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call
009d 029f 042b | +| Declare_Subprogram INIT_0428,For_Call
009f 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call
00a1 BODY_0018:
00a1 8421 | ! | Call 0x2,0x21
00a2 e40f | | Load 0x2,0xf
00a3 4800 |H | Short_Literal 0x0
00a4 0092 0aee | | Action Push_String_Extended,0xaee ; "[Program_Library_Maintenance.Check_Code_Segment_Reference_Counts (Worlds => \x22"
00a6 e5ff | | Load 0x2,-0x1
00a7 01cc | | Execute Vector,Catenate
00a8 0092 0aef | | Action Push_String_Extended,0xaef ; "\x22, Increase_Reference_Counts_That_Are_Too_Small => "
00aa 01cc | | Execute Vector,Catenate
00ab e5fe | | Load 0x2,-0x2
00ac 00e1 | | Load_Encached Boolean_Cache
00ad 011c | | Execute Any,Convert_Unchecked
00ae 1c01 | | Execute_Immediate Run_Utility,0x1
00af 01cc | | Execute Vector,Catenate
00b0 0092 0af0 | | Action Push_String_Extended,0xaf0 ; ", Decrease_Reference_Counts_That_Are_Too_Large => "
00b2 01cc | | Execute Vector,Catenate
00b3 e5fd | | Load 0x2,-0x3
00b4 00e1 | | Load_Encached Boolean_Cache
00b5 011c | | Execute Any,Convert_Unchecked
00b6 1c01 | | Execute_Immediate Run_Utility,0x1
00b7 01cc | | Execute Vector,Catenate
00b8 0092 0af1 | | Action Push_String_Extended,0xaf1 ; ", Options => \x22"
00ba 01cc | | Execute Vector,Catenate
00bb e5fc | | Load 0x2,-0x4
00bc 01cc | | Execute Vector,Catenate
00bd 0092 0af2 | | Action Push_String_Extended,0xaf2 ; "\x22, Response => \x22"
00bf 01cc | | Execute Vector,Catenate
00c0 e5fb | | Load 0x2,-0x5
00c1 01cc | | Execute Vector,Catenate
00c2 0092 0af3 | | Action Push_String_Extended,0xaf3 ; "\x22);]."
00c4 01cc | | Execute Vector,Catenate
00c5 e013 | | Load 0x0,0x13
00c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c7 8422 | " | Call 0x2,0x22
00c8 e40e | | Load 0x2,0xe
00c9 e004 | | Load 0x0,0x4
00ca 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00cb 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00cc 8413 | | Call 0x2,0x13
00cd e40f | | Load 0x2,0xf
00ce 4800 |H | Short_Literal 0x0
00cf 0092 0af4 | | Action Push_String_Extended,0xaf4 ; "[End of Program_Library_Maintenance.Check_Code_Segment_Reference_Counts command]."
00d1 e013 | | Load 0x0,0x13
00d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d3 e40c | | Load 0x2,0xc
00d4 4801 |H | Short_Literal 0x1
00d5 e40d | | Load 0x2,0xd
00d6 e002 | | Load 0x0,0x2
00d7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d8 c40c | | Store 0x2,0xc
00d9 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00da 0000 0000 | | .XXX[0x2]
00dc 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 4607 |F | Jump_Case 0x8
00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00e5 7807 |x | Jump 0xed ; case 0x1
00e6 780a |x | Jump 0xf1 ; case 0x2
00e7 780e |x | Jump 0xf6 ; case 0x3
00e8 7811 |x | Jump 0xfa ; case 0x4
00e9 7812 |x | Jump 0xfc ; case 0x5
00ea 7813 |x | Jump 0xfe ; case 0x6
00eb 7816 |x | Jump 0x102 ; case 0x7
00ec 4302 |C | .XXX[0x1]
00ed 00da | | Load_Top At_Offset_2
00ee 0091 0ae7 | | Action Push_String_Extended_Indexed,0xae7 ; "CODE"
00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db | | Load_Top At_Offset_3
00f2 00db | | Load_Top At_Offset_3
00f3 00e0 | | Load_Encached Standard_Cache
00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f6 00da | | Load_Top At_Offset_2
00f7 00e0 | | Load_Encached Standard_Cache
00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00fa 00db | | Load_Top At_Offset_3
00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fc 00db | | Load_Top At_Offset_3
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe e409 | | Load 0x2,0x9
00ff 00dc | | Load_Top At_Offset_4
0100 0267 | g | Execute Discrete,Predecessor
0101 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0102 e409 | | Load 0x2,0x9
0103 00dc | | Load_Top At_Offset_4
0104 0268 | h | Execute Discrete,Successor
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e40f | | Load 0x2,0xf
010c 4807 |H | Short_Literal 0x7
010d e7ff | | Load 0x3,-0x1
010e e013 | | Load 0x0,0x13
010f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0110 e410 | | Load 0x2,0x10
0111 0257 | W | Execute Discrete,Raise
0112 0000 0000 | | .BLANK 0000[0x6]
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 e40f | | Load 0x2,0xf
011c 4807 |H | Short_Literal 0x7
011d e7ff | | Load 0x3,-0x1
011e e013 | | Load 0x0,0x13
011f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0120 e408 | | Load 0x2,0x8
0121 0a01 | | Execute_Immediate Plus,0x1
0122 c408 | | Store 0x2,0x8
0123 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0153 | S | .CONST 0x0153 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0004 | | .CONST 0x0004 ; Number of locals
012b INIT_0128:
012b e005 | | Load 0x0,0x5
012c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012d 02c7 | | Declare_Variable Any
012e 00db | | Load_Top At_Offset_3
012f a602 | | Store_Unchecked 0x3,0x2
0130 e005 | | Load 0x0,0x5
0131 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0132 0266 | f | Execute Discrete,Bounds
0133 e008 | | Load 0x0,0x8
0134 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0135 02a0 | | Declare_Subprogram Null_Subprogram
0136 4801 |H | Short_Literal 0x1
0137 035d | ] | Declare_Type Array,Defined
0138 00d8 | | Load_Top At_Offset_0
0139 0337 | 7 | Declare_Variable Array
013a 00d8 | | Load_Top At_Offset_0
013b 0335 | 5 | Declare_Variable Array,Duplicate
013c 00cd | | Action Spare6_Action
013d 4802 |H | Short_Literal 0x2
013e 4800 |H | Short_Literal 0x0
013f 00da | | Load_Top At_Offset_2
0140 01d6 | | Execute Vector,Field_Write
0141 4806 |H | Short_Literal 0x6
0142 4801 |H | Short_Literal 0x1
0143 00da | | Load_Top At_Offset_2
0144 01d6 | | Execute Vector,Field_Write
0145 4807 |H | Short_Literal 0x7
0146 4802 |H | Short_Literal 0x2
0147 00da | | Load_Top At_Offset_2
0148 01d6 | | Execute Vector,Field_Write
0149 4807 |H | Short_Literal 0x7
014a 4803 |H | Short_Literal 0x3
014b 00da | | Load_Top At_Offset_2
014c 01d6 | | Execute Vector,Field_Write
014d 4808 |H | Short_Literal 0x8
014e 4804 |H | Short_Literal 0x4
014f 00da | | Load_Top At_Offset_2
0150 01d6 | | Execute Vector,Field_Write
0151 00d9 | | Load_Top At_Offset_1
0152 01d4 | | Execute Vector,Structure_Write
0153 BODY_0128:
0153 00cf | | Action Mark_Auxiliary
0154 7810 |x | Jump 0x165
0155 e40f | | Load 0x2,0xf
0156 e602 | | Load 0x3,0x2
0157 e005 | | Load 0x0,0x5
0158 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0159 00db | | Load_Top At_Offset_3
015a 01d7 | | Execute Vector,Field_Read
015b e602 | | Load 0x3,0x2
015c e005 | | Load 0x0,0x5
015d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
015e e013 | | Load 0x0,0x13
015f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0160 00db | | Load_Top At_Offset_3
0161 e005 | | Load 0x0,0x5
0162 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0163 c602 | | Store 0x3,0x2
0164 00c9 | | Action Pop_Auxiliary_Loop
0165 00db | | Load_Top At_Offset_3
0166 e005 | | Load 0x0,0x5
0167 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0168 6fec |o | Jump_Zero 0x155
0169 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017a | z | .CONST 0x017a ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 e011 | | Load 0x0,0x11
0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0175 e00f | | Load 0x0,0xf
0176 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0177 02c7 | | Declare_Variable Any
0178 00d8 | | Load_Top At_Offset_0
0179 1c00 | | Execute_Immediate Run_Utility,0x0
017a BODY_0170:
017a 00be | | Action Activate_Tasks
017b e011 | | Load 0x0,0x11
017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017d 00d9 | | Load_Top At_Offset_1
017e 0120 | | Execute Any,Is_Value
017f 6803 |h | Jump_Zero 0x183
0180 e00f | | Load 0x0,0xf
0181 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0182 7801 |x | Jump 0x184
0183 00d9 | | Load_Top At_Offset_1
0184 e40c | | Load 0x2,0xc
0185 4800 |H | Short_Literal 0x0
0186 e00f | | Load 0x0,0xf
0187 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0188 e012 | | Load 0x0,0x12
0189 1811 | | Execute Package,Field_Execute,Field_Number 0x11
018a e00f | | Load 0x0,0xf
018b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
018c 0161 | a | Execute Variant_Record,Check_In_Formal_Type
018d 4801 |H | Short_Literal 0x1
018e e7ff | | Load 0x3,-0x1
018f e00f | | Load 0x0,0xf
0190 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0191 c603 | | Store 0x3,0x3
0192 005a | Z | Store_Top Discrete,At_Offset_2
0193 00d9 | | Load_Top At_Offset_1
0194 7010 |p | Jump_Nonzero 0x1a5
0195 e7ff | | Load 0x3,-0x1
0196 e012 | | Load 0x0,0x12
0197 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0198 0092 0af5 | | Action Push_String_Extended,0xaf5 ; " (segment"
019a 01cc | | Execute Vector,Catenate
019b 00d9 | | Load_Top At_Offset_1
019c e00f | | Load 0x0,0xf
019d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
019e 00e0 | | Load_Encached Standard_Cache
019f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a0 01cc | | Execute Vector,Catenate
01a1 0092 0af6 | | Action Push_String_Extended,0xaf6 ; ")"
01a3 01cc | | Execute Vector,Catenate
01a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a5 0092 0af7 | | Action Push_String_Extended,0xaf7 ; "Bad status opening code segment "
01a7 e7ff | | Load 0x3,-0x1
01a8 e012 | | Load 0x0,0x12
01a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01aa 01cc | | Execute Vector,Catenate
01ab 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
01ad 01cc | | Execute Vector,Catenate
01ae 00da | | Load_Top At_Offset_2
01af e011 | | Load 0x0,0x11
01b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b1 011c | | Execute Any,Convert_Unchecked
01b2 1c01 | | Execute_Immediate Run_Utility,0x1
01b3 01cc | | Execute Vector,Catenate
01b4 8412 | | Call 0x2,0x12
01b5 e7ff | | Load 0x3,-0x1
01b6 e012 | | Load 0x0,0x12
01b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b9 0000 0000 | | .BLANK 0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 4602 |F | Jump_Case 0x3
01c5 7805 |x | Jump 0x1cb ; case 0x0
01c6 7806 |x | Jump 0x1cd ; case 0x1
01c7 7800 |x | Jump 0x1c8 ; case 0x2
01c8 0092 0af9 | | Action Push_String_Extended,0xaf9 ; "main program closure "
01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cb 00ea | | Load_Encached Null_String_Cache
01cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cd 0092 0afa | | Action Push_String_Extended,0xafa ; "elaboration "
01cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5 | | .CONST 0x01d5 ; Address of begin
01d1 01ea | | .CONST 0x01ea ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call
01d5 BODY_01d0:
01d5 00db | | Load_Top At_Offset_3
01d6 e004 | | Load 0x0,0x4
01d7 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d9 e004 | | Load 0x0,0x4
01da 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
01db 180d | | Execute Package,Field_Execute,Field_Number 0xd
01dc 6808 |h | Jump_Zero 0x1e5
01dd 0092 0afb | | Action Push_String_Extended,0xafb ; "code view unit "
01df e7ff | | Load 0x3,-0x1
01e0 e004 | | Load 0x0,0x4
01e1 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01e2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e3 01cc | | Execute Vector,Catenate
01e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e5 00db | | Load_Top At_Offset_3
01e6 e004 | | Load 0x0,0x4
01e7 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01e8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ea TRAP_01d0:
01ea 0007 | | Action Break_Optional
01eb 8602 | | Call 0x3,0x2
01ec e40b | | Load 0x2,0xb
01ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00db | | Load_Top At_Offset_3
01f4 0e02 | | Execute_Immediate Not_Equal,0x2
01f5 7008 |p | Jump_Nonzero 0x1fe
01f6 00da | | Load_Top At_Offset_2
01f7 e004 | | Load 0x0,0x4
01f8 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01f9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01fa e004 | | Load 0x0,0x4
01fb 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
01fc 180d | | Execute Package,Field_Execute,Field_Number 0xd
01fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01fe 4801 |H | Short_Literal 0x1
01ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 021b | | .CONST 0x021b ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0008 | | .CONST 0x0008 ; Number of locals
0203 INIT_0200:
0203 029f 058b | | Declare_Subprogram INIT_0588,For_Call
0205 029f 05c3 | | Declare_Subprogram INIT_05c0,For_Call
0207 029f 068b | | Declare_Subprogram INIT_0688,For_Call
0209 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call
020b e418 | | Load 0x2,0x18
020c 1911 | | Execute Package,Field_Reference,Field_Number 0x11
020d 00c6 | | Action Check_Subprogram_Elaborated
020e 4805 |H | Short_Literal 0x5
020f 4803 |H | Short_Literal 0x3
0210 0099 | | Action Reference_Dynamic
0211 0093 0000 | | push_full_address 0x0
0213 6010 |` | Indirect_Literal Discrete,0x224,{0x80000000, 0x00040000}
0214 0273 | s | Execute Discrete,Plus
0215 e014 | | Load 0x0,0x14
0216 0273 | s | Execute Discrete,Plus
0217 e015 | | Load 0x0,0x15
0218 0273 | s | Execute Discrete,Plus
0219 4808 |H | Short_Literal 0x8
021a 0007 | | Action Break_Optional
021b BODY_0200:
021b 4806 |H | Short_Literal 0x6
021c 4803 |H | Short_Literal 0x3
021d 0099 | | Action Reference_Dynamic
021e 4807 |H | Short_Literal 0x7
021f 4803 |H | Short_Literal 0x3
0220 0099 | | Action Reference_Dynamic
0221 e418 | | Load 0x2,0x18
0222 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0223 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0224 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0238 | 8 | .CONST 0x0238 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0005 | | .CONST 0x0005 ; Number of locals
022b INIT_0228:
022b e004 | | Load 0x0,0x4
022c 1b52 | R | Execute Package,Field_Read,Field_Number 0x52
022d 02c7 | | Declare_Variable Any
022e e7fd | | Load 0x3,-0x3
022f a602 | | Store_Unchecked 0x3,0x2
0230 e00f | | Load 0x0,0xf
0231 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0232 02ff | | Declare_Variable Variant_Record
0233 00d8 | | Load_Top At_Offset_0
0234 1c00 | | Execute_Immediate Run_Utility,0x0
0235 00e3 | | Load_Encached Natural_Cache
0236 e011 | | Load 0x0,0x11
0237 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0238 BODY_0228:
0238 00cf | | Action Mark_Auxiliary
0239 785a |xZ | Jump 0x294
023a e602 | | Load 0x3,0x2
023b e004 | | Load 0x0,0x4
023c 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
023d e00f | | Load 0x0,0xf
023e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
023f 0162 | b | Execute Variant_Record,Check_In_Type
0240 e603 | | Load 0x3,0x3
0241 016d | m | Execute Variant_Record,Structure_Write
0242 e602 | | Load 0x3,0x2
0243 e004 | | Load 0x0,0x4
0244 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
0245 c602 | | Store 0x3,0x2
0246 e402 | | Load 0x2,0x2
0247 0a01 | | Execute_Immediate Plus,0x1
0248 c402 | | Store 0x2,0x2
0249 00db | | Load_Top At_Offset_3
024a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
024b e00f | | Load 0x0,0xf
024c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
024d 027f | | Execute Discrete,Equal
024e 6831 |h1 | Jump_Zero 0x280
024f e011 | | Load 0x0,0x11
0250 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0251 00e2 | | Load_Encached Integer_Cache
0252 4800 |H | Short_Literal 0x0
0253 4800 |H | Short_Literal 0x0
0254 e40c | | Load 0x2,0xc
0255 e603 | | Load 0x3,0x3
0256 e00f | | Load 0x0,0xf
0257 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0258 c604 | | Store 0x3,0x4
0259 005a | Z | Store_Top Discrete,At_Offset_2
025a 00d9 | | Load_Top At_Offset_1
025b 7007 |p | Jump_Nonzero 0x263
025c e7fe | | Load 0x3,-0x2
025d e7ff | | Load 0x3,-0x1
025e e604 | | Load 0x3,0x4
025f e603 | | Load 0x3,0x3
0260 e418 | | Load 0x2,0x18
0261 180d | | Execute Package,Field_Execute,Field_Number 0xd
0262 7830 |x0 | Jump 0x293
0263 0092 0afc | | Action Push_String_Extended,0xafc ; "Bad status getting reference count for code segment "
0265 e603 | | Load 0x3,0x3
0266 e012 | | Load 0x0,0x12
0267 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0268 01cc | | Execute Vector,Catenate
0269 0092 0afd | | Action Push_String_Extended,0xafd ; " found on "
026b 01cc | | Execute Vector,Catenate
026c e7fe | | Load 0x3,-0x2
026d 8415 | | Call 0x2,0x15
026e 01cc | | Execute Vector,Catenate
026f 0092 0afe | | Action Push_String_Extended,0xafe ; "code segment object list of "
0271 01cc | | Execute Vector,Catenate
0272 e7ff | | Load 0x3,-0x1
0273 8416 | | Call 0x2,0x16
0274 01cc | | Execute Vector,Catenate
0275 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
0277 01cc | | Execute Vector,Catenate
0278 00da | | Load_Top At_Offset_2
0279 e011 | | Load 0x0,0x11
027a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027b 011c | | Execute Any,Convert_Unchecked
027c 1c01 | | Execute_Immediate Run_Utility,0x1
027d 01cc | | Execute Vector,Catenate
027e 8412 | | Call 0x2,0x12
027f 7813 |x | Jump 0x293
0280 0092 0aff | | Action Push_String_Extended,0xaff ; "Unexpected class of object found on "
0282 e7fe | | Load 0x3,-0x2
0283 8415 | | Call 0x2,0x15
0284 01cc | | Execute Vector,Catenate
0285 0092 0afe | | Action Push_String_Extended,0xafe ; "code segment object list of "
0287 01cc | | Execute Vector,Catenate
0288 e7ff | | Load 0x3,-0x1
0289 8416 | | Call 0x2,0x16
028a 01cc | | Execute Vector,Catenate
028b 0092 0b00 | | Action Push_String_Extended,0xb00 ; ":"
028d 01cc | | Execute Vector,Catenate
028e e603 | | Load 0x3,0x3
028f e012 | | Load 0x0,0x12
0290 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0291 01cc | | Execute Vector,Catenate
0292 8412 | | Call 0x2,0x12
0293 00c9 | | Action Pop_Auxiliary_Loop
0294 e602 | | Load 0x3,0x2
0295 e004 | | Load 0x0,0x4
0296 1b53 | S | Execute Package,Field_Read,Field_Number 0x53
0297 012f | / | Execute Any,Equal
0298 6fa1 |o | Jump_Zero 0x23a
0299 4504 |E | Exit_Suprogram New_Top_Offset 0x4
029a 0000 0000 | | .BLANK 0000[0x6]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02b1 | | .CONST 0x02b1 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0006 | | .CONST 0x0006 ; Number of locals
02a3 INIT_02a0:
02a3 e009 | | Load 0x0,0x9
02a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02a5 02ff | | Declare_Variable Variant_Record
02a6 00d8 | | Load_Top At_Offset_0
02a7 1c00 | | Execute_Immediate Run_Utility,0x0
02a8 e009 | | Load 0x0,0x9
02a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02aa e016 | | Load 0x0,0x16
02ab 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02ac e016 | | Load 0x0,0x16
02ad 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02ae e016 | | Load 0x0,0x16
02af 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02b0 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
02b1 BODY_02a0:
02b1 e009 | | Load 0x0,0x9
02b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b3 e602 | | Load 0x3,0x2
02b4 605f |`_ | Indirect_Literal Discrete,0x314,{0x00000000, 0x00004000}
02b5 e002 | | Load 0x0,0x2
02b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b7 4800 |H | Short_Literal 0x0
02b8 e7fd | | Load 0x3,-0x3
02b9 e009 | | Load 0x0,0x9
02ba 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
02bb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02bc 00d1 | | Pop_Control Pop_Count_1
02bd c603 | | Store 0x3,0x3
02be 00db | | Load_Top At_Offset_3
02bf 680f |h | Jump_Zero 0x2cf
02c0 0092 0b01 | | Action Push_String_Extended,0xb01 ; "Bad status getting version for Archived_Code object "
02c2 e7fc | | Load 0x3,-0x4
02c3 01cc | | Execute Vector,Catenate
02c4 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
02c6 01cc | | Execute Vector,Catenate
02c7 e603 | | Load 0x3,0x3
02c8 e009 | | Load 0x0,0x9
02c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ca 011c | | Execute Any,Convert_Unchecked
02cb 1c01 | | Execute_Immediate Run_Utility,0x1
02cc 01cc | | Execute Vector,Catenate
02cd 8412 | | Call 0x2,0x12
02ce 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02cf e016 | | Load 0x0,0x16
02d0 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02d1 e016 | | Load 0x0,0x16
02d2 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02d3 4801 |H | Short_Literal 0x1
02d4 e002 | | Load 0x0,0x2
02d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d6 e602 | | Load 0x3,0x2
02d7 e016 | | Load 0x0,0x16
02d8 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
02d9 0162 | b | Execute Variant_Record,Check_In_Type
02da e016 | | Load 0x0,0x16
02db 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02dc c604 | | Store 0x3,0x4
02dd 005a | Z | Store_Top Discrete,At_Offset_2
02de 00d9 | | Load_Top At_Offset_1
02df 680f |h | Jump_Zero 0x2ef
02e0 0092 0b02 | | Action Push_String_Extended,0xb02 ; "Bad status opening Archived_Code object "
02e2 e7fc | | Load 0x3,-0x4
02e3 01cc | | Execute Vector,Catenate
02e4 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
02e6 01cc | | Execute Vector,Catenate
02e7 00da | | Load_Top At_Offset_2
02e8 e016 | | Load 0x0,0x16
02e9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02ea 011c | | Execute Any,Convert_Unchecked
02eb 1c01 | | Execute_Immediate Run_Utility,0x1
02ec 01cc | | Execute Vector,Catenate
02ed 8412 | | Call 0x2,0x12
02ee 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02ef e016 | | Load 0x0,0x16
02f0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02f1 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
02f2 e006 | | Load 0x0,0x6
02f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f4 e007 | | Load 0x0,0x7
02f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f6 e604 | | Load 0x3,0x4
02f7 0217 | | Execute Heap_Access,All_Reference
02f8 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02f9 e016 | | Load 0x0,0x16
02fa 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02fb 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02fc 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02fd 00cf | | Action Mark_Auxiliary
02fe 780c |x | Jump 0x30b
02ff 00d9 | | Load_Top At_Offset_1
0300 e016 | | Load 0x0,0x16
0301 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0302 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0303 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0304 87fe | | Call 0x3,-0x2
0305 00d9 | | Load_Top At_Offset_1
0306 e016 | | Load 0x0,0x16
0307 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0308 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0309 0032 | 2 | Store_Top Heap_Access,At_Offset_2
030a 00c9 | | Action Pop_Auxiliary_Loop
030b 00d9 | | Load_Top At_Offset_1
030c e016 | | Load 0x0,0x16
030d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
030e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
030f 6fef |o | Jump_Zero 0x2ff
0310 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0311 0000 0000 | | .XXX[0x3]
0313 0000 | |
0314 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0330 | 0 | .CONST 0x0330 ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0006 | | .CONST 0x0006 ; Number of locals
031b INIT_0318:
031b 029f 06cb | | Declare_Subprogram INIT_06c8,For_Call
031d 029f 06db | | Declare_Subprogram INIT_06d8,For_Call
031f 481b |H | Short_Literal 0x1b
0320 4802 |H | Short_Literal 0x2
0321 0099 | | Action Reference_Dynamic
0322 00c6 | | Action Check_Subprogram_Elaborated
0323 4803 |H | Short_Literal 0x3
0324 4803 |H | Short_Literal 0x3
0325 0099 | | Action Reference_Dynamic
0326 0093 0000 | | push_full_address 0x0
0328 6017 |` | Indirect_Literal Discrete,0x340,{0x80000000, 0x00030000}
0329 0273 | s | Execute Discrete,Plus
032a e014 | | Load 0x0,0x14
032b 0273 | s | Execute Discrete,Plus
032c e017 | | Load 0x0,0x17
032d 0273 | s | Execute Discrete,Plus
032e 4806 |H | Short_Literal 0x6
032f 0007 | | Action Break_Optional
0330 BODY_0318:
0330 0092 0b03 | | Action Push_String_Extended,0xb03 ; "for Loaded_Main unit "
0332 e7fe | | Load 0x3,-0x2
0333 e004 | | Load 0x0,0x4
0334 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0335 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0336 01cc | | Execute Vector,Catenate
0337 e7ff | | Load 0x3,-0x1
0338 4804 |H | Short_Literal 0x4
0339 4803 |H | Short_Literal 0x3
033a 0099 | | Action Reference_Dynamic
033b 4805 |H | Short_Literal 0x5
033c 4803 |H | Short_Literal 0x3
033d 0099 | | Action Reference_Dynamic
033e 841b | | Call 0x2,0x1b
033f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0340 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
0344 0000 0000 | | .BLANK 0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034d | M | .CONST 0x034d ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0002 | | .CONST 0x0002 ; Number of locals
034b INIT_0348:
034b 029f 06eb | | Declare_Subprogram INIT_06e8,For_Call
034d BODY_0348:
034d 00db | | Load_Top At_Offset_3
034e 8416 | | Call 0x2,0x16
034f e40b | | Load 0x2,0xb
0350 01de | | Execute Vector,Not_Equal
0351 7001 |p | Jump_Nonzero 0x353
0352 0887 | | Execute_Immediate Raise,0x87
0353 e404 | | Load 0x2,0x4
0354 0a01 | | Execute_Immediate Plus,0x1
0355 c404 | | Store 0x2,0x4
0356 00db | | Load_Top At_Offset_3
0357 e004 | | Load 0x0,0x4
0358 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0359 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
035a 4800 |H | Short_Literal 0x0
035b e7ff | | Load 0x3,-0x1
035c 841a | | Call 0x2,0x1a
035d 00db | | Load_Top At_Offset_3
035e e004 | | Load 0x0,0x4
035f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0360 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0361 4801 |H | Short_Literal 0x1
0362 e7ff | | Load 0x3,-0x1
0363 841a | | Call 0x2,0x1a
0364 00db | | Load_Top At_Offset_3
0365 e004 | | Load 0x0,0x4
0366 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0367 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0368 4802 |H | Short_Literal 0x2
0369 e7ff | | Load 0x3,-0x1
036a 841a | | Call 0x2,0x1a
036b 00db | | Load_Top At_Offset_3
036c e004 | | Load 0x0,0x4
036d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
036e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
036f 6801 |h | Jump_Zero 0x371
0370 8602 | | Call 0x3,0x2
0371 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0372 0000 0000 | | .BLANK 0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0388 | | .CONST 0x0388 ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0006 | | .CONST 0x0006 ; Number of locals
037b INIT_0378:
037b e004 | | Load 0x0,0x4
037c 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
037d 191f | | Execute Package,Field_Reference,Field_Number 0x1f
037e 00c6 | | Action Check_Subprogram_Elaborated
037f 481d |H | Short_Literal 0x1d
0380 4802 |H | Short_Literal 0x2
0381 0099 | | Action Reference_Dynamic
0382 e018 | | Load 0x0,0x18
0383 e019 | | Load 0x0,0x19
0384 4805 |H | Short_Literal 0x5
0385 0007 | | Action Break_Optional
0386 029f 070b | | Declare_Subprogram INIT_0708,For_Call
0388 BODY_0378:
0388 4800 |H | Short_Literal 0x0
0389 e01a | | Load 0x0,0x1a
038a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
038b e7ff | | Load 0x3,-0x1
038c e004 | | Load 0x0,0x4
038d 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
038e 180f | | Execute Package,Field_Execute,Field_Number 0xf
038f e01b | | Load 0x0,0x1b
0390 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0391 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0392 0f03 | | Execute_Immediate Equal,0x3
0393 681b |h | Jump_Zero 0x3af
0394 e40f | | Load 0x2,0xf
0395 4802 |H | Short_Literal 0x2
0396 0092 0b04 | | Action Push_String_Extended,0xb04 ; "Checking "
0398 e7fe | | Load 0x3,-0x2
0399 8606 | | Call 0x3,0x6
039a 01cc | | Execute Vector,Catenate
039b e013 | | Load 0x0,0x13
039c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
039d e405 | | Load 0x2,0x5
039e 0a01 | | Execute_Immediate Plus,0x1
039f c405 | | Store 0x2,0x5
03a0 4801 |H | Short_Literal 0x1
03a1 4801 |H | Short_Literal 0x1
03a2 4801 |H | Short_Literal 0x1
03a3 4800 |H | Short_Literal 0x0
03a4 e7ff | | Load 0x3,-0x1
03a5 4802 |H | Short_Literal 0x2
03a6 4803 |H | Short_Literal 0x3
03a7 0099 | | Action Reference_Dynamic
03a8 4803 |H | Short_Literal 0x3
03a9 4803 |H | Short_Literal 0x3
03aa 0099 | | Action Reference_Dynamic
03ab e004 | | Load 0x0,0x4
03ac 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
03ad 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03af e40f | | Load 0x2,0xf
03b0 4802 |H | Short_Literal 0x2
03b1 0092 0b05 | | Action Push_String_Extended,0xb05 ; "Skipping non-R1000 world "
03b3 e7fe | | Load 0x3,-0x2
03b4 8606 | | Call 0x3,0x6
03b5 01cc | | Execute Vector,Catenate
03b6 e013 | | Load 0x0,0x13
03b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03b9 0000 0000 | | .BLANK 0000[0x7]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03cb | | .CONST 0x03cb ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0003 | | .CONST 0x0003 ; Number of locals
03c3 INIT_03c0:
03c3 e009 | | Load 0x0,0x9
03c4 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
03c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c6 02c7 | | Declare_Variable Any
03c7 00d8 | | Load_Top At_Offset_0
03c8 1c00 | | Execute_Immediate Run_Utility,0x0
03c9 e009 | | Load 0x0,0x9
03ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cb BODY_03c0:
03cb e009 | | Load 0x0,0x9
03cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cd 00da | | Load_Top At_Offset_2
03ce 0120 | | Execute Any,Is_Value
03cf 6804 |h | Jump_Zero 0x3d4
03d0 e009 | | Load 0x0,0x9
03d1 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
03d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d3 7801 |x | Jump 0x3d5
03d4 00da | | Load_Top At_Offset_2
03d5 e7ff | | Load 0x3,-0x1
03d6 e009 | | Load 0x0,0x9
03d7 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
03d8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03d9 c602 | | Store 0x3,0x2
03da 0059 | Y | Store_Top Discrete,At_Offset_1
03db 00d8 | | Load_Top At_Offset_0
03dc 680b |h | Jump_Zero 0x3e8
03dd 0092 0b06 | | Action Push_String_Extended,0xb06 ; "Bad status getting enclosing directory for "
03df e7ff | | Load 0x3,-0x1
03e0 e009 | | Load 0x0,0x9
03e1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03e2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03e3 01cc | | Execute Vector,Catenate
03e4 8412 | | Call 0x2,0x12
03e5 e009 | | Load 0x0,0x9
03e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e8 00d9 | | Load_Top At_Offset_1
03e9 e009 | | Load 0x0,0x9
03ea 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03eb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ed 0000 0000 | | .XXX[0x3]
03ef 0000 | |
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 040e | | .CONST 0x040e ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0007 | | .CONST 0x0007 ; Number of locals
03f3 INIT_03f0:
03f3 e009 | | Load 0x0,0x9
03f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03f5 02c7 | | Declare_Variable Any
03f6 00db | | Load_Top At_Offset_3
03f7 841f | | Call 0x2,0x1f
03f8 a602 | | Store_Unchecked 0x3,0x2
03f9 029f 072b | +| Declare_Subprogram INIT_0728,For_Call
03fb 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call
03fd 481b |H | Short_Literal 0x1b
03fe 4802 |H | Short_Literal 0x2
03ff 0099 | | Action Reference_Dynamic
0400 00c6 | | Action Check_Subprogram_Elaborated
0401 4804 |H | Short_Literal 0x4
0402 4803 |H | Short_Literal 0x3
0403 0099 | | Action Reference_Dynamic
0404 0093 0000 | | push_full_address 0x0
0406 6019 |` | Indirect_Literal Discrete,0x420,{0x80000000, 0x00010000}
0407 0273 | s | Execute Discrete,Plus
0408 e014 | | Load 0x0,0x14
0409 0273 | s | Execute Discrete,Plus
040a e01c | | Load 0x0,0x1c
040b 0273 | s | Execute Discrete,Plus
040c 4807 |H | Short_Literal 0x7
040d 0007 | | Action Break_Optional
040e BODY_03f0:
040e 0092 0b07 | | Action Push_String_Extended,0xb07 ; "for code view "
0410 e602 | | Load 0x3,0x2
0411 e009 | | Load 0x0,0x9
0412 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0413 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0414 01cc | | Execute Vector,Catenate
0415 e7ff | | Load 0x3,-0x1
0416 4805 |H | Short_Literal 0x5
0417 4803 |H | Short_Literal 0x3
0418 0099 | | Action Reference_Dynamic
0419 4806 |H | Short_Literal 0x6
041a 4803 |H | Short_Literal 0x3
041b 0099 | | Action Reference_Dynamic
041c 841b | | Call 0x2,0x1b
041d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
041e 0000 0000 | | .XXX[0x2]
0420 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0424 0000 0000 | | .BLANK 0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0430 | 0 | .CONST 0x0430 ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0002 | | .CONST 0x0002 ; Number of locals
042b INIT_0428:
042b e01d | | Load 0x0,0x1d
042c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
042d 02c7 | | Declare_Variable Any
042e 00d8 | | Load_Top At_Offset_0
042f 1c00 | | Execute_Immediate Run_Utility,0x0
0430 BODY_0428:
0430 00d8 | | Load_Top At_Offset_0
0431 e40f | | Load 0x2,0xf
0432 0120 | | Execute Any,Is_Value
0433 6803 |h | Jump_Zero 0x437
0434 e008 | | Load 0x0,0x8
0435 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0436 7801 |x | Jump 0x438
0437 e40f | | Load 0x2,0xf
0438 e5fb | | Load 0x2,-0x5
0439 e008 | | Load 0x0,0x8
043a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
043b c40f | | Store 0x2,0xf
043c c602 | | Store 0x3,0x2
043d 4801 |H | Short_Literal 0x1
043e 00d9 | | Load_Top At_Offset_1
043f e01d | | Load 0x0,0x1d
0440 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0441 6807 |h | Jump_Zero 0x449
0442 e008 | | Load 0x0,0x8
0443 180e | | Execute Package,Field_Execute,Field_Number 0xe
0444 00d9 | | Load_Top At_Offset_1
0445 e013 | | Load 0x0,0x13
0446 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0447 00cc | | Action Pop_Block
0448 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0449 4501 |E | Exit_Suprogram New_Top_Offset 0x1
044a 0000 0000 | | .BLANK 0000[0x6]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 047b | { | .CONST 0x047b ; Address of begin
0451 0558 | X | .CONST 0x0558 ; Address of exception handler
0452 000a | | .CONST 0x000a ; Number of locals
0453 INIT_0450:
0453 485b |H[ | Short_Literal 0x5b
0454 e5ff | | Load 0x2,-0x1
0455 01ca | | Execute Vector,Prepend
0456 0092 0b08 | | Action Push_String_Extended,0xb08 ; "]"
0458 01cc | | Execute Vector,Catenate
0459 e40a | | Load 0x2,0xa
045a 01cc | | Execute Vector,Catenate
045b 0007 | | Action Break_Optional
045c e009 | | Load 0x0,0x9
045d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
045e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
045f e009 | | Load 0x0,0x9
0460 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0461 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0462 02c7 | | Declare_Variable Any
0463 00d8 | | Load_Top At_Offset_0
0464 1c00 | | Execute_Immediate Run_Utility,0x0
0465 e009 | | Load 0x0,0x9
0466 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0467 e009 | | Load 0x0,0x9
0468 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0469 02c7 | | Declare_Variable Any
046a 00d8 | | Load_Top At_Offset_0
046b 1c00 | | Execute_Immediate Run_Utility,0x0
046c e004 | | Load 0x0,0x4
046d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046e 02c7 | | Declare_Variable Any
046f 00d8 | | Load_Top At_Offset_0
0470 1c00 | | Execute_Immediate Run_Utility,0x0
0471 485b |H[ | Short_Literal 0x5b
0472 e5ff | | Load 0x2,-0x1
0473 01ca | | Execute Vector,Prepend
0474 0092 0b09 | | Action Push_String_Extended,0xb09 ; "]code_database'c(archived_code)"
0476 01cc | | Execute Vector,Catenate
0477 029f 074b | K| Declare_Subprogram INIT_0748,For_Call
0479 029f 07cb | | Declare_Subprogram INIT_07c8,For_Call
047b BODY_0450:
047b e5fe | | Load 0x2,-0x2
047c 7002 |p | Jump_Nonzero 0x47f
047d e5fd | | Load 0x2,-0x3
047e 6809 |h | Jump_Zero 0x488
047f 4801 |H | Short_Literal 0x1
0480 e01e | | Load 0x0,0x1e
0481 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0482 e01e | | Load 0x0,0x1e
0483 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0484 7003 |p | Jump_Nonzero 0x488
0485 0092 0b0a | | Action Push_String_Extended,0xb0a ; "Requested modification of incorrect reference counts, but unable to enter privileged mode"
0487 8411 | | Call 0x2,0x11
0488 00cf | | Action Mark_Auxiliary
0489 00e1 | | Load_Encached Boolean_Cache
048a 0266 | f | Execute Discrete,Bounds
048b 0007 | | Action Break_Optional
048c 00d8 | | Load_Top At_Offset_0
048d 6819 |h | Jump_Zero 0x4a7
048e e009 | | Load 0x0,0x9
048f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0490 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0491 e604 | | Load 0x3,0x4
0492 60c9 |` | Indirect_Literal Discrete,0x55c,{0x00000000, 0x00004000}
0493 e002 | | Load 0x0,0x2
0494 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0495 e006 | | Load 0x0,0x6
0496 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0497 e007 | | Load 0x0,0x7
0498 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0499 4801 |H | Short_Literal 0x1
049a 4800 |H | Short_Literal 0x0
049b e006 | | Load 0x0,0x6
049c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
049d e009 | | Load 0x0,0x9
049e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
049f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04a0 e602 | | Load 0x3,0x2
04a1 e009 | | Load 0x0,0x9
04a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04a3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04a4 c604 | | Store 0x3,0x4
04a5 c603 | | Store 0x3,0x3
04a6 7818 |x | Jump 0x4bf
04a7 e009 | | Load 0x0,0x9
04a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04aa e604 | | Load 0x3,0x4
04ab 60b0 |` | Indirect_Literal Discrete,0x55c,{0x00000000, 0x00004000}
04ac e002 | | Load 0x0,0x2
04ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ae e006 | | Load 0x0,0x6
04af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b0 e007 | | Load 0x0,0x7
04b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b2 4801 |H | Short_Literal 0x1
04b3 4800 |H | Short_Literal 0x0
04b4 e006 | | Load 0x0,0x6
04b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b6 e009 | | Load 0x0,0x9
04b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04b9 e608 | | Load 0x3,0x8
04ba e009 | | Load 0x0,0x9
04bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04bd c604 | | Store 0x3,0x4
04be c603 | | Store 0x3,0x3
04bf e603 | | Load 0x3,0x3
04c0 6843 |hC | Jump_Zero 0x504
04c1 e603 | | Load 0x3,0x3
04c2 0e03 | | Execute_Immediate Not_Equal,0x3
04c3 7005 |p | Jump_Nonzero 0x4c9
04c4 e604 | | Load 0x3,0x4
04c5 e009 | | Load 0x0,0x9
04c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04c7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04c8 703b |p; | Jump_Nonzero 0x504
04c9 00d8 | | Load_Top At_Offset_0
04ca 681d |h | Jump_Zero 0x4e8
04cb 0092 0b0b | | Action Push_String_Extended,0xb0b ; "Unable to resolve name \x22"
04cd e602 | | Load 0x3,0x2
04ce 01cc | | Execute Vector,Catenate
04cf 0092 0b0c | | Action Push_String_Extended,0xb0c ; "\x22 because "
04d1 01cc | | Execute Vector,Catenate
04d2 6089 |` | Indirect_Literal Discrete,0x55c,{0x00000000, 0x00004000}
04d3 e002 | | Load 0x0,0x2
04d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d5 e006 | | Load 0x0,0x6
04d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04d7 e007 | | Load 0x0,0x7
04d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04d9 4801 |H | Short_Literal 0x1
04da 4800 |H | Short_Literal 0x0
04db e006 | | Load 0x0,0x6
04dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04dd e009 | | Load 0x0,0x9
04de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04e0 e602 | | Load 0x3,0x2
04e1 e603 | | Load 0x3,0x3
04e2 e009 | | Load 0x0,0x9
04e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e4 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
04e5 01cc | | Execute Vector,Catenate
04e6 8411 | | Call 0x2,0x11
04e7 781c |x | Jump 0x504
04e8 0092 0b0b | | Action Push_String_Extended,0xb0b ; "Unable to resolve name \x22"
04ea e608 | | Load 0x3,0x8
04eb 01cc | | Execute Vector,Catenate
04ec 0092 0b0c | | Action Push_String_Extended,0xb0c ; "\x22 because "
04ee 01cc | | Execute Vector,Catenate
04ef 606c |`l | Indirect_Literal Discrete,0x55c,{0x00000000, 0x00004000}
04f0 e002 | | Load 0x0,0x2
04f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04f2 e006 | | Load 0x0,0x6
04f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04f4 e007 | | Load 0x0,0x7
04f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04f6 4801 |H | Short_Literal 0x1
04f7 4800 |H | Short_Literal 0x0
04f8 e006 | | Load 0x0,0x6
04f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04fa e009 | | Load 0x0,0x9
04fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04fd e608 | | Load 0x3,0x8
04fe e603 | | Load 0x3,0x3
04ff e009 | | Load 0x0,0x9
0500 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0501 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0502 01cc | | Execute Vector,Catenate
0503 8411 | | Call 0x2,0x11
0504 00cf | | Action Mark_Auxiliary
0505 7846 |xF | Jump 0x54c
0506 e009 | | Load 0x0,0x9
0507 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0508 e606 | | Load 0x3,0x6
0509 0120 | | Execute Any,Is_Value
050a 6803 |h | Jump_Zero 0x50e
050b e009 | | Load 0x0,0x9
050c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
050d 7801 |x | Jump 0x50f
050e e606 | | Load 0x3,0x6
050f e604 | | Load 0x3,0x4
0510 e009 | | Load 0x0,0x9
0511 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0512 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0513 c606 | | Store 0x3,0x6
0514 c605 | | Store 0x3,0x5
0515 e605 | | Load 0x3,0x5
0516 6811 |h | Jump_Zero 0x528
0517 0092 0b0d | | Action Push_String_Extended,0xb0d ; "Bad status getting object for "
0519 e604 | | Load 0x3,0x4
051a e009 | | Load 0x0,0x9
051b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
051c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
051d 01cc | | Execute Vector,Catenate
051e 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
0520 01cc | | Execute Vector,Catenate
0521 e605 | | Load 0x3,0x5
0522 e009 | | Load 0x0,0x9
0523 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0524 011c | | Execute Any,Convert_Unchecked
0525 1c01 | | Execute_Immediate Run_Utility,0x1
0526 01cc | | Execute Vector,Catenate
0527 8411 | | Call 0x2,0x11
0528 00d9 | | Load_Top At_Offset_1
0529 681a |h | Jump_Zero 0x544
052a e607 | | Load 0x3,0x7
052b 0120 | | Execute Any,Is_Value
052c 6803 |h | Jump_Zero 0x530
052d e004 | | Load 0x0,0x4
052e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
052f 7801 |x | Jump 0x531
0530 e607 | | Load 0x3,0x7
0531 4801 |H | Short_Literal 0x1
0532 e606 | | Load 0x3,0x6
0533 e40e | | Load 0x2,0xe
0534 e004 | | Load 0x0,0x4
0535 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0536 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0537 c607 | | Store 0x3,0x7
0538 e40e | | Load 0x2,0xe
0539 e004 | | Load 0x0,0x4
053a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
053b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
053c 6814 |h | Jump_Zero 0x551
053d e604 | | Load 0x3,0x4
053e e009 | | Load 0x0,0x9
053f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0540 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0541 e607 | | Load 0x3,0x7
0542 841e | | Call 0x2,0x1e
0543 7802 |x | Jump 0x546
0544 e606 | | Load 0x3,0x6
0545 8420 | | Call 0x2,0x20
0546 e604 | | Load 0x3,0x4
0547 e009 | | Load 0x0,0x9
0548 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0549 181d | | Execute Package,Field_Execute,Field_Number 0x1d
054a c604 | | Store 0x3,0x4
054b 00c9 | | Action Pop_Auxiliary_Loop
054c e604 | | Load 0x3,0x4
054d e009 | | Load 0x0,0x9
054e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
054f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0550 6fb5 |o | Jump_Zero 0x506
0551 00ce | | Action Pop_Auxiliary
0552 00c8 | | Action Pop_Auxiliary_Range
0553 3738 |78 | Loop_Decreasing 0x48c
0554 00ce | | Action Pop_Auxiliary
0555 8419 | | Call 0x2,0x19
0556 8609 | | Call 0x3,0x9
0557 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0558 TRAP_0450:
0558 0007 | | Action Break_Optional
0559 860a | | Call 0x3,0xa
055a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
055b 0000 | | .XXX[0x1]
055c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0565 | e | .CONST 0x0565 ; Address of begin
0561 0582 | | .CONST 0x0582 ; Address of exception handler
0562 0002 | | .CONST 0x0002 ; Number of locals
0563 INIT_0560:
0563 029f 07f3 | | Declare_Subprogram INIT_07f0,For_Call
0565 BODY_0560:
0565 0092 0b0e | | Action Push_String_Extended,0xb0e ; "Exception raised getting name of unit "
0567 e7ff | | Load 0x3,-0x1
0568 e004 | | Load 0x0,0x4
0569 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
056a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
056b 01cc | | Execute Vector,Catenate
056c 0092 0b0f | | Action Push_String_Extended,0xb0f ; " in program library "
056e 01cc | | Execute Vector,Catenate
056f e7ff | | Load 0x3,-0x1
0570 e004 | | Load 0x0,0x4
0571 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0572 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0573 e004 | | Load 0x0,0x4
0574 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
0575 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0576 e009 | | Load 0x0,0x9
0577 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0578 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0579 01cc | | Execute Vector,Catenate
057a 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
057c 01cc | | Execute Vector,Catenate
057d e01f | | Load 0x0,0x1f
057e 180d | | Execute Package,Field_Execute,Field_Number 0xd
057f 01cc | | Execute Vector,Catenate
0580 8412 | | Call 0x2,0x12
0581 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0582 TRAP_0560:
0582 0007 | | Action Break_Optional
0583 8802 | | Call 0x4,0x2
0584 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0585 0000 0000 | | .XXX[0x3]
0587 0000 | |
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 05aa | | .CONST 0x05aa ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 000b | | .CONST 0x000b ; Number of locals
058b INIT_0588:
058b 00e3 | | Load_Encached Natural_Cache
058c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
058d 029f 0813 | | Declare_Subprogram INIT_0810,For_Call
058f 029f 0843 | C| Declare_Subprogram INIT_0840,For_Call
0591 029f 085b | [| Declare_Subprogram INIT_0858,For_Call
0593 029f 0883 | | Declare_Subprogram INIT_0880,For_Call
0595 029f 0893 | | Declare_Subprogram INIT_0890,For_Call
0597 e418 | | Load 0x2,0x18
0598 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0599 00c6 | | Action Check_Subprogram_Elaborated
059a 4806 |H | Short_Literal 0x6
059b 4804 |H | Short_Literal 0x4
059c 0099 | | Action Reference_Dynamic
059d 4807 |H | Short_Literal 0x7
059e 4804 |H | Short_Literal 0x4
059f 0099 | | Action Reference_Dynamic
05a0 0093 0000 | | push_full_address 0x0
05a2 6015 |` | Indirect_Literal Discrete,0x5b8,{0x80000000, 0x00050000}
05a3 0273 | s | Execute Discrete,Plus
05a4 e014 | | Load 0x0,0x14
05a5 0273 | s | Execute Discrete,Plus
05a6 e020 | | Load 0x0,0x20
05a7 0273 | s | Execute Discrete,Plus
05a8 480b |H | Short_Literal 0xb
05a9 0007 | | Action Break_Optional
05aa BODY_0588:
05aa e9ff | | Load 0x4,-0x1
05ab 4808 |H | Short_Literal 0x8
05ac 4804 |H | Short_Literal 0x4
05ad 0099 | | Action Reference_Dynamic
05ae 4809 |H | Short_Literal 0x9
05af 4804 |H | Short_Literal 0x4
05b0 0099 | | Action Reference_Dynamic
05b1 480a |H | Short_Literal 0xa
05b2 4804 |H | Short_Literal 0x4
05b3 0099 | | Action Reference_Dynamic
05b4 e418 | | Load 0x2,0x18
05b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05b7 0000 | | .XXX[0x1]
05b8 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
05bc 0000 0000 | | .BLANK 0000[0x4]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c9 | | .CONST 0x05c9 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0004 | | .CONST 0x0004 ; Number of locals
05c3 INIT_05c0:
05c3 e011 | | Load 0x0,0x11
05c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c5 00e3 | | Load_Encached Natural_Cache
05c6 e008 | | Load 0x0,0x8
05c7 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05c8 0606 | | Execute_Immediate Set_Value_Unchecked,0x6
05c9 BODY_05c0:
05c9 e406 | | Load 0x2,0x6
05ca 0a01 | | Execute_Immediate Plus,0x1
05cb c406 | | Store 0x2,0x6
05cc e9fe | | Load 0x4,-0x2
05cd e9fd | | Load 0x4,-0x3
05ce 027c | | | Execute Discrete,Less
05cf 6805 |h | Jump_Zero 0x5d5
05d0 e5fe | | Load 0x2,-0x2
05d1 7007 |p | Jump_Nonzero 0x5d9
05d2 4807 |H | Short_Literal 0x7
05d3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05d4 7804 |x | Jump 0x5d9
05d5 e5fd | | Load 0x2,-0x3
05d6 7002 |p | Jump_Nonzero 0x5d9
05d7 4807 |H | Short_Literal 0x7
05d8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05d9 e40f | | Load 0x2,0xf
05da 00d9 | | Load_Top At_Offset_1
05db 0092 0b10 | | Action Push_String_Extended,0xb10 ; "Reference count ="
05dd e9fe | | Load 0x4,-0x2
05de 00e0 | | Load_Encached Standard_Cache
05df 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05e0 01cc | | Execute Vector,Catenate
05e1 0092 0b11 | | Action Push_String_Extended,0xb11 ; ", but expected value is"
05e3 01cc | | Execute Vector,Catenate
05e4 e9fd | | Load 0x4,-0x3
05e5 00e0 | | Load_Encached Standard_Cache
05e6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05e7 01cc | | Execute Vector,Catenate
05e8 e013 | | Load 0x0,0x13
05e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ea 00d8 | | Load_Top At_Offset_0
05eb 0f07 | | Execute_Immediate Equal,0x7
05ec 6801 |h | Jump_Zero 0x5ee
05ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05ee 00cf | | Action Mark_Auxiliary
05ef e9fd | | Load 0x4,-0x3
05f0 e9fe | | Load 0x4,-0x2
05f1 0a01 | | Execute_Immediate Plus,0x1
05f2 00d8 | | Load_Top At_Offset_0
05f3 00e2 | | Load_Encached Integer_Cache
05f4 0260 | ` | Execute Discrete,In_Type
05f5 7001 |p | Jump_Nonzero 0x5f7
05f6 0801 | | Execute_Immediate Raise,0x1
05f7 0263 | c | Execute Discrete,Above_Bound
05f8 701f |p | Jump_Nonzero 0x618
05f9 e011 | | Load 0x0,0x11
05fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05fb 4800 |H | Short_Literal 0x0
05fc e40c | | Load 0x2,0xc
05fd e9ff | | Load 0x4,-0x1
05fe e00f | | Load 0x0,0xf
05ff 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0600 c802 | | Store 0x4,0x2
0601 e802 | | Load 0x4,0x2
0602 6811 |h | Jump_Zero 0x614
0603 0092 0b12 | | Action Push_String_Extended,0xb12 ; "Bad status incrementing reference count for code segment "
0605 e9ff | | Load 0x4,-0x1
0606 e012 | | Load 0x0,0x12
0607 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0608 01cc | | Execute Vector,Catenate
0609 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
060b 01cc | | Execute Vector,Catenate
060c e802 | | Load 0x4,0x2
060d e011 | | Load 0x0,0x11
060e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
060f 011c | | Execute Any,Convert_Unchecked
0610 1c01 | | Execute_Immediate Run_Utility,0x1
0611 01cc | | Execute Vector,Catenate
0612 8412 | | Call 0x2,0x12
0613 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0614 4801 |H | Short_Literal 0x1
0615 a40d | | Store_Unchecked 0x2,0xd
0616 00c8 | | Action Pop_Auxiliary_Range
0617 3fe1 |? | Loop_Increasing 0x5f9
0618 00c9 | | Action Pop_Auxiliary_Loop
0619 e9fe | | Load 0x4,-0x2
061a e9fd | | Load 0x4,-0x3
061b 0a01 | | Execute_Immediate Plus,0x1
061c 00d8 | | Load_Top At_Offset_0
061d 00e2 | | Load_Encached Integer_Cache
061e 0260 | ` | Execute Discrete,In_Type
061f 7001 |p | Jump_Nonzero 0x621
0620 0801 | | Execute_Immediate Raise,0x1
0621 0263 | c | Execute Discrete,Above_Bound
0622 701f |p | Jump_Nonzero 0x642
0623 e011 | | Load 0x0,0x11
0624 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0625 4800 |H | Short_Literal 0x0
0626 e40c | | Load 0x2,0xc
0627 e9ff | | Load 0x4,-0x1
0628 e00f | | Load 0x0,0xf
0629 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
062a c802 | | Store 0x4,0x2
062b e802 | | Load 0x4,0x2
062c 6811 |h | Jump_Zero 0x63e
062d 0092 0b13 | | Action Push_String_Extended,0xb13 ; "Bad status decrementing reference count for code segment "
062f e9ff | | Load 0x4,-0x1
0630 e012 | | Load 0x0,0x12
0631 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0632 01cc | | Execute Vector,Catenate
0633 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
0635 01cc | | Execute Vector,Catenate
0636 e802 | | Load 0x4,0x2
0637 e011 | | Load 0x0,0x11
0638 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0639 011c | | Execute Any,Convert_Unchecked
063a 1c01 | | Execute_Immediate Run_Utility,0x1
063b 01cc | | Execute Vector,Catenate
063c 8412 | | Call 0x2,0x12
063d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
063e 4801 |H | Short_Literal 0x1
063f a40d | | Store_Unchecked 0x2,0xd
0640 00c8 | | Action Pop_Auxiliary_Range
0641 3fe1 |? | Loop_Increasing 0x623
0642 00ce | | Action Pop_Auxiliary
0643 e011 | | Load 0x0,0x11
0644 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0645 00e2 | | Load_Encached Integer_Cache
0646 4800 |H | Short_Literal 0x0
0647 4800 |H | Short_Literal 0x0
0648 e40c | | Load 0x2,0xc
0649 e9ff | | Load 0x4,-0x1
064a e00f | | Load 0x0,0xf
064b 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
064c 005b | [ | Store_Top Discrete,At_Offset_3
064d 005b | [ | Store_Top Discrete,At_Offset_3
064e 00da | | Load_Top At_Offset_2
064f 7024 |p$ | Jump_Nonzero 0x674
0650 00d9 | | Load_Top At_Offset_1
0651 e9fd | | Load 0x4,-0x3
0652 027f | | Execute Discrete,Equal
0653 680a |h | Jump_Zero 0x65e
0654 e40f | | Load 0x2,0xf
0655 4803 |H | Short_Literal 0x3
0656 0092 0b14 | | Action Push_String_Extended,0xb14 ; " Reference count has been corrected"
0658 e013 | | Load 0x0,0x13
0659 1813 | | Execute Package,Field_Execute,Field_Number 0x13
065a e407 | | Load 0x2,0x7
065b 0a01 | | Execute_Immediate Plus,0x1
065c c407 | | Store 0x2,0x7
065d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
065e 0092 0b15 | | Action Push_String_Extended,0xb15 ; "Error in correcting reference count for code segment "
0660 e9ff | | Load 0x4,-0x1
0661 e012 | | Load 0x0,0x12
0662 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0663 01cc | | Execute Vector,Catenate
0664 0092 0b16 | | Action Push_String_Extended,0xb16 ; ": new reference count ="
0666 01cc | | Execute Vector,Catenate
0667 00da | | Load_Top At_Offset_2
0668 00e0 | | Load_Encached Standard_Cache
0669 1818 | | Execute Package,Field_Execute,Field_Number 0x18
066a 01cc | | Execute Vector,Catenate
066b 0092 0b11 | | Action Push_String_Extended,0xb11 ; ", but expected value is"
066d 01cc | | Execute Vector,Catenate
066e e9fd | | Load 0x4,-0x3
066f 00e0 | | Load_Encached Standard_Cache
0670 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0671 01cc | | Execute Vector,Catenate
0672 8412 | | Call 0x2,0x12
0673 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0674 0092 0afc | | Action Push_String_Extended,0xafc ; "Bad status getting reference count for code segment "
0676 e9ff | | Load 0x4,-0x1
0677 e012 | | Load 0x0,0x12
0678 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0679 01cc | | Execute Vector,Catenate
067a 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
067c 01cc | | Execute Vector,Catenate
067d 00db | | Load_Top At_Offset_3
067e e011 | | Load 0x0,0x11
067f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0680 011c | | Execute Any,Convert_Unchecked
0681 1c01 | | Execute_Immediate Run_Utility,0x1
0682 01cc | | Execute Vector,Catenate
0683 8412 | | Call 0x2,0x12
0684 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0685 0000 0000 | | .XXX[0x3]
0687 0000 | |
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068f | | .CONST 0x068f ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0002 | | .CONST 0x0002 ; Number of locals
068b INIT_0688:
068b 00db | | Load_Top At_Offset_3
068c e9fd | | Load 0x4,-0x3
068d 027e | ~ | Execute Discrete,Not_Equal
068e 0007 | | Action Break_Optional
068f BODY_0688:
068f e40f | | Load 0x2,0xf
0690 4802 |H | Short_Literal 0x2
0691 0092 0b17 | | Action Push_String_Extended,0xb17 ; "Reference count is"
0693 e9fe | | Load 0x4,-0x2
0694 00e0 | | Load_Encached Standard_Cache
0695 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0696 01cc | | Execute Vector,Catenate
0697 0092 0b18 | | Action Push_String_Extended,0xb18 ; " for code segment "
0699 01cc | | Execute Vector,Catenate
069a e9ff | | Load 0x4,-0x1
069b 8414 | | Call 0x2,0x14
069c 01cc | | Execute Vector,Catenate
069d 0092 0b19 | | Action Push_String_Extended,0xb19 ; "; uses include:"
069f 01cc | | Execute Vector,Catenate
06a0 e013 | | Load 0x0,0x13
06a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06a2 00db | | Load_Top At_Offset_3
06a3 8602 | | Call 0x3,0x2
06a4 00d8 | | Load_Top At_Offset_0
06a5 6804 |h | Jump_Zero 0x6aa
06a6 e9fd | | Load 0x4,-0x3
06a7 e9fe | | Load 0x4,-0x2
06a8 e9ff | | Load 0x4,-0x1
06a9 8603 | | Call 0x3,0x3
06aa 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06ab 0000 0000 | | .BLANK 0000[0x5]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 e9fd | | Load 0x4,-0x3
06b4 00d8 | | Load_Top At_Offset_0
06b5 00e3 | | Load_Encached Natural_Cache
06b6 0260 | ` | Execute Discrete,In_Type
06b7 7001 |p | Jump_Nonzero 0x6b9
06b8 0801 | | Execute_Immediate Raise,0x1
06b9 e9fe | | Load 0x4,-0x2
06ba 00d8 | | Load_Top At_Offset_0
06bb 00e3 | | Load_Encached Natural_Cache
06bc 0260 | ` | Execute Discrete,In_Type
06bd 7001 |p | Jump_Nonzero 0x6bf
06be 0801 | | Execute_Immediate Raise,0x1
06bf e9ff | | Load 0x4,-0x1
06c0 e00f | | Load 0x0,0xf
06c1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06c2 0161 | a | Execute Variant_Record,Check_In_Formal_Type
06c3 8604 | | Call 0x3,0x4
06c4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06c5 0000 0000 | | .XXX[0x3]
06c7 0000 | |
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb | | .CONST 0x06cb ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0001 | | .CONST 0x0001 ; Number of locals
06cb BODY_06c8:
06cb INIT_06c8:
06cb 4801 |H | Short_Literal 0x1
06cc e7fe | | Load 0x3,-0x2
06cd e004 | | Load 0x0,0x4
06ce 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
06cf 180f | | Execute Package,Field_Execute,Field_Number 0xf
06d0 e9ff | | Load 0x4,-0x1
06d1 e418 | | Load 0x2,0x18
06d2 180f | | Execute Package,Field_Execute,Field_Number 0xf
06d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06d4 0000 0000 | | .BLANK 0000[0x4]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db | | .CONST 0x06db ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0001 | | .CONST 0x0001 ; Number of locals
06db BODY_06d8:
06db INIT_06d8:
06db 00da | | Load_Top At_Offset_2
06dc e00f | | Load 0x0,0xf
06dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06de 0161 | a | Execute Variant_Record,Check_In_Formal_Type
06df 8602 | | Call 0x3,0x2
06e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06e1 0000 0000 | | .BLANK 0000[0x7]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06f1 | | .CONST 0x06f1 ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0003 | | .CONST 0x0003 ; Number of locals
06eb INIT_06e8:
06eb e7ff | | Load 0x3,-0x1
06ec e004 | | Load 0x0,0x4
06ed 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
06ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06ef 029f 08a3 | | Declare_Subprogram INIT_08a0,For_Call
06f1 BODY_06e8:
06f1 8803 | | Call 0x4,0x3
06f2 00d9 | | Load_Top At_Offset_1
06f3 680d |h | Jump_Zero 0x701
06f4 e002 | | Load 0x0,0x2
06f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06f6 00da | | Load_Top At_Offset_2
06f7 e021 | ! | Load 0x0,0x21
06f8 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
06f9 6807 |h | Jump_Zero 0x701
06fa e7ff | | Load 0x3,-0x1
06fb e002 | | Load 0x0,0x2
06fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06fd 00db | | Load_Top At_Offset_3
06fe e021 | ! | Load 0x0,0x21
06ff 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0700 841c | | Call 0x2,0x1c
0701 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0702 0000 0000 | | .BLANK 0000[0x6]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0712 | | .CONST 0x0712 ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0002 | | .CONST 0x0002 ; Number of locals
070b INIT_0708:
070b 4800 |H | Short_Literal 0x0
070c 00db | | Load_Top At_Offset_3
070d e40a | | Load 0x2,0xa
070e e022 | " | Load 0x0,0x22
070f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0710 00e4 | | Load_Encached Positive_Cache
0711 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0712 BODY_0708:
0712 00d8 | | Load_Top At_Offset_0
0713 0aff | | Execute_Immediate Plus,-0x1
0714 e9ff | | Load 0x4,-0x1
0715 01d7 | | Execute Vector,Field_Read
0716 0f2e | . | Execute_Immediate Equal,0x2e
0717 6803 |h | Jump_Zero 0x71b
0718 00d8 | | Load_Top At_Offset_0
0719 0aff | | Execute_Immediate Plus,-0x1
071a 0059 | Y | Store_Top Discrete,At_Offset_1
071b 00db | | Load_Top At_Offset_3
071c 01dd | | Execute Vector,First
071d 00d9 | | Load_Top At_Offset_1
071e 0aff | | Execute_Immediate Plus,-0x1
071f 00d8 | | Load_Top At_Offset_0
0720 00e4 | | Load_Encached Positive_Cache
0721 0260 | ` | Execute Discrete,In_Type
0722 7001 |p | Jump_Nonzero 0x724
0723 0801 | | Execute_Immediate Raise,0x1
0724 e9ff | | Load 0x4,-0x1
0725 01cf | | Execute Vector,Slice_Read
0726 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0727 0000 | | .XXX[0x1]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b | + | .CONST 0x072b ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0001 | | .CONST 0x0001 ; Number of locals
072b BODY_0728:
072b INIT_0728:
072b 4800 |H | Short_Literal 0x0
072c e602 | | Load 0x3,0x2
072d e9ff | | Load 0x4,-0x1
072e e418 | | Load 0x2,0x18
072f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0730 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0731 0000 0000 | | .BLANK 0000[0x7]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b | ; | .CONST 0x073b ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0001 | | .CONST 0x0001 ; Number of locals
073b BODY_0738:
073b INIT_0738:
073b 00da | | Load_Top At_Offset_2
073c e00f | | Load 0x0,0xf
073d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
073e 0161 | a | Execute Variant_Record,Check_In_Formal_Type
073f 8603 | | Call 0x3,0x3
0740 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0741 0000 0000 | | .BLANK 0000[0x7]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 0751 | Q | .CONST 0x0751 ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0004 | | .CONST 0x0004 ; Number of locals
074b INIT_0748:
074b e008 | | Load 0x0,0x8
074c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
074d 029f 08bb | | Declare_Subprogram INIT_08b8,For_Call
074f 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call
0751 BODY_0748:
0751 e408 | | Load 0x2,0x8
0752 0f00 | | Execute_Immediate Equal,0x0
0753 e406 | | Load 0x2,0x6
0754 e407 | | Load 0x2,0x7
0755 027f | | Execute Discrete,Equal
0756 0279 | y | Execute Discrete,And
0757 6803 |h | Jump_Zero 0x75b
0758 4803 |H | Short_Literal 0x3
0759 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
075a 7802 |x | Jump 0x75d
075b 4805 |H | Short_Literal 0x5
075c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
075d e40f | | Load 0x2,0xf
075e 00db | | Load_Top At_Offset_3
075f 0092 0b1a | | Action Push_String_Extended,0xb1a ; "Checked"
0761 e402 | | Load 0x2,0x2
0762 00e0 | | Load_Encached Standard_Cache
0763 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0764 01cc | | Execute Vector,Catenate
0765 0092 0b1b | | Action Push_String_Extended,0xb1b ; " use"
0767 01cc | | Execute Vector,Catenate
0768 00ea | | Load_Encached Null_String_Cache
0769 e402 | | Load 0x2,0x2
076a 8803 | | Call 0x4,0x3
076b 01cc | | Execute Vector,Catenate
076c 0092 0b1c | | Action Push_String_Extended,0xb1c ; " of"
076e 01cc | | Execute Vector,Catenate
076f e403 | | Load 0x2,0x3
0770 00e0 | | Load_Encached Standard_Cache
0771 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0772 01cc | | Execute Vector,Catenate
0773 0092 0b1d | | Action Push_String_Extended,0xb1d ; " code segment"
0775 01cc | | Execute Vector,Catenate
0776 00ea | | Load_Encached Null_String_Cache
0777 e403 | | Load 0x2,0x3
0778 8803 | | Call 0x4,0x3
0779 01cc | | Execute Vector,Catenate
077a 0092 0b1c | | Action Push_String_Extended,0xb1c ; " of"
077c 01cc | | Execute Vector,Catenate
077d e404 | | Load 0x2,0x4
077e 00e0 | | Load_Encached Standard_Cache
077f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0780 01cc | | Execute Vector,Catenate
0781 0092 0b1e | | Action Push_String_Extended,0xb1e ; " unit"
0783 01cc | | Execute Vector,Catenate
0784 00ea | | Load_Encached Null_String_Cache
0785 e404 | | Load 0x2,0x4
0786 8803 | | Call 0x4,0x3
0787 01cc | | Execute Vector,Catenate
0788 0092 0b1f | | Action Push_String_Extended,0xb1f ; " in"
078a 01cc | | Execute Vector,Catenate
078b e405 | | Load 0x2,0x5
078c 00e0 | | Load_Encached Standard_Cache
078d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
078e 01cc | | Execute Vector,Catenate
078f 0092 0b20 | | Action Push_String_Extended,0xb20 ; " program librar"
0791 01cc | | Execute Vector,Catenate
0792 0092 0b21 | !| Action Push_String_Extended,0xb21 ; "y"
0794 e405 | | Load 0x2,0x5
0795 8803 | | Call 0x4,0x3
0796 01cc | | Execute Vector,Catenate
0797 0092 0b22 | "| Action Push_String_Extended,0xb22 ; ", found"
0799 01cc | | Execute Vector,Catenate
079a e406 | | Load 0x2,0x6
079b 00e0 | | Load_Encached Standard_Cache
079c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
079d 01cc | | Execute Vector,Catenate
079e 0092 0b23 | #| Action Push_String_Extended,0xb23 ; " inconsistent reference count"
07a0 01cc | | Execute Vector,Catenate
07a1 00ea | | Load_Encached Null_String_Cache
07a2 e406 | | Load 0x2,0x6
07a3 8803 | | Call 0x4,0x3
07a4 01cc | | Execute Vector,Catenate
07a5 0092 0b24 | $| Action Push_String_Extended,0xb24 ; " and"
07a7 e408 | | Load 0x2,0x8
07a8 00e0 | | Load_Encached Standard_Cache
07a9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07aa 01cc | | Execute Vector,Catenate
07ab 0092 0b25 | %| Action Push_String_Extended,0xb25 ; " other error"
07ad 01cc | | Execute Vector,Catenate
07ae 00ea | | Load_Encached Null_String_Cache
07af e408 | | Load 0x2,0x8
07b0 8803 | | Call 0x4,0x3
07b1 01cc | | Execute Vector,Catenate
07b2 e408 | | Load 0x2,0x8
07b3 8804 | | Call 0x4,0x4
07b4 01cc | | Execute Vector,Catenate
07b5 0092 0b26 | &| Action Push_String_Extended,0xb26 ; ", corrected"
07b7 e407 | | Load 0x2,0x7
07b8 00e0 | | Load_Encached Standard_Cache
07b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07ba 01cc | | Execute Vector,Catenate
07bb 0092 0b27 | '| Action Push_String_Extended,0xb27 ; " code segment reference count"
07bd 01cc | | Execute Vector,Catenate
07be 00ea | | Load_Encached Null_String_Cache
07bf e407 | | Load 0x2,0x7
07c0 8803 | | Call 0x4,0x3
07c1 01cc | | Execute Vector,Catenate
07c2 e407 | | Load 0x2,0x7
07c3 8804 | | Call 0x4,0x4
07c4 01cc | | Execute Vector,Catenate
07c5 e013 | | Load 0x0,0x13
07c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cb | | .CONST 0x07cb ; Address of begin
07c9 07d7 | | .CONST 0x07d7 ; Address of exception handler
07ca 0001 | | .CONST 0x0001 ; Number of locals
07cb BODY_07c8:
07cb INIT_07c8:
07cb e40d | | Load 0x2,0xd
07cc 6806 |h | Jump_Zero 0x7d3
07cd e40f | | Load 0x2,0xf
07ce 4805 |H | Short_Literal 0x5
07cf 0092 0b28 | (| Action Push_String_Extended,0xb28 ; "Abandoning all code segment reference count updates because of errors"
07d1 e013 | | Load 0x0,0x13
07d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07d3 4800 |H | Short_Literal 0x0
07d4 a40d | | Store_Unchecked 0x2,0xd
07d5 e60b | | Load 0x3,0xb
07d6 0101 | | Execute Exception,Reraise
07d7 TRAP_07c8:
07d7 e008 | | Load 0x0,0x8
07d8 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
07d9 010f | | Execute Exception,Equal
07da 6802 |h | Jump_Zero 0x7dd
07db 00d8 | | Load_Top At_Offset_0
07dc 0101 | | Execute Exception,Reraise
07dd e410 | | Load 0x2,0x10
07de 010f | | Execute Exception,Equal
07df 6801 |h | Jump_Zero 0x7e1
07e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07e1 e40f | | Load 0x2,0xf
07e2 4808 |H | Short_Literal 0x8
07e3 0092 0b29 | )| Action Push_String_Extended,0xb29 ; "Unexpected exception in Check_Code_Segment_Reference_Counts: "
07e5 e01f | | Load 0x0,0x1f
07e6 180d | | Execute Package,Field_Execute,Field_Number 0xd
07e7 01cc | | Execute Vector,Catenate
07e8 e013 | | Load 0x0,0x13
07e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07eb 0000 0000 | | .BLANK 0000[0x5]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 0808 | | .CONST 0x0808 ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 0092 0b2a | *| Action Push_String_Extended,0xb2a ; "Exception raised getting name of some unit in program library "
07f5 e7ff | | Load 0x3,-0x1
07f6 e004 | | Load 0x0,0x4
07f7 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
07f8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07f9 e004 | | Load 0x0,0x4
07fa 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
07fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07fc e009 | | Load 0x0,0x9
07fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07fe 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
07ff 01cc | | Execute Vector,Catenate
0800 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
0802 01cc | | Execute Vector,Catenate
0803 e01f | | Load 0x0,0x1f
0804 180d | | Execute Package,Field_Execute,Field_Number 0xd
0805 01cc | | Execute Vector,Catenate
0806 8412 | | Call 0x2,0x12
0807 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0808 TRAP_07f0:
0808 0007 | | Action Break_Optional
0809 0092 0b2b | +| Action Push_String_Extended,0xb2b ; "Exception raised getting name of unit: "
080b e01f | | Load 0x0,0x1f
080c 180d | | Execute Package,Field_Execute,Field_Number 0xd
080d 01cc | | Execute Vector,Catenate
080e 8412 | | Call 0x2,0x12
080f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813 | | .CONST 0x0813 ; Address of begin
0811 0004 | | .CONST 0x0004 ; Address of exception handler
0812 0001 | | .CONST 0x0001 ; Number of locals
0813 BODY_0810:
0813 INIT_0810:
0813 00da | | Load_Top At_Offset_2
0814 680d |h | Jump_Zero 0x822
0815 e802 | | Load 0x4,0x2
0816 0a01 | | Execute_Immediate Plus,0x1
0817 c802 | | Store 0x4,0x2
0818 0092 0b2c | ,| Action Push_String_Extended,0xb2c ; " "
081a e802 | | Load 0x4,0x2
081b 00e0 | | Load_Encached Standard_Cache
081c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
081d 01cc | | Execute Vector,Catenate
081e 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
0820 01cc | | Execute Vector,Catenate
0821 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0822 0092 0b2c | ,| Action Push_String_Extended,0xb2c ; " "
0824 4801 |H | Short_Literal 0x1
0825 e802 | | Load 0x4,0x2
0826 00e0 | | Load_Encached Standard_Cache
0827 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0828 01db | | Execute Vector,Length
0829 00e9 | | Load_Encached String_Cache
082a 035b | [ | Declare_Type Array,Constrained
082b 0337 | 7 | Declare_Variable Array
082c 00d8 | | Load_Top At_Offset_0
082d 01dc | | Execute Vector,Last
082e 4801 |H | Short_Literal 0x1
082f 0263 | c | Execute Discrete,Above_Bound
0830 7005 |p | Jump_Nonzero 0x836
0831 482d |H- | Short_Literal 0x2d
0832 00d9 | | Load_Top At_Offset_1
0833 ea03 | | Load 0x5,0x3
0834 01d6 | | Execute Vector,Field_Write
0835 3ffb |? | Loop_Increasing 0x831
0836 01cc | | Execute Vector,Catenate
0837 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
0839 01cc | | Execute Vector,Catenate
083a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
083b 0000 0000 | | .BLANK 0000[0x5]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843 | C | .CONST 0x0843 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0001 | | .CONST 0x0001 ; Number of locals
0843 BODY_0840:
0843 INIT_0840:
0843 e40f | | Load 0x2,0xf
0844 4802 |H | Short_Literal 0x2
0845 ebfe | | Load 0x5,-0x2
0846 ebff | | Load 0x5,-0x1
0847 8417 | | Call 0x2,0x17
0848 8803 | | Call 0x4,0x3
0849 ebfe | | Load 0x5,-0x2
084a 8415 | | Call 0x2,0x15
084b 01cc | | Execute Vector,Catenate
084c 0092 0afe | | Action Push_String_Extended,0xafe ; "code segment object list of "
084e 01cc | | Execute Vector,Catenate
084f ebff | | Load 0x5,-0x1
0850 8416 | | Call 0x2,0x16
0851 01cc | | Execute Vector,Catenate
0852 e013 | | Load 0x0,0x13
0853 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0854 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0855 0000 0000 | | .XXX[0x3]
0857 0000 | |
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b | [ | .CONST 0x085b ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0001 | | .CONST 0x0001 ; Number of locals
085b BODY_0858:
085b INIT_0858:
085b 00db | | Load_Top At_Offset_3
085c 680f |h | Jump_Zero 0x86c
085d e40f | | Load 0x2,0xf
085e 4802 |H | Short_Literal 0x2
085f 4801 |H | Short_Literal 0x1
0860 8803 | | Call 0x4,0x3
0861 0092 0b2d | -| Action Push_String_Extended,0xb2d ; "archived code segment list for loaded main program "
0863 01cc | | Execute Vector,Catenate
0864 ebff | | Load 0x5,-0x1
0865 e009 | | Load 0x0,0x9
0866 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0867 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0868 01cc | | Execute Vector,Catenate
0869 e013 | | Load 0x0,0x13
086a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
086b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
086c e40f | | Load 0x2,0xf
086d 4802 |H | Short_Literal 0x2
086e 4801 |H | Short_Literal 0x1
086f 8803 | | Call 0x4,0x3
0870 0092 0b2e | .| Action Push_String_Extended,0xb2e ; "archived code segment list for code view "
0872 01cc | | Execute Vector,Catenate
0873 ebff | | Load 0x5,-0x1
0874 e009 | | Load 0x0,0x9
0875 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0876 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0877 01cc | | Execute Vector,Catenate
0878 e013 | | Load 0x0,0x13
0879 1813 | | Execute Package,Field_Execute,Field_Number 0x13
087a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
087b 0000 0000 | | .BLANK 0000[0x5]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883 | | .CONST 0x0883 ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0001 | | .CONST 0x0001 ; Number of locals
0883 BODY_0880:
0883 INIT_0880:
0883 00db | | Load_Top At_Offset_3
0884 00db | | Load_Top At_Offset_3
0885 e004 | | Load 0x0,0x4
0886 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0887 0119 | | Execute Any,Check_In_Formal_Type
0888 8804 | | Call 0x4,0x4
0889 4503 |E | Exit_Suprogram New_Top_Offset 0x3
088a 0000 0000 | | .BLANK 0000[0x6]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0893 | | .CONST 0x0893 ; Address of begin
0891 0004 | | .CONST 0x0004 ; Address of exception handler
0892 0001 | | .CONST 0x0001 ; Number of locals
0893 BODY_0890:
0893 INIT_0890:
0893 00db | | Load_Top At_Offset_3
0894 00db | | Load_Top At_Offset_3
0895 e009 | | Load 0x0,0x9
0896 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0897 0119 | | Execute Any,Check_In_Formal_Type
0898 8805 | | Call 0x4,0x5
0899 4503 |E | Exit_Suprogram New_Top_Offset 0x3
089a 0000 0000 | | .BLANK 0000[0x6]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 08ab | | .CONST 0x08ab ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 e802 | | Load 0x4,0x2
08a4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08a5 0f35 | 5 | Execute_Immediate Equal,0x35
08a6 6803 |h | Jump_Zero 0x8aa
08a7 0092 0b2f | /| Action Push_String_Extended,0xb2f ; "It is very unlikely that this message will ever be emitted"
08a9 8412 | | Call 0x2,0x12
08aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08ab TRAP_08a0:
08ab 0007 | | Action Break_Optional
08ac 0092 0b30 | 0| Action Push_String_Extended,0xb30 ; "Found corrupt Comp_Unit_Id for unit "
08ae e7ff | | Load 0x3,-0x1
08af e004 | | Load 0x0,0x4
08b0 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
08b1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
08b2 01cc | | Execute Vector,Catenate
08b3 8412 | | Call 0x2,0x12
08b4 00ec | | Load_Encached Diana_Tree_Cache
08b5 a802 | | Store_Unchecked 0x4,0x2
08b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08b7 0000 | | .XXX[0x1]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bb | | .CONST 0x08bb ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0001 | | .CONST 0x0001 ; Number of locals
08bb BODY_08b8:
08bb INIT_08b8:
08bb 00da | | Load_Top At_Offset_2
08bc 0f01 | | Execute_Immediate Equal,0x1
08bd 6802 |h | Jump_Zero 0x8c0
08be 00db | | Load_Top At_Offset_3
08bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08c0 00db | | Load_Top At_Offset_3
08c1 01db | | Execute Vector,Length
08c2 7003 |p | Jump_Nonzero 0x8c6
08c3 0092 0b31 | 1| Action Push_String_Extended,0xb31 ; "s"
08c5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08c6 00db | | Load_Top At_Offset_3
08c7 0092 0b21 | !| Action Push_String_Extended,0xb21 ; "y"
08c9 01df | | Execute Vector,Equal
08ca 6803 |h | Jump_Zero 0x8ce
08cb 0092 0b32 | 2| Action Push_String_Extended,0xb32 ; "ies"
08cd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08ce 0831 | 1 | Execute_Immediate Raise,0x31
08cf 0000 | | .XXX[0x1]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d3 | | .CONST 0x08d3 ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 0001 | | .CONST 0x0001 ; Number of locals
08d3 BODY_08d0:
08d3 INIT_08d0:
08d3 00da | | Load_Top At_Offset_2
08d4 7002 |p | Jump_Nonzero 0x8d7
08d5 00ea | | Load_Encached Null_String_Cache
08d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08d7 00db | | Load_Top At_Offset_3
08d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08d9 0000 0000 | | .BLANK 0000[0x7]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 092a | * | .CONST 0x092a ; Address of begin
08e1 0004 | | .CONST 0x0004 ; Address of exception handler
08e2 0017 | | .CONST 0x0017 ; Number of locals
08e3 INIT_08e0:
08e3 029a 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call,Visible,Unelaborated
08e5 4800 |H | Short_Literal 0x0
08e6 4801 |H | Short_Literal 0x1
08e7 029f 0983 | | Declare_Subprogram INIT_0980,For_Call
08e9 03fe | | Declare_Type Discrete,Defined,Visible
08ea 029a 09ab | | Declare_Subprogram INIT_09a8,For_Outer_Call,Visible,Unelaborated
08ec 029a 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call,Visible,Unelaborated
08ee 029a 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call,Visible,Unelaborated
08f0 00bf | | Action Accept_Activation
08f1 00e1 | | Load_Encached Boolean_Cache
08f2 4802 |H | Short_Literal 0x2
08f3 e001 | | Load 0x0,0x1
08f4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
08f5 e002 | | Load 0x0,0x2
08f6 4802 |H | Short_Literal 0x2
08f7 e003 | | Load 0x0,0x3
08f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08f9 e20e | | Load 0x1,0xe
08fa 029f 0a73 | s| Declare_Subprogram INIT_0a70,For_Call
08fc 4804 |H | Short_Literal 0x4
08fd 4800 |H | Short_Literal 0x0
08fe 4802 |H | Short_Literal 0x2
08ff 4800 |H | Short_Literal 0x0
0900 4801 |H | Short_Literal 0x1
0901 031d | | Declare_Type Variant_Record,Defined
0902 e004 | | Load 0x0,0x4
0903 e005 | | Load 0x0,0x5
0904 00da | | Load_Top At_Offset_2
0905 e006 | | Load 0x0,0x6
0906 0387 | | Declare_Variable Package
0907 00d8 | | Load_Top At_Offset_0
0908 020f | | Execute Module,Activate
0909 00d8 | | Load_Top At_Offset_0
090a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
090b 00e3 | | Load_Encached Natural_Cache
090c 00e3 | | Load_Encached Natural_Cache
090d 029f 0acb | | Declare_Subprogram INIT_0ac8,For_Call
090f 4803 |H | Short_Literal 0x3
0910 032d | - | Declare_Type Record,Defined
0911 029b 0ae3 | | Declare_Subprogram INIT_0ae0,For_Outer_Call,Unelaborated
0913 e007 | | Load 0x0,0x7
0914 e008 | | Load 0x0,0x8
0915 4865 |He | Short_Literal 0x65
0916 e009 | | Load 0x0,0x9
0917 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0918 e214 | | Load 0x1,0x14
0919 1d15 | | Execute_Immediate Reference_Lex_1,0x15
091a e00a | | Load 0x0,0xa
091b 0387 | | Declare_Variable Package
091c 00d8 | | Load_Top At_Offset_0
091d 020f | | Execute Module,Activate
091e 00d8 | | Load_Top At_Offset_0
091f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0920 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0921 00c7 | | Action Elaborate_Subprogram
0922 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0923 00c7 | | Action Elaborate_Subprogram
0924 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0925 00c7 | | Action Elaborate_Subprogram
0926 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0927 00c7 | | Action Elaborate_Subprogram
0928 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0929 00c7 | | Action Elaborate_Subprogram
092a BODY_08e0:
092a 00d9 | | Load_Top At_Offset_1
092b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
092c 4865 |He | Short_Literal 0x65
092d 00db | | Load_Top At_Offset_3
092e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
092f 0039 | 9 | Store_Top Access,At_Offset_1
0930 00bc | | Action Signal_Activated
0931 00bb | | Action Signal_Completion
0932 0000 0000 | | .BLANK 0000[0x6]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 0940 | @ | .CONST 0x0940 ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0003 | | .CONST 0x0003 ; Number of locals
093b INIT_0938:
093b e214 | | Load 0x1,0x14
093c 0322 | " | Declare_Variable Record
093d 00d8 | | Load_Top At_Offset_0
093e 1c00 | | Execute_Immediate Run_Utility,0x0
093f 00e1 | | Load_Encached Boolean_Cache
0940 BODY_0938:
0940 00e1 | | Load_Encached Boolean_Cache
0941 00da | | Load_Top At_Offset_2
0942 e5ff | | Load 0x2,-0x1
0943 e217 | | Load 0x1,0x17
0944 e216 | | Load 0x1,0x16
0945 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0946 00d1 | | Pop_Control Pop_Count_1
0947 0059 | Y | Store_Top Discrete,At_Offset_1
0948 00d8 | | Load_Top At_Offset_0
0949 7007 |p | Jump_Nonzero 0x951
094a e5fe | | Load 0x2,-0x2
094b 00da | | Load_Top At_Offset_2
094c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
094d e00b | | Load 0x0,0xb
094e 0a01 | | Execute_Immediate Plus,0x1
094f c00b | | Store 0x0,0xb
0950 7806 |x | Jump 0x957
0951 00d9 | | Load_Top At_Offset_1
0952 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0953 e5fe | | Load 0x2,-0x2
0954 027f | | Execute Discrete,Equal
0955 7001 |p | Jump_Nonzero 0x957
0956 0887 | | Execute_Immediate Raise,0x87
0957 00d9 | | Load_Top At_Offset_1
0958 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0959 4801 |H | Short_Literal 0x1
095a e212 | | Load 0x1,0x12
095b 1c08 | | Execute_Immediate Run_Utility,0x8
095c e5fd | | Load 0x2,-0x3
095d e212 | | Load 0x1,0x12
095e 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
095f 0119 | | Execute Any,Check_In_Formal_Type
0960 00d9 | | Load_Top At_Offset_1
0961 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0962 e5fc | | Load 0x2,-0x4
0963 00d9 | | Load_Top At_Offset_1
0964 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0965 e213 | | Load 0x1,0x13
0966 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0967 00da | | Load_Top At_Offset_2
0968 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0969 e5fc | | Load 0x2,-0x4
096a e5fd | | Load 0x2,-0x3
096b 800c | | Call 0x0,0xc
096c 6805 |h | Jump_Zero 0x972
096d 00d9 | | Load_Top At_Offset_1
096e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
096f 0a01 | | Execute_Immediate Plus,0x1
0970 00da | | Load_Top At_Offset_2
0971 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0972 e217 | | Load 0x1,0x17
0973 4800 |H | Short_Literal 0x0
0974 00db | | Load_Top At_Offset_3
0975 e5ff | | Load 0x2,-0x1
0976 e216 | | Load 0x1,0x16
0977 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0978 c217 | | Store 0x1,0x17
0979 4505 |E | Exit_Suprogram New_Top_Offset 0x5
097a 0000 0000 | | .BLANK 0000[0x6]
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0983 | | .CONST 0x0983 ; Address of begin
0981 0004 | | .CONST 0x0004 ; Address of exception handler
0982 0001 | | .CONST 0x0001 ; Number of locals
0983 BODY_0980:
0983 INIT_0980:
0983 4607 |F | Jump_Case 0x8
0984 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0985 7807 |x | Jump 0x98d ; case 0x1
0986 780a |x | Jump 0x991 ; case 0x2
0987 780e |x | Jump 0x996 ; case 0x3
0988 7811 |x | Jump 0x99a ; case 0x4
0989 7812 |x | Jump 0x99c ; case 0x5
098a 7813 |x | Jump 0x99e ; case 0x6
098b 7816 |x | Jump 0x9a2 ; case 0x7
098c 4302 |C | .XXX[0x1]
098d 00da | | Load_Top At_Offset_2
098e 0091 0aea | | Action Push_String_Extended_Indexed,0xaea ; "FOR_CODE_VIEW"
0990 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0991 00db | | Load_Top At_Offset_3
0992 00db | | Load_Top At_Offset_3
0993 00e0 | | Load_Encached Standard_Cache
0994 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0995 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0996 00da | | Load_Top At_Offset_2
0997 00e0 | | Load_Encached Standard_Cache
0998 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0999 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
099a 00db | | Load_Top At_Offset_3
099b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
099c 00db | | Load_Top At_Offset_3
099d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
099e e20e | | Load 0x1,0xe
099f 00dc | | Load_Top At_Offset_4
09a0 0267 | g | Execute Discrete,Predecessor
09a1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09a2 e20e | | Load 0x1,0xe
09a3 00dc | | Load_Top At_Offset_4
09a4 0268 | h | Execute Discrete,Successor
09a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09a6 0000 0000 | | .XXX[0x2]
09a8 ; --------------------------------------------------------------------------------------
09a8 ; SUBPROGRAM
09a8 ; --------------------------------------------------------------------------------------
09a8 09b2 | | .CONST 0x09b2 ; Address of begin
09a9 0004 | | .CONST 0x0004 ; Address of exception handler
09aa 0004 | | .CONST 0x0004 ; Number of locals
09ab INIT_09a8:
09ab e214 | | Load 0x1,0x14
09ac 0322 | " | Declare_Variable Record
09ad 00d8 | | Load_Top At_Offset_0
09ae 1c00 | | Execute_Immediate Run_Utility,0x0
09af 00e1 | | Load_Encached Boolean_Cache
09b0 e00d | | Load 0x0,0xd
09b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09b2 BODY_09a8:
09b2 00e1 | | Load_Encached Boolean_Cache
09b3 00db | | Load_Top At_Offset_3
09b4 e5ff | | Load 0x2,-0x1
09b5 e217 | | Load 0x1,0x17
09b6 e216 | | Load 0x1,0x16
09b7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
09b8 00d1 | | Pop_Control Pop_Count_1
09b9 005a | Z | Store_Top Discrete,At_Offset_2
09ba 00d9 | | Load_Top At_Offset_1
09bb 701e |p | Jump_Nonzero 0x9da
09bc e00d | | Load 0x0,0xd
09bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09be 00e2 | | Load_Encached Integer_Cache
09bf 4800 |H | Short_Literal 0x0
09c0 4800 |H | Short_Literal 0x0
09c1 e00e | | Load 0x0,0xe
09c2 e5ff | | Load 0x2,-0x1
09c3 e009 | | Load 0x0,0x9
09c4 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
09c5 e402 | | Load 0x2,0x2
09c6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
09c7 0059 | Y | Store_Top Discrete,At_Offset_1
09c8 00d8 | | Load_Top At_Offset_0
09c9 6810 |h | Jump_Zero 0x9da
09ca 0092 0afc | | Action Push_String_Extended,0xafc ; "Bad status getting reference count for code segment "
09cc e5ff | | Load 0x2,-0x1
09cd e00f | | Load 0x0,0xf
09ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b
09cf 01cc | | Execute Vector,Catenate
09d0 0092 0af8 | | Action Push_String_Extended,0xaf8 ; ": "
09d2 01cc | | Execute Vector,Catenate
09d3 00d9 | | Load_Top At_Offset_1
09d4 e00d | | Load 0x0,0xd
09d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09d6 011c | | Execute Any,Convert_Unchecked
09d7 1c01 | | Execute_Immediate Run_Utility,0x1
09d8 01cc | | Execute Vector,Catenate
09d9 8010 | | Call 0x0,0x10
09da 00da | | Load_Top At_Offset_2
09db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09dc 4800 |H | Short_Literal 0x0
09dd e212 | | Load 0x1,0x12
09de 1c08 | | Execute_Immediate Run_Utility,0x8
09df e5fe | | Load 0x2,-0x2
09e0 e212 | | Load 0x1,0x12
09e1 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4
09e2 0119 | | Execute Any,Check_In_Formal_Type
09e3 00d9 | | Load_Top At_Offset_1
09e4 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
09e5 e5fd | | Load 0x2,-0x3
09e6 00d9 | | Load_Top At_Offset_1
09e7 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
09e8 e213 | | Load 0x1,0x13
09e9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09ea 00db | | Load_Top At_Offset_3
09eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
09ec 00da | | Load_Top At_Offset_2
09ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
09ee 0a01 | | Execute_Immediate Plus,0x1
09ef 00db | | Load_Top At_Offset_3
09f0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
09f1 e217 | | Load 0x1,0x17
09f2 4800 |H | Short_Literal 0x0
09f3 e402 | | Load 0x2,0x2
09f4 e5ff | | Load 0x2,-0x1
09f5 e216 | | Load 0x1,0x16
09f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
09f7 c217 | | Store 0x1,0x17
09f8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09f9 0000 0000 | | .BLANK 0000[0x7]
0a00 ; --------------------------------------------------------------------------------------
0a00 ; SUBPROGRAM
0a00 ; --------------------------------------------------------------------------------------
0a00 0a0f | | .CONST 0x0a0f ; Address of begin
0a01 0004 | | .CONST 0x0004 ; Address of exception handler
0a02 0005 | | .CONST 0x0005 ; Number of locals
0a03 INIT_0a00:
0a03 e214 | | Load 0x1,0x14
0a04 0322 | " | Declare_Variable Record
0a05 00d8 | | Load_Top At_Offset_0
0a06 1c00 | | Execute_Immediate Run_Utility,0x0
0a07 00d8 | | Load_Top At_Offset_0
0a08 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a09 0007 | | Action Break_Optional
0a0a e212 | | Load 0x1,0x12
0a0b 02ff | | Declare_Variable Variant_Record
0a0c 00d8 | | Load_Top At_Offset_0
0a0d 1c00 | | Execute_Immediate Run_Utility,0x0
0a0e 00e1 | | Load_Encached Boolean_Cache
0a0f BODY_0a00:
0a0f 00e1 | | Load_Encached Boolean_Cache
0a10 e402 | | Load 0x2,0x2
0a11 e5fc | | Load 0x2,-0x4
0a12 e217 | | Load 0x1,0x17
0a13 e216 | | Load 0x1,0x16
0a14 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a15 00d1 | | Pop_Control Pop_Count_1
0a16 0059 | Y | Store_Top Discrete,At_Offset_1
0a17 00cf | | Action Mark_Auxiliary
0a18 7818 |x | Jump 0xa31
0a19 00db | | Load_Top At_Offset_3
0a1a e213 | | Load 0x1,0x13
0a1b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0a1c 00db | | Load_Top At_Offset_3
0a1d 016d | m | Execute Variant_Record,Structure_Write
0a1e 00db | | Load_Top At_Offset_3
0a1f e213 | | Load 0x1,0x13
0a20 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a21 a403 | | Store_Unchecked 0x2,0x3
0a22 00da | | Load_Top At_Offset_2
0a23 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a24 6806 |h | Jump_Zero 0xa2b
0a25 00da | | Load_Top At_Offset_2
0a26 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0a27 00db | | Load_Top At_Offset_3
0a28 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0a29 85fd | | Call 0x2,-0x3
0a2a 7805 |x | Jump 0xa30
0a2b 00da | | Load_Top At_Offset_2
0a2c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0a2d 00db | | Load_Top At_Offset_3
0a2e 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0a2f 85fe | | Call 0x2,-0x2
0a30 00c9 | | Action Pop_Auxiliary_Loop
0a31 00db | | Load_Top At_Offset_3
0a32 e213 | | Load 0x1,0x13
0a33 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a34 6fe4 |o | Jump_Zero 0xa19
0a35 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0a36 0000 0000 | | .XXX[0x2]
0a38 ; --------------------------------------------------------------------------------------
0a38 ; SUBPROGRAM
0a38 ; --------------------------------------------------------------------------------------
0a38 0a48 | H | .CONST 0x0a48 ; Address of begin
0a39 0004 | | .CONST 0x0004 ; Address of exception handler
0a3a 0005 | | .CONST 0x0005 ; Number of locals
0a3b INIT_0a38:
0a3b e216 | | Load 0x1,0x16
0a3c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0a3d 0322 | " | Declare_Variable Record
0a3e e009 | | Load 0x0,0x9
0a3f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0a40 02ff | | Declare_Variable Variant_Record
0a41 00d8 | | Load_Top At_Offset_0
0a42 1c00 | | Execute_Immediate Run_Utility,0x0
0a43 e214 | | Load 0x1,0x14
0a44 0322 | " | Declare_Variable Record
0a45 00d8 | | Load_Top At_Offset_0
0a46 1c00 | | Execute_Immediate Run_Utility,0x0
0a47 00e1 | | Load_Encached Boolean_Cache
0a48 BODY_0a38:
0a48 00db | | Load_Top At_Offset_3
0a49 e217 | | Load 0x1,0x17
0a4a e216 | | Load 0x1,0x16
0a4b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0a4c 00d1 | | Pop_Control Pop_Count_1
0a4d 00cf | | Action Mark_Auxiliary
0a4e 781b |x | Jump 0xa6a
0a4f e402 | | Load 0x2,0x2
0a50 e216 | | Load 0x1,0x16
0a51 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0a52 e403 | | Load 0x2,0x3
0a53 016d | m | Execute Variant_Record,Structure_Write
0a54 e402 | | Load 0x2,0x2
0a55 e216 | | Load 0x1,0x16
0a56 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0a57 00d1 | | Pop_Control Pop_Count_1
0a58 00e1 | | Load_Encached Boolean_Cache
0a59 00db | | Load_Top At_Offset_3
0a5a e403 | | Load 0x2,0x3
0a5b e217 | | Load 0x1,0x17
0a5c e216 | | Load 0x1,0x16
0a5d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a5e 00d1 | | Pop_Control Pop_Count_1
0a5f 005a | Z | Store_Top Discrete,At_Offset_2
0a60 00d9 | | Load_Top At_Offset_1
0a61 7001 |p | Jump_Nonzero 0xa63
0a62 0887 | | Execute_Immediate Raise,0x87
0a63 00da | | Load_Top At_Offset_2
0a64 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a65 00db | | Load_Top At_Offset_3
0a66 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0a67 e403 | | Load 0x2,0x3
0a68 85fe | | Call 0x2,-0x2
0a69 00c9 | | Action Pop_Auxiliary_Loop
0a6a e402 | | Load 0x2,0x2
0a6b e216 | | Load 0x1,0x16
0a6c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0a6d 6fe1 |o | Jump_Zero 0xa4f
0a6e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a6f 0000 | | .XXX[0x1]
0a70 ; --------------------------------------------------------------------------------------
0a70 ; SUBPROGRAM
0a70 ; --------------------------------------------------------------------------------------
0a70 0a73 | s | .CONST 0x0a73 ; Address of begin
0a71 0004 | | .CONST 0x0004 ; Address of exception handler
0a72 0001 | | .CONST 0x0001 ; Number of locals
0a73 BODY_0a70:
0a73 INIT_0a70:
0a73 4609 |F | Jump_Case 0xa
0a74 7809 |x | Jump 0xa7e ; case 0x0
0a75 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0a76 7823 |x# | Jump 0xa9a ; case 0x2
0a77 7826 |x& | Jump 0xa9e ; case 0x3
0a78 7847 |xG | Jump 0xac0 ; case 0x4
0a79 7846 |xF | Jump 0xac0 ; case 0x5
0a7a 7829 |x) | Jump 0xaa4 ; case 0x6
0a7b 782f |x/ | Jump 0xaab ; case 0x7
0a7c 7838 |x8 | Jump 0xab5 ; case 0x8
0a7d 783e |x> | Jump 0xabc ; case 0x9
0a7e 00da | | Load_Top At_Offset_2
0a7f 016c | l | Execute Variant_Record,Is_Constrained
0a80 7009 |p | Jump_Nonzero 0xa8a
0a81 00cf | | Action Mark_Auxiliary
0a82 4801 |H | Short_Literal 0x1
0a83 e5ff | | Load 0x2,-0x1
0a84 1c08 | | Execute_Immediate Run_Utility,0x8
0a85 00d8 | | Load_Top At_Offset_0
0a86 1c00 | | Execute_Immediate Run_Utility,0x0
0a87 c5ff | | Store 0x2,-0x1
0a88 00ce | | Action Pop_Auxiliary
0a89 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0a8a 00da | | Load_Top At_Offset_2
0a8b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a8c 0f01 | | Execute_Immediate Equal,0x1
0a8d 7006 |p | Jump_Nonzero 0xa94
0a8e 00da | | Load_Top At_Offset_2
0a8f 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4
0a90 00da | | Load_Top At_Offset_2
0a91 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0a92 1c00 | | Execute_Immediate Run_Utility,0x0
0a93 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0a94 00da | | Load_Top At_Offset_2
0a95 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0a96 00da | | Load_Top At_Offset_2
0a97 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0a98 1c00 | | Execute_Immediate Run_Utility,0x0
0a99 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0a9a 4801 |H | Short_Literal 0x1
0a9b 4805 |H | Short_Literal 0x5
0a9c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0a9d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0a9e e5fd | | Load 0x2,-0x3
0a9f 00db | | Load_Top At_Offset_3
0aa0 1c07 | | Execute_Immediate Run_Utility,0x7
0aa1 e5fe | | Load 0x2,-0x2
0aa2 0306 | | Complete_Type Variant_Record,By_Renaming
0aa3 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0aa4 00db | | Load_Top At_Offset_3
0aa5 0f01 | | Execute_Immediate Equal,0x1
0aa6 7002 |p | Jump_Nonzero 0xaa9
0aa7 4802 |H | Short_Literal 0x2
0aa8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0aa9 4801 |H | Short_Literal 0x1
0aaa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0aab 00db | | Load_Top At_Offset_3
0aac e5fe | | Load 0x2,-0x2
0aad 0f01 | | Execute_Immediate Equal,0x1
0aae 7002 |p | Jump_Nonzero 0xab1
0aaf 4802 |H | Short_Literal 0x2
0ab0 7801 |x | Jump 0xab2
0ab1 4801 |H | Short_Literal 0x1
0ab2 e5ff | | Load 0x2,-0x1
0ab3 031b | | Declare_Type Variant_Record,Constrained
0ab4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0ab5 00db | | Load_Top At_Offset_3
0ab6 e5fe | | Load 0x2,-0x2
0ab7 e5ff | | Load 0x2,-0x1
0ab8 1c06 | | Execute_Immediate Run_Utility,0x6
0ab9 e5ff | | Load 0x2,-0x1
0aba 02fc | | Declare_Variable Variant_Record,With_Constraint
0abb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0abc 4801 |H | Short_Literal 0x1
0abd 00db | | Load_Top At_Offset_3
0abe 1c07 | | Execute_Immediate Run_Utility,0x7
0abf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0ac0 0869 | i | Execute_Immediate Raise,0x69
0ac1 0000 0000 | | .BLANK 0000[0x7]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0acb | | .CONST 0x0acb ; Address of begin
0ac9 0004 | | .CONST 0x0004 ; Address of exception handler
0aca 0001 | | .CONST 0x0001 ; Number of locals
0acb BODY_0ac8:
0acb INIT_0ac8:
0acb 4601 |F | Jump_Case 0x2
0acc 7801 |x | Jump 0xace ; case 0x0
0acd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0ace e213 | | Load 0x1,0x13
0acf 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0ad0 00db | | Load_Top At_Offset_3
0ad1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0ad2 4800 |H | Short_Literal 0x0
0ad3 00db | | Load_Top At_Offset_3
0ad4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0ad5 4800 |H | Short_Literal 0x0
0ad6 00db | | Load_Top At_Offset_3
0ad7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0ad8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0ad9 0000 0000 | | .BLANK 0000[0x7]
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0ae3 | | .CONST 0x0ae3 ; Address of begin
0ae1 0004 | | .CONST 0x0004 ; Address of exception handler
0ae2 0001 | | .CONST 0x0001 ; Number of locals
0ae3 BODY_0ae0:
0ae3 INIT_0ae0:
0ae3 00da | | Load_Top At_Offset_2
0ae4 e003 | | Load 0x0,0x3
0ae5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ae6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ae7 ; --------------------------------------------------------------------------------------
0ae7 ; STRING TABLE
0ae7 ; --------------------------------------------------------------------------------------
0ae7 009a | | .STRTAB 0x009a->0x0b34 ; "CODE"
0ae8 009c | | .STRTAB 0x009c->0x0b36 ; "ELABORATION"
0ae9 00a5 | | .STRTAB 0x00a5->0x0b3b ; "MAIN_PROGRAM_CLOSURE"
0aea 00b7 | | .STRTAB 0x00b7->0x0b45 ; "FOR_CODE_VIEW"
0aeb 00c2 | | .STRTAB 0x00c2->0x0b4c ; "FOR_LOADED_MAIN_PROGRAM"
0aec 00d7 | | .STRTAB 0x00d7->0x0b57 ; "<*PROGRAM_LIBRARY>"
0aed 00e7 | | .STRTAB 0x00e7->0x0b60 ; "<???>"
0aee 00ea | | .STRTAB 0x00ea->0x0b63 ; "[Program_Library_Maintenance.Check_Code_Segment_Reference_Counts (Worlds => \x22"
0aef 0135 | 5 | .STRTAB 0x0135->0x0b89 ; "\x22, Increase_Reference_Counts_That_Are_Too_Small => "
0af0 0166 | f | .STRTAB 0x0166->0x0ba3 ; ", Decrease_Reference_Counts_That_Are_Too_Large => "
0af1 0196 | | .STRTAB 0x0196->0x0bbc ; ", Options => \x22"
0af2 01a2 | | .STRTAB 0x01a2->0x0bc3 ; "\x22, Response => \x22"
0af3 01b0 | | .STRTAB 0x01b0->0x0bcb ; "\x22);]."
0af4 01b3 | | .STRTAB 0x01b3->0x0bcd ; "[End of Program_Library_Maintenance.Check_Code_Segment_Reference_Counts command]."
0af5 0202 | | .STRTAB 0x0202->0x0bf6 ; " (segment"
0af6 0209 | | .STRTAB 0x0209->0x0bfa ; ")"
0af7 0208 | | .STRTAB 0x0208->0x0bfb ; "Bad status opening code segment "
0af8 0226 | & | .STRTAB 0x0226->0x0c0b ; ": "
0af9 0226 | & | .STRTAB 0x0226->0x0c0c ; "main program closure "
0afa 0239 | 9 | .STRTAB 0x0239->0x0c16 ; "elaboration "
0afb 0243 | C | .STRTAB 0x0243->0x0c1c ; "code view unit "
0afc 0250 | P | .STRTAB 0x0250->0x0c24 ; "Bad status getting reference count for code segment "
0afd 0282 | | .STRTAB 0x0282->0x0c3e ; " found on "
0afe 028a | | .STRTAB 0x028a->0x0c43 ; "code segment object list of "
0aff 02a4 | | .STRTAB 0x02a4->0x0c51 ; "Unexpected class of object found on "
0b00 02c6 | | .STRTAB 0x02c6->0x0c63 ; ":"
0b01 02c5 | | .STRTAB 0x02c5->0x0c63 ; "Bad status getting version for Archived_Code object "
0b02 02f7 | | .STRTAB 0x02f7->0x0c7d ; "Bad status opening Archived_Code object "
0b03 031d | | .STRTAB 0x031d->0x0c91 ; "for Loaded_Main unit "
0b04 0330 | 0 | .STRTAB 0x0330->0x0c9c ; "Checking "
0b05 0337 | 7 | .STRTAB 0x0337->0x0ca0 ; "Skipping non-R1000 world "
0b06 034e | N | .STRTAB 0x034e->0x0cad ; "Bad status getting enclosing directory for "
0b07 0377 | w | .STRTAB 0x0377->0x0cc2 ; "for code view "
0b08 0383 | | .STRTAB 0x0383->0x0cc9 ; "]"
0b09 0382 | | .STRTAB 0x0382->0x0cca ; "]code_database'c(archived_code)"
0b0a 039f | | .STRTAB 0x039f->0x0cd9 ; "Requested modification of incorrect reference counts, but unable to enter privileged mode"
0b0b 03f6 | | .STRTAB 0x03f6->0x0d06 ; "Unable to resolve name \x22"
0b0c 040c | | .STRTAB 0x040c->0x0d12 ; "\x22 because "
0b0d 0414 | | .STRTAB 0x0414->0x0d17 ; "Bad status getting object for "
0b0e 0430 | 0 | .STRTAB 0x0430->0x0d26 ; "Exception raised getting name of unit "
0b0f 0454 | T | .STRTAB 0x0454->0x0d39 ; " in program library "
0b10 0466 | f | .STRTAB 0x0466->0x0d43 ; "Reference count ="
0b11 0475 | u | .STRTAB 0x0475->0x0d4b ; ", but expected value is"
0b12 048a | | .STRTAB 0x048a->0x0d57 ; "Bad status incrementing reference count for code segment "
0b13 04c1 | | .STRTAB 0x04c1->0x0d73 ; "Bad status decrementing reference count for code segment "
0b14 04f8 | | .STRTAB 0x04f8->0x0d90 ; " Reference count has been corrected"
0b15 051c | | .STRTAB 0x051c->0x0da3 ; "Error in correcting reference count for code segment "
0b16 054f | O | .STRTAB 0x054f->0x0dbd ; ": new reference count ="
0b17 0564 | d | .STRTAB 0x0564->0x0dc9 ; "Reference count is"
0b18 0574 | t | .STRTAB 0x0574->0x0dd2 ; " for code segment "
0b19 0584 | | .STRTAB 0x0584->0x0ddb ; "; uses include:"
0b1a 0591 | | .STRTAB 0x0591->0x0de2 ; "Checked"
0b1b 0596 | | .STRTAB 0x0596->0x0de6 ; " use"
0b1c 0598 | | .STRTAB 0x0598->0x0de8 ; " of"
0b1d 0599 | | .STRTAB 0x0599->0x0de9 ; " code segment"
0b1e 05a4 | | .STRTAB 0x05a4->0x0df0 ; " unit"
0b1f 05a7 | | .STRTAB 0x05a7->0x0df2 ; " in"
0b20 05a8 | | .STRTAB 0x05a8->0x0df4 ; " program librar"
0b21 05b5 | | .STRTAB 0x05b5->0x0dfb ; "y"
0b22 05b4 | | .STRTAB 0x05b4->0x0dfc ; ", found"
0b23 05b9 | | .STRTAB 0x05b9->0x0dff ; " inconsistent reference count"
0b24 05d4 | | .STRTAB 0x05d4->0x0e0e ; " and"
0b25 05d6 | | .STRTAB 0x05d6->0x0e10 ; " other error"
0b26 05e0 | | .STRTAB 0x05e0->0x0e16 ; ", corrected"
0b27 05e9 | | .STRTAB 0x05e9->0x0e1b ; " code segment reference count"
0b28 0604 | | .STRTAB 0x0604->0x0e2a ; "Abandoning all code segment reference count updates because of errors"
0b29 0647 | G | .STRTAB 0x0647->0x0e4c ; "Unexpected exception in Check_Code_Segment_Reference_Counts: "
0b2a 0682 | | .STRTAB 0x0682->0x0e6b ; "Exception raised getting name of some unit in program library "
0b2b 06bf | | .STRTAB 0x06bf->0x0e8a ; "Exception raised getting name of unit: "
0b2c 06e4 | | .STRTAB 0x06e4->0x0e9e ; " "
0b2d 06e5 | | .STRTAB 0x06e5->0x0e9f ; "archived code segment list for loaded main program "
0b2e 0716 | | .STRTAB 0x0716->0x0eb9 ; "archived code segment list for code view "
0b2f 073d | = | .STRTAB 0x073d->0x0ecd ; "It is very unlikely that this message will ever be emitted"
0b30 0775 | u | .STRTAB 0x0775->0x0eea ; "Found corrupt Comp_Unit_Id for unit "
0b31 0797 | | .STRTAB 0x0797->0x0efc ; "s"
0b32 0796 | | .STRTAB 0x0796->0x0efd ; "ies"
0b33 0797 | | .STREND 0x0797->0x0efe
0b34 434f 4445 |CODE| .STRTAB_STRINGS
0eff 0000 | | .XXX[0x1]
0f00 ; --------------------------------------------------------------------------------------
0f00 ; Debug Table
0f00 ; --------------------------------------------------------------------------------------
0f00 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc279,0x0000,0x0001,0x0000
0f06 0000 0000 | | .BLANK 0000[0xfa]