|
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_03bcfe
└─⟦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 0820 | | .CONST 0x0820 ; 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 0055 | U | .CONST 0x0055 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002f | / | .CONST 0x002f ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 0092 066f | o| Action Push_String_Extended,0x66f ; "<NIL>" 0012 00ea | | Load_Encached Null_String_Cache 0013 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call 0015 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call 0017 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0019 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call 001b 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 001d 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 001f 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call 0021 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call 0023 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 0025 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 0027 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 0029 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 002b 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 002d 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call 002f e002 | | Load 0x0,0x2 0030 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0031 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0032 00c6 | | Action Check_Subprogram_Elaborated 0033 00e1 | | Load_Encached Boolean_Cache 0034 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0035 e003 | | Load 0x0,0x3 0036 e004 | | Load 0x0,0x4 0037 4800 |H | Short_Literal 0x0 0038 0007 | | Action Break_Optional 0039 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call 003b e002 | | Load 0x0,0x2 003c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003d 1919 | | Execute Package,Field_Reference,Field_Number 0x19 003e 00c6 | | Action Check_Subprogram_Elaborated 003f 00e3 | | Load_Encached Natural_Cache 0040 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0041 e005 | | Load 0x0,0x5 0042 e006 | | Load 0x0,0x6 0043 4800 |H | Short_Literal 0x0 0044 0007 | | Action Break_Optional 0045 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call 0047 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call 0049 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 004b 1d0d | | Execute_Immediate Reference_Lex_1,0xd 004c 00c7 | | Action Elaborate_Subprogram 004d 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 004f 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call 0051 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 0053 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0054 00c7 | | Action Elaborate_Subprogram 0055 BODY_0008: 0055 00bc | | Action Signal_Activated 0056 00bb | | Action Signal_Completion 0057 0000 | | .XXX[0x1] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0086 | | .CONST 0x0086 ; Address of begin 0059 008f | | .CONST 0x008f ; Address of exception handler 005a 0003 | | .CONST 0x0003 ; Number of locals 005b INIT_0058: 005b 0093 0000 | | push_full_address 0x0 005d 604e |`N | Indirect_Literal Discrete,0xac,{0x80000000, 0x00020000} 005e 0273 | s | Execute Discrete,Plus 005f e007 | | Load 0x0,0x7 0060 0273 | s | Execute Discrete,Plus 0061 e008 | | Load 0x0,0x8 0062 0273 | s | Execute Discrete,Plus 0063 0092 0670 | p| Action Push_String_Extended,0x670 ; "Destroy_Library" 0065 0092 0671 | q| Action Push_String_Extended,0x671 ; "Existing => \x22" 0067 e5ff | | Load 0x2,-0x1 0068 01cc | | Execute Vector,Catenate 0069 0092 0672 | r| Action Push_String_Extended,0x672 ; "\x22, Effort_Only => " 006b 01cc | | Execute Vector,Catenate 006c e5fe | | Load 0x2,-0x2 006d 00e1 | | Load_Encached Boolean_Cache 006e 011c | | Execute Any,Convert_Unchecked 006f 1c01 | | Execute_Immediate Run_Utility,0x1 0070 01cc | | Execute Vector,Catenate 0071 0092 0673 | s| Action Push_String_Extended,0x673 ; ", Response => \x22" 0073 01cc | | Execute Vector,Catenate 0074 e5fd | | Load 0x2,-0x3 0075 01cc | | Execute Vector,Catenate 0076 0092 0674 | t| Action Push_String_Extended,0x674 ; "\x22" 0078 01cc | | Execute Vector,Catenate 0079 e5fd | | Load 0x2,-0x3 007a e009 | | Load 0x0,0x9 007b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 007c 00c4 | | Action Make_Default 007d e009 | | Load 0x0,0x9 007e 180e | | Execute Package,Field_Execute,Field_Number 0xe 007f c406 | | Store 0x2,0x6 0080 e00a | | Load 0x0,0xa 0081 0387 | | Declare_Variable Package 0082 00d8 | | Load_Top At_Offset_0 0083 020f | | Execute Module,Activate 0084 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call 0086 BODY_0058: 0086 4801 |H | Short_Literal 0x1 0087 e00b | | Load 0x0,0xb 0088 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0089 4800 |H | Short_Literal 0x0 008a e00c | | Load 0x0,0xc 008b e402 | | Load 0x2,0x2 008c 0096 | | Execute Package,Entry 008d 8403 | | Call 0x2,0x3 008e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 008f TRAP_0058: 008f e00d | | Load 0x0,0xd 0090 e402 | | Load 0x2,0x2 0091 0098 | | Execute Package,Field_Read_Dynamic 0092 010f | | Execute Exception,Equal 0093 6802 |h | Jump_Zero 0x96 0094 00d8 | | Load_Top At_Offset_0 0095 0101 | | Execute Exception,Reraise 0096 e00e | | Load 0x0,0xe 0097 e402 | | Load 0x2,0x2 0098 0098 | | Execute Package,Field_Read_Dynamic 0099 010f | | Execute Exception,Equal 009a 6801 |h | Jump_Zero 0x9c 009b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 009c 4800 |H | Short_Literal 0x0 009d 4800 |H | Short_Literal 0x0 009e 4801 |H | Short_Literal 0x1 009f 4808 |H | Short_Literal 0x8 00a0 0092 0675 | u| Action Push_String_Extended,0x675 ; "EXCEPTION: " 00a2 4800 |H | Short_Literal 0x0 00a3 4801 |H | Short_Literal 0x1 00a4 e00f | | Load 0x0,0xf 00a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a6 01cc | | Execute Vector,Catenate 00a7 e010 | | Load 0x0,0x10 00a8 e402 | | Load 0x2,0x2 00a9 0096 | | Execute Package,Entry 00aa 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ab 0000 | | .XXX[0x1] 00ac 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00e7 | | .CONST 0x00e7 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0004 | | .CONST 0x0004 ; Number of locals 00b3 INIT_00b0: 00b3 e5fd | | Load 0x2,-0x3 00b4 e009 | | Load 0x0,0x9 00b5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00b6 e009 | | Load 0x0,0x9 00b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b8 011e | | Execute Any,Convert 00b9 0093 0000 | | push_full_address 0x0 00bb 6034 |`4 | Indirect_Literal Discrete,0xf0,{0x80000000, 0x00010000} 00bc 0273 | s | Execute Discrete,Plus 00bd e007 | | Load 0x0,0x7 00be 0273 | s | Execute Discrete,Plus 00bf e011 | | Load 0x0,0x11 00c0 0273 | s | Execute Discrete,Plus 00c1 0092 0676 | v| Action Push_String_Extended,0x676 ; "Destroy_Users (" 00c3 e5fc | | Load 0x2,-0x4 00c4 01cc | | Execute Vector,Catenate 00c5 0092 0677 | w| Action Push_String_Extended,0x677 ; ")" 00c7 01cc | | Execute Vector,Catenate 00c8 0092 0678 | x| Action Push_String_Extended,0x678 ; "Named => \x22" 00ca e5ff | | Load 0x2,-0x1 00cb 01cc | | Execute Vector,Catenate 00cc 0092 0672 | r| Action Push_String_Extended,0x672 ; "\x22, Effort_Only => " 00ce 01cc | | Execute Vector,Catenate 00cf e5fe | | Load 0x2,-0x2 00d0 00e1 | | Load_Encached Boolean_Cache 00d1 011c | | Execute Any,Convert_Unchecked 00d2 1c01 | | Execute_Immediate Run_Utility,0x1 00d3 01cc | | Execute Vector,Catenate 00d4 0092 0673 | s| Action Push_String_Extended,0x673 ; ", Response => \x22" 00d6 01cc | | Execute Vector,Catenate 00d7 e5fd | | Load 0x2,-0x3 00d8 01cc | | Execute Vector,Catenate 00d9 0092 0674 | t| Action Push_String_Extended,0x674 ; "\x22" 00db 01cc | | Execute Vector,Catenate 00dc e402 | | Load 0x2,0x2 00dd 00c4 | | Action Make_Default 00de e009 | | Load 0x0,0x9 00df 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e0 c407 | | Store 0x2,0x7 00e1 e00a | | Load 0x0,0xa 00e2 0387 | | Declare_Variable Package 00e3 00d8 | | Load_Top At_Offset_0 00e4 020f | | Execute Module,Activate 00e5 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call 00e7 BODY_00b0: 00e7 4801 |H | Short_Literal 0x1 00e8 e00b | | Load 0x0,0xb 00e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ea 4800 |H | Short_Literal 0x0 00eb e00c | | Load 0x0,0xc 00ec e403 | | Load 0x2,0x3 00ed 0096 | | Execute Package,Entry 00ee 8404 | | Call 0x2,0x4 00ef 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00f0 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 010f | | .CONST 0x010f ; Address of begin 00f9 014d | M | .CONST 0x014d ; Address of exception handler 00fa 0007 | | .CONST 0x0007 ; Number of locals 00fb INIT_00f8: 00fb e012 | | Load 0x0,0x12 00fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00fd 02c7 | | Declare_Variable Any 00fe 00d8 | | Load_Top At_Offset_0 00ff 1c00 | | Execute_Immediate Run_Utility,0x0 0100 e012 | | Load 0x0,0x12 0101 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0102 0322 | " | Declare_Variable Record 0103 00d8 | | Load_Top At_Offset_0 0104 1c00 | | Execute_Immediate Run_Utility,0x0 0105 e012 | | Load 0x0,0x12 0106 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0107 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0108 e012 | | Load 0x0,0x12 0109 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010a e013 | | Load 0x0,0x13 010b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 010c e012 | | Load 0x0,0x12 010d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 010e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 010f BODY_00f8: 010f e012 | | Load 0x0,0x12 0110 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0111 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0112 e402 | | Load 0x2,0x2 0113 0120 | | Execute Any,Is_Value 0114 6803 |h | Jump_Zero 0x118 0115 e012 | | Load 0x0,0x12 0116 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0117 7801 |x | Jump 0x119 0118 e402 | | Load 0x2,0x2 0119 6036 |`6 | Indirect_Literal Discrete,0x150,{0x00000000, 0x00004000} 011a e014 | | Load 0x0,0x14 011b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011c e015 | | Load 0x0,0x15 011d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 011e e012 | | Load 0x0,0x12 011f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0120 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0121 e5ff | | Load 0x2,-0x1 0122 e012 | | Load 0x0,0x12 0123 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0124 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0125 c402 | | Store 0x2,0x2 0126 c404 | | Store 0x2,0x4 0127 e012 | | Load 0x0,0x12 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 e403 | | Load 0x2,0x3 012a 6025 |`% | Indirect_Literal Discrete,0x150,{0x00000000, 0x00004000} 012b e014 | | Load 0x0,0x14 012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012d e402 | | Load 0x2,0x2 012e e012 | | Load 0x0,0x12 012f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0130 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0131 00d1 | | Pop_Control Pop_Count_1 0132 c405 | | Store 0x2,0x5 0133 4801 |H | Short_Literal 0x1 0134 e403 | | Load 0x2,0x3 0135 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0136 4801 |H | Short_Literal 0x1 0137 e403 | | Load 0x2,0x3 0138 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0139 e012 | | Load 0x0,0x12 013a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 013b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 013c e013 | | Load 0x0,0x13 013d 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 013e e012 | | Load 0x0,0x12 013f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0140 600f |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00004000} 0141 e014 | | Load 0x0,0x14 0142 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0143 4801 |H | Short_Literal 0x1 0144 e403 | | Load 0x2,0x3 0145 e402 | | Load 0x2,0x2 0146 e012 | | Load 0x0,0x12 0147 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0148 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0149 c405 | | Store 0x2,0x5 014a c406 | | Store 0x2,0x6 014b c407 | | Store 0x2,0x7 014c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014d TRAP_00f8: 014d 0007 | | Action Break_Optional 014e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014f 0000 | | .XXX[0x1] 0150 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e5ff | | Load 0x2,-0x1 015c e210 | | Load 0x1,0x10 015d 01df | | Execute Vector,Equal 015e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015f 0000 | | .XXX[0x1] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 e5ff | | Load 0x2,-0x1 0164 01dd | | Execute Vector,First 0165 e5ff | | Load 0x2,-0x1 0166 01d7 | | Execute Vector,Field_Read 0167 0e21 | ! | Execute_Immediate Not_Equal,0x21 0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 e5ff | | Load 0x2,-0x1 0174 e210 | | Load 0x1,0x10 0175 01de | | Execute Vector,Not_Equal 0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b e5ff | | Load 0x2,-0x1 017c 01dd | | Execute Vector,First 017d e5ff | | Load 0x2,-0x1 017e 01d7 | | Execute Vector,Field_Read 017f 0e5f | _ | Execute_Immediate Not_Equal,0x5f 0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0181 0000 0000 | | .BLANK 0000[0x7] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b e5ff | | Load 0x2,-0x1 018c 01dc | | Execute Vector,Last 018d e5ff | | Load 0x2,-0x1 018e 01d7 | | Execute Vector,Field_Read 018f 0e5f | _ | Execute_Immediate Not_Equal,0x5f 0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b e5ff | | Load 0x2,-0x1 019c 01dd | | Execute Vector,First 019d e5ff | | Load 0x2,-0x1 019e 01d7 | | Execute Vector,Field_Read 019f 00d8 | | Load_Top At_Offset_0 01a0 4841 |HA | Short_Literal 0x41 01a1 485a |HZ | Short_Literal 0x5a 01a2 0262 | b | Execute Discrete,In_Range 01a3 7006 |p | Jump_Nonzero 0x1aa 01a4 4861 |Ha | Short_Literal 0x61 01a5 487a |Hz | Short_Literal 0x7a 01a6 0262 | b | Execute Discrete,In_Range 01a7 7003 |p | Jump_Nonzero 0x1ab 01a8 4800 |H | Short_Literal 0x0 01a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01aa 00d1 | | Pop_Control Pop_Count_1 01ab 4801 |H | Short_Literal 0x1 01ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00cf | | Action Mark_Auxiliary 01b4 e5ff | | Load 0x2,-0x1 01b5 01d9 | | Execute Vector,Reverse_Bounds 01b6 0263 | c | Execute Discrete,Above_Bound 01b7 701f |p | Jump_Nonzero 0x1d7 01b8 00d8 | | Load_Top At_Offset_0 01b9 e5ff | | Load 0x2,-0x1 01ba 01d7 | | Execute Vector,Field_Read 01bb 00d8 | | Load_Top At_Offset_0 01bc 0d5b | [ | Execute_Immediate Less,0x5b 01bd 7009 |p | Jump_Nonzero 0x1c7 01be 00d8 | | Load_Top At_Offset_0 01bf 0c61 | a | Execute_Immediate Greater_Equal,0x61 01c0 7003 |p | Jump_Nonzero 0x1c4 01c1 0f5f | _ | Execute_Immediate Equal,0x5f 01c2 7012 |p | Jump_Nonzero 0x1d5 01c3 780f |x | Jump 0x1d3 01c4 0c7b | { | Execute_Immediate Greater_Equal,0x7b 01c5 680f |h | Jump_Zero 0x1d5 01c6 780c |x | Jump 0x1d3 01c7 00d8 | | Load_Top At_Offset_0 01c8 4830 |H0 | Short_Literal 0x30 01c9 4839 |H9 | Short_Literal 0x39 01ca 0262 | b | Execute Discrete,In_Range 01cb 7005 |p | Jump_Nonzero 0x1d1 01cc 4841 |HA | Short_Literal 0x41 01cd 485a |HZ | Short_Literal 0x5a 01ce 0262 | b | Execute Discrete,In_Range 01cf 7005 |p | Jump_Nonzero 0x1d5 01d0 7802 |x | Jump 0x1d3 01d1 00d1 | | Pop_Control Pop_Count_1 01d2 7802 |x | Jump 0x1d5 01d3 4800 |H | Short_Literal 0x0 01d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d5 00c8 | | Action Pop_Auxiliary_Range 01d6 3fe1 |? | Loop_Increasing 0x1b8 01d7 00ce | | Action Pop_Auxiliary 01d8 4801 |H | Short_Literal 0x1 01d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 4800 |H | Short_Literal 0x0 01e4 e5ff | | Load 0x2,-0x1 01e5 0092 0679 | y| Action Push_String_Extended,0x679 ; "__" 01e7 e016 | | Load 0x0,0x16 01e8 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01e9 0e00 | | Execute_Immediate Not_Equal,0x0 01ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01eb 0000 0000 | | .BLANK 0000[0x5] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0209 | | .CONST 0x0209 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 e5ff | | Load 0x2,-0x1 01f4 8214 | | Call 0x1,0x14 01f5 6811 |h | Jump_Zero 0x207 01f6 e5ff | | Load 0x2,-0x1 01f7 8215 | | Call 0x1,0x15 01f8 680e |h | Jump_Zero 0x207 01f9 e5ff | | Load 0x2,-0x1 01fa 8216 | | Call 0x1,0x16 01fb 680b |h | Jump_Zero 0x207 01fc e5ff | | Load 0x2,-0x1 01fd 8217 | | Call 0x1,0x17 01fe 6808 |h | Jump_Zero 0x207 01ff e5ff | | Load 0x2,-0x1 0200 8218 | | Call 0x1,0x18 0201 6805 |h | Jump_Zero 0x207 0202 e5ff | | Load 0x2,-0x1 0203 8219 | | Call 0x1,0x19 0204 6802 |h | Jump_Zero 0x207 0205 4801 |H | Short_Literal 0x1 0206 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0207 4800 |H | Short_Literal 0x0 0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0209 TRAP_01f0: 0209 0007 | | Action Break_Optional 020a 4800 |H | Short_Literal 0x0 020b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 021b | | .CONST 0x021b ; Address of begin 0211 024a | J | .CONST 0x024a ; Address of exception handler 0212 0003 | | .CONST 0x0003 ; Number of locals 0213 INIT_0210: 0213 e5ff | | Load 0x2,-0x1 0214 01dd | | Execute Vector,First 0215 00e2 | | Load_Encached Integer_Cache 0216 03f1 | | Declare_Variable Discrete,With_Value 0217 e5ff | | Load 0x2,-0x1 0218 01dd | | Execute Vector,First 0219 00e2 | | Load_Encached Integer_Cache 021a 03f1 | | Declare_Variable Discrete,With_Value 021b BODY_0210: 021b 00cf | | Action Mark_Auxiliary 021c 00cf | | Action Mark_Auxiliary 021d 7804 |x | Jump 0x222 021e e403 | | Load 0x2,0x3 021f 0a01 | | Execute_Immediate Plus,0x1 0220 c403 | | Store 0x2,0x3 0221 00c9 | | Action Pop_Auxiliary_Loop 0222 e403 | | Load 0x2,0x3 0223 e5ff | | Load 0x2,-0x1 0224 01dc | | Execute Vector,Last 0225 027a | z | Execute Discrete,Less_Equal 0226 6805 |h | Jump_Zero 0x22c 0227 e403 | | Load 0x2,0x3 0228 e5ff | | Load 0x2,-0x1 0229 01d7 | | Execute Vector,Field_Read 022a 0e2e | . | Execute_Immediate Not_Equal,0x2e 022b 77f2 |w | Jump_Nonzero 0x21e 022c 00ce | | Action Pop_Auxiliary 022d e402 | | Load 0x2,0x2 022e e403 | | Load 0x2,0x3 022f 0aff | | Execute_Immediate Plus,-0x1 0230 00d8 | | Load_Top At_Offset_0 0231 00e2 | | Load_Encached Integer_Cache 0232 0260 | ` | Execute Discrete,In_Type 0233 7001 |p | Jump_Nonzero 0x235 0234 0801 | | Execute_Immediate Raise,0x1 0235 e5ff | | Load 0x2,-0x1 0236 01cf | | Execute Vector,Slice_Read 0237 821a | | Call 0x1,0x1a 0238 7002 |p | Jump_Nonzero 0x23b 0239 4800 |H | Short_Literal 0x0 023a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023b e403 | | Load 0x2,0x3 023c 0a01 | | Execute_Immediate Plus,0x1 023d c402 | | Store 0x2,0x2 023e e403 | | Load 0x2,0x3 023f 0a01 | | Execute_Immediate Plus,0x1 0240 c403 | | Store 0x2,0x3 0241 e402 | | Load 0x2,0x2 0242 e5ff | | Load 0x2,-0x1 0243 01dc | | Execute Vector,Last 0244 027d | } | Execute Discrete,Greater 0245 6802 |h | Jump_Zero 0x248 0246 4801 |H | Short_Literal 0x1 0247 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0248 00c9 | | Action Pop_Auxiliary_Loop 0249 7fd2 | | Jump 0x21c 024a TRAP_0210: 024a 0007 | | Action Break_Optional 024b 4800 |H | Short_Literal 0x0 024c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024d 0000 0000 | | .XXX[0x3] 024f 0000 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 026b | k | .CONST 0x026b ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 e5ff | | Load 0x2,-0x1 0254 8212 | | Call 0x1,0x12 0255 6802 |h | Jump_Zero 0x258 0256 4800 |H | Short_Literal 0x0 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 e5ff | | Load 0x2,-0x1 0259 8213 | | Call 0x1,0x13 025a 6802 |h | Jump_Zero 0x25d 025b 4800 |H | Short_Literal 0x0 025c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025d e5ff | | Load 0x2,-0x1 025e 01dd | | Execute Vector,First 025f 0a01 | | Execute_Immediate Plus,0x1 0260 00d8 | | Load_Top At_Offset_0 0261 00e2 | | Load_Encached Integer_Cache 0262 0260 | ` | Execute Discrete,In_Type 0263 7001 |p | Jump_Nonzero 0x265 0264 0801 | | Execute_Immediate Raise,0x1 0265 e5ff | | Load 0x2,-0x1 0266 01dc | | Execute Vector,Last 0267 e5ff | | Load 0x2,-0x1 0268 01cf | | Execute Vector,Slice_Read 0269 821b | | Call 0x1,0x1b 026a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026b TRAP_0250: 026b 0007 | | Action Break_Optional 026c 4800 |H | Short_Literal 0x0 026d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026e 0000 0000 | | .XXX[0x2] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 027e | ~ | .CONST 0x027e ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0004 | | .CONST 0x0004 ; Number of locals 0273 INIT_0270: 0273 e5ff | | Load 0x2,-0x1 0274 e002 | | Load 0x0,0x2 0275 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0276 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0277 e012 | | Load 0x0,0x12 0278 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0279 02c7 | | Declare_Variable Any 027a 00d8 | | Load_Top At_Offset_0 027b 1c00 | | Execute_Immediate Run_Utility,0x0 027c e012 | | Load 0x0,0x12 027d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 027e BODY_0270: 027e e009 | | Load 0x0,0x9 027f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0280 4802 |H | Short_Literal 0x2 0281 0092 067a | z| Action Push_String_Extended,0x67a ; "PROCESSING " 0283 e402 | | Load 0x2,0x2 0284 01cc | | Execute Vector,Catenate 0285 e017 | | Load 0x0,0x17 0286 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0287 e20f | | Load 0x1,0xf 0288 e402 | | Load 0x2,0x2 0289 0092 067b | {| Action Push_String_Extended,0x67b ; "Network_Public => RWCOD" 028b e018 | | Load 0x0,0x18 028c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 028d e20f | | Load 0x1,0xf 028e 4800 |H | Short_Literal 0x0 028f e402 | | Load 0x2,0x2 0290 e019 | | Load 0x0,0x19 0291 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0292 e012 | | Load 0x0,0x12 0293 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0294 e403 | | Load 0x2,0x3 0295 0120 | | Execute Any,Is_Value 0296 6803 |h | Jump_Zero 0x29a 0297 e012 | | Load 0x0,0x12 0298 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0299 7801 |x | Jump 0x29b 029a e403 | | Load 0x2,0x3 029b e5ff | | Load 0x2,-0x1 029c e002 | | Load 0x0,0x2 029d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 029f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02a0 c403 | | Store 0x2,0x3 02a1 c404 | | Store 0x2,0x4 02a2 e012 | | Load 0x0,0x12 02a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a4 6027 |`' | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x00004000} 02a5 e014 | | Load 0x0,0x14 02a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02a7 4800 |H | Short_Literal 0x0 02a8 e403 | | Load 0x2,0x3 02a9 e012 | | Load 0x0,0x12 02aa 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 02ab 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 02ac c404 | | Store 0x2,0x4 02ad e012 | | Load 0x0,0x12 02ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02af 601c |` | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x00004000} 02b0 e014 | | Load 0x0,0x14 02b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02b2 4800 |H | Short_Literal 0x0 02b3 e403 | | Load 0x2,0x3 02b4 e012 | | Load 0x0,0x12 02b5 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 02b6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02b7 c404 | | Store 0x2,0x4 02b8 e403 | | Load 0x2,0x3 02b9 e012 | | Load 0x0,0x12 02ba 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02bc e012 | | Load 0x0,0x12 02bd 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 02be 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02bf 6808 |h | Jump_Zero 0x2c8 02c0 e402 | | Load 0x2,0x2 02c1 8211 | | Call 0x1,0x11 02c2 e20f | | Load 0x1,0xf 02c3 0092 067c | || Action Push_String_Extended,0x67c ; "WORLD" 02c5 e402 | | Load 0x2,0x2 02c6 e019 | | Load 0x0,0x19 02c7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c9 0000 0000 | | .XXX[0x3] 02cb 0000 | | 02cc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 e5fd | | Load 0x2,-0x3 02d4 e5fe | | Load 0x2,-0x2 02d5 821d | | Call 0x1,0x1d 02d6 c5fd | | Store 0x2,-0x3 02d7 e002 | | Load 0x0,0x2 02d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d9 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 02da c5fc | | Store 0x2,-0x4 02db 4800 |H | Short_Literal 0x0 02dc a5fb | | Store_Unchecked 0x2,-0x5 02dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02de 0000 0000 | | .XXX[0x2] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 e5fd | | Load 0x2,-0x3 02e4 0a01 | | Execute_Immediate Plus,0x1 02e5 c5fd | | Store 0x2,-0x3 02e6 e002 | | Load 0x0,0x2 02e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e8 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 02e9 c5fc | | Store 0x2,-0x4 02ea 4800 |H | Short_Literal 0x0 02eb a5fb | | Store_Unchecked 0x2,-0x5 02ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ed 0000 0000 | | .XXX[0x3] 02ef 0000 | | 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 0303 | | .CONST 0x0303 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0005 | | .CONST 0x0005 ; Number of locals 02f3 INIT_02f0: 02f3 e002 | | Load 0x0,0x2 02f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02f6 02c7 | | Declare_Variable Any 02f7 e5ff | | Load 0x2,-0x1 02f8 a402 | | Store_Unchecked 0x2,0x2 02f9 00e3 | | Load_Encached Natural_Cache 02fa 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02fb e002 | | Load 0x0,0x2 02fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02fd 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 02fe 02c7 | | Declare_Variable Any 02ff 00d8 | | Load_Top At_Offset_0 0300 1c00 | | Execute_Immediate Run_Utility,0x0 0301 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 0303 BODY_02f0: 0303 e402 | | Load 0x2,0x2 0304 e002 | | Load 0x0,0x2 0305 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0306 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0307 e5fe | | Load 0x2,-0x2 0308 6814 |h | Jump_Zero 0x31d 0309 00cf | | Action Mark_Auxiliary 030a 780a |x | Jump 0x315 030b e403 | | Load 0x2,0x3 030c 0a01 | | Execute_Immediate Plus,0x1 030d c403 | | Store 0x2,0x3 030e 8405 | | Call 0x2,0x5 030f e402 | | Load 0x2,0x2 0310 e002 | | Load 0x0,0x2 0311 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0312 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0313 c402 | | Store 0x2,0x2 0314 00c9 | | Action Pop_Auxiliary_Loop 0315 e402 | | Load 0x2,0x2 0316 e002 | | Load 0x0,0x2 0317 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0318 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0319 6ff1 |o | Jump_Zero 0x30b 031a 00ce | | Action Pop_Auxiliary 031b e403 | | Load 0x2,0x3 031c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 031d 00cf | | Action Mark_Auxiliary 031e 7809 |x | Jump 0x328 031f e403 | | Load 0x2,0x3 0320 0a01 | | Execute_Immediate Plus,0x1 0321 c403 | | Store 0x2,0x3 0322 e402 | | Load 0x2,0x2 0323 e002 | | Load 0x0,0x2 0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0325 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0326 c402 | | Store 0x2,0x2 0327 00c9 | | Action Pop_Auxiliary_Loop 0328 e402 | | Load 0x2,0x2 0329 e002 | | Load 0x0,0x2 032a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 032c 6ff2 |o | Jump_Zero 0x31f 032d 00ce | | Action Pop_Auxiliary 032e e403 | | Load 0x2,0x3 032f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 e5ff | | Load 0x2,-0x1 0334 0f01 | | Execute_Immediate Equal,0x1 0335 6802 |h | Jump_Zero 0x338 0336 00ea | | Load_Encached Null_String_Cache 0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0338 0092 067d | }| Action Push_String_Extended,0x67d ; "s" 033a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033b 0000 0000 | | .BLANK 0000[0x5] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 034b | K | .CONST 0x034b ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0003 | | .CONST 0x0003 ; Number of locals 0343 INIT_0340: 0343 e002 | | Load 0x0,0x2 0344 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0345 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0346 02c7 | | Declare_Variable Any 0347 e5ff | | Load 0x2,-0x1 0348 a402 | | Store_Unchecked 0x2,0x2 0349 029f 0593 | | Declare_Subprogram INIT_0590,For_Call 034b BODY_0340: 034b e402 | | Load 0x2,0x2 034c e002 | | Load 0x0,0x2 034d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 034e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 034f 4800 |H | Short_Literal 0x0 0350 e402 | | Load 0x2,0x2 0351 822a | * | Call 0x1,0x2a 0352 0b00 | | Execute_Immediate Case_Compare,0x0 0353 700f |p | Jump_Nonzero 0x363 0354 0f01 | | Execute_Immediate Equal,0x1 0355 7011 |p | Jump_Nonzero 0x367 0356 e402 | | Load 0x2,0x2 0357 e002 | | Load 0x0,0x2 0358 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0359 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 035a 0092 067e | ~| Action Push_String_Extended,0x67e ; "[" 035c e402 | | Load 0x2,0x2 035d 8403 | | Call 0x2,0x3 035e 01cc | | Execute Vector,Catenate 035f 0092 067f | | Action Push_String_Extended,0x67f ; "]" 0361 01cc | | Execute Vector,Catenate 0362 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0363 00d1 | | Pop_Control Pop_Count_1 0364 0092 0680 | | Action Push_String_Extended,0x680 ; "*** NOTHING RESOLVES TO THIS EXPRESSION ***" 0366 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0367 e402 | | Load 0x2,0x2 0368 e002 | | Load 0x0,0x2 0369 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 036b e402 | | Load 0x2,0x2 036c e002 | | Load 0x0,0x2 036d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 036f e002 | | Load 0x0,0x2 0370 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0371 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0372 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0373 0000 0000 | | .BLANK 0000[0x5] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b e5ff | | Load 0x2,-0x1 037c 821c | | Call 0x1,0x1c 037d 6808 |h | Jump_Zero 0x386 037e e5ff | | Load 0x2,-0x1 037f e002 | | Load 0x0,0x2 0380 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0381 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0382 0092 0681 | | Action Push_String_Extended,0x681 ; "!USERS" 0384 01df | | Execute Vector,Equal 0385 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0386 4800 |H | Short_Literal 0x0 0387 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 03a3 | | .CONST 0x03a3 ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0005 | | .CONST 0x0005 ; Number of locals 038b INIT_0388: 038b e002 | | Load 0x0,0x2 038c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 038d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 038e 02c7 | | Declare_Variable Any 038f 4801 |H | Short_Literal 0x1 0390 e002 | | Load 0x0,0x2 0391 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0392 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0393 e5ff | | Load 0x2,-0x1 0394 e002 | | Load 0x0,0x2 0395 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0396 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0397 a402 | | Store_Unchecked 0x2,0x2 0398 e002 | | Load 0x0,0x2 0399 1b0d | | Execute Package,Field_Read,Field_Number 0xd 039a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 039b 02c7 | | Declare_Variable Any 039c e002 | | Load 0x0,0x2 039d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 039e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 039f a403 | | Store_Unchecked 0x2,0x3 03a0 00e1 | | Load_Encached Boolean_Cache 03a1 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call 03a3 BODY_0388: 03a3 e402 | | Load 0x2,0x2 03a4 e002 | | Load 0x0,0x2 03a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03a7 00cf | | Action Mark_Auxiliary 03a8 7807 |x | Jump 0x3b0 03a9 8405 | | Call 0x2,0x5 03aa e402 | | Load 0x2,0x2 03ab e002 | | Load 0x0,0x2 03ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ad 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03ae c402 | | Store 0x2,0x2 03af 00c9 | | Action Pop_Auxiliary_Loop 03b0 e402 | | Load 0x2,0x2 03b1 e002 | | Load 0x0,0x2 03b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03b4 6ff4 |o | Jump_Zero 0x3a9 03b5 00ce | | Action Pop_Auxiliary 03b6 e403 | | Load 0x2,0x3 03b7 e002 | | Load 0x0,0x2 03b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03ba e403 | | Load 0x2,0x3 03bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03bc 0000 0000 | | .BLANK 0000[0x4] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03cb | | .CONST 0x03cb ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0003 | | .CONST 0x0003 ; Number of locals 03c3 INIT_03c0: 03c3 e5ff | | Load 0x2,-0x1 03c4 e002 | | Load 0x0,0x2 03c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03c6 1820 | | Execute Package,Field_Execute,Field_Number 0x20 03c7 e5ff | | Load 0x2,-0x1 03c8 e002 | | Load 0x0,0x2 03c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ca 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03cb BODY_03c0: 03cb e009 | | Load 0x0,0x9 03cc 180e | | Execute Package,Field_Execute,Field_Number 0xe 03cd 4802 |H | Short_Literal 0x2 03ce 0092 0682 | | Action Push_String_Extended,0x682 ; "DELETING USER " 03d0 e402 | | Load 0x2,0x2 03d1 01cc | | Execute Vector,Catenate 03d2 e017 | | Load 0x0,0x17 03d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03d4 e20f | | Load 0x1,0xf 03d5 e403 | | Load 0x2,0x3 03d6 e00b | | Load 0x0,0xb 03d7 180f | | Execute Package,Field_Execute,Field_Number 0xf 03d8 e5fd | | Load 0x2,-0x3 03d9 e20f | | Load 0x1,0xf 03da 4800 |H | Short_Literal 0x0 03db 0092 0683 | | Action Push_String_Extended,0x683 ; "!MACHINE.GROUPS." 03dd e403 | | Load 0x2,0x3 03de 01cc | | Execute Vector,Catenate 03df 820d | | Call 0x1,0xd 03e0 e5fd | | Load 0x2,-0x3 03e1 e20f | | Load 0x1,0xf 03e2 4800 |H | Short_Literal 0x0 03e3 0092 0684 | | Action Push_String_Extended,0x684 ; "!MACHINE.USERS." 03e5 e403 | | Load 0x2,0x3 03e6 01cc | | Execute Vector,Catenate 03e7 820d | | Call 0x1,0xd 03e8 e5fd | | Load 0x2,-0x3 03e9 e20f | | Load 0x1,0xf 03ea 4800 |H | Short_Literal 0x0 03eb 0092 0685 | | Action Push_String_Extended,0x685 ; "!MACHINE.ERROR_LOGS." 03ed e403 | | Load 0x2,0x3 03ee 01cc | | Execute Vector,Catenate 03ef 0092 0686 | | Action Push_String_Extended,0x686 ; "_@" 03f1 01cc | | Execute Vector,Catenate 03f2 820d | | Call 0x1,0xd 03f3 e5fd | | Load 0x2,-0x3 03f4 e20f | | Load 0x1,0xf 03f5 4800 |H | Short_Literal 0x0 03f6 0092 0687 | | Action Push_String_Extended,0x687 ; "!MACHINE.SEARCH_LISTS." 03f8 e403 | | Load 0x2,0x3 03f9 01cc | | Execute Vector,Catenate 03fa 0092 0686 | | Action Push_String_Extended,0x686 ; "_@" 03fc 01cc | | Execute Vector,Catenate 03fd 820d | | Call 0x1,0xd 03fe e20f | | Load 0x1,0xf 03ff 4800 |H | Short_Literal 0x0 0400 0092 0688 | | Action Push_String_Extended,0x688 ; "asdjkhkasjhd&^*" 0402 e403 | | Load 0x2,0x3 0403 e00b | | Load 0x0,0xb 0404 180e | | Execute Package,Field_Execute,Field_Number 0xe 0405 e20f | | Load 0x1,0xf 0406 e403 | | Load 0x2,0x3 0407 e00b | | Load 0x0,0xb 0408 180f | | Execute Package,Field_Execute,Field_Number 0xf 0409 e5fd | | Load 0x2,-0x3 040a e20f | | Load 0x1,0xf 040b 4800 |H | Short_Literal 0x0 040c 0092 0683 | | Action Push_String_Extended,0x683 ; "!MACHINE.GROUPS." 040e e403 | | Load 0x2,0x3 040f 01cc | | Execute Vector,Catenate 0410 820d | | Call 0x1,0xd 0411 e5fd | | Load 0x2,-0x3 0412 e20f | | Load 0x1,0xf 0413 4800 |H | Short_Literal 0x0 0414 0092 0684 | | Action Push_String_Extended,0x684 ; "!MACHINE.USERS." 0416 e403 | | Load 0x2,0x3 0417 01cc | | Execute Vector,Catenate 0418 820d | | Call 0x1,0xd 0419 e5fd | | Load 0x2,-0x3 041a e20f | | Load 0x1,0xf 041b 4800 |H | Short_Literal 0x0 041c 0092 0685 | | Action Push_String_Extended,0x685 ; "!MACHINE.ERROR_LOGS." 041e e403 | | Load 0x2,0x3 041f 01cc | | Execute Vector,Catenate 0420 0092 0686 | | Action Push_String_Extended,0x686 ; "_@" 0422 01cc | | Execute Vector,Catenate 0423 820d | | Call 0x1,0xd 0424 e5fd | | Load 0x2,-0x3 0425 e20f | | Load 0x1,0xf 0426 4800 |H | Short_Literal 0x0 0427 0092 0687 | | Action Push_String_Extended,0x687 ; "!MACHINE.SEARCH_LISTS." 0429 e403 | | Load 0x2,0x3 042a 01cc | | Execute Vector,Catenate 042b 0092 0686 | | Action Push_String_Extended,0x686 ; "_@" 042d 01cc | | Execute Vector,Catenate 042e 820d | | Call 0x1,0xd 042f e5fd | | Load 0x2,-0x3 0430 0092 0689 | | Action Push_String_Extended,0x689 ; "PROPAGATE," 0432 e5fe | | Load 0x2,-0x2 0433 01cc | | Execute Vector,Catenate 0434 4800 |H | Short_Literal 0x0 0435 0092 068a | | Action Push_String_Extended,0x68a ; "!USERS." 0437 e403 | | Load 0x2,0x3 0438 01cc | | Execute Vector,Catenate 0439 820d | | Call 0x1,0xd 043a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 043b 0000 0000 | | .BLANK 0000[0x5] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 045c | \ | .CONST 0x045c ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0006 | | .CONST 0x0006 ; Number of locals 0443 INIT_0440: 0443 e002 | | Load 0x0,0x2 0444 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0445 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0446 02c7 | | Declare_Variable Any 0447 00d8 | | Load_Top At_Offset_0 0448 1c00 | | Execute_Immediate Run_Utility,0x0 0449 00e1 | | Load_Encached Boolean_Cache 044a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 044b e002 | | Load 0x0,0x2 044c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 044d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 044e 02c7 | | Declare_Variable Any 044f 4801 |H | Short_Literal 0x1 0450 e002 | | Load 0x0,0x2 0451 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0452 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0453 e5ff | | Load 0x2,-0x1 0454 e002 | | Load 0x0,0x2 0455 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0456 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0457 a604 | | Store_Unchecked 0x3,0x4 0458 00d8 | | Load_Top At_Offset_0 0459 822c | , | Call 0x1,0x2c 045a 029f 05e3 | | Declare_Subprogram INIT_05e0,For_Call 045c BODY_0440: 045c e604 | | Load 0x3,0x4 045d e002 | | Load 0x0,0x2 045e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 045f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0460 e604 | | Load 0x3,0x4 0461 e002 | | Load 0x0,0x2 0462 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0463 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0464 6813 |h | Jump_Zero 0x478 0465 4800 |H | Short_Literal 0x0 0466 4801 |H | Short_Literal 0x1 0467 4800 |H | Short_Literal 0x0 0468 4806 |H | Short_Literal 0x6 0469 0092 068b | | Action Push_String_Extended,0x68b ; "Cannot resolve any objects in \x22" 046b e5ff | | Load 0x2,-0x1 046c 01cc | | Execute Vector,Catenate 046d 0092 0674 | t| Action Push_String_Extended,0x674 ; "\x22" 046f 01cc | | Execute Vector,Catenate 0470 e010 | | Load 0x0,0x10 0471 e402 | | Load 0x2,0x2 0472 0096 | | Execute Package,Entry 0473 4800 |H | Short_Literal 0x0 0474 e01a | | Load 0x0,0x1a 0475 e402 | | Load 0x2,0x2 0476 0096 | | Execute Package,Entry 0477 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0478 e5fe | | Load 0x2,-0x2 0479 6822 |h" | Jump_Zero 0x49c 047a 00cf | | Action Mark_Auxiliary 047b 7815 |x | Jump 0x491 047c e009 | | Load 0x0,0x9 047d 180e | | Execute Package,Field_Execute,Field_Number 0xe 047e 4802 |H | Short_Literal 0x2 047f 0092 068c | | Action Push_String_Extended,0x68c ; "WOULD ATTEMPT TO DESTROY " 0481 e604 | | Load 0x3,0x4 0482 e002 | | Load 0x0,0x2 0483 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0484 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0485 e002 | | Load 0x0,0x2 0486 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0487 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0488 01cc | | Execute Vector,Catenate 0489 e017 | | Load 0x0,0x17 048a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 048b e604 | | Load 0x3,0x4 048c e002 | | Load 0x0,0x2 048d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 048e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 048f c604 | | Store 0x3,0x4 0490 00c9 | | Action Pop_Auxiliary_Loop 0491 e604 | | Load 0x3,0x4 0492 e002 | | Load 0x0,0x2 0493 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0494 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0495 6fe6 |o | Jump_Zero 0x47c 0496 00ce | | Action Pop_Auxiliary 0497 4800 |H | Short_Literal 0x0 0498 e01a | | Load 0x0,0x1a 0499 e402 | | Load 0x2,0x2 049a 0096 | | Execute Package,Entry 049b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 049c e20f | | Load 0x1,0xf 049d 0092 068d | | Action Push_String_Extended,0x68d ; "<CURRENT_USER>" 049f 0092 068e | | Action Push_String_Extended,0x68e ; "<>" 04a1 e01b | | Load 0x0,0x1b 04a2 180d | | Execute Package,Field_Execute,Field_Number 0xd 04a3 e603 | | Load 0x3,0x3 04a4 e604 | | Load 0x3,0x4 04a5 e002 | | Load 0x0,0x2 04a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04a8 821d | | Call 0x1,0x1d 04a9 c603 | | Store 0x3,0x3 04aa 00cf | | Action Mark_Auxiliary 04ab 7823 |x# | Jump 0x4cf 04ac e602 | | Load 0x3,0x2 04ad 0120 | | Execute Any,Is_Value 04ae 6804 |h | Jump_Zero 0x4b3 04af e002 | | Load 0x0,0x2 04b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04b1 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 04b2 7801 |x | Jump 0x4b4 04b3 e602 | | Load 0x3,0x2 04b4 e603 | | Load 0x3,0x3 04b5 4800 |H | Short_Literal 0x0 04b6 4801 |H | Short_Literal 0x1 04b7 4801 |H | Short_Literal 0x1 04b8 4801 |H | Short_Literal 0x1 04b9 4801 |H | Short_Literal 0x1 04ba 4800 |H | Short_Literal 0x0 04bb 0092 068f | | Action Push_String_Extended,0x68f ; "@" 04bd e604 | | Load 0x3,0x4 04be e002 | | Load 0x0,0x2 04bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04c1 e21f | | Load 0x1,0x1f 04c2 1d20 | | Execute_Immediate Reference_Lex_1,0x20 04c3 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 04c4 e002 | | Load 0x0,0x2 04c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04c6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04c7 c603 | | Store 0x3,0x3 04c8 c602 | | Store 0x3,0x2 04c9 e604 | | Load 0x3,0x4 04ca e002 | | Load 0x0,0x2 04cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04cc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04cd c604 | | Store 0x3,0x4 04ce 00c9 | | Action Pop_Auxiliary_Loop 04cf e604 | | Load 0x3,0x4 04d0 e002 | | Load 0x0,0x2 04d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 04d3 6fd8 |o | Jump_Zero 0x4ac 04d4 00ce | | Action Pop_Auxiliary 04d5 0092 0690 | | Action Push_String_Extended,0x690 ; "PERSEVERE," 04d7 e5fd | | Load 0x2,-0x3 04d8 01cc | | Execute Vector,Catenate 04d9 0092 0691 | | Action Push_String_Extended,0x691 ; "<ALL_WORLDS>" 04db 6008 |` | Indirect_Literal Discrete,0x4e4,{0x00000000, 0x7fffffff} 04dc e605 | | Load 0x3,0x5 04dd e01c | | Load 0x0,0x1c 04de 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04df 8606 | | Call 0x3,0x6 04e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e1 0000 0000 | | .XXX[0x3] 04e3 0000 | | 04e4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04f8 | | .CONST 0x04f8 ; Address of begin 04e9 0549 | I | .CONST 0x0549 ; Address of exception handler 04ea 0005 | | .CONST 0x0005 ; Number of locals 04eb INIT_04e8: 04eb e002 | | Load 0x0,0x2 04ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ed 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04ee 02c7 | | Declare_Variable Any 04ef e5ff | | Load 0x2,-0x1 04f0 822e | . | Call 0x1,0x2e 04f1 a602 | | Store_Unchecked 0x3,0x2 04f2 00d8 | | Load_Top At_Offset_0 04f3 822c | , | Call 0x1,0x2c 04f4 029f 062b | +| Declare_Subprogram INIT_0628,For_Call 04f6 029f 065b | [| Declare_Subprogram INIT_0658,For_Call 04f8 BODY_04e8: 04f8 e602 | | Load 0x3,0x2 04f9 e002 | | Load 0x0,0x2 04fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04fb 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 04fc e602 | | Load 0x3,0x2 04fd e002 | | Load 0x0,0x2 04fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ff 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0500 6813 |h | Jump_Zero 0x514 0501 4800 |H | Short_Literal 0x0 0502 4801 |H | Short_Literal 0x1 0503 4800 |H | Short_Literal 0x0 0504 4806 |H | Short_Literal 0x6 0505 0092 0692 | | Action Push_String_Extended,0x692 ; "Cannot resolve any users in \x22" 0507 e5ff | | Load 0x2,-0x1 0508 01cc | | Execute Vector,Catenate 0509 0092 0674 | t| Action Push_String_Extended,0x674 ; "\x22" 050b 01cc | | Execute Vector,Catenate 050c e010 | | Load 0x0,0x10 050d e403 | | Load 0x2,0x3 050e 0096 | | Execute Package,Entry 050f 4800 |H | Short_Literal 0x0 0510 e01a | | Load 0x0,0x1a 0511 e403 | | Load 0x2,0x3 0512 0096 | | Execute Package,Entry 0513 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0514 e5fe | | Load 0x2,-0x2 0515 6822 |h" | Jump_Zero 0x538 0516 00cf | | Action Mark_Auxiliary 0517 7815 |x | Jump 0x52d 0518 e009 | | Load 0x0,0x9 0519 180e | | Execute Package,Field_Execute,Field_Number 0xe 051a 4802 |H | Short_Literal 0x2 051b 0092 068c | | Action Push_String_Extended,0x68c ; "WOULD ATTEMPT TO DESTROY " 051d e602 | | Load 0x3,0x2 051e e002 | | Load 0x0,0x2 051f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0520 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0521 e002 | | Load 0x0,0x2 0522 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0523 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0524 01cc | | Execute Vector,Catenate 0525 e017 | | Load 0x0,0x17 0526 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0527 e602 | | Load 0x3,0x2 0528 e002 | | Load 0x0,0x2 0529 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 052b c602 | | Store 0x3,0x2 052c 00c9 | | Action Pop_Auxiliary_Loop 052d e602 | | Load 0x3,0x2 052e e002 | | Load 0x0,0x2 052f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0530 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0531 6fe6 |o | Jump_Zero 0x518 0532 00ce | | Action Pop_Auxiliary 0533 4800 |H | Short_Literal 0x0 0534 e01a | | Load 0x0,0x1a 0535 e403 | | Load 0x2,0x3 0536 0096 | | Execute Package,Entry 0537 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0538 00cf | | Action Mark_Auxiliary 0539 7807 |x | Jump 0x541 053a 8605 | | Call 0x3,0x5 053b e602 | | Load 0x3,0x2 053c e002 | | Load 0x0,0x2 053d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 053e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 053f c602 | | Store 0x3,0x2 0540 00c9 | | Action Pop_Auxiliary_Loop 0541 e602 | | Load 0x3,0x2 0542 e002 | | Load 0x0,0x2 0543 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0544 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0545 6ff4 |o | Jump_Zero 0x53a 0546 00ce | | Action Pop_Auxiliary 0547 8604 | | Call 0x3,0x4 0548 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0549 TRAP_04e8: 0549 e00d | | Load 0x0,0xd 054a e403 | | Load 0x2,0x3 054b 0098 | | Execute Package,Field_Read_Dynamic 054c 010f | | Execute Exception,Equal 054d 6802 |h | Jump_Zero 0x550 054e 00d8 | | Load_Top At_Offset_0 054f 0101 | | Execute Exception,Reraise 0550 e00e | | Load 0x0,0xe 0551 e403 | | Load 0x2,0x3 0552 0098 | | Execute Package,Field_Read_Dynamic 0553 010f | | Execute Exception,Equal 0554 6801 |h | Jump_Zero 0x556 0555 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0556 4800 |H | Short_Literal 0x0 0557 4800 |H | Short_Literal 0x0 0558 4801 |H | Short_Literal 0x1 0559 4808 |H | Short_Literal 0x8 055a 0092 0675 | u| Action Push_String_Extended,0x675 ; "EXCEPTION: " 055c 4800 |H | Short_Literal 0x0 055d 4801 |H | Short_Literal 0x1 055e e00f | | Load 0x0,0xf 055f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0560 01cc | | Execute Vector,Catenate 0561 e010 | | Load 0x0,0x10 0562 e403 | | Load 0x2,0x3 0563 0096 | | Execute Package,Entry 0564 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0565 0000 0000 | | .XXX[0x3] 0567 0000 | | 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056d | m | .CONST 0x056d ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0002 | | .CONST 0x0002 ; Number of locals 056b INIT_0568: 056b 00e3 | | Load_Encached Natural_Cache 056c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 056d BODY_0568: 056d e404 | | Load 0x2,0x4 056e 0120 | | Execute Any,Is_Value 056f 6804 |h | Jump_Zero 0x574 0570 e002 | | Load 0x0,0x2 0571 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0572 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0573 7801 |x | Jump 0x575 0574 e404 | | Load 0x2,0x4 0575 e602 | | Load 0x3,0x2 0576 4800 |H | Short_Literal 0x0 0577 4801 |H | Short_Literal 0x1 0578 4801 |H | Short_Literal 0x1 0579 4801 |H | Short_Literal 0x1 057a 4801 |H | Short_Literal 0x1 057b 4800 |H | Short_Literal 0x0 057c 0092 068f | | Action Push_String_Extended,0x68f ; "@" 057e e402 | | Load 0x2,0x2 057f e002 | | Load 0x0,0x2 0580 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0581 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0582 e225 | % | Load 0x1,0x25 0583 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0584 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0585 e002 | | Load 0x0,0x2 0586 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0587 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0588 c602 | | Store 0x3,0x2 0589 c404 | | Store 0x2,0x4 058a e403 | | Load 0x2,0x3 058b e602 | | Load 0x3,0x2 058c 0273 | s | Execute Discrete,Plus 058d c403 | | Store 0x2,0x3 058e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 058f 0000 | | .XXX[0x1] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 05a0 | | .CONST 0x05a0 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0003 | | .CONST 0x0003 ; Number of locals 0593 INIT_0590: 0593 e002 | | Load 0x0,0x2 0594 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0595 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0596 02c7 | | Declare_Variable Any 0597 e7ff | | Load 0x3,-0x1 0598 a602 | | Store_Unchecked 0x3,0x2 0599 00d8 | | Load_Top At_Offset_0 059a e002 | | Load 0x0,0x2 059b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 059c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 059d e002 | | Load 0x0,0x2 059e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 059f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05a0 BODY_0590: 05a0 e602 | | Load 0x3,0x2 05a1 e002 | | Load 0x0,0x2 05a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 05a4 c602 | | Store 0x3,0x2 05a5 e602 | | Load 0x3,0x2 05a6 e002 | | Load 0x0,0x2 05a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05a9 6802 |h | Jump_Zero 0x5ac 05aa 00d8 | | Load_Top At_Offset_0 05ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ac 00d8 | | Load_Top At_Offset_0 05ad 0092 0693 | | Action Push_String_Extended,0x693 ; "," 05af 01cc | | Execute Vector,Catenate 05b0 e602 | | Load 0x3,0x2 05b1 8403 | | Call 0x2,0x3 05b2 01cc | | Execute Vector,Catenate 05b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05b4 0000 0000 | | .BLANK 0000[0x4] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05c2 | | .CONST 0x05c2 ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0002 | | .CONST 0x0002 ; Number of locals 05bb INIT_05b8: 05bb e402 | | Load 0x2,0x2 05bc e002 | | Load 0x0,0x2 05bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05be 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05bf e002 | | Load 0x0,0x2 05c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05c1 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05c2 BODY_05b8: 05c2 00d8 | | Load_Top At_Offset_0 05c3 822d | - | Call 0x1,0x2d 05c4 680e |h | Jump_Zero 0x5d3 05c5 00e1 | | Load_Encached Boolean_Cache 05c6 e002 | | Load 0x0,0x2 05c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05c8 180e | | Execute Package,Field_Execute,Field_Number 0xe 05c9 e402 | | Load 0x2,0x2 05ca e002 | | Load 0x0,0x2 05cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05cc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05cd e403 | | Load 0x2,0x3 05ce e002 | | Load 0x0,0x2 05cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 05d1 c404 | | Store 0x2,0x4 05d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05d3 e009 | | Load 0x0,0x9 05d4 180e | | Execute Package,Field_Execute,Field_Number 0xe 05d5 4806 |H | Short_Literal 0x6 05d6 0092 0694 | | Action Push_String_Extended,0x694 ; "Invalid user name \x22" 05d8 e602 | | Load 0x3,0x2 05d9 01cc | | Execute Vector,Catenate 05da 0092 0674 | t| Action Push_String_Extended,0x674 ; "\x22" 05dc 01cc | | Execute Vector,Catenate 05dd e017 | | Load 0x0,0x17 05de 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05ed | | .CONST 0x05ed ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0002 | | .CONST 0x0002 ; Number of locals 05e3 INIT_05e0: 05e3 4801 |H | Short_Literal 0x1 05e4 4801 |H | Short_Literal 0x1 05e5 e002 | | Load 0x0,0x2 05e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05e8 e605 | | Load 0x3,0x5 05e9 e002 | | Load 0x0,0x2 05ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05eb 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 05ec 822a | * | Call 0x1,0x2a 05ed BODY_05e0: 05ed 00d8 | | Load_Top At_Offset_0 05ee 0c01 | | Execute_Immediate Greater_Equal,0x1 05ef 682c |h, | Jump_Zero 0x61c 05f0 4800 |H | Short_Literal 0x0 05f1 4801 |H | Short_Literal 0x1 05f2 4801 |H | Short_Literal 0x1 05f3 4807 |H | Short_Literal 0x7 05f4 0092 0695 | | Action Push_String_Extended,0x695 ; "Unable to destroy " 05f6 4820 |H | Short_Literal 0x20 05f7 e802 | | Load 0x4,0x2 05f8 00e0 | | Load_Encached Standard_Cache 05f9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05fa e016 | | Load 0x0,0x16 05fb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 05fc 01cc | | Execute Vector,Catenate 05fd 0092 0696 | | Action Push_String_Extended,0x696 ; " object" 05ff 01cc | | Execute Vector,Catenate 0600 e802 | | Load 0x4,0x2 0601 822b | + | Call 0x1,0x2b 0602 01cc | | Execute Vector,Catenate 0603 0092 0697 | | Action Push_String_Extended,0x697 ; ". " 0605 01cc | | Execute Vector,Catenate 0606 0092 0698 | | Action Push_String_Extended,0x698 ; "If locks are suspected, analyze them with " 0608 01cc | | Execute Vector,Catenate 0609 0092 0699 | | Action Push_String_Extended,0x699 ; "Action_Utilities.Lock_Information from !Commands. " 060b 01cc | | Execute Vector,Catenate 060c 0092 069a | | Action Push_String_Extended,0x69a ; "If locks are not the problem, you might try Uncode, " 060e 01cc | | Execute Vector,Catenate 060f 0092 069b | | Action Push_String_Extended,0x69b ; "Uninstall, or Repair_Directory from " 0611 01cc | | Execute Vector,Catenate 0612 0092 069c | | Action Push_String_Extended,0x69c ; "!Commands.System_Maintenance, but these will result" 0614 01cc | | Execute Vector,Catenate 0615 0092 069d | | Action Push_String_Extended,0x69d ; " in permanently lost disk space." 0617 01cc | | Execute Vector,Catenate 0618 e010 | | Load 0x0,0x10 0619 e402 | | Load 0x2,0x2 061a 0096 | | Execute Package,Entry 061b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 061c 4800 |H | Short_Literal 0x0 061d e01a | | Load 0x0,0x1a 061e e402 | | Load 0x2,0x2 061f 0096 | | Execute Package,Entry 0620 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0621 0000 0000 | | .BLANK 0000[0x7] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 0635 | 5 | .CONST 0x0635 ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0002 | | .CONST 0x0002 ; Number of locals 062b INIT_0628: 062b 4800 |H | Short_Literal 0x0 062c 4801 |H | Short_Literal 0x1 062d e002 | | Load 0x0,0x2 062e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 062f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0630 e603 | | Load 0x3,0x3 0631 e002 | | Load 0x0,0x2 0632 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0633 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0634 822a | * | Call 0x1,0x2a 0635 BODY_0628: 0635 00d8 | | Load_Top At_Offset_0 0636 0c01 | | Execute_Immediate Greater_Equal,0x1 0637 6817 |h | Jump_Zero 0x64f 0638 4800 |H | Short_Literal 0x0 0639 4801 |H | Short_Literal 0x1 063a 4801 |H | Short_Literal 0x1 063b 4807 |H | Short_Literal 0x7 063c 0092 0695 | | Action Push_String_Extended,0x695 ; "Unable to destroy " 063e 4820 |H | Short_Literal 0x20 063f e802 | | Load 0x4,0x2 0640 00e0 | | Load_Encached Standard_Cache 0641 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0642 e016 | | Load 0x0,0x16 0643 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0644 01cc | | Execute Vector,Catenate 0645 0092 069e | | Action Push_String_Extended,0x69e ; " user" 0647 01cc | | Execute Vector,Catenate 0648 e802 | | Load 0x4,0x2 0649 822b | + | Call 0x1,0x2b 064a 01cc | | Execute Vector,Catenate 064b e010 | | Load 0x0,0x10 064c e403 | | Load 0x2,0x3 064d 0096 | | Execute Package,Entry 064e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 064f 4800 |H | Short_Literal 0x0 0650 e01a | | Load 0x0,0x1a 0651 e403 | | Load 0x2,0x3 0652 0096 | | Execute Package,Entry 0653 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0654 0000 0000 | | .BLANK 0000[0x4] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0663 | c | .CONST 0x0663 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b e5fc | | Load 0x2,-0x4 065c e5fd | | Load 0x2,-0x3 065d e602 | | Load 0x3,0x2 065e e002 | | Load 0x0,0x2 065f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0660 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0661 822f | / | Call 0x1,0x2f 0662 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0663 TRAP_0658: 0663 0007 | | Action Break_Optional 0664 e402 | | Load 0x2,0x2 0665 e009 | | Load 0x0,0x9 0666 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0667 4802 |H | Short_Literal 0x2 0668 4803 |H | Short_Literal 0x3 0669 0262 | b | Execute Discrete,In_Range 066a 7003 |p | Jump_Nonzero 0x66e 066b 7800 |x | Jump 0x66c 066c 00cc | | Action Pop_Block 066d 7ed8 |~ | Jump 0x546 066e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 066f ; -------------------------------------------------------------------------------------- 066f ; STRING TABLE 066f ; -------------------------------------------------------------------------------------- 066f 0062 | b | .STRTAB 0x0062->0x06a0 ; "<NIL>" 0670 0065 | e | .STRTAB 0x0065->0x06a2 ; "Destroy_Library" 0671 0072 | r | .STRTAB 0x0072->0x06aa ; "Existing => \x22" 0672 007d | } | .STRTAB 0x007d->0x06b0 ; "\x22, Effort_Only => " 0673 008d | | .STRTAB 0x008d->0x06b9 ; ", Response => \x22" 0674 009a | | .STRTAB 0x009a->0x06c1 ; "\x22" 0675 0099 | | .STRTAB 0x0099->0x06c1 ; "EXCEPTION: " 0676 00a2 | | .STRTAB 0x00a2->0x06c7 ; "Destroy_Users (" 0677 00af | | .STRTAB 0x00af->0x06ce ; ")" 0678 00ae | | .STRTAB 0x00ae->0x06cf ; "Named => \x22" 0679 00b6 | | .STRTAB 0x00b6->0x06d4 ; "__" 067a 00b6 | | .STRTAB 0x00b6->0x06d5 ; "PROCESSING " 067b 00bf | | .STRTAB 0x00bf->0x06da ; "Network_Public => RWCOD" 067c 00d4 | | .STRTAB 0x00d4->0x06e6 ; "WORLD" 067d 00d7 | | .STRTAB 0x00d7->0x06e8 ; "s" 067e 00d6 | | .STRTAB 0x00d6->0x06e9 ; "[" 067f 00d5 | | .STRTAB 0x00d5->0x06e9 ; "]" 0680 00d4 | | .STRTAB 0x00d4->0x06ea ; "*** NOTHING RESOLVES TO THIS EXPRESSION ***" 0681 00fd | | .STRTAB 0x00fd->0x06ff ; "!USERS" 0682 0101 | | .STRTAB 0x0101->0x0702 ; "DELETING USER " 0683 010d | | .STRTAB 0x010d->0x0709 ; "!MACHINE.GROUPS." 0684 011b | | .STRTAB 0x011b->0x0711 ; "!MACHINE.USERS." 0685 0128 | ( | .STRTAB 0x0128->0x0719 ; "!MACHINE.ERROR_LOGS." 0686 013a | : | .STRTAB 0x013a->0x0723 ; "_@" 0687 013a | : | .STRTAB 0x013a->0x0724 ; "!MACHINE.SEARCH_LISTS." 0688 014e | N | .STRTAB 0x014e->0x072f ; "asdjkhkasjhd&^*" 0689 015b | [ | .STRTAB 0x015b->0x0736 ; "PROPAGATE," 068a 0163 | c | .STRTAB 0x0163->0x073b ; "!USERS." 068b 0168 | h | .STRTAB 0x0168->0x073f ; "Cannot resolve any objects in \x22" 068c 0185 | | .STRTAB 0x0185->0x074e ; "WOULD ATTEMPT TO DESTROY " 068d 019c | | .STRTAB 0x019c->0x075b ; "<CURRENT_USER>" 068e 01a8 | | .STRTAB 0x01a8->0x0762 ; "<>" 068f 01a8 | | .STRTAB 0x01a8->0x0763 ; "@" 0690 01a7 | | .STRTAB 0x01a7->0x0763 ; "PERSEVERE," 0691 01af | | .STRTAB 0x01af->0x0768 ; "<ALL_WORLDS>" 0692 01b9 | | .STRTAB 0x01b9->0x076e ; "Cannot resolve any users in \x22" 0693 01d4 | | .STRTAB 0x01d4->0x077d ; "," 0694 01d3 | | .STRTAB 0x01d3->0x077d ; "Invalid user name \x22" 0695 01e4 | | .STRTAB 0x01e4->0x0787 ; "Unable to destroy " 0696 01f4 | | .STRTAB 0x01f4->0x0790 ; " object" 0697 01f9 | | .STRTAB 0x01f9->0x0793 ; ". " 0698 01f9 | | .STRTAB 0x01f9->0x0794 ; "If locks are suspected, analyze them with " 0699 0221 | ! | .STRTAB 0x0221->0x07a9 ; "Action_Utilities.Lock_Information from !Commands. " 069a 0251 | Q | .STRTAB 0x0251->0x07c2 ; "If locks are not the problem, you might try Uncode, " 069b 0283 | | .STRTAB 0x0283->0x07dc ; "Uninstall, or Repair_Directory from " 069c 02a5 | | .STRTAB 0x02a5->0x07ee ; "!Commands.System_Maintenance, but these will result" 069d 02d6 | | .STRTAB 0x02d6->0x0808 ; " in permanently lost disk space." 069e 02f4 | | .STRTAB 0x02f4->0x0818 ; " user" 069f 02f7 | | .STREND 0x02f7->0x081a 06a0 3c4e 494c |<NIL| .STRTAB_STRINGS 081b 0000 0000 | | .BLANK 0000[0x5] 0820 ; -------------------------------------------------------------------------------------- 0820 ; Debug Table 0820 ; -------------------------------------------------------------------------------------- 0820 0004 0010 | | .DEBUG4 0x0004,0x0010,0xd965,0x0000,0x0001,0x0000 0826 e0d8 c2f2 | | .XXX[0x1da] 0828 0000 0004 | | 082a 0000 0208 | | 082c 0000 0074 | t| 082e 850d bdb5 | | 0830 b585 b991 | | 0832 ccb9 4d95 | M | 0834 85c9 8da1 | | 0836 7d31 a5cd |}1 | 0838 d0b9 11a5 | | 083a cdc1 b185 | | 083c e400 0001 | | 083e 3c00 0000 |< | 0840 61cd 8da1 |a | 0842 9591 d5b1 | | 0844 95c8 b9cd | | 0846 95d1 7ddd | } | 0848 cdb1 7db1 | } | 084a a5b5 a5d1 | | 084c cc00 0000 | | 084e 0800 0002 | | 0850 2800 0001 |( | 0852 110a 1b7b | {| 0854 6b6b 0b73 |kk s| 0856 2399 729b |# r | 0858 1b43 2b23 | C+#| 085a ab63 2b91 | c+ | 085c 729b 2ba2 |r + | 085e fabb 9b62 | b| 0860 fa63 4b6b | cKk| 0862 4ba3 9800 |K | 0864 0001 9000 | | 0866 0000 c39b | | 0868 1b43 2b23 | C+#| 086a ab63 2b91 | c+ | 086c 733b 2ba2 |s;+ | 086e fbbb 9b62 | b| 0870 fb63 4b6b | cKk| 0872 4ba3 9800 |K | 0874 0000 1000 | | 0876 0002 8000 | | 0878 0002 2214 | " | 087a 36f6 d6d6 |6 | 087c 16e6 4732 | G2| 087e e536 3686 | 66 | 0880 5647 56c6 |VGV | 0882 5722 e476 |W" v| 0884 5745 f577 |WE w| 0886 36c5 f4c6 |6 | 0888 96d6 9747 | G| 088a 3000 0008 |0 | 088c 9000 0000 | | 088e 4736 4646 |G6FF| 0890 4000 0000 |@ | 0892 2000 0008 | | 0894 c000 0008 | | 0896 e42a 8ded | * | 0898 ed8e 65c8 | e | 089a 8cae 6d2c | m,| 089c edc5 ca4c | L| 089e ad8c ac2e | .| 08a0 6ca5 ca4c |l L| 08a2 2e8d 2ded |. - | 08a4 cc2d 8be6 | - | 08a6 4626 c6e5 |F& | 08a8 ca0c 8d8b | | 08aa e86d edad | m | 08ac ac2d cc8e | - | 08ae 65ca 4cae |e L | 08b0 cdc5 caad | | 08b2 cd2e 8e65 | . e| 08b4 c88c ae6d | m| 08b6 2ced c5ca |, | 08b8 6c8c 8c80 |l | 08ba 0000 0520 | | 08bc 0000 01ce | | 08be 6cad cc8b |l | 08c0 ec8c 2e8c | . | 08c2 2bee 0dee |+ | 08c4 4e80 0000 |N | 08c6 0040 0000 | @ | 08c8 0240 0000 | @ | 08ca 0b88 551b | U | 08cc dbdb 1ccb | | 08ce 9399 5d1d | ] | 08d0 dbdc 9ada | | 08d2 5b99 cb91 |[ | 08d4 9a5b 1957 | [ W| 08d6 d51c 985b | [| 08d8 9cd9 995c | \| 08da 8b94 d95b | [| 08dc 9917 d118 | | 08de 5d18 57d4 |] W | 08e0 1bdc 9d00 | | 08e2 0000 0600 | | 08e4 0000 049c | | 08e6 d958 5c98 | X\ | 08e8 da17 db1a | | 08ea 5cdd 0b9c |\ | 08ec d95d 17dd | ] | 08ee 5c00 0000 |\ | 08f0 0080 0000 | | 08f2 0700 0000 | | 08f4 0e10 a1b7 | | 08f6 b6b6 b0b7 | | 08f8 3239 9729 |29 )| 08fa b2b0 b931 | 1| 08fc b42f a634 | / 4| 08fe b9ba 1729 | )| 0900 b2ba 2faa | / | 0902 b800 0000 | | 0904 1480 0000 | | 0906 04b9 b2b7 | | 0908 322f b830 |2/ 0| 090a b9bb 0000 | | 090c 0001 0000 | | 090e 0009 0000 | | 0910 0029 2154 | )!T| 0912 6f6f 6c73 |ools| 0914 2e4e 6574 |.Net| 0916 776f 726b |work| 0918 696e 672e |ing.| 091a 4669 6c65 |File| 091c 5f54 7261 |_Tra| 091e 6e73 6665 |nsfe| 0920 722e 5365 |r.Se| 0922 6e64 5f50 |nd_P| 0924 6173 7600 |asv | 0926 0000 2900 | ) | 0928 0000 0d73 | s| 092a 656e 645f |end_| 092c 7665 7262 |verb| 092e 6174 696d |atim| 0930 0000 0002 | | 0932 0000 0012 | | 0934 0000 005a | Z| 0936 42a8 dede |B | 0938 d8e6 5c9c | \ | 093a cae8 eede | | 093c e4d6 d2dc | | 093e ce5c 8cd2 | \ | 0940 d8ca bea8 | | 0942 e4c2 dce6 | | 0944 ccca e45c | \| 0946 a6ca dcc8 | | 0948 beac cae4 | | 094a c4c2 e8d2 | | 094c da00 0001 | | 094e 2400 0000 |$ | 0950 12e6 cae8 | | 0952 bee0 d0c2 | | 0954 e6ca 0000 | | 0956 0004 0000 | | 0958 013c 0000 | < | 095a 0130 8551 | 0 Q| 095c bdbd b1cc | | 095e b911 95cd | | 0960 a59d b8b9 | | 0962 4995 b195 |I | 0964 85cd 94b9 | | 0966 4985 d1a5 |I | 0968 bdb9 85b1 | | 096a 7cc8 c4d8 || | 096c dcb9 4191 | A | 096e b17d 0dbd | } | 0970 b5b5 85b9 | | 0972 91cc b949 | I| 0974 95d9 b8b9 | | 0976 55b9 a5d1 |U | 0978 ccb9 1195 | | 097a cda5 9db8 | | 097c b94d 95d1 | M | 097e 7d41 a185 |}A | 0980 cd94 0000 | | 0982 0260 0000 | ` | 0984 0025 cd95 | % | 0986 d17d 99a5 | } | 0988 95b1 9000 | | 098a 0000 0800 | | 098c 0003 e000 | | 098e 0001 290a | ) | 0990 1b7b 6b6b | {kk| 0992 0b73 2399 | s# | 0994 72bb 7b93 |r { | 0996 5afa 7b93 |Z { | 0998 232b 9172 |#+ r| 099a 2b23 4ba3 |+#K | 099c 7b91 729b |{ r | 099e 2ba2 fa33 |+ 3| 09a0 4b2b 6320 |K+c | 09a2 0000 00d0 | | 09a4 0000 006b | k| 09a6 9b2b a173 | + s| 09a8 a30b 12fb | | 09aa bb4b 23a3 | K# | 09ac 4000 0000 |@ | 09ae 1000 0000 | | 09b0 9000 0001 | | 09b2 e214 36f6 | 6 | 09b4 d6d6 16e6 | | 09b6 4732 e456 |G2 V| 09b8 4697 46f7 |F F | 09ba 22e5 3657 |" 6W| 09bc 42e5 4616 |B F | 09be 25f5 7696 |% v | 09c0 4746 8000 |GF | 09c2 0001 a000 | | 09c4 0000 e736 | 6| 09c6 5737 3696 |W76 | 09c8 f6e5 f6e7 | | 09ca 56d6 2657 |V &W| 09cc 2000 0000 | | 09ce 2000 0001 | | 09d0 2000 0003 | | 09d2 e428 6ded | (m | 09d4 adac 2dcc | - | 09d6 8e65 ca8c | e | 09d8 ad8d ccae | | 09da 85ca 6cae | l | 09dc 6e6d 2ded |nm- | 09de cbe9 cead | | 09e0 ac4c ae40 | L @| 09e2 0000 0340 | @| 09e4 0000 016e | n| 09e6 6cae 85ce |l | 09e8 8c2c 4bed | ,K | 09ea eccc c000 | | 09ec 0000 4000 | @ | 09ee 0002 4000 | @ | 09f0 0007 0850 | P| 09f2 dbdb 5b58 | [X| 09f4 5b99 1ccb |[ | 09f6 9159 1a5d | Y ]| 09f8 1bdc 8b94 | | 09fa d95d 0b95 | ] | 09fc 1858 97d3 | X | 09fe d999 8000 | |