|
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: 5120 (0x1400)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0908 | | .CONST 0x0908 ; 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 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 0099 | | .CONST 0x0099 ; 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 609b |` | Indirect_Literal Discrete,0xc4,{0x00000000, 0x00003fff}
0029 e002 | | Load 0x0,0x2
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 00cb | | Declare_Subprogram INIT_00c8,For_Call
0030 03fd | | Declare_Type Discrete,Defined
0031 0092 064a | J| Action Push_String_Extended,0x64a ; "<*PROGRAM_LIBRARY>"
0033 0092 064b | K| Action Push_String_Extended,0x64b ; "<???>"
0035 e003 | | Load 0x0,0x3
0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0037 02c7 | | Declare_Variable Any
0038 e004 | | Load 0x0,0x4
0039 1810 | | Execute Package,Field_Execute,Field_Number 0x10
003a e003 | | Load 0x0,0x3
003b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
003c a40c | | Store_Unchecked 0x2,0xc
003d e005 | | Load 0x0,0x5
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 e006 | | Load 0x0,0x6
0045 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0046 e40c | | Load 0x2,0xc
0047 e007 | | Load 0x0,0x7
0048 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0049 e008 | | Load 0x0,0x8
004a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004b e005 | | Load 0x0,0x5
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 00f3 | | Declare_Subprogram INIT_00f0,For_Call,Unelaborated
0051 e009 | | Load 0x0,0x9
0052 e00a | | Load 0x0,0xa
0053 e00b | | Load 0x0,0xb
0054 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0055 00e1 | | Load_Encached Boolean_Cache
0056 e00c | | Load 0x0,0xc
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 e00d | | Load 0x0,0xd
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 e00e | | Load 0x0,0xe
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 00fb | | Declare_Subprogram INIT_00f8,For_Call
0068 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
006a 0093 0000 | | push_full_address 0x0
006c 6053 |`S | Indirect_Literal Discrete,0xc0,{0x80000000, 0x00010000}
006d 0273 | s | Execute Discrete,Plus
006e 0007 | | Action Break_Optional
006f 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
0071 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0073 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0075 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
0077 480e |H | Short_Literal 0xe
0078 4802 |H | Short_Literal 0x2
0079 0099 | | Action Reference_Dynamic
007a 00c7 | | Action Elaborate_Subprogram
007b 029f 018b | | Declare_Subprogram INIT_0188,For_Call
007d 029f 019b | | Declare_Subprogram INIT_0198,For_Call
007f 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0081 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0083 029e 020b | | Declare_Subprogram INIT_0208,For_Call,Unelaborated
0085 481d |H | Short_Literal 0x1d
0086 4802 |H | Short_Literal 0x2
0087 0099 | | Action Reference_Dynamic
0088 00c7 | | Action Elaborate_Subprogram
0089 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
008b 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call
008d 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call
008f 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
0091 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
0093 029f 038b | | Declare_Subprogram INIT_0388,For_Call
0095 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call
0097 029f 046b | k| Declare_Subprogram INIT_0468,For_Call
0099 BODY_0018:
0099 8424 | $ | Call 0x2,0x24
009a e411 | | Load 0x2,0x11
009b 4800 |H | Short_Literal 0x0
009c 0092 064c | L| Action Push_String_Extended,0x64c ; "[Program_Library_Maintenance.Find_Unreferenced_Code_Segments (Options => \x22"
009e e5fe | | Load 0x2,-0x2
009f 01cc | | Execute Vector,Catenate
00a0 0092 064d | M| Action Push_String_Extended,0x64d ; "\x22, Response => \x22"
00a2 01cc | | Execute Vector,Catenate
00a3 e5fd | | Load 0x2,-0x3
00a4 01cc | | Execute Vector,Catenate
00a5 0092 064e | N| Action Push_String_Extended,0x64e ; "\x22);]"
00a7 01cc | | Execute Vector,Catenate
00a8 e00f | | Load 0x0,0xf
00a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00aa 8425 | % | Call 0x2,0x25
00ab e40c | | Load 0x2,0xc
00ac 4801 |H | Short_Literal 0x1
00ad 4801 |H | Short_Literal 0x1
00ae e003 | | Load 0x0,0x3
00af 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b0 c40c | | Store 0x2,0xc
00b1 e40d | | Load 0x2,0xd
00b2 e005 | | Load 0x0,0x5
00b3 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00b4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b5 8418 | | Call 0x2,0x18
00b6 e411 | | Load 0x2,0x11
00b7 4800 |H | Short_Literal 0x0
00b8 0092 064f | O| Action Push_String_Extended,0x64f ; "[End of Program_Library_Maintenance.Find_Unreferenced_Code_Segments command]"
00ba e00f | | Load 0x0,0xf
00bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bc 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00c4 0000 0000 | | .LITERAL {0x00000000, 0x00003fff}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4607 |F | Jump_Case 0x8
00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00cd 7807 |x | Jump 0xd5 ; case 0x1
00ce 780a |x | Jump 0xd9 ; case 0x2
00cf 780e |x | Jump 0xde ; case 0x3
00d0 7811 |x | Jump 0xe2 ; case 0x4
00d1 7812 |x | Jump 0xe4 ; case 0x5
00d2 7813 |x | Jump 0xe6 ; case 0x6
00d3 7816 |x | Jump 0xea ; case 0x7
00d4 4302 |C | .XXX[0x1]
00d5 00da | | Load_Top At_Offset_2
00d6 0091 0647 | G| Action Push_String_Extended_Indexed,0x647 ; "CODE"
00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d9 00db | | Load_Top At_Offset_3
00da 00db | | Load_Top At_Offset_3
00db 00e0 | | Load_Encached Standard_Cache
00dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00de 00da | | Load_Top At_Offset_2
00df 00e0 | | Load_Encached Standard_Cache
00e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e2 00db | | Load_Top At_Offset_3
00e3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e4 00db | | Load_Top At_Offset_3
00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e6 e409 | | Load 0x2,0x9
00e7 00dc | | Load_Top At_Offset_4
00e8 0267 | g | Execute Discrete,Predecessor
00e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ea e409 | | Load 0x2,0x9
00eb 00dc | | Load_Top At_Offset_4
00ec 0268 | h | Execute Discrete,Successor
00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ee 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
00f4 e00c | | Load 0x0,0xc
00f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f7 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
00fc 0f00 | | Execute_Immediate Equal,0x0
00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fe 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
0104 e010 | | Load 0x0,0x10
0105 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0106 011c | | Execute Any,Convert_Unchecked
0107 1c01 | | Execute_Immediate Run_Utility,0x1
0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00db | | Load_Top At_Offset_3
0114 0f01 | | Execute_Immediate Equal,0x1
0115 6802 |h | Jump_Zero 0x118
0116 00da | | Load_Top At_Offset_2
0117 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0118 4873 |Hs | Short_Literal 0x73
0119 00db | | Load_Top At_Offset_3
011a 01cb | | Execute Vector,Append
011b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e411 | | Load 0x2,0x11
0124 4807 |H | Short_Literal 0x7
0125 e7ff | | Load 0x3,-0x1
0126 e00f | | Load 0x0,0xf
0127 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0128 e414 | | Load 0x2,0x14
0129 0257 | W | Execute Discrete,Raise
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e411 | | Load 0x2,0x11
0134 4807 |H | Short_Literal 0x7
0135 e7ff | | Load 0x3,-0x1
0136 e00f | | Load 0x0,0xf
0137 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0138 e407 | | Load 0x2,0x7
0139 0a01 | | Execute_Immediate Plus,0x1
013a c407 | | Store 0x2,0x7
013b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 016b | k | .CONST 0x016b ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0004 | | .CONST 0x0004 ; Number of locals
0143 INIT_0140:
0143 e006 | | Load 0x0,0x6
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 02c7 | | Declare_Variable Any
0146 00db | | Load_Top At_Offset_3
0147 a602 | | Store_Unchecked 0x3,0x2
0148 e006 | | Load 0x0,0x6
0149 1b11 | | Execute Package,Field_Read,Field_Number 0x11
014a 0266 | f | Execute Discrete,Bounds
014b e00e | | Load 0x0,0xe
014c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
014d 02a0 | | Declare_Subprogram Null_Subprogram
014e 4801 |H | Short_Literal 0x1
014f 035d | ] | Declare_Type Array,Defined
0150 00d8 | | Load_Top At_Offset_0
0151 0337 | 7 | Declare_Variable Array
0152 00d8 | | Load_Top At_Offset_0
0153 0335 | 5 | Declare_Variable Array,Duplicate
0154 00cd | | Action Spare6_Action
0155 4802 |H | Short_Literal 0x2
0156 4800 |H | Short_Literal 0x0
0157 00da | | Load_Top At_Offset_2
0158 01d6 | | Execute Vector,Field_Write
0159 4806 |H | Short_Literal 0x6
015a 4801 |H | Short_Literal 0x1
015b 00da | | Load_Top At_Offset_2
015c 01d6 | | Execute Vector,Field_Write
015d 4807 |H | Short_Literal 0x7
015e 4802 |H | Short_Literal 0x2
015f 00da | | Load_Top At_Offset_2
0160 01d6 | | Execute Vector,Field_Write
0161 4807 |H | Short_Literal 0x7
0162 4803 |H | Short_Literal 0x3
0163 00da | | Load_Top At_Offset_2
0164 01d6 | | Execute Vector,Field_Write
0165 4808 |H | Short_Literal 0x8
0166 4804 |H | Short_Literal 0x4
0167 00da | | Load_Top At_Offset_2
0168 01d6 | | Execute Vector,Field_Write
0169 00d9 | | Load_Top At_Offset_1
016a 01d4 | | Execute Vector,Structure_Write
016b BODY_0140:
016b 00cf | | Action Mark_Auxiliary
016c 7810 |x | Jump 0x17d
016d e411 | | Load 0x2,0x11
016e e602 | | Load 0x3,0x2
016f e006 | | Load 0x0,0x6
0170 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0171 00db | | Load_Top At_Offset_3
0172 01d7 | | Execute Vector,Field_Read
0173 e602 | | Load 0x3,0x2
0174 e006 | | Load 0x0,0x6
0175 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0176 e00f | | Load 0x0,0xf
0177 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0178 00db | | Load_Top At_Offset_3
0179 e006 | | Load 0x0,0x6
017a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
017b c602 | | Store 0x3,0x2
017c 00c9 | | Action Pop_Auxiliary_Loop
017d 00db | | Load_Top At_Offset_3
017e e006 | | Load 0x0,0x6
017f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0180 6fec |o | Jump_Zero 0x16d
0181 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0182 0000 0000 | | .BLANK 0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 4602 |F | Jump_Case 0x3
018d 7805 |x | Jump 0x193 ; case 0x0
018e 7806 |x | Jump 0x195 ; case 0x1
018f 7800 |x | Jump 0x190 ; case 0x2
0190 0092 0650 | P| Action Push_String_Extended,0x650 ; "main program closure "
0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0193 00ea | | Load_Encached Null_String_Cache
0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0195 0092 0651 | Q| Action Push_String_Extended,0x651 ; "elaboration "
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d | | .CONST 0x019d ; Address of begin
0199 01b2 | | .CONST 0x01b2 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b 029f 056b | k| Declare_Subprogram INIT_0568,For_Call
019d BODY_0198:
019d 00db | | Load_Top At_Offset_3
019e e005 | | Load 0x0,0x5
019f 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01a0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a1 e005 | | Load 0x0,0x5
01a2 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
01a3 180d | | Execute Package,Field_Execute,Field_Number 0xd
01a4 6808 |h | Jump_Zero 0x1ad
01a5 0092 0652 | R| Action Push_String_Extended,0x652 ; "code view unit "
01a7 e7ff | | Load 0x3,-0x1
01a8 e005 | | Load 0x0,0x5
01a9 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01aa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ab 01cc | | Execute Vector,Catenate
01ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ad 00db | | Load_Top At_Offset_3
01ae e005 | | Load 0x0,0x5
01af 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01b0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b2 TRAP_0198:
01b2 0007 | | Action Break_Optional
01b3 8602 | | Call 0x3,0x2
01b4 e40b | | Load 0x2,0xb
01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4800 |H | Short_Literal 0x0
01bc 4801 |H | Short_Literal 0x1
01bd e7ff | | Load 0x3,-0x1
01be e410 | | Load 0x2,0x10
01bf e40f | | Load 0x2,0xf
01c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c2 0000 0000 | | .BLANK 0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d5 | | .CONST 0x01d5 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0003 | | .CONST 0x0003 ; Number of locals
01cb INIT_01c8:
01cb e005 | | Load 0x0,0x5
01cc 1b52 | R | Execute Package,Field_Read,Field_Number 0x52
01cd 02c7 | | Declare_Variable Any
01ce e7fd | | Load 0x3,-0x3
01cf a602 | | Store_Unchecked 0x3,0x2
01d0 e00b | | Load 0x0,0xb
01d1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01d2 02ff | | Declare_Variable Variant_Record
01d3 00d8 | | Load_Top At_Offset_0
01d4 1c00 | | Execute_Immediate Run_Utility,0x0
01d5 BODY_01c8:
01d5 00cf | | Action Mark_Auxiliary
01d6 7829 |x) | Jump 0x200
01d7 00da | | Load_Top At_Offset_2
01d8 e005 | | Load 0x0,0x5
01d9 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
01da e00b | | Load 0x0,0xb
01db 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01dc 0162 | b | Execute Variant_Record,Check_In_Type
01dd 00da | | Load_Top At_Offset_2
01de 016d | m | Execute Variant_Record,Structure_Write
01df 00da | | Load_Top At_Offset_2
01e0 e005 | | Load 0x0,0x5
01e1 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
01e2 c602 | | Store 0x3,0x2
01e3 00d9 | | Load_Top At_Offset_1
01e4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e5 e00b | | Load 0x0,0xb
01e6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01e7 027f | | Execute Discrete,Equal
01e8 6803 |h | Jump_Zero 0x1ec
01e9 00d9 | | Load_Top At_Offset_1
01ea 841b | | Call 0x2,0x1b
01eb 7813 |x | Jump 0x1ff
01ec 0092 0653 | S| Action Push_String_Extended,0x653 ; "Unexpected class of object found on "
01ee e7fe | | Load 0x3,-0x2
01ef 8419 | | Call 0x2,0x19
01f0 01cc | | Execute Vector,Catenate
01f1 0092 0654 | T| Action Push_String_Extended,0x654 ; "code segment object list of "
01f3 01cc | | Execute Vector,Catenate
01f4 e7ff | | Load 0x3,-0x1
01f5 841a | | Call 0x2,0x1a
01f6 01cc | | Execute Vector,Catenate
01f7 0092 0655 | U| Action Push_String_Extended,0x655 ; ":"
01f9 01cc | | Execute Vector,Catenate
01fa 00da | | Load_Top At_Offset_2
01fb e00c | | Load 0x0,0xc
01fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01fd 01cc | | Execute Vector,Catenate
01fe 8417 | | Call 0x2,0x17
01ff 00c9 | | Action Pop_Auxiliary_Loop
0200 00da | | Load_Top At_Offset_2
0201 e005 | | Load 0x0,0x5
0202 1b53 | S | Execute Package,Field_Read,Field_Number 0x53
0203 012f | / | Execute Any,Equal
0204 6fd2 |o | Jump_Zero 0x1d7
0205 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0206 0000 0000 | | .XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0219 | | .CONST 0x0219 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0006 | | .CONST 0x0006 ; Number of locals
020b INIT_0208:
020b e011 | | Load 0x0,0x11
020c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
020d 02ff | | Declare_Variable Variant_Record
020e 00d8 | | Load_Top At_Offset_0
020f 1c00 | | Execute_Immediate Run_Utility,0x0
0210 e011 | | Load 0x0,0x11
0211 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0212 e012 | | Load 0x0,0x12
0213 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0214 e012 | | Load 0x0,0x12
0215 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0216 e012 | | Load 0x0,0x12
0217 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0218 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0219 BODY_0208:
0219 e011 | | Load 0x0,0x11
021a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021b e602 | | Load 0x3,0x2
021c 605b |`[ | Indirect_Literal Discrete,0x278,{0x00000000, 0x00004000}
021d e003 | | Load 0x0,0x3
021e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021f 4800 |H | Short_Literal 0x0
0220 e7fd | | Load 0x3,-0x3
0221 e011 | | Load 0x0,0x11
0222 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0223 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0224 00d1 | | Pop_Control Pop_Count_1
0225 c603 | | Store 0x3,0x3
0226 00db | | Load_Top At_Offset_3
0227 680f |h | Jump_Zero 0x237
0228 0092 0656 | V| Action Push_String_Extended,0x656 ; "Bad status getting version for Archived_Code object "
022a e7fc | | Load 0x3,-0x4
022b 01cc | | Execute Vector,Catenate
022c 0092 0657 | W| Action Push_String_Extended,0x657 ; ": "
022e 01cc | | Execute Vector,Catenate
022f e603 | | Load 0x3,0x3
0230 e011 | | Load 0x0,0x11
0231 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0232 011c | | Execute Any,Convert_Unchecked
0233 1c01 | | Execute_Immediate Run_Utility,0x1
0234 01cc | | Execute Vector,Catenate
0235 8417 | | Call 0x2,0x17
0236 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0237 e012 | | Load 0x0,0x12
0238 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0239 e012 | | Load 0x0,0x12
023a 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
023b 4801 |H | Short_Literal 0x1
023c e40c | | Load 0x2,0xc
023d e602 | | Load 0x3,0x2
023e e012 | | Load 0x0,0x12
023f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0240 0162 | b | Execute Variant_Record,Check_In_Type
0241 e012 | | Load 0x0,0x12
0242 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0243 c604 | | Store 0x3,0x4
0244 005a | Z | Store_Top Discrete,At_Offset_2
0245 00d9 | | Load_Top At_Offset_1
0246 680f |h | Jump_Zero 0x256
0247 0092 0658 | X| Action Push_String_Extended,0x658 ; "Bad status opening Archived_Code object "
0249 e7fc | | Load 0x3,-0x4
024a 01cc | | Execute Vector,Catenate
024b 0092 0657 | W| Action Push_String_Extended,0x657 ; ": "
024d 01cc | | Execute Vector,Catenate
024e 00da | | Load_Top At_Offset_2
024f e012 | | Load 0x0,0x12
0250 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0251 011c | | Execute Any,Convert_Unchecked
0252 1c01 | | Execute_Immediate Run_Utility,0x1
0253 01cc | | Execute Vector,Catenate
0254 8417 | | Call 0x2,0x17
0255 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0256 e012 | | Load 0x0,0x12
0257 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0258 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0259 e007 | | Load 0x0,0x7
025a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
025b e008 | | Load 0x0,0x8
025c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
025d e604 | | Load 0x3,0x4
025e 0217 | | Execute Heap_Access,All_Reference
025f 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0260 e012 | | Load 0x0,0x12
0261 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0262 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0263 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0264 00cf | | Action Mark_Auxiliary
0265 780c |x | Jump 0x272
0266 00d9 | | Load_Top At_Offset_1
0267 e012 | | Load 0x0,0x12
0268 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0269 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
026a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
026b 87fe | | Call 0x3,-0x2
026c 00d9 | | Load_Top At_Offset_1
026d e012 | | Load 0x0,0x12
026e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
026f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0270 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0271 00c9 | | Action Pop_Auxiliary_Loop
0272 00d9 | | Load_Top At_Offset_1
0273 e012 | | Load 0x0,0x12
0274 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0275 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0276 6fef |o | Jump_Zero 0x266
0277 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0278 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
027c 0000 0000 | | .BLANK 0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0296 | | .CONST 0x0296 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0005 | | .CONST 0x0005 ; Number of locals
0283 INIT_0280:
0283 029f 0593 | | Declare_Subprogram INIT_0590,For_Call
0285 481d |H | Short_Literal 0x1d
0286 4802 |H | Short_Literal 0x2
0287 0099 | | Action Reference_Dynamic
0288 00c6 | | Action Check_Subprogram_Elaborated
0289 4802 |H | Short_Literal 0x2
028a 4803 |H | Short_Literal 0x3
028b 0099 | | Action Reference_Dynamic
028c 0093 0000 | | push_full_address 0x0
028e 6019 |` | Indirect_Literal Discrete,0x2a8,{0x80000000, 0x00030000}
028f 0273 | s | Execute Discrete,Plus
0290 e013 | | Load 0x0,0x13
0291 0273 | s | Execute Discrete,Plus
0292 e014 | | Load 0x0,0x14
0293 0273 | s | Execute Discrete,Plus
0294 4805 |H | Short_Literal 0x5
0295 0007 | | Action Break_Optional
0296 BODY_0280:
0296 0092 0659 | Y| Action Push_String_Extended,0x659 ; "for Loaded_Main unit "
0298 e7fe | | Load 0x3,-0x2
0299 e005 | | Load 0x0,0x5
029a 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
029b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
029c 01cc | | Execute Vector,Catenate
029d e7ff | | Load 0x3,-0x1
029e 4803 |H | Short_Literal 0x3
029f 4803 |H | Short_Literal 0x3
02a0 0099 | | Action Reference_Dynamic
02a1 4804 |H | Short_Literal 0x4
02a2 4803 |H | Short_Literal 0x3
02a3 0099 | | Action Reference_Dynamic
02a4 841d | | Call 0x2,0x1d
02a5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02a6 0000 0000 | | .XXX[0x2]
02a8 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5 | | .CONST 0x02b5 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 029f 05a3 | | Declare_Subprogram INIT_05a0,For_Call
02b5 BODY_02b0:
02b5 00db | | Load_Top At_Offset_3
02b6 841a | | Call 0x2,0x1a
02b7 e40b | | Load 0x2,0xb
02b8 01de | | Execute Vector,Not_Equal
02b9 7001 |p | Jump_Nonzero 0x2bb
02ba 0887 | | Execute_Immediate Raise,0x87
02bb e403 | | Load 0x2,0x3
02bc 0a01 | | Execute_Immediate Plus,0x1
02bd c403 | | Store 0x2,0x3
02be 00db | | Load_Top At_Offset_3
02bf e005 | | Load 0x0,0x5
02c0 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
02c1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02c2 4800 |H | Short_Literal 0x0
02c3 e7ff | | Load 0x3,-0x1
02c4 841c | | Call 0x2,0x1c
02c5 00db | | Load_Top At_Offset_3
02c6 e005 | | Load 0x0,0x5
02c7 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
02c8 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02c9 4801 |H | Short_Literal 0x1
02ca e7ff | | Load 0x3,-0x1
02cb 841c | | Call 0x2,0x1c
02cc 00db | | Load_Top At_Offset_3
02cd e005 | | Load 0x0,0x5
02ce 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
02cf 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
02d0 4802 |H | Short_Literal 0x2
02d1 e7ff | | Load 0x3,-0x1
02d2 841c | | Call 0x2,0x1c
02d3 00db | | Load_Top At_Offset_3
02d4 e005 | | Load 0x0,0x5
02d5 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
02d6 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
02d7 6801 |h | Jump_Zero 0x2d9
02d8 8602 | | Call 0x3,0x2
02d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02da 0000 0000 | | .BLANK 0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02f0 | | .CONST 0x02f0 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0006 | | .CONST 0x0006 ; Number of locals
02e3 INIT_02e0:
02e3 e005 | | Load 0x0,0x5
02e4 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
02e5 191f | | Execute Package,Field_Reference,Field_Number 0x1f
02e6 00c6 | | Action Check_Subprogram_Elaborated
02e7 481f |H | Short_Literal 0x1f
02e8 4802 |H | Short_Literal 0x2
02e9 0099 | | Action Reference_Dynamic
02ea e015 | | Load 0x0,0x15
02eb e016 | | Load 0x0,0x16
02ec 4805 |H | Short_Literal 0x5
02ed 0007 | | Action Break_Optional
02ee 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call
02f0 BODY_02e0:
02f0 4800 |H | Short_Literal 0x0
02f1 e017 | | Load 0x0,0x17
02f2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02f3 e7ff | | Load 0x3,-0x1
02f4 e005 | | Load 0x0,0x5
02f5 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
02f6 180f | | Execute Package,Field_Execute,Field_Number 0xf
02f7 e018 | | Load 0x0,0x18
02f8 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02f9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
02fa 0f03 | | Execute_Immediate Equal,0x3
02fb 681b |h | Jump_Zero 0x317
02fc e411 | | Load 0x2,0x11
02fd 4802 |H | Short_Literal 0x2
02fe 0092 065a | Z| Action Push_String_Extended,0x65a ; "Checking "
0300 e7fe | | Load 0x3,-0x2
0301 8606 | | Call 0x3,0x6
0302 01cc | | Execute Vector,Catenate
0303 e00f | | Load 0x0,0xf
0304 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0305 e404 | | Load 0x2,0x4
0306 0a01 | | Execute_Immediate Plus,0x1
0307 c404 | | Store 0x2,0x4
0308 4801 |H | Short_Literal 0x1
0309 4801 |H | Short_Literal 0x1
030a 4801 |H | Short_Literal 0x1
030b 4800 |H | Short_Literal 0x0
030c e7ff | | Load 0x3,-0x1
030d 4802 |H | Short_Literal 0x2
030e 4803 |H | Short_Literal 0x3
030f 0099 | | Action Reference_Dynamic
0310 4803 |H | Short_Literal 0x3
0311 4803 |H | Short_Literal 0x3
0312 0099 | | Action Reference_Dynamic
0313 e005 | | Load 0x0,0x5
0314 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0315 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0316 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0317 e411 | | Load 0x2,0x11
0318 4802 |H | Short_Literal 0x2
0319 0092 065b | [| Action Push_String_Extended,0x65b ; "Skipping non-R1000 world "
031b e7fe | | Load 0x3,-0x2
031c 8606 | | Call 0x3,0x6
031d 01cc | | Execute Vector,Catenate
031e e00f | | Load 0x0,0xf
031f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0320 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0333 | 3 | .CONST 0x0333 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0003 | | .CONST 0x0003 ; Number of locals
032b INIT_0328:
032b e011 | | Load 0x0,0x11
032c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
032d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032e 02c7 | | Declare_Variable Any
032f 00d8 | | Load_Top At_Offset_0
0330 1c00 | | Execute_Immediate Run_Utility,0x0
0331 e011 | | Load 0x0,0x11
0332 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0333 BODY_0328:
0333 e011 | | Load 0x0,0x11
0334 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0335 00da | | Load_Top At_Offset_2
0336 0120 | | Execute Any,Is_Value
0337 6804 |h | Jump_Zero 0x33c
0338 e011 | | Load 0x0,0x11
0339 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
033a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033b 7801 |x | Jump 0x33d
033c 00da | | Load_Top At_Offset_2
033d e7ff | | Load 0x3,-0x1
033e e011 | | Load 0x0,0x11
033f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0340 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0341 c602 | | Store 0x3,0x2
0342 0059 | Y | Store_Top Discrete,At_Offset_1
0343 00d8 | | Load_Top At_Offset_0
0344 680b |h | Jump_Zero 0x350
0345 0092 065c | \| Action Push_String_Extended,0x65c ; "Bad status getting enclosing directory for "
0347 e7ff | | Load 0x3,-0x1
0348 e011 | | Load 0x0,0x11
0349 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
034a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
034b 01cc | | Execute Vector,Catenate
034c 8417 | | Call 0x2,0x17
034d e011 | | Load 0x0,0x11
034e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
034f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0350 00d9 | | Load_Top At_Offset_1
0351 e011 | | Load 0x0,0x11
0352 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0353 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0354 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0355 0000 0000 | | .XXX[0x3]
0357 0000 | |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0374 | t | .CONST 0x0374 ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0006 | | .CONST 0x0006 ; Number of locals
035b INIT_0358:
035b e011 | | Load 0x0,0x11
035c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
035d 02c7 | | Declare_Variable Any
035e 00db | | Load_Top At_Offset_3
035f 8421 | ! | Call 0x2,0x21
0360 a602 | | Store_Unchecked 0x3,0x2
0361 029f 0593 | | Declare_Subprogram INIT_0590,For_Call
0363 481d |H | Short_Literal 0x1d
0364 4802 |H | Short_Literal 0x2
0365 0099 | | Action Reference_Dynamic
0366 00c6 | | Action Check_Subprogram_Elaborated
0367 4803 |H | Short_Literal 0x3
0368 4803 |H | Short_Literal 0x3
0369 0099 | | Action Reference_Dynamic
036a 0093 0000 | | push_full_address 0x0
036c 6017 |` | Indirect_Literal Discrete,0x384,{0x80000000, 0x00010000}
036d 0273 | s | Execute Discrete,Plus
036e e013 | | Load 0x0,0x13
036f 0273 | s | Execute Discrete,Plus
0370 e019 | | Load 0x0,0x19
0371 0273 | s | Execute Discrete,Plus
0372 4806 |H | Short_Literal 0x6
0373 0007 | | Action Break_Optional
0374 BODY_0358:
0374 0092 065d | ]| Action Push_String_Extended,0x65d ; "for code view "
0376 e602 | | Load 0x3,0x2
0377 e011 | | Load 0x0,0x11
0378 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0379 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
037a 01cc | | Execute Vector,Catenate
037b e7ff | | Load 0x3,-0x1
037c 4804 |H | Short_Literal 0x4
037d 4803 |H | Short_Literal 0x3
037e 0099 | | Action Reference_Dynamic
037f 4805 |H | Short_Literal 0x5
0380 4803 |H | Short_Literal 0x3
0381 0099 | | Action Reference_Dynamic
0382 841d | | Call 0x2,0x1d
0383 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0384 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 039e | | .CONST 0x039e ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0009 | | .CONST 0x0009 ; Number of locals
038b INIT_0388:
038b e00b | | Load 0x0,0xb
038c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
038d e010 | | Load 0x0,0x10
038e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038f e00c | | Load 0x0,0xc
0390 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0391 02ff | | Declare_Variable Variant_Record
0392 00d8 | | Load_Top At_Offset_0
0393 1c00 | | Execute_Immediate Run_Utility,0x0
0394 e00b | | Load 0x0,0xb
0395 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0396 02ff | | Declare_Variable Variant_Record
0397 00d8 | | Load_Top At_Offset_0
0398 1c00 | | Execute_Immediate Run_Utility,0x0
0399 e00e | | Load 0x0,0xe
039a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
039b 00e1 | | Load_Encached Boolean_Cache
039c 00e1 | | Load_Encached Boolean_Cache
039d 00e3 | | Load_Encached Natural_Cache
039e BODY_0388:
039e e5ff | | Load 0x2,-0x1
039f 6803 |h | Jump_Zero 0x3a3
03a0 4806 |H | Short_Literal 0x6
03a1 a606 | | Store_Unchecked 0x3,0x6
03a2 7802 |x | Jump 0x3a5
03a3 4807 |H | Short_Literal 0x7
03a4 a606 | | Store_Unchecked 0x3,0x6
03a5 e00b | | Load 0x0,0xb
03a6 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
03a7 e007 | | Load 0x0,0x7
03a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03a9 e008 | | Load 0x0,0x8
03aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ab e00b | | Load 0x0,0xb
03ac 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
03ad c602 | | Store 0x3,0x2
03ae 00cf | | Action Mark_Auxiliary
03af 788a |x | Jump 0x43a
03b0 e402 | | Load 0x2,0x2
03b1 0a01 | | Execute_Immediate Plus,0x1
03b2 c402 | | Store 0x2,0x2
03b3 e602 | | Load 0x3,0x2
03b4 e00b | | Load 0x0,0xb
03b5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03b6 e604 | | Load 0x3,0x4
03b7 016d | m | Execute Variant_Record,Structure_Write
03b8 e604 | | Load 0x3,0x4
03b9 e00b | | Load 0x0,0xb
03ba 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03bb 0162 | b | Execute Variant_Record,Check_In_Type
03bc e605 | | Load 0x3,0x5
03bd 016d | m | Execute Variant_Record,Structure_Write
03be 00e1 | | Load_Encached Boolean_Cache
03bf 00db | | Load_Top At_Offset_3
03c0 e605 | | Load 0x3,0x5
03c1 e410 | | Load 0x2,0x10
03c2 e40f | | Load 0x2,0xf
03c3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03c4 c608 | | Store 0x3,0x8
03c5 c607 | | Store 0x3,0x7
03c6 00db | | Load_Top At_Offset_3
03c7 706d |pm | Jump_Nonzero 0x435
03c8 e405 | | Load 0x2,0x5
03c9 0a01 | | Execute_Immediate Plus,0x1
03ca c405 | | Store 0x2,0x5
03cb e010 | | Load 0x0,0x10
03cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cd 00e2 | | Load_Encached Integer_Cache
03ce 4800 |H | Short_Literal 0x0
03cf 4800 |H | Short_Literal 0x0
03d0 e003 | | Load 0x0,0x3
03d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d2 e605 | | Load 0x3,0x5
03d3 e00b | | Load 0x0,0xb
03d4 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
03d5 005b | [ | Store_Top Discrete,At_Offset_3
03d6 c603 | | Store 0x3,0x3
03d7 e603 | | Load 0x3,0x3
03d8 8412 | | Call 0x2,0x12
03d9 6815 |h | Jump_Zero 0x3ef
03da 00d9 | | Load_Top At_Offset_1
03db 0c01 | | Execute_Immediate Greater_Equal,0x1
03dc 6826 |h& | Jump_Zero 0x403
03dd e411 | | Load 0x2,0x11
03de e606 | | Load 0x3,0x6
03df 0092 065e | ^| Action Push_String_Extended,0x65e ; "Segment "
03e1 e604 | | Load 0x3,0x4
03e2 e00c | | Load 0x0,0xc
03e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03e4 01cc | | Execute Vector,Catenate
03e5 0092 065f | _| Action Push_String_Extended,0x65f ; " is not referenced but has a reference count of"
03e7 01cc | | Execute Vector,Catenate
03e8 e609 | | Load 0x3,0x9
03e9 00e0 | | Load_Encached Standard_Cache
03ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03eb 01cc | | Execute Vector,Catenate
03ec e00f | | Load 0x0,0xf
03ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ee 7814 |x | Jump 0x403
03ef e411 | | Load 0x2,0x11
03f0 e606 | | Load 0x3,0x6
03f1 0092 065e | ^| Action Push_String_Extended,0x65e ; "Segment "
03f3 e604 | | Load 0x3,0x4
03f4 e00c | | Load 0x0,0xc
03f5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03f6 01cc | | Execute Vector,Catenate
03f7 0092 0660 | `| Action Push_String_Extended,0x660 ; " is not referenced"
03f9 01cc | | Execute Vector,Catenate
03fa e00f | | Load 0x0,0xf
03fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03fc e407 | | Load 0x2,0x7
03fd e5ff | | Load 0x2,-0x1
03fe 0f00 | | Execute_Immediate Equal,0x0
03ff 0273 | s | Execute Discrete,Plus
0400 c407 | | Store 0x2,0x7
0401 4801 |H | Short_Literal 0x1
0402 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0403 e5ff | | Load 0x2,-0x1
0404 6830 |h0 | Jump_Zero 0x435
0405 00d9 | | Load_Top At_Offset_1
0406 0c01 | | Execute_Immediate Greater_Equal,0x1
0407 682d |h- | Jump_Zero 0x435
0408 e010 | | Load 0x0,0x10
0409 1b0f | | Execute Package,Field_Read,Field_Number 0xf
040a e003 | | Load 0x0,0x3
040b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040c 4800 |H | Short_Literal 0x0
040d e605 | | Load 0x3,0x5
040e e00b | | Load 0x0,0xb
040f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0410 c603 | | Store 0x3,0x3
0411 e603 | | Load 0x3,0x3
0412 8412 | | Call 0x2,0x12
0413 680e |h | Jump_Zero 0x422
0414 e411 | | Load 0x2,0x11
0415 4803 |H | Short_Literal 0x3
0416 0092 0661 | a| Action Push_String_Extended,0x661 ; "Destroyed unreferenced code segment "
0418 e604 | | Load 0x3,0x4
0419 e00c | | Load 0x0,0xc
041a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
041b 01cc | | Execute Vector,Catenate
041c e00f | | Load 0x0,0xf
041d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
041e e406 | | Load 0x2,0x6
041f 0a01 | | Execute_Immediate Plus,0x1
0420 c406 | | Store 0x2,0x6
0421 7813 |x | Jump 0x435
0422 e411 | | Load 0x2,0x11
0423 4805 |H | Short_Literal 0x5
0424 0092 0662 | b| Action Push_String_Extended,0x662 ; "Could not destroy unreferenced code segment "
0426 e604 | | Load 0x3,0x4
0427 e00c | | Load 0x0,0xc
0428 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0429 01cc | | Execute Vector,Catenate
042a 0092 0657 | W| Action Push_String_Extended,0x657 ; ": "
042c 01cc | | Execute Vector,Catenate
042d e603 | | Load 0x3,0x3
042e 8413 | | Call 0x2,0x13
042f 01cc | | Execute Vector,Catenate
0430 e00f | | Load 0x0,0xf
0431 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0432 e407 | | Load 0x2,0x7
0433 0a01 | | Execute_Immediate Plus,0x1
0434 c407 | | Store 0x2,0x7
0435 e602 | | Load 0x3,0x2
0436 e00b | | Load 0x0,0xb
0437 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0438 c602 | | Store 0x3,0x2
0439 00c9 | | Action Pop_Auxiliary_Loop
043a e602 | | Load 0x3,0x2
043b e00b | | Load 0x0,0xb
043c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
043d 6f72 |or | Jump_Zero 0x3b0
043e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
043f 0000 | | .XXX[0x1]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0448 | H | .CONST 0x0448 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0002 | | .CONST 0x0002 ; Number of locals
0443 INIT_0440:
0443 e01a | | Load 0x0,0x1a
0444 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0445 02c7 | | Declare_Variable Any
0446 00d8 | | Load_Top At_Offset_0
0447 1c00 | | Execute_Immediate Run_Utility,0x0
0448 BODY_0440:
0448 00d8 | | Load_Top At_Offset_0
0449 e411 | | Load 0x2,0x11
044a 0120 | | Execute Any,Is_Value
044b 6803 |h | Jump_Zero 0x44f
044c e00e | | Load 0x0,0xe
044d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
044e 7801 |x | Jump 0x450
044f e411 | | Load 0x2,0x11
0450 e5fd | | Load 0x2,-0x3
0451 e00e | | Load 0x0,0xe
0452 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0453 c411 | | Store 0x2,0x11
0454 c602 | | Store 0x3,0x2
0455 4801 |H | Short_Literal 0x1
0456 00d9 | | Load_Top At_Offset_1
0457 e01a | | Load 0x0,0x1a
0458 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0459 6807 |h | Jump_Zero 0x461
045a e00e | | Load 0x0,0xe
045b 180e | | Execute Package,Field_Execute,Field_Number 0xe
045c 00d9 | | Load_Top At_Offset_1
045d e00f | | Load 0x0,0xf
045e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
045f 00cc | | Action Pop_Block
0460 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0461 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0462 0000 0000 | | .BLANK 0000[0x6]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0486 | | .CONST 0x0486 ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0009 | | .CONST 0x0009 ; Number of locals
046b INIT_0468:
046b 0092 0663 | c| Action Push_String_Extended,0x663 ; "!??'C(WORLD).<*PROGRAM_LIBRARY>"
046d 0092 0664 | d| Action Push_String_Extended,0x664 ; "!??'C(WORLD).Code_Database'C(ARCHIVED_CODE)"
046f e011 | | Load 0x0,0x11
0470 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0471 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0472 e011 | | Load 0x0,0x11
0473 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0474 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0475 02c7 | | Declare_Variable Any
0476 00d8 | | Load_Top At_Offset_0
0477 1c00 | | Execute_Immediate Run_Utility,0x0
0478 e011 | | Load 0x0,0x11
0479 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047a e011 | | Load 0x0,0x11
047b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
047c 02c7 | | Declare_Variable Any
047d 00d8 | | Load_Top At_Offset_0
047e 1c00 | | Execute_Immediate Run_Utility,0x0
047f e005 | | Load 0x0,0x5
0480 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0481 02c7 | | Declare_Variable Any
0482 00d8 | | Load_Top At_Offset_0
0483 1c00 | | Execute_Immediate Run_Utility,0x0
0484 029f 05db | | Declare_Subprogram INIT_05d8,For_Call
0486 BODY_0468:
0486 4801 |H | Short_Literal 0x1
0487 e01b | | Load 0x0,0x1b
0488 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0489 e01b | | Load 0x0,0x1b
048a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
048b 7005 |p | Jump_Nonzero 0x491
048c 0092 0665 | e| Action Push_String_Extended,0x665 ; "Privileged mode is required to run this command"
048e 8417 | | Call 0x2,0x17
048f 00cc | | Action Pop_Block
0490 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0491 e40f | | Load 0x2,0xf
0492 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0493 e007 | | Load 0x0,0x7
0494 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0495 e008 | | Load 0x0,0x8
0496 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0497 e40f | | Load 0x2,0xf
0498 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0499 c410 | | Store 0x2,0x10
049a 00cf | | Action Mark_Auxiliary
049b 00e1 | | Load_Encached Boolean_Cache
049c 0266 | f | Execute Discrete,Bounds
049d 0007 | | Action Break_Optional
049e 00d8 | | Load_Top At_Offset_0
049f 6819 |h | Jump_Zero 0x4b9
04a0 e011 | | Load 0x0,0x11
04a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04a3 e605 | | Load 0x3,0x5
04a4 60bb |` | Indirect_Literal Discrete,0x560,{0x00000000, 0x00004000}
04a5 e003 | | Load 0x0,0x3
04a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a7 e007 | | Load 0x0,0x7
04a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04a9 e008 | | Load 0x0,0x8
04aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04ab 4801 |H | Short_Literal 0x1
04ac 4800 |H | Short_Literal 0x0
04ad e007 | | Load 0x0,0x7
04ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04af e011 | | Load 0x0,0x11
04b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04b2 e602 | | Load 0x3,0x2
04b3 e011 | | Load 0x0,0x11
04b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04b5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04b6 c605 | | Store 0x3,0x5
04b7 c604 | | Store 0x3,0x4
04b8 7818 |x | Jump 0x4d1
04b9 e011 | | Load 0x0,0x11
04ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04bb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04bc e605 | | Load 0x3,0x5
04bd 60a2 |` | Indirect_Literal Discrete,0x560,{0x00000000, 0x00004000}
04be e003 | | Load 0x0,0x3
04bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c0 e007 | | Load 0x0,0x7
04c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04c2 e008 | | Load 0x0,0x8
04c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04c4 4801 |H | Short_Literal 0x1
04c5 4800 |H | Short_Literal 0x0
04c6 e007 | | Load 0x0,0x7
04c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04c8 e011 | | Load 0x0,0x11
04c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04cb e603 | | Load 0x3,0x3
04cc e011 | | Load 0x0,0x11
04cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04cf c605 | | Store 0x3,0x5
04d0 c604 | | Store 0x3,0x4
04d1 e604 | | Load 0x3,0x4
04d2 6839 |h9 | Jump_Zero 0x50c
04d3 e604 | | Load 0x3,0x4
04d4 0e03 | | Execute_Immediate Not_Equal,0x3
04d5 7005 |p | Jump_Nonzero 0x4db
04d6 e605 | | Load 0x3,0x5
04d7 e011 | | Load 0x0,0x11
04d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04d9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04da 7031 |p1 | Jump_Nonzero 0x50c
04db 00d8 | | Load_Top At_Offset_0
04dc 6818 |h | Jump_Zero 0x4f5
04dd 0092 0666 | f| Action Push_String_Extended,0x666 ; "Unable to resolve name \x22!??'C(WORLD).<*PROGRAM_LIBRARY>\x22 because "
04df 6080 |` | Indirect_Literal Discrete,0x560,{0x00000000, 0x00004000}
04e0 e003 | | Load 0x0,0x3
04e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e2 e007 | | Load 0x0,0x7
04e3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04e4 e008 | | Load 0x0,0x8
04e5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04e6 4801 |H | Short_Literal 0x1
04e7 4800 |H | Short_Literal 0x0
04e8 e007 | | Load 0x0,0x7
04e9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04ea e011 | | Load 0x0,0x11
04eb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ec 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04ed e602 | | Load 0x3,0x2
04ee e604 | | Load 0x3,0x4
04ef e011 | | Load 0x0,0x11
04f0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04f1 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
04f2 01cc | | Execute Vector,Catenate
04f3 8416 | | Call 0x2,0x16
04f4 7817 |x | Jump 0x50c
04f5 0092 0667 | g| Action Push_String_Extended,0x667 ; "Unable to resolve name \x22!??'C(WORLD).Code_Database'C(ARCHIVED_CODE)\x22 because "
04f7 6068 |`h | Indirect_Literal Discrete,0x560,{0x00000000, 0x00004000}
04f8 e003 | | Load 0x0,0x3
04f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04fa e007 | | Load 0x0,0x7
04fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04fc e008 | | Load 0x0,0x8
04fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04fe 4801 |H | Short_Literal 0x1
04ff 4800 |H | Short_Literal 0x0
0500 e007 | | Load 0x0,0x7
0501 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0502 e011 | | Load 0x0,0x11
0503 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0504 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0505 e603 | | Load 0x3,0x3
0506 e604 | | Load 0x3,0x4
0507 e011 | | Load 0x0,0x11
0508 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0509 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
050a 01cc | | Execute Vector,Catenate
050b 8416 | | Call 0x2,0x16
050c 00cf | | Action Mark_Auxiliary
050d 7846 |xF | Jump 0x554
050e e011 | | Load 0x0,0x11
050f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0510 e607 | | Load 0x3,0x7
0511 0120 | | Execute Any,Is_Value
0512 6803 |h | Jump_Zero 0x516
0513 e011 | | Load 0x0,0x11
0514 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0515 7801 |x | Jump 0x517
0516 e607 | | Load 0x3,0x7
0517 e605 | | Load 0x3,0x5
0518 e011 | | Load 0x0,0x11
0519 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
051a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
051b c607 | | Store 0x3,0x7
051c c606 | | Store 0x3,0x6
051d e606 | | Load 0x3,0x6
051e 6811 |h | Jump_Zero 0x530
051f 0092 0668 | h| Action Push_String_Extended,0x668 ; "Bad status getting object for "
0521 e605 | | Load 0x3,0x5
0522 e011 | | Load 0x0,0x11
0523 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0524 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0525 01cc | | Execute Vector,Catenate
0526 0092 0657 | W| Action Push_String_Extended,0x657 ; ": "
0528 01cc | | Execute Vector,Catenate
0529 e606 | | Load 0x3,0x6
052a e011 | | Load 0x0,0x11
052b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
052c 011c | | Execute Any,Convert_Unchecked
052d 1c01 | | Execute_Immediate Run_Utility,0x1
052e 01cc | | Execute Vector,Catenate
052f 8416 | | Call 0x2,0x16
0530 00d9 | | Load_Top At_Offset_1
0531 681a |h | Jump_Zero 0x54c
0532 e608 | | Load 0x3,0x8
0533 0120 | | Execute Any,Is_Value
0534 6803 |h | Jump_Zero 0x538
0535 e005 | | Load 0x0,0x5
0536 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0537 7801 |x | Jump 0x539
0538 e608 | | Load 0x3,0x8
0539 4801 |H | Short_Literal 0x1
053a e607 | | Load 0x3,0x7
053b e40d | | Load 0x2,0xd
053c e005 | | Load 0x0,0x5
053d 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
053e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
053f c608 | | Store 0x3,0x8
0540 e40d | | Load 0x2,0xd
0541 e005 | | Load 0x0,0x5
0542 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0543 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0544 6814 |h | Jump_Zero 0x559
0545 e605 | | Load 0x3,0x5
0546 e011 | | Load 0x0,0x11
0547 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0548 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0549 e608 | | Load 0x3,0x8
054a 8420 | | Call 0x2,0x20
054b 7802 |x | Jump 0x54e
054c e607 | | Load 0x3,0x7
054d 8422 | " | Call 0x2,0x22
054e e605 | | Load 0x3,0x5
054f e011 | | Load 0x0,0x11
0550 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0551 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0552 c605 | | Store 0x3,0x5
0553 00c9 | | Action Pop_Auxiliary_Loop
0554 e605 | | Load 0x3,0x5
0555 e011 | | Load 0x0,0x11
0556 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0557 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0558 6fb5 |o | Jump_Zero 0x50e
0559 00ce | | Action Pop_Auxiliary
055a 00c8 | | Action Pop_Auxiliary_Range
055b 3742 |7B | Loop_Decreasing 0x49e
055c 00ce | | Action Pop_Auxiliary
055d 8423 | # | Call 0x2,0x23
055e 8609 | | Call 0x3,0x9
055f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0560 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0564 0000 0000 | | .BLANK 0000[0x4]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056d | m | .CONST 0x056d ; Address of begin
0569 058a | | .CONST 0x058a ; Address of exception handler
056a 0002 | | .CONST 0x0002 ; Number of locals
056b INIT_0568:
056b 029f 0613 | | Declare_Subprogram INIT_0610,For_Call
056d BODY_0568:
056d 0092 0669 | i| Action Push_String_Extended,0x669 ; "Exception raised getting name of unit "
056f e7ff | | Load 0x3,-0x1
0570 e005 | | Load 0x0,0x5
0571 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0572 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0573 01cc | | Execute Vector,Catenate
0574 0092 066a | j| Action Push_String_Extended,0x66a ; " in program library "
0576 01cc | | Execute Vector,Catenate
0577 e7ff | | Load 0x3,-0x1
0578 e005 | | Load 0x0,0x5
0579 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
057a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
057b e005 | | Load 0x0,0x5
057c 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
057d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
057e e011 | | Load 0x0,0x11
057f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0580 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0581 01cc | | Execute Vector,Catenate
0582 0092 0657 | W| Action Push_String_Extended,0x657 ; ": "
0584 01cc | | Execute Vector,Catenate
0585 e01c | | Load 0x0,0x1c
0586 180d | | Execute Package,Field_Execute,Field_Number 0xd
0587 01cc | | Execute Vector,Catenate
0588 8417 | | Call 0x2,0x17
0589 4501 |E | Exit_Suprogram New_Top_Offset 0x1
058a TRAP_0568:
058a 0007 | | Action Break_Optional
058b 8802 | | Call 0x4,0x2
058c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
058d 0000 0000 | | .XXX[0x3]
058f 0000 | |
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593 | | .CONST 0x0593 ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0001 | | .CONST 0x0001 ; Number of locals
0593 BODY_0590:
0593 BODY_0590:
0593 INIT_0590:
0593 INIT_0590:
0593 00da | | Load_Top At_Offset_2
0594 e00b | | Load 0x0,0xb
0595 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0596 0161 | a | Execute Variant_Record,Check_In_Formal_Type
0597 841b | | Call 0x2,0x1b
0598 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0599 0000 0000 | | .BLANK 0000[0x7]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a9 | | .CONST 0x05a9 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0003 | | .CONST 0x0003 ; Number of locals
05a3 INIT_05a0:
05a3 e7ff | | Load 0x3,-0x1
05a4 e005 | | Load 0x0,0x5
05a5 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
05a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05a7 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call
05a9 BODY_05a0:
05a9 8803 | | Call 0x4,0x3
05aa 00d9 | | Load_Top At_Offset_1
05ab 680b |h | Jump_Zero 0x5b7
05ac e40c | | Load 0x2,0xc
05ad 00da | | Load_Top At_Offset_2
05ae e01d | | Load 0x0,0x1d
05af 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
05b0 6806 |h | Jump_Zero 0x5b7
05b1 e7ff | | Load 0x3,-0x1
05b2 e40c | | Load 0x2,0xc
05b3 00db | | Load_Top At_Offset_3
05b4 e01d | | Load 0x0,0x1d
05b5 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
05b6 841e | | Call 0x2,0x1e
05b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05c2 | | .CONST 0x05c2 ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0002 | | .CONST 0x0002 ; Number of locals
05bb INIT_05b8:
05bb 4800 |H | Short_Literal 0x0
05bc 00db | | Load_Top At_Offset_3
05bd e40a | | Load 0x2,0xa
05be e01e | | Load 0x0,0x1e
05bf 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05c0 00e4 | | Load_Encached Positive_Cache
05c1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
05c2 BODY_05b8:
05c2 00d8 | | Load_Top At_Offset_0
05c3 0aff | | Execute_Immediate Plus,-0x1
05c4 e9ff | | Load 0x4,-0x1
05c5 01d7 | | Execute Vector,Field_Read
05c6 0f2e | . | Execute_Immediate Equal,0x2e
05c7 6803 |h | Jump_Zero 0x5cb
05c8 00d8 | | Load_Top At_Offset_0
05c9 0aff | | Execute_Immediate Plus,-0x1
05ca 0059 | Y | Store_Top Discrete,At_Offset_1
05cb 00db | | Load_Top At_Offset_3
05cc 01dd | | Execute Vector,First
05cd 00d9 | | Load_Top At_Offset_1
05ce 0aff | | Execute_Immediate Plus,-0x1
05cf 00d8 | | Load_Top At_Offset_0
05d0 00e4 | | Load_Encached Positive_Cache
05d1 0260 | ` | Execute Discrete,In_Type
05d2 7001 |p | Jump_Nonzero 0x5d4
05d3 0801 | | Execute_Immediate Raise,0x1
05d4 e9ff | | Load 0x4,-0x1
05d5 01cf | | Execute Vector,Slice_Read
05d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d7 0000 | | .XXX[0x1]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05dd | | .CONST 0x05dd ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0002 | | .CONST 0x0002 ; Number of locals
05db INIT_05d8:
05db e00e | | Load 0x0,0xe
05dc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05dd BODY_05d8:
05dd e407 | | Load 0x2,0x7
05de 0f00 | | Execute_Immediate Equal,0x0
05df e405 | | Load 0x2,0x5
05e0 0f00 | | Execute_Immediate Equal,0x0
05e1 0279 | y | Execute Discrete,And
05e2 6803 |h | Jump_Zero 0x5e6
05e3 4803 |H | Short_Literal 0x3
05e4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05e5 7802 |x | Jump 0x5e8
05e6 4805 |H | Short_Literal 0x5
05e7 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05e8 e411 | | Load 0x2,0x11
05e9 00d9 | | Load_Top At_Offset_1
05ea 0092 066b | k| Action Push_String_Extended,0x66b ; "Checked"
05ec e402 | | Load 0x2,0x2
05ed 00e0 | | Load_Encached Standard_Cache
05ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05ef 01cc | | Execute Vector,Catenate
05f0 e402 | | Load 0x2,0x2
05f1 0092 066c | l| Action Push_String_Extended,0x66c ; " code segment"
05f3 8415 | | Call 0x2,0x15
05f4 01cc | | Execute Vector,Catenate
05f5 0092 066d | m| Action Push_String_Extended,0x66d ; ", found"
05f7 01cc | | Execute Vector,Catenate
05f8 e405 | | Load 0x2,0x5
05f9 00e0 | | Load_Encached Standard_Cache
05fa 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05fb 01cc | | Execute Vector,Catenate
05fc e405 | | Load 0x2,0x5
05fd 0092 066e | n| Action Push_String_Extended,0x66e ; " unreferenced segment"
05ff 8415 | | Call 0x2,0x15
0600 01cc | | Execute Vector,Catenate
0601 0092 066f | o| Action Push_String_Extended,0x66f ; ", destroyed"
0603 01cc | | Execute Vector,Catenate
0604 e406 | | Load 0x2,0x6
0605 00e0 | | Load_Encached Standard_Cache
0606 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0607 01cc | | Execute Vector,Catenate
0608 e406 | | Load 0x2,0x6
0609 0092 066e | n| Action Push_String_Extended,0x66e ; " unreferenced segment"
060b 8415 | | Call 0x2,0x15
060c 01cc | | Execute Vector,Catenate
060d e00f | | Load 0x0,0xf
060e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
060f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613 | | .CONST 0x0613 ; Address of begin
0611 0628 | ( | .CONST 0x0628 ; Address of exception handler
0612 0001 | | .CONST 0x0001 ; Number of locals
0613 BODY_0610:
0613 INIT_0610:
0613 0092 0670 | p| Action Push_String_Extended,0x670 ; "Exception raised getting name of some unit in program library "
0615 e7ff | | Load 0x3,-0x1
0616 e005 | | Load 0x0,0x5
0617 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0618 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0619 e005 | | Load 0x0,0x5
061a 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
061b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
061c e011 | | Load 0x0,0x11
061d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
061e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
061f 01cc | | Execute Vector,Catenate
0620 0092 0657 | W| Action Push_String_Extended,0x657 ; ": "
0622 01cc | | Execute Vector,Catenate
0623 e01c | | Load 0x0,0x1c
0624 180d | | Execute Package,Field_Execute,Field_Number 0xd
0625 01cc | | Execute Vector,Catenate
0626 8417 | | Call 0x2,0x17
0627 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0628 TRAP_0610:
0628 0007 | | Action Break_Optional
0629 0092 0671 | q| Action Push_String_Extended,0x671 ; "Exception raised getting name of unit: "
062b e01c | | Load 0x0,0x1c
062c 180d | | Execute Package,Field_Execute,Field_Number 0xd
062d 01cc | | Execute Vector,Catenate
062e 8417 | | Call 0x2,0x17
062f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633 | 3 | .CONST 0x0633 ; Address of begin
0631 063b | ; | .CONST 0x063b ; Address of exception handler
0632 0001 | | .CONST 0x0001 ; Number of locals
0633 BODY_0630:
0633 INIT_0630:
0633 e802 | | Load 0x4,0x2
0634 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0635 0f35 | 5 | Execute_Immediate Equal,0x35
0636 6803 |h | Jump_Zero 0x63a
0637 0092 0672 | r| Action Push_String_Extended,0x672 ; "It is very unlikely that this message will ever be emitted"
0639 8417 | | Call 0x2,0x17
063a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
063b TRAP_0630:
063b 0007 | | Action Break_Optional
063c 0092 0673 | s| Action Push_String_Extended,0x673 ; "Found corrupt Comp_Unit_Id for unit "
063e e7ff | | Load 0x3,-0x1
063f e005 | | Load 0x0,0x5
0640 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0641 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0642 01cc | | Execute Vector,Catenate
0643 8417 | | Call 0x2,0x17
0644 00ec | | Load_Encached Diana_Tree_Cache
0645 a802 | | Store_Unchecked 0x4,0x2
0646 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0647 ; --------------------------------------------------------------------------------------
0647 ; STRING TABLE
0647 ; --------------------------------------------------------------------------------------
0647 005c | \ | .STRTAB 0x005c->0x0675 ; "CODE"
0648 005e | ^ | .STRTAB 0x005e->0x0677 ; "ELABORATION"
0649 0067 | g | .STRTAB 0x0067->0x067c ; "MAIN_PROGRAM_CLOSURE"
064a 0079 | y | .STRTAB 0x0079->0x0686 ; "<*PROGRAM_LIBRARY>"
064b 0089 | | .STRTAB 0x0089->0x068f ; "<???>"
064c 008c | | .STRTAB 0x008c->0x0692 ; "[Program_Library_Maintenance.Find_Unreferenced_Code_Segments (Options => \x22"
064d 00d4 | | .STRTAB 0x00d4->0x06b7 ; "\x22, Response => \x22"
064e 00e2 | | .STRTAB 0x00e2->0x06bf ; "\x22);]"
064f 00e4 | | .STRTAB 0x00e4->0x06c1 ; "[End of Program_Library_Maintenance.Find_Unreferenced_Code_Segments command]"
0650 012e | . | .STRTAB 0x012e->0x06e7 ; "main program closure "
0651 0141 | A | .STRTAB 0x0141->0x06f1 ; "elaboration "
0652 014b | K | .STRTAB 0x014b->0x06f7 ; "code view unit "
0653 0158 | X | .STRTAB 0x0158->0x06ff ; "Unexpected class of object found on "
0654 017a | z | .STRTAB 0x017a->0x0711 ; "code segment object list of "
0655 0194 | | .STRTAB 0x0194->0x071f ; ":"
0656 0193 | | .STRTAB 0x0193->0x071f ; "Bad status getting version for Archived_Code object "
0657 01c5 | | .STRTAB 0x01c5->0x0739 ; ": "
0658 01c5 | | .STRTAB 0x01c5->0x073a ; "Bad status opening Archived_Code object "
0659 01eb | | .STRTAB 0x01eb->0x074e ; "for Loaded_Main unit "
065a 01fe | | .STRTAB 0x01fe->0x0759 ; "Checking "
065b 0205 | | .STRTAB 0x0205->0x075d ; "Skipping non-R1000 world "
065c 021c | | .STRTAB 0x021c->0x076a ; "Bad status getting enclosing directory for "
065d 0245 | E | .STRTAB 0x0245->0x077f ; "for code view "
065e 0251 | Q | .STRTAB 0x0251->0x0786 ; "Segment "
065f 0257 | W | .STRTAB 0x0257->0x078a ; " is not referenced but has a reference count of"
0660 0284 | | .STRTAB 0x0284->0x07a2 ; " is not referenced"
0661 0294 | | .STRTAB 0x0294->0x07ab ; "Destroyed unreferenced code segment "
0662 02b6 | | .STRTAB 0x02b6->0x07bd ; "Could not destroy unreferenced code segment "
0663 02e0 | | .STRTAB 0x02e0->0x07d3 ; "!??'C(WORLD).<*PROGRAM_LIBRARY>"
0664 02fd | | .STRTAB 0x02fd->0x07e2 ; "!??'C(WORLD).Code_Database'C(ARCHIVED_CODE)"
0665 0326 | & | .STRTAB 0x0326->0x07f8 ; "Privileged mode is required to run this command"
0666 0353 | S | .STRTAB 0x0353->0x080f ; "Unable to resolve name \x22!??'C(WORLD).<*PROGRAM_LIBRARY>\x22 because "
0667 0392 | | .STRTAB 0x0392->0x0830 ; "Unable to resolve name \x22!??'C(WORLD).Code_Database'C(ARCHIVED_CODE)\x22 because "
0668 03dd | | .STRTAB 0x03dd->0x0856 ; "Bad status getting object for "
0669 03f9 | | .STRTAB 0x03f9->0x0865 ; "Exception raised getting name of unit "
066a 041d | | .STRTAB 0x041d->0x0878 ; " in program library "
066b 042f | / | .STRTAB 0x042f->0x0882 ; "Checked"
066c 0434 | 4 | .STRTAB 0x0434->0x0886 ; " code segment"
066d 043f | ? | .STRTAB 0x043f->0x088c ; ", found"
066e 0444 | D | .STRTAB 0x0444->0x0890 ; " unreferenced segment"
066f 0457 | W | .STRTAB 0x0457->0x089a ; ", destroyed"
0670 0460 | ` | .STRTAB 0x0460->0x08a0 ; "Exception raised getting name of some unit in program library "
0671 049d | | .STRTAB 0x049d->0x08bf ; "Exception raised getting name of unit: "
0672 04c2 | | .STRTAB 0x04c2->0x08d3 ; "It is very unlikely that this message will ever be emitted"
0673 04fa | | .STRTAB 0x04fa->0x08f0 ; "Found corrupt Comp_Unit_Id for unit "
0674 051c | | .STREND 0x051c->0x0902
0675 434f 4445 |CODE| .STRTAB_STRINGS
0902 0000 0000 | | .BLANK 0000[0x6]
0908 ; --------------------------------------------------------------------------------------
0908 ; Debug Table
0908 ; --------------------------------------------------------------------------------------
0908 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc284,0x0000,0x0001,0x0000
090e 0000 0000 | | .BLANK 0000[0xf2]