|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0e38 | 8 | .CONST 0x0e38 ; 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 009f | | .CONST 0x009f ; 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 00db | | Declare_Subprogram INIT_00d8,For_Call
002d 03fd | | Declare_Type Discrete,Defined
002e 0092 0a24 | $| Action Push_String_Extended,0xa24 ; "<*PROGRAM_LIBRARY>"
0030 0092 0a25 | %| Action Push_String_Extended,0xa25 ; "<???>"
0032 e001 | | Load 0x0,0x1
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 02c7 | | Declare_Variable Any
0035 e002 | | Load 0x0,0x2
0036 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0037 e001 | | Load 0x0,0x1
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 e003 | | Load 0x0,0x3
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 e004 | | Load 0x0,0x4
0044 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0045 e40c | | Load 0x2,0xc
0046 e005 | | Load 0x0,0x5
0047 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0048 e006 | | Load 0x0,0x6
0049 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004a e003 | | Load 0x0,0x3
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 e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
0054 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0055 0007 | | Action Break_Optional
0056 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0058 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
005a 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
005c 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
005e 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
0060 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0062 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0064 4800 |H | Short_Literal 0x0
0065 0093 0833 | 3| push_full_address INIT_0830
0067 02a0 | | Declare_Subprogram Null_Subprogram
0068 038e | | Declare_Type Package,Defined
0069 0387 | | Declare_Variable Package
006a e003 | | Load 0x0,0x3
006b e409 | | Load 0x2,0x9
006c e009 | | Load 0x0,0x9
006d e00a | | Load 0x0,0xa
006e e00b | | Load 0x0,0xb
006f e00c | | Load 0x0,0xc
0070 e00d | | Load 0x0,0xd
0071 e00e | | Load 0x0,0xe
0072 e00f | | Load 0x0,0xf
0073 e010 | | Load 0x0,0x10
0074 4803 |H | Short_Literal 0x3
0075 4802 |H | Short_Literal 0x2
0076 0099 | | Action Reference_Dynamic
0077 4817 |H | Short_Literal 0x17
0078 4802 |H | Short_Literal 0x2
0079 0099 | | Action Reference_Dynamic
007a e011 | | Load 0x0,0x11
007b 480c |H | Short_Literal 0xc
007c 4802 |H | Short_Literal 0x2
007d 0099 | | Action Reference_Dynamic
007e e012 | | Load 0x0,0x12
007f 4812 |H | Short_Literal 0x12
0080 4802 |H | Short_Literal 0x2
0081 0099 | | Action Reference_Dynamic
0082 4810 |H | Short_Literal 0x10
0083 e418 | | Load 0x2,0x18
0084 020e | | Execute Module,Augment_Imports
0085 00d8 | | Load_Top At_Offset_0
0086 020f | | Execute Module,Activate
0087 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0089 029f 020b | | Declare_Subprogram INIT_0208,For_Call
008b 029e 0283 | | Declare_Subprogram INIT_0280,For_Call,Unelaborated
008d 481b |H | Short_Literal 0x1b
008e 4802 |H | Short_Literal 0x2
008f 0099 | | Action Reference_Dynamic
0090 00c7 | | Action Elaborate_Subprogram
0091 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
0093 029f 031b | | Declare_Subprogram INIT_0318,For_Call
0095 029f 034b | K| Declare_Subprogram INIT_0348,For_Call
0097 029f 038b | | Declare_Subprogram INIT_0388,For_Call
0099 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
009b 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call
009d 029f 040b | | Declare_Subprogram INIT_0408,For_Call
009f BODY_0018:
009f 8421 | ! | Call 0x2,0x21
00a0 e40f | | Load 0x2,0xf
00a1 4800 |H | Short_Literal 0x0
00a2 0092 0a26 | &| Action Push_String_Extended,0xa26 ; "[Program_Library_Maintenance.Check_Code_Segment_Reference_Counts (Worlds => \x22"
00a4 e5ff | | Load 0x2,-0x1
00a5 01cc | | Execute Vector,Catenate
00a6 0092 0a27 | '| Action Push_String_Extended,0xa27 ; "\x22, Increase_Reference_Counts_That_Are_Too_Small => "
00a8 01cc | | Execute Vector,Catenate
00a9 e5fe | | Load 0x2,-0x2
00aa 00e1 | | Load_Encached Boolean_Cache
00ab 025e | ^ | Execute Discrete,Convert
00ac 1c01 | | Execute_Immediate Run_Utility,0x1
00ad 01cc | | Execute Vector,Catenate
00ae 0092 0a28 | (| Action Push_String_Extended,0xa28 ; ", Decrease_Reference_Counts_That_Are_Too_Large => "
00b0 01cc | | Execute Vector,Catenate
00b1 e5fd | | Load 0x2,-0x3
00b2 00e1 | | Load_Encached Boolean_Cache
00b3 025e | ^ | Execute Discrete,Convert
00b4 1c01 | | Execute_Immediate Run_Utility,0x1
00b5 01cc | | Execute Vector,Catenate
00b6 0092 0a29 | )| Action Push_String_Extended,0xa29 ; ", Options => \x22"
00b8 01cc | | Execute Vector,Catenate
00b9 e5fc | | Load 0x2,-0x4
00ba 01cc | | Execute Vector,Catenate
00bb 0092 0a2a | *| Action Push_String_Extended,0xa2a ; "\x22, Response => \x22"
00bd 01cc | | Execute Vector,Catenate
00be e5fb | | Load 0x2,-0x5
00bf 01cc | | Execute Vector,Catenate
00c0 0092 0a2b | +| Action Push_String_Extended,0xa2b ; "\x22);]."
00c2 01cc | | Execute Vector,Catenate
00c3 8410 | | Call 0x2,0x10
00c4 8422 | " | Call 0x2,0x22
00c5 e40e | | Load 0x2,0xe
00c6 e003 | | Load 0x0,0x3
00c7 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c9 8413 | | Call 0x2,0x13
00ca e40f | | Load 0x2,0xf
00cb 4800 |H | Short_Literal 0x0
00cc 0092 0a2c | ,| Action Push_String_Extended,0xa2c ; "[End of Program_Library_Maintenance.Check_Code_Segment_Reference_Counts command]."
00ce 8410 | | Call 0x2,0x10
00cf e40c | | Load 0x2,0xc
00d0 4801 |H | Short_Literal 0x1
00d1 e40d | | Load 0x2,0xd
00d2 e001 | | Load 0x0,0x1
00d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d4 c40c | | Store 0x2,0xc
00d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4603 |F | Jump_Case 0x4
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 7802 |x | Jump 0xe0 ; case 0x1
00de 7805 |x | Jump 0xe4 ; case 0x2
00df 7809 |x | Jump 0xe9 ; case 0x3
00e0 00da | | Load_Top At_Offset_2
00e1 0091 0a1f | | Action Push_String_Extended_Indexed,0xa1f ; "CODE"
00e3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e4 00db | | Load_Top At_Offset_3
00e5 00db | | Load_Top At_Offset_3
00e6 00e0 | | Load_Encached Standard_Cache
00e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e9 00da | | Load_Top At_Offset_2
00ea 00e0 | | Load_Encached Standard_Cache
00eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ec 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e40f | | Load 0x2,0xf
00f4 4807 |H | Short_Literal 0x7
00f5 e7ff | | Load 0x3,-0x1
00f6 8410 | | Call 0x2,0x10
00f7 e013 | | Load 0x0,0x13
00f8 0257 | W | Execute Discrete,Raise
00f9 0000 0000 | | .BLANK 0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e40f | | Load 0x2,0xf
0104 4807 |H | Short_Literal 0x7
0105 e7ff | | Load 0x3,-0x1
0106 8410 | | Call 0x2,0x10
0107 e408 | | Load 0x2,0x8
0108 0a01 | | Execute_Immediate Plus,0x1
0109 c408 | | Store 0x2,0x8
010a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 013b | ; | .CONST 0x013b ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0004 | | .CONST 0x0004 ; Number of locals
0113 INIT_0110:
0113 e004 | | Load 0x0,0x4
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 02c7 | | Declare_Variable Any
0116 00db | | Load_Top At_Offset_3
0117 a602 | | Store_Unchecked 0x3,0x2
0118 e004 | | Load 0x0,0x4
0119 1b11 | | Execute Package,Field_Read,Field_Number 0x11
011a 0266 | f | Execute Discrete,Bounds
011b e007 | | Load 0x0,0x7
011c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
011d 02a0 | | Declare_Subprogram Null_Subprogram
011e 4801 |H | Short_Literal 0x1
011f 035d | ] | Declare_Type Array,Defined
0120 00d8 | | Load_Top At_Offset_0
0121 0337 | 7 | Declare_Variable Array
0122 00d8 | | Load_Top At_Offset_0
0123 0335 | 5 | Declare_Variable Array,Duplicate
0124 00cd | | Action Spare6_Action
0125 4802 |H | Short_Literal 0x2
0126 4800 |H | Short_Literal 0x0
0127 00da | | Load_Top At_Offset_2
0128 01d6 | | Execute Vector,Field_Write
0129 4806 |H | Short_Literal 0x6
012a 4801 |H | Short_Literal 0x1
012b 00da | | Load_Top At_Offset_2
012c 01d6 | | Execute Vector,Field_Write
012d 4807 |H | Short_Literal 0x7
012e 4802 |H | Short_Literal 0x2
012f 00da | | Load_Top At_Offset_2
0130 01d6 | | Execute Vector,Field_Write
0131 4807 |H | Short_Literal 0x7
0132 4803 |H | Short_Literal 0x3
0133 00da | | Load_Top At_Offset_2
0134 01d6 | | Execute Vector,Field_Write
0135 4808 |H | Short_Literal 0x8
0136 4804 |H | Short_Literal 0x4
0137 00da | | Load_Top At_Offset_2
0138 01d6 | | Execute Vector,Field_Write
0139 00d9 | | Load_Top At_Offset_1
013a 01d4 | | Execute Vector,Structure_Write
013b BODY_0110:
013b 00cf | | Action Mark_Auxiliary
013c 780f |x | Jump 0x14c
013d e40f | | Load 0x2,0xf
013e e602 | | Load 0x3,0x2
013f e004 | | Load 0x0,0x4
0140 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0141 00db | | Load_Top At_Offset_3
0142 01d7 | | Execute Vector,Field_Read
0143 e602 | | Load 0x3,0x2
0144 e004 | | Load 0x0,0x4
0145 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0146 8410 | | Call 0x2,0x10
0147 00db | | Load_Top At_Offset_3
0148 e004 | | Load 0x0,0x4
0149 1819 | | Execute Package,Field_Execute,Field_Number 0x19
014a c602 | | Store 0x3,0x2
014b 00c9 | | Action Pop_Auxiliary_Loop
014c 00db | | Load_Top At_Offset_3
014d e004 | | Load 0x0,0x4
014e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
014f 6fed |o | Jump_Zero 0x13d
0150 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0162 | b | .CONST 0x0162 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0003 | | .CONST 0x0003 ; Number of locals
015b INIT_0158:
015b e011 | | Load 0x0,0x11
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d e00f | | Load 0x0,0xf
015e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
015f 02c7 | | Declare_Variable Any
0160 00d8 | | Load_Top At_Offset_0
0161 1c00 | | Execute_Immediate Run_Utility,0x0
0162 BODY_0158:
0162 00be | | Action Activate_Tasks
0163 e011 | | Load 0x0,0x11
0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0165 00d9 | | Load_Top At_Offset_1
0166 0120 | | Execute Any,Is_Value
0167 6803 |h | Jump_Zero 0x16b
0168 e00f | | Load 0x0,0xf
0169 1b15 | | Execute Package,Field_Read,Field_Number 0x15
016a 7801 |x | Jump 0x16c
016b 00d9 | | Load_Top At_Offset_1
016c e40c | | Load 0x2,0xc
016d 4800 |H | Short_Literal 0x0
016e e00f | | Load 0x0,0xf
016f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0170 e012 | | Load 0x0,0x12
0171 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0172 e00f | | Load 0x0,0xf
0173 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0174 0161 | a | Execute Variant_Record,Check_In_Formal_Type
0175 4801 |H | Short_Literal 0x1
0176 e7ff | | Load 0x3,-0x1
0177 e00f | | Load 0x0,0xf
0178 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0179 c603 | | Store 0x3,0x3
017a 005a | Z | Store_Top Discrete,At_Offset_2
017b 00d9 | | Load_Top At_Offset_1
017c 7010 |p | Jump_Nonzero 0x18d
017d e7ff | | Load 0x3,-0x1
017e e012 | | Load 0x0,0x12
017f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0180 0092 0a2d | -| Action Push_String_Extended,0xa2d ; " (segment"
0182 01cc | | Execute Vector,Catenate
0183 00d9 | | Load_Top At_Offset_1
0184 e00f | | Load 0x0,0xf
0185 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0186 00e0 | | Load_Encached Standard_Cache
0187 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0188 01cc | | Execute Vector,Catenate
0189 0092 0a2e | .| Action Push_String_Extended,0xa2e ; ")"
018b 01cc | | Execute Vector,Catenate
018c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018d 0092 0a2f | /| Action Push_String_Extended,0xa2f ; "Bad status opening code segment "
018f e7ff | | Load 0x3,-0x1
0190 e012 | | Load 0x0,0x12
0191 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0192 01cc | | Execute Vector,Catenate
0193 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
0195 01cc | | Execute Vector,Catenate
0196 00da | | Load_Top At_Offset_2
0197 e011 | | Load 0x0,0x11
0198 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0199 025e | ^ | Execute Discrete,Convert
019a 1c01 | | Execute_Immediate Run_Utility,0x1
019b 01cc | | Execute Vector,Catenate
019c 8412 | | Call 0x2,0x12
019d e7ff | | Load 0x3,-0x1
019e e012 | | Load 0x0,0x12
019f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac 4602 |F | Jump_Case 0x3
01ad 7805 |x | Jump 0x1b3 ; case 0x0
01ae 7806 |x | Jump 0x1b5 ; case 0x1
01af 7800 |x | Jump 0x1b0 ; case 0x2
01b0 0092 0a31 | 1| Action Push_String_Extended,0xa31 ; "main program closure "
01b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b3 00ea | | Load_Encached Null_String_Cache
01b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b5 0092 0a32 | 2| Action Push_String_Extended,0xa32 ; "elaboration "
01b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd | | .CONST 0x01bd ; Address of begin
01b9 01d2 | | .CONST 0x01d2 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb 029f 051b | | Declare_Subprogram INIT_0518,For_Call
01bd BODY_01b8:
01bd 00db | | Load_Top At_Offset_3
01be e003 | | Load 0x0,0x3
01bf 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c1 e003 | | Load 0x0,0x3
01c2 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
01c3 180d | | Execute Package,Field_Execute,Field_Number 0xd
01c4 6808 |h | Jump_Zero 0x1cd
01c5 0092 0a33 | 3| Action Push_String_Extended,0xa33 ; "code view unit "
01c7 e7ff | | Load 0x3,-0x1
01c8 e003 | | Load 0x0,0x3
01c9 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01ca 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01cb 01cc | | Execute Vector,Catenate
01cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cd 00db | | Load_Top At_Offset_3
01ce e003 | | Load 0x0,0x3
01cf 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01d0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d2 TRAP_01b8:
01d2 0007 | | Action Break_Optional
01d3 8602 | | Call 0x3,0x2
01d4 e40b | | Load 0x2,0xb
01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00db | | Load_Top At_Offset_3
01dc 0e02 | | Execute_Immediate Not_Equal,0x2
01dd 7008 |p | Jump_Nonzero 0x1e6
01de 00da | | Load_Top At_Offset_2
01df e003 | | Load 0x0,0x3
01e0 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01e1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e2 e003 | | Load 0x0,0x3
01e3 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
01e4 180d | | Execute Package,Field_Execute,Field_Number 0xd
01e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e6 4801 |H | Short_Literal 0x1
01e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01fb | | .CONST 0x01fb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0008 | | .CONST 0x0008 ; Number of locals
01eb INIT_01e8:
01eb 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call
01ed 029f 056b | k| Declare_Subprogram INIT_0568,For_Call
01ef 029f 062b | +| Declare_Subprogram INIT_0628,For_Call
01f1 e418 | | Load 0x2,0x18
01f2 1911 | | Execute Package,Field_Reference,Field_Number 0x11
01f3 00c6 | | Action Check_Subprogram_Elaborated
01f4 4804 |H | Short_Literal 0x4
01f5 4803 |H | Short_Literal 0x3
01f6 0099 | | Action Reference_Dynamic
01f7 e014 | | Load 0x0,0x14
01f8 e015 | | Load 0x0,0x15
01f9 4808 |H | Short_Literal 0x8
01fa 0007 | | Action Break_Optional
01fb BODY_01e8:
01fb 4805 |H | Short_Literal 0x5
01fc 4803 |H | Short_Literal 0x3
01fd 0099 | | Action Reference_Dynamic
01fe 4806 |H | Short_Literal 0x6
01ff 4803 |H | Short_Literal 0x3
0200 0099 | | Action Reference_Dynamic
0201 e418 | | Load 0x2,0x18
0202 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0203 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0204 0000 0000 | | .BLANK 0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0218 | | .CONST 0x0218 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0005 | | .CONST 0x0005 ; Number of locals
020b INIT_0208:
020b e003 | | Load 0x0,0x3
020c 1b52 | R | Execute Package,Field_Read,Field_Number 0x52
020d 02c7 | | Declare_Variable Any
020e e7fd | | Load 0x3,-0x3
020f a602 | | Store_Unchecked 0x3,0x2
0210 e00f | | Load 0x0,0xf
0211 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0212 02ff | | Declare_Variable Variant_Record
0213 00d8 | | Load_Top At_Offset_0
0214 1c00 | | Execute_Immediate Run_Utility,0x0
0215 00e3 | | Load_Encached Natural_Cache
0216 e011 | | Load 0x0,0x11
0217 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0218 BODY_0208:
0218 00cf | | Action Mark_Auxiliary
0219 785a |xZ | Jump 0x274
021a e602 | | Load 0x3,0x2
021b e003 | | Load 0x0,0x3
021c 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
021d e00f | | Load 0x0,0xf
021e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
021f 0162 | b | Execute Variant_Record,Check_In_Type
0220 e603 | | Load 0x3,0x3
0221 016d | m | Execute Variant_Record,Structure_Write
0222 e602 | | Load 0x3,0x2
0223 e003 | | Load 0x0,0x3
0224 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
0225 c602 | | Store 0x3,0x2
0226 e402 | | Load 0x2,0x2
0227 0a01 | | Execute_Immediate Plus,0x1
0228 c402 | | Store 0x2,0x2
0229 00db | | Load_Top At_Offset_3
022a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
022b e00f | | Load 0x0,0xf
022c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
022d 027f | | Execute Discrete,Equal
022e 6831 |h1 | Jump_Zero 0x260
022f e011 | | Load 0x0,0x11
0230 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0231 00e2 | | Load_Encached Integer_Cache
0232 4800 |H | Short_Literal 0x0
0233 4800 |H | Short_Literal 0x0
0234 e40c | | Load 0x2,0xc
0235 e603 | | Load 0x3,0x3
0236 e00f | | Load 0x0,0xf
0237 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0238 c604 | | Store 0x3,0x4
0239 005a | Z | Store_Top Discrete,At_Offset_2
023a 00d9 | | Load_Top At_Offset_1
023b 7007 |p | Jump_Nonzero 0x243
023c e7fe | | Load 0x3,-0x2
023d e7ff | | Load 0x3,-0x1
023e e604 | | Load 0x3,0x4
023f e603 | | Load 0x3,0x3
0240 e418 | | Load 0x2,0x18
0241 180d | | Execute Package,Field_Execute,Field_Number 0xd
0242 7830 |x0 | Jump 0x273
0243 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "Bad status getting reference count for code segment "
0245 e603 | | Load 0x3,0x3
0246 e012 | | Load 0x0,0x12
0247 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0248 01cc | | Execute Vector,Catenate
0249 0092 0a35 | 5| Action Push_String_Extended,0xa35 ; " found on "
024b 01cc | | Execute Vector,Catenate
024c e7fe | | Load 0x3,-0x2
024d 8415 | | Call 0x2,0x15
024e 01cc | | Execute Vector,Catenate
024f 0092 0a36 | 6| Action Push_String_Extended,0xa36 ; "code segment object list of "
0251 01cc | | Execute Vector,Catenate
0252 e7ff | | Load 0x3,-0x1
0253 8416 | | Call 0x2,0x16
0254 01cc | | Execute Vector,Catenate
0255 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
0257 01cc | | Execute Vector,Catenate
0258 00da | | Load_Top At_Offset_2
0259 e011 | | Load 0x0,0x11
025a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025b 025e | ^ | Execute Discrete,Convert
025c 1c01 | | Execute_Immediate Run_Utility,0x1
025d 01cc | | Execute Vector,Catenate
025e 8412 | | Call 0x2,0x12
025f 7813 |x | Jump 0x273
0260 0092 0a37 | 7| Action Push_String_Extended,0xa37 ; "Unexpected class of object found on "
0262 e7fe | | Load 0x3,-0x2
0263 8415 | | Call 0x2,0x15
0264 01cc | | Execute Vector,Catenate
0265 0092 0a36 | 6| Action Push_String_Extended,0xa36 ; "code segment object list of "
0267 01cc | | Execute Vector,Catenate
0268 e7ff | | Load 0x3,-0x1
0269 8416 | | Call 0x2,0x16
026a 01cc | | Execute Vector,Catenate
026b 0092 0a38 | 8| Action Push_String_Extended,0xa38 ; ":"
026d 01cc | | Execute Vector,Catenate
026e e603 | | Load 0x3,0x3
026f e012 | | Load 0x0,0x12
0270 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0271 01cc | | Execute Vector,Catenate
0272 8412 | | Call 0x2,0x12
0273 00c9 | | Action Pop_Auxiliary_Loop
0274 e602 | | Load 0x3,0x2
0275 e003 | | Load 0x0,0x3
0276 1b53 | S | Execute Package,Field_Read,Field_Number 0x53
0277 012f | / | Execute Any,Equal
0278 6fa1 |o | Jump_Zero 0x21a
0279 4504 |E | Exit_Suprogram New_Top_Offset 0x4
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0291 | | .CONST 0x0291 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0006 | | .CONST 0x0006 ; Number of locals
0283 INIT_0280:
0283 e009 | | Load 0x0,0x9
0284 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0285 02ff | | Declare_Variable Variant_Record
0286 00d8 | | Load_Top At_Offset_0
0287 1c00 | | Execute_Immediate Run_Utility,0x0
0288 e009 | | Load 0x0,0x9
0289 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028a e016 | | Load 0x0,0x16
028b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
028c e016 | | Load 0x0,0x16
028d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
028e e016 | | Load 0x0,0x16
028f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0290 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0291 BODY_0280:
0291 e009 | | Load 0x0,0x9
0292 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0293 e602 | | Load 0x3,0x2
0294 605f |`_ | Indirect_Literal Discrete,0x2f4,{0x00000000, 0x00004000}
0295 e001 | | Load 0x0,0x1
0296 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0297 4800 |H | Short_Literal 0x0
0298 e7fd | | Load 0x3,-0x3
0299 e009 | | Load 0x0,0x9
029a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
029b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
029c 00d1 | | Pop_Control Pop_Count_1
029d c603 | | Store 0x3,0x3
029e 00db | | Load_Top At_Offset_3
029f 680f |h | Jump_Zero 0x2af
02a0 0092 0a39 | 9| Action Push_String_Extended,0xa39 ; "Bad status getting version for Archived_Code object "
02a2 e7fc | | Load 0x3,-0x4
02a3 01cc | | Execute Vector,Catenate
02a4 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
02a6 01cc | | Execute Vector,Catenate
02a7 e603 | | Load 0x3,0x3
02a8 e009 | | Load 0x0,0x9
02a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02aa 025e | ^ | Execute Discrete,Convert
02ab 1c01 | | Execute_Immediate Run_Utility,0x1
02ac 01cc | | Execute Vector,Catenate
02ad 8412 | | Call 0x2,0x12
02ae 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02af e016 | | Load 0x0,0x16
02b0 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02b1 e016 | | Load 0x0,0x16
02b2 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02b3 4801 |H | Short_Literal 0x1
02b4 e001 | | Load 0x0,0x1
02b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b6 e602 | | Load 0x3,0x2
02b7 e016 | | Load 0x0,0x16
02b8 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
02b9 0162 | b | Execute Variant_Record,Check_In_Type
02ba e016 | | Load 0x0,0x16
02bb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02bc c604 | | Store 0x3,0x4
02bd 005a | Z | Store_Top Discrete,At_Offset_2
02be 00d9 | | Load_Top At_Offset_1
02bf 680f |h | Jump_Zero 0x2cf
02c0 0092 0a3a | :| Action Push_String_Extended,0xa3a ; "Bad status opening Archived_Code object "
02c2 e7fc | | Load 0x3,-0x4
02c3 01cc | | Execute Vector,Catenate
02c4 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
02c6 01cc | | Execute Vector,Catenate
02c7 00da | | Load_Top At_Offset_2
02c8 e016 | | Load 0x0,0x16
02c9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02ca 025e | ^ | Execute Discrete,Convert
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 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02d1 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
02d2 e005 | | Load 0x0,0x5
02d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d4 e006 | | Load 0x0,0x6
02d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d6 e604 | | Load 0x3,0x4
02d7 0217 | | Execute Heap_Access,All_Reference
02d8 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02d9 e016 | | Load 0x0,0x16
02da 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02db 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02dc 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02dd 00cf | | Action Mark_Auxiliary
02de 780c |x | Jump 0x2eb
02df 00d9 | | Load_Top At_Offset_1
02e0 e016 | | Load 0x0,0x16
02e1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02e2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02e3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02e4 87fe | | Call 0x3,-0x2
02e5 00d9 | | Load_Top At_Offset_1
02e6 e016 | | Load 0x0,0x16
02e7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02e8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02e9 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02ea 00c9 | | Action Pop_Auxiliary_Loop
02eb 00d9 | | Load_Top At_Offset_1
02ec e016 | | Load 0x0,0x16
02ed 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02ee 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02ef 6fef |o | Jump_Zero 0x2df
02f0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02f1 0000 0000 | | .XXX[0x3]
02f3 0000 | |
02f4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0308 | | .CONST 0x0308 ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0006 | | .CONST 0x0006 ; Number of locals
02fb INIT_02f8:
02fb 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call
02fd 481b |H | Short_Literal 0x1b
02fe 4802 |H | Short_Literal 0x2
02ff 0099 | | Action Reference_Dynamic
0300 00c6 | | Action Check_Subprogram_Elaborated
0301 4802 |H | Short_Literal 0x2
0302 4803 |H | Short_Literal 0x3
0303 0099 | | Action Reference_Dynamic
0304 e017 | | Load 0x0,0x17
0305 e018 | | Load 0x0,0x18
0306 4806 |H | Short_Literal 0x6
0307 0007 | | Action Break_Optional
0308 BODY_02f8:
0308 0092 0a3b | ;| Action Push_String_Extended,0xa3b ; "for Loaded_Main unit "
030a e7fe | | Load 0x3,-0x2
030b e003 | | Load 0x0,0x3
030c 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
030d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
030e 01cc | | Execute Vector,Catenate
030f e7ff | | Load 0x3,-0x1
0310 4803 |H | Short_Literal 0x3
0311 4803 |H | Short_Literal 0x3
0312 0099 | | Action Reference_Dynamic
0313 4804 |H | Short_Literal 0x4
0314 4803 |H | Short_Literal 0x3
0315 0099 | | Action Reference_Dynamic
0316 841b | | Call 0x2,0x1b
0317 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031d | | .CONST 0x031d ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call
031d BODY_0318:
031d 00db | | Load_Top At_Offset_3
031e 8416 | | Call 0x2,0x16
031f e40b | | Load 0x2,0xb
0320 01de | | Execute Vector,Not_Equal
0321 7001 |p | Jump_Nonzero 0x323
0322 0887 | | Execute_Immediate Raise,0x87
0323 e404 | | Load 0x2,0x4
0324 0a01 | | Execute_Immediate Plus,0x1
0325 c404 | | Store 0x2,0x4
0326 00db | | Load_Top At_Offset_3
0327 e003 | | Load 0x0,0x3
0328 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0329 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
032a 4800 |H | Short_Literal 0x0
032b e7ff | | Load 0x3,-0x1
032c 841a | | Call 0x2,0x1a
032d 00db | | Load_Top At_Offset_3
032e e003 | | Load 0x0,0x3
032f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0330 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0331 4801 |H | Short_Literal 0x1
0332 e7ff | | Load 0x3,-0x1
0333 841a | | Call 0x2,0x1a
0334 00db | | Load_Top At_Offset_3
0335 e003 | | Load 0x0,0x3
0336 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0337 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0338 4802 |H | Short_Literal 0x2
0339 e7ff | | Load 0x3,-0x1
033a 841a | | Call 0x2,0x1a
033b 00db | | Load_Top At_Offset_3
033c e003 | | Load 0x0,0x3
033d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
033e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
033f 6801 |h | Jump_Zero 0x341
0340 8602 | | Call 0x3,0x2
0341 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0342 0000 0000 | | .BLANK 0000[0x6]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0358 | X | .CONST 0x0358 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0006 | | .CONST 0x0006 ; Number of locals
034b INIT_0348:
034b e003 | | Load 0x0,0x3
034c 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
034d 191f | | Execute Package,Field_Reference,Field_Number 0x1f
034e 00c6 | | Action Check_Subprogram_Elaborated
034f 481d |H | Short_Literal 0x1d
0350 4802 |H | Short_Literal 0x2
0351 0099 | | Action Reference_Dynamic
0352 e019 | | Load 0x0,0x19
0353 e01a | | Load 0x0,0x1a
0354 4805 |H | Short_Literal 0x5
0355 0007 | | Action Break_Optional
0356 029f 0683 | | Declare_Subprogram INIT_0680,For_Call
0358 BODY_0348:
0358 4800 |H | Short_Literal 0x0
0359 e01b | | Load 0x0,0x1b
035a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
035b e7ff | | Load 0x3,-0x1
035c e003 | | Load 0x0,0x3
035d 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
035e 180f | | Execute Package,Field_Execute,Field_Number 0xf
035f e01c | | Load 0x0,0x1c
0360 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0361 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0362 0f03 | | Execute_Immediate Equal,0x3
0363 681a |h | Jump_Zero 0x37e
0364 e40f | | Load 0x2,0xf
0365 4802 |H | Short_Literal 0x2
0366 0092 0a3c | <| Action Push_String_Extended,0xa3c ; "Checking "
0368 e7fe | | Load 0x3,-0x2
0369 8606 | | Call 0x3,0x6
036a 01cc | | Execute Vector,Catenate
036b 8410 | | Call 0x2,0x10
036c e405 | | Load 0x2,0x5
036d 0a01 | | Execute_Immediate Plus,0x1
036e c405 | | Store 0x2,0x5
036f 4801 |H | Short_Literal 0x1
0370 4801 |H | Short_Literal 0x1
0371 4801 |H | Short_Literal 0x1
0372 4800 |H | Short_Literal 0x0
0373 e7ff | | Load 0x3,-0x1
0374 4802 |H | Short_Literal 0x2
0375 4803 |H | Short_Literal 0x3
0376 0099 | | Action Reference_Dynamic
0377 4803 |H | Short_Literal 0x3
0378 4803 |H | Short_Literal 0x3
0379 0099 | | Action Reference_Dynamic
037a e003 | | Load 0x0,0x3
037b 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
037c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
037d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
037e e40f | | Load 0x2,0xf
037f 4802 |H | Short_Literal 0x2
0380 0092 0a3d | =| Action Push_String_Extended,0xa3d ; "Skipping non-R1000 world "
0382 e7fe | | Load 0x3,-0x2
0383 8606 | | Call 0x3,0x6
0384 01cc | | Execute Vector,Catenate
0385 8410 | | Call 0x2,0x10
0386 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0387 0000 | | .XXX[0x1]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0393 | | .CONST 0x0393 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0003 | | .CONST 0x0003 ; Number of locals
038b INIT_0388:
038b e009 | | Load 0x0,0x9
038c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
038d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038e 02c7 | | Declare_Variable Any
038f 00d8 | | Load_Top At_Offset_0
0390 1c00 | | Execute_Immediate Run_Utility,0x0
0391 e009 | | Load 0x0,0x9
0392 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0393 BODY_0388:
0393 e009 | | Load 0x0,0x9
0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0395 00da | | Load_Top At_Offset_2
0396 0120 | | Execute Any,Is_Value
0397 6804 |h | Jump_Zero 0x39c
0398 e009 | | Load 0x0,0x9
0399 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
039a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
039b 7801 |x | Jump 0x39d
039c 00da | | Load_Top At_Offset_2
039d e7ff | | Load 0x3,-0x1
039e e009 | | Load 0x0,0x9
039f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
03a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03a1 c602 | | Store 0x3,0x2
03a2 0059 | Y | Store_Top Discrete,At_Offset_1
03a3 00d8 | | Load_Top At_Offset_0
03a4 680b |h | Jump_Zero 0x3b0
03a5 0092 0a3e | >| Action Push_String_Extended,0xa3e ; "Bad status getting enclosing directory for "
03a7 e7ff | | Load 0x3,-0x1
03a8 e009 | | Load 0x0,0x9
03a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03aa 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03ab 01cc | | Execute Vector,Catenate
03ac 8412 | | Call 0x2,0x12
03ad e009 | | Load 0x0,0x9
03ae 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b0 00d9 | | Load_Top At_Offset_1
03b1 e009 | | Load 0x0,0x9
03b2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03b3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b5 0000 0000 | | .XXX[0x3]
03b7 0000 | |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03ce | | .CONST 0x03ce ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0007 | | .CONST 0x0007 ; Number of locals
03bb INIT_03b8:
03bb e009 | | Load 0x0,0x9
03bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03bd 02c7 | | Declare_Variable Any
03be 00db | | Load_Top At_Offset_3
03bf 841f | | Call 0x2,0x1f
03c0 a602 | | Store_Unchecked 0x3,0x2
03c1 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call
03c3 481b |H | Short_Literal 0x1b
03c4 4802 |H | Short_Literal 0x2
03c5 0099 | | Action Reference_Dynamic
03c6 00c6 | | Action Check_Subprogram_Elaborated
03c7 4803 |H | Short_Literal 0x3
03c8 4803 |H | Short_Literal 0x3
03c9 0099 | | Action Reference_Dynamic
03ca e01d | | Load 0x0,0x1d
03cb e01e | | Load 0x0,0x1e
03cc 4807 |H | Short_Literal 0x7
03cd 0007 | | Action Break_Optional
03ce BODY_03b8:
03ce 0092 0a3f | ?| Action Push_String_Extended,0xa3f ; "for code view "
03d0 e602 | | Load 0x3,0x2
03d1 e009 | | Load 0x0,0x9
03d2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03d3 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03d4 01cc | | Execute Vector,Catenate
03d5 e7ff | | Load 0x3,-0x1
03d6 4804 |H | Short_Literal 0x4
03d7 4803 |H | Short_Literal 0x3
03d8 0099 | | Action Reference_Dynamic
03d9 4805 |H | Short_Literal 0x5
03da 4803 |H | Short_Literal 0x3
03db 0099 | | Action Reference_Dynamic
03dc 841b | | Call 0x2,0x1b
03dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03de 0000 0000 | | .XXX[0x2]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e8 | | .CONST 0x03e8 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0002 | | .CONST 0x0002 ; Number of locals
03e3 INIT_03e0:
03e3 e01f | | Load 0x0,0x1f
03e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e5 02c7 | | Declare_Variable Any
03e6 00d8 | | Load_Top At_Offset_0
03e7 1c00 | | Execute_Immediate Run_Utility,0x0
03e8 BODY_03e0:
03e8 00d8 | | Load_Top At_Offset_0
03e9 e40f | | Load 0x2,0xf
03ea 0120 | | Execute Any,Is_Value
03eb 6803 |h | Jump_Zero 0x3ef
03ec e007 | | Load 0x0,0x7
03ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ee 7801 |x | Jump 0x3f0
03ef e40f | | Load 0x2,0xf
03f0 e5fb | | Load 0x2,-0x5
03f1 e007 | | Load 0x0,0x7
03f2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
03f3 c40f | | Store 0x2,0xf
03f4 c602 | | Store 0x3,0x2
03f5 4801 |H | Short_Literal 0x1
03f6 00d9 | | Load_Top At_Offset_1
03f7 e01f | | Load 0x0,0x1f
03f8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03f9 6807 |h | Jump_Zero 0x401
03fa e007 | | Load 0x0,0x7
03fb 180e | | Execute Package,Field_Execute,Field_Number 0xe
03fc 00d9 | | Load_Top At_Offset_1
03fd e008 | | Load 0x0,0x8
03fe 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03ff 00cc | | Action Pop_Block
0400 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0401 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0402 0000 0000 | | .BLANK 0000[0x6]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0433 | 3 | .CONST 0x0433 ; Address of begin
0409 0510 | | .CONST 0x0510 ; Address of exception handler
040a 000a | | .CONST 0x000a ; Number of locals
040b INIT_0408:
040b 485b |H[ | Short_Literal 0x5b
040c e5ff | | Load 0x2,-0x1
040d 01ca | | Execute Vector,Prepend
040e 0092 0a40 | @| Action Push_String_Extended,0xa40 ; "]"
0410 01cc | | Execute Vector,Catenate
0411 e40a | | Load 0x2,0xa
0412 01cc | | Execute Vector,Catenate
0413 0007 | | Action Break_Optional
0414 e009 | | Load 0x0,0x9
0415 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0416 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0417 e009 | | Load 0x0,0x9
0418 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0419 1b18 | | Execute Package,Field_Read,Field_Number 0x18
041a 02c7 | | Declare_Variable Any
041b 00d8 | | Load_Top At_Offset_0
041c 1c00 | | Execute_Immediate Run_Utility,0x0
041d e009 | | Load 0x0,0x9
041e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041f e009 | | Load 0x0,0x9
0420 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0421 02c7 | | Declare_Variable Any
0422 00d8 | | Load_Top At_Offset_0
0423 1c00 | | Execute_Immediate Run_Utility,0x0
0424 e003 | | Load 0x0,0x3
0425 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0426 02c7 | | Declare_Variable Any
0427 00d8 | | Load_Top At_Offset_0
0428 1c00 | | Execute_Immediate Run_Utility,0x0
0429 485b |H[ | Short_Literal 0x5b
042a e5ff | | Load 0x2,-0x1
042b 01ca | | Execute Vector,Prepend
042c 0092 0a41 | A| Action Push_String_Extended,0xa41 ; "]code_database'c(archived_code)"
042e 01cc | | Execute Vector,Catenate
042f 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call
0431 029f 0733 | 3| Declare_Subprogram INIT_0730,For_Call
0433 BODY_0408:
0433 e5fe | | Load 0x2,-0x2
0434 7002 |p | Jump_Nonzero 0x437
0435 e5fd | | Load 0x2,-0x3
0436 6809 |h | Jump_Zero 0x440
0437 4801 |H | Short_Literal 0x1
0438 e020 | | Load 0x0,0x20
0439 1817 | | Execute Package,Field_Execute,Field_Number 0x17
043a e020 | | Load 0x0,0x20
043b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
043c 7003 |p | Jump_Nonzero 0x440
043d 0092 0a42 | B| Action Push_String_Extended,0xa42 ; "Requested modification of incorrect reference counts, but unable to enter privileged mode"
043f 8411 | | Call 0x2,0x11
0440 00cf | | Action Mark_Auxiliary
0441 00e1 | | Load_Encached Boolean_Cache
0442 0266 | f | Execute Discrete,Bounds
0443 0007 | | Action Break_Optional
0444 00d8 | | Load_Top At_Offset_0
0445 6819 |h | Jump_Zero 0x45f
0446 e009 | | Load 0x0,0x9
0447 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0448 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0449 e604 | | Load 0x3,0x4
044a 60c9 |` | Indirect_Literal Discrete,0x514,{0x00000000, 0x00004000}
044b e001 | | Load 0x0,0x1
044c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044d e005 | | Load 0x0,0x5
044e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
044f e006 | | Load 0x0,0x6
0450 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0451 4801 |H | Short_Literal 0x1
0452 4800 |H | Short_Literal 0x0
0453 e005 | | Load 0x0,0x5
0454 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0455 e009 | | Load 0x0,0x9
0456 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0457 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0458 e602 | | Load 0x3,0x2
0459 e009 | | Load 0x0,0x9
045a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
045b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
045c c604 | | Store 0x3,0x4
045d c603 | | Store 0x3,0x3
045e 7818 |x | Jump 0x477
045f e009 | | Load 0x0,0x9
0460 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0461 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0462 e604 | | Load 0x3,0x4
0463 60b0 |` | Indirect_Literal Discrete,0x514,{0x00000000, 0x00004000}
0464 e001 | | Load 0x0,0x1
0465 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0466 e005 | | Load 0x0,0x5
0467 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0468 e006 | | Load 0x0,0x6
0469 1811 | | Execute Package,Field_Execute,Field_Number 0x11
046a 4801 |H | Short_Literal 0x1
046b 4800 |H | Short_Literal 0x0
046c e005 | | Load 0x0,0x5
046d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
046e e009 | | Load 0x0,0x9
046f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0470 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0471 e608 | | Load 0x3,0x8
0472 e009 | | Load 0x0,0x9
0473 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0474 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0475 c604 | | Store 0x3,0x4
0476 c603 | | Store 0x3,0x3
0477 e603 | | Load 0x3,0x3
0478 6843 |hC | Jump_Zero 0x4bc
0479 e603 | | Load 0x3,0x3
047a 0e03 | | Execute_Immediate Not_Equal,0x3
047b 7005 |p | Jump_Nonzero 0x481
047c e604 | | Load 0x3,0x4
047d e009 | | Load 0x0,0x9
047e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
047f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0480 703b |p; | Jump_Nonzero 0x4bc
0481 00d8 | | Load_Top At_Offset_0
0482 681d |h | Jump_Zero 0x4a0
0483 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "Unable to resolve name \x22"
0485 e602 | | Load 0x3,0x2
0486 01cc | | Execute Vector,Catenate
0487 0092 0a44 | D| Action Push_String_Extended,0xa44 ; "\x22 because "
0489 01cc | | Execute Vector,Catenate
048a 6089 |` | Indirect_Literal Discrete,0x514,{0x00000000, 0x00004000}
048b e001 | | Load 0x0,0x1
048c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
048d e005 | | Load 0x0,0x5
048e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
048f e006 | | Load 0x0,0x6
0490 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0491 4801 |H | Short_Literal 0x1
0492 4800 |H | Short_Literal 0x0
0493 e005 | | Load 0x0,0x5
0494 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0495 e009 | | Load 0x0,0x9
0496 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0497 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0498 e602 | | Load 0x3,0x2
0499 e603 | | Load 0x3,0x3
049a e009 | | Load 0x0,0x9
049b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
049c 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
049d 01cc | | Execute Vector,Catenate
049e 8411 | | Call 0x2,0x11
049f 781c |x | Jump 0x4bc
04a0 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "Unable to resolve name \x22"
04a2 e608 | | Load 0x3,0x8
04a3 01cc | | Execute Vector,Catenate
04a4 0092 0a44 | D| Action Push_String_Extended,0xa44 ; "\x22 because "
04a6 01cc | | Execute Vector,Catenate
04a7 606c |`l | Indirect_Literal Discrete,0x514,{0x00000000, 0x00004000}
04a8 e001 | | Load 0x0,0x1
04a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04aa e005 | | Load 0x0,0x5
04ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04ac e006 | | Load 0x0,0x6
04ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04ae 4801 |H | Short_Literal 0x1
04af 4800 |H | Short_Literal 0x0
04b0 e005 | | Load 0x0,0x5
04b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b2 e009 | | Load 0x0,0x9
04b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04b4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04b5 e608 | | Load 0x3,0x8
04b6 e603 | | Load 0x3,0x3
04b7 e009 | | Load 0x0,0x9
04b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04b9 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
04ba 01cc | | Execute Vector,Catenate
04bb 8411 | | Call 0x2,0x11
04bc 00cf | | Action Mark_Auxiliary
04bd 7846 |xF | Jump 0x504
04be e009 | | Load 0x0,0x9
04bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c0 e606 | | Load 0x3,0x6
04c1 0120 | | Execute Any,Is_Value
04c2 6803 |h | Jump_Zero 0x4c6
04c3 e009 | | Load 0x0,0x9
04c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04c5 7801 |x | Jump 0x4c7
04c6 e606 | | Load 0x3,0x6
04c7 e604 | | Load 0x3,0x4
04c8 e009 | | Load 0x0,0x9
04c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ca 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04cb c606 | | Store 0x3,0x6
04cc c605 | | Store 0x3,0x5
04cd e605 | | Load 0x3,0x5
04ce 6811 |h | Jump_Zero 0x4e0
04cf 0092 0a45 | E| Action Push_String_Extended,0xa45 ; "Bad status getting object for "
04d1 e604 | | Load 0x3,0x4
04d2 e009 | | Load 0x0,0x9
04d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04d4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04d5 01cc | | Execute Vector,Catenate
04d6 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
04d8 01cc | | Execute Vector,Catenate
04d9 e605 | | Load 0x3,0x5
04da e009 | | Load 0x0,0x9
04db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04dc 025e | ^ | Execute Discrete,Convert
04dd 1c01 | | Execute_Immediate Run_Utility,0x1
04de 01cc | | Execute Vector,Catenate
04df 8411 | | Call 0x2,0x11
04e0 00d9 | | Load_Top At_Offset_1
04e1 681a |h | Jump_Zero 0x4fc
04e2 e607 | | Load 0x3,0x7
04e3 0120 | | Execute Any,Is_Value
04e4 6803 |h | Jump_Zero 0x4e8
04e5 e003 | | Load 0x0,0x3
04e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e7 7801 |x | Jump 0x4e9
04e8 e607 | | Load 0x3,0x7
04e9 4801 |H | Short_Literal 0x1
04ea e606 | | Load 0x3,0x6
04eb e40e | | Load 0x2,0xe
04ec e003 | | Load 0x0,0x3
04ed 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
04ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04ef c607 | | Store 0x3,0x7
04f0 e40e | | Load 0x2,0xe
04f1 e003 | | Load 0x0,0x3
04f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
04f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04f4 6814 |h | Jump_Zero 0x509
04f5 e604 | | Load 0x3,0x4
04f6 e009 | | Load 0x0,0x9
04f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04f8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04f9 e607 | | Load 0x3,0x7
04fa 841e | | Call 0x2,0x1e
04fb 7802 |x | Jump 0x4fe
04fc e606 | | Load 0x3,0x6
04fd 8420 | | Call 0x2,0x20
04fe e604 | | Load 0x3,0x4
04ff e009 | | Load 0x0,0x9
0500 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0501 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0502 c604 | | Store 0x3,0x4
0503 00c9 | | Action Pop_Auxiliary_Loop
0504 e604 | | Load 0x3,0x4
0505 e009 | | Load 0x0,0x9
0506 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0507 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0508 6fb5 |o | Jump_Zero 0x4be
0509 00ce | | Action Pop_Auxiliary
050a 00c8 | | Action Pop_Auxiliary_Range
050b 3738 |78 | Loop_Decreasing 0x444
050c 00ce | | Action Pop_Auxiliary
050d 8419 | | Call 0x2,0x19
050e 8609 | | Call 0x3,0x9
050f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0510 TRAP_0408:
0510 0007 | | Action Break_Optional
0511 860a | | Call 0x3,0xa
0512 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0513 0000 | | .XXX[0x1]
0514 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051d | | .CONST 0x051d ; Address of begin
0519 053a | : | .CONST 0x053a ; Address of exception handler
051a 0002 | | .CONST 0x0002 ; Number of locals
051b INIT_0518:
051b 029f 075b | [| Declare_Subprogram INIT_0758,For_Call
051d BODY_0518:
051d 0092 0a46 | F| Action Push_String_Extended,0xa46 ; "Exception raised getting name of unit "
051f e7ff | | Load 0x3,-0x1
0520 e003 | | Load 0x0,0x3
0521 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0522 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0523 01cc | | Execute Vector,Catenate
0524 0092 0a47 | G| Action Push_String_Extended,0xa47 ; " in program library "
0526 01cc | | Execute Vector,Catenate
0527 e7ff | | Load 0x3,-0x1
0528 e003 | | Load 0x0,0x3
0529 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
052a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
052b e003 | | Load 0x0,0x3
052c 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
052d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
052e e009 | | Load 0x0,0x9
052f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0530 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0531 01cc | | Execute Vector,Catenate
0532 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
0534 01cc | | Execute Vector,Catenate
0535 e021 | ! | Load 0x0,0x21
0536 180d | | Execute Package,Field_Execute,Field_Number 0xd
0537 01cc | | Execute Vector,Catenate
0538 8412 | | Call 0x2,0x12
0539 4501 |E | Exit_Suprogram New_Top_Offset 0x1
053a TRAP_0518:
053a 0007 | | Action Break_Optional
053b 8802 | | Call 0x4,0x2
053c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
053d 0000 0000 | | .XXX[0x3]
053f 0000 | |
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0558 | X | .CONST 0x0558 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 000a | | .CONST 0x000a ; Number of locals
0543 INIT_0540:
0543 00e3 | | Load_Encached Natural_Cache
0544 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0545 029f 077b | {| Declare_Subprogram INIT_0778,For_Call
0547 029f 07ab | | Declare_Subprogram INIT_07a8,For_Call
0549 029f 07c3 | | Declare_Subprogram INIT_07c0,For_Call
054b e418 | | Load 0x2,0x18
054c 1910 | | Execute Package,Field_Reference,Field_Number 0x10
054d 00c6 | | Action Check_Subprogram_Elaborated
054e 4804 |H | Short_Literal 0x4
054f 4804 |H | Short_Literal 0x4
0550 0099 | | Action Reference_Dynamic
0551 4805 |H | Short_Literal 0x5
0552 4804 |H | Short_Literal 0x4
0553 0099 | | Action Reference_Dynamic
0554 e022 | " | Load 0x0,0x22
0555 e023 | # | Load 0x0,0x23
0556 480a |H | Short_Literal 0xa
0557 0007 | | Action Break_Optional
0558 BODY_0540:
0558 e9ff | | Load 0x4,-0x1
0559 4806 |H | Short_Literal 0x6
055a 4804 |H | Short_Literal 0x4
055b 0099 | | Action Reference_Dynamic
055c 4807 |H | Short_Literal 0x7
055d 4804 |H | Short_Literal 0x4
055e 0099 | | Action Reference_Dynamic
055f 4808 |H | Short_Literal 0x8
0560 4804 |H | Short_Literal 0x4
0561 0099 | | Action Reference_Dynamic
0562 e418 | | Load 0x2,0x18
0563 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0564 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0565 0000 0000 | | .XXX[0x3]
0567 0000 | |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 0571 | q | .CONST 0x0571 ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0004 | | .CONST 0x0004 ; Number of locals
056b INIT_0568:
056b e011 | | Load 0x0,0x11
056c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
056d 00e3 | | Load_Encached Natural_Cache
056e e007 | | Load 0x0,0x7
056f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0570 0606 | | Execute_Immediate Set_Value_Unchecked,0x6
0571 BODY_0568:
0571 e406 | | Load 0x2,0x6
0572 0a01 | | Execute_Immediate Plus,0x1
0573 c406 | | Store 0x2,0x6
0574 e9fe | | Load 0x4,-0x2
0575 e9fd | | Load 0x4,-0x3
0576 027c | | | Execute Discrete,Less
0577 6805 |h | Jump_Zero 0x57d
0578 e5fe | | Load 0x2,-0x2
0579 7007 |p | Jump_Nonzero 0x581
057a 4807 |H | Short_Literal 0x7
057b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
057c 7804 |x | Jump 0x581
057d e5fd | | Load 0x2,-0x3
057e 7002 |p | Jump_Nonzero 0x581
057f 4807 |H | Short_Literal 0x7
0580 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0581 e40f | | Load 0x2,0xf
0582 00d9 | | Load_Top At_Offset_1
0583 0092 0a48 | H| Action Push_String_Extended,0xa48 ; "Reference count ="
0585 e9fe | | Load 0x4,-0x2
0586 00e0 | | Load_Encached Standard_Cache
0587 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0588 01cc | | Execute Vector,Catenate
0589 0092 0a49 | I| Action Push_String_Extended,0xa49 ; ", but expected value is"
058b 01cc | | Execute Vector,Catenate
058c e9fd | | Load 0x4,-0x3
058d 00e0 | | Load_Encached Standard_Cache
058e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
058f 01cc | | Execute Vector,Catenate
0590 8410 | | Call 0x2,0x10
0591 00d8 | | Load_Top At_Offset_0
0592 0f07 | | Execute_Immediate Equal,0x7
0593 6801 |h | Jump_Zero 0x595
0594 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0595 00cf | | Action Mark_Auxiliary
0596 e9fd | | Load 0x4,-0x3
0597 e9fe | | Load 0x4,-0x2
0598 0a01 | | Execute_Immediate Plus,0x1
0599 0263 | c | Execute Discrete,Above_Bound
059a 701f |p | Jump_Nonzero 0x5ba
059b e011 | | Load 0x0,0x11
059c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059d 4800 |H | Short_Literal 0x0
059e e40c | | Load 0x2,0xc
059f e9ff | | Load 0x4,-0x1
05a0 e00f | | Load 0x0,0xf
05a1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
05a2 c802 | | Store 0x4,0x2
05a3 e802 | | Load 0x4,0x2
05a4 6811 |h | Jump_Zero 0x5b6
05a5 0092 0a4a | J| Action Push_String_Extended,0xa4a ; "Bad status incrementing reference count for code segment "
05a7 e9ff | | Load 0x4,-0x1
05a8 e012 | | Load 0x0,0x12
05a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05aa 01cc | | Execute Vector,Catenate
05ab 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
05ad 01cc | | Execute Vector,Catenate
05ae e802 | | Load 0x4,0x2
05af e011 | | Load 0x0,0x11
05b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05b1 025e | ^ | Execute Discrete,Convert
05b2 1c01 | | Execute_Immediate Run_Utility,0x1
05b3 01cc | | Execute Vector,Catenate
05b4 8412 | | Call 0x2,0x12
05b5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05b6 4801 |H | Short_Literal 0x1
05b7 a40d | | Store_Unchecked 0x2,0xd
05b8 00c8 | | Action Pop_Auxiliary_Range
05b9 3fe1 |? | Loop_Increasing 0x59b
05ba 00c9 | | Action Pop_Auxiliary_Loop
05bb e9fe | | Load 0x4,-0x2
05bc e9fd | | Load 0x4,-0x3
05bd 0a01 | | Execute_Immediate Plus,0x1
05be 0263 | c | Execute Discrete,Above_Bound
05bf 701f |p | Jump_Nonzero 0x5df
05c0 e011 | | Load 0x0,0x11
05c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c2 4800 |H | Short_Literal 0x0
05c3 e40c | | Load 0x2,0xc
05c4 e9ff | | Load 0x4,-0x1
05c5 e00f | | Load 0x0,0xf
05c6 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
05c7 c802 | | Store 0x4,0x2
05c8 e802 | | Load 0x4,0x2
05c9 6811 |h | Jump_Zero 0x5db
05ca 0092 0a4b | K| Action Push_String_Extended,0xa4b ; "Bad status decrementing reference count for code segment "
05cc e9ff | | Load 0x4,-0x1
05cd e012 | | Load 0x0,0x12
05ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05cf 01cc | | Execute Vector,Catenate
05d0 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
05d2 01cc | | Execute Vector,Catenate
05d3 e802 | | Load 0x4,0x2
05d4 e011 | | Load 0x0,0x11
05d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d6 025e | ^ | Execute Discrete,Convert
05d7 1c01 | | Execute_Immediate Run_Utility,0x1
05d8 01cc | | Execute Vector,Catenate
05d9 8412 | | Call 0x2,0x12
05da 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05db 4801 |H | Short_Literal 0x1
05dc a40d | | Store_Unchecked 0x2,0xd
05dd 00c8 | | Action Pop_Auxiliary_Range
05de 3fe1 |? | Loop_Increasing 0x5c0
05df 00ce | | Action Pop_Auxiliary
05e0 e011 | | Load 0x0,0x11
05e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05e2 00e2 | | Load_Encached Integer_Cache
05e3 4800 |H | Short_Literal 0x0
05e4 4800 |H | Short_Literal 0x0
05e5 e40c | | Load 0x2,0xc
05e6 e9ff | | Load 0x4,-0x1
05e7 e00f | | Load 0x0,0xf
05e8 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
05e9 005b | [ | Store_Top Discrete,At_Offset_3
05ea 005b | [ | Store_Top Discrete,At_Offset_3
05eb 00da | | Load_Top At_Offset_2
05ec 7023 |p# | Jump_Nonzero 0x610
05ed 00d9 | | Load_Top At_Offset_1
05ee e9fd | | Load 0x4,-0x3
05ef 027f | | Execute Discrete,Equal
05f0 6809 |h | Jump_Zero 0x5fa
05f1 e40f | | Load 0x2,0xf
05f2 4803 |H | Short_Literal 0x3
05f3 0092 0a4c | L| Action Push_String_Extended,0xa4c ; " Reference count has been corrected"
05f5 8410 | | Call 0x2,0x10
05f6 e407 | | Load 0x2,0x7
05f7 0a01 | | Execute_Immediate Plus,0x1
05f8 c407 | | Store 0x2,0x7
05f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05fa 0092 0a4d | M| Action Push_String_Extended,0xa4d ; "Error in correcting reference count for code segment "
05fc e9ff | | Load 0x4,-0x1
05fd e012 | | Load 0x0,0x12
05fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05ff 01cc | | Execute Vector,Catenate
0600 0092 0a4e | N| Action Push_String_Extended,0xa4e ; ": new reference count ="
0602 01cc | | Execute Vector,Catenate
0603 00da | | Load_Top At_Offset_2
0604 00e0 | | Load_Encached Standard_Cache
0605 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0606 01cc | | Execute Vector,Catenate
0607 0092 0a49 | I| Action Push_String_Extended,0xa49 ; ", but expected value is"
0609 01cc | | Execute Vector,Catenate
060a e9fd | | Load 0x4,-0x3
060b 00e0 | | Load_Encached Standard_Cache
060c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
060d 01cc | | Execute Vector,Catenate
060e 8412 | | Call 0x2,0x12
060f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0610 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "Bad status getting reference count for code segment "
0612 e9ff | | Load 0x4,-0x1
0613 e012 | | Load 0x0,0x12
0614 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0615 01cc | | Execute Vector,Catenate
0616 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
0618 01cc | | Execute Vector,Catenate
0619 00db | | Load_Top At_Offset_3
061a e011 | | Load 0x0,0x11
061b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
061c 025e | ^ | Execute Discrete,Convert
061d 1c01 | | Execute_Immediate Run_Utility,0x1
061e 01cc | | Execute Vector,Catenate
061f 8412 | | Call 0x2,0x12
0620 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0621 0000 0000 | | .BLANK 0000[0x7]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062f | / | .CONST 0x062f ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0002 | | .CONST 0x0002 ; Number of locals
062b INIT_0628:
062b 00db | | Load_Top At_Offset_3
062c e9fd | | Load 0x4,-0x3
062d 027e | ~ | Execute Discrete,Not_Equal
062e 0007 | | Action Break_Optional
062f BODY_0628:
062f e40f | | Load 0x2,0xf
0630 4802 |H | Short_Literal 0x2
0631 0092 0a4f | O| Action Push_String_Extended,0xa4f ; "Reference count is"
0633 e9fe | | Load 0x4,-0x2
0634 00e0 | | Load_Encached Standard_Cache
0635 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0636 01cc | | Execute Vector,Catenate
0637 0092 0a50 | P| Action Push_String_Extended,0xa50 ; " for code segment "
0639 01cc | | Execute Vector,Catenate
063a e9ff | | Load 0x4,-0x1
063b 8414 | | Call 0x2,0x14
063c 01cc | | Execute Vector,Catenate
063d 0092 0a51 | Q| Action Push_String_Extended,0xa51 ; "; uses include:"
063f 01cc | | Execute Vector,Catenate
0640 8410 | | Call 0x2,0x10
0641 00db | | Load_Top At_Offset_3
0642 8602 | | Call 0x3,0x2
0643 00d8 | | Load_Top At_Offset_0
0644 6804 |h | Jump_Zero 0x649
0645 e9fd | | Load 0x4,-0x3
0646 e9fe | | Load 0x4,-0x2
0647 e9ff | | Load 0x4,-0x1
0648 8603 | | Call 0x3,0x3
0649 4504 |E | Exit_Suprogram New_Top_Offset 0x4
064a 0000 0000 | | .BLANK 0000[0x6]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653 | S | .CONST 0x0653 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0001 | | .CONST 0x0001 ; Number of locals
0653 BODY_0650:
0653 INIT_0650:
0653 4801 |H | Short_Literal 0x1
0654 e7fe | | Load 0x3,-0x2
0655 e003 | | Load 0x0,0x3
0656 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
0657 180f | | Execute Package,Field_Execute,Field_Number 0xf
0658 e9ff | | Load 0x4,-0x1
0659 e418 | | Load 0x2,0x18
065a 180f | | Execute Package,Field_Execute,Field_Number 0xf
065b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
065c 0000 0000 | | .BLANK 0000[0x4]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 066b | k | .CONST 0x066b ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0003 | | .CONST 0x0003 ; Number of locals
0663 INIT_0660:
0663 00ec | | Load_Encached Diana_Tree_Cache
0664 e7ff | | Load 0x3,-0x1
0665 e003 | | Load 0x0,0x3
0666 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
0667 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0668 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0669 029f 07eb | | Declare_Subprogram INIT_07e8,For_Call
066b BODY_0660:
066b 8803 | | Call 0x4,0x3
066c 00d9 | | Load_Top At_Offset_1
066d 00eb | | Load_Encached Diana_Cache
066e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
066f 700d |p | Jump_Nonzero 0x67d
0670 e001 | | Load 0x0,0x1
0671 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0672 00da | | Load_Top At_Offset_2
0673 e024 | $ | Load 0x0,0x24
0674 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
0675 6807 |h | Jump_Zero 0x67d
0676 e7ff | | Load 0x3,-0x1
0677 e001 | | Load 0x0,0x1
0678 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0679 00db | | Load_Top At_Offset_3
067a e024 | $ | Load 0x0,0x24
067b 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
067c 841c | | Call 0x2,0x1c
067d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
067e 0000 0000 | | .XXX[0x2]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 068a | | .CONST 0x068a ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0002 | | .CONST 0x0002 ; Number of locals
0683 INIT_0680:
0683 4800 |H | Short_Literal 0x0
0684 00db | | Load_Top At_Offset_3
0685 e40a | | Load 0x2,0xa
0686 e025 | % | Load 0x0,0x25
0687 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0688 00e4 | | Load_Encached Positive_Cache
0689 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
068a BODY_0680:
068a 00d8 | | Load_Top At_Offset_0
068b 0aff | | Execute_Immediate Plus,-0x1
068c e9ff | | Load 0x4,-0x1
068d 01d7 | | Execute Vector,Field_Read
068e 0f2e | . | Execute_Immediate Equal,0x2e
068f 6803 |h | Jump_Zero 0x693
0690 00d8 | | Load_Top At_Offset_0
0691 0aff | | Execute_Immediate Plus,-0x1
0692 0059 | Y | Store_Top Discrete,At_Offset_1
0693 00db | | Load_Top At_Offset_3
0694 01dd | | Execute Vector,First
0695 00d9 | | Load_Top At_Offset_1
0696 0aff | | Execute_Immediate Plus,-0x1
0697 00e4 | | Load_Encached Positive_Cache
0698 025b | [ | Execute Discrete,Check_In_Type
0699 e9ff | | Load 0x4,-0x1
069a 01cf | | Execute Vector,Slice_Read
069b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
069c 0000 0000 | | .BLANK 0000[0x4]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 4800 |H | Short_Literal 0x0
06a4 e602 | | Load 0x3,0x2
06a5 e9ff | | Load 0x4,-0x1
06a6 e418 | | Load 0x2,0x18
06a7 180f | | Execute Package,Field_Execute,Field_Number 0xf
06a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06a9 0000 0000 | | .BLANK 0000[0x7]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b9 | | .CONST 0x06b9 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0004 | | .CONST 0x0004 ; Number of locals
06b3 INIT_06b0:
06b3 e007 | | Load 0x0,0x7
06b4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
06b5 029f 080b | | Declare_Subprogram INIT_0808,For_Call
06b7 029f 0823 | #| Declare_Subprogram INIT_0820,For_Call
06b9 BODY_06b0:
06b9 e408 | | Load 0x2,0x8
06ba 0f00 | | Execute_Immediate Equal,0x0
06bb e406 | | Load 0x2,0x6
06bc e407 | | Load 0x2,0x7
06bd 027f | | Execute Discrete,Equal
06be 0279 | y | Execute Discrete,And
06bf 6803 |h | Jump_Zero 0x6c3
06c0 4803 |H | Short_Literal 0x3
06c1 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
06c2 7802 |x | Jump 0x6c5
06c3 4805 |H | Short_Literal 0x5
06c4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
06c5 e40f | | Load 0x2,0xf
06c6 00db | | Load_Top At_Offset_3
06c7 0092 0a52 | R| Action Push_String_Extended,0xa52 ; "Checked"
06c9 e402 | | Load 0x2,0x2
06ca 00e0 | | Load_Encached Standard_Cache
06cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06cc 01cc | | Execute Vector,Catenate
06cd 0092 0a53 | S| Action Push_String_Extended,0xa53 ; " use"
06cf 01cc | | Execute Vector,Catenate
06d0 00ea | | Load_Encached Null_String_Cache
06d1 e402 | | Load 0x2,0x2
06d2 8803 | | Call 0x4,0x3
06d3 01cc | | Execute Vector,Catenate
06d4 0092 0a54 | T| Action Push_String_Extended,0xa54 ; " of"
06d6 01cc | | Execute Vector,Catenate
06d7 e403 | | Load 0x2,0x3
06d8 00e0 | | Load_Encached Standard_Cache
06d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06da 01cc | | Execute Vector,Catenate
06db 0092 0a55 | U| Action Push_String_Extended,0xa55 ; " code segment"
06dd 01cc | | Execute Vector,Catenate
06de 00ea | | Load_Encached Null_String_Cache
06df e403 | | Load 0x2,0x3
06e0 8803 | | Call 0x4,0x3
06e1 01cc | | Execute Vector,Catenate
06e2 0092 0a54 | T| Action Push_String_Extended,0xa54 ; " of"
06e4 01cc | | Execute Vector,Catenate
06e5 e404 | | Load 0x2,0x4
06e6 00e0 | | Load_Encached Standard_Cache
06e7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06e8 01cc | | Execute Vector,Catenate
06e9 0092 0a56 | V| Action Push_String_Extended,0xa56 ; " unit"
06eb 01cc | | Execute Vector,Catenate
06ec 00ea | | Load_Encached Null_String_Cache
06ed e404 | | Load 0x2,0x4
06ee 8803 | | Call 0x4,0x3
06ef 01cc | | Execute Vector,Catenate
06f0 0092 0a57 | W| Action Push_String_Extended,0xa57 ; " in"
06f2 01cc | | Execute Vector,Catenate
06f3 e405 | | Load 0x2,0x5
06f4 00e0 | | Load_Encached Standard_Cache
06f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06f6 01cc | | Execute Vector,Catenate
06f7 0092 0a58 | X| Action Push_String_Extended,0xa58 ; " program librar"
06f9 01cc | | Execute Vector,Catenate
06fa 0092 0a59 | Y| Action Push_String_Extended,0xa59 ; "y"
06fc e405 | | Load 0x2,0x5
06fd 8803 | | Call 0x4,0x3
06fe 01cc | | Execute Vector,Catenate
06ff 0092 0a5a | Z| Action Push_String_Extended,0xa5a ; ", found"
0701 01cc | | Execute Vector,Catenate
0702 e406 | | Load 0x2,0x6
0703 00e0 | | Load_Encached Standard_Cache
0704 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0705 01cc | | Execute Vector,Catenate
0706 0092 0a5b | [| Action Push_String_Extended,0xa5b ; " inconsistent reference count"
0708 01cc | | Execute Vector,Catenate
0709 00ea | | Load_Encached Null_String_Cache
070a e406 | | Load 0x2,0x6
070b 8803 | | Call 0x4,0x3
070c 01cc | | Execute Vector,Catenate
070d 0092 0a5c | \| Action Push_String_Extended,0xa5c ; " and"
070f e408 | | Load 0x2,0x8
0710 00e0 | | Load_Encached Standard_Cache
0711 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0712 01cc | | Execute Vector,Catenate
0713 0092 0a5d | ]| Action Push_String_Extended,0xa5d ; " other error"
0715 01cc | | Execute Vector,Catenate
0716 00ea | | Load_Encached Null_String_Cache
0717 e408 | | Load 0x2,0x8
0718 8803 | | Call 0x4,0x3
0719 01cc | | Execute Vector,Catenate
071a e408 | | Load 0x2,0x8
071b 8804 | | Call 0x4,0x4
071c 01cc | | Execute Vector,Catenate
071d 0092 0a5e | ^| Action Push_String_Extended,0xa5e ; ", corrected"
071f e407 | | Load 0x2,0x7
0720 00e0 | | Load_Encached Standard_Cache
0721 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0722 01cc | | Execute Vector,Catenate
0723 0092 0a5f | _| Action Push_String_Extended,0xa5f ; " code segment reference count"
0725 01cc | | Execute Vector,Catenate
0726 00ea | | Load_Encached Null_String_Cache
0727 e407 | | Load 0x2,0x7
0728 8803 | | Call 0x4,0x3
0729 01cc | | Execute Vector,Catenate
072a e407 | | Load 0x2,0x7
072b 8804 | | Call 0x4,0x4
072c 01cc | | Execute Vector,Catenate
072d 8410 | | Call 0x2,0x10
072e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
072f 0000 | | .XXX[0x1]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 073e | > | .CONST 0x073e ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 e40d | | Load 0x2,0xd
0734 6805 |h | Jump_Zero 0x73a
0735 e40f | | Load 0x2,0xf
0736 4805 |H | Short_Literal 0x5
0737 0092 0a60 | `| Action Push_String_Extended,0xa60 ; "Abandoning all code segment reference count updates because of errors"
0739 8410 | | Call 0x2,0x10
073a 4800 |H | Short_Literal 0x0
073b a40d | | Store_Unchecked 0x2,0xd
073c e60b | | Load 0x3,0xb
073d 0101 | | Execute Exception,Reraise
073e TRAP_0730:
073e e007 | | Load 0x0,0x7
073f 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0740 010f | | Execute Exception,Equal
0741 6802 |h | Jump_Zero 0x744
0742 00d8 | | Load_Top At_Offset_0
0743 0101 | | Execute Exception,Reraise
0744 e013 | | Load 0x0,0x13
0745 010f | | Execute Exception,Equal
0746 6802 |h | Jump_Zero 0x749
0747 0008 | | Action Idle
0748 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0749 e40f | | Load 0x2,0xf
074a 4808 |H | Short_Literal 0x8
074b 0092 0a61 | a| Action Push_String_Extended,0xa61 ; "Unexpected exception in Check_Code_Segment_Reference_Counts: "
074d e021 | ! | Load 0x0,0x21
074e 180d | | Execute Package,Field_Execute,Field_Number 0xd
074f 01cc | | Execute Vector,Catenate
0750 8410 | | Call 0x2,0x10
0751 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0752 0000 0000 | | .BLANK 0000[0x6]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b | [ | .CONST 0x075b ; Address of begin
0759 0770 | p | .CONST 0x0770 ; Address of exception handler
075a 0001 | | .CONST 0x0001 ; Number of locals
075b BODY_0758:
075b INIT_0758:
075b 0092 0a62 | b| Action Push_String_Extended,0xa62 ; "Exception raised getting name of some unit in program library "
075d e7ff | | Load 0x3,-0x1
075e e003 | | Load 0x0,0x3
075f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0760 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0761 e003 | | Load 0x0,0x3
0762 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
0763 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0764 e009 | | Load 0x0,0x9
0765 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0766 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0767 01cc | | Execute Vector,Catenate
0768 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
076a 01cc | | Execute Vector,Catenate
076b e021 | ! | Load 0x0,0x21
076c 180d | | Execute Package,Field_Execute,Field_Number 0xd
076d 01cc | | Execute Vector,Catenate
076e 8412 | | Call 0x2,0x12
076f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0770 TRAP_0758:
0770 0007 | | Action Break_Optional
0771 0092 0a63 | c| Action Push_String_Extended,0xa63 ; "Exception raised getting name of unit: "
0773 e021 | ! | Load 0x0,0x21
0774 180d | | Execute Package,Field_Execute,Field_Number 0xd
0775 01cc | | Execute Vector,Catenate
0776 8412 | | Call 0x2,0x12
0777 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b | { | .CONST 0x077b ; Address of begin
0779 0004 | | .CONST 0x0004 ; Address of exception handler
077a 0001 | | .CONST 0x0001 ; Number of locals
077b BODY_0778:
077b INIT_0778:
077b 00da | | Load_Top At_Offset_2
077c 680d |h | Jump_Zero 0x78a
077d e802 | | Load 0x4,0x2
077e 0a01 | | Execute_Immediate Plus,0x1
077f c802 | | Store 0x4,0x2
0780 0092 0a64 | d| Action Push_String_Extended,0xa64 ; " "
0782 e802 | | Load 0x4,0x2
0783 00e0 | | Load_Encached Standard_Cache
0784 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0785 01cc | | Execute Vector,Catenate
0786 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
0788 01cc | | Execute Vector,Catenate
0789 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
078a 0092 0a64 | d| Action Push_String_Extended,0xa64 ; " "
078c 4801 |H | Short_Literal 0x1
078d e802 | | Load 0x4,0x2
078e 00e0 | | Load_Encached Standard_Cache
078f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0790 01db | | Execute Vector,Length
0791 00e9 | | Load_Encached String_Cache
0792 0334 | 4 | Declare_Variable Array,With_Constraint
0793 00d8 | | Load_Top At_Offset_0
0794 01dc | | Execute Vector,Last
0795 4801 |H | Short_Literal 0x1
0796 0263 | c | Execute Discrete,Above_Bound
0797 7005 |p | Jump_Nonzero 0x79d
0798 482d |H- | Short_Literal 0x2d
0799 00d9 | | Load_Top At_Offset_1
079a ea03 | | Load 0x5,0x3
079b 01d6 | | Execute Vector,Field_Write
079c 3ffb |? | Loop_Increasing 0x798
079d 01cc | | Execute Vector,Catenate
079e 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
07a0 01cc | | Execute Vector,Catenate
07a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a2 0000 0000 | | .BLANK 0000[0x6]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab | | .CONST 0x07ab ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0001 | | .CONST 0x0001 ; Number of locals
07ab BODY_07a8:
07ab INIT_07a8:
07ab e40f | | Load 0x2,0xf
07ac 4802 |H | Short_Literal 0x2
07ad ebfe | | Load 0x5,-0x2
07ae ebff | | Load 0x5,-0x1
07af 8417 | | Call 0x2,0x17
07b0 8803 | | Call 0x4,0x3
07b1 ebfe | | Load 0x5,-0x2
07b2 8415 | | Call 0x2,0x15
07b3 01cc | | Execute Vector,Catenate
07b4 0092 0a36 | 6| Action Push_String_Extended,0xa36 ; "code segment object list of "
07b6 01cc | | Execute Vector,Catenate
07b7 ebff | | Load 0x5,-0x1
07b8 8416 | | Call 0x2,0x16
07b9 01cc | | Execute Vector,Catenate
07ba 8410 | | Call 0x2,0x10
07bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07bc 0000 0000 | | .BLANK 0000[0x4]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3 | | .CONST 0x07c3 ; Address of begin
07c1 0004 | | .CONST 0x0004 ; Address of exception handler
07c2 0001 | | .CONST 0x0001 ; Number of locals
07c3 BODY_07c0:
07c3 INIT_07c0:
07c3 00db | | Load_Top At_Offset_3
07c4 680e |h | Jump_Zero 0x7d3
07c5 e40f | | Load 0x2,0xf
07c6 4802 |H | Short_Literal 0x2
07c7 4801 |H | Short_Literal 0x1
07c8 8803 | | Call 0x4,0x3
07c9 0092 0a65 | e| Action Push_String_Extended,0xa65 ; "archived code segment list for loaded main program "
07cb 01cc | | Execute Vector,Catenate
07cc ebff | | Load 0x5,-0x1
07cd e009 | | Load 0x0,0x9
07ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07cf 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
07d0 01cc | | Execute Vector,Catenate
07d1 8410 | | Call 0x2,0x10
07d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07d3 e40f | | Load 0x2,0xf
07d4 4802 |H | Short_Literal 0x2
07d5 4801 |H | Short_Literal 0x1
07d6 8803 | | Call 0x4,0x3
07d7 0092 0a66 | f| Action Push_String_Extended,0xa66 ; "archived code segment list for code view "
07d9 01cc | | Execute Vector,Catenate
07da ebff | | Load 0x5,-0x1
07db e009 | | Load 0x0,0x9
07dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07dd 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
07de 01cc | | Execute Vector,Catenate
07df 8410 | | Call 0x2,0x10
07e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
07e1 0000 0000 | | .BLANK 0000[0x7]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb | | .CONST 0x07eb ; Address of begin
07e9 07f4 | | .CONST 0x07f4 ; Address of exception handler
07ea 0001 | | .CONST 0x0001 ; Number of locals
07eb BODY_07e8:
07eb INIT_07e8:
07eb e802 | | Load 0x4,0x2
07ec 00eb | | Load_Encached Diana_Cache
07ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07ee 0f35 | 5 | Execute_Immediate Equal,0x35
07ef 6803 |h | Jump_Zero 0x7f3
07f0 0092 0a67 | g| Action Push_String_Extended,0xa67 ; "It is very unlikely that this message will ever be emitted"
07f2 8412 | | Call 0x2,0x12
07f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07f4 TRAP_07e8:
07f4 0007 | | Action Break_Optional
07f5 0092 0a68 | h| Action Push_String_Extended,0xa68 ; "Found corrupt Comp_Unit_Id for unit "
07f7 e7ff | | Load 0x3,-0x1
07f8 e003 | | Load 0x0,0x3
07f9 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
07fa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07fb 01cc | | Execute Vector,Catenate
07fc 8412 | | Call 0x2,0x12
07fd 00eb | | Load_Encached Diana_Cache
07fe 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07ff a802 | | Store_Unchecked 0x4,0x2
0800 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0801 0000 0000 | | .BLANK 0000[0x7]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b | | .CONST 0x080b ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0001 | | .CONST 0x0001 ; Number of locals
080b BODY_0808:
080b INIT_0808:
080b 00da | | Load_Top At_Offset_2
080c 0f01 | | Execute_Immediate Equal,0x1
080d 6802 |h | Jump_Zero 0x810
080e 00db | | Load_Top At_Offset_3
080f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0810 00db | | Load_Top At_Offset_3
0811 01db | | Execute Vector,Length
0812 7003 |p | Jump_Nonzero 0x816
0813 0092 0a69 | i| Action Push_String_Extended,0xa69 ; "s"
0815 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0816 00db | | Load_Top At_Offset_3
0817 0092 0a59 | Y| Action Push_String_Extended,0xa59 ; "y"
0819 01df | | Execute Vector,Equal
081a 6803 |h | Jump_Zero 0x81e
081b 0092 0a6a | j| Action Push_String_Extended,0xa6a ; "ies"
081d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
081e 0831 | 1 | Execute_Immediate Raise,0x31
081f 0000 | | .XXX[0x1]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823 | # | .CONST 0x0823 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0001 | | .CONST 0x0001 ; Number of locals
0823 BODY_0820:
0823 INIT_0820:
0823 00da | | Load_Top At_Offset_2
0824 7002 |p | Jump_Nonzero 0x827
0825 00ea | | Load_Encached Null_String_Cache
0826 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0827 00db | | Load_Top At_Offset_3
0828 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0829 0000 0000 | | .BLANK 0000[0x7]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 087a | z | .CONST 0x087a ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0017 | | .CONST 0x0017 ; Number of locals
0833 INIT_0830:
0833 029a 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Visible,Unelaborated
0835 4800 |H | Short_Literal 0x0
0836 4801 |H | Short_Literal 0x1
0837 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call
0839 03fe | | Declare_Type Discrete,Defined,Visible
083a 029a 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call,Visible,Unelaborated
083c 029a 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call,Visible,Unelaborated
083e 029a 097b | {| Declare_Subprogram INIT_0978,For_Outer_Call,Visible,Unelaborated
0840 00bf | | Action Accept_Activation
0841 00e1 | | Load_Encached Boolean_Cache
0842 4802 |H | Short_Literal 0x2
0843 e001 | | Load 0x0,0x1
0844 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0845 e002 | | Load 0x0,0x2
0846 4802 |H | Short_Literal 0x2
0847 e003 | | Load 0x0,0x3
0848 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0849 e20e | | Load 0x1,0xe
084a 029f 09b3 | | Declare_Subprogram INIT_09b0,For_Call
084c 4804 |H | Short_Literal 0x4
084d 4800 |H | Short_Literal 0x0
084e 4802 |H | Short_Literal 0x2
084f 4800 |H | Short_Literal 0x0
0850 4801 |H | Short_Literal 0x1
0851 031d | | Declare_Type Variant_Record,Defined
0852 e004 | | Load 0x0,0x4
0853 e005 | | Load 0x0,0x5
0854 00da | | Load_Top At_Offset_2
0855 e006 | | Load 0x0,0x6
0856 0387 | | Declare_Variable Package
0857 00d8 | | Load_Top At_Offset_0
0858 020f | | Execute Module,Activate
0859 00d8 | | Load_Top At_Offset_0
085a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
085b 00e3 | | Load_Encached Natural_Cache
085c 00e3 | | Load_Encached Natural_Cache
085d 029f 09fb | | Declare_Subprogram INIT_09f8,For_Call
085f 4803 |H | Short_Literal 0x3
0860 032d | - | Declare_Type Record,Defined
0861 029b 0a1b | | Declare_Subprogram INIT_0a18,For_Outer_Call,Unelaborated
0863 e007 | | Load 0x0,0x7
0864 e008 | | Load 0x0,0x8
0865 4865 |He | Short_Literal 0x65
0866 e009 | | Load 0x0,0x9
0867 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0868 e214 | | Load 0x1,0x14
0869 1d15 | | Execute_Immediate Reference_Lex_1,0x15
086a e00a | | Load 0x0,0xa
086b 0387 | | Declare_Variable Package
086c 00d8 | | Load_Top At_Offset_0
086d 020f | | Execute Module,Activate
086e 00d8 | | Load_Top At_Offset_0
086f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0870 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0871 00c7 | | Action Elaborate_Subprogram
0872 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0873 00c7 | | Action Elaborate_Subprogram
0874 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0875 00c7 | | Action Elaborate_Subprogram
0876 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0877 00c7 | | Action Elaborate_Subprogram
0878 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0879 00c7 | | Action Elaborate_Subprogram
087a BODY_0830:
087a 00d9 | | Load_Top At_Offset_1
087b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
087c 4865 |He | Short_Literal 0x65
087d 00db | | Load_Top At_Offset_3
087e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
087f 0039 | 9 | Store_Top Access,At_Offset_1
0880 00bc | | Action Signal_Activated
0881 00bb | | Action Signal_Completion
0882 0000 0000 | | .BLANK 0000[0x6]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 0890 | | .CONST 0x0890 ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0003 | | .CONST 0x0003 ; Number of locals
088b INIT_0888:
088b e214 | | Load 0x1,0x14
088c 0322 | " | Declare_Variable Record
088d 00d8 | | Load_Top At_Offset_0
088e 1c00 | | Execute_Immediate Run_Utility,0x0
088f 00e1 | | Load_Encached Boolean_Cache
0890 BODY_0888:
0890 00e1 | | Load_Encached Boolean_Cache
0891 00da | | Load_Top At_Offset_2
0892 e5ff | | Load 0x2,-0x1
0893 e217 | | Load 0x1,0x17
0894 e216 | | Load 0x1,0x16
0895 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0896 00d1 | | Pop_Control Pop_Count_1
0897 0059 | Y | Store_Top Discrete,At_Offset_1
0898 00d8 | | Load_Top At_Offset_0
0899 7007 |p | Jump_Nonzero 0x8a1
089a e5fe | | Load 0x2,-0x2
089b 00da | | Load_Top At_Offset_2
089c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
089d e00b | | Load 0x0,0xb
089e 0a01 | | Execute_Immediate Plus,0x1
089f c00b | | Store 0x0,0xb
08a0 7808 |x | Jump 0x8a9
08a1 00d9 | | Load_Top At_Offset_1
08a2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
08a3 e5fe | | Load 0x2,-0x2
08a4 027f | | Execute Discrete,Equal
08a5 7001 |p | Jump_Nonzero 0x8a7
08a6 0887 | | Execute_Immediate Raise,0x87
08a7 0008 | | Action Idle
08a8 0007 | | Action Break_Optional
08a9 00d9 | | Load_Top At_Offset_1
08aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
08ab 4801 |H | Short_Literal 0x1
08ac e212 | | Load 0x1,0x12
08ad 1c08 | | Execute_Immediate Run_Utility,0x8
08ae e5fd | | Load 0x2,-0x3
08af e212 | | Load 0x1,0x12
08b0 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
08b1 0119 | | Execute Any,Check_In_Formal_Type
08b2 00d9 | | Load_Top At_Offset_1
08b3 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
08b4 e5fc | | Load 0x2,-0x4
08b5 00d9 | | Load_Top At_Offset_1
08b6 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
08b7 e213 | | Load 0x1,0x13
08b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08b9 00da | | Load_Top At_Offset_2
08ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
08bb e5fc | | Load 0x2,-0x4
08bc e5fd | | Load 0x2,-0x3
08bd 800c | | Call 0x0,0xc
08be 6805 |h | Jump_Zero 0x8c4
08bf 00d9 | | Load_Top At_Offset_1
08c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08c1 0a01 | | Execute_Immediate Plus,0x1
08c2 00da | | Load_Top At_Offset_2
08c3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
08c4 e217 | | Load 0x1,0x17
08c5 4800 |H | Short_Literal 0x0
08c6 00db | | Load_Top At_Offset_3
08c7 e5ff | | Load 0x2,-0x1
08c8 e216 | | Load 0x1,0x16
08c9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08ca c217 | | Store 0x1,0x17
08cb 4505 |E | Exit_Suprogram New_Top_Offset 0x5
08cc 0000 0000 | | .BLANK 0000[0x4]
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 4603 |F | Jump_Case 0x4
08d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
08d5 7802 |x | Jump 0x8d8 ; case 0x1
08d6 7805 |x | Jump 0x8dc ; case 0x2
08d7 7809 |x | Jump 0x8e1 ; case 0x3
08d8 00da | | Load_Top At_Offset_2
08d9 0091 0a22 | "| Action Push_String_Extended_Indexed,0xa22 ; "FOR_CODE_VIEW"
08db 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
08dc 00db | | Load_Top At_Offset_3
08dd 00db | | Load_Top At_Offset_3
08de 00e0 | | Load_Encached Standard_Cache
08df 181b | | Execute Package,Field_Execute,Field_Number 0x1b
08e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08e1 00da | | Load_Top At_Offset_2
08e2 00e0 | | Load_Encached Standard_Cache
08e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08e4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
08e5 0000 0000 | | .XXX[0x3]
08e7 0000 | |
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08f2 | | .CONST 0x08f2 ; Address of begin
08e9 0004 | | .CONST 0x0004 ; Address of exception handler
08ea 0004 | | .CONST 0x0004 ; Number of locals
08eb INIT_08e8:
08eb e214 | | Load 0x1,0x14
08ec 0322 | " | Declare_Variable Record
08ed 00d8 | | Load_Top At_Offset_0
08ee 1c00 | | Execute_Immediate Run_Utility,0x0
08ef 00e1 | | Load_Encached Boolean_Cache
08f0 e00d | | Load 0x0,0xd
08f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08f2 BODY_08e8:
08f2 00e1 | | Load_Encached Boolean_Cache
08f3 00db | | Load_Top At_Offset_3
08f4 e5ff | | Load 0x2,-0x1
08f5 e217 | | Load 0x1,0x17
08f6 e216 | | Load 0x1,0x16
08f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08f8 00d1 | | Pop_Control Pop_Count_1
08f9 005a | Z | Store_Top Discrete,At_Offset_2
08fa 00d9 | | Load_Top At_Offset_1
08fb 701e |p | Jump_Nonzero 0x91a
08fc e00d | | Load 0x0,0xd
08fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08fe 00e2 | | Load_Encached Integer_Cache
08ff 4800 |H | Short_Literal 0x0
0900 4800 |H | Short_Literal 0x0
0901 e00e | | Load 0x0,0xe
0902 e5ff | | Load 0x2,-0x1
0903 e009 | | Load 0x0,0x9
0904 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0905 e402 | | Load 0x2,0x2
0906 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0907 0059 | Y | Store_Top Discrete,At_Offset_1
0908 00d8 | | Load_Top At_Offset_0
0909 6810 |h | Jump_Zero 0x91a
090a 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "Bad status getting reference count for code segment "
090c e5ff | | Load 0x2,-0x1
090d e00f | | Load 0x0,0xf
090e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
090f 01cc | | Execute Vector,Catenate
0910 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; ": "
0912 01cc | | Execute Vector,Catenate
0913 00d9 | | Load_Top At_Offset_1
0914 e00d | | Load 0x0,0xd
0915 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0916 025e | ^ | Execute Discrete,Convert
0917 1c01 | | Execute_Immediate Run_Utility,0x1
0918 01cc | | Execute Vector,Catenate
0919 8010 | | Call 0x0,0x10
091a 00da | | Load_Top At_Offset_2
091b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
091c 4800 |H | Short_Literal 0x0
091d e212 | | Load 0x1,0x12
091e 1c08 | | Execute_Immediate Run_Utility,0x8
091f e5fe | | Load 0x2,-0x2
0920 e212 | | Load 0x1,0x12
0921 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4
0922 0119 | | Execute Any,Check_In_Formal_Type
0923 00d9 | | Load_Top At_Offset_1
0924 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0925 e5fd | | Load 0x2,-0x3
0926 00d9 | | Load_Top At_Offset_1
0927 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0928 e213 | | Load 0x1,0x13
0929 1811 | | Execute Package,Field_Execute,Field_Number 0x11
092a 00db | | Load_Top At_Offset_3
092b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
092c 00da | | Load_Top At_Offset_2
092d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
092e 0a01 | | Execute_Immediate Plus,0x1
092f 00db | | Load_Top At_Offset_3
0930 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0931 e217 | | Load 0x1,0x17
0932 4800 |H | Short_Literal 0x0
0933 e402 | | Load 0x2,0x2
0934 e5ff | | Load 0x2,-0x1
0935 e216 | | Load 0x1,0x16
0936 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0937 c217 | | Store 0x1,0x17
0938 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0939 0000 0000 | | .BLANK 0000[0x7]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 094f | O | .CONST 0x094f ; Address of begin
0941 0004 | | .CONST 0x0004 ; Address of exception handler
0942 0005 | | .CONST 0x0005 ; Number of locals
0943 INIT_0940:
0943 e214 | | Load 0x1,0x14
0944 0322 | " | Declare_Variable Record
0945 00d8 | | Load_Top At_Offset_0
0946 1c00 | | Execute_Immediate Run_Utility,0x0
0947 00d8 | | Load_Top At_Offset_0
0948 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0949 0007 | | Action Break_Optional
094a e212 | | Load 0x1,0x12
094b 02ff | | Declare_Variable Variant_Record
094c 00d8 | | Load_Top At_Offset_0
094d 1c00 | | Execute_Immediate Run_Utility,0x0
094e 00e1 | | Load_Encached Boolean_Cache
094f BODY_0940:
094f 00e1 | | Load_Encached Boolean_Cache
0950 e402 | | Load 0x2,0x2
0951 e5fc | | Load 0x2,-0x4
0952 e217 | | Load 0x1,0x17
0953 e216 | | Load 0x1,0x16
0954 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0955 00d1 | | Pop_Control Pop_Count_1
0956 0059 | Y | Store_Top Discrete,At_Offset_1
0957 00cf | | Action Mark_Auxiliary
0958 7818 |x | Jump 0x971
0959 00db | | Load_Top At_Offset_3
095a e213 | | Load 0x1,0x13
095b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
095c 00db | | Load_Top At_Offset_3
095d 016d | m | Execute Variant_Record,Structure_Write
095e 00db | | Load_Top At_Offset_3
095f e213 | | Load 0x1,0x13
0960 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0961 a403 | | Store_Unchecked 0x2,0x3
0962 00da | | Load_Top At_Offset_2
0963 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0964 6806 |h | Jump_Zero 0x96b
0965 00da | | Load_Top At_Offset_2
0966 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0967 00db | | Load_Top At_Offset_3
0968 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0969 85fd | | Call 0x2,-0x3
096a 7805 |x | Jump 0x970
096b 00da | | Load_Top At_Offset_2
096c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
096d 00db | | Load_Top At_Offset_3
096e 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
096f 85fe | | Call 0x2,-0x2
0970 00c9 | | Action Pop_Auxiliary_Loop
0971 00db | | Load_Top At_Offset_3
0972 e213 | | Load 0x1,0x13
0973 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0974 6fe4 |o | Jump_Zero 0x959
0975 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0976 0000 0000 | | .XXX[0x2]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 0988 | | .CONST 0x0988 ; Address of begin
0979 0004 | | .CONST 0x0004 ; Address of exception handler
097a 0005 | | .CONST 0x0005 ; Number of locals
097b INIT_0978:
097b e216 | | Load 0x1,0x16
097c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
097d 0322 | " | Declare_Variable Record
097e e009 | | Load 0x0,0x9
097f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0980 02ff | | Declare_Variable Variant_Record
0981 00d8 | | Load_Top At_Offset_0
0982 1c00 | | Execute_Immediate Run_Utility,0x0
0983 e214 | | Load 0x1,0x14
0984 0322 | " | Declare_Variable Record
0985 00d8 | | Load_Top At_Offset_0
0986 1c00 | | Execute_Immediate Run_Utility,0x0
0987 00e1 | | Load_Encached Boolean_Cache
0988 BODY_0978:
0988 00db | | Load_Top At_Offset_3
0989 e217 | | Load 0x1,0x17
098a e216 | | Load 0x1,0x16
098b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
098c 00d1 | | Pop_Control Pop_Count_1
098d 00cf | | Action Mark_Auxiliary
098e 781b |x | Jump 0x9aa
098f e402 | | Load 0x2,0x2
0990 e216 | | Load 0x1,0x16
0991 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0992 e403 | | Load 0x2,0x3
0993 016d | m | Execute Variant_Record,Structure_Write
0994 e402 | | Load 0x2,0x2
0995 e216 | | Load 0x1,0x16
0996 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0997 00d1 | | Pop_Control Pop_Count_1
0998 00e1 | | Load_Encached Boolean_Cache
0999 00db | | Load_Top At_Offset_3
099a e403 | | Load 0x2,0x3
099b e217 | | Load 0x1,0x17
099c e216 | | Load 0x1,0x16
099d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
099e 00d1 | | Pop_Control Pop_Count_1
099f 005a | Z | Store_Top Discrete,At_Offset_2
09a0 00d9 | | Load_Top At_Offset_1
09a1 7001 |p | Jump_Nonzero 0x9a3
09a2 0887 | | Execute_Immediate Raise,0x87
09a3 00da | | Load_Top At_Offset_2
09a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
09a5 00db | | Load_Top At_Offset_3
09a6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
09a7 e403 | | Load 0x2,0x3
09a8 85fe | | Call 0x2,-0x2
09a9 00c9 | | Action Pop_Auxiliary_Loop
09aa e402 | | Load 0x2,0x2
09ab e216 | | Load 0x1,0x16
09ac 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
09ad 6fe1 |o | Jump_Zero 0x98f
09ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09af 0000 | | .XXX[0x1]
09b0 ; --------------------------------------------------------------------------------------
09b0 ; SUBPROGRAM
09b0 ; --------------------------------------------------------------------------------------
09b0 09b3 | | .CONST 0x09b3 ; Address of begin
09b1 0004 | | .CONST 0x0004 ; Address of exception handler
09b2 0001 | | .CONST 0x0001 ; Number of locals
09b3 BODY_09b0:
09b3 INIT_09b0:
09b3 4608 |F | Jump_Case 0x9
09b4 7808 |x | Jump 0x9bd ; case 0x0
09b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
09b6 783a |x: | Jump 0x9f1 ; case 0x2
09b7 7839 |x9 | Jump 0x9f1 ; case 0x3
09b8 7838 |x8 | Jump 0x9f1 ; case 0x4
09b9 7837 |x7 | Jump 0x9f1 ; case 0x5
09ba 781e |x | Jump 0x9d9 ; case 0x6
09bb 7824 |x$ | Jump 0x9e0 ; case 0x7
09bc 782d |x- | Jump 0x9ea ; case 0x8
09bd 00da | | Load_Top At_Offset_2
09be 016c | l | Execute Variant_Record,Is_Constrained
09bf 7009 |p | Jump_Nonzero 0x9c9
09c0 00cf | | Action Mark_Auxiliary
09c1 4801 |H | Short_Literal 0x1
09c2 e5ff | | Load 0x2,-0x1
09c3 1c08 | | Execute_Immediate Run_Utility,0x8
09c4 00d8 | | Load_Top At_Offset_0
09c5 1c00 | | Execute_Immediate Run_Utility,0x0
09c6 c5ff | | Store 0x2,-0x1
09c7 00ce | | Action Pop_Auxiliary
09c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09c9 00da | | Load_Top At_Offset_2
09ca 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09cb 0f01 | | Execute_Immediate Equal,0x1
09cc 7006 |p | Jump_Nonzero 0x9d3
09cd 00da | | Load_Top At_Offset_2
09ce 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4
09cf 00da | | Load_Top At_Offset_2
09d0 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
09d1 1c00 | | Execute_Immediate Run_Utility,0x0
09d2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09d3 00da | | Load_Top At_Offset_2
09d4 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
09d5 00da | | Load_Top At_Offset_2
09d6 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
09d7 1c00 | | Execute_Immediate Run_Utility,0x0
09d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09d9 00db | | Load_Top At_Offset_3
09da 0f01 | | Execute_Immediate Equal,0x1
09db 7002 |p | Jump_Nonzero 0x9de
09dc 4802 |H | Short_Literal 0x2
09dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09de 4801 |H | Short_Literal 0x1
09df 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09e0 00db | | Load_Top At_Offset_3
09e1 e5fe | | Load 0x2,-0x2
09e2 0f01 | | Execute_Immediate Equal,0x1
09e3 7002 |p | Jump_Nonzero 0x9e6
09e4 4802 |H | Short_Literal 0x2
09e5 7801 |x | Jump 0x9e7
09e6 4801 |H | Short_Literal 0x1
09e7 e5ff | | Load 0x2,-0x1
09e8 031b | | Declare_Type Variant_Record,Constrained
09e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09ea 00db | | Load_Top At_Offset_3
09eb e5fe | | Load 0x2,-0x2
09ec e5ff | | Load 0x2,-0x1
09ed 1c06 | | Execute_Immediate Run_Utility,0x6
09ee e5ff | | Load 0x2,-0x1
09ef 02fc | | Declare_Variable Variant_Record,With_Constraint
09f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09f1 0869 | i | Execute_Immediate Raise,0x69
09f2 0000 0000 | | .BLANK 0000[0x6]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 09fb | | .CONST 0x09fb ; Address of begin
09f9 0004 | | .CONST 0x0004 ; Address of exception handler
09fa 0001 | | .CONST 0x0001 ; Number of locals
09fb BODY_09f8:
09fb INIT_09f8:
09fb 4608 |F | Jump_Case 0x9
09fc 7808 |x | Jump 0xa05 ; case 0x0
09fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
09fe 7811 |x | Jump 0xa10 ; case 0x2
09ff 7810 |x | Jump 0xa10 ; case 0x3
0a00 780f |x | Jump 0xa10 ; case 0x4
0a01 780e |x | Jump 0xa10 ; case 0x5
0a02 780d |x | Jump 0xa10 ; case 0x6
0a03 780c |x | Jump 0xa10 ; case 0x7
0a04 780b |x | Jump 0xa10 ; case 0x8
0a05 e213 | | Load 0x1,0x13
0a06 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a07 00db | | Load_Top At_Offset_3
0a08 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0a09 4800 |H | Short_Literal 0x0
0a0a 00db | | Load_Top At_Offset_3
0a0b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0a0c 4800 |H | Short_Literal 0x0
0a0d 00db | | Load_Top At_Offset_3
0a0e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0a0f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0a10 0869 | i | Execute_Immediate Raise,0x69
0a11 0000 0000 | | .BLANK 0000[0x7]
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a1b | | .CONST 0x0a1b ; Address of begin
0a19 0004 | | .CONST 0x0004 ; Address of exception handler
0a1a 0001 | | .CONST 0x0001 ; Number of locals
0a1b BODY_0a18:
0a1b INIT_0a18:
0a1b 00da | | Load_Top At_Offset_2
0a1c e003 | | Load 0x0,0x3
0a1d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0a1e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a1f ; --------------------------------------------------------------------------------------
0a1f ; STRING TABLE
0a1f ; --------------------------------------------------------------------------------------
0a1f 009a | | .STRTAB 0x009a->0x0a6c ; "CODE"
0a20 009c | | .STRTAB 0x009c->0x0a6e ; "ELABORATION"
0a21 00a5 | | .STRTAB 0x00a5->0x0a73 ; "MAIN_PROGRAM_CLOSURE"
0a22 00b7 | | .STRTAB 0x00b7->0x0a7d ; "FOR_CODE_VIEW"
0a23 00c2 | | .STRTAB 0x00c2->0x0a84 ; "FOR_LOADED_MAIN_PROGRAM"
0a24 00d7 | | .STRTAB 0x00d7->0x0a8f ; "<*PROGRAM_LIBRARY>"
0a25 00e7 | | .STRTAB 0x00e7->0x0a98 ; "<???>"
0a26 00ea | | .STRTAB 0x00ea->0x0a9b ; "[Program_Library_Maintenance.Check_Code_Segment_Reference_Counts (Worlds => \x22"
0a27 0135 | 5 | .STRTAB 0x0135->0x0ac1 ; "\x22, Increase_Reference_Counts_That_Are_Too_Small => "
0a28 0166 | f | .STRTAB 0x0166->0x0adb ; ", Decrease_Reference_Counts_That_Are_Too_Large => "
0a29 0196 | | .STRTAB 0x0196->0x0af4 ; ", Options => \x22"
0a2a 01a2 | | .STRTAB 0x01a2->0x0afb ; "\x22, Response => \x22"
0a2b 01b0 | | .STRTAB 0x01b0->0x0b03 ; "\x22);]."
0a2c 01b3 | | .STRTAB 0x01b3->0x0b05 ; "[End of Program_Library_Maintenance.Check_Code_Segment_Reference_Counts command]."
0a2d 0202 | | .STRTAB 0x0202->0x0b2e ; " (segment"
0a2e 0209 | | .STRTAB 0x0209->0x0b32 ; ")"
0a2f 0208 | | .STRTAB 0x0208->0x0b33 ; "Bad status opening code segment "
0a30 0226 | & | .STRTAB 0x0226->0x0b43 ; ": "
0a31 0226 | & | .STRTAB 0x0226->0x0b44 ; "main program closure "
0a32 0239 | 9 | .STRTAB 0x0239->0x0b4e ; "elaboration "
0a33 0243 | C | .STRTAB 0x0243->0x0b54 ; "code view unit "
0a34 0250 | P | .STRTAB 0x0250->0x0b5c ; "Bad status getting reference count for code segment "
0a35 0282 | | .STRTAB 0x0282->0x0b76 ; " found on "
0a36 028a | | .STRTAB 0x028a->0x0b7b ; "code segment object list of "
0a37 02a4 | | .STRTAB 0x02a4->0x0b89 ; "Unexpected class of object found on "
0a38 02c6 | | .STRTAB 0x02c6->0x0b9b ; ":"
0a39 02c5 | | .STRTAB 0x02c5->0x0b9b ; "Bad status getting version for Archived_Code object "
0a3a 02f7 | | .STRTAB 0x02f7->0x0bb5 ; "Bad status opening Archived_Code object "
0a3b 031d | | .STRTAB 0x031d->0x0bc9 ; "for Loaded_Main unit "
0a3c 0330 | 0 | .STRTAB 0x0330->0x0bd4 ; "Checking "
0a3d 0337 | 7 | .STRTAB 0x0337->0x0bd8 ; "Skipping non-R1000 world "
0a3e 034e | N | .STRTAB 0x034e->0x0be5 ; "Bad status getting enclosing directory for "
0a3f 0377 | w | .STRTAB 0x0377->0x0bfa ; "for code view "
0a40 0383 | | .STRTAB 0x0383->0x0c01 ; "]"
0a41 0382 | | .STRTAB 0x0382->0x0c02 ; "]code_database'c(archived_code)"
0a42 039f | | .STRTAB 0x039f->0x0c11 ; "Requested modification of incorrect reference counts, but unable to enter privileged mode"
0a43 03f6 | | .STRTAB 0x03f6->0x0c3e ; "Unable to resolve name \x22"
0a44 040c | | .STRTAB 0x040c->0x0c4a ; "\x22 because "
0a45 0414 | | .STRTAB 0x0414->0x0c4f ; "Bad status getting object for "
0a46 0430 | 0 | .STRTAB 0x0430->0x0c5e ; "Exception raised getting name of unit "
0a47 0454 | T | .STRTAB 0x0454->0x0c71 ; " in program library "
0a48 0466 | f | .STRTAB 0x0466->0x0c7b ; "Reference count ="
0a49 0475 | u | .STRTAB 0x0475->0x0c83 ; ", but expected value is"
0a4a 048a | | .STRTAB 0x048a->0x0c8f ; "Bad status incrementing reference count for code segment "
0a4b 04c1 | | .STRTAB 0x04c1->0x0cab ; "Bad status decrementing reference count for code segment "
0a4c 04f8 | | .STRTAB 0x04f8->0x0cc8 ; " Reference count has been corrected"
0a4d 051c | | .STRTAB 0x051c->0x0cdb ; "Error in correcting reference count for code segment "
0a4e 054f | O | .STRTAB 0x054f->0x0cf5 ; ": new reference count ="
0a4f 0564 | d | .STRTAB 0x0564->0x0d01 ; "Reference count is"
0a50 0574 | t | .STRTAB 0x0574->0x0d0a ; " for code segment "
0a51 0584 | | .STRTAB 0x0584->0x0d13 ; "; uses include:"
0a52 0591 | | .STRTAB 0x0591->0x0d1a ; "Checked"
0a53 0596 | | .STRTAB 0x0596->0x0d1e ; " use"
0a54 0598 | | .STRTAB 0x0598->0x0d20 ; " of"
0a55 0599 | | .STRTAB 0x0599->0x0d21 ; " code segment"
0a56 05a4 | | .STRTAB 0x05a4->0x0d28 ; " unit"
0a57 05a7 | | .STRTAB 0x05a7->0x0d2a ; " in"
0a58 05a8 | | .STRTAB 0x05a8->0x0d2c ; " program librar"
0a59 05b5 | | .STRTAB 0x05b5->0x0d33 ; "y"
0a5a 05b4 | | .STRTAB 0x05b4->0x0d34 ; ", found"
0a5b 05b9 | | .STRTAB 0x05b9->0x0d37 ; " inconsistent reference count"
0a5c 05d4 | | .STRTAB 0x05d4->0x0d46 ; " and"
0a5d 05d6 | | .STRTAB 0x05d6->0x0d48 ; " other error"
0a5e 05e0 | | .STRTAB 0x05e0->0x0d4e ; ", corrected"
0a5f 05e9 | | .STRTAB 0x05e9->0x0d53 ; " code segment reference count"
0a60 0604 | | .STRTAB 0x0604->0x0d62 ; "Abandoning all code segment reference count updates because of errors"
0a61 0647 | G | .STRTAB 0x0647->0x0d84 ; "Unexpected exception in Check_Code_Segment_Reference_Counts: "
0a62 0682 | | .STRTAB 0x0682->0x0da3 ; "Exception raised getting name of some unit in program library "
0a63 06bf | | .STRTAB 0x06bf->0x0dc2 ; "Exception raised getting name of unit: "
0a64 06e4 | | .STRTAB 0x06e4->0x0dd6 ; " "
0a65 06e5 | | .STRTAB 0x06e5->0x0dd7 ; "archived code segment list for loaded main program "
0a66 0716 | | .STRTAB 0x0716->0x0df1 ; "archived code segment list for code view "
0a67 073d | = | .STRTAB 0x073d->0x0e05 ; "It is very unlikely that this message will ever be emitted"
0a68 0775 | u | .STRTAB 0x0775->0x0e22 ; "Found corrupt Comp_Unit_Id for unit "
0a69 0797 | | .STRTAB 0x0797->0x0e34 ; "s"
0a6a 0796 | | .STRTAB 0x0796->0x0e35 ; "ies"
0a6b 0797 | | .STREND 0x0797->0x0e36
0a6c 434f 4445 |CODE| .STRTAB_STRINGS
0e37 0000 | | .XXX[0x1]
0e38 ; --------------------------------------------------------------------------------------
0e38 ; Debug Table
0e38 ; --------------------------------------------------------------------------------------
0e38 0004 000f | | .DEBUG4 0x0004,0x000f,0xc075,0x0000,0x0001,0x0000
0e3e 4d41 150c |MA | .XXX[0x1c2]
0e40 290d 3d39 |) =9|
0e42 5915 4951 |Y IQ|
0e44 7d35 0525 |}5 %|
0e46 3109 3d61 |1 =a|
0e48 154c 2885 | L( |
0e4a 0d3d 3535 | =55|
0e4c 0539 114c | 9 L|
0e4e b90d 3d39 | =9|
0e50 5915 4951 |Y IQ|
0e52 7d35 0525 |}5 %|
0e54 3109 3d61 |1 =a|
0e56 154c 9d4d | L M|
0e58 4115 0c29 |A )|
0e5a 0549 417d | IA}|
0e5c 4d21 3d5c |M!=\|
0e5e 2885 513d |( Q=|
0e60 3d31 4cb9 |=1L |
0e62 3915 515d |9 Q]|
0e64 3d49 2d25 |=I-%|
0e66 391c b905 |9 |
0e68 4941 7d4d |IA}M|
0e6a 213d 5c9d |!=\ |
0e6c 4d41 150c |MA |
0e6e 294d 654d |)MeM|
0e70 5115 357d |Q 5}|
0e72 0905 0d2d | -|
0e74 5540 2885 |U@( |
0e76 0d3d 3535 | =55|
0e78 0539 114c | 9 L|
0e7a b94d 654d | MeM|
0e7c 5115 357d |Q 5}|
0e7e 0905 0d2d | -|
0e80 5540 9d4d |U@ M|
0e82 4115 0c29 |A )|
0e84 490d 197d |I }|
0e86 5539 0d3d |U9 =|
0e88 1115 7d55 | }U|
0e8a 3925 514c |9%QL|
0e8c 2885 5105 |( Q |
0e8e 491d 1551 |I Q|
0e90 4cb9 2535 |L %5|
0e92 4131 1535 |A1 5|
0e94 1539 5105 | 9Q |
0e96 5125 3d38 |Q%=8|
0e98 b949 0d19 | I |
0e9a 7d49 1531 |}I 1|
0e9c 1505 4d14 | M |
0e9e c57c c97c | | ||
0ea0 c8b9 490d | I |
0ea2 197d 5539 | }U9|
0ea4 0d3d 1115 | = |
0ea6 7d55 3925 |}U9%|
0ea8 514c 9d4d |QL M|
0eaa 4115 0c29 |A )|
0eac 0d3d 3535 | =55|
0eae 0539 1028 | 9 (|
0eb0 850d 3d35 | =5|
0eb2 3505 3911 |5 9 |
0eb4 4cb9 0d3d |L =|
0eb6 3535 0539 |55 9|
0eb8 109d 4d41 | MA|
0eba 150c 2951 | )Q|
0ebc 3d2d 1539 |=- 9|
0ebe 7d05 5551 |} UQ|
0ec0 213d 4925 |!=I%|
0ec2 6905 5125 |i Q%|
0ec4 3d38 2885 |=8( |
0ec6 0d3d 3535 | =55|
0ec8 0539 114c | 9 L|
0eca b951 3d2d | Q=-|
0ecc 1539 7d05 | 9} |
0ece 5551 213d |UQ!=|
0ed0 4925 6905 |I%i |
0ed2 5125 3d38 |Q%=8|
0ed4 9d4d 4115 | MA |
0ed6 0c29 5115 | )Q |
0ed8 4935 2539 |I5%9|
0eda 0530 2885 | 0( |
0edc 0d3d 3535 | =55|
0ede 0539 114c | 9 L|
0ee0 b951 1549 | Q I|
0ee2 3525 3905 |5%9 |
0ee4 309d 4d41 |0 MA|
0ee6 150c 2925 | )%|
0ee8 3c28 8525 |<( %|
0eea 3cb9 253c |< %<|
0eec 9d4d 4115 | MA |
0eee 0c29 1d05 | ) |
0ef0 5115 5d05 |Q ] |
0ef2 657d 4149 |e}AI|
0ef4 3d41 1549 |=A I|
0ef6 5164 2885 |Qd( |
0ef8 513d 3d31 |Q==1|
0efa 4cb9 1d05 |L |
0efc 5115 5d05 |Q ] |
0efe 657d 4149 |e}AI|
0f00 3d41 1549 |=A I|
0f02 5164 9d4d |Qd M|
0f04 4115 0c29 |A )|
0f06 0d3d 390d | =9 |
0f08 5549 4915 |UII |
0f0a 3951 7d35 |9Q}5|
0f0c 0541 7d1d | A} |
0f0e 1539 1549 | 9 I|
0f10 250c 2885 |% ( |
0f12 513d 3d31 |Q==1|
0f14 4cb9 0d3d |L =|
0f16 390d 5549 |9 UI|
0f18 4915 3951 |I 9Q|
0f1a 7d35 0541 |}5 A|
0f1c 7d1d 1539 |} 9|
0f1e 1549 250c | I% |
0f20 9d4d 4115 | MA |
0f22 0c29 5165 | )Qe|
0f24 4115 7d25 |A }%|
0f26 3919 3d49 |9 =I|
0f28 3505 5125 |5 Q%|
0f2a 3d38 2885 |=8( |
0f2c 513d 3d31 |Q==1|
0f2e 4cb9 3149 |L 1I|
0f30 34b9 5165 |4 Qe|
0f32 4115 7d25 |A }%|
0f34 3919 3d49 |9 =I|
0f36 3505 5125 |5 Q%|
0f38 3d38 9d4d |=8 M|
0f3a 4115 0c29 |A )|
0f3c 3515 3955 |5 9U|
0f3e 7d3d 4115 |}=A |
0f40 4905 5125 |I Q%|
0f42 3d39 4c28 |=9L(|
0f44 850d 3d35 | =5|
0f46 3505 3911 |5 9 |
0f48 4cb9 3515 |L 5 |
0f4a 3955 7d3d |9U}=|
0f4c 4115 4905 |A I |
0f4e 5125 3d39 |Q%=9|
0f50 4c9d 4d41 |L MA|
0f52 150c 2915 | ) |
0f54 1125 513d | %Q=|
0f56 4828 850d |H( |
0f58 3d35 3505 |=55 |
0f5a 3911 4cb9 |9 L |
0f5c 1511 2551 | %Q|
0f5e 3d48 9d4d |=H M|
0f60 4115 0c29 |A )|
0f62 1125 4d2d | %M-|
0f64 7d11 0515 |} |
0f66 353d 3828 |5=8(|
0f68 8551 3d3d | Q==|
0f6a 314c b911 |1L |
0f6c 254d 2d7d |%M-}|
0f6e 1105 1535 | 5|
0f70 3d38 9d4d |=8 M|
0f72 4115 0c29 |A )|
0f74 0d35 590d | 5Y |
0f76 7d35 0525 |}5 %|
0f78 3951 1539 |9Q 9|
0f7a 0539 0d14 | 9 |
0f7c 2885 0d3d |( =|
0f7e 3535 0539 |55 9|
0f80 114c b90d | L |
0f82 3559 0d7d |5Y }|
0f84 3505 2539 |5 %9|
0f86 5115 3905 |Q 9 |
0f88 390d 149d |9 |
0f8a 4d41 150c |MA |
0f8c 290d 3559 |) 5Y|
0f8e 0d7d 2125 | }!%|
0f90 1549 0549 | I I|
0f92 0d21 6428 | !d(|
0f94 850d 3d35 | =5|
0f96 3505 3911 |5 9 |
0f98 4cb9 0d35 |L 5|
0f9a 590d 7d21 |Y }!|
0f9c 2515 4905 |% I |
0f9e 490d 2164 |I !d|
0fa0 9d4d 4115 | MA |
0fa2 0c29 3d09 | )= |
0fa4 2915 0d51 |) Q|
0fa6 7d4d 1550 |}M P|
0fa8 2885 253c |( %<|
0faa b93d 0929 | = )|
0fac 150d 517d | Q}|
0fae 4d15 509d |M P |
0fb0 4d41 150c |MA |
0fb2 290d 3d35 |) =5|
0fb4 4125 3105 |A%1 |
0fb6 5125 3d39 |Q%=9|
0fb8 7d55 3925 |}U9%|
0fba 514c 2885 |QL( |
0fbc 513d 3d31 |Q==1|
0fbe 4cb9 3149 |L 1I|
0fc0 34b9 0d3d |4 =|
0fc2 3541 2531 |5A%1|
0fc4 0551 253d | Q%=|
0fc6 397d 5539 |9}U9|
0fc8 2551 4c9d |%QL |
0fca 4d41 150c |MA |
0fcc 290d 3559 |) 5Y|
0fce 0d7d 050d | } |
0fd0 0d15 4d4d | MM|
0fd2 7d0d 3d39 |} =9|
0fd4 5149 3d30 |QI=0|
0fd6 2885 0d3d |( =|
0fd8 3535 0539 |55 9|
0fda 114c b90d | L |
0fdc 3559 0d7d |5Y }|
0fde 050d 0d15 | |
0fe0 4d4d 7d0d |MM} |
0fe2 3d39 5149 |=9QI|
0fe4 3d30 9d4d |=0 M|
0fe6 4115 0c29 |A )|
0fe8 5149 0539 |QI 9|
0fea 4d41 3d49 |MA=I|
0fec 5028 8551 |P( Q|
0fee 3d3d 314c |==1L|
0ff0 b939 1551 | 9 Q|
0ff2 5d3d 492d |]=I-|
0ff4 2539 1cb9 |%9 |
0ff6 5149 0539 |QI 9|
0ff8 4d41 3d49 |MA=I|
0ffa 509d 4d41 |P MA|
0ffc 150c 2951 | )Q|
0ffe 1549 3525 | I5%|