|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 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 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 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 INIT_00c0,For_Call 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 INIT_00d8,For_Call,Unelaborated 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 INIT_00e0,For_Call 0068 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 006a e00e | | Load 0x0,0xe 006b 1913 | | Execute Package,Field_Reference,Field_Number 0x13 006c 0007 | | Action Break_Optional 006d 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 006f 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0071 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0073 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 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 INIT_0170,For_Call 007b 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 007d 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 007f 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 0081 029e 01f3 | | Declare_Subprogram INIT_01f0,For_Call,Unelaborated 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 INIT_0268,For_Call 0089 029f 028b | | Declare_Subprogram INIT_0288,For_Call 008b 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call 008d 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 008f 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 0091 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call 0093 029f 040b | | Declare_Subprogram INIT_0408,For_Call 0095 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call 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_Suprogram New_Top_Offset 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 0x4 00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Value,New_Top_Offset 0x1 017b 00ea | | Load_Encached Null_String_Cache 017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017d 0092 0623 | #| Action Push_String_Extended,0x623 ; "elaboration " 017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 INIT_0540,For_Call 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_0568,For_Call 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_Suprogram New_Top_Offset 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 INIT_0588,For_Call 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x4 0429 4501 |E | Exit_Suprogram New_Top_Offset 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 INIT_05a8,For_Call 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_05e0,For_Call 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_Suprogram New_Top_Offset 0x1 0562 TRAP_0540: 0562 0007 | | Action Break_Optional 0563 8802 | | Call 0x4,0x2 0564 4501 |E | Exit_Suprogram New_Top_Offset 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 INIT_0600,For_Call 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 " 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" 0639 0357 | W | .STRTAB 0x0357->0x07e4 ; "\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" 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 04c7 | | .XXX[0x6] 08a0 0001 0404 | | 08a2 0800 0100 | | 08a4 0000 0000 | | .BLANK 0000[0x4] 08a8 0001 9804 | | .XXX[0x1c] 08aa 0800 1380 | | 08ac 0000 0000 | | 08ae 0000 00cd | | 08b0 0001 b004 | | 08b2 0800 0280 | | 08b4 0000 0000 | | 08b6 0000 0032 | 2| 08b8 0001 0404 | | 08ba 0800 0100 | | 08bc 8000 0000 | | 08be 0000 0000 | | 08c0 001d c004 | | 08c2 0800 0300 | | 08c4 0000 0000 | | .BLANK 0000[0x4] 08c8 000e 3c04 | < | .XXX[0x64] 08ca 0000 0644 | D| 08cc 00f9 8ccd | | 08ce 0000 0527 | '| 08d0 0001 0404 | | 08d2 0800 0100 | | 08d4 0000 0000 | | 08d6 0000 0001 | | 08d8 00f9 8ccd | | 08da 0000 0016 | | 08dc 0096 d80d | | 08de 0000 4732 | G2| 08e0 00f9 8ccd | | 08e2 0000 0016 | | 08e4 0096 d80d | | 08e6 0000 4a32 | J2| 08e8 000e 3c04 | < | 08ea 0800 10ec | | 08ec 00f9 8ccd | | 08ee 0000 0770 | p| 08f0 0001 0404 | | 08f2 0800 0100 | | 08f4 0000 0000 | | 08f6 0000 0001 | | 08f8 000e 3c04 | < | 08fa 0800 10ec | | 08fc 00f9 8ccd | | 08fe 0000 0918 | | 0900 0001 0404 | | 0902 0800 0100 | | 0904 0000 0000 | | 0906 0000 0001 | | 0908 000e 3c04 | < | 090a 0000 0644 | D| 090c 00f9 8ccd | | 090e 0000 0527 | '| 0910 0001 9804 | | 0912 0800 1380 | | 0914 0000 0000 | | 0916 0000 00cd | | 0918 000e 3c04 | < | 091a 0000 007f | | 091c 0096 d80d | | 091e 0000 4252 | BR| 0920 000e 3c04 | < | 0922 0000 003f | ?| 0924 0000 0067 | g| 0926 0000 0978 | x| 0928 000e 3c04 | < | 092a 0800 1c10 | | 092c 0000 0000 | | .BLANK 0000[0x4] 0930 00f9 8ccd | | .XXX[0x10] 0932 0000 1196 | | 0934 0061 0c08 | a | 0936 0000 7c33 | |3| 0938 0001 9804 | | 093a 0800 1380 | | 093c 0000 0000 | | 093e 0000 00cd | | 0940 0000 0000 | | .BLANK 0000[0x7] 0947 0001 000e | | .XXX[0x7] 0949 3c04 0000 |< | 094b 2a18 0d0b |* | 094d 8804 | | 094e 0000 0000 | | .BLANK 0000[0x9] 0957 0003 000e | | .XXX[0xd] 0959 3c04 0000 |< | 095b 2a18 0d0b |* | 095d 8804 0000 | | 095f 0000 000e | | 0961 7404 0800 |t | 0963 0338 | 8 | 0964 0000 0000 | | .BLANK 0000[0x4] 0968 0037 a404 | 7 | .XXX[0x4] 096a 0800 0138 | 8| 096c 0000 0000 | | .BLANK 0000[0x4] 0970 0001 9804 | | .XXX[0x50] 0972 0800 1380 | | 0974 0000 0000 | | 0976 0000 00cd | | 0978 0037 a404 | 7 | 097a 0000 007f | | 097c 0061 0c08 | a | 097e 0000 a5c2 | | 0980 0037 a404 | 7 | 0982 0000 003f | ?| 0984 0002 a011 | | 0986 0000 0978 | x| 0988 00f9 8ccd | | 098a 0000 1796 | | 098c 0062 0408 | b | 098e 0000 0c33 | 3| 0990 00f9 8ccd | | 0992 0000 17ff | | 0994 0062 0408 | b | 0996 0000 08e3 | | 0998 0037 a404 | 7 | 099a 0000 003f | ?| 099c 0002 f018 | | 099e 0000 0978 | x| 09a0 0036 b004 | 6 | 09a2 0000 0144 | D| 09a4 0e84 f10a | | 09a6 0000 201a | | 09a8 0036 b004 | 6 | 09aa 0000 007f | | 09ac 0062 0408 | b | 09ae 0000 0c72 | r| 09b0 0036 b004 | 6 | 09b2 0000 003f | ?| 09b4 0003 2044 | D| 09b6 0000 0978 | x| 09b8 0036 b004 | 6 | 09ba 0000 0144 | D| 09bc 0e84 f10a | | 09be 0000 201a | | 09c0 0000 0000 | | .BLANK 0000[0x7] 09c7 0001 0036 | 6| .XXX[0x39] 09c9 b004 0000 | | 09cb 1598 0d0e | | 09cd 6404 0000 |d | 09cf 0000 0032 | 2| 09d1 1804 0000 | | 09d3 04c4 0e84 | | 09d5 f10a 0001 | | 09d7 8102 0032 | 2| 09d9 1804 0000 | | 09db 007f 00be | | 09dd 0014 0000 | | 09df 4be2 0032 |K 2| 09e1 1804 0000 | | 09e3 003f 0003 | ? | 09e5 8095 0000 | | 09e7 0978 0032 | x 2| 09e9 2004 0800 | | 09eb 0138 0e84 | 8 | 09ed f10a 0001 | | 09ef 8851 0d24 | Q $| 09f1 a004 0000 | | 09f3 007f 00be | | 09f5 0014 0000 | | 09f7 4af2 0d24 |J $| 09f9 a004 0000 | | 09fb 003f 0003 | ? | 09fd b079 0000 | y | 09ff 0978 | x |