|
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: 4096 (0x1000)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0708 | | .CONST 0x0708 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003c | < | .CONST 0x003c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 0092 053f | ?| Action Push_String_Extended,0x53f ; "<NIL>"
0012 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call
0014 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
0016 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
0018 e002 | | Load 0x0,0x2
0019 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001a 1919 | | Execute Package,Field_Reference,Field_Number 0x19
001b 00c6 | | Action Check_Subprogram_Elaborated
001c 00e1 | | Load_Encached Boolean_Cache
001d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
001e e003 | | Load 0x0,0x3
001f e004 | | Load 0x0,0x4
0020 4800 |H | Short_Literal 0x0
0021 0007 | | Action Break_Optional
0022 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call
0024 e002 | | Load 0x0,0x2
0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0026 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0027 00c6 | | Action Check_Subprogram_Elaborated
0028 00e3 | | Load_Encached Natural_Cache
0029 1d18 | | Execute_Immediate Reference_Lex_1,0x18
002a e005 | | Load 0x0,0x5
002b e006 | | Load 0x0,0x6
002c 4800 |H | Short_Literal 0x0
002d 0007 | | Action Break_Optional
002e 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
0030 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
0032 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
0034 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0035 00c7 | | Action Elaborate_Subprogram
0036 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call
0038 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call
003a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003b 00c7 | | Action Elaborate_Subprogram
003c BODY_0008:
003c 00bc | | Action Signal_Activated
003d 00bb | | Action Signal_Completion
003e 0000 0000 | | .XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 006e | n | .CONST 0x006e ; Address of begin
0041 0074 | t | .CONST 0x0074 ; Address of exception handler
0042 0003 | | .CONST 0x0003 ; Number of locals
0043 INIT_0040:
0043 0093 0000 | | push_full_address 0x0
0045 604a |`J | Indirect_Literal Discrete,0x90,{0x80000000, 0x00020000}
0046 0273 | s | Execute Discrete,Plus
0047 e007 | | Load 0x0,0x7
0048 0273 | s | Execute Discrete,Plus
0049 e008 | | Load 0x0,0x8
004a 0273 | s | Execute Discrete,Plus
004b 0092 0540 | @| Action Push_String_Extended,0x540 ; "Destroy_Library"
004d 0092 0541 | A| Action Push_String_Extended,0x541 ; "Existing => \x22"
004f e5ff | | Load 0x2,-0x1
0050 01cc | | Execute Vector,Catenate
0051 0092 0542 | B| Action Push_String_Extended,0x542 ; "\x22, Effort_Only => "
0053 01cc | | Execute Vector,Catenate
0054 e5fe | | Load 0x2,-0x2
0055 00e1 | | Load_Encached Boolean_Cache
0056 011c | | Execute Any,Convert_Unchecked
0057 1c01 | | Execute_Immediate Run_Utility,0x1
0058 01cc | | Execute Vector,Catenate
0059 0092 0543 | C| Action Push_String_Extended,0x543 ; ", Response => \x22"
005b 01cc | | Execute Vector,Catenate
005c e5fd | | Load 0x2,-0x3
005d 01cc | | Execute Vector,Catenate
005e 0092 0544 | D| Action Push_String_Extended,0x544 ; "\x22"
0060 01cc | | Execute Vector,Catenate
0061 e5fd | | Load 0x2,-0x3
0062 e009 | | Load 0x0,0x9
0063 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0064 00c4 | | Action Make_Default
0065 e009 | | Load 0x0,0x9
0066 180e | | Execute Package,Field_Execute,Field_Number 0xe
0067 c406 | | Store 0x2,0x6
0068 e00a | | Load 0x0,0xa
0069 0387 | | Declare_Variable Package
006a 00d8 | | Load_Top At_Offset_0
006b 020f | | Execute Module,Activate
006c 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call
006e BODY_0040:
006e 4800 |H | Short_Literal 0x0
006f e00b | | Load 0x0,0xb
0070 e402 | | Load 0x2,0x2
0071 0096 | | Execute Package,Entry
0072 8403 | | Call 0x2,0x3
0073 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0074 TRAP_0040:
0074 e00c | | Load 0x0,0xc
0075 e402 | | Load 0x2,0x2
0076 0098 | | Execute Package,Field_Read_Dynamic
0077 010f | | Execute Exception,Equal
0078 6802 |h | Jump_Zero 0x7b
0079 00d8 | | Load_Top At_Offset_0
007a 0101 | | Execute Exception,Reraise
007b e00d | | Load 0x0,0xd
007c e402 | | Load 0x2,0x2
007d 0098 | | Execute Package,Field_Read_Dynamic
007e 010f | | Execute Exception,Equal
007f 6801 |h | Jump_Zero 0x81
0080 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0081 4800 |H | Short_Literal 0x0
0082 4800 |H | Short_Literal 0x0
0083 4801 |H | Short_Literal 0x1
0084 4808 |H | Short_Literal 0x8
0085 0092 0545 | E| Action Push_String_Extended,0x545 ; "EXCEPTION: "
0087 4800 |H | Short_Literal 0x0
0088 4801 |H | Short_Literal 0x1
0089 e00e | | Load 0x0,0xe
008a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
008b 01cc | | Execute Vector,Catenate
008c e00f | | Load 0x0,0xf
008d e402 | | Load 0x2,0x2
008e 0096 | | Execute Package,Entry
008f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0090 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00ca | | .CONST 0x00ca ; Address of begin
0099 00dc | | .CONST 0x00dc ; Address of exception handler
009a 0004 | | .CONST 0x0004 ; Number of locals
009b INIT_0098:
009b e5fd | | Load 0x2,-0x3
009c e009 | | Load 0x0,0x9
009d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
009e e009 | | Load 0x0,0x9
009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a0 011e | | Execute Any,Convert
00a1 0093 0000 | | push_full_address 0x0
00a3 6054 |`T | Indirect_Literal Discrete,0xf8,{0x80000000, 0x00010000}
00a4 0273 | s | Execute Discrete,Plus
00a5 e007 | | Load 0x0,0x7
00a6 0273 | s | Execute Discrete,Plus
00a7 e010 | | Load 0x0,0x10
00a8 0273 | s | Execute Discrete,Plus
00a9 0092 0546 | F| Action Push_String_Extended,0x546 ; "Destroy_Users"
00ab 0092 0547 | G| Action Push_String_Extended,0x547 ; "Named => \x22"
00ad e5ff | | Load 0x2,-0x1
00ae 01cc | | Execute Vector,Catenate
00af 0092 0542 | B| Action Push_String_Extended,0x542 ; "\x22, Effort_Only => "
00b1 01cc | | Execute Vector,Catenate
00b2 e5fe | | Load 0x2,-0x2
00b3 00e1 | | Load_Encached Boolean_Cache
00b4 011c | | Execute Any,Convert_Unchecked
00b5 1c01 | | Execute_Immediate Run_Utility,0x1
00b6 01cc | | Execute Vector,Catenate
00b7 0092 0543 | C| Action Push_String_Extended,0x543 ; ", Response => \x22"
00b9 01cc | | Execute Vector,Catenate
00ba e5fd | | Load 0x2,-0x3
00bb 01cc | | Execute Vector,Catenate
00bc 0092 0544 | D| Action Push_String_Extended,0x544 ; "\x22"
00be 01cc | | Execute Vector,Catenate
00bf e402 | | Load 0x2,0x2
00c0 00c4 | | Action Make_Default
00c1 e009 | | Load 0x0,0x9
00c2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c3 c407 | | Store 0x2,0x7
00c4 e00a | | Load 0x0,0xa
00c5 0387 | | Declare_Variable Package
00c6 00d8 | | Load_Top At_Offset_0
00c7 020f | | Execute Module,Activate
00c8 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call
00ca BODY_0098:
00ca 4800 |H | Short_Literal 0x0
00cb e00b | | Load 0x0,0xb
00cc e403 | | Load 0x2,0x3
00cd 0096 | | Execute Package,Entry
00ce e011 | | Load 0x0,0x11
00cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d0 7009 |p | Jump_Nonzero 0xda
00d1 4800 |H | Short_Literal 0x0
00d2 4801 |H | Short_Literal 0x1
00d3 4801 |H | Short_Literal 0x1
00d4 4807 |H | Short_Literal 0x7
00d5 0092 0548 | H| Action Push_String_Extended,0x548 ; "Privileges must be enabled before calling this procedure"
00d7 e00f | | Load 0x0,0xf
00d8 e403 | | Load 0x2,0x3
00d9 0096 | | Execute Package,Entry
00da 8404 | | Call 0x2,0x4
00db 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00dc TRAP_0098:
00dc e00c | | Load 0x0,0xc
00dd e403 | | Load 0x2,0x3
00de 0098 | | Execute Package,Field_Read_Dynamic
00df 010f | | Execute Exception,Equal
00e0 6802 |h | Jump_Zero 0xe3
00e1 00d8 | | Load_Top At_Offset_0
00e2 0101 | | Execute Exception,Reraise
00e3 e00d | | Load 0x0,0xd
00e4 e403 | | Load 0x2,0x3
00e5 0098 | | Execute Package,Field_Read_Dynamic
00e6 010f | | Execute Exception,Equal
00e7 6801 |h | Jump_Zero 0xe9
00e8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00e9 4800 |H | Short_Literal 0x0
00ea 4800 |H | Short_Literal 0x0
00eb 4801 |H | Short_Literal 0x1
00ec 4808 |H | Short_Literal 0x8
00ed 0092 0545 | E| Action Push_String_Extended,0x545 ; "EXCEPTION: "
00ef 4800 |H | Short_Literal 0x0
00f0 4801 |H | Short_Literal 0x1
00f1 e00e | | Load 0x0,0xe
00f2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f3 01cc | | Execute Vector,Catenate
00f4 e00f | | Load 0x0,0xf
00f5 e403 | | Load 0x2,0x3
00f6 0096 | | Execute Package,Entry
00f7 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00f8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0117 | | .CONST 0x0117 ; Address of begin
0101 0155 | U | .CONST 0x0155 ; Address of exception handler
0102 0007 | | .CONST 0x0007 ; Number of locals
0103 INIT_0100:
0103 e012 | | Load 0x0,0x12
0104 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0105 02c7 | | Declare_Variable Any
0106 00d8 | | Load_Top At_Offset_0
0107 1c00 | | Execute_Immediate Run_Utility,0x0
0108 e012 | | Load 0x0,0x12
0109 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
010a 0322 | " | Declare_Variable Record
010b 00d8 | | Load_Top At_Offset_0
010c 1c00 | | Execute_Immediate Run_Utility,0x0
010d e012 | | Load 0x0,0x12
010e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
010f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0110 e012 | | Load 0x0,0x12
0111 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0112 e013 | | Load 0x0,0x13
0113 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0114 e012 | | Load 0x0,0x12
0115 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0116 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0117 BODY_0100:
0117 e012 | | Load 0x0,0x12
0118 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0119 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011a e402 | | Load 0x2,0x2
011b 0120 | | Execute Any,Is_Value
011c 6803 |h | Jump_Zero 0x120
011d e012 | | Load 0x0,0x12
011e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011f 7801 |x | Jump 0x121
0120 e402 | | Load 0x2,0x2
0121 6036 |`6 | Indirect_Literal Discrete,0x158,{0x00000000, 0x00004000}
0122 e014 | | Load 0x0,0x14
0123 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0124 e015 | | Load 0x0,0x15
0125 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0126 e012 | | Load 0x0,0x12
0127 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0128 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0129 e5ff | | Load 0x2,-0x1
012a e012 | | Load 0x0,0x12
012b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
012d c402 | | Store 0x2,0x2
012e c404 | | Store 0x2,0x4
012f e012 | | Load 0x0,0x12
0130 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0131 e403 | | Load 0x2,0x3
0132 6025 |`% | Indirect_Literal Discrete,0x158,{0x00000000, 0x00004000}
0133 e014 | | Load 0x0,0x14
0134 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0135 e402 | | Load 0x2,0x2
0136 e012 | | Load 0x0,0x12
0137 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0138 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0139 00d1 | | Pop_Control Pop_Count_1
013a c405 | | Store 0x2,0x5
013b 4801 |H | Short_Literal 0x1
013c e403 | | Load 0x2,0x3
013d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
013e 4801 |H | Short_Literal 0x1
013f e403 | | Load 0x2,0x3
0140 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0141 e012 | | Load 0x0,0x12
0142 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0143 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0144 e013 | | Load 0x0,0x13
0145 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0146 e012 | | Load 0x0,0x12
0147 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0148 600f |` | Indirect_Literal Discrete,0x158,{0x00000000, 0x00004000}
0149 e014 | | Load 0x0,0x14
014a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014b 4801 |H | Short_Literal 0x1
014c e403 | | Load 0x2,0x3
014d e402 | | Load 0x2,0x2
014e e012 | | Load 0x0,0x12
014f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0150 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0151 c405 | | Store 0x2,0x5
0152 c406 | | Store 0x2,0x6
0153 c407 | | Store 0x2,0x7
0154 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0155 TRAP_0100:
0155 0007 | | Action Break_Optional
0156 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0157 0000 | | .XXX[0x1]
0158 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016e | n | .CONST 0x016e ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0004 | | .CONST 0x0004 ; Number of locals
0163 INIT_0160:
0163 e5ff | | Load 0x2,-0x1
0164 e002 | | Load 0x0,0x2
0165 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0166 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0167 e012 | | Load 0x0,0x12
0168 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0169 02c7 | | Declare_Variable Any
016a 00d8 | | Load_Top At_Offset_0
016b 1c00 | | Execute_Immediate Run_Utility,0x0
016c e012 | | Load 0x0,0x12
016d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016e BODY_0160:
016e e009 | | Load 0x0,0x9
016f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0170 4802 |H | Short_Literal 0x2
0171 0092 0549 | I| Action Push_String_Extended,0x549 ; "PROCESSING "
0173 e402 | | Load 0x2,0x2
0174 01cc | | Execute Vector,Catenate
0175 e016 | | Load 0x0,0x16
0176 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0177 e20f | | Load 0x1,0xf
0178 e402 | | Load 0x2,0x2
0179 0092 054a | J| Action Push_String_Extended,0x54a ; "Network_Public => RWCOD"
017b e017 | | Load 0x0,0x17
017c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
017d e20f | | Load 0x1,0xf
017e 4800 |H | Short_Literal 0x0
017f e402 | | Load 0x2,0x2
0180 e018 | | Load 0x0,0x18
0181 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0182 e012 | | Load 0x0,0x12
0183 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0184 e403 | | Load 0x2,0x3
0185 0120 | | Execute Any,Is_Value
0186 6803 |h | Jump_Zero 0x18a
0187 e012 | | Load 0x0,0x12
0188 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0189 7801 |x | Jump 0x18b
018a e403 | | Load 0x2,0x3
018b e5ff | | Load 0x2,-0x1
018c e002 | | Load 0x0,0x2
018d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
018f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0190 c403 | | Store 0x2,0x3
0191 c404 | | Store 0x2,0x4
0192 e012 | | Load 0x0,0x12
0193 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0194 67c3 |g | Indirect_Literal Discrete,0x158,{0x00000000, 0x00004000}
0195 e014 | | Load 0x0,0x14
0196 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0197 4800 |H | Short_Literal 0x0
0198 e403 | | Load 0x2,0x3
0199 e012 | | Load 0x0,0x12
019a 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
019b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
019c c404 | | Store 0x2,0x4
019d e012 | | Load 0x0,0x12
019e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019f 67b8 |g | Indirect_Literal Discrete,0x158,{0x00000000, 0x00004000}
01a0 e014 | | Load 0x0,0x14
01a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a2 4800 |H | Short_Literal 0x0
01a3 e403 | | Load 0x2,0x3
01a4 e012 | | Load 0x0,0x12
01a5 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
01a6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01a7 c404 | | Store 0x2,0x4
01a8 e403 | | Load 0x2,0x3
01a9 e012 | | Load 0x0,0x12
01aa 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ac e012 | | Load 0x0,0x12
01ad 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
01ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01af 6808 |h | Jump_Zero 0x1b8
01b0 e402 | | Load 0x2,0x2
01b1 8210 | | Call 0x1,0x10
01b2 e20f | | Load 0x1,0xf
01b3 0092 054b | K| Action Push_String_Extended,0x54b ; "WORLD"
01b5 e402 | | Load 0x2,0x2
01b6 e018 | | Load 0x0,0x18
01b7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b9 0000 0000 | | .BLANK 0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 e5fd | | Load 0x2,-0x3
01c4 e5fe | | Load 0x2,-0x2
01c5 8211 | | Call 0x1,0x11
01c6 c5fd | | Store 0x2,-0x3
01c7 e002 | | Load 0x0,0x2
01c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c9 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
01ca c5fc | | Store 0x2,-0x4
01cb 4800 |H | Short_Literal 0x0
01cc a5fb | | Store_Unchecked 0x2,-0x5
01cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 e5fd | | Load 0x2,-0x3
01d4 0a01 | | Execute_Immediate Plus,0x1
01d5 c5fd | | Store 0x2,-0x3
01d6 e002 | | Load 0x0,0x2
01d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d8 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
01d9 c5fc | | Store 0x2,-0x4
01da 4800 |H | Short_Literal 0x0
01db a5fb | | Store_Unchecked 0x2,-0x5
01dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f3 | | .CONST 0x01f3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0005 | | .CONST 0x0005 ; Number of locals
01e3 INIT_01e0:
01e3 e002 | | Load 0x0,0x2
01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01e6 02c7 | | Declare_Variable Any
01e7 e5ff | | Load 0x2,-0x1
01e8 a402 | | Store_Unchecked 0x2,0x2
01e9 00e3 | | Load_Encached Natural_Cache
01ea 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01eb e002 | | Load 0x0,0x2
01ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ed 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
01ee 02c7 | | Declare_Variable Any
01ef 00d8 | | Load_Top At_Offset_0
01f0 1c00 | | Execute_Immediate Run_Utility,0x0
01f1 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call
01f3 BODY_01e0:
01f3 e402 | | Load 0x2,0x2
01f4 e002 | | Load 0x0,0x2
01f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01f7 e5fe | | Load 0x2,-0x2
01f8 6814 |h | Jump_Zero 0x20d
01f9 00cf | | Action Mark_Auxiliary
01fa 780a |x | Jump 0x205
01fb e403 | | Load 0x2,0x3
01fc 0a01 | | Execute_Immediate Plus,0x1
01fd c403 | | Store 0x2,0x3
01fe 8405 | | Call 0x2,0x5
01ff e402 | | Load 0x2,0x2
0200 e002 | | Load 0x0,0x2
0201 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0202 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0203 c402 | | Store 0x2,0x2
0204 00c9 | | Action Pop_Auxiliary_Loop
0205 e402 | | Load 0x2,0x2
0206 e002 | | Load 0x0,0x2
0207 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0208 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0209 6ff1 |o | Jump_Zero 0x1fb
020a 00ce | | Action Pop_Auxiliary
020b e403 | | Load 0x2,0x3
020c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
020d 00cf | | Action Mark_Auxiliary
020e 7809 |x | Jump 0x218
020f e403 | | Load 0x2,0x3
0210 0a01 | | Execute_Immediate Plus,0x1
0211 c403 | | Store 0x2,0x3
0212 e402 | | Load 0x2,0x2
0213 e002 | | Load 0x0,0x2
0214 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0215 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0216 c402 | | Store 0x2,0x2
0217 00c9 | | Action Pop_Auxiliary_Loop
0218 e402 | | Load 0x2,0x2
0219 e002 | | Load 0x0,0x2
021a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
021c 6ff2 |o | Jump_Zero 0x20f
021d 00ce | | Action Pop_Auxiliary
021e e403 | | Load 0x2,0x3
021f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 e5ff | | Load 0x2,-0x1
0224 0f01 | | Execute_Immediate Equal,0x1
0225 6802 |h | Jump_Zero 0x228
0226 00ea | | Load_Encached Null_String_Cache
0227 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0228 0092 054c | L| Action Push_String_Extended,0x54c ; "s"
022a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022b 0000 0000 | | .BLANK 0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023b | ; | .CONST 0x023b ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0003 | | .CONST 0x0003 ; Number of locals
0233 INIT_0230:
0233 e002 | | Load 0x0,0x2
0234 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0235 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0236 02c7 | | Declare_Variable Any
0237 e5ff | | Load 0x2,-0x1
0238 a402 | | Store_Unchecked 0x2,0x2
0239 029f 045b | [| Declare_Subprogram INIT_0458,For_Call
023b BODY_0230:
023b e402 | | Load 0x2,0x2
023c e002 | | Load 0x0,0x2
023d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
023f 4800 |H | Short_Literal 0x0
0240 e402 | | Load 0x2,0x2
0241 821e | | Call 0x1,0x1e
0242 0b00 | | Execute_Immediate Case_Compare,0x0
0243 700f |p | Jump_Nonzero 0x253
0244 0f01 | | Execute_Immediate Equal,0x1
0245 7011 |p | Jump_Nonzero 0x257
0246 e402 | | Load 0x2,0x2
0247 e002 | | Load 0x0,0x2
0248 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0249 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
024a 0092 054d | M| Action Push_String_Extended,0x54d ; "["
024c e402 | | Load 0x2,0x2
024d 8403 | | Call 0x2,0x3
024e 01cc | | Execute Vector,Catenate
024f 0092 054e | N| Action Push_String_Extended,0x54e ; "]"
0251 01cc | | Execute Vector,Catenate
0252 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0253 00d1 | | Pop_Control Pop_Count_1
0254 0092 054f | O| Action Push_String_Extended,0x54f ; "*** NOTHING RESOLVES TO THIS EXPRESSION ***"
0256 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0257 e402 | | Load 0x2,0x2
0258 e002 | | Load 0x0,0x2
0259 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
025b e402 | | Load 0x2,0x2
025c e002 | | Load 0x0,0x2
025d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
025f e002 | | Load 0x0,0x2
0260 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0261 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0262 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0263 0000 0000 | | .BLANK 0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0283 | | .CONST 0x0283 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0005 | | .CONST 0x0005 ; Number of locals
026b INIT_0268:
026b e002 | | Load 0x0,0x2
026c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
026e 02c7 | | Declare_Variable Any
026f 4801 |H | Short_Literal 0x1
0270 e002 | | Load 0x0,0x2
0271 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0272 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0273 e5ff | | Load 0x2,-0x1
0274 e002 | | Load 0x0,0x2
0275 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0276 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0277 a402 | | Store_Unchecked 0x2,0x2
0278 e002 | | Load 0x0,0x2
0279 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
027b 02c7 | | Declare_Variable Any
027c e002 | | Load 0x0,0x2
027d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
027f a403 | | Store_Unchecked 0x2,0x3
0280 00e1 | | Load_Encached Boolean_Cache
0281 029f 0483 | | Declare_Subprogram INIT_0480,For_Call
0283 BODY_0268:
0283 e402 | | Load 0x2,0x2
0284 e002 | | Load 0x0,0x2
0285 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0286 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0287 00cf | | Action Mark_Auxiliary
0288 7807 |x | Jump 0x290
0289 8405 | | Call 0x2,0x5
028a e402 | | Load 0x2,0x2
028b e002 | | Load 0x0,0x2
028c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
028e c402 | | Store 0x2,0x2
028f 00c9 | | Action Pop_Auxiliary_Loop
0290 e402 | | Load 0x2,0x2
0291 e002 | | Load 0x0,0x2
0292 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0293 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0294 6ff4 |o | Jump_Zero 0x289
0295 00ce | | Action Pop_Auxiliary
0296 e403 | | Load 0x2,0x3
0297 e002 | | Load 0x0,0x2
0298 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0299 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
029a e403 | | Load 0x2,0x3
029b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02ab | | .CONST 0x02ab ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0003 | | .CONST 0x0003 ; Number of locals
02a3 INIT_02a0:
02a3 e5ff | | Load 0x2,-0x1
02a4 e002 | | Load 0x0,0x2
02a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02a7 e5ff | | Load 0x2,-0x1
02a8 e002 | | Load 0x0,0x2
02a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02aa 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02ab BODY_02a0:
02ab e009 | | Load 0x0,0x9
02ac 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ad 4802 |H | Short_Literal 0x2
02ae 0092 0550 | P| Action Push_String_Extended,0x550 ; "DELETING USER "
02b0 e402 | | Load 0x2,0x2
02b1 01cc | | Execute Vector,Catenate
02b2 e016 | | Load 0x0,0x16
02b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b4 e20f | | Load 0x1,0xf
02b5 e403 | | Load 0x2,0x3
02b6 e011 | | Load 0x0,0x11
02b7 180f | | Execute Package,Field_Execute,Field_Number 0xf
02b8 e5fd | | Load 0x2,-0x3
02b9 e20f | | Load 0x1,0xf
02ba 4800 |H | Short_Literal 0x0
02bb 0092 0551 | Q| Action Push_String_Extended,0x551 ; "!MACHINE.GROUPS."
02bd e403 | | Load 0x2,0x3
02be 01cc | | Execute Vector,Catenate
02bf 820d | | Call 0x1,0xd
02c0 e5fd | | Load 0x2,-0x3
02c1 e20f | | Load 0x1,0xf
02c2 4800 |H | Short_Literal 0x0
02c3 0092 0552 | R| Action Push_String_Extended,0x552 ; "!MACHINE.USERS."
02c5 e403 | | Load 0x2,0x3
02c6 01cc | | Execute Vector,Catenate
02c7 820d | | Call 0x1,0xd
02c8 e5fd | | Load 0x2,-0x3
02c9 e20f | | Load 0x1,0xf
02ca 4800 |H | Short_Literal 0x0
02cb 0092 0553 | S| Action Push_String_Extended,0x553 ; "!MACHINE.ERROR_LOGS."
02cd e403 | | Load 0x2,0x3
02ce 01cc | | Execute Vector,Catenate
02cf 0092 0554 | T| Action Push_String_Extended,0x554 ; "_@"
02d1 01cc | | Execute Vector,Catenate
02d2 820d | | Call 0x1,0xd
02d3 e5fd | | Load 0x2,-0x3
02d4 e20f | | Load 0x1,0xf
02d5 4800 |H | Short_Literal 0x0
02d6 0092 0555 | U| Action Push_String_Extended,0x555 ; "!MACHINE.SEARCH_LISTS."
02d8 e403 | | Load 0x2,0x3
02d9 01cc | | Execute Vector,Catenate
02da 0092 0554 | T| Action Push_String_Extended,0x554 ; "_@"
02dc 01cc | | Execute Vector,Catenate
02dd 820d | | Call 0x1,0xd
02de e20f | | Load 0x1,0xf
02df 4800 |H | Short_Literal 0x0
02e0 0092 0556 | V| Action Push_String_Extended,0x556 ; "asdjkhkasjhd&^*"
02e2 e403 | | Load 0x2,0x3
02e3 e011 | | Load 0x0,0x11
02e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
02e5 e20f | | Load 0x1,0xf
02e6 e403 | | Load 0x2,0x3
02e7 e011 | | Load 0x0,0x11
02e8 180f | | Execute Package,Field_Execute,Field_Number 0xf
02e9 e5fd | | Load 0x2,-0x3
02ea e20f | | Load 0x1,0xf
02eb 4800 |H | Short_Literal 0x0
02ec 0092 0551 | Q| Action Push_String_Extended,0x551 ; "!MACHINE.GROUPS."
02ee e403 | | Load 0x2,0x3
02ef 01cc | | Execute Vector,Catenate
02f0 820d | | Call 0x1,0xd
02f1 e5fd | | Load 0x2,-0x3
02f2 e20f | | Load 0x1,0xf
02f3 4800 |H | Short_Literal 0x0
02f4 0092 0552 | R| Action Push_String_Extended,0x552 ; "!MACHINE.USERS."
02f6 e403 | | Load 0x2,0x3
02f7 01cc | | Execute Vector,Catenate
02f8 820d | | Call 0x1,0xd
02f9 e5fd | | Load 0x2,-0x3
02fa e20f | | Load 0x1,0xf
02fb 4800 |H | Short_Literal 0x0
02fc 0092 0553 | S| Action Push_String_Extended,0x553 ; "!MACHINE.ERROR_LOGS."
02fe e403 | | Load 0x2,0x3
02ff 01cc | | Execute Vector,Catenate
0300 0092 0554 | T| Action Push_String_Extended,0x554 ; "_@"
0302 01cc | | Execute Vector,Catenate
0303 820d | | Call 0x1,0xd
0304 e5fd | | Load 0x2,-0x3
0305 e20f | | Load 0x1,0xf
0306 4800 |H | Short_Literal 0x0
0307 0092 0555 | U| Action Push_String_Extended,0x555 ; "!MACHINE.SEARCH_LISTS."
0309 e403 | | Load 0x2,0x3
030a 01cc | | Execute Vector,Catenate
030b 0092 0554 | T| Action Push_String_Extended,0x554 ; "_@"
030d 01cc | | Execute Vector,Catenate
030e 820d | | Call 0x1,0xd
030f e5fd | | Load 0x2,-0x3
0310 0092 0557 | W| Action Push_String_Extended,0x557 ; "PROPAGATE,"
0312 e5fe | | Load 0x2,-0x2
0313 01cc | | Execute Vector,Catenate
0314 4800 |H | Short_Literal 0x0
0315 0092 0558 | X| Action Push_String_Extended,0x558 ; "!USERS."
0317 e403 | | Load 0x2,0x3
0318 01cc | | Execute Vector,Catenate
0319 820d | | Call 0x1,0xd
031a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
031b 0000 0000 | | .BLANK 0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 033c | < | .CONST 0x033c ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0006 | | .CONST 0x0006 ; Number of locals
0323 INIT_0320:
0323 e002 | | Load 0x0,0x2
0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0325 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0326 02c7 | | Declare_Variable Any
0327 00d8 | | Load_Top At_Offset_0
0328 1c00 | | Execute_Immediate Run_Utility,0x0
0329 00e1 | | Load_Encached Boolean_Cache
032a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
032b e002 | | Load 0x0,0x2
032c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
032e 02c7 | | Declare_Variable Any
032f 4801 |H | Short_Literal 0x1
0330 e002 | | Load 0x0,0x2
0331 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0332 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0333 e5ff | | Load 0x2,-0x1
0334 e002 | | Load 0x0,0x2
0335 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0336 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0337 a604 | | Store_Unchecked 0x3,0x4
0338 00d8 | | Load_Top At_Offset_0
0339 8220 | | Call 0x1,0x20
033a 029f 04b3 | | Declare_Subprogram INIT_04b0,For_Call
033c BODY_0320:
033c e604 | | Load 0x3,0x4
033d e002 | | Load 0x0,0x2
033e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0340 e604 | | Load 0x3,0x4
0341 e002 | | Load 0x0,0x2
0342 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0343 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0344 6813 |h | Jump_Zero 0x358
0345 4800 |H | Short_Literal 0x0
0346 4801 |H | Short_Literal 0x1
0347 4800 |H | Short_Literal 0x0
0348 4806 |H | Short_Literal 0x6
0349 0092 0559 | Y| Action Push_String_Extended,0x559 ; "Cannot resolve any objects in \x22"
034b e5ff | | Load 0x2,-0x1
034c 01cc | | Execute Vector,Catenate
034d 0092 0544 | D| Action Push_String_Extended,0x544 ; "\x22"
034f 01cc | | Execute Vector,Catenate
0350 e00f | | Load 0x0,0xf
0351 e402 | | Load 0x2,0x2
0352 0096 | | Execute Package,Entry
0353 4800 |H | Short_Literal 0x0
0354 e019 | | Load 0x0,0x19
0355 e402 | | Load 0x2,0x2
0356 0096 | | Execute Package,Entry
0357 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0358 e5fe | | Load 0x2,-0x2
0359 6822 |h" | Jump_Zero 0x37c
035a 00cf | | Action Mark_Auxiliary
035b 7815 |x | Jump 0x371
035c e009 | | Load 0x0,0x9
035d 180e | | Execute Package,Field_Execute,Field_Number 0xe
035e 4802 |H | Short_Literal 0x2
035f 0092 055a | Z| Action Push_String_Extended,0x55a ; "WOULD ATTEMPT TO DESTROY "
0361 e604 | | Load 0x3,0x4
0362 e002 | | Load 0x0,0x2
0363 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0364 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0365 e002 | | Load 0x0,0x2
0366 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0367 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0368 01cc | | Execute Vector,Catenate
0369 e016 | | Load 0x0,0x16
036a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
036b e604 | | Load 0x3,0x4
036c e002 | | Load 0x0,0x2
036d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
036f c604 | | Store 0x3,0x4
0370 00c9 | | Action Pop_Auxiliary_Loop
0371 e604 | | Load 0x3,0x4
0372 e002 | | Load 0x0,0x2
0373 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0374 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0375 6fe6 |o | Jump_Zero 0x35c
0376 00ce | | Action Pop_Auxiliary
0377 4800 |H | Short_Literal 0x0
0378 e019 | | Load 0x0,0x19
0379 e402 | | Load 0x2,0x2
037a 0096 | | Execute Package,Entry
037b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
037c e20f | | Load 0x1,0xf
037d 0092 055b | [| Action Push_String_Extended,0x55b ; "<CURRENT_USER>"
037f 0092 055c | \| Action Push_String_Extended,0x55c ; "<>"
0381 e01a | | Load 0x0,0x1a
0382 180d | | Execute Package,Field_Execute,Field_Number 0xd
0383 e603 | | Load 0x3,0x3
0384 e604 | | Load 0x3,0x4
0385 e002 | | Load 0x0,0x2
0386 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0387 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0388 8211 | | Call 0x1,0x11
0389 c603 | | Store 0x3,0x3
038a 00cf | | Action Mark_Auxiliary
038b 7823 |x# | Jump 0x3af
038c e602 | | Load 0x3,0x2
038d 0120 | | Execute Any,Is_Value
038e 6804 |h | Jump_Zero 0x393
038f e002 | | Load 0x0,0x2
0390 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0391 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0392 7801 |x | Jump 0x394
0393 e602 | | Load 0x3,0x2
0394 e603 | | Load 0x3,0x3
0395 4800 |H | Short_Literal 0x0
0396 4801 |H | Short_Literal 0x1
0397 4801 |H | Short_Literal 0x1
0398 4801 |H | Short_Literal 0x1
0399 4801 |H | Short_Literal 0x1
039a 4800 |H | Short_Literal 0x0
039b 0092 055d | ]| Action Push_String_Extended,0x55d ; "@"
039d e604 | | Load 0x3,0x4
039e e002 | | Load 0x0,0x2
039f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03a1 e213 | | Load 0x1,0x13
03a2 1d14 | | Execute_Immediate Reference_Lex_1,0x14
03a3 1d15 | | Execute_Immediate Reference_Lex_1,0x15
03a4 e002 | | Load 0x0,0x2
03a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03a6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03a7 c603 | | Store 0x3,0x3
03a8 c602 | | Store 0x3,0x2
03a9 e604 | | Load 0x3,0x4
03aa e002 | | Load 0x0,0x2
03ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ac 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03ad c604 | | Store 0x3,0x4
03ae 00c9 | | Action Pop_Auxiliary_Loop
03af e604 | | Load 0x3,0x4
03b0 e002 | | Load 0x0,0x2
03b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03b3 6fd8 |o | Jump_Zero 0x38c
03b4 00ce | | Action Pop_Auxiliary
03b5 0092 055e | ^| Action Push_String_Extended,0x55e ; "PERSEVERE,"
03b7 e5fd | | Load 0x2,-0x3
03b8 01cc | | Execute Vector,Catenate
03b9 0092 055f | _| Action Push_String_Extended,0x55f ; "<ALL_WORLDS>"
03bb 6008 |` | Indirect_Literal Discrete,0x3c4,{0x00000000, 0x7fffffff}
03bc e605 | | Load 0x3,0x5
03bd e01b | | Load 0x0,0x1b
03be 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03bf 8606 | | Call 0x3,0x6
03c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c1 0000 0000 | | .XXX[0x3]
03c3 0000 | |
03c4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d8 | | .CONST 0x03d8 ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0005 | | .CONST 0x0005 ; Number of locals
03cb INIT_03c8:
03cb e002 | | Load 0x0,0x2
03cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
03ce 02c7 | | Declare_Variable Any
03cf e5ff | | Load 0x2,-0x1
03d0 8221 | ! | Call 0x1,0x21
03d1 a602 | | Store_Unchecked 0x3,0x2
03d2 00d8 | | Load_Top At_Offset_0
03d3 8220 | | Call 0x1,0x20
03d4 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call
03d6 029f 052b | +| Declare_Subprogram INIT_0528,For_Call
03d8 BODY_03c8:
03d8 e602 | | Load 0x3,0x2
03d9 e002 | | Load 0x0,0x2
03da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03db 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
03dc e602 | | Load 0x3,0x2
03dd e002 | | Load 0x0,0x2
03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03df 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03e0 6813 |h | Jump_Zero 0x3f4
03e1 4800 |H | Short_Literal 0x0
03e2 4801 |H | Short_Literal 0x1
03e3 4800 |H | Short_Literal 0x0
03e4 4806 |H | Short_Literal 0x6
03e5 0092 0560 | `| Action Push_String_Extended,0x560 ; "Cannot resolve any users in \x22"
03e7 e5ff | | Load 0x2,-0x1
03e8 01cc | | Execute Vector,Catenate
03e9 0092 0544 | D| Action Push_String_Extended,0x544 ; "\x22"
03eb 01cc | | Execute Vector,Catenate
03ec e00f | | Load 0x0,0xf
03ed e403 | | Load 0x2,0x3
03ee 0096 | | Execute Package,Entry
03ef 4800 |H | Short_Literal 0x0
03f0 e019 | | Load 0x0,0x19
03f1 e403 | | Load 0x2,0x3
03f2 0096 | | Execute Package,Entry
03f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f4 e5fe | | Load 0x2,-0x2
03f5 6822 |h" | Jump_Zero 0x418
03f6 00cf | | Action Mark_Auxiliary
03f7 7815 |x | Jump 0x40d
03f8 e009 | | Load 0x0,0x9
03f9 180e | | Execute Package,Field_Execute,Field_Number 0xe
03fa 4802 |H | Short_Literal 0x2
03fb 0092 055a | Z| Action Push_String_Extended,0x55a ; "WOULD ATTEMPT TO DESTROY "
03fd e602 | | Load 0x3,0x2
03fe e002 | | Load 0x0,0x2
03ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0400 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0401 e002 | | Load 0x0,0x2
0402 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0403 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0404 01cc | | Execute Vector,Catenate
0405 e016 | | Load 0x0,0x16
0406 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0407 e602 | | Load 0x3,0x2
0408 e002 | | Load 0x0,0x2
0409 1b0d | | Execute Package,Field_Read,Field_Number 0xd
040a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
040b c602 | | Store 0x3,0x2
040c 00c9 | | Action Pop_Auxiliary_Loop
040d e602 | | Load 0x3,0x2
040e e002 | | Load 0x0,0x2
040f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0410 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0411 6fe6 |o | Jump_Zero 0x3f8
0412 00ce | | Action Pop_Auxiliary
0413 4800 |H | Short_Literal 0x0
0414 e019 | | Load 0x0,0x19
0415 e403 | | Load 0x2,0x3
0416 0096 | | Execute Package,Entry
0417 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0418 00cf | | Action Mark_Auxiliary
0419 7807 |x | Jump 0x421
041a 8605 | | Call 0x3,0x5
041b e602 | | Load 0x3,0x2
041c e002 | | Load 0x0,0x2
041d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
041f c602 | | Store 0x3,0x2
0420 00c9 | | Action Pop_Auxiliary_Loop
0421 e602 | | Load 0x3,0x2
0422 e002 | | Load 0x0,0x2
0423 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0424 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0425 6ff4 |o | Jump_Zero 0x41a
0426 00ce | | Action Pop_Auxiliary
0427 8604 | | Call 0x3,0x4
0428 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0429 0000 0000 | | .BLANK 0000[0x7]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0435 | 5 | .CONST 0x0435 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0002 | | .CONST 0x0002 ; Number of locals
0433 INIT_0430:
0433 00e3 | | Load_Encached Natural_Cache
0434 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0435 BODY_0430:
0435 e404 | | Load 0x2,0x4
0436 0120 | | Execute Any,Is_Value
0437 6804 |h | Jump_Zero 0x43c
0438 e002 | | Load 0x0,0x2
0439 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043a 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
043b 7801 |x | Jump 0x43d
043c e404 | | Load 0x2,0x4
043d e602 | | Load 0x3,0x2
043e 4800 |H | Short_Literal 0x0
043f 4801 |H | Short_Literal 0x1
0440 4801 |H | Short_Literal 0x1
0441 4801 |H | Short_Literal 0x1
0442 4801 |H | Short_Literal 0x1
0443 4800 |H | Short_Literal 0x0
0444 0092 055d | ]| Action Push_String_Extended,0x55d ; "@"
0446 e402 | | Load 0x2,0x2
0447 e002 | | Load 0x0,0x2
0448 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0449 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
044a e219 | | Load 0x1,0x19
044b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
044c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
044d e002 | | Load 0x0,0x2
044e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
044f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0450 c602 | | Store 0x3,0x2
0451 c404 | | Store 0x2,0x4
0452 e403 | | Load 0x2,0x3
0453 e602 | | Load 0x3,0x2
0454 0273 | s | Execute Discrete,Plus
0455 c403 | | Store 0x2,0x3
0456 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0457 0000 | | .XXX[0x1]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0468 | h | .CONST 0x0468 ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0003 | | .CONST 0x0003 ; Number of locals
045b INIT_0458:
045b e002 | | Load 0x0,0x2
045c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
045e 02c7 | | Declare_Variable Any
045f e7ff | | Load 0x3,-0x1
0460 a602 | | Store_Unchecked 0x3,0x2
0461 00d8 | | Load_Top At_Offset_0
0462 e002 | | Load 0x0,0x2
0463 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0464 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0465 e002 | | Load 0x0,0x2
0466 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0467 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0468 BODY_0458:
0468 e602 | | Load 0x3,0x2
0469 e002 | | Load 0x0,0x2
046a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
046c c602 | | Store 0x3,0x2
046d e602 | | Load 0x3,0x2
046e e002 | | Load 0x0,0x2
046f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0470 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0471 6802 |h | Jump_Zero 0x474
0472 00d8 | | Load_Top At_Offset_0
0473 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0474 00d8 | | Load_Top At_Offset_0
0475 0092 0561 | a| Action Push_String_Extended,0x561 ; ","
0477 01cc | | Execute Vector,Catenate
0478 e602 | | Load 0x3,0x2
0479 8403 | | Call 0x2,0x3
047a 01cc | | Execute Vector,Catenate
047b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047c 0000 0000 | | .BLANK 0000[0x4]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 048a | | .CONST 0x048a ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0002 | | .CONST 0x0002 ; Number of locals
0483 INIT_0480:
0483 e402 | | Load 0x2,0x2
0484 e002 | | Load 0x0,0x2
0485 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0486 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0487 e002 | | Load 0x0,0x2
0488 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0489 1820 | | Execute Package,Field_Execute,Field_Number 0x20
048a BODY_0480:
048a 00d8 | | Load_Top At_Offset_0
048b e002 | | Load 0x0,0x2
048c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
048d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
048e 0092 0562 | b| Action Push_String_Extended,0x562 ; "!USERS"
0490 01df | | Execute Vector,Equal
0491 680e |h | Jump_Zero 0x4a0
0492 00e1 | | Load_Encached Boolean_Cache
0493 e002 | | Load 0x0,0x2
0494 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0495 180e | | Execute Package,Field_Execute,Field_Number 0xe
0496 e402 | | Load 0x2,0x2
0497 e002 | | Load 0x0,0x2
0498 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0499 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
049a e403 | | Load 0x2,0x3
049b e002 | | Load 0x0,0x2
049c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
049e c404 | | Store 0x2,0x4
049f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04a0 e009 | | Load 0x0,0x9
04a1 180e | | Execute Package,Field_Execute,Field_Number 0xe
04a2 4806 |H | Short_Literal 0x6
04a3 0092 0563 | c| Action Push_String_Extended,0x563 ; "Invalid user name \x22"
04a5 e602 | | Load 0x3,0x2
04a6 01cc | | Execute Vector,Catenate
04a7 0092 0544 | D| Action Push_String_Extended,0x544 ; "\x22"
04a9 01cc | | Execute Vector,Catenate
04aa e016 | | Load 0x0,0x16
04ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04ad 0000 0000 | | .XXX[0x3]
04af 0000 | |
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04bd | | .CONST 0x04bd ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0002 | | .CONST 0x0002 ; Number of locals
04b3 INIT_04b0:
04b3 4801 |H | Short_Literal 0x1
04b4 4801 |H | Short_Literal 0x1
04b5 e002 | | Load 0x0,0x2
04b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04b8 e605 | | Load 0x3,0x5
04b9 e002 | | Load 0x0,0x2
04ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04bb 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
04bc 821e | | Call 0x1,0x1e
04bd BODY_04b0:
04bd 00d8 | | Load_Top At_Offset_0
04be 0c01 | | Execute_Immediate Greater_Equal,0x1
04bf 682c |h, | Jump_Zero 0x4ec
04c0 4800 |H | Short_Literal 0x0
04c1 4801 |H | Short_Literal 0x1
04c2 4801 |H | Short_Literal 0x1
04c3 4807 |H | Short_Literal 0x7
04c4 0092 0564 | d| Action Push_String_Extended,0x564 ; "Unable to destroy "
04c6 4820 |H | Short_Literal 0x20
04c7 e802 | | Load 0x4,0x2
04c8 00e0 | | Load_Encached Standard_Cache
04c9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04ca e01c | | Load 0x0,0x1c
04cb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04cc 01cc | | Execute Vector,Catenate
04cd 0092 0565 | e| Action Push_String_Extended,0x565 ; " object"
04cf 01cc | | Execute Vector,Catenate
04d0 e802 | | Load 0x4,0x2
04d1 821f | | Call 0x1,0x1f
04d2 01cc | | Execute Vector,Catenate
04d3 0092 0566 | f| Action Push_String_Extended,0x566 ; ". "
04d5 01cc | | Execute Vector,Catenate
04d6 0092 0567 | g| Action Push_String_Extended,0x567 ; "If locks are suspected, analyze them with "
04d8 01cc | | Execute Vector,Catenate
04d9 0092 0568 | h| Action Push_String_Extended,0x568 ; "Action_Utilities.Lock_Information from !Commands. "
04db 01cc | | Execute Vector,Catenate
04dc 0092 0569 | i| Action Push_String_Extended,0x569 ; "If locks are not the problem, you might try Uncode, "
04de 01cc | | Execute Vector,Catenate
04df 0092 056a | j| Action Push_String_Extended,0x56a ; "Uninstall, or Repair_Directory from "
04e1 01cc | | Execute Vector,Catenate
04e2 0092 056b | k| Action Push_String_Extended,0x56b ; "!Commands.System_Maintenance, but these will result"
04e4 01cc | | Execute Vector,Catenate
04e5 0092 056c | l| Action Push_String_Extended,0x56c ; " in permanently lost disk space."
04e7 01cc | | Execute Vector,Catenate
04e8 e00f | | Load 0x0,0xf
04e9 e402 | | Load 0x2,0x2
04ea 0096 | | Execute Package,Entry
04eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04ec 4800 |H | Short_Literal 0x0
04ed e019 | | Load 0x0,0x19
04ee e402 | | Load 0x2,0x2
04ef 0096 | | Execute Package,Entry
04f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04f1 0000 0000 | | .BLANK 0000[0x7]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0505 | | .CONST 0x0505 ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0002 | | .CONST 0x0002 ; Number of locals
04fb INIT_04f8:
04fb 4800 |H | Short_Literal 0x0
04fc 4801 |H | Short_Literal 0x1
04fd e002 | | Load 0x0,0x2
04fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0500 e603 | | Load 0x3,0x3
0501 e002 | | Load 0x0,0x2
0502 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0503 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0504 821e | | Call 0x1,0x1e
0505 BODY_04f8:
0505 00d8 | | Load_Top At_Offset_0
0506 0c01 | | Execute_Immediate Greater_Equal,0x1
0507 6817 |h | Jump_Zero 0x51f
0508 4800 |H | Short_Literal 0x0
0509 4801 |H | Short_Literal 0x1
050a 4801 |H | Short_Literal 0x1
050b 4807 |H | Short_Literal 0x7
050c 0092 0564 | d| Action Push_String_Extended,0x564 ; "Unable to destroy "
050e 4820 |H | Short_Literal 0x20
050f e802 | | Load 0x4,0x2
0510 00e0 | | Load_Encached Standard_Cache
0511 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0512 e01c | | Load 0x0,0x1c
0513 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0514 01cc | | Execute Vector,Catenate
0515 0092 056d | m| Action Push_String_Extended,0x56d ; " user"
0517 01cc | | Execute Vector,Catenate
0518 e802 | | Load 0x4,0x2
0519 821f | | Call 0x1,0x1f
051a 01cc | | Execute Vector,Catenate
051b e00f | | Load 0x0,0xf
051c e403 | | Load 0x2,0x3
051d 0096 | | Execute Package,Entry
051e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051f 4800 |H | Short_Literal 0x0
0520 e019 | | Load 0x0,0x19
0521 e403 | | Load 0x2,0x3
0522 0096 | | Execute Package,Entry
0523 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0524 0000 0000 | | .BLANK 0000[0x4]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0533 | 3 | .CONST 0x0533 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b e5fc | | Load 0x2,-0x4
052c e5fd | | Load 0x2,-0x3
052d e602 | | Load 0x3,0x2
052e e002 | | Load 0x0,0x2
052f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0530 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0531 8222 | " | Call 0x1,0x22
0532 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0533 TRAP_0528:
0533 0007 | | Action Break_Optional
0534 e402 | | Load 0x2,0x2
0535 e009 | | Load 0x0,0x9
0536 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0537 4802 |H | Short_Literal 0x2
0538 4803 |H | Short_Literal 0x3
0539 0262 | b | Execute Discrete,In_Range
053a 7003 |p | Jump_Nonzero 0x53e
053b 7800 |x | Jump 0x53c
053c 00cc | | Action Pop_Block
053d 7ee8 |~ | Jump 0x426
053e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
053f ; --------------------------------------------------------------------------------------
053f ; STRING TABLE
053f ; --------------------------------------------------------------------------------------
053f 0060 | ` | .STRTAB 0x0060->0x056f ; "<NIL>"
0540 0063 | c | .STRTAB 0x0063->0x0571 ; "Destroy_Library"
0541 0070 | p | .STRTAB 0x0070->0x0579 ; "Existing => \x22"
0542 007b | { | .STRTAB 0x007b->0x057f ; "\x22, Effort_Only => "
0543 008b | | .STRTAB 0x008b->0x0588 ; ", Response => \x22"
0544 0098 | | .STRTAB 0x0098->0x0590 ; "\x22"
0545 0097 | | .STRTAB 0x0097->0x0590 ; "EXCEPTION: "
0546 00a0 | | .STRTAB 0x00a0->0x0596 ; "Destroy_Users"
0547 00ab | | .STRTAB 0x00ab->0x059c ; "Named => \x22"
0548 00b3 | | .STRTAB 0x00b3->0x05a1 ; "Privileges must be enabled before calling this procedure"
0549 00e9 | | .STRTAB 0x00e9->0x05bd ; "PROCESSING "
054a 00f2 | | .STRTAB 0x00f2->0x05c3 ; "Network_Public => RWCOD"
054b 0107 | | .STRTAB 0x0107->0x05ce ; "WORLD"
054c 010a | | .STRTAB 0x010a->0x05d1 ; "s"
054d 0109 | | .STRTAB 0x0109->0x05d1 ; "["
054e 0108 | | .STRTAB 0x0108->0x05d2 ; "]"
054f 0107 | | .STRTAB 0x0107->0x05d2 ; "*** NOTHING RESOLVES TO THIS EXPRESSION ***"
0550 0130 | 0 | .STRTAB 0x0130->0x05e8 ; "DELETING USER "
0551 013c | < | .STRTAB 0x013c->0x05ef ; "!MACHINE.GROUPS."
0552 014a | J | .STRTAB 0x014a->0x05f7 ; "!MACHINE.USERS."
0553 0157 | W | .STRTAB 0x0157->0x05fe ; "!MACHINE.ERROR_LOGS."
0554 0169 | i | .STRTAB 0x0169->0x0608 ; "_@"
0555 0169 | i | .STRTAB 0x0169->0x0609 ; "!MACHINE.SEARCH_LISTS."
0556 017d | } | .STRTAB 0x017d->0x0614 ; "asdjkhkasjhd&^*"
0557 018a | | .STRTAB 0x018a->0x061c ; "PROPAGATE,"
0558 0192 | | .STRTAB 0x0192->0x0621 ; "!USERS."
0559 0197 | | .STRTAB 0x0197->0x0624 ; "Cannot resolve any objects in \x22"
055a 01b4 | | .STRTAB 0x01b4->0x0634 ; "WOULD ATTEMPT TO DESTROY "
055b 01cb | | .STRTAB 0x01cb->0x0640 ; "<CURRENT_USER>"
055c 01d7 | | .STRTAB 0x01d7->0x0647 ; "<>"
055d 01d7 | | .STRTAB 0x01d7->0x0648 ; "@"
055e 01d6 | | .STRTAB 0x01d6->0x0649 ; "PERSEVERE,"
055f 01de | | .STRTAB 0x01de->0x064e ; "<ALL_WORLDS>"
0560 01e8 | | .STRTAB 0x01e8->0x0654 ; "Cannot resolve any users in \x22"
0561 0203 | | .STRTAB 0x0203->0x0662 ; ","
0562 0202 | | .STRTAB 0x0202->0x0663 ; "!USERS"
0563 0206 | | .STRTAB 0x0206->0x0666 ; "Invalid user name \x22"
0564 0217 | | .STRTAB 0x0217->0x066f ; "Unable to destroy "
0565 0227 | ' | .STRTAB 0x0227->0x0678 ; " object"
0566 022c | , | .STRTAB 0x022c->0x067c ; ". "
0567 022c | , | .STRTAB 0x022c->0x067d ; "If locks are suspected, analyze them with "
0568 0254 | T | .STRTAB 0x0254->0x0692 ; "Action_Utilities.Lock_Information from !Commands. "
0569 0284 | | .STRTAB 0x0284->0x06ab ; "If locks are not the problem, you might try Uncode, "
056a 02b6 | | .STRTAB 0x02b6->0x06c5 ; "Uninstall, or Repair_Directory from "
056b 02d8 | | .STRTAB 0x02d8->0x06d7 ; "!Commands.System_Maintenance, but these will result"
056c 0309 | | .STRTAB 0x0309->0x06f0 ; " in permanently lost disk space."
056d 0327 | ' | .STRTAB 0x0327->0x0700 ; " user"
056e 032a | * | .STREND 0x032a->0x0703
056f 3c4e 494c |<NIL| .STRTAB_STRINGS
0703 0000 0000 | | .BLANK 0000[0x5]
0708 ; --------------------------------------------------------------------------------------
0708 ; Debug Table
0708 ; --------------------------------------------------------------------------------------
0708 0004 0012 | | .DEBUG4 0x0004,0x0012,0x2b97,0x0000,0x0001,0x0000
070e 0000 0000 | | .BLANK 0000[0xf2]