|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb
└─⟦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 0898 | | .CONST 0x0898 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0018
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0097 | | .CONST 0x0097 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0025 | % | .CONST 0x0025 ; 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 4800 |H | Short_Literal 0x0
0028 6093 |` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00003fff}
0029 e001 | | Load 0x0,0x1
002a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
002b 03f8 | | Declare_Type Discrete,Constrained
002c 4800 |H | Short_Literal 0x0
002d 4802 |H | Short_Literal 0x2
002e 029f 00c3 | | Declare_Subprogram For_Call,INIT_00c0
0030 03fd | | Declare_Type Discrete,Defined
0031 0092 061c | | Action Push_String_Extended,0x61c ; "<*PROGRAM_LIBRARY>"
0033 0092 061d | | Action Push_String_Extended,0x61d ; "<???>"
0035 e002 | | Load 0x0,0x2
0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0037 02c7 | | Declare_Variable Any
0038 e003 | | Load 0x0,0x3
0039 1810 | | Execute Package,Field_Execute,Field_Number 0x10
003a e002 | | Load 0x0,0x2
003b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
003c a40c | | Store_Unchecked 0x2,0xc
003d e004 | | Load 0x0,0x4
003e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
003f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0040 02c7 | | Declare_Variable Any
0041 4800 |H | Short_Literal 0x0
0042 4800 |H | Short_Literal 0x0
0043 4801 |H | Short_Literal 0x1
0044 e005 | | Load 0x0,0x5
0045 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0046 e40c | | Load 0x2,0xc
0047 e006 | | Load 0x0,0x6
0048 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0049 e007 | | Load 0x0,0x7
004a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004b e004 | | Load 0x0,0x4
004c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
004d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004e a40d | | Store_Unchecked 0x2,0xd
004f 029e 00db | | Declare_Subprogram For_Call,Unelaborated,INIT_00d8
0051 e008 | | Load 0x0,0x8
0052 e009 | | Load 0x0,0x9
0053 e00a | | Load 0x0,0xa
0054 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0055 00e1 | | Load_Encached Boolean_Cache
0056 e00b | | Load 0x0,0xb
0057 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0058 480e |H | Short_Literal 0xe
0059 4802 |H | Short_Literal 0x2
005a 0099 | | Action Reference_Dynamic
005b e00c | | Load 0x0,0xc
005c 0387 | | Declare_Variable Package
005d 00d8 | | Load_Top At_Offset_0
005e 020f | | Execute Module,Activate
005f 00d8 | | Load_Top At_Offset_0
0060 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0061 e00d | | Load 0x0,0xd
0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0063 02c7 | | Declare_Variable Any
0064 00d8 | | Load_Top At_Offset_0
0065 1c00 | | Execute_Immediate Run_Utility,0x0
0066 029f 00e3 | | Declare_Subprogram For_Call,INIT_00e0
0068 029f 00eb | | Declare_Subprogram For_Call,INIT_00e8
006a e00e | | Load 0x0,0xe
006b 1913 | | Execute Package,Field_Reference,Field_Number 0x13
006c 0007 | | Action Break_Optional
006d 029f 00fb | | Declare_Subprogram For_Call,INIT_00f8
006f 029f 010b | | Declare_Subprogram For_Call,INIT_0108
0071 029f 011b | | Declare_Subprogram For_Call,INIT_0118
0073 029f 012b | +| Declare_Subprogram For_Call,INIT_0128
0075 480e |H | Short_Literal 0xe
0076 4802 |H | Short_Literal 0x2
0077 0099 | | Action Reference_Dynamic
0078 00c7 | | Action Elaborate_Subprogram
0079 029f 0173 | s| Declare_Subprogram For_Call,INIT_0170
007b 029f 0183 | | Declare_Subprogram For_Call,INIT_0180
007d 029f 01a3 | | Declare_Subprogram For_Call,INIT_01a0
007f 029f 01b3 | | Declare_Subprogram For_Call,INIT_01b0
0081 029e 01f3 | | Declare_Subprogram For_Call,Unelaborated,INIT_01f0
0083 481d |H | Short_Literal 0x1d
0084 4802 |H | Short_Literal 0x2
0085 0099 | | Action Reference_Dynamic
0086 00c7 | | Action Elaborate_Subprogram
0087 029f 026b | k| Declare_Subprogram For_Call,INIT_0268
0089 029f 028b | | Declare_Subprogram For_Call,INIT_0288
008b 029f 02bb | | Declare_Subprogram For_Call,INIT_02b8
008d 029f 02fb | | Declare_Subprogram For_Call,INIT_02f8
008f 029f 032b | +| Declare_Subprogram For_Call,INIT_0328
0091 029f 0353 | S| Declare_Subprogram For_Call,INIT_0350
0093 029f 040b | | Declare_Subprogram For_Call,INIT_0408
0095 029f 0433 | 3| Declare_Subprogram For_Call,INIT_0430
0097 BODY_0018:
0097 8424 | $ | Call 0x2,0x24
0098 e411 | | Load 0x2,0x11
0099 4800 |H | Short_Literal 0x0
009a 0092 061e | | Action Push_String_Extended,0x61e ; "[Program_Library_Maintenance.Find_Unreferenced_Code_Segments (Options => \x22"
009c e5fe | | Load 0x2,-0x2
009d 01cc | | Execute Vector,Catenate
009e 0092 061f | | Action Push_String_Extended,0x61f ; "\x22, Response => \x22"
00a0 01cc | | Execute Vector,Catenate
00a1 e5fd | | Load 0x2,-0x3
00a2 01cc | | Execute Vector,Catenate
00a3 0092 0620 | | Action Push_String_Extended,0x620 ; "\x22);]"
00a5 01cc | | Execute Vector,Catenate
00a6 8414 | | Call 0x2,0x14
00a7 8425 | % | Call 0x2,0x25
00a8 e40c | | Load 0x2,0xc
00a9 4801 |H | Short_Literal 0x1
00aa 4801 |H | Short_Literal 0x1
00ab e002 | | Load 0x0,0x2
00ac 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ad c40c | | Store 0x2,0xc
00ae e40d | | Load 0x2,0xd
00af e004 | | Load 0x0,0x4
00b0 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00b1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b2 8418 | | Call 0x2,0x18
00b3 e411 | | Load 0x2,0x11
00b4 4800 |H | Short_Literal 0x0
00b5 0092 0621 | !| Action Push_String_Extended,0x621 ; "[End of Program_Library_Maintenance.Find_Unreferenced_Code_Segments command]"
00b7 8414 | | Call 0x2,0x14
00b8 4504 |E | Exit_Subprogram 0x4
00b9 0000 0000 | | .XXX[0x3]
00bb 0000 | |
00bc 0000 0000 | | .LITERAL {0x00000000, 0x00003fff}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4603 |F | Jump_Case 0x3
00c4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00c5 7802 |x | Jump 0xc8 ; case 0x1
00c6 7805 |x | Jump 0xcc ; case 0x2
00c7 7809 |x | Jump 0xd1 ; case 0x3
00c8 00da | | Load_Top At_Offset_2
00c9 0091 0619 | | Action Push_String_Extended_Indexed,0x619 ; "CODE"
00cb 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00cc 00db | | Load_Top At_Offset_3
00cd 00db | | Load_Top At_Offset_3
00ce 00e0 | | Load_Encached Standard_Cache
00cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00d1 00da | | Load_Top At_Offset_2
00d2 00e0 | | Load_Encached Standard_Cache
00d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d4 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
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 00da | | Load_Top At_Offset_2
00dc e00b | | Load 0x0,0xb
00dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00de 4401 |D | Exit_Subprogram With_Result,0x1
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 0f00 | | Execute_Immediate Equal,0x0
00e5 4401 |D | Exit_Subprogram With_Result,0x1
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec e00f | | Load 0x0,0xf
00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ee 025e | ^ | Execute Discrete,Convert
00ef 1c01 | | Execute_Immediate Run_Utility,0x1
00f0 4401 |D | Exit_Subprogram With_Result,0x1
00f1 0000 0000 | | .BLANK 0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00db | | Load_Top At_Offset_3
00fc 0f01 | | Execute_Immediate Equal,0x1
00fd 6802 |h | Jump_Zero 0x100
00fe 00da | | Load_Top At_Offset_2
00ff 4402 |D | Exit_Subprogram With_Result,0x2
0100 4873 |Hs | Short_Literal 0x73
0101 00db | | Load_Top At_Offset_3
0102 01cb | | Execute Vector,Append
0103 4402 |D | Exit_Subprogram With_Result,0x2
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e411 | | Load 0x2,0x11
010c 4807 |H | Short_Literal 0x7
010d e7ff | | Load 0x3,-0x1
010e 8414 | | Call 0x2,0x14
010f e010 | | Load 0x0,0x10
0110 0257 | W | Execute Discrete,Raise
0111 0000 0000 | | .BLANK 0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e411 | | Load 0x2,0x11
011c 4807 |H | Short_Literal 0x7
011d e7ff | | Load 0x3,-0x1
011e 8414 | | Call 0x2,0x14
011f e407 | | Load 0x2,0x7
0120 0a01 | | Execute_Immediate Plus,0x1
0121 c407 | | Store 0x2,0x7
0122 4502 |E | Exit_Subprogram 0x2
0123 0000 0000 | | .BLANK 0000[0x5]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0153 | S | .CONST 0x0153 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0004 | | .CONST 0x0004 ; Number of locals
012b INIT_0128:
012b e005 | | Load 0x0,0x5
012c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012d 02c7 | | Declare_Variable Any
012e 00db | | Load_Top At_Offset_3
012f a602 | | Store_Unchecked 0x3,0x2
0130 e005 | | Load 0x0,0x5
0131 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0132 0266 | f | Execute Discrete,Bounds
0133 e00d | | Load 0x0,0xd
0134 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0135 02a0 | | Declare_Subprogram Null_Subprogram
0136 4801 |H | Short_Literal 0x1
0137 035d | ] | Declare_Type Array,Defined
0138 00d8 | | Load_Top At_Offset_0
0139 0337 | 7 | Declare_Variable Array
013a 00d8 | | Load_Top At_Offset_0
013b 0335 | 5 | Declare_Variable Array,Duplicate
013c 00cd | | Action Spare6_Action
013d 4802 |H | Short_Literal 0x2
013e 4800 |H | Short_Literal 0x0
013f 00da | | Load_Top At_Offset_2
0140 01d6 | | Execute Vector,Field_Write
0141 4806 |H | Short_Literal 0x6
0142 4801 |H | Short_Literal 0x1
0143 00da | | Load_Top At_Offset_2
0144 01d6 | | Execute Vector,Field_Write
0145 4807 |H | Short_Literal 0x7
0146 4802 |H | Short_Literal 0x2
0147 00da | | Load_Top At_Offset_2
0148 01d6 | | Execute Vector,Field_Write
0149 4807 |H | Short_Literal 0x7
014a 4803 |H | Short_Literal 0x3
014b 00da | | Load_Top At_Offset_2
014c 01d6 | | Execute Vector,Field_Write
014d 4808 |H | Short_Literal 0x8
014e 4804 |H | Short_Literal 0x4
014f 00da | | Load_Top At_Offset_2
0150 01d6 | | Execute Vector,Field_Write
0151 00d9 | | Load_Top At_Offset_1
0152 01d4 | | Execute Vector,Structure_Write
0153 BODY_0128:
0153 00cf | | Action Mark_Auxiliary
0154 780f |x | Jump 0x164
0155 e411 | | Load 0x2,0x11
0156 e602 | | Load 0x3,0x2
0157 e005 | | Load 0x0,0x5
0158 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0159 00db | | Load_Top At_Offset_3
015a 01d7 | | Execute Vector,Field_Read
015b e602 | | Load 0x3,0x2
015c e005 | | Load 0x0,0x5
015d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
015e 8414 | | Call 0x2,0x14
015f 00db | | Load_Top At_Offset_3
0160 e005 | | Load 0x0,0x5
0161 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0162 c602 | | Store 0x3,0x2
0163 00c9 | | Action Pop_Auxiliary_Loop
0164 00db | | Load_Top At_Offset_3
0165 e005 | | Load 0x0,0x5
0166 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0167 6fed |o | Jump_Zero 0x155
0168 4502 |E | Exit_Subprogram 0x2
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 4602 |F | Jump_Case 0x2
0175 7805 |x | Jump 0x17b ; case 0x0
0176 7806 |x | Jump 0x17d ; case 0x1
0177 7800 |x | Jump 0x178 ; case 0x2
0178 0092 0622 | "| Action Push_String_Extended,0x622 ; "main program closure "
017a 4401 |D | Exit_Subprogram With_Result,0x1
017b 00ea | | Load_Encached Null_String_Cache
017c 4401 |D | Exit_Subprogram With_Result,0x1
017d 0092 0623 | #| Action Push_String_Extended,0x623 ; "elaboration "
017f 4401 |D | Exit_Subprogram With_Result,0x1
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0185 | | .CONST 0x0185 ; Address of begin
0181 019a | | .CONST 0x019a ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 029f 0543 | C| Declare_Subprogram For_Call,INIT_0540
0185 BODY_0180:
0185 00db | | Load_Top At_Offset_3
0186 e004 | | Load 0x0,0x4
0187 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0188 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0189 e004 | | Load 0x0,0x4
018a 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
018b 180d | | Execute Package,Field_Execute,Field_Number 0xd
018c 6808 |h | Jump_Zero 0x195
018d 0092 0624 | $| Action Push_String_Extended,0x624 ; "code view unit "
018f e7ff | | Load 0x3,-0x1
0190 e004 | | Load 0x0,0x4
0191 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0192 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0193 01cc | | Execute Vector,Catenate
0194 4401 |D | Exit_Subprogram With_Result,0x1
0195 00db | | Load_Top At_Offset_3
0196 e004 | | Load 0x0,0x4
0197 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0198 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0199 4401 |D | Exit_Subprogram With_Result,0x1
019a TRAP_0180:
019a 0007 | | Action Break_Optional
019b 8602 | | Call 0x3,0x2
019c e40b | | Load 0x2,0xb
019d 4401 |D | Exit_Subprogram With_Result,0x1
019e 0000 0000 | | .XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 4800 |H | Short_Literal 0x0
01a4 4801 |H | Short_Literal 0x1
01a5 e7ff | | Load 0x3,-0x1
01a6 e410 | | Load 0x2,0x10
01a7 e40f | | Load 0x2,0xf
01a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a9 4502 |E | Exit_Subprogram 0x2
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01bd | | .CONST 0x01bd ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0003 | | .CONST 0x0003 ; Number of locals
01b3 INIT_01b0:
01b3 e004 | | Load 0x0,0x4
01b4 1b52 | R | Execute Package,Field_Read,Field_Number 0x52
01b5 02c7 | | Declare_Variable Any
01b6 e7fd | | Load 0x3,-0x3
01b7 a602 | | Store_Unchecked 0x3,0x2
01b8 e00a | | Load 0x0,0xa
01b9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01ba 02ff | | Declare_Variable Variant_Record
01bb 00d8 | | Load_Top At_Offset_0
01bc 1c00 | | Execute_Immediate Run_Utility,0x0
01bd BODY_01b0:
01bd 00cf | | Action Mark_Auxiliary
01be 7829 |x) | Jump 0x1e8
01bf 00da | | Load_Top At_Offset_2
01c0 e004 | | Load 0x0,0x4
01c1 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
01c2 e00a | | Load 0x0,0xa
01c3 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01c4 0162 | b | Execute Variant_Record,Check_In_Type
01c5 00da | | Load_Top At_Offset_2
01c6 016d | m | Execute Variant_Record,Structure_Write
01c7 00da | | Load_Top At_Offset_2
01c8 e004 | | Load 0x0,0x4
01c9 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
01ca c602 | | Store 0x3,0x2
01cb 00d9 | | Load_Top At_Offset_1
01cc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01cd e00a | | Load 0x0,0xa
01ce 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01cf 027f | | Execute Discrete,Equal
01d0 6803 |h | Jump_Zero 0x1d4
01d1 00d9 | | Load_Top At_Offset_1
01d2 841b | | Call 0x2,0x1b
01d3 7813 |x | Jump 0x1e7
01d4 0092 0625 | %| Action Push_String_Extended,0x625 ; "Unexpected class of object found on "
01d6 e7fe | | Load 0x3,-0x2
01d7 8419 | | Call 0x2,0x19
01d8 01cc | | Execute Vector,Catenate
01d9 0092 0626 | &| Action Push_String_Extended,0x626 ; "code segment object list of "
01db 01cc | | Execute Vector,Catenate
01dc e7ff | | Load 0x3,-0x1
01dd 841a | | Call 0x2,0x1a
01de 01cc | | Execute Vector,Catenate
01df 0092 0627 | '| Action Push_String_Extended,0x627 ; ":"
01e1 01cc | | Execute Vector,Catenate
01e2 00da | | Load_Top At_Offset_2
01e3 e00b | | Load 0x0,0xb
01e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01e5 01cc | | Execute Vector,Catenate
01e6 8417 | | Call 0x2,0x17
01e7 00c9 | | Action Pop_Auxiliary_Loop
01e8 00da | | Load_Top At_Offset_2
01e9 e004 | | Load 0x0,0x4
01ea 1b53 | S | Execute Package,Field_Read,Field_Number 0x53
01eb 012f | / | Execute Any,Equal
01ec 6fd2 |o | Jump_Zero 0x1bf
01ed 4504 |E | Exit_Subprogram 0x4
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0201 | | .CONST 0x0201 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0006 | | .CONST 0x0006 ; Number of locals
01f3 INIT_01f0:
01f3 e011 | | Load 0x0,0x11
01f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01f5 02ff | | Declare_Variable Variant_Record
01f6 00d8 | | Load_Top At_Offset_0
01f7 1c00 | | Execute_Immediate Run_Utility,0x0
01f8 e011 | | Load 0x0,0x11
01f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fa e012 | | Load 0x0,0x12
01fb 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
01fc e012 | | Load 0x0,0x12
01fd 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01fe e012 | | Load 0x0,0x12
01ff 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0200 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0201 BODY_01f0:
0201 e011 | | Load 0x0,0x11
0202 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0203 e602 | | Load 0x3,0x2
0204 605b |`[ | Indirect_Literal Discrete,0x260,{0x00000000, 0x00004000}
0205 e002 | | Load 0x0,0x2
0206 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0207 4800 |H | Short_Literal 0x0
0208 e7fd | | Load 0x3,-0x3
0209 e011 | | Load 0x0,0x11
020a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
020b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
020c 00d1 | | Pop_Control Pop_Count_1
020d c603 | | Store 0x3,0x3
020e 00db | | Load_Top At_Offset_3
020f 680f |h | Jump_Zero 0x21f
0210 0092 0628 | (| Action Push_String_Extended,0x628 ; "Bad status getting version for Archived_Code object "
0212 e7fc | | Load 0x3,-0x4
0213 01cc | | Execute Vector,Catenate
0214 0092 0629 | )| Action Push_String_Extended,0x629 ; ": "
0216 01cc | | Execute Vector,Catenate
0217 e603 | | Load 0x3,0x3
0218 e011 | | Load 0x0,0x11
0219 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021a 025e | ^ | Execute Discrete,Convert
021b 1c01 | | Execute_Immediate Run_Utility,0x1
021c 01cc | | Execute Vector,Catenate
021d 8417 | | Call 0x2,0x17
021e 4505 |E | Exit_Subprogram 0x5
021f e012 | | Load 0x0,0x12
0220 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0221 e012 | | Load 0x0,0x12
0222 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0223 4801 |H | Short_Literal 0x1
0224 e40c | | Load 0x2,0xc
0225 e602 | | Load 0x3,0x2
0226 e012 | | Load 0x0,0x12
0227 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0228 0162 | b | Execute Variant_Record,Check_In_Type
0229 e012 | | Load 0x0,0x12
022a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
022b c604 | | Store 0x3,0x4
022c 005a | Z | Store_Top Discrete,At_Offset_2
022d 00d9 | | Load_Top At_Offset_1
022e 680f |h | Jump_Zero 0x23e
022f 0092 062a | *| Action Push_String_Extended,0x62a ; "Bad status opening Archived_Code object "
0231 e7fc | | Load 0x3,-0x4
0232 01cc | | Execute Vector,Catenate
0233 0092 0629 | )| Action Push_String_Extended,0x629 ; ": "
0235 01cc | | Execute Vector,Catenate
0236 00da | | Load_Top At_Offset_2
0237 e012 | | Load 0x0,0x12
0238 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0239 025e | ^ | Execute Discrete,Convert
023a 1c01 | | Execute_Immediate Run_Utility,0x1
023b 01cc | | Execute Vector,Catenate
023c 8417 | | Call 0x2,0x17
023d 4505 |E | Exit_Subprogram 0x5
023e e012 | | Load 0x0,0x12
023f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0240 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0241 e006 | | Load 0x0,0x6
0242 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0243 e007 | | Load 0x0,0x7
0244 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0245 e604 | | Load 0x3,0x4
0246 0217 | | Execute Heap_Access,All_Reference
0247 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0248 e012 | | Load 0x0,0x12
0249 1b19 | | Execute Package,Field_Read,Field_Number 0x19
024a 181f | | Execute Package,Field_Execute,Field_Number 0x1f
024b 0031 | 1 | Store_Top Heap_Access,At_Offset_1
024c 00cf | | Action Mark_Auxiliary
024d 780c |x | Jump 0x25a
024e 00d9 | | Load_Top At_Offset_1
024f e012 | | Load 0x0,0x12
0250 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0251 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0252 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0253 87fe | | Call 0x3,-0x2
0254 00d9 | | Load_Top At_Offset_1
0255 e012 | | Load 0x0,0x12
0256 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0257 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0258 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0259 00c9 | | Action Pop_Auxiliary_Loop
025a 00d9 | | Load_Top At_Offset_1
025b e012 | | Load 0x0,0x12
025c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
025d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
025e 6fef |o | Jump_Zero 0x24e
025f 4505 |E | Exit_Subprogram 0x5
0260 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0276 | v | .CONST 0x0276 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0005 | | .CONST 0x0005 ; Number of locals
026b INIT_0268:
026b 481d |H | Short_Literal 0x1d
026c 4802 |H | Short_Literal 0x2
026d 0099 | | Action Reference_Dynamic
026e 00c6 | | Action Check_Subprogram_Elaborated
026f 481b |H | Short_Literal 0x1b
0270 4802 |H | Short_Literal 0x2
0271 0099 | | Action Reference_Dynamic
0272 e013 | | Load 0x0,0x13
0273 e014 | | Load 0x0,0x14
0274 4805 |H | Short_Literal 0x5
0275 0007 | | Action Break_Optional
0276 BODY_0268:
0276 0092 062b | +| Action Push_String_Extended,0x62b ; "for Loaded_Main unit "
0278 e7fe | | Load 0x3,-0x2
0279 e004 | | Load 0x0,0x4
027a 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
027b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
027c 01cc | | Execute Vector,Catenate
027d e7ff | | Load 0x3,-0x1
027e 4802 |H | Short_Literal 0x2
027f 4803 |H | Short_Literal 0x3
0280 0099 | | Action Reference_Dynamic
0281 4803 |H | Short_Literal 0x3
0282 4803 |H | Short_Literal 0x3
0283 0099 | | Action Reference_Dynamic
0284 841d | | Call 0x2,0x1d
0285 4503 |E | Exit_Subprogram 0x3
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d | | .CONST 0x028d ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b 029f 056b | k| Declare_Subprogram For_Call,INIT_0568
028d BODY_0288:
028d 00db | | Load_Top At_Offset_3
028e 841a | | Call 0x2,0x1a
028f e40b | | Load 0x2,0xb
0290 01de | | Execute Vector,Not_Equal
0291 7001 |p | Jump_Nonzero 0x293
0292 0887 | | Execute_Immediate Raise,0x87
0293 e403 | | Load 0x2,0x3
0294 0a01 | | Execute_Immediate Plus,0x1
0295 c403 | | Store 0x2,0x3
0296 00db | | Load_Top At_Offset_3
0297 e004 | | Load 0x0,0x4
0298 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0299 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
029a 4800 |H | Short_Literal 0x0
029b e7ff | | Load 0x3,-0x1
029c 841c | | Call 0x2,0x1c
029d 00db | | Load_Top At_Offset_3
029e e004 | | Load 0x0,0x4
029f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
02a0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02a1 4801 |H | Short_Literal 0x1
02a2 e7ff | | Load 0x3,-0x1
02a3 841c | | Call 0x2,0x1c
02a4 00db | | Load_Top At_Offset_3
02a5 e004 | | Load 0x0,0x4
02a6 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
02a7 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
02a8 4802 |H | Short_Literal 0x2
02a9 e7ff | | Load 0x3,-0x1
02aa 841c | | Call 0x2,0x1c
02ab 00db | | Load_Top At_Offset_3
02ac e004 | | Load 0x0,0x4
02ad 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
02ae 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
02af 6801 |h | Jump_Zero 0x2b1
02b0 8602 | | Call 0x3,0x2
02b1 4502 |E | Exit_Subprogram 0x2
02b2 0000 0000 | | .BLANK 0000[0x6]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c8 | | .CONST 0x02c8 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0006 | | .CONST 0x0006 ; Number of locals
02bb INIT_02b8:
02bb e004 | | Load 0x0,0x4
02bc 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
02bd 191f | | Execute Package,Field_Reference,Field_Number 0x1f
02be 00c6 | | Action Check_Subprogram_Elaborated
02bf 481f |H | Short_Literal 0x1f
02c0 4802 |H | Short_Literal 0x2
02c1 0099 | | Action Reference_Dynamic
02c2 e015 | | Load 0x0,0x15
02c3 e016 | | Load 0x0,0x16
02c4 4805 |H | Short_Literal 0x5
02c5 0007 | | Action Break_Optional
02c6 029f 058b | | Declare_Subprogram For_Call,INIT_0588
02c8 BODY_02b8:
02c8 4800 |H | Short_Literal 0x0
02c9 e017 | | Load 0x0,0x17
02ca 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02cb e7ff | | Load 0x3,-0x1
02cc e004 | | Load 0x0,0x4
02cd 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
02ce 180f | | Execute Package,Field_Execute,Field_Number 0xf
02cf e018 | | Load 0x0,0x18
02d0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02d1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
02d2 0f03 | | Execute_Immediate Equal,0x3
02d3 681a |h | Jump_Zero 0x2ee
02d4 e411 | | Load 0x2,0x11
02d5 4802 |H | Short_Literal 0x2
02d6 0092 062c | ,| Action Push_String_Extended,0x62c ; "Checking "
02d8 e7fe | | Load 0x3,-0x2
02d9 8606 | | Call 0x3,0x6
02da 01cc | | Execute Vector,Catenate
02db 8414 | | Call 0x2,0x14
02dc e404 | | Load 0x2,0x4
02dd 0a01 | | Execute_Immediate Plus,0x1
02de c404 | | Store 0x2,0x4
02df 4801 |H | Short_Literal 0x1
02e0 4801 |H | Short_Literal 0x1
02e1 4801 |H | Short_Literal 0x1
02e2 4800 |H | Short_Literal 0x0
02e3 e7ff | | Load 0x3,-0x1
02e4 4802 |H | Short_Literal 0x2
02e5 4803 |H | Short_Literal 0x3
02e6 0099 | | Action Reference_Dynamic
02e7 4803 |H | Short_Literal 0x3
02e8 4803 |H | Short_Literal 0x3
02e9 0099 | | Action Reference_Dynamic
02ea e004 | | Load 0x0,0x4
02eb 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
02ec 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02ed 4503 |E | Exit_Subprogram 0x3
02ee e411 | | Load 0x2,0x11
02ef 4802 |H | Short_Literal 0x2
02f0 0092 062d | -| Action Push_String_Extended,0x62d ; "Skipping non-R1000 world "
02f2 e7fe | | Load 0x3,-0x2
02f3 8606 | | Call 0x3,0x6
02f4 01cc | | Execute Vector,Catenate
02f5 8414 | | Call 0x2,0x14
02f6 4503 |E | Exit_Subprogram 0x3
02f7 0000 | | .XXX[0x1]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0303 | | .CONST 0x0303 ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0003 | | .CONST 0x0003 ; Number of locals
02fb INIT_02f8:
02fb e011 | | Load 0x0,0x11
02fc 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
02fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fe 02c7 | | Declare_Variable Any
02ff 00d8 | | Load_Top At_Offset_0
0300 1c00 | | Execute_Immediate Run_Utility,0x0
0301 e011 | | Load 0x0,0x11
0302 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0303 BODY_02f8:
0303 e011 | | Load 0x0,0x11
0304 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0305 00da | | Load_Top At_Offset_2
0306 0120 | | Execute Any,Is_Value
0307 6804 |h | Jump_Zero 0x30c
0308 e011 | | Load 0x0,0x11
0309 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
030a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030b 7801 |x | Jump 0x30d
030c 00da | | Load_Top At_Offset_2
030d e7ff | | Load 0x3,-0x1
030e e011 | | Load 0x0,0x11
030f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0310 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0311 c602 | | Store 0x3,0x2
0312 0059 | Y | Store_Top Discrete,At_Offset_1
0313 00d8 | | Load_Top At_Offset_0
0314 680b |h | Jump_Zero 0x320
0315 0092 062e | .| Action Push_String_Extended,0x62e ; "Bad status getting enclosing directory for "
0317 e7ff | | Load 0x3,-0x1
0318 e011 | | Load 0x0,0x11
0319 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
031a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
031b 01cc | | Execute Vector,Catenate
031c 8417 | | Call 0x2,0x17
031d e011 | | Load 0x0,0x11
031e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
031f 4401 |D | Exit_Subprogram With_Result,0x1
0320 00d9 | | Load_Top At_Offset_1
0321 e011 | | Load 0x0,0x11
0322 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0323 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0324 4401 |D | Exit_Subprogram With_Result,0x1
0325 0000 0000 | | .XXX[0x3]
0327 0000 | |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 033c | < | .CONST 0x033c ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0006 | | .CONST 0x0006 ; Number of locals
032b INIT_0328:
032b e011 | | Load 0x0,0x11
032c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
032d 02c7 | | Declare_Variable Any
032e 00db | | Load_Top At_Offset_3
032f 8421 | ! | Call 0x2,0x21
0330 a602 | | Store_Unchecked 0x3,0x2
0331 481d |H | Short_Literal 0x1d
0332 4802 |H | Short_Literal 0x2
0333 0099 | | Action Reference_Dynamic
0334 00c6 | | Action Check_Subprogram_Elaborated
0335 481b |H | Short_Literal 0x1b
0336 4802 |H | Short_Literal 0x2
0337 0099 | | Action Reference_Dynamic
0338 e019 | | Load 0x0,0x19
0339 e01a | | Load 0x0,0x1a
033a 4806 |H | Short_Literal 0x6
033b 0007 | | Action Break_Optional
033c BODY_0328:
033c 0092 062f | /| Action Push_String_Extended,0x62f ; "for code view "
033e e602 | | Load 0x3,0x2
033f e011 | | Load 0x0,0x11
0340 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0341 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0342 01cc | | Execute Vector,Catenate
0343 e7ff | | Load 0x3,-0x1
0344 4803 |H | Short_Literal 0x3
0345 4803 |H | Short_Literal 0x3
0346 0099 | | Action Reference_Dynamic
0347 4804 |H | Short_Literal 0x4
0348 4803 |H | Short_Literal 0x3
0349 0099 | | Action Reference_Dynamic
034a 841d | | Call 0x2,0x1d
034b 4502 |E | Exit_Subprogram 0x2
034c 0000 0000 | | .BLANK 0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0366 | f | .CONST 0x0366 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0009 | | .CONST 0x0009 ; Number of locals
0353 INIT_0350:
0353 e00a | | Load 0x0,0xa
0354 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0355 e00f | | Load 0x0,0xf
0356 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0357 e00b | | Load 0x0,0xb
0358 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0359 02ff | | Declare_Variable Variant_Record
035a 00d8 | | Load_Top At_Offset_0
035b 1c00 | | Execute_Immediate Run_Utility,0x0
035c e00a | | Load 0x0,0xa
035d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
035e 02ff | | Declare_Variable Variant_Record
035f 00d8 | | Load_Top At_Offset_0
0360 1c00 | | Execute_Immediate Run_Utility,0x0
0361 e00d | | Load 0x0,0xd
0362 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0363 00e1 | | Load_Encached Boolean_Cache
0364 00e1 | | Load_Encached Boolean_Cache
0365 00e3 | | Load_Encached Natural_Cache
0366 BODY_0350:
0366 e5ff | | Load 0x2,-0x1
0367 6803 |h | Jump_Zero 0x36b
0368 4806 |H | Short_Literal 0x6
0369 a606 | | Store_Unchecked 0x3,0x6
036a 7802 |x | Jump 0x36d
036b 4807 |H | Short_Literal 0x7
036c a606 | | Store_Unchecked 0x3,0x6
036d e00a | | Load 0x0,0xa
036e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
036f e006 | | Load 0x0,0x6
0370 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0371 e007 | | Load 0x0,0x7
0372 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0373 e00a | | Load 0x0,0xa
0374 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0375 c602 | | Store 0x3,0x2
0376 00cf | | Action Mark_Auxiliary
0377 7886 |x | Jump 0x3fe
0378 e402 | | Load 0x2,0x2
0379 0a01 | | Execute_Immediate Plus,0x1
037a c402 | | Store 0x2,0x2
037b e602 | | Load 0x3,0x2
037c e00a | | Load 0x0,0xa
037d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
037e e604 | | Load 0x3,0x4
037f 016d | m | Execute Variant_Record,Structure_Write
0380 e604 | | Load 0x3,0x4
0381 e00a | | Load 0x0,0xa
0382 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0383 0162 | b | Execute Variant_Record,Check_In_Type
0384 e605 | | Load 0x3,0x5
0385 016d | m | Execute Variant_Record,Structure_Write
0386 00e1 | | Load_Encached Boolean_Cache
0387 00db | | Load_Top At_Offset_3
0388 e605 | | Load 0x3,0x5
0389 e410 | | Load 0x2,0x10
038a e40f | | Load 0x2,0xf
038b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
038c c608 | | Store 0x3,0x8
038d c607 | | Store 0x3,0x7
038e 00db | | Load_Top At_Offset_3
038f 7069 |pi | Jump_Nonzero 0x3f9
0390 e405 | | Load 0x2,0x5
0391 0a01 | | Execute_Immediate Plus,0x1
0392 c405 | | Store 0x2,0x5
0393 e00f | | Load 0x0,0xf
0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0395 00e2 | | Load_Encached Integer_Cache
0396 4800 |H | Short_Literal 0x0
0397 4800 |H | Short_Literal 0x0
0398 e002 | | Load 0x0,0x2
0399 1b0e | | Execute Package,Field_Read,Field_Number 0xe
039a e605 | | Load 0x3,0x5
039b e00a | | Load 0x0,0xa
039c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
039d 005b | [ | Store_Top Discrete,At_Offset_3
039e c603 | | Store 0x3,0x3
039f e603 | | Load 0x3,0x3
03a0 8412 | | Call 0x2,0x12
03a1 6814 |h | Jump_Zero 0x3b6
03a2 00d9 | | Load_Top At_Offset_1
03a3 0c01 | | Execute_Immediate Greater_Equal,0x1
03a4 6824 |h$ | Jump_Zero 0x3c9
03a5 e411 | | Load 0x2,0x11
03a6 e606 | | Load 0x3,0x6
03a7 0092 0630 | 0| Action Push_String_Extended,0x630 ; "Segment "
03a9 e604 | | Load 0x3,0x4
03aa e00b | | Load 0x0,0xb
03ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03ac 01cc | | Execute Vector,Catenate
03ad 0092 0631 | 1| Action Push_String_Extended,0x631 ; " is not referenced but has a reference count of"
03af 01cc | | Execute Vector,Catenate
03b0 e609 | | Load 0x3,0x9
03b1 00e0 | | Load_Encached Standard_Cache
03b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03b3 01cc | | Execute Vector,Catenate
03b4 8414 | | Call 0x2,0x14
03b5 7813 |x | Jump 0x3c9
03b6 e411 | | Load 0x2,0x11
03b7 e606 | | Load 0x3,0x6
03b8 0092 0630 | 0| Action Push_String_Extended,0x630 ; "Segment "
03ba e604 | | Load 0x3,0x4
03bb e00b | | Load 0x0,0xb
03bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03bd 01cc | | Execute Vector,Catenate
03be 0092 0632 | 2| Action Push_String_Extended,0x632 ; " is not referenced"
03c0 01cc | | Execute Vector,Catenate
03c1 8414 | | Call 0x2,0x14
03c2 e407 | | Load 0x2,0x7
03c3 e5ff | | Load 0x2,-0x1
03c4 0f00 | | Execute_Immediate Equal,0x0
03c5 0273 | s | Execute Discrete,Plus
03c6 c407 | | Store 0x2,0x7
03c7 4801 |H | Short_Literal 0x1
03c8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03c9 e5ff | | Load 0x2,-0x1
03ca 682e |h. | Jump_Zero 0x3f9
03cb 00d9 | | Load_Top At_Offset_1
03cc 0c01 | | Execute_Immediate Greater_Equal,0x1
03cd 682b |h+ | Jump_Zero 0x3f9
03ce e00f | | Load 0x0,0xf
03cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03d0 e002 | | Load 0x0,0x2
03d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d2 4800 |H | Short_Literal 0x0
03d3 e605 | | Load 0x3,0x5
03d4 e00a | | Load 0x0,0xa
03d5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03d6 c603 | | Store 0x3,0x3
03d7 e603 | | Load 0x3,0x3
03d8 8412 | | Call 0x2,0x12
03d9 680d |h | Jump_Zero 0x3e7
03da e411 | | Load 0x2,0x11
03db 4803 |H | Short_Literal 0x3
03dc 0092 0633 | 3| Action Push_String_Extended,0x633 ; "Destroyed unreferenced code segment "
03de e604 | | Load 0x3,0x4
03df e00b | | Load 0x0,0xb
03e0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03e1 01cc | | Execute Vector,Catenate
03e2 8414 | | Call 0x2,0x14
03e3 e406 | | Load 0x2,0x6
03e4 0a01 | | Execute_Immediate Plus,0x1
03e5 c406 | | Store 0x2,0x6
03e6 7812 |x | Jump 0x3f9
03e7 e411 | | Load 0x2,0x11
03e8 4805 |H | Short_Literal 0x5
03e9 0092 0634 | 4| Action Push_String_Extended,0x634 ; "Could not destroy unreferenced code segment "
03eb e604 | | Load 0x3,0x4
03ec e00b | | Load 0x0,0xb
03ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03ee 01cc | | Execute Vector,Catenate
03ef 0092 0629 | )| Action Push_String_Extended,0x629 ; ": "
03f1 01cc | | Execute Vector,Catenate
03f2 e603 | | Load 0x3,0x3
03f3 8413 | | Call 0x2,0x13
03f4 01cc | | Execute Vector,Catenate
03f5 8414 | | Call 0x2,0x14
03f6 e407 | | Load 0x2,0x7
03f7 0a01 | | Execute_Immediate Plus,0x1
03f8 c407 | | Store 0x2,0x7
03f9 e602 | | Load 0x3,0x2
03fa e00a | | Load 0x0,0xa
03fb 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
03fc c602 | | Store 0x3,0x2
03fd 00c9 | | Action Pop_Auxiliary_Loop
03fe e602 | | Load 0x3,0x2
03ff e00a | | Load 0x0,0xa
0400 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0401 6f76 |ov | Jump_Zero 0x378
0402 4501 |E | Exit_Subprogram 0x1
0403 0000 0000 | | .BLANK 0000[0x5]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0410 | | .CONST 0x0410 ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0002 | | .CONST 0x0002 ; Number of locals
040b INIT_0408:
040b e01b | | Load 0x0,0x1b
040c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
040d 02c7 | | Declare_Variable Any
040e 00d8 | | Load_Top At_Offset_0
040f 1c00 | | Execute_Immediate Run_Utility,0x0
0410 BODY_0408:
0410 00d8 | | Load_Top At_Offset_0
0411 e411 | | Load 0x2,0x11
0412 0120 | | Execute Any,Is_Value
0413 6803 |h | Jump_Zero 0x417
0414 e00d | | Load 0x0,0xd
0415 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0416 7801 |x | Jump 0x418
0417 e411 | | Load 0x2,0x11
0418 e5fd | | Load 0x2,-0x3
0419 e00d | | Load 0x0,0xd
041a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
041b c411 | | Store 0x2,0x11
041c c602 | | Store 0x3,0x2
041d 4801 |H | Short_Literal 0x1
041e 00d9 | | Load_Top At_Offset_1
041f e01b | | Load 0x0,0x1b
0420 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0421 6807 |h | Jump_Zero 0x429
0422 e00d | | Load 0x0,0xd
0423 180e | | Execute Package,Field_Execute,Field_Number 0xe
0424 00d9 | | Load_Top At_Offset_1
0425 e00e | | Load 0x0,0xe
0426 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0427 00cc | | Action Pop_Block
0428 4504 |E | Exit_Subprogram 0x4
0429 4501 |E | Exit_Subprogram 0x1
042a 0000 0000 | | .BLANK 0000[0x6]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0451 | Q | .CONST 0x0451 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0009 | | .CONST 0x0009 ; Number of locals
0433 INIT_0430:
0433 0092 0635 | 5| Action Push_String_Extended,0x635 ; "!??'C(WORLD)."
0435 e40a | | Load 0x2,0xa
0436 01cc | | Execute Vector,Catenate
0437 0007 | | Action Break_Optional
0438 0092 0636 | 6| Action Push_String_Extended,0x636 ; "!??'C(WORLD).Code_Database'C(ARCHIVED_CODE)"
043a e011 | | Load 0x0,0x11
043b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
043c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
043d e011 | | Load 0x0,0x11
043e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
043f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0440 02c7 | | Declare_Variable Any
0441 00d8 | | Load_Top At_Offset_0
0442 1c00 | | Execute_Immediate Run_Utility,0x0
0443 e011 | | Load 0x0,0x11
0444 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0445 e011 | | Load 0x0,0x11
0446 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0447 02c7 | | Declare_Variable Any
0448 00d8 | | Load_Top At_Offset_0
0449 1c00 | | Execute_Immediate Run_Utility,0x0
044a e004 | | Load 0x0,0x4
044b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
044c 02c7 | | Declare_Variable Any
044d 00d8 | | Load_Top At_Offset_0
044e 1c00 | | Execute_Immediate Run_Utility,0x0
044f 029f 05ab | | Declare_Subprogram For_Call,INIT_05a8
0451 BODY_0430:
0451 4801 |H | Short_Literal 0x1
0452 e01c | | Load 0x0,0x1c
0453 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0454 e01c | | Load 0x0,0x1c
0455 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0456 7005 |p | Jump_Nonzero 0x45c
0457 0092 0637 | 7| Action Push_String_Extended,0x637 ; "Privileged mode is required to run this command"
0459 8417 | | Call 0x2,0x17
045a 00cc | | Action Pop_Block
045b 4504 |E | Exit_Subprogram 0x4
045c e40f | | Load 0x2,0xf
045d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
045e e006 | | Load 0x0,0x6
045f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0460 e007 | | Load 0x0,0x7
0461 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0462 e40f | | Load 0x2,0xf
0463 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0464 c410 | | Store 0x2,0x10
0465 00cf | | Action Mark_Auxiliary
0466 00e1 | | Load_Encached Boolean_Cache
0467 0266 | f | Execute Discrete,Bounds
0468 0007 | | Action Break_Optional
0469 00d8 | | Load_Top At_Offset_0
046a 6819 |h | Jump_Zero 0x484
046b e011 | | Load 0x0,0x11
046c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
046d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
046e e605 | | Load 0x3,0x5
046f 60c8 |` | Indirect_Literal Discrete,0x538,{0x00000000, 0x00004000}
0470 e002 | | Load 0x0,0x2
0471 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0472 e006 | | Load 0x0,0x6
0473 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0474 e007 | | Load 0x0,0x7
0475 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0476 4801 |H | Short_Literal 0x1
0477 4800 |H | Short_Literal 0x0
0478 e006 | | Load 0x0,0x6
0479 1811 | | Execute Package,Field_Execute,Field_Number 0x11
047a e011 | | Load 0x0,0x11
047b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
047c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
047d e602 | | Load 0x3,0x2
047e e011 | | Load 0x0,0x11
047f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0480 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0481 c605 | | Store 0x3,0x5
0482 c604 | | Store 0x3,0x4
0483 7818 |x | Jump 0x49c
0484 e011 | | Load 0x0,0x11
0485 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0486 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0487 e605 | | Load 0x3,0x5
0488 60af |` | Indirect_Literal Discrete,0x538,{0x00000000, 0x00004000}
0489 e002 | | Load 0x0,0x2
048a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
048b e006 | | Load 0x0,0x6
048c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
048d e007 | | Load 0x0,0x7
048e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
048f 4801 |H | Short_Literal 0x1
0490 4800 |H | Short_Literal 0x0
0491 e006 | | Load 0x0,0x6
0492 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0493 e011 | | Load 0x0,0x11
0494 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0495 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0496 e603 | | Load 0x3,0x3
0497 e011 | | Load 0x0,0x11
0498 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0499 181b | | Execute Package,Field_Execute,Field_Number 0x1b
049a c605 | | Store 0x3,0x5
049b c604 | | Store 0x3,0x4
049c e604 | | Load 0x3,0x4
049d 6843 |hC | Jump_Zero 0x4e1
049e e604 | | Load 0x3,0x4
049f 0e03 | | Execute_Immediate Not_Equal,0x3
04a0 7005 |p | Jump_Nonzero 0x4a6
04a1 e605 | | Load 0x3,0x5
04a2 e011 | | Load 0x0,0x11
04a3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04a4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04a5 703b |p; | Jump_Nonzero 0x4e1
04a6 00d8 | | Load_Top At_Offset_0
04a7 681d |h | Jump_Zero 0x4c5
04a8 0092 0638 | 8| Action Push_String_Extended,0x638 ; "Unable to resolve name \x22"
04aa e602 | | Load 0x3,0x2
04ab 01cc | | Execute Vector,Catenate
04ac 0092 0639 | 9| Action Push_String_Extended,0x639 ; "\x22 because "
04ae 01cc | | Execute Vector,Catenate
04af 6088 |` | Indirect_Literal Discrete,0x538,{0x00000000, 0x00004000}
04b0 e002 | | Load 0x0,0x2
04b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b2 e006 | | Load 0x0,0x6
04b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b4 e007 | | Load 0x0,0x7
04b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b6 4801 |H | Short_Literal 0x1
04b7 4800 |H | Short_Literal 0x0
04b8 e006 | | Load 0x0,0x6
04b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04ba e011 | | Load 0x0,0x11
04bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04bc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04bd e602 | | Load 0x3,0x2
04be e604 | | Load 0x3,0x4
04bf e011 | | Load 0x0,0x11
04c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04c1 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
04c2 01cc | | Execute Vector,Catenate
04c3 8416 | | Call 0x2,0x16
04c4 781c |x | Jump 0x4e1
04c5 0092 0638 | 8| Action Push_String_Extended,0x638 ; "Unable to resolve name \x22"
04c7 e603 | | Load 0x3,0x3
04c8 01cc | | Execute Vector,Catenate
04c9 0092 0639 | 9| Action Push_String_Extended,0x639 ; "\x22 because "
04cb 01cc | | Execute Vector,Catenate
04cc 606b |`k | Indirect_Literal Discrete,0x538,{0x00000000, 0x00004000}
04cd e002 | | Load 0x0,0x2
04ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04cf e006 | | Load 0x0,0x6
04d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04d1 e007 | | Load 0x0,0x7
04d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04d3 4801 |H | Short_Literal 0x1
04d4 4800 |H | Short_Literal 0x0
04d5 e006 | | Load 0x0,0x6
04d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04d7 e011 | | Load 0x0,0x11
04d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04da e603 | | Load 0x3,0x3
04db e604 | | Load 0x3,0x4
04dc e011 | | Load 0x0,0x11
04dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04de 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
04df 01cc | | Execute Vector,Catenate
04e0 8416 | | Call 0x2,0x16
04e1 00cf | | Action Mark_Auxiliary
04e2 7846 |xF | Jump 0x529
04e3 e011 | | Load 0x0,0x11
04e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e5 e607 | | Load 0x3,0x7
04e6 0120 | | Execute Any,Is_Value
04e7 6803 |h | Jump_Zero 0x4eb
04e8 e011 | | Load 0x0,0x11
04e9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ea 7801 |x | Jump 0x4ec
04eb e607 | | Load 0x3,0x7
04ec e605 | | Load 0x3,0x5
04ed e011 | | Load 0x0,0x11
04ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ef 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04f0 c607 | | Store 0x3,0x7
04f1 c606 | | Store 0x3,0x6
04f2 e606 | | Load 0x3,0x6
04f3 6811 |h | Jump_Zero 0x505
04f4 0092 063a | :| Action Push_String_Extended,0x63a ; "Bad status getting object for "
04f6 e605 | | Load 0x3,0x5
04f7 e011 | | Load 0x0,0x11
04f8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04f9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04fa 01cc | | Execute Vector,Catenate
04fb 0092 0629 | )| Action Push_String_Extended,0x629 ; ": "
04fd 01cc | | Execute Vector,Catenate
04fe e606 | | Load 0x3,0x6
04ff e011 | | Load 0x0,0x11
0500 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0501 025e | ^ | Execute Discrete,Convert
0502 1c01 | | Execute_Immediate Run_Utility,0x1
0503 01cc | | Execute Vector,Catenate
0504 8416 | | Call 0x2,0x16
0505 00d9 | | Load_Top At_Offset_1
0506 681a |h | Jump_Zero 0x521
0507 e608 | | Load 0x3,0x8
0508 0120 | | Execute Any,Is_Value
0509 6803 |h | Jump_Zero 0x50d
050a e004 | | Load 0x0,0x4
050b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050c 7801 |x | Jump 0x50e
050d e608 | | Load 0x3,0x8
050e 4801 |H | Short_Literal 0x1
050f e607 | | Load 0x3,0x7
0510 e40d | | Load 0x2,0xd
0511 e004 | | Load 0x0,0x4
0512 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0513 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0514 c608 | | Store 0x3,0x8
0515 e40d | | Load 0x2,0xd
0516 e004 | | Load 0x0,0x4
0517 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0518 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0519 6814 |h | Jump_Zero 0x52e
051a e605 | | Load 0x3,0x5
051b e011 | | Load 0x0,0x11
051c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
051d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
051e e608 | | Load 0x3,0x8
051f 8420 | | Call 0x2,0x20
0520 7802 |x | Jump 0x523
0521 e607 | | Load 0x3,0x7
0522 8422 | " | Call 0x2,0x22
0523 e605 | | Load 0x3,0x5
0524 e011 | | Load 0x0,0x11
0525 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0526 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0527 c605 | | Store 0x3,0x5
0528 00c9 | | Action Pop_Auxiliary_Loop
0529 e605 | | Load 0x3,0x5
052a e011 | | Load 0x0,0x11
052b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
052c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
052d 6fb5 |o | Jump_Zero 0x4e3
052e 00ce | | Action Pop_Auxiliary
052f 00c8 | | Action Pop_Auxiliary_Range
0530 3738 |78 | Loop_Decreasing 0x469
0531 00ce | | Action Pop_Auxiliary
0532 8423 | # | Call 0x2,0x23
0533 8609 | | Call 0x3,0x9
0534 4501 |E | Exit_Subprogram 0x1
0535 0000 0000 | | .XXX[0x3]
0537 0000 | |
0538 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
053c 0000 0000 | | .BLANK 0000[0x4]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0545 | E | .CONST 0x0545 ; Address of begin
0541 0562 | b | .CONST 0x0562 ; Address of exception handler
0542 0002 | | .CONST 0x0002 ; Number of locals
0543 INIT_0540:
0543 029f 05e3 | | Declare_Subprogram For_Call,INIT_05e0
0545 BODY_0540:
0545 0092 063b | ;| Action Push_String_Extended,0x63b ; "Exception raised getting name of unit "
0547 e7ff | | Load 0x3,-0x1
0548 e004 | | Load 0x0,0x4
0549 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
054a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
054b 01cc | | Execute Vector,Catenate
054c 0092 063c | <| Action Push_String_Extended,0x63c ; " in program library "
054e 01cc | | Execute Vector,Catenate
054f e7ff | | Load 0x3,-0x1
0550 e004 | | Load 0x0,0x4
0551 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0552 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0553 e004 | | Load 0x0,0x4
0554 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
0555 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0556 e011 | | Load 0x0,0x11
0557 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0558 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0559 01cc | | Execute Vector,Catenate
055a 0092 0629 | )| Action Push_String_Extended,0x629 ; ": "
055c 01cc | | Execute Vector,Catenate
055d e01d | | Load 0x0,0x1d
055e 180d | | Execute Package,Field_Execute,Field_Number 0xd
055f 01cc | | Execute Vector,Catenate
0560 8417 | | Call 0x2,0x17
0561 4501 |E | Exit_Subprogram 0x1
0562 TRAP_0540:
0562 0007 | | Action Break_Optional
0563 8802 | | Call 0x4,0x2
0564 4501 |E | Exit_Subprogram 0x1
0565 0000 0000 | | .XXX[0x3]
0567 0000 | |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 0573 | s | .CONST 0x0573 ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0003 | | .CONST 0x0003 ; Number of locals
056b INIT_0568:
056b 00ec | | Load_Encached Diana_Tree_Cache
056c e7ff | | Load 0x3,-0x1
056d e004 | | Load 0x0,0x4
056e 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
056f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0570 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0571 029f 0603 | | Declare_Subprogram For_Call,INIT_0600
0573 BODY_0568:
0573 8803 | | Call 0x4,0x3
0574 00d9 | | Load_Top At_Offset_1
0575 00eb | | Load_Encached Diana_Cache
0576 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0577 700b |p | Jump_Nonzero 0x583
0578 e40c | | Load 0x2,0xc
0579 00da | | Load_Top At_Offset_2
057a e01e | | Load 0x0,0x1e
057b 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
057c 6806 |h | Jump_Zero 0x583
057d e7ff | | Load 0x3,-0x1
057e e40c | | Load 0x2,0xc
057f 00db | | Load_Top At_Offset_3
0580 e01e | | Load 0x0,0x1e
0581 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0582 841e | | Call 0x2,0x1e
0583 4501 |E | Exit_Subprogram 0x1
0584 0000 0000 | | .BLANK 0000[0x4]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 0592 | | .CONST 0x0592 ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0002 | | .CONST 0x0002 ; Number of locals
058b INIT_0588:
058b 4800 |H | Short_Literal 0x0
058c 00db | | Load_Top At_Offset_3
058d e40a | | Load 0x2,0xa
058e e01f | | Load 0x0,0x1f
058f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0590 00e4 | | Load_Encached Positive_Cache
0591 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0592 BODY_0588:
0592 00d8 | | Load_Top At_Offset_0
0593 0aff | | Execute_Immediate Plus,-0x1
0594 e9ff | | Load 0x4,-0x1
0595 01d7 | | Execute Vector,Field_Read
0596 0f2e | . | Execute_Immediate Equal,0x2e
0597 6803 |h | Jump_Zero 0x59b
0598 00d8 | | Load_Top At_Offset_0
0599 0aff | | Execute_Immediate Plus,-0x1
059a 0059 | Y | Store_Top Discrete,At_Offset_1
059b 00db | | Load_Top At_Offset_3
059c 01dd | | Execute Vector,First
059d 00d9 | | Load_Top At_Offset_1
059e 0aff | | Execute_Immediate Plus,-0x1
059f 00e4 | | Load_Encached Positive_Cache
05a0 025b | [ | Execute Discrete,Check_In_Type
05a1 e9ff | | Load 0x4,-0x1
05a2 01cf | | Execute Vector,Slice_Read
05a3 4401 |D | Exit_Subprogram With_Result,0x1
05a4 0000 0000 | | .BLANK 0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ad | | .CONST 0x05ad ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0002 | | .CONST 0x0002 ; Number of locals
05ab INIT_05a8:
05ab e00d | | Load 0x0,0xd
05ac 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05ad BODY_05a8:
05ad e407 | | Load 0x2,0x7
05ae 0f00 | | Execute_Immediate Equal,0x0
05af e405 | | Load 0x2,0x5
05b0 0f00 | | Execute_Immediate Equal,0x0
05b1 0279 | y | Execute Discrete,And
05b2 6803 |h | Jump_Zero 0x5b6
05b3 4803 |H | Short_Literal 0x3
05b4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05b5 7802 |x | Jump 0x5b8
05b6 4805 |H | Short_Literal 0x5
05b7 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05b8 e411 | | Load 0x2,0x11
05b9 00d9 | | Load_Top At_Offset_1
05ba 0092 063d | =| Action Push_String_Extended,0x63d ; "Checked"
05bc e402 | | Load 0x2,0x2
05bd 00e0 | | Load_Encached Standard_Cache
05be 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05bf 01cc | | Execute Vector,Catenate
05c0 e402 | | Load 0x2,0x2
05c1 0092 063e | >| Action Push_String_Extended,0x63e ; " code segment"
05c3 8415 | | Call 0x2,0x15
05c4 01cc | | Execute Vector,Catenate
05c5 0092 063f | ?| Action Push_String_Extended,0x63f ; ", found"
05c7 01cc | | Execute Vector,Catenate
05c8 e405 | | Load 0x2,0x5
05c9 00e0 | | Load_Encached Standard_Cache
05ca 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05cb 01cc | | Execute Vector,Catenate
05cc e405 | | Load 0x2,0x5
05cd 0092 0640 | @| Action Push_String_Extended,0x640 ; " unreferenced segment"
05cf 8415 | | Call 0x2,0x15
05d0 01cc | | Execute Vector,Catenate
05d1 0092 0641 | A| Action Push_String_Extended,0x641 ; ", destroyed"
05d3 01cc | | Execute Vector,Catenate
05d4 e406 | | Load 0x2,0x6
05d5 00e0 | | Load_Encached Standard_Cache
05d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05d7 01cc | | Execute Vector,Catenate
05d8 e406 | | Load 0x2,0x6
05d9 0092 0640 | @| Action Push_String_Extended,0x640 ; " unreferenced segment"
05db 8415 | | Call 0x2,0x15
05dc 01cc | | Execute Vector,Catenate
05dd 8414 | | Call 0x2,0x14
05de 4501 |E | Exit_Subprogram 0x1
05df 0000 | | .XXX[0x1]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3 | | .CONST 0x05e3 ; Address of begin
05e1 05f8 | | .CONST 0x05f8 ; Address of exception handler
05e2 0001 | | .CONST 0x0001 ; Number of locals
05e3 BODY_05e0:
05e3 INIT_05e0:
05e3 0092 0642 | B| Action Push_String_Extended,0x642 ; "Exception raised getting name of some unit in program library "
05e5 e7ff | | Load 0x3,-0x1
05e6 e004 | | Load 0x0,0x4
05e7 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
05e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05e9 e004 | | Load 0x0,0x4
05ea 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
05eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05ec e011 | | Load 0x0,0x11
05ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05ee 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
05ef 01cc | | Execute Vector,Catenate
05f0 0092 0629 | )| Action Push_String_Extended,0x629 ; ": "
05f2 01cc | | Execute Vector,Catenate
05f3 e01d | | Load 0x0,0x1d
05f4 180d | | Execute Package,Field_Execute,Field_Number 0xd
05f5 01cc | | Execute Vector,Catenate
05f6 8417 | | Call 0x2,0x17
05f7 4501 |E | Exit_Subprogram 0x1
05f8 TRAP_05e0:
05f8 0007 | | Action Break_Optional
05f9 0092 0643 | C| Action Push_String_Extended,0x643 ; "Exception raised getting name of unit: "
05fb e01d | | Load 0x0,0x1d
05fc 180d | | Execute Package,Field_Execute,Field_Number 0xd
05fd 01cc | | Execute Vector,Catenate
05fe 8417 | | Call 0x2,0x17
05ff 4501 |E | Exit_Subprogram 0x1
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 060c | | .CONST 0x060c ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 e802 | | Load 0x4,0x2
0604 00eb | | Load_Encached Diana_Cache
0605 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0606 0f35 | 5 | Execute_Immediate Equal,0x35
0607 6803 |h | Jump_Zero 0x60b
0608 0092 0644 | D| Action Push_String_Extended,0x644 ; "It is very unlikely that this message will ever be emitted"
060a 8417 | | Call 0x2,0x17
060b 4501 |E | Exit_Subprogram 0x1
060c TRAP_0600:
060c 0007 | | Action Break_Optional
060d 0092 0645 | E| Action Push_String_Extended,0x645 ; "Found corrupt Comp_Unit_Id for unit "
060f e7ff | | Load 0x3,-0x1
0610 e004 | | Load 0x0,0x4
0611 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0612 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0613 01cc | | Execute Vector,Catenate
0614 8417 | | Call 0x2,0x17
0615 00eb | | Load_Encached Diana_Cache
0616 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0617 a802 | | Store_Unchecked 0x4,0x2
0618 4501 |E | Exit_Subprogram 0x1
0619 ; --------------------------------------------------------------------------------------
0619 ; STRING TABLE
0619 ; --------------------------------------------------------------------------------------
0619 005c | \ | .STRTAB 0x005c->0x0647 ; "CODE"
061a 005e | ^ | .STRTAB 0x005e->0x0649 ; "ELABORATION"
061b 0067 | g | .STRTAB 0x0067->0x064e ; "MAIN_PROGRAM_CLOSURE"
061c 0079 | y | .STRTAB 0x0079->0x0658 ; "<*PROGRAM_LIBRARY>"
061d 0089 | | .STRTAB 0x0089->0x0661 ; "<???>"
061e 008c | | .STRTAB 0x008c->0x0664 ; "[Program_Library_Maintenance.Find_Unreferenced_Code_Segments (Options => \x22"
061f 00d4 | | .STRTAB 0x00d4->0x0689 ; "\x22, Response => \x22"
0620 00e2 | | .STRTAB 0x00e2->0x0691 ; "\x22);]"
0621 00e4 | | .STRTAB 0x00e4->0x0693 ; "[End of Program_Library_Maintenance.Find_Unreferenced_Code_Segments command]"
0622 012e | . | .STRTAB 0x012e->0x06b9 ; "main program closure "
0623 0141 | A | .STRTAB 0x0141->0x06c3 ; "elaboration "
0624 014b | K | .STRTAB 0x014b->0x06c9 ; "code view unit "
0625 0158 | X | .STRTAB 0x0158->0x06d1 ; "Unexpected class of object found on "
0626 017a | z | .STRTAB 0x017a->0x06e3 ; "code segment object list of "
0627 0194 | | .STRTAB 0x0194->0x06f1 ; ":"
0628 0193 | | .STRTAB 0x0193->0x06f1 ; "Bad status getting version for Archived_Code object "
0629 01c5 | | .STRTAB 0x01c5->0x070b ; ": "
; ": "
; ": "
; ": "
; ": "
; ": "
062a 01c5 | | .STRTAB 0x01c5->0x070c ; "Bad status opening Archived_Code object "
062b 01eb | | .STRTAB 0x01eb->0x0720 ; "for Loaded_Main unit "
062c 01fe | | .STRTAB 0x01fe->0x072b ; "Checking "
062d 0205 | | .STRTAB 0x0205->0x072f ; "Skipping non-R1000 world "
062e 021c | | .STRTAB 0x021c->0x073c ; "Bad status getting enclosing directory for "
062f 0245 | E | .STRTAB 0x0245->0x0751 ; "for code view "
0630 0251 | Q | .STRTAB 0x0251->0x0758 ; "Segment "
; "Segment "
0631 0257 | W | .STRTAB 0x0257->0x075c ; " is not referenced but has a reference count of"
0632 0284 | | .STRTAB 0x0284->0x0774 ; " is not referenced"
0633 0294 | | .STRTAB 0x0294->0x077d ; "Destroyed unreferenced code segment "
0634 02b6 | | .STRTAB 0x02b6->0x078f ; "Could not destroy unreferenced code segment "
0635 02e0 | | .STRTAB 0x02e0->0x07a5 ; "!??'C(WORLD)."
0636 02eb | | .STRTAB 0x02eb->0x07ab ; "!??'C(WORLD).Code_Database'C(ARCHIVED_CODE)"
0637 0314 | | .STRTAB 0x0314->0x07c1 ; "Privileged mode is required to run this command"
0638 0341 | A | .STRTAB 0x0341->0x07d8 ; "Unable to resolve name \x22"
; "Unable to resolve name \x22"
0639 0357 | W | .STRTAB 0x0357->0x07e4 ; "\x22 because "
; "\x22 because "
063a 035f | _ | .STRTAB 0x035f->0x07e9 ; "Bad status getting object for "
063b 037b | { | .STRTAB 0x037b->0x07f8 ; "Exception raised getting name of unit "
063c 039f | | .STRTAB 0x039f->0x080b ; " in program library "
063d 03b1 | | .STRTAB 0x03b1->0x0815 ; "Checked"
063e 03b6 | | .STRTAB 0x03b6->0x0819 ; " code segment"
063f 03c1 | | .STRTAB 0x03c1->0x081f ; ", found"
0640 03c6 | | .STRTAB 0x03c6->0x0823 ; " unreferenced segment"
; " unreferenced segment"
0641 03d9 | | .STRTAB 0x03d9->0x082d ; ", destroyed"
0642 03e2 | | .STRTAB 0x03e2->0x0833 ; "Exception raised getting name of some unit in program library "
0643 041f | | .STRTAB 0x041f->0x0852 ; "Exception raised getting name of unit: "
0644 0444 | D | .STRTAB 0x0444->0x0866 ; "It is very unlikely that this message will ever be emitted"
0645 047c | | | .STRTAB 0x047c->0x0883 ; "Found corrupt Comp_Unit_Id for unit "
0646 049e | | .STREND 0x049e->0x0895
0647 434f 4445 |CODE| .STRTAB_STRINGS
0895 0000 0000 | | .XXX[0x3]
0897 0000 | |
0898 ; --------------------------------------------------------------------------------------
0898 ; Debug Table
0898 ; --------------------------------------------------------------------------------------
0898 0004 000f | | .DEBUG4 0x0004,0x000f,0xc0c6,0x0000,0x0001,0x0000
089e 0000 0000 | | .BLANK 0000[0x1a]
08b8 00c0 000a | | .XXX[0x1f]
08ba a6d0 1803 | |
08bc 8f40 0000 | @ |
08be 0736 8990 | 6 |
08c0 1000 8000 | |
08c2 0800 0000 | |
08c4 0618 c000 | |
08c6 0400 0000 | |
08c8 0300 2800 | ( |
08ca 0000 0800 | |
08cc 0002 0000 | |
08ce 0011 0000 | |
08d0 0000 0800 | |
08d2 0000 5200 | R |
08d4 0020 10f3 | |
08d6 6800 |h |
08d7 0000 0000 | | .BLANK 0000[0x1a]
08f1 0018 0000 | | .XXX[0x1f]
08f3 59a2 0300 |Y |
08f5 71ea 0000 |q |
08f7 00e6 d132 | 2|
08f9 0200 1000 | |
08fb 0100 0000 | |
08fd 00c3 2000 | |
08ff 0080 0000 | |
0901 0060 0500 | ` |
0903 0000 0100 | |
0905 0000 4000 | @ |
0907 0002 2000 | |
0909 0000 0100 | |
090b 0000 0a40 | @|
090d 0001 015a | Z|
090f a800 | |
0910 0000 0000 | | .BLANK 0000[0x1a]
092a 0003 0000 | | .XXX[0x1f]
092c 2a9c 4060 |* @`|
092e 0e3d 8000 | = |
0930 001c da26 | &|
0932 4040 0200 |@@ |
0934 0020 0000 | |
0936 0018 6400 | d |
0938 0010 0000 | |
093a 000c 00a0 | |
093c 0000 0020 | |
093e 0000 0800 | |
0940 0000 4400 | D |
0942 0000 0020 | |
0944 0000 0148 | H|
0946 0000 8043 | C|
0948 d460 | ` |
0949 0000 0000 | | .BLANK 0000[0x1b]
0964 6000 0166 |` f| .XXX[0x1e]
0966 c80c 01c7 | |
0968 b800 0003 | |
096a 9b44 c808 | D |
096c 0040 0004 | @ |
096e 0000 0003 | |
0970 0ca0 0002 | |
0972 0000 0001 | |
0974 8014 0000 | |
0976 0004 0000 | |
0978 0100 0000 | |
097a 0880 0000 | |
097c 0004 0000 | |
097e 0029 0000 | ) |
0980 0405 6aa4 | j |
0982 0000 0000 | | .BLANK 0000[0x1b]
099d 0c00 00aa | | .XXX[0x1f]
099f 7501 8038 |u 8|
09a1 f800 0000 | |
09a3 7368 9901 |sh |
09a5 0008 0000 | |
09a7 8000 0000 | |
09a9 6194 0000 |a |
09ab 4000 0000 |@ |
09ad 3002 8000 |0 |
09af 0000 8000 | |
09b1 0020 0000 | |
09b3 0110 0000 | |
09b5 0000 8000 | |
09b7 0005 2000 | |
09b9 0201 0f5f | _|
09bb 8000 | |
09bc 0000 0000 | | .BLANK 0000[0x1a]
09d6 0180 0005 | | .XXX[0x3]
09d8 9c00 | |
09d9 0000 0000 | | .BLANK 0000[0x27]