|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0510 | | .CONST 0x0510 ; 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 8003 | | .CONST 0x8003 ; 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 0060 | ` | .CONST 0x0060 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0018 | | .CONST 0x0018 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
001e 02c7 | | Declare_Variable Any
001f 00d8 | | Load_Top At_Offset_0
0020 1c00 | | Execute_Immediate Run_Utility,0x0
0021 e002 | | Load 0x0,0x2
0022 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0023 02ff | | Declare_Variable Variant_Record
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 e002 | | Load 0x0,0x2
0027 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0029 e003 | | Load 0x0,0x3
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b e002 | | Load 0x0,0x2
002c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002d e004 | | Load 0x0,0x4
002e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002f 02c7 | | Declare_Variable Any
0030 00d8 | | Load_Top At_Offset_0
0031 1c00 | | Execute_Immediate Run_Utility,0x0
0032 00ec | | Load_Encached Diana_Tree_Cache
0033 039d | | Declare_Variable Heap_Access,Duplicate
0034 039d | | Declare_Variable Heap_Access,Duplicate
0035 00ec | | Load_Encached Diana_Tree_Cache
0036 e005 | | Load 0x0,0x5
0037 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0038 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0039 02c7 | | Declare_Variable Any
003a 00d8 | | Load_Top At_Offset_0
003b 1c00 | | Execute_Immediate Run_Utility,0x0
003c e006 | | Load 0x0,0x6
003d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003e 02c7 | | Declare_Variable Any
003f 00d8 | | Load_Top At_Offset_0
0040 1c00 | | Execute_Immediate Run_Utility,0x0
0041 00ee | | Load_Encached Diana_Seq_Type_Cache
0042 e007 | | Load 0x0,0x7
0043 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0044 02ff | | Declare_Variable Variant_Record
0045 00d8 | | Load_Top At_Offset_0
0046 1c00 | | Execute_Immediate Run_Utility,0x0
0047 00d8 | | Load_Top At_Offset_0
0048 02ff | | Declare_Variable Variant_Record
0049 00d8 | | Load_Top At_Offset_0
004a 1c00 | | Execute_Immediate Run_Utility,0x0
004b e007 | | Load 0x0,0x7
004c 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
004d 02c7 | | Declare_Variable Any
004e 00d8 | | Load_Top At_Offset_0
004f 1c00 | | Execute_Immediate Run_Utility,0x0
0050 00e2 | | Load_Encached Integer_Cache
0051 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0052 00e1 | | Load_Encached Boolean_Cache
0053 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0054 e008 | | Load 0x0,0x8
0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0056 02c7 | | Declare_Variable Any
0057 00d8 | | Load_Top At_Offset_0
0058 1c00 | | Execute_Immediate Run_Utility,0x0
0059 00e1 | | Load_Encached Boolean_Cache
005a 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
005c 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
005e 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0060 BODY_0018:
0060 e407 | | Load 0x2,0x7
0061 e414 | | Load 0x2,0x14
0062 0120 | | Execute Any,Is_Value
0063 6803 |h | Jump_Zero 0x67
0064 e008 | | Load 0x0,0x8
0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0066 7801 |x | Jump 0x68
0067 e414 | | Load 0x2,0x14
0068 e5fe | | Load 0x2,-0x2
0069 e008 | | Load 0x0,0x8
006a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
006b c414 | | Store 0x2,0x14
006c c407 | | Store 0x2,0x7
006d 4801 |H | Short_Literal 0x1
006e e407 | | Load 0x2,0x7
006f e004 | | Load 0x0,0x4
0070 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0071 6806 |h | Jump_Zero 0x78
0072 e008 | | Load 0x0,0x8
0073 180e | | Execute Package,Field_Execute,Field_Number 0xe
0074 e407 | | Load 0x2,0x7
0075 e009 | | Load 0x0,0x9
0076 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0077 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0078 e414 | | Load 0x2,0x14
0079 4802 |H | Short_Literal 0x2
007a e008 | | Load 0x0,0x8
007b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
007c a415 | | Store_Unchecked 0x2,0x15
007d e00a | | Load 0x0,0xa
007e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
007f 7007 |p | Jump_Nonzero 0x87
0080 e414 | | Load 0x2,0x14
0081 4805 |H | Short_Literal 0x5
0082 0092 03ec | | Action Push_String_Extended,0x3ec ; "Operator capability is required to use Repair_Directory"
0084 e009 | | Load 0x0,0x9
0085 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0086 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0087 e002 | | Load 0x0,0x2
0088 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0089 1b0f | | Execute Package,Field_Read,Field_Number 0xf
008a e402 | | Load 0x2,0x2
008b 604c |`L | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00004000}
008c e006 | | Load 0x0,0x6
008d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008e e00b | | Load 0x0,0xb
008f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0090 e00c | | Load 0x0,0xc
0091 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0092 4801 |H | Short_Literal 0x1
0093 4800 |H | Short_Literal 0x0
0094 e00b | | Load 0x0,0xb
0095 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0096 e002 | | Load 0x0,0x2
0097 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0098 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0099 e5ff | | Load 0x2,-0x1
009a 0092 03ed | | Action Push_String_Extended,0x3ed ; "'C(LIB)"
009c 01cc | | Execute Vector,Catenate
009d e002 | | Load 0x0,0x2
009e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
009f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a0 c402 | | Store 0x2,0x2
00a1 c404 | | Store 0x2,0x4
00a2 e404 | | Load 0x2,0x4
00a3 6823 |h# | Jump_Zero 0xc7
00a4 e414 | | Load 0x2,0x14
00a5 4805 |H | Short_Literal 0x5
00a6 0092 03ee | | Action Push_String_Extended,0x3ee ; "Cannot repair "
00a8 e5ff | | Load 0x2,-0x1
00a9 01cc | | Execute Vector,Catenate
00aa 0092 03ef | | Action Push_String_Extended,0x3ef ; " because "
00ac 01cc | | Execute Vector,Catenate
00ad 602a |`* | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00004000}
00ae e006 | | Load 0x0,0x6
00af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b0 e00b | | Load 0x0,0xb
00b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b2 e00c | | Load 0x0,0xc
00b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b4 4801 |H | Short_Literal 0x1
00b5 4800 |H | Short_Literal 0x0
00b6 e00b | | Load 0x0,0xb
00b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b8 e002 | | Load 0x0,0x2
00b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ba 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00bb e5ff | | Load 0x2,-0x1
00bc 0092 03ed | | Action Push_String_Extended,0x3ed ; "'C(LIB)"
00be 01cc | | Execute Vector,Catenate
00bf e404 | | Load 0x2,0x4
00c0 e002 | | Load 0x0,0x2
00c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c2 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00c3 01cc | | Execute Vector,Catenate
00c4 e009 | | Load 0x0,0x9
00c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c7 00cf | | Action Mark_Auxiliary
00c8 7807 |x | Jump 0xd0
00c9 8418 | | Call 0x2,0x18
00ca e402 | | Load 0x2,0x2
00cb e002 | | Load 0x0,0x2
00cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00cd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ce c402 | | Store 0x2,0x2
00cf 00c9 | | Action Pop_Auxiliary_Loop
00d0 e402 | | Load 0x2,0x2
00d1 e002 | | Load 0x0,0x2
00d2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00d4 6ff4 |o | Jump_Zero 0xc9
00d5 00ce | | Action Pop_Auxiliary
00d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d7 0000 | | .XXX[0x1]
00d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00dc 0000 0000 | | .BLANK 0000[0x4]
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 e415 | | Load 0x2,0x15
00e4 6802 |h | Jump_Zero 0xe7
00e5 e7ff | | Load 0x3,-0x1
00e6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00e7 e7ff | | Load 0x3,-0x1
00e8 e7fd | | Load 0x3,-0x3
00e9 01cc | | Execute Vector,Catenate
00ea e7fe | | Load 0x3,-0x2
00eb 01cc | | Execute Vector,Catenate
00ec 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0108 | | .CONST 0x0108 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0007 | | .CONST 0x0007 ; Number of locals
00f3 INIT_00f0:
00f3 e006 | | Load 0x0,0x6
00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f5 02c7 | | Declare_Variable Any
00f6 00d8 | | Load_Top At_Offset_0
00f7 1c00 | | Execute_Immediate Run_Utility,0x0
00f8 00e1 | | Load_Encached Boolean_Cache
00f9 e007 | | Load 0x0,0x7
00fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fb 02ff | | Declare_Variable Variant_Record
00fc 00d8 | | Load_Top At_Offset_0
00fd 1c00 | | Execute_Immediate Run_Utility,0x0
00fe e007 | | Load 0x0,0x7
00ff 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
0100 0322 | " | Declare_Variable Record
0101 e007 | | Load 0x0,0x7
0102 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
0103 0322 | " | Declare_Variable Record
0104 00d8 | | Load_Top At_Offset_0
0105 1c00 | | Execute_Immediate Run_Utility,0x0
0106 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
0108 BODY_00f0:
0108 4800 |H | Short_Literal 0x0
0109 a7fc | | Store_Unchecked 0x3,-0x4
010a e003 | | Load 0x0,0x3
010b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
010c e606 | | Load 0x3,0x6
010d e605 | | Load 0x3,0x5
010e e006 | | Load 0x0,0x6
010f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0110 6023 |`# | Indirect_Literal Discrete,0x134,{0x00000000, 0x00028000}
0111 e7ff | | Load 0x3,-0x1
0112 e007 | | Load 0x0,0x7
0113 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0114 00d2 | | Pop_Control Pop_Count_2
0115 c405 | | Store 0x2,0x5
0116 e405 | | Load 0x2,0x5
0117 7019 |p | Jump_Nonzero 0x131
0118 e605 | | Load 0x3,0x5
0119 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011a 6811 |h | Jump_Zero 0x12c
011b e606 | | Load 0x3,0x6
011c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011d 680c |h | Jump_Zero 0x12a
011e e606 | | Load 0x3,0x6
011f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0120 e007 | | Load 0x0,0x7
0121 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0122 7005 |p | Jump_Nonzero 0x128
0123 e606 | | Load 0x3,0x6
0124 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0125 e007 | | Load 0x0,0x7
0126 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0127 7805 |x | Jump 0x12d
0128 4801 |H | Short_Literal 0x1
0129 7803 |x | Jump 0x12d
012a 4801 |H | Short_Literal 0x1
012b 7801 |x | Jump 0x12d
012c 4801 |H | Short_Literal 0x1
012d a7fc | | Store_Unchecked 0x3,-0x4
012e e7fc | | Load 0x3,-0x4
012f 6801 |h | Jump_Zero 0x131
0130 8607 | | Call 0x3,0x7
0131 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0132 0000 0000 | | .XXX[0x2]
0134 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0145 | E | .CONST 0x0145 ; Address of begin
0139 0201 | | .CONST 0x0201 ; Address of exception handler
013a 0005 | | .CONST 0x0005 ; Number of locals
013b INIT_0138:
013b e402 | | Load 0x2,0x2
013c e002 | | Load 0x0,0x2
013d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
013e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
013f 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
0141 029f 0383 | | Declare_Subprogram INIT_0380,For_Call
0143 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call
0145 BODY_0138:
0145 e414 | | Load 0x2,0x14
0146 4802 |H | Short_Literal 0x2
0147 0092 03f0 | | Action Push_String_Extended,0x3f0 ; "Examining "
0149 e602 | | Load 0x3,0x2
014a 01cc | | Execute Vector,Catenate
014b 0092 03f1 | | Action Push_String_Extended,0x3f1 ; " for damage."
014d 01cc | | Execute Vector,Catenate
014e e009 | | Load 0x0,0x9
014f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0150 e002 | | Load 0x0,0x2
0151 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0152 e403 | | Load 0x2,0x3
0153 60c8 |` | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00004000}
0154 e006 | | Load 0x0,0x6
0155 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0156 e402 | | Load 0x2,0x2
0157 e002 | | Load 0x0,0x2
0158 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0159 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
015a 00d1 | | Pop_Control Pop_Count_1
015b c406 | | Store 0x2,0x6
015c e406 | | Load 0x2,0x6
015d 6815 |h | Jump_Zero 0x173
015e e414 | | Load 0x2,0x14
015f 4805 |H | Short_Literal 0x5
0160 0092 03f2 | | Action Push_String_Extended,0x3f2 ; "Cannot gain access to internal structure of "
0162 e602 | | Load 0x3,0x2
0163 01cc | | Execute Vector,Catenate
0164 0092 03f3 | | Action Push_String_Extended,0x3f3 ; " ("
0166 01cc | | Execute Vector,Catenate
0167 e406 | | Load 0x2,0x6
0168 e002 | | Load 0x0,0x2
0169 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016a 011c | | Execute Any,Convert_Unchecked
016b 1c01 | | Execute_Immediate Run_Utility,0x1
016c 01cc | | Execute Vector,Catenate
016d 0092 03f4 | | Action Push_String_Extended,0x3f4 ; ")."
016f 01cc | | Execute Vector,Catenate
0170 e009 | | Load 0x0,0x9
0171 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0172 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0173 e00d | | Load 0x0,0xd
0174 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0175 e006 | | Load 0x0,0x6
0176 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0177 c40d | | Store 0x2,0xd
0178 e003 | | Load 0x0,0x3
0179 1b11 | | Execute Package,Field_Read,Field_Number 0x11
017a e40c | | Load 0x2,0xc
017b 0120 | | Execute Any,Is_Value
017c 6804 |h | Jump_Zero 0x181
017d e005 | | Load 0x0,0x5
017e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
017f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0180 7801 |x | Jump 0x182
0181 e40c | | Load 0x2,0xc
0182 e40d | | Load 0x2,0xd
0183 4800 |H | Short_Literal 0x0
0184 4803 |H | Short_Literal 0x3
0185 e403 | | Load 0x2,0x3
0186 e005 | | Load 0x0,0x5
0187 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0188 0162 | b | Execute Variant_Record,Check_In_Type
0189 e005 | | Load 0x0,0x5
018a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
018b c40c | | Store 0x2,0xc
018c c405 | | Store 0x2,0x5
018d e405 | | Load 0x2,0x5
018e 6815 |h | Jump_Zero 0x1a4
018f e414 | | Load 0x2,0x14
0190 4805 |H | Short_Literal 0x5
0191 0092 03f2 | | Action Push_String_Extended,0x3f2 ; "Cannot gain access to internal structure of "
0193 e602 | | Load 0x3,0x2
0194 01cc | | Execute Vector,Catenate
0195 0092 03f3 | | Action Push_String_Extended,0x3f3 ; " ("
0197 01cc | | Execute Vector,Catenate
0198 e405 | | Load 0x2,0x5
0199 e003 | | Load 0x0,0x3
019a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019b 011c | | Execute Any,Convert_Unchecked
019c 1c01 | | Execute_Immediate Run_Utility,0x1
019d 01cc | | Execute Vector,Catenate
019e 0092 03f4 | | Action Push_String_Extended,0x3f4 ; ")."
01a0 01cc | | Execute Vector,Catenate
01a1 e009 | | Load 0x0,0x9
01a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01a4 e40c | | Load 0x2,0xc
01a5 e005 | | Load 0x0,0x5
01a6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01a7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01a8 e007 | | Load 0x0,0x7
01a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01aa 0162 | b | Execute Variant_Record,Check_In_Type
01ab e40f | | Load 0x2,0xf
01ac 016d | m | Execute Variant_Record,Structure_Write
01ad 4801 |H | Short_Literal 0x1
01ae e40c | | Load 0x2,0xc
01af e005 | | Load 0x0,0x5
01b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01b1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01b2 00eb | | Load_Encached Diana_Cache
01b3 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
01b4 00eb | | Load_Encached Diana_Cache
01b5 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6
01b6 00eb | | Load_Encached Diana_Cache
01b7 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
01b8 00eb | | Load_Encached Diana_Cache
01b9 1888 | | Execute Package,Field_Execute,Field_Number 0x88
01ba 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
01bb 4976 |Iv | Short_Literal 0x176
01bc 00eb | | Load_Encached Diana_Cache
01bd 0098 | | Execute Package,Field_Read_Dynamic
01be 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01bf a40b | | Store_Unchecked 0x2,0xb
01c0 00cf | | Action Mark_Auxiliary
01c1 780a |x | Jump 0x1cc
01c2 e40b | | Load 0x2,0xb
01c3 a408 | | Store_Unchecked 0x2,0x8
01c4 e408 | | Load 0x2,0x8
01c5 4976 |Iv | Short_Literal 0x176
01c6 00eb | | Load_Encached Diana_Cache
01c7 0098 | | Execute Package,Field_Read_Dynamic
01c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01c9 a40b | | Store_Unchecked 0x2,0xb
01ca 8603 | | Call 0x3,0x3
01cb 00c9 | | Action Pop_Auxiliary_Loop
01cc e40b | | Load 0x2,0xb
01cd 77f4 |w | Jump_Nonzero 0x1c2
01ce 00ce | | Action Pop_Auxiliary
01cf e003 | | Load 0x0,0x3
01d0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01d1 4800 |H | Short_Literal 0x0
01d2 4801 |H | Short_Literal 0x1
01d3 e40d | | Load 0x2,0xd
01d4 e403 | | Load 0x2,0x3
01d5 e005 | | Load 0x0,0x5
01d6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d7 0162 | b | Execute Variant_Record,Check_In_Type
01d8 e005 | | Load 0x0,0x5
01d9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01da c405 | | Store 0x2,0x5
01db 8604 | | Call 0x3,0x4
01dc 8605 | | Call 0x3,0x5
01dd e412 | | Load 0x2,0x12
01de 700c |p | Jump_Nonzero 0x1eb
01df e414 | | Load 0x2,0x14
01e0 4802 |H | Short_Literal 0x2
01e1 e403 | | Load 0x2,0x3
01e2 e002 | | Load 0x0,0x2
01e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e4 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
01e5 0092 03f5 | | Action Push_String_Extended,0x3f5 ; " is not damaged."
01e7 01cc | | Execute Vector,Catenate
01e8 e009 | | Load 0x0,0x9
01e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01eb e414 | | Load 0x2,0x14
01ec 4802 |H | Short_Literal 0x2
01ed 0092 03f6 | | Action Push_String_Extended,0x3f6 ; "Damage to "
01ef e403 | | Load 0x2,0x3
01f0 e002 | | Load 0x0,0x2
01f1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f2 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
01f3 01cc | | Execute Vector,Catenate
01f4 0092 03f7 | | Action Push_String_Extended,0x3f7 ; " has been repaired:"
01f6 01cc | | Execute Vector,Catenate
01f7 e412 | | Load 0x2,0x12
01f8 00e0 | | Load_Encached Standard_Cache
01f9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01fa 01cc | | Execute Vector,Catenate
01fb 0092 03f8 | | Action Push_String_Extended,0x3f8 ; " anomalies found."
01fd 01cc | | Execute Vector,Catenate
01fe e009 | | Load 0x0,0x9
01ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0200 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0201 TRAP_0138:
0201 0007 | | Action Break_Optional
0202 e414 | | Load 0x2,0x14
0203 4808 |H | Short_Literal 0x8
0204 0092 03f9 | | Action Push_String_Extended,0x3f9 ; "Hostile elements encountered examining "
0206 e602 | | Load 0x3,0x2
0207 01cc | | Execute Vector,Catenate
0208 0092 03f3 | | Action Push_String_Extended,0x3f3 ; " ("
020a 01cc | | Execute Vector,Catenate
020b e00e | | Load 0x0,0xe
020c 180d | | Execute Package,Field_Execute,Field_Number 0xd
020d 01cc | | Execute Vector,Catenate
020e 0092 03f4 | | Action Push_String_Extended,0x3f4 ; ")."
0210 01cc | | Execute Vector,Catenate
0211 e009 | | Load 0x0,0x9
0212 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0213 e40d | | Load 0x2,0xd
0214 4801 |H | Short_Literal 0x1
0215 4800 |H | Short_Literal 0x0
0216 e006 | | Load 0x0,0x6
0217 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0218 c40d | | Store 0x2,0xd
0219 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021a 0000 0000 | | .XXX[0x2]
021c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022b | + | .CONST 0x022b ; Address of begin
0221 02a8 | | .CONST 0x02a8 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 e006 | | Load 0x0,0x6
0224 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0225 02c7 | | Declare_Variable Any
0226 e00d | | Load 0x0,0xd
0227 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0228 e006 | | Load 0x0,0x6
0229 1814 | | Execute Package,Field_Execute,Field_Number 0x14
022a a802 | | Store_Unchecked 0x4,0x2
022b BODY_0220:
022b e003 | | Load 0x0,0x3
022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022d 00e1 | | Load_Encached Boolean_Cache
022e e604 | | Load 0x3,0x4
022f e802 | | Load 0x4,0x2
0230 6097 |` | Indirect_Literal Discrete,0x2c8,{0x00000000, 0x00028000}
0231 e7fe | | Load 0x3,-0x2
0232 e40f | | Load 0x2,0xf
0233 e007 | | Load 0x0,0x7
0234 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0235 00d1 | | Pop_Control Pop_Count_1
0236 c603 | | Store 0x3,0x3
0237 c405 | | Store 0x2,0x5
0238 e405 | | Load 0x2,0x5
0239 704d |pM | Jump_Nonzero 0x287
023a e003 | | Load 0x0,0x3
023b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023c e802 | | Load 0x4,0x2
023d 608a |` | Indirect_Literal Discrete,0x2c8,{0x00000000, 0x00028000}
023e e7ff | | Load 0x3,-0x1
023f e007 | | Load 0x0,0x7
0240 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0241 c405 | | Store 0x2,0x5
0242 e405 | | Load 0x2,0x5
0243 7011 |p | Jump_Nonzero 0x255
0244 e008 | | Load 0x0,0x8
0245 180e | | Execute Package,Field_Execute,Field_Number 0xe
0246 4803 |H | Short_Literal 0x3
0247 0092 03fa | | Action Push_String_Extended,0x3fa ; "Purged remnants of "
0249 0092 03fb | | Action Push_String_Extended,0x3fb ; " from "
024b e7fd | | Load 0x3,-0x3
024c e7fe | | Load 0x3,-0x2
024d 8416 | | Call 0x2,0x16
024e 01cc | | Execute Vector,Catenate
024f e009 | | Load 0x0,0x9
0250 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0251 e412 | | Load 0x2,0x12
0252 0a01 | | Execute_Immediate Plus,0x1
0253 c412 | | Store 0x2,0x12
0254 784b |xK | Jump 0x2a0
0255 e008 | | Load 0x0,0x8
0256 180e | | Execute Package,Field_Execute,Field_Number 0xe
0257 4806 |H | Short_Literal 0x6
0258 0092 03fc | | Action Push_String_Extended,0x3fc ; "Partially purged remnants of "
025a 0092 03fb | | Action Push_String_Extended,0x3fb ; " from "
025c e7fd | | Load 0x3,-0x3
025d e7fe | | Load 0x3,-0x2
025e 8416 | | Call 0x2,0x16
025f 01cc | | Execute Vector,Catenate
0260 0092 03fd | | Action Push_String_Extended,0x3fd ; ", but unrecoverable garbage has been created ("
0262 01cc | | Execute Vector,Catenate
0263 e405 | | Load 0x2,0x5
0264 e003 | | Load 0x0,0x3
0265 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0266 011c | | Execute Any,Convert_Unchecked
0267 1c01 | | Execute_Immediate Run_Utility,0x1
0268 01cc | | Execute Vector,Catenate
0269 0092 03f4 | | Action Push_String_Extended,0x3f4 ; ")."
026b 01cc | | Execute Vector,Catenate
026c e009 | | Load 0x0,0x9
026d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
026e 00d8 | | Load_Top At_Offset_0
026f 4801 |H | Short_Literal 0x1
0270 4800 |H | Short_Literal 0x0
0271 e006 | | Load 0x0,0x6
0272 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0273 c802 | | Store 0x4,0x2
0274 e00d | | Load 0x0,0xd
0275 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0276 e006 | | Load 0x0,0x6
0277 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0278 c802 | | Store 0x4,0x2
0279 e003 | | Load 0x0,0x3
027a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027b 00e1 | | Load_Encached Boolean_Cache
027c e604 | | Load 0x3,0x4
027d e802 | | Load 0x4,0x2
027e 6049 |`I | Indirect_Literal Discrete,0x2c8,{0x00000000, 0x00028000}
027f e7fe | | Load 0x3,-0x2
0280 e40f | | Load 0x2,0xf
0281 e007 | | Load 0x0,0x7
0282 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0283 00d1 | | Pop_Control Pop_Count_1
0284 c603 | | Store 0x3,0x3
0285 c405 | | Store 0x2,0x5
0286 7819 |x | Jump 0x2a0
0287 e008 | | Load 0x0,0x8
0288 180e | | Execute Package,Field_Execute,Field_Number 0xe
0289 4807 |H | Short_Literal 0x7
028a 0092 03fe | | Action Push_String_Extended,0x3fe ; "Failed to purge remnants of "
028c 0092 03fb | | Action Push_String_Extended,0x3fb ; " from "
028e e7fd | | Load 0x3,-0x3
028f e7fe | | Load 0x3,-0x2
0290 8416 | | Call 0x2,0x16
0291 01cc | | Execute Vector,Catenate
0292 0092 03f3 | | Action Push_String_Extended,0x3f3 ; " ("
0294 01cc | | Execute Vector,Catenate
0295 e405 | | Load 0x2,0x5
0296 e003 | | Load 0x0,0x3
0297 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0298 011c | | Execute Any,Convert_Unchecked
0299 1c01 | | Execute_Immediate Run_Utility,0x1
029a 01cc | | Execute Vector,Catenate
029b 0092 03f4 | | Action Push_String_Extended,0x3f4 ; ")."
029d 01cc | | Execute Vector,Catenate
029e e009 | | Load 0x0,0x9
029f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a0 00d8 | | Load_Top At_Offset_0
02a1 4801 |H | Short_Literal 0x1
02a2 e405 | | Load 0x2,0x5
02a3 0f00 | | Execute_Immediate Equal,0x0
02a4 e006 | | Load 0x0,0x6
02a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a6 c802 | | Store 0x4,0x2
02a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a8 TRAP_0220:
02a8 0007 | | Action Break_Optional
02a9 e008 | | Load 0x0,0x8
02aa 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ab 4808 |H | Short_Literal 0x8
02ac 0092 03ff | | Action Push_String_Extended,0x3ff ; "Hostile elements encountered purging "
02ae 0092 03fb | | Action Push_String_Extended,0x3fb ; " from "
02b0 e7fd | | Load 0x3,-0x3
02b1 e7fe | | Load 0x3,-0x2
02b2 8416 | | Call 0x2,0x16
02b3 01cc | | Execute Vector,Catenate
02b4 0092 03f3 | | Action Push_String_Extended,0x3f3 ; " ("
02b6 01cc | | Execute Vector,Catenate
02b7 e00e | | Load 0x0,0xe
02b8 180d | | Execute Package,Field_Execute,Field_Number 0xd
02b9 01cc | | Execute Vector,Catenate
02ba 0092 03f4 | | Action Push_String_Extended,0x3f4 ; ")."
02bc 01cc | | Execute Vector,Catenate
02bd e009 | | Load 0x0,0x9
02be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bf e802 | | Load 0x4,0x2
02c0 4801 |H | Short_Literal 0x1
02c1 4800 |H | Short_Literal 0x0
02c2 e006 | | Load 0x0,0x6
02c3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02c4 c802 | | Store 0x4,0x2
02c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02c6 0000 0000 | | .XXX[0x2]
02c8 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d7 | | .CONST 0x02d7 ; Address of begin
02d1 0363 | c | .CONST 0x0363 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 e408 | | Load 0x2,0x8
02d4 e002 | | Load 0x0,0x2
02d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02d7 BODY_02d0:
02d7 e003 | | Load 0x0,0x3
02d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d9 e410 | | Load 0x2,0x10
02da e408 | | Load 0x2,0x8
02db e002 | | Load 0x0,0x2
02dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02dd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02de e40f | | Load 0x2,0xf
02df e007 | | Load 0x0,0x7
02e0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02e1 00d1 | | Pop_Control Pop_Count_1
02e2 c405 | | Store 0x2,0x5
02e3 e405 | | Load 0x2,0x5
02e4 4607 |F | Jump_Case 0x8
02e5 783c |x< | Jump 0x322 ; case 0x0
02e6 7863 |xc | Jump 0x34a ; case 0x1
02e7 7862 |xb | Jump 0x34a ; case 0x2
02e8 7861 |xa | Jump 0x34a ; case 0x3
02e9 7803 |x | Jump 0x2ed ; case 0x4
02ea 785f |x_ | Jump 0x34a ; case 0x5
02eb 785e |x^ | Jump 0x34a ; case 0x6
02ec 7800 |x | Jump 0x2ed ; case 0x7
02ed e408 | | Load 0x2,0x8
02ee 4976 |Iv | Short_Literal 0x176
02ef 00eb | | Load_Encached Diana_Cache
02f0 0098 | | Execute Package,Field_Read_Dynamic
02f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02f2 a409 | | Store_Unchecked 0x2,0x9
02f3 e409 | | Load 0x2,0x9
02f4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02f5 483d |H= | Short_Literal 0x3d
02f6 483e |H> | Short_Literal 0x3e
02f7 0262 | b | Execute Discrete,In_Range
02f8 7020 |p | Jump_Nonzero 0x319
02f9 e409 | | Load 0x2,0x9
02fa 4972 |Ir | Short_Literal 0x172
02fb 00eb | | Load_Encached Diana_Cache
02fc 0098 | | Execute Package,Field_Read_Dynamic
02fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02fe e409 | | Load 0x2,0x9
02ff 4975 |Iu | Short_Literal 0x175
0300 00eb | | Load_Encached Diana_Cache
0301 0098 | | Execute Package,Field_Read_Dynamic
0302 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0303 a40e | | Store_Unchecked 0x2,0xe
0304 e40e | | Load 0x2,0xe
0305 00ec | | Load_Encached Diana_Tree_Cache
0306 00eb | | Load_Encached Diana_Cache
0307 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0308 c40e | | Store 0x2,0xe
0309 e414 | | Load 0x2,0x14
030a 4803 |H | Short_Literal 0x3
030b 0092 03fa | | Action Push_String_Extended,0x3fa ; "Purged remnants of "
030d 0092 03fb | | Action Push_String_Extended,0x3fb ; " from "
030f e602 | | Load 0x3,0x2
0310 e802 | | Load 0x4,0x2
0311 8416 | | Call 0x2,0x16
0312 01cc | | Execute Vector,Catenate
0313 e009 | | Load 0x0,0x9
0314 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0315 e412 | | Load 0x2,0x12
0316 0a01 | | Execute_Immediate Plus,0x1
0317 c412 | | Store 0x2,0x12
0318 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0319 e414 | | Load 0x2,0x14
031a 4802 |H | Short_Literal 0x2
031b e802 | | Load 0x4,0x2
031c 0092 0400 | | Action Push_String_Extended,0x400 ; " appears to be OK."
031e 01cc | | Execute Vector,Catenate
031f e009 | | Load 0x0,0x9
0320 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0321 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0322 e413 | | Load 0x2,0x13
0323 e602 | | Load 0x3,0x2
0324 e802 | | Load 0x4,0x2
0325 e410 | | Load 0x2,0x10
0326 8417 | | Call 0x2,0x17
0327 c413 | | Store 0x2,0x13
0328 e413 | | Load 0x2,0x13
0329 6817 |h | Jump_Zero 0x341
032a e408 | | Load 0x2,0x8
032b 4976 |Iv | Short_Literal 0x176
032c 00eb | | Load_Encached Diana_Cache
032d 0098 | | Execute Package,Field_Read_Dynamic
032e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
032f a409 | | Store_Unchecked 0x2,0x9
0330 e409 | | Load 0x2,0x9
0331 4972 |Ir | Short_Literal 0x172
0332 00eb | | Load_Encached Diana_Cache
0333 0098 | | Execute Package,Field_Read_Dynamic
0334 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0335 e409 | | Load 0x2,0x9
0336 4975 |Iu | Short_Literal 0x175
0337 00eb | | Load_Encached Diana_Cache
0338 0098 | | Execute Package,Field_Read_Dynamic
0339 181d | | Execute Package,Field_Execute,Field_Number 0x1d
033a a40e | | Store_Unchecked 0x2,0xe
033b e40e | | Load 0x2,0xe
033c 00ec | | Load_Encached Diana_Tree_Cache
033d 00eb | | Load_Encached Diana_Cache
033e 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
033f c40e | | Store 0x2,0xe
0340 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0341 e414 | | Load 0x2,0x14
0342 4802 |H | Short_Literal 0x2
0343 e802 | | Load 0x4,0x2
0344 0092 0400 | | Action Push_String_Extended,0x400 ; " appears to be OK."
0346 01cc | | Execute Vector,Catenate
0347 e009 | | Load 0x0,0x9
0348 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0349 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034a e414 | | Load 0x2,0x14
034b 4806 |H | Short_Literal 0x6
034c 0092 0401 | | Action Push_String_Extended,0x401 ; "Did NOT examine "
034e 0092 0402 | | Action Push_String_Extended,0x402 ; " in "
0350 e602 | | Load 0x3,0x2
0351 e802 | | Load 0x4,0x2
0352 8416 | | Call 0x2,0x16
0353 01cc | | Execute Vector,Catenate
0354 0092 03f3 | | Action Push_String_Extended,0x3f3 ; " ("
0356 01cc | | Execute Vector,Catenate
0357 e405 | | Load 0x2,0x5
0358 e003 | | Load 0x0,0x3
0359 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035a 011c | | Execute Any,Convert_Unchecked
035b 1c01 | | Execute_Immediate Run_Utility,0x1
035c 01cc | | Execute Vector,Catenate
035d 0092 03f4 | | Action Push_String_Extended,0x3f4 ; ")."
035f 01cc | | Execute Vector,Catenate
0360 e009 | | Load 0x0,0x9
0361 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0362 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0363 TRAP_02d0:
0363 0007 | | Action Break_Optional
0364 e414 | | Load 0x2,0x14
0365 4808 |H | Short_Literal 0x8
0366 0092 03ff | | Action Push_String_Extended,0x3ff ; "Hostile elements encountered purging "
0368 0092 0402 | | Action Push_String_Extended,0x402 ; " in "
036a e602 | | Load 0x3,0x2
036b e802 | | Load 0x4,0x2
036c 8416 | | Call 0x2,0x16
036d 01cc | | Execute Vector,Catenate
036e 0092 03f3 | | Action Push_String_Extended,0x3f3 ; " ("
0370 01cc | | Execute Vector,Catenate
0371 e00e | | Load 0x0,0xe
0372 180d | | Execute Package,Field_Execute,Field_Number 0xd
0373 01cc | | Execute Vector,Catenate
0374 0092 03f4 | | Action Push_String_Extended,0x3f4 ; ")."
0376 01cc | | Execute Vector,Catenate
0377 e009 | | Load 0x0,0x9
0378 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0379 4501 |E | Exit_Suprogram New_Top_Offset 0x1
037a 0000 0000 | | .BLANK 0000[0x6]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 038a | | .CONST 0x038a ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 e40d | | Load 0x2,0xd
0384 4801 |H | Short_Literal 0x1
0385 4801 |H | Short_Literal 0x1
0386 e006 | | Load 0x0,0x6
0387 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0388 c40d | | Store 0x2,0xd
0389 4501 |E | Exit_Suprogram New_Top_Offset 0x1
038a TRAP_0380:
038a e00f | | Load 0x0,0xf
038b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
038c 010f | | Execute Exception,Equal
038d 6812 |h | Jump_Zero 0x3a0
038e e414 | | Load 0x2,0x14
038f 4805 |H | Short_Literal 0x5
0390 0092 0403 | | Action Push_String_Extended,0x403 ; "Repairs to "
0392 e602 | | Load 0x3,0x2
0393 01cc | | Execute Vector,Catenate
0394 0092 0404 | | Action Push_String_Extended,0x404 ; " must be ABANDONED."
0396 01cc | | Execute Vector,Catenate
0397 e009 | | Load 0x0,0x9
0398 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0399 e40d | | Load 0x2,0xd
039a 4801 |H | Short_Literal 0x1
039b 4800 |H | Short_Literal 0x0
039c e006 | | Load 0x0,0x6
039d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
039e c40d | | Store 0x2,0xd
039f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03a0 0100 | | Execute Exception,Raise
03a1 0000 0000 | | .BLANK 0000[0x7]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b0 | | .CONST 0x03b0 ; Address of begin
03a9 03da | | .CONST 0x03da ; Address of exception handler
03aa 0002 | | .CONST 0x0002 ; Number of locals
03ab INIT_03a8:
03ab e007 | | Load 0x0,0x7
03ac 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
03ad 02c7 | | Declare_Variable Any
03ae 00d8 | | Load_Top At_Offset_0
03af 1c00 | | Execute_Immediate Run_Utility,0x0
03b0 BODY_03a8:
03b0 e003 | | Load 0x0,0x3
03b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b2 e802 | | Load 0x4,0x2
03b3 0120 | | Execute Any,Is_Value
03b4 6803 |h | Jump_Zero 0x3b8
03b5 e007 | | Load 0x0,0x7
03b6 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
03b7 7801 |x | Jump 0x3b9
03b8 e802 | | Load 0x4,0x2
03b9 602e |`. | Indirect_Literal Discrete,0x3e8,{0x00000000, 0x00028000}
03ba e006 | | Load 0x0,0x6
03bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03bc e40f | | Load 0x2,0xf
03bd e007 | | Load 0x0,0x7
03be 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03bf c802 | | Store 0x4,0x2
03c0 c405 | | Store 0x2,0x5
03c1 e405 | | Load 0x2,0x5
03c2 7016 |p | Jump_Nonzero 0x3d9
03c3 00cf | | Action Mark_Auxiliary
03c4 780f |x | Jump 0x3d4
03c5 e413 | | Load 0x2,0x13
03c6 e602 | | Load 0x3,0x2
03c7 e802 | | Load 0x4,0x2
03c8 e007 | | Load 0x0,0x7
03c9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
03ca e802 | | Load 0x4,0x2
03cb e007 | | Load 0x0,0x7
03cc 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
03cd 8417 | | Call 0x2,0x17
03ce c413 | | Store 0x2,0x13
03cf e802 | | Load 0x4,0x2
03d0 e007 | | Load 0x0,0x7
03d1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03d2 c802 | | Store 0x4,0x2
03d3 00c9 | | Action Pop_Auxiliary_Loop
03d4 e802 | | Load 0x4,0x2
03d5 e007 | | Load 0x0,0x7
03d6 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
03d7 6fed |o | Jump_Zero 0x3c5
03d8 00ce | | Action Pop_Auxiliary
03d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03da TRAP_03a8:
03da 0007 | | Action Break_Optional
03db e414 | | Load 0x2,0x14
03dc 4807 |H | Short_Literal 0x7
03dd 0092 0405 | | Action Push_String_Extended,0x405 ; "Substructure for "
03df e602 | | Load 0x3,0x2
03e0 01cc | | Execute Vector,Catenate
03e1 0092 0406 | | Action Push_String_Extended,0x406 ; " is inaccessible"
03e3 01cc | | Execute Vector,Catenate
03e4 e009 | | Load 0x0,0x9
03e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e7 0000 | | .XXX[0x1]
03e8 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
03ec ; --------------------------------------------------------------------------------------
03ec ; STRING TABLE
03ec ; --------------------------------------------------------------------------------------
03ec 0038 | 8 | .STRTAB 0x0038->0x0408 ; "Operator capability is required to use Repair_Directory"
03ed 006d | m | .STRTAB 0x006d->0x0423 ; "'C(LIB)"
03ee 0072 | r | .STRTAB 0x0072->0x0427 ; "Cannot repair "
03ef 007e | ~ | .STRTAB 0x007e->0x042e ; " because "
03f0 0085 | | .STRTAB 0x0085->0x0432 ; "Examining "
03f1 008d | | .STRTAB 0x008d->0x0437 ; " for damage."
03f2 0097 | | .STRTAB 0x0097->0x043d ; "Cannot gain access to internal structure of "
03f3 00c1 | | .STRTAB 0x00c1->0x0453 ; " ("
03f4 00c1 | | .STRTAB 0x00c1->0x0454 ; ")."
03f5 00c1 | | .STRTAB 0x00c1->0x0455 ; " is not damaged."
03f6 00cf | | .STRTAB 0x00cf->0x045d ; "Damage to "
03f7 00d7 | | .STRTAB 0x00d7->0x0462 ; " has been repaired:"
03f8 00e8 | | .STRTAB 0x00e8->0x046c ; " anomalies found."
03f9 00f7 | | .STRTAB 0x00f7->0x0474 ; "Hostile elements encountered examining "
03fa 011c | | .STRTAB 0x011c->0x0488 ; "Purged remnants of "
03fb 012d | - | .STRTAB 0x012d->0x0491 ; " from "
03fc 0131 | 1 | .STRTAB 0x0131->0x0494 ; "Partially purged remnants of "
03fd 014c | L | .STRTAB 0x014c->0x04a3 ; ", but unrecoverable garbage has been created ("
03fe 0178 | x | .STRTAB 0x0178->0x04ba ; "Failed to purge remnants of "
03ff 0192 | | .STRTAB 0x0192->0x04c8 ; "Hostile elements encountered purging "
0400 01b5 | | .STRTAB 0x01b5->0x04da ; " appears to be OK."
0401 01c5 | | .STRTAB 0x01c5->0x04e3 ; "Did NOT examine "
0402 01d3 | | .STRTAB 0x01d3->0x04eb ; " in "
0403 01d5 | | .STRTAB 0x01d5->0x04ed ; "Repairs to "
0404 01de | | .STRTAB 0x01de->0x04f3 ; " must be ABANDONED."
0405 01ef | | .STRTAB 0x01ef->0x04fc ; "Substructure for "
0406 01fe | | .STRTAB 0x01fe->0x0505 ; " is inaccessible"
0407 020c | | .STREND 0x020c->0x050d
0408 4f70 6572 |Oper| .STRTAB_STRINGS
050d 0000 0000 | | .XXX[0x3]
050f 0000 | |
0510 ; --------------------------------------------------------------------------------------
0510 ; Debug Table
0510 ; --------------------------------------------------------------------------------------
0510 0004 0011 | | .DEBUG4 0x0004,0x0011,0x977c,0x0000,0x0001,0x0000
0516 0000 0000 | | .BLANK 0000[0xea]