|
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_03b8fe
└─⟦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 0520 | | .CONST 0x0520 ; 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 006f | o | .CONST 0x006f ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0018 | | .CONST 0x0018 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
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 e001 | | Load 0x0,0x1
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 e001 | | Load 0x0,0x1
0027 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0029 e002 | | Load 0x0,0x2
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b e001 | | Load 0x0,0x1
002c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002d e003 | | Load 0x0,0x3
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 02c7 | | Declare_Variable Any
0034 00d8 | | Load_Top At_Offset_0
0035 1c00 | | Execute_Immediate Run_Utility,0x0
0036 00ec | | Load_Encached Diana_Tree_Cache
0037 02c7 | | Declare_Variable Any
0038 00d8 | | Load_Top At_Offset_0
0039 1c00 | | Execute_Immediate Run_Utility,0x0
003a 00ec | | Load_Encached Diana_Tree_Cache
003b 02c7 | | Declare_Variable Any
003c 00d8 | | Load_Top At_Offset_0
003d 1c00 | | Execute_Immediate Run_Utility,0x0
003e 00ec | | Load_Encached Diana_Tree_Cache
003f 02c7 | | Declare_Variable Any
0040 00d8 | | Load_Top At_Offset_0
0041 1c00 | | Execute_Immediate Run_Utility,0x0
0042 e004 | | Load 0x0,0x4
0043 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 02c7 | | Declare_Variable Any
0046 00d8 | | Load_Top At_Offset_0
0047 1c00 | | Execute_Immediate Run_Utility,0x0
0048 e005 | | Load 0x0,0x5
0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004a 02c7 | | Declare_Variable Any
004b 00d8 | | Load_Top At_Offset_0
004c 1c00 | | Execute_Immediate Run_Utility,0x0
004d 00ee | | Load_Encached Diana_Seq_Type_Cache
004e 02c7 | | Declare_Variable Any
004f 00d8 | | Load_Top At_Offset_0
0050 1c00 | | Execute_Immediate Run_Utility,0x0
0051 e006 | | Load 0x0,0x6
0052 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0053 02ff | | Declare_Variable Variant_Record
0054 00d8 | | Load_Top At_Offset_0
0055 1c00 | | Execute_Immediate Run_Utility,0x0
0056 00d8 | | Load_Top At_Offset_0
0057 02ff | | Declare_Variable Variant_Record
0058 00d8 | | Load_Top At_Offset_0
0059 1c00 | | Execute_Immediate Run_Utility,0x0
005a e006 | | Load 0x0,0x6
005b 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
005c 02c7 | | Declare_Variable Any
005d 00d8 | | Load_Top At_Offset_0
005e 1c00 | | Execute_Immediate Run_Utility,0x0
005f 00e2 | | Load_Encached Integer_Cache
0060 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0061 00e1 | | Load_Encached Boolean_Cache
0062 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0063 e007 | | Load 0x0,0x7
0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0065 02c7 | | Declare_Variable Any
0066 00d8 | | Load_Top At_Offset_0
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 00e1 | | Load_Encached Boolean_Cache
0069 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
006b 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
006d 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
006f BODY_0018:
006f e407 | | Load 0x2,0x7
0070 e414 | | Load 0x2,0x14
0071 0120 | | Execute Any,Is_Value
0072 6803 |h | Jump_Zero 0x76
0073 e007 | | Load 0x0,0x7
0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0075 7801 |x | Jump 0x77
0076 e414 | | Load 0x2,0x14
0077 e5fe | | Load 0x2,-0x2
0078 e007 | | Load 0x0,0x7
0079 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
007a c414 | | Store 0x2,0x14
007b c407 | | Store 0x2,0x7
007c 4801 |H | Short_Literal 0x1
007d e407 | | Load 0x2,0x7
007e e003 | | Load 0x0,0x3
007f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0080 6806 |h | Jump_Zero 0x87
0081 e007 | | Load 0x0,0x7
0082 180e | | Execute Package,Field_Execute,Field_Number 0xe
0083 e407 | | Load 0x2,0x7
0084 e008 | | Load 0x0,0x8
0085 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0086 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0087 e414 | | Load 0x2,0x14
0088 4802 |H | Short_Literal 0x2
0089 e007 | | Load 0x0,0x7
008a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
008b a415 | | Store_Unchecked 0x2,0x15
008c e009 | | Load 0x0,0x9
008d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
008e 7007 |p | Jump_Nonzero 0x96
008f e414 | | Load 0x2,0x14
0090 4805 |H | Short_Literal 0x5
0091 0092 03fc | | Action Push_String_Extended,0x3fc ; "Operator capability is required to use Repair_Directory"
0093 e008 | | Load 0x0,0x8
0094 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0095 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0096 e001 | | Load 0x0,0x1
0097 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0098 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0099 e402 | | Load 0x2,0x2
009a 604d |`M | Indirect_Literal Discrete,0xe8,{0x00000000, 0x00004000}
009b e005 | | Load 0x0,0x5
009c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009d e00a | | Load 0x0,0xa
009e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
009f e00b | | Load 0x0,0xb
00a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a1 4801 |H | Short_Literal 0x1
00a2 4800 |H | Short_Literal 0x0
00a3 e00a | | Load 0x0,0xa
00a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a5 e001 | | Load 0x0,0x1
00a6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00a8 e5ff | | Load 0x2,-0x1
00a9 0092 03fd | | Action Push_String_Extended,0x3fd ; "'C(LIB)"
00ab 01cc | | Execute Vector,Catenate
00ac e001 | | Load 0x0,0x1
00ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ae 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00af c402 | | Store 0x2,0x2
00b0 c404 | | Store 0x2,0x4
00b1 e404 | | Load 0x2,0x4
00b2 6823 |h# | Jump_Zero 0xd6
00b3 e414 | | Load 0x2,0x14
00b4 4805 |H | Short_Literal 0x5
00b5 0092 03fe | | Action Push_String_Extended,0x3fe ; "Cannot repair "
00b7 e5ff | | Load 0x2,-0x1
00b8 01cc | | Execute Vector,Catenate
00b9 0092 03ff | | Action Push_String_Extended,0x3ff ; " because "
00bb 01cc | | Execute Vector,Catenate
00bc 602b |`+ | Indirect_Literal Discrete,0xe8,{0x00000000, 0x00004000}
00bd e005 | | Load 0x0,0x5
00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bf e00a | | Load 0x0,0xa
00c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c1 e00b | | Load 0x0,0xb
00c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c3 4801 |H | Short_Literal 0x1
00c4 4800 |H | Short_Literal 0x0
00c5 e00a | | Load 0x0,0xa
00c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c7 e001 | | Load 0x0,0x1
00c8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ca e5ff | | Load 0x2,-0x1
00cb 0092 03fd | | Action Push_String_Extended,0x3fd ; "'C(LIB)"
00cd 01cc | | Execute Vector,Catenate
00ce e404 | | Load 0x2,0x4
00cf e001 | | Load 0x0,0x1
00d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d1 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00d2 01cc | | Execute Vector,Catenate
00d3 e008 | | Load 0x0,0x8
00d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d6 00cf | | Action Mark_Auxiliary
00d7 7807 |x | Jump 0xdf
00d8 8418 | | Call 0x2,0x18
00d9 e402 | | Load 0x2,0x2
00da e001 | | Load 0x0,0x1
00db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00dc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00dd c402 | | Store 0x2,0x2
00de 00c9 | | Action Pop_Auxiliary_Loop
00df e402 | | Load 0x2,0x2
00e0 e001 | | Load 0x0,0x1
00e1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e3 6ff4 |o | Jump_Zero 0xd8
00e4 00ce | | Action Pop_Auxiliary
00e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e6 0000 0000 | | .XXX[0x2]
00e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e415 | | Load 0x2,0x15
00f4 6802 |h | Jump_Zero 0xf7
00f5 e7ff | | Load 0x3,-0x1
00f6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00f7 e7ff | | Load 0x3,-0x1
00f8 e7fd | | Load 0x3,-0x3
00f9 01cc | | Execute Vector,Catenate
00fa e7fe | | Load 0x3,-0x2
00fb 01cc | | Execute Vector,Catenate
00fc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0118 | | .CONST 0x0118 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0007 | | .CONST 0x0007 ; Number of locals
0103 INIT_0100:
0103 e005 | | Load 0x0,0x5
0104 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0105 02c7 | | Declare_Variable Any
0106 00d8 | | Load_Top At_Offset_0
0107 1c00 | | Execute_Immediate Run_Utility,0x0
0108 00e1 | | Load_Encached Boolean_Cache
0109 e006 | | Load 0x0,0x6
010a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010b 02ff | | Declare_Variable Variant_Record
010c 00d8 | | Load_Top At_Offset_0
010d 1c00 | | Execute_Immediate Run_Utility,0x0
010e e006 | | Load 0x0,0x6
010f 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
0110 0322 | " | Declare_Variable Record
0111 e006 | | Load 0x0,0x6
0112 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
0113 0322 | " | Declare_Variable Record
0114 00d8 | | Load_Top At_Offset_0
0115 1c00 | | Execute_Immediate Run_Utility,0x0
0116 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0118 BODY_0100:
0118 4800 |H | Short_Literal 0x0
0119 a7fc | | Store_Unchecked 0x3,-0x4
011a e002 | | Load 0x0,0x2
011b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
011c e606 | | Load 0x3,0x6
011d e605 | | Load 0x3,0x5
011e e005 | | Load 0x0,0x5
011f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0120 6023 |`# | Indirect_Literal Discrete,0x144,{0x00000000, 0x00028000}
0121 e7ff | | Load 0x3,-0x1
0122 e006 | | Load 0x0,0x6
0123 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0124 00d2 | | Pop_Control Pop_Count_2
0125 c405 | | Store 0x2,0x5
0126 e405 | | Load 0x2,0x5
0127 7019 |p | Jump_Nonzero 0x141
0128 e605 | | Load 0x3,0x5
0129 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
012a 6811 |h | Jump_Zero 0x13c
012b e606 | | Load 0x3,0x6
012c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012d 680c |h | Jump_Zero 0x13a
012e e606 | | Load 0x3,0x6
012f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0130 e006 | | Load 0x0,0x6
0131 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0132 7005 |p | Jump_Nonzero 0x138
0133 e606 | | Load 0x3,0x6
0134 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0135 e006 | | Load 0x0,0x6
0136 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0137 7805 |x | Jump 0x13d
0138 4801 |H | Short_Literal 0x1
0139 7803 |x | Jump 0x13d
013a 4801 |H | Short_Literal 0x1
013b 7801 |x | Jump 0x13d
013c 4801 |H | Short_Literal 0x1
013d a7fc | | Store_Unchecked 0x3,-0x4
013e e7fc | | Load 0x3,-0x4
013f 6801 |h | Jump_Zero 0x141
0140 8607 | | Call 0x3,0x7
0141 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0142 0000 0000 | | .XXX[0x2]
0144 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0155 | U | .CONST 0x0155 ; Address of begin
0149 0212 | | .CONST 0x0212 ; Address of exception handler
014a 0005 | | .CONST 0x0005 ; Number of locals
014b INIT_0148:
014b e402 | | Load 0x2,0x2
014c e001 | | Load 0x0,0x1
014d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
014e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
014f 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call
0151 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
0153 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
0155 BODY_0148:
0155 e414 | | Load 0x2,0x14
0156 4802 |H | Short_Literal 0x2
0157 0092 0400 | | Action Push_String_Extended,0x400 ; "Examining "
0159 e602 | | Load 0x3,0x2
015a 01cc | | Execute Vector,Catenate
015b 0092 0401 | | Action Push_String_Extended,0x401 ; " for damage."
015d 01cc | | Execute Vector,Catenate
015e e008 | | Load 0x0,0x8
015f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0160 e001 | | Load 0x0,0x1
0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0162 e403 | | Load 0x2,0x3
0163 60c8 |` | Indirect_Literal Discrete,0x22c,{0x00000000, 0x00004000}
0164 e005 | | Load 0x0,0x5
0165 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0166 e402 | | Load 0x2,0x2
0167 e001 | | Load 0x0,0x1
0168 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0169 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
016a 00d1 | | Pop_Control Pop_Count_1
016b c406 | | Store 0x2,0x6
016c e406 | | Load 0x2,0x6
016d 6815 |h | Jump_Zero 0x183
016e e414 | | Load 0x2,0x14
016f 4805 |H | Short_Literal 0x5
0170 0092 0402 | | Action Push_String_Extended,0x402 ; "Cannot gain access to internal structure of "
0172 e602 | | Load 0x3,0x2
0173 01cc | | Execute Vector,Catenate
0174 0092 0403 | | Action Push_String_Extended,0x403 ; " ("
0176 01cc | | Execute Vector,Catenate
0177 e406 | | Load 0x2,0x6
0178 e001 | | Load 0x0,0x1
0179 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017a 025e | ^ | Execute Discrete,Convert
017b 1c01 | | Execute_Immediate Run_Utility,0x1
017c 01cc | | Execute Vector,Catenate
017d 0092 0404 | | Action Push_String_Extended,0x404 ; ")."
017f 01cc | | Execute Vector,Catenate
0180 e008 | | Load 0x0,0x8
0181 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0182 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0183 e00c | | Load 0x0,0xc
0184 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0185 e005 | | Load 0x0,0x5
0186 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0187 c40d | | Store 0x2,0xd
0188 e002 | | Load 0x0,0x2
0189 1b11 | | Execute Package,Field_Read,Field_Number 0x11
018a e40c | | Load 0x2,0xc
018b 0120 | | Execute Any,Is_Value
018c 6804 |h | Jump_Zero 0x191
018d e004 | | Load 0x0,0x4
018e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
018f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0190 7801 |x | Jump 0x192
0191 e40c | | Load 0x2,0xc
0192 e40d | | Load 0x2,0xd
0193 4800 |H | Short_Literal 0x0
0194 4803 |H | Short_Literal 0x3
0195 e403 | | Load 0x2,0x3
0196 e004 | | Load 0x0,0x4
0197 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0198 0162 | b | Execute Variant_Record,Check_In_Type
0199 e004 | | Load 0x0,0x4
019a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
019b c40c | | Store 0x2,0xc
019c c405 | | Store 0x2,0x5
019d e405 | | Load 0x2,0x5
019e 6815 |h | Jump_Zero 0x1b4
019f e414 | | Load 0x2,0x14
01a0 4805 |H | Short_Literal 0x5
01a1 0092 0402 | | Action Push_String_Extended,0x402 ; "Cannot gain access to internal structure of "
01a3 e602 | | Load 0x3,0x2
01a4 01cc | | Execute Vector,Catenate
01a5 0092 0403 | | Action Push_String_Extended,0x403 ; " ("
01a7 01cc | | Execute Vector,Catenate
01a8 e405 | | Load 0x2,0x5
01a9 e002 | | Load 0x0,0x2
01aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ab 025e | ^ | Execute Discrete,Convert
01ac 1c01 | | Execute_Immediate Run_Utility,0x1
01ad 01cc | | Execute Vector,Catenate
01ae 0092 0404 | | Action Push_String_Extended,0x404 ; ")."
01b0 01cc | | Execute Vector,Catenate
01b1 e008 | | Load 0x0,0x8
01b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b4 e40c | | Load 0x2,0xc
01b5 e004 | | Load 0x0,0x4
01b6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01b7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01b8 e006 | | Load 0x0,0x6
01b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ba 0162 | b | Execute Variant_Record,Check_In_Type
01bb e40f | | Load 0x2,0xf
01bc 016d | m | Execute Variant_Record,Structure_Write
01bd 4801 |H | Short_Literal 0x1
01be e40c | | Load 0x2,0xc
01bf e004 | | Load 0x0,0x4
01c0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c2 00eb | | Load_Encached Diana_Cache
01c3 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
01c4 00eb | | Load_Encached Diana_Cache
01c5 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6
01c6 00eb | | Load_Encached Diana_Cache
01c7 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
01c8 00eb | | Load_Encached Diana_Cache
01c9 1888 | | Execute Package,Field_Execute,Field_Number 0x88
01ca 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
01cb 4976 |Iv | Short_Literal 0x176
01cc 00eb | | Load_Encached Diana_Cache
01cd 0098 | | Execute Package,Field_Read_Dynamic
01ce 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01cf c40b | | Store 0x2,0xb
01d0 00cf | | Action Mark_Auxiliary
01d1 780a |x | Jump 0x1dc
01d2 e40b | | Load 0x2,0xb
01d3 c408 | | Store 0x2,0x8
01d4 e408 | | Load 0x2,0x8
01d5 4976 |Iv | Short_Literal 0x176
01d6 00eb | | Load_Encached Diana_Cache
01d7 0098 | | Execute Package,Field_Read_Dynamic
01d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d9 c40b | | Store 0x2,0xb
01da 8603 | | Call 0x3,0x3
01db 00c9 | | Action Pop_Auxiliary_Loop
01dc e40b | | Load 0x2,0xb
01dd 021d | | Execute Heap_Access,Is_Null
01de 6ff3 |o | Jump_Zero 0x1d2
01df 00ce | | Action Pop_Auxiliary
01e0 e002 | | Load 0x0,0x2
01e1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01e2 4800 |H | Short_Literal 0x0
01e3 4801 |H | Short_Literal 0x1
01e4 e40d | | Load 0x2,0xd
01e5 e403 | | Load 0x2,0x3
01e6 e004 | | Load 0x0,0x4
01e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e8 0162 | b | Execute Variant_Record,Check_In_Type
01e9 e004 | | Load 0x0,0x4
01ea 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01eb c405 | | Store 0x2,0x5
01ec 8604 | | Call 0x3,0x4
01ed 8605 | | Call 0x3,0x5
01ee e412 | | Load 0x2,0x12
01ef 700c |p | Jump_Nonzero 0x1fc
01f0 e414 | | Load 0x2,0x14
01f1 4802 |H | Short_Literal 0x2
01f2 e403 | | Load 0x2,0x3
01f3 e001 | | Load 0x0,0x1
01f4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f5 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
01f6 0092 0405 | | Action Push_String_Extended,0x405 ; " is not damaged."
01f8 01cc | | Execute Vector,Catenate
01f9 e008 | | Load 0x0,0x8
01fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fc e414 | | Load 0x2,0x14
01fd 4802 |H | Short_Literal 0x2
01fe 0092 0406 | | Action Push_String_Extended,0x406 ; "Damage to "
0200 e403 | | Load 0x2,0x3
0201 e001 | | Load 0x0,0x1
0202 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0203 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0204 01cc | | Execute Vector,Catenate
0205 0092 0407 | | Action Push_String_Extended,0x407 ; " has been repaired:"
0207 01cc | | Execute Vector,Catenate
0208 e412 | | Load 0x2,0x12
0209 00e0 | | Load_Encached Standard_Cache
020a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
020b 01cc | | Execute Vector,Catenate
020c 0092 0408 | | Action Push_String_Extended,0x408 ; " anomalies found."
020e 01cc | | Execute Vector,Catenate
020f e008 | | Load 0x0,0x8
0210 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0211 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0212 TRAP_0148:
0212 0007 | | Action Break_Optional
0213 e414 | | Load 0x2,0x14
0214 4808 |H | Short_Literal 0x8
0215 0092 0409 | | Action Push_String_Extended,0x409 ; "Hostile elements encountered examining "
0217 e602 | | Load 0x3,0x2
0218 01cc | | Execute Vector,Catenate
0219 0092 0403 | | Action Push_String_Extended,0x403 ; " ("
021b 01cc | | Execute Vector,Catenate
021c e00d | | Load 0x0,0xd
021d 180d | | Execute Package,Field_Execute,Field_Number 0xd
021e 01cc | | Execute Vector,Catenate
021f 0092 0404 | | Action Push_String_Extended,0x404 ; ")."
0221 01cc | | Execute Vector,Catenate
0222 e008 | | Load 0x0,0x8
0223 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0224 e40d | | Load 0x2,0xd
0225 4801 |H | Short_Literal 0x1
0226 4800 |H | Short_Literal 0x0
0227 e005 | | Load 0x0,0x5
0228 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0229 c40d | | Store 0x2,0xd
022a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022b 0000 | | .XXX[0x1]
022c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023b | ; | .CONST 0x023b ; Address of begin
0231 02b8 | | .CONST 0x02b8 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e005 | | Load 0x0,0x5
0234 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0235 02c7 | | Declare_Variable Any
0236 e00c | | Load 0x0,0xc
0237 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0238 e005 | | Load 0x0,0x5
0239 1814 | | Execute Package,Field_Execute,Field_Number 0x14
023a a802 | | Store_Unchecked 0x4,0x2
023b BODY_0230:
023b e002 | | Load 0x0,0x2
023c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023d 00e1 | | Load_Encached Boolean_Cache
023e e604 | | Load 0x3,0x4
023f e802 | | Load 0x4,0x2
0240 6097 |` | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x00028000}
0241 e7fe | | Load 0x3,-0x2
0242 e40f | | Load 0x2,0xf
0243 e006 | | Load 0x0,0x6
0244 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0245 00d1 | | Pop_Control Pop_Count_1
0246 c603 | | Store 0x3,0x3
0247 c405 | | Store 0x2,0x5
0248 e405 | | Load 0x2,0x5
0249 704d |pM | Jump_Nonzero 0x297
024a e002 | | Load 0x0,0x2
024b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
024c e802 | | Load 0x4,0x2
024d 608a |` | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x00028000}
024e e7ff | | Load 0x3,-0x1
024f e006 | | Load 0x0,0x6
0250 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0251 c405 | | Store 0x2,0x5
0252 e405 | | Load 0x2,0x5
0253 7011 |p | Jump_Nonzero 0x265
0254 e007 | | Load 0x0,0x7
0255 180e | | Execute Package,Field_Execute,Field_Number 0xe
0256 4803 |H | Short_Literal 0x3
0257 0092 040a | | Action Push_String_Extended,0x40a ; "Purged remnants of "
0259 0092 040b | | Action Push_String_Extended,0x40b ; " from "
025b e7fd | | Load 0x3,-0x3
025c e7fe | | Load 0x3,-0x2
025d 8416 | | Call 0x2,0x16
025e 01cc | | Execute Vector,Catenate
025f e008 | | Load 0x0,0x8
0260 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0261 e412 | | Load 0x2,0x12
0262 0a01 | | Execute_Immediate Plus,0x1
0263 c412 | | Store 0x2,0x12
0264 784b |xK | Jump 0x2b0
0265 e007 | | Load 0x0,0x7
0266 180e | | Execute Package,Field_Execute,Field_Number 0xe
0267 4806 |H | Short_Literal 0x6
0268 0092 040c | | Action Push_String_Extended,0x40c ; "Partially purged remnants of "
026a 0092 040b | | Action Push_String_Extended,0x40b ; " from "
026c e7fd | | Load 0x3,-0x3
026d e7fe | | Load 0x3,-0x2
026e 8416 | | Call 0x2,0x16
026f 01cc | | Execute Vector,Catenate
0270 0092 040d | | Action Push_String_Extended,0x40d ; ", but unrecoverable garbage has been created ("
0272 01cc | | Execute Vector,Catenate
0273 e405 | | Load 0x2,0x5
0274 e002 | | Load 0x0,0x2
0275 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0276 025e | ^ | Execute Discrete,Convert
0277 1c01 | | Execute_Immediate Run_Utility,0x1
0278 01cc | | Execute Vector,Catenate
0279 0092 0404 | | Action Push_String_Extended,0x404 ; ")."
027b 01cc | | Execute Vector,Catenate
027c e008 | | Load 0x0,0x8
027d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
027e 00d8 | | Load_Top At_Offset_0
027f 4801 |H | Short_Literal 0x1
0280 4800 |H | Short_Literal 0x0
0281 e005 | | Load 0x0,0x5
0282 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0283 c802 | | Store 0x4,0x2
0284 e00c | | Load 0x0,0xc
0285 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0286 e005 | | Load 0x0,0x5
0287 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0288 c802 | | Store 0x4,0x2
0289 e002 | | Load 0x0,0x2
028a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028b 00e1 | | Load_Encached Boolean_Cache
028c e604 | | Load 0x3,0x4
028d e802 | | Load 0x4,0x2
028e 6049 |`I | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x00028000}
028f e7fe | | Load 0x3,-0x2
0290 e40f | | Load 0x2,0xf
0291 e006 | | Load 0x0,0x6
0292 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0293 00d1 | | Pop_Control Pop_Count_1
0294 c603 | | Store 0x3,0x3
0295 c405 | | Store 0x2,0x5
0296 7819 |x | Jump 0x2b0
0297 e007 | | Load 0x0,0x7
0298 180e | | Execute Package,Field_Execute,Field_Number 0xe
0299 4807 |H | Short_Literal 0x7
029a 0092 040e | | Action Push_String_Extended,0x40e ; "Failed to purge remnants of "
029c 0092 040b | | Action Push_String_Extended,0x40b ; " from "
029e e7fd | | Load 0x3,-0x3
029f e7fe | | Load 0x3,-0x2
02a0 8416 | | Call 0x2,0x16
02a1 01cc | | Execute Vector,Catenate
02a2 0092 0403 | | Action Push_String_Extended,0x403 ; " ("
02a4 01cc | | Execute Vector,Catenate
02a5 e405 | | Load 0x2,0x5
02a6 e002 | | Load 0x0,0x2
02a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a8 025e | ^ | Execute Discrete,Convert
02a9 1c01 | | Execute_Immediate Run_Utility,0x1
02aa 01cc | | Execute Vector,Catenate
02ab 0092 0404 | | Action Push_String_Extended,0x404 ; ")."
02ad 01cc | | Execute Vector,Catenate
02ae e008 | | Load 0x0,0x8
02af 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b0 00d8 | | Load_Top At_Offset_0
02b1 4801 |H | Short_Literal 0x1
02b2 e405 | | Load 0x2,0x5
02b3 0f00 | | Execute_Immediate Equal,0x0
02b4 e005 | | Load 0x0,0x5
02b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02b6 c802 | | Store 0x4,0x2
02b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b8 TRAP_0230:
02b8 0007 | | Action Break_Optional
02b9 e007 | | Load 0x0,0x7
02ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
02bb 4808 |H | Short_Literal 0x8
02bc 0092 040f | | Action Push_String_Extended,0x40f ; "Hostile elements encountered purging "
02be 0092 040b | | Action Push_String_Extended,0x40b ; " from "
02c0 e7fd | | Load 0x3,-0x3
02c1 e7fe | | Load 0x3,-0x2
02c2 8416 | | Call 0x2,0x16
02c3 01cc | | Execute Vector,Catenate
02c4 0092 0403 | | Action Push_String_Extended,0x403 ; " ("
02c6 01cc | | Execute Vector,Catenate
02c7 e00d | | Load 0x0,0xd
02c8 180d | | Execute Package,Field_Execute,Field_Number 0xd
02c9 01cc | | Execute Vector,Catenate
02ca 0092 0404 | | Action Push_String_Extended,0x404 ; ")."
02cc 01cc | | Execute Vector,Catenate
02cd e008 | | Load 0x0,0x8
02ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02cf e802 | | Load 0x4,0x2
02d0 4801 |H | Short_Literal 0x1
02d1 4800 |H | Short_Literal 0x0
02d2 e005 | | Load 0x0,0x5
02d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02d4 c802 | | Store 0x4,0x2
02d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d6 0000 0000 | | .XXX[0x2]
02d8 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
02dc 0000 0000 | | .BLANK 0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e7 | | .CONST 0x02e7 ; Address of begin
02e1 0373 | s | .CONST 0x0373 ; Address of exception handler
02e2 0002 | | .CONST 0x0002 ; Number of locals
02e3 INIT_02e0:
02e3 e408 | | Load 0x2,0x8
02e4 e001 | | Load 0x0,0x1
02e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02e7 BODY_02e0:
02e7 e002 | | Load 0x0,0x2
02e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e9 e410 | | Load 0x2,0x10
02ea e408 | | Load 0x2,0x8
02eb e001 | | Load 0x0,0x1
02ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ed 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02ee e40f | | Load 0x2,0xf
02ef e006 | | Load 0x0,0x6
02f0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02f1 00d1 | | Pop_Control Pop_Count_1
02f2 c405 | | Store 0x2,0x5
02f3 e405 | | Load 0x2,0x5
02f4 4607 |F | Jump_Case 0x8
02f5 783c |x< | Jump 0x332 ; case 0x0
02f6 7863 |xc | Jump 0x35a ; case 0x1
02f7 7862 |xb | Jump 0x35a ; case 0x2
02f8 7861 |xa | Jump 0x35a ; case 0x3
02f9 7803 |x | Jump 0x2fd ; case 0x4
02fa 785f |x_ | Jump 0x35a ; case 0x5
02fb 785e |x^ | Jump 0x35a ; case 0x6
02fc 7800 |x | Jump 0x2fd ; case 0x7
02fd e408 | | Load 0x2,0x8
02fe 4976 |Iv | Short_Literal 0x176
02ff 00eb | | Load_Encached Diana_Cache
0300 0098 | | Execute Package,Field_Read_Dynamic
0301 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0302 c409 | | Store 0x2,0x9
0303 e409 | | Load 0x2,0x9
0304 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0305 483d |H= | Short_Literal 0x3d
0306 483e |H> | Short_Literal 0x3e
0307 0262 | b | Execute Discrete,In_Range
0308 7020 |p | Jump_Nonzero 0x329
0309 e409 | | Load 0x2,0x9
030a 4972 |Ir | Short_Literal 0x172
030b 00eb | | Load_Encached Diana_Cache
030c 0098 | | Execute Package,Field_Read_Dynamic
030d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
030e e409 | | Load 0x2,0x9
030f 4975 |Iu | Short_Literal 0x175
0310 00eb | | Load_Encached Diana_Cache
0311 0098 | | Execute Package,Field_Read_Dynamic
0312 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0313 c40e | | Store 0x2,0xe
0314 e40e | | Load 0x2,0xe
0315 00ec | | Load_Encached Diana_Tree_Cache
0316 00eb | | Load_Encached Diana_Cache
0317 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0318 c40e | | Store 0x2,0xe
0319 e414 | | Load 0x2,0x14
031a 4803 |H | Short_Literal 0x3
031b 0092 040a | | Action Push_String_Extended,0x40a ; "Purged remnants of "
031d 0092 040b | | Action Push_String_Extended,0x40b ; " from "
031f e602 | | Load 0x3,0x2
0320 e802 | | Load 0x4,0x2
0321 8416 | | Call 0x2,0x16
0322 01cc | | Execute Vector,Catenate
0323 e008 | | Load 0x0,0x8
0324 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0325 e412 | | Load 0x2,0x12
0326 0a01 | | Execute_Immediate Plus,0x1
0327 c412 | | Store 0x2,0x12
0328 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0329 e414 | | Load 0x2,0x14
032a 4802 |H | Short_Literal 0x2
032b e802 | | Load 0x4,0x2
032c 0092 0410 | | Action Push_String_Extended,0x410 ; " appears to be OK."
032e 01cc | | Execute Vector,Catenate
032f e008 | | Load 0x0,0x8
0330 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0331 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0332 e413 | | Load 0x2,0x13
0333 e602 | | Load 0x3,0x2
0334 e802 | | Load 0x4,0x2
0335 e410 | | Load 0x2,0x10
0336 8417 | | Call 0x2,0x17
0337 c413 | | Store 0x2,0x13
0338 e413 | | Load 0x2,0x13
0339 6817 |h | Jump_Zero 0x351
033a e408 | | Load 0x2,0x8
033b 4976 |Iv | Short_Literal 0x176
033c 00eb | | Load_Encached Diana_Cache
033d 0098 | | Execute Package,Field_Read_Dynamic
033e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
033f c409 | | Store 0x2,0x9
0340 e409 | | Load 0x2,0x9
0341 4972 |Ir | Short_Literal 0x172
0342 00eb | | Load_Encached Diana_Cache
0343 0098 | | Execute Package,Field_Read_Dynamic
0344 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0345 e409 | | Load 0x2,0x9
0346 4975 |Iu | Short_Literal 0x175
0347 00eb | | Load_Encached Diana_Cache
0348 0098 | | Execute Package,Field_Read_Dynamic
0349 181d | | Execute Package,Field_Execute,Field_Number 0x1d
034a c40e | | Store 0x2,0xe
034b e40e | | Load 0x2,0xe
034c 00ec | | Load_Encached Diana_Tree_Cache
034d 00eb | | Load_Encached Diana_Cache
034e 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
034f c40e | | Store 0x2,0xe
0350 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0351 e414 | | Load 0x2,0x14
0352 4802 |H | Short_Literal 0x2
0353 e802 | | Load 0x4,0x2
0354 0092 0410 | | Action Push_String_Extended,0x410 ; " appears to be OK."
0356 01cc | | Execute Vector,Catenate
0357 e008 | | Load 0x0,0x8
0358 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0359 4501 |E | Exit_Suprogram New_Top_Offset 0x1
035a e414 | | Load 0x2,0x14
035b 4806 |H | Short_Literal 0x6
035c 0092 0411 | | Action Push_String_Extended,0x411 ; "Did NOT examine "
035e 0092 0412 | | Action Push_String_Extended,0x412 ; " in "
0360 e602 | | Load 0x3,0x2
0361 e802 | | Load 0x4,0x2
0362 8416 | | Call 0x2,0x16
0363 01cc | | Execute Vector,Catenate
0364 0092 0403 | | Action Push_String_Extended,0x403 ; " ("
0366 01cc | | Execute Vector,Catenate
0367 e405 | | Load 0x2,0x5
0368 e002 | | Load 0x0,0x2
0369 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036a 025e | ^ | Execute Discrete,Convert
036b 1c01 | | Execute_Immediate Run_Utility,0x1
036c 01cc | | Execute Vector,Catenate
036d 0092 0404 | | Action Push_String_Extended,0x404 ; ")."
036f 01cc | | Execute Vector,Catenate
0370 e008 | | Load 0x0,0x8
0371 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0372 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0373 TRAP_02e0:
0373 0007 | | Action Break_Optional
0374 e414 | | Load 0x2,0x14
0375 4808 |H | Short_Literal 0x8
0376 0092 040f | | Action Push_String_Extended,0x40f ; "Hostile elements encountered purging "
0378 0092 0412 | | Action Push_String_Extended,0x412 ; " in "
037a e602 | | Load 0x3,0x2
037b e802 | | Load 0x4,0x2
037c 8416 | | Call 0x2,0x16
037d 01cc | | Execute Vector,Catenate
037e 0092 0403 | | Action Push_String_Extended,0x403 ; " ("
0380 01cc | | Execute Vector,Catenate
0381 e00d | | Load 0x0,0xd
0382 180d | | Execute Package,Field_Execute,Field_Number 0xd
0383 01cc | | Execute Vector,Catenate
0384 0092 0404 | | Action Push_String_Extended,0x404 ; ")."
0386 01cc | | Execute Vector,Catenate
0387 e008 | | Load 0x0,0x8
0388 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0389 4501 |E | Exit_Suprogram New_Top_Offset 0x1
038a 0000 0000 | | .BLANK 0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 039a | | .CONST 0x039a ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 e40d | | Load 0x2,0xd
0394 4801 |H | Short_Literal 0x1
0395 4801 |H | Short_Literal 0x1
0396 e005 | | Load 0x0,0x5
0397 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0398 c40d | | Store 0x2,0xd
0399 4501 |E | Exit_Suprogram New_Top_Offset 0x1
039a TRAP_0390:
039a e00e | | Load 0x0,0xe
039b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
039c 010f | | Execute Exception,Equal
039d 6812 |h | Jump_Zero 0x3b0
039e e414 | | Load 0x2,0x14
039f 4805 |H | Short_Literal 0x5
03a0 0092 0413 | | Action Push_String_Extended,0x413 ; "Repairs to "
03a2 e602 | | Load 0x3,0x2
03a3 01cc | | Execute Vector,Catenate
03a4 0092 0414 | | Action Push_String_Extended,0x414 ; " must be ABANDONED."
03a6 01cc | | Execute Vector,Catenate
03a7 e008 | | Load 0x0,0x8
03a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a9 e40d | | Load 0x2,0xd
03aa 4801 |H | Short_Literal 0x1
03ab 4800 |H | Short_Literal 0x0
03ac e005 | | Load 0x0,0x5
03ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03ae c40d | | Store 0x2,0xd
03af 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03b0 0100 | | Execute Exception,Raise
03b1 0000 0000 | | .BLANK 0000[0x7]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c0 | | .CONST 0x03c0 ; Address of begin
03b9 03ea | | .CONST 0x03ea ; Address of exception handler
03ba 0002 | | .CONST 0x0002 ; Number of locals
03bb INIT_03b8:
03bb e006 | | Load 0x0,0x6
03bc 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
03bd 02c7 | | Declare_Variable Any
03be 00d8 | | Load_Top At_Offset_0
03bf 1c00 | | Execute_Immediate Run_Utility,0x0
03c0 BODY_03b8:
03c0 e002 | | Load 0x0,0x2
03c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c2 e802 | | Load 0x4,0x2
03c3 0120 | | Execute Any,Is_Value
03c4 6803 |h | Jump_Zero 0x3c8
03c5 e006 | | Load 0x0,0x6
03c6 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
03c7 7801 |x | Jump 0x3c9
03c8 e802 | | Load 0x4,0x2
03c9 602e |`. | Indirect_Literal Discrete,0x3f8,{0x00000000, 0x00028000}
03ca e005 | | Load 0x0,0x5
03cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03cc e40f | | Load 0x2,0xf
03cd e006 | | Load 0x0,0x6
03ce 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03cf c802 | | Store 0x4,0x2
03d0 c405 | | Store 0x2,0x5
03d1 e405 | | Load 0x2,0x5
03d2 7016 |p | Jump_Nonzero 0x3e9
03d3 00cf | | Action Mark_Auxiliary
03d4 780f |x | Jump 0x3e4
03d5 e413 | | Load 0x2,0x13
03d6 e602 | | Load 0x3,0x2
03d7 e802 | | Load 0x4,0x2
03d8 e006 | | Load 0x0,0x6
03d9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
03da e802 | | Load 0x4,0x2
03db e006 | | Load 0x0,0x6
03dc 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
03dd 8417 | | Call 0x2,0x17
03de c413 | | Store 0x2,0x13
03df e802 | | Load 0x4,0x2
03e0 e006 | | Load 0x0,0x6
03e1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03e2 c802 | | Store 0x4,0x2
03e3 00c9 | | Action Pop_Auxiliary_Loop
03e4 e802 | | Load 0x4,0x2
03e5 e006 | | Load 0x0,0x6
03e6 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
03e7 6fed |o | Jump_Zero 0x3d5
03e8 00ce | | Action Pop_Auxiliary
03e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ea TRAP_03b8:
03ea 0007 | | Action Break_Optional
03eb e414 | | Load 0x2,0x14
03ec 4807 |H | Short_Literal 0x7
03ed 0092 0415 | | Action Push_String_Extended,0x415 ; "Substructure for "
03ef e602 | | Load 0x3,0x2
03f0 01cc | | Execute Vector,Catenate
03f1 0092 0416 | | Action Push_String_Extended,0x416 ; " is inaccessible"
03f3 01cc | | Execute Vector,Catenate
03f4 e008 | | Load 0x0,0x8
03f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f7 0000 | | .XXX[0x1]
03f8 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
03fc ; --------------------------------------------------------------------------------------
03fc ; STRING TABLE
03fc ; --------------------------------------------------------------------------------------
03fc 0038 | 8 | .STRTAB 0x0038->0x0418 ; "Operator capability is required to use Repair_Directory"
03fd 006d | m | .STRTAB 0x006d->0x0433 ; "'C(LIB)"
03fe 0072 | r | .STRTAB 0x0072->0x0437 ; "Cannot repair "
03ff 007e | ~ | .STRTAB 0x007e->0x043e ; " because "
0400 0085 | | .STRTAB 0x0085->0x0442 ; "Examining "
0401 008d | | .STRTAB 0x008d->0x0447 ; " for damage."
0402 0097 | | .STRTAB 0x0097->0x044d ; "Cannot gain access to internal structure of "
0403 00c1 | | .STRTAB 0x00c1->0x0463 ; " ("
0404 00c1 | | .STRTAB 0x00c1->0x0464 ; ")."
0405 00c1 | | .STRTAB 0x00c1->0x0465 ; " is not damaged."
0406 00cf | | .STRTAB 0x00cf->0x046d ; "Damage to "
0407 00d7 | | .STRTAB 0x00d7->0x0472 ; " has been repaired:"
0408 00e8 | | .STRTAB 0x00e8->0x047c ; " anomalies found."
0409 00f7 | | .STRTAB 0x00f7->0x0484 ; "Hostile elements encountered examining "
040a 011c | | .STRTAB 0x011c->0x0498 ; "Purged remnants of "
040b 012d | - | .STRTAB 0x012d->0x04a1 ; " from "
040c 0131 | 1 | .STRTAB 0x0131->0x04a4 ; "Partially purged remnants of "
040d 014c | L | .STRTAB 0x014c->0x04b3 ; ", but unrecoverable garbage has been created ("
040e 0178 | x | .STRTAB 0x0178->0x04ca ; "Failed to purge remnants of "
040f 0192 | | .STRTAB 0x0192->0x04d8 ; "Hostile elements encountered purging "
0410 01b5 | | .STRTAB 0x01b5->0x04ea ; " appears to be OK."
0411 01c5 | | .STRTAB 0x01c5->0x04f3 ; "Did NOT examine "
0412 01d3 | | .STRTAB 0x01d3->0x04fb ; " in "
0413 01d5 | | .STRTAB 0x01d5->0x04fd ; "Repairs to "
0414 01de | | .STRTAB 0x01de->0x0503 ; " must be ABANDONED."
0415 01ef | | .STRTAB 0x01ef->0x050c ; "Substructure for "
0416 01fe | | .STRTAB 0x01fe->0x0515 ; " is inaccessible"
0417 020c | | .STREND 0x020c->0x051d
0418 4f70 6572 |Oper| .STRTAB_STRINGS
051d 0000 0000 | | .XXX[0x3]
051f 0000 | |
0520 ; --------------------------------------------------------------------------------------
0520 ; Debug Table
0520 ; --------------------------------------------------------------------------------------
0520 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb4d,0x0000,0x0001,0x0000
0526 0000 1180 | | .XXX[0x5b]
0528 0000 0000 | |
052a 0000 1100 | |
052c 0000 1380 | |
052e 0000 16a5 | |
0530 37b1 1725 |7 %|
0532 b4b6 3610 | 6 |
0534 142a 3432 | *42|
0536 afa5 37b1 | 7 |
0538 101e 9f10 | |
053a 1918 9c16 | |
053c 102a 3432 | *42|
053e afa9 b2b9 | |
0540 b9b4 b7b7 | |
0542 101e 9f10 | |
0544 1111 149d | |
0546 8000 0012 | |
0548 0000 0018 | |
054a 1010 1025 | %|
054c 37b1 1725 |7 %|
054e b4b6 3610 | 6 |
0550 142a 3432 | *42|
0552 afa5 37b1 | 7 |
0554 101e 9f10 | |
0556 1918 9c16 | |
0558 102a 3432 | *42|
055a afa9 b2b9 | |
055c b9b4 b7b7 | |
055e 101e 9f10 | |
0560 1111 149d | |
0562 8000 0012 | |
0564 0000 0018 | |
0566 1010 1025 | %|
0568 37b1 1725 |7 %|
056a b4b6 3610 | 6 |
056c 142a 3432 | *42|
056e afa5 37b1 | 7 |
0570 101e 9f10 | |
0572 1918 9c16 | |
0574 102a 3432 | *42|
0576 afa9 b2b9 | |
0578 b9b4 b7b7 | |
057a 101e 9f10 | |
057c 1111 149d | |
057e 8000 0000 | |
0580 8000 | |
0581 0000 0000 | | .BLANK 0000[0x4]
0585 002a 8000 | * | .XXX[0x8]
0587 0000 0000 | |
0589 002a 0000 | * |
058b 0000 8000 | |
058d 0000 0000 | | .BLANK 0000[0x4]
0591 002b 0000 | + | .XXX[0x22]
0593 0000 9000 | |
0595 0000 2c80 | , |
0597 0000 0529 | )|
0599 22a3 22a9 |" " |
059b 22a7 21a2 |" ! |
059d a980 0000 | |
059f 2c00 0000 |, |
05a1 0590 2922 | )"|
05a3 a322 a922 | " "|
05a5 a721 a2a9 | ! |
05a7 8000 002c | ,|
05a9 0000 0005 | |
05ab 9029 22a3 | )" |
05ad 22a9 22a7 |" " |
05af 21a2 a980 |! |
05b1 0000 0080 | |
05b3 0000 0000 | | .BLANK 0000[0x5]
05b8 3200 0000 |2 | .XXX[0x48]
05ba 0000 0000 | |
05bc 3180 0000 |1 |
05be 3300 0000 |3 |
05c0 08b8 3937 | 97|
05c2 b1b2 b23a | :|
05c4 b932 9022 | 2 "|
05c6 34b9 b0b1 |4 |
05c8 3632 8000 |62 |
05ca 0032 8000 | 2 |
05cc 0009 1038 | 8|
05ce 3937 b1b2 |97 |
05d0 b23a b932 | : 2|
05d2 9022 34b9 | "4 |
05d4 b0b1 3632 | 62|
05d6 8000 0032 | 2|
05d8 8000 0009 | |
05da 1038 3937 | 897|
05dc b1b2 b23a | :|
05de b932 9022 | 2 "|
05e0 34b9 b0b1 |4 |
05e2 3632 8000 |62 |
05e4 003c 8000 | < |
05e6 0005 b830 | 0|
05e8 b1b5 b0b3 | |
05ea b290 2637 | &7|
05ec b380 0000 | |
05ee 3c00 0000 |< |
05f0 0610 3830 | 80|
05f2 b1b5 b0b3 | |
05f4 b290 2637 | &7|
05f6 b380 0000 | |
05f8 3c00 0000 |< |
05fa 0610 3830 | 80|
05fc b1b5 b0b3 | |
05fe b290 2637 | &7|