DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦9cae82748⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1188cd9

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 0658       | X  |		.CONST	0x0658								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 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 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 0092 04c7  |    |		Action	Push_String_Extended,0x4c7					; "<NIL>"
0012 029d 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call
0014 029d 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call
0016 e001       |    |		Load	0x0,0x1
0017 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0018 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0019 00c6       |    |		Action	Check_Subprogram_Elaborated
001a 00e1       |    |		Load_Encached	Boolean_Cache
001b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
001c e002       |    |		Load	0x0,0x2
001d e003       |    |		Load	0x0,0x3
001e 4800       |H   |		Short_Literal	0x0
001f 0007       |    |		Action	Break_Optional
0020 029d 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call
0022 e001       |    |		Load	0x0,0x1
0023 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0024 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0025 00c6       |    |		Action	Check_Subprogram_Elaborated
0026 00e3       |    |		Load_Encached	Natural_Cache
0027 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0028 e004       |    |		Load	0x0,0x4
0029 e005       |    |		Load	0x0,0x5
002a 4800       |H   |		Short_Literal	0x0
002b 0007       |    |		Action	Break_Optional
002c 029d 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call
002e 029d 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call
0030 029d 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call
0032 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 029d 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call
0036 029d 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call
0038 029d 022b  |   +|		Declare_Subprogram	INIT_0228,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 006d       | m  |		.CONST	0x006d								; Address of begin
0041 0075       | u  |		.CONST	0x0075								; Address of exception handler
0042 0003       |    |		.CONST	0x0003								; Number of locals
0043			INIT_0040:
0043 e006       |    |		Load	0x0,0x6
0044 e007       |    |		Load	0x0,0x7
0045 0092 04c8  |    |		Action	Push_String_Extended,0x4c8					; "Destroy_All ("
0047 e5fc       |    |		Load	0x2,-0x4
0048 01cc       |    |		Execute	Vector,Catenate
0049 0092 04c9  |    |		Action	Push_String_Extended,0x4c9					; ")"
004b 01cc       |    |		Execute	Vector,Catenate
004c 0092 04ca  |    |		Action	Push_String_Extended,0x4ca					; "Of_These => \x22"
004e e5ff       |    |		Load	0x2,-0x1
004f 01cc       |    |		Execute	Vector,Catenate
0050 0092 04cb  |    |		Action	Push_String_Extended,0x4cb					; "\x22, Effort_Only => "
0052 01cc       |    |		Execute	Vector,Catenate
0053 e5fe       |    |		Load	0x2,-0x2
0054 00e1       |    |		Load_Encached	Boolean_Cache
0055 011c       |    |		Execute	Any,Convert_Unchecked
0056 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0057 01cc       |    |		Execute	Vector,Catenate
0058 0092 04cc  |    |		Action	Push_String_Extended,0x4cc					; ", Response => \x22"
005a 01cc       |    |		Execute	Vector,Catenate
005b e5fd       |    |		Load	0x2,-0x3
005c 01cc       |    |		Execute	Vector,Catenate
005d 0092 04cd  |    |		Action	Push_String_Extended,0x4cd					; "\x22"
005f 01cc       |    |		Execute	Vector,Catenate
0060 e5fd       |    |		Load	0x2,-0x3
0061 e008       |    |		Load	0x0,0x8
0062 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0063 00c4       |    |		Action	Make_Default
0064 e008       |    |		Load	0x0,0x8
0065 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0066 c407       |    |		Store	0x2,0x7
0067 e009       |    |		Load	0x0,0x9
0068 0387       |    |		Declare_Variable	Package
0069 00d8       |    |		Load_Top	At_Offset_0
006a 020f       |    |		Execute	Module,Activate
006b 029f 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Call
006d			BODY_0040:
006d 4801       |H   |		Short_Literal	0x1
006e e00a       |    |		Load	0x0,0xa
006f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0070 4800       |H   |		Short_Literal	0x0
0071 00da       |    |		Load_Top	At_Offset_2
0072 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0073 8403       |    |		Call	0x2,0x3
0074 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0075			TRAP_0040:
0075 00da       |    |		Load_Top	At_Offset_2
0076 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0077 010f       |    |		Execute	Exception,Equal
0078 6802       |h   |		Jump_Zero	0x7b
0079 00d8       |    |		Load_Top	At_Offset_0
007a 0101       |    |		Execute	Exception,Reraise
007b 00da       |    |		Load_Top	At_Offset_2
007c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
007d 010f       |    |		Execute	Exception,Equal
007e 6801       |h   |		Jump_Zero	0x80
007f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0080 4800       |H   |		Short_Literal	0x0
0081 4800       |H   |		Short_Literal	0x0
0082 4801       |H   |		Short_Literal	0x1
0083 4808       |H   |		Short_Literal	0x8
0084 0092 04ce  |    |		Action	Push_String_Extended,0x4ce					; "EXCEPTION: "
0086 4800       |H   |		Short_Literal	0x0
0087 4801       |H   |		Short_Literal	0x1
0088 e00b       |    |		Load	0x0,0xb
0089 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
008a 01cc       |    |		Execute	Vector,Catenate
008b e402       |    |		Load	0x2,0x2
008c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
008d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
008e 0000 0000  |    |		.XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00c1       |    |		.CONST	0x00c1								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0004       |    |		.CONST	0x0004								; Number of locals
0093			INIT_0090:
0093 e5fd       |    |		Load	0x2,-0x3
0094 e008       |    |		Load	0x0,0x8
0095 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0096 e008       |    |		Load	0x0,0x8
0097 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0098 011e       |    |		Execute	Any,Convert
0099 e00c       |    |		Load	0x0,0xc
009a e00d       |    |		Load	0x0,0xd
009b 0092 04cf  |    |		Action	Push_String_Extended,0x4cf					; "Destroy_Users ("
009d e5fc       |    |		Load	0x2,-0x4
009e 01cc       |    |		Execute	Vector,Catenate
009f 0092 04c9  |    |		Action	Push_String_Extended,0x4c9					; ")"
00a1 01cc       |    |		Execute	Vector,Catenate
00a2 0092 04d0  |    |		Action	Push_String_Extended,0x4d0					; "Named => \x22"
00a4 e5ff       |    |		Load	0x2,-0x1
00a5 01cc       |    |		Execute	Vector,Catenate
00a6 0092 04cb  |    |		Action	Push_String_Extended,0x4cb					; "\x22, Effort_Only => "
00a8 01cc       |    |		Execute	Vector,Catenate
00a9 e5fe       |    |		Load	0x2,-0x2
00aa 00e1       |    |		Load_Encached	Boolean_Cache
00ab 011c       |    |		Execute	Any,Convert_Unchecked
00ac 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00ad 01cc       |    |		Execute	Vector,Catenate
00ae 0092 04cc  |    |		Action	Push_String_Extended,0x4cc					; ", Response => \x22"
00b0 01cc       |    |		Execute	Vector,Catenate
00b1 e5fd       |    |		Load	0x2,-0x3
00b2 01cc       |    |		Execute	Vector,Catenate
00b3 0092 04cd  |    |		Action	Push_String_Extended,0x4cd					; "\x22"
00b5 01cc       |    |		Execute	Vector,Catenate
00b6 e402       |    |		Load	0x2,0x2
00b7 00c4       |    |		Action	Make_Default
00b8 e008       |    |		Load	0x0,0x8
00b9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00ba c408       |    |		Store	0x2,0x8
00bb e009       |    |		Load	0x0,0x9
00bc 0387       |    |		Declare_Variable	Package
00bd 00d8       |    |		Load_Top	At_Offset_0
00be 020f       |    |		Execute	Module,Activate
00bf 029f 0353  |   S|		Declare_Subprogram	INIT_0350,For_Call
00c1			BODY_0090:
00c1 4801       |H   |		Short_Literal	0x1
00c2 e00a       |    |		Load	0x0,0xa
00c3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00c4 4800       |H   |		Short_Literal	0x0
00c5 00da       |    |		Load_Top	At_Offset_2
00c6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00c7 8404       |    |		Call	0x2,0x4
00c8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00c9 0000 0000  |    |		.BLANK	0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00de       |    |		.CONST	0x00de								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0004       |    |		.CONST	0x0004								; Number of locals
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 e001       |    |		Load	0x0,0x1
00d5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d6 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00d7 e00e       |    |		Load	0x0,0xe
00d8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00d9 02c7       |    |		Declare_Variable	Any
00da 00d8       |    |		Load_Top	At_Offset_0
00db 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00dc e00e       |    |		Load	0x0,0xe
00dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00de			BODY_00d0:
00de e008       |    |		Load	0x0,0x8
00df 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00e0 4802       |H   |		Short_Literal	0x2
00e1 0092 04d1  |    |		Action	Push_String_Extended,0x4d1					; "PROCESSING "
00e3 e402       |    |		Load	0x2,0x2
00e4 01cc       |    |		Execute	Vector,Catenate
00e5 e00f       |    |		Load	0x0,0xf
00e6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00e7 e20f       |    |		Load	0x1,0xf
00e8 00db       |    |		Load_Top	At_Offset_3
00e9 0092 04d2  |    |		Action	Push_String_Extended,0x4d2					; "Network_Public => RWCOD"
00eb e010       |    |		Load	0x0,0x10
00ec 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00ed e20f       |    |		Load	0x1,0xf
00ee 4800       |H   |		Short_Literal	0x0
00ef e402       |    |		Load	0x2,0x2
00f0 e011       |    |		Load	0x0,0x11
00f1 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00f2 e00e       |    |		Load	0x0,0xe
00f3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f4 00da       |    |		Load_Top	At_Offset_2
00f5 0120       |    |		Execute	Any,Is_Value
00f6 6803       |h   |		Jump_Zero	0xfa
00f7 e00e       |    |		Load	0x0,0xe
00f8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f9 7801       |x   |		Jump	0xfb
00fa 00da       |    |		Load_Top	At_Offset_2
00fb e5ff       |    |		Load	0x2,-0x1
00fc e001       |    |		Load	0x0,0x1
00fd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fe 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
00ff 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0100 c403       |    |		Store	0x2,0x3
0101 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0102 e00e       |    |		Load	0x0,0xe
0103 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0104 6027       |`'  |		Indirect_Literal	Discrete,0x12c,{0x00000000, 0x00004000}
0105 e012       |    |		Load	0x0,0x12
0106 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0107 4800       |H   |		Short_Literal	0x0
0108 e403       |    |		Load	0x2,0x3
0109 e00e       |    |		Load	0x0,0xe
010a 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
010b 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
010c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
010d e00e       |    |		Load	0x0,0xe
010e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010f 601c       |`   |		Indirect_Literal	Discrete,0x12c,{0x00000000, 0x00004000}
0110 e012       |    |		Load	0x0,0x12
0111 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0112 4800       |H   |		Short_Literal	0x0
0113 e403       |    |		Load	0x2,0x3
0114 e00e       |    |		Load	0x0,0xe
0115 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0116 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0117 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0118 00d9       |    |		Load_Top	At_Offset_1
0119 e00e       |    |		Load	0x0,0xe
011a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
011b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
011c e00e       |    |		Load	0x0,0xe
011d 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
011e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
011f 6808       |h   |		Jump_Zero	0x128
0120 00da       |    |		Load_Top	At_Offset_2
0121 8013       |    |		Call	0x0,0x13
0122 e20f       |    |		Load	0x1,0xf
0123 0092 04d3  |    |		Action	Push_String_Extended,0x4d3					; "WORLD"
0125 e402       |    |		Load	0x2,0x2
0126 e011       |    |		Load	0x0,0x11
0127 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0128 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0129 0000 0000  |    |		.XXX[0x3]
012b 0000       |    |
012c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 e5fd       |    |		Load	0x2,-0x3
0134 e5fe       |    |		Load	0x2,-0x2
0135 8210       |    |		Call	0x1,0x10
0136 c5fd       |    |		Store	0x2,-0x3
0137 e001       |    |		Load	0x0,0x1
0138 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0139 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
013a c5fc       |    |		Store	0x2,-0x4
013b 4800       |H   |		Short_Literal	0x0
013c a5fb       |    |		Store_Unchecked	0x2,-0x5
013d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
013e 0000 0000  |    |		.XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 e5fd       |    |		Load	0x2,-0x3
0144 0a01       |    |		Execute_Immediate	Plus,0x1
0145 c5fd       |    |		Store	0x2,-0x3
0146 e001       |    |		Load	0x0,0x1
0147 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0148 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
0149 c5fc       |    |		Store	0x2,-0x4
014a 4800       |H   |		Short_Literal	0x0
014b a5fb       |    |		Store_Unchecked	0x2,-0x5
014c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
014d 0000 0000  |    |		.XXX[0x3]
014f 0000       |    |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0163       | c  |		.CONST	0x0163								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0005       |    |		.CONST	0x0005								; Number of locals
0153			INIT_0150:
0153 e001       |    |		Load	0x0,0x1
0154 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0155 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0156 02c7       |    |		Declare_Variable	Any
0157 00db       |    |		Load_Top	At_Offset_3
0158 a402       |    |		Store_Unchecked	0x2,0x2
0159 00e3       |    |		Load_Encached	Natural_Cache
015a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
015b e001       |    |		Load	0x0,0x1
015c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015d 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
015e 02c7       |    |		Declare_Variable	Any
015f 00d8       |    |		Load_Top	At_Offset_0
0160 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0161 029f 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Call
0163			BODY_0150:
0163 00db       |    |		Load_Top	At_Offset_3
0164 e001       |    |		Load	0x0,0x1
0165 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0166 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0167 e5fe       |    |		Load	0x2,-0x2
0168 6814       |h   |		Jump_Zero	0x17d
0169 00cf       |    |		Action	Mark_Auxiliary
016a 780a       |x   |		Jump	0x175
016b 00db       |    |		Load_Top	At_Offset_3
016c 0a01       |    |		Execute_Immediate	Plus,0x1
016d c403       |    |		Store	0x2,0x3
016e 8405       |    |		Call	0x2,0x5
016f e402       |    |		Load	0x2,0x2
0170 e001       |    |		Load	0x0,0x1
0171 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0172 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0173 c402       |    |		Store	0x2,0x2
0174 00c9       |    |		Action	Pop_Auxiliary_Loop
0175 e402       |    |		Load	0x2,0x2
0176 e001       |    |		Load	0x0,0x1
0177 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0178 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0179 6ff1       |o   |		Jump_Zero	0x16b
017a 00ce       |    |		Action	Pop_Auxiliary
017b 00da       |    |		Load_Top	At_Offset_2
017c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017d 00cf       |    |		Action	Mark_Auxiliary
017e 7809       |x   |		Jump	0x188
017f 00db       |    |		Load_Top	At_Offset_3
0180 0a01       |    |		Execute_Immediate	Plus,0x1
0181 c403       |    |		Store	0x2,0x3
0182 e402       |    |		Load	0x2,0x2
0183 e001       |    |		Load	0x0,0x1
0184 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0185 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0186 c402       |    |		Store	0x2,0x2
0187 00c9       |    |		Action	Pop_Auxiliary_Loop
0188 e402       |    |		Load	0x2,0x2
0189 e001       |    |		Load	0x0,0x1
018a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
018c 6ff2       |o   |		Jump_Zero	0x17f
018d 00ce       |    |		Action	Pop_Auxiliary
018e 00da       |    |		Load_Top	At_Offset_2
018f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00da       |    |		Load_Top	At_Offset_2
0194 0f01       |    |		Execute_Immediate	Equal,0x1
0195 6802       |h   |		Jump_Zero	0x198
0196 00ea       |    |		Load_Encached	Null_String_Cache
0197 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0198 0092 04d4  |    |		Action	Push_String_Extended,0x4d4					; "s"
019a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019b 0000 0000  |    |		.BLANK	0000[0x5]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ab       |    |		.CONST	0x01ab								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0003       |    |		.CONST	0x0003								; Number of locals
01a3			INIT_01a0:
01a3 e001       |    |		Load	0x0,0x1
01a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01a6 02c7       |    |		Declare_Variable	Any
01a7 00db       |    |		Load_Top	At_Offset_3
01a8 a402       |    |		Store_Unchecked	0x2,0x2
01a9 029f 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Call
01ab			BODY_01a0:
01ab 00d9       |    |		Load_Top	At_Offset_1
01ac e001       |    |		Load	0x0,0x1
01ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ae 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01af 4800       |H   |		Short_Literal	0x0
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 821d       |    |		Call	0x1,0x1d
01b2 0b00       |    |		Execute_Immediate	Case_Compare,0x0
01b3 700f       |p   |		Jump_Nonzero	0x1c3
01b4 0f01       |    |		Execute_Immediate	Equal,0x1
01b5 7011       |p   |		Jump_Nonzero	0x1c7
01b6 00d9       |    |		Load_Top	At_Offset_1
01b7 e001       |    |		Load	0x0,0x1
01b8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b9 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01ba 0092 04d5  |    |		Action	Push_String_Extended,0x4d5					; "["
01bc 00da       |    |		Load_Top	At_Offset_2
01bd 8403       |    |		Call	0x2,0x3
01be 01cc       |    |		Execute	Vector,Catenate
01bf 0092 04d6  |    |		Action	Push_String_Extended,0x4d6					; "]"
01c1 01cc       |    |		Execute	Vector,Catenate
01c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c3 00d1       |    |		Pop_Control	Pop_Count_1
01c4 0092 04d7  |    |		Action	Push_String_Extended,0x4d7					; "*** NOTHING RESOLVES TO THIS EXPRESSION ***"
01c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 e001       |    |		Load	0x0,0x1
01c9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ca 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01cb 00d9       |    |		Load_Top	At_Offset_1
01cc e001       |    |		Load	0x0,0x1
01cd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ce 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
01cf e001       |    |		Load	0x0,0x1
01d0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01d1 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d3 0000 0000  |    |		.BLANK	0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00da       |    |		Load_Top	At_Offset_2
01dc e014       |    |		Load	0x0,0x14
01dd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01de 6808       |h   |		Jump_Zero	0x1e7
01df 00da       |    |		Load_Top	At_Offset_2
01e0 e001       |    |		Load	0x0,0x1
01e1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01e3 0092 04d8  |    |		Action	Push_String_Extended,0x4d8					; "!USERS"
01e5 01df       |    |		Execute	Vector,Equal
01e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e7 4800       |H   |		Short_Literal	0x0
01e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e9 0000 0000  |    |		.BLANK	0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 020b       |    |		.CONST	0x020b								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0005       |    |		.CONST	0x0005								; Number of locals
01f3			INIT_01f0:
01f3 e001       |    |		Load	0x0,0x1
01f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01f6 02c7       |    |		Declare_Variable	Any
01f7 4801       |H   |		Short_Literal	0x1
01f8 e001       |    |		Load	0x0,0x1
01f9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01fa 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01fb e5ff       |    |		Load	0x2,-0x1
01fc e001       |    |		Load	0x0,0x1
01fd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01fe 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
01ff a402       |    |		Store_Unchecked	0x2,0x2
0200 e001       |    |		Load	0x0,0x1
0201 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0202 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0203 02c7       |    |		Declare_Variable	Any
0204 e001       |    |		Load	0x0,0x1
0205 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0206 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0207 a403       |    |		Store_Unchecked	0x2,0x3
0208 00e1       |    |		Load_Encached	Boolean_Cache
0209 029f 041b  |    |		Declare_Subprogram	INIT_0418,For_Call
020b			BODY_01f0:
020b 00db       |    |		Load_Top	At_Offset_3
020c e001       |    |		Load	0x0,0x1
020d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
020e 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
020f 00cf       |    |		Action	Mark_Auxiliary
0210 7807       |x   |		Jump	0x218
0211 8405       |    |		Call	0x2,0x5
0212 e402       |    |		Load	0x2,0x2
0213 e001       |    |		Load	0x0,0x1
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 e001       |    |		Load	0x0,0x1
021a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
021b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
021c 6ff4       |o   |		Jump_Zero	0x211
021d 00ce       |    |		Action	Pop_Auxiliary
021e 00da       |    |		Load_Top	At_Offset_2
021f e001       |    |		Load	0x0,0x1
0220 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0221 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0222 00da       |    |		Load_Top	At_Offset_2
0223 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0224 0000 0000  |    |		.BLANK	0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0233       | 3  |		.CONST	0x0233								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0003       |    |		.CONST	0x0003								; Number of locals
022b			INIT_0228:
022b 00da       |    |		Load_Top	At_Offset_2
022c e001       |    |		Load	0x0,0x1
022d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
022e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
022f 00db       |    |		Load_Top	At_Offset_3
0230 e001       |    |		Load	0x0,0x1
0231 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0232 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0233			BODY_0228:
0233 e008       |    |		Load	0x0,0x8
0234 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0235 4802       |H   |		Short_Literal	0x2
0236 0092 04d9  |    |		Action	Push_String_Extended,0x4d9					; "DELETING USER "
0238 e402       |    |		Load	0x2,0x2
0239 01cc       |    |		Execute	Vector,Catenate
023a e00f       |    |		Load	0x0,0xf
023b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
023c e20f       |    |		Load	0x1,0xf
023d 00d9       |    |		Load_Top	At_Offset_1
023e e00a       |    |		Load	0x0,0xa
023f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0240 e5fd       |    |		Load	0x2,-0x3
0241 e20f       |    |		Load	0x1,0xf
0242 4800       |H   |		Short_Literal	0x0
0243 0092 04da  |    |		Action	Push_String_Extended,0x4da					; "!MACHINE.GROUPS."
0245 e403       |    |		Load	0x2,0x3
0246 01cc       |    |		Execute	Vector,Catenate
0247 820d       |    |		Call	0x1,0xd
0248 e5fd       |    |		Load	0x2,-0x3
0249 e20f       |    |		Load	0x1,0xf
024a 4800       |H   |		Short_Literal	0x0
024b 0092 04db  |    |		Action	Push_String_Extended,0x4db					; "!MACHINE.USERS."
024d e403       |    |		Load	0x2,0x3
024e 01cc       |    |		Execute	Vector,Catenate
024f 820d       |    |		Call	0x1,0xd
0250 e5fd       |    |		Load	0x2,-0x3
0251 e20f       |    |		Load	0x1,0xf
0252 4800       |H   |		Short_Literal	0x0
0253 0092 04dc  |    |		Action	Push_String_Extended,0x4dc					; "!MACHINE.ERROR_LOGS."
0255 e403       |    |		Load	0x2,0x3
0256 01cc       |    |		Execute	Vector,Catenate
0257 0092 04dd  |    |		Action	Push_String_Extended,0x4dd					; "_@"
0259 01cc       |    |		Execute	Vector,Catenate
025a 820d       |    |		Call	0x1,0xd
025b e5fd       |    |		Load	0x2,-0x3
025c e20f       |    |		Load	0x1,0xf
025d 4800       |H   |		Short_Literal	0x0
025e 0092 04de  |    |		Action	Push_String_Extended,0x4de					; "!MACHINE.SEARCH_LISTS."
0260 e403       |    |		Load	0x2,0x3
0261 01cc       |    |		Execute	Vector,Catenate
0262 0092 04dd  |    |		Action	Push_String_Extended,0x4dd					; "_@"
0264 01cc       |    |		Execute	Vector,Catenate
0265 820d       |    |		Call	0x1,0xd
0266 e20f       |    |		Load	0x1,0xf
0267 4800       |H   |		Short_Literal	0x0
0268 00ea       |    |		Load_Encached	Null_String_Cache
0269 00db       |    |		Load_Top	At_Offset_3
026a e00a       |    |		Load	0x0,0xa
026b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
026c e20f       |    |		Load	0x1,0xf
026d 00d9       |    |		Load_Top	At_Offset_1
026e e00a       |    |		Load	0x0,0xa
026f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0270 e5fd       |    |		Load	0x2,-0x3
0271 e20f       |    |		Load	0x1,0xf
0272 4800       |H   |		Short_Literal	0x0
0273 0092 04da  |    |		Action	Push_String_Extended,0x4da					; "!MACHINE.GROUPS."
0275 e403       |    |		Load	0x2,0x3
0276 01cc       |    |		Execute	Vector,Catenate
0277 820d       |    |		Call	0x1,0xd
0278 e5fd       |    |		Load	0x2,-0x3
0279 e20f       |    |		Load	0x1,0xf
027a 4800       |H   |		Short_Literal	0x0
027b 0092 04db  |    |		Action	Push_String_Extended,0x4db					; "!MACHINE.USERS."
027d e403       |    |		Load	0x2,0x3
027e 01cc       |    |		Execute	Vector,Catenate
027f 820d       |    |		Call	0x1,0xd
0280 e5fd       |    |		Load	0x2,-0x3
0281 e20f       |    |		Load	0x1,0xf
0282 4800       |H   |		Short_Literal	0x0
0283 0092 04dc  |    |		Action	Push_String_Extended,0x4dc					; "!MACHINE.ERROR_LOGS."
0285 e403       |    |		Load	0x2,0x3
0286 01cc       |    |		Execute	Vector,Catenate
0287 0092 04dd  |    |		Action	Push_String_Extended,0x4dd					; "_@"
0289 01cc       |    |		Execute	Vector,Catenate
028a 820d       |    |		Call	0x1,0xd
028b e5fd       |    |		Load	0x2,-0x3
028c e20f       |    |		Load	0x1,0xf
028d 4800       |H   |		Short_Literal	0x0
028e 0092 04de  |    |		Action	Push_String_Extended,0x4de					; "!MACHINE.SEARCH_LISTS."
0290 e403       |    |		Load	0x2,0x3
0291 01cc       |    |		Execute	Vector,Catenate
0292 0092 04dd  |    |		Action	Push_String_Extended,0x4dd					; "_@"
0294 01cc       |    |		Execute	Vector,Catenate
0295 820d       |    |		Call	0x1,0xd
0296 e5fd       |    |		Load	0x2,-0x3
0297 0092 04df  |    |		Action	Push_String_Extended,0x4df					; "PROPAGATE,"
0299 e5fe       |    |		Load	0x2,-0x2
029a 01cc       |    |		Execute	Vector,Catenate
029b 4800       |H   |		Short_Literal	0x0
029c 0092 04e0  |    |		Action	Push_String_Extended,0x4e0					; "!USERS."
029e e403       |    |		Load	0x2,0x3
029f 01cc       |    |		Execute	Vector,Catenate
02a0 820d       |    |		Call	0x1,0xd
02a1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02a2 0000 0000  |    |		.BLANK	0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02c4       |    |		.CONST	0x02c4								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0006       |    |		.CONST	0x0006								; Number of locals
02ab			INIT_02a8:
02ab e001       |    |		Load	0x0,0x1
02ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ad 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
02ae 02c7       |    |		Declare_Variable	Any
02af 00d8       |    |		Load_Top	At_Offset_0
02b0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b1 00e1       |    |		Load_Encached	Boolean_Cache
02b2 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02b3 e001       |    |		Load	0x0,0x1
02b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
02b6 02c7       |    |		Declare_Variable	Any
02b7 4801       |H   |		Short_Literal	0x1
02b8 e001       |    |		Load	0x0,0x1
02b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ba 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02bb e5ff       |    |		Load	0x2,-0x1
02bc e001       |    |		Load	0x0,0x1
02bd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02be 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
02bf a604       |    |		Store_Unchecked	0x3,0x4
02c0 00d8       |    |		Load_Top	At_Offset_0
02c1 821f       |    |		Call	0x1,0x1f
02c2 029f 0443  |   C|		Declare_Subprogram	INIT_0440,For_Call
02c4			BODY_02a8:
02c4 00da       |    |		Load_Top	At_Offset_2
02c5 e001       |    |		Load	0x0,0x1
02c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c7 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
02c8 00da       |    |		Load_Top	At_Offset_2
02c9 e001       |    |		Load	0x0,0x1
02ca 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02cb 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02cc 6811       |h   |		Jump_Zero	0x2de
02cd 4800       |H   |		Short_Literal	0x0
02ce 4801       |H   |		Short_Literal	0x1
02cf 4800       |H   |		Short_Literal	0x0
02d0 4806       |H   |		Short_Literal	0x6
02d1 0092 04e1  |    |		Action	Push_String_Extended,0x4e1					; "Cannot resolve any objects in \x22"
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 01cc       |    |		Execute	Vector,Catenate
02d5 0092 04cd  |    |		Action	Push_String_Extended,0x4cd					; "\x22"
02d7 01cc       |    |		Execute	Vector,Catenate
02d8 e402       |    |		Load	0x2,0x2
02d9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02da 4800       |H   |		Short_Literal	0x0
02db e402       |    |		Load	0x2,0x2
02dc 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02dd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02de e5fe       |    |		Load	0x2,-0x2
02df 6821       |h!  |		Jump_Zero	0x301
02e0 00cf       |    |		Action	Mark_Auxiliary
02e1 7815       |x   |		Jump	0x2f7
02e2 e008       |    |		Load	0x0,0x8
02e3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02e4 4802       |H   |		Short_Literal	0x2
02e5 0092 04e2  |    |		Action	Push_String_Extended,0x4e2					; "WOULD ATTEMPT TO DESTROY "
02e7 e604       |    |		Load	0x3,0x4
02e8 e001       |    |		Load	0x0,0x1
02e9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ea 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
02eb e001       |    |		Load	0x0,0x1
02ec 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ed 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02ee 01cc       |    |		Execute	Vector,Catenate
02ef e00f       |    |		Load	0x0,0xf
02f0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f1 00db       |    |		Load_Top	At_Offset_3
02f2 e001       |    |		Load	0x0,0x1
02f3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f4 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
02f5 c604       |    |		Store	0x3,0x4
02f6 00c9       |    |		Action	Pop_Auxiliary_Loop
02f7 00db       |    |		Load_Top	At_Offset_3
02f8 e001       |    |		Load	0x0,0x1
02f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02fa 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02fb 6fe6       |o   |		Jump_Zero	0x2e2
02fc 00ce       |    |		Action	Pop_Auxiliary
02fd 4800       |H   |		Short_Literal	0x0
02fe e402       |    |		Load	0x2,0x2
02ff 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0300 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0301 e20f       |    |		Load	0x1,0xf
0302 0092 04e3  |    |		Action	Push_String_Extended,0x4e3					; "<CURRENT_USER>"
0304 0092 04e4  |    |		Action	Push_String_Extended,0x4e4					; "<>"
0306 e015       |    |		Load	0x0,0x15
0307 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0308 00db       |    |		Load_Top	At_Offset_3
0309 00db       |    |		Load_Top	At_Offset_3
030a e001       |    |		Load	0x0,0x1
030b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
030c 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
030d 8210       |    |		Call	0x1,0x10
030e c603       |    |		Store	0x3,0x3
030f 00cf       |    |		Action	Mark_Auxiliary
0310 7823       |x#  |		Jump	0x334
0311 e602       |    |		Load	0x3,0x2
0312 0120       |    |		Execute	Any,Is_Value
0313 6804       |h   |		Jump_Zero	0x318
0314 e001       |    |		Load	0x0,0x1
0315 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0316 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0317 7801       |x   |		Jump	0x319
0318 e602       |    |		Load	0x3,0x2
0319 e603       |    |		Load	0x3,0x3
031a 4800       |H   |		Short_Literal	0x0
031b 4801       |H   |		Short_Literal	0x1
031c 4801       |H   |		Short_Literal	0x1
031d 4801       |H   |		Short_Literal	0x1
031e 4801       |H   |		Short_Literal	0x1
031f 4800       |H   |		Short_Literal	0x0
0320 0092 04e5  |    |		Action	Push_String_Extended,0x4e5					; "@"
0322 e604       |    |		Load	0x3,0x4
0323 e001       |    |		Load	0x0,0x1
0324 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0325 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0326 e212       |    |		Load	0x1,0x12
0327 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0328 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0329 e001       |    |		Load	0x0,0x1
032a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
032b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
032c c603       |    |		Store	0x3,0x3
032d c602       |    |		Store	0x3,0x2
032e 00db       |    |		Load_Top	At_Offset_3
032f e001       |    |		Load	0x0,0x1
0330 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0331 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0332 c604       |    |		Store	0x3,0x4
0333 00c9       |    |		Action	Pop_Auxiliary_Loop
0334 00db       |    |		Load_Top	At_Offset_3
0335 e001       |    |		Load	0x0,0x1
0336 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0337 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0338 6fd8       |o   |		Jump_Zero	0x311
0339 00ce       |    |		Action	Pop_Auxiliary
033a 0092 04e6  |    |		Action	Push_String_Extended,0x4e6					; "PERSEVERE,"
033c e5fd       |    |		Load	0x2,-0x3
033d 01cc       |    |		Execute	Vector,Catenate
033e 0092 04e7  |    |		Action	Push_String_Extended,0x4e7					; "<ALL_WORLDS>"
0340 6007       |`   |		Indirect_Literal	Discrete,0x348,{0x00000000, 0x7fffffff}
0341 e605       |    |		Load	0x3,0x5
0342 e016       |    |		Load	0x0,0x16
0343 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0344 8606       |    |		Call	0x3,0x6
0345 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0346 0000 0000  |    |		.XXX[0x2]
0348 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
034c 0000 0000  |    |		.BLANK	0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0360       | `  |		.CONST	0x0360								; Address of begin
0351 03ae       |    |		.CONST	0x03ae								; Address of exception handler
0352 0005       |    |		.CONST	0x0005								; Number of locals
0353			INIT_0350:
0353 e001       |    |		Load	0x0,0x1
0354 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0355 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0356 02c7       |    |		Declare_Variable	Any
0357 e5ff       |    |		Load	0x2,-0x1
0358 8221       | !  |		Call	0x1,0x21
0359 a602       |    |		Store_Unchecked	0x3,0x2
035a 00d8       |    |		Load_Top	At_Offset_0
035b 821f       |    |		Call	0x1,0x1f
035c 029f 0483  |    |		Declare_Subprogram	INIT_0480,For_Call
035e 029f 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Call
0360			BODY_0350:
0360 00db       |    |		Load_Top	At_Offset_3
0361 e001       |    |		Load	0x0,0x1
0362 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0363 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0364 00db       |    |		Load_Top	At_Offset_3
0365 e001       |    |		Load	0x0,0x1
0366 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0367 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0368 6811       |h   |		Jump_Zero	0x37a
0369 4800       |H   |		Short_Literal	0x0
036a 4801       |H   |		Short_Literal	0x1
036b 4800       |H   |		Short_Literal	0x0
036c 4806       |H   |		Short_Literal	0x6
036d 0092 04e8  |    |		Action	Push_String_Extended,0x4e8					; "Cannot resolve any users in \x22"
036f e5ff       |    |		Load	0x2,-0x1
0370 01cc       |    |		Execute	Vector,Catenate
0371 0092 04cd  |    |		Action	Push_String_Extended,0x4cd					; "\x22"
0373 01cc       |    |		Execute	Vector,Catenate
0374 e403       |    |		Load	0x2,0x3
0375 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0376 4800       |H   |		Short_Literal	0x0
0377 e403       |    |		Load	0x2,0x3
0378 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0379 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
037a e5fe       |    |		Load	0x2,-0x2
037b 6821       |h!  |		Jump_Zero	0x39d
037c 00cf       |    |		Action	Mark_Auxiliary
037d 7815       |x   |		Jump	0x393
037e e008       |    |		Load	0x0,0x8
037f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0380 4802       |H   |		Short_Literal	0x2
0381 0092 04e2  |    |		Action	Push_String_Extended,0x4e2					; "WOULD ATTEMPT TO DESTROY "
0383 e602       |    |		Load	0x3,0x2
0384 e001       |    |		Load	0x0,0x1
0385 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0386 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0387 e001       |    |		Load	0x0,0x1
0388 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0389 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
038a 01cc       |    |		Execute	Vector,Catenate
038b e00f       |    |		Load	0x0,0xf
038c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
038d e602       |    |		Load	0x3,0x2
038e e001       |    |		Load	0x0,0x1
038f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0390 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0391 c602       |    |		Store	0x3,0x2
0392 00c9       |    |		Action	Pop_Auxiliary_Loop
0393 e602       |    |		Load	0x3,0x2
0394 e001       |    |		Load	0x0,0x1
0395 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0396 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0397 6fe6       |o   |		Jump_Zero	0x37e
0398 00ce       |    |		Action	Pop_Auxiliary
0399 4800       |H   |		Short_Literal	0x0
039a e403       |    |		Load	0x2,0x3
039b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
039c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
039d 00cf       |    |		Action	Mark_Auxiliary
039e 7807       |x   |		Jump	0x3a6
039f 8605       |    |		Call	0x3,0x5
03a0 e602       |    |		Load	0x3,0x2
03a1 e001       |    |		Load	0x0,0x1
03a2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03a3 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
03a4 c602       |    |		Store	0x3,0x2
03a5 00c9       |    |		Action	Pop_Auxiliary_Loop
03a6 e602       |    |		Load	0x3,0x2
03a7 e001       |    |		Load	0x0,0x1
03a8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03a9 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03aa 6ff4       |o   |		Jump_Zero	0x39f
03ab 00ce       |    |		Action	Pop_Auxiliary
03ac 8604       |    |		Call	0x3,0x4
03ad 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03ae			TRAP_0350:
03ae e403       |    |		Load	0x2,0x3
03af 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03b0 010f       |    |		Execute	Exception,Equal
03b1 6802       |h   |		Jump_Zero	0x3b4
03b2 00d8       |    |		Load_Top	At_Offset_0
03b3 0101       |    |		Execute	Exception,Reraise
03b4 e403       |    |		Load	0x2,0x3
03b5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03b6 010f       |    |		Execute	Exception,Equal
03b7 6801       |h   |		Jump_Zero	0x3b9
03b8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03b9 4800       |H   |		Short_Literal	0x0
03ba 4800       |H   |		Short_Literal	0x0
03bb 4801       |H   |		Short_Literal	0x1
03bc 4808       |H   |		Short_Literal	0x8
03bd 0092 04ce  |    |		Action	Push_String_Extended,0x4ce					; "EXCEPTION: "
03bf 4800       |H   |		Short_Literal	0x0
03c0 4801       |H   |		Short_Literal	0x1
03c1 e00b       |    |		Load	0x0,0xb
03c2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03c3 01cc       |    |		Execute	Vector,Catenate
03c4 e403       |    |		Load	0x2,0x3
03c5 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03c6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03c7 0000       |    |		.XXX[0x1]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cd       |    |		.CONST	0x03cd								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0002       |    |		.CONST	0x0002								; Number of locals
03cb			INIT_03c8:
03cb 00e3       |    |		Load_Encached	Natural_Cache
03cc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03cd			BODY_03c8:
03cd e404       |    |		Load	0x2,0x4
03ce 0120       |    |		Execute	Any,Is_Value
03cf 6804       |h   |		Jump_Zero	0x3d4
03d0 e001       |    |		Load	0x0,0x1
03d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03d2 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
03d3 7801       |x   |		Jump	0x3d5
03d4 e404       |    |		Load	0x2,0x4
03d5 00d9       |    |		Load_Top	At_Offset_1
03d6 4800       |H   |		Short_Literal	0x0
03d7 4801       |H   |		Short_Literal	0x1
03d8 4801       |H   |		Short_Literal	0x1
03d9 4801       |H   |		Short_Literal	0x1
03da 4801       |H   |		Short_Literal	0x1
03db 4800       |H   |		Short_Literal	0x0
03dc 0092 04e5  |    |		Action	Push_String_Extended,0x4e5					; "@"
03de e402       |    |		Load	0x2,0x2
03df e001       |    |		Load	0x0,0x1
03e0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03e1 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03e2 e218       |    |		Load	0x1,0x18
03e3 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
03e4 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
03e5 e001       |    |		Load	0x0,0x1
03e6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03e7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03e8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03e9 c404       |    |		Store	0x2,0x4
03ea e403       |    |		Load	0x2,0x3
03eb 00d9       |    |		Load_Top	At_Offset_1
03ec 0273       | s  |		Execute	Discrete,Plus
03ed c403       |    |		Store	0x2,0x3
03ee 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03ef 0000       |    |		.XXX[0x1]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 0400       |    |		.CONST	0x0400								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0003       |    |		.CONST	0x0003								; Number of locals
03f3			INIT_03f0:
03f3 e001       |    |		Load	0x0,0x1
03f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03f5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03f6 02c7       |    |		Declare_Variable	Any
03f7 00db       |    |		Load_Top	At_Offset_3
03f8 a602       |    |		Store_Unchecked	0x3,0x2
03f9 00d8       |    |		Load_Top	At_Offset_0
03fa e001       |    |		Load	0x0,0x1
03fb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03fc 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03fd e001       |    |		Load	0x0,0x1
03fe 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ff 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0400			BODY_03f0:
0400 00d9       |    |		Load_Top	At_Offset_1
0401 e001       |    |		Load	0x0,0x1
0402 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0403 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0404 c602       |    |		Store	0x3,0x2
0405 00d9       |    |		Load_Top	At_Offset_1
0406 e001       |    |		Load	0x0,0x1
0407 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0408 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0409 6802       |h   |		Jump_Zero	0x40c
040a 00d8       |    |		Load_Top	At_Offset_0
040b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
040c 00d8       |    |		Load_Top	At_Offset_0
040d 0092 04e9  |    |		Action	Push_String_Extended,0x4e9					; ","
040f 01cc       |    |		Execute	Vector,Catenate
0410 00da       |    |		Load_Top	At_Offset_2
0411 8403       |    |		Call	0x2,0x3
0412 01cc       |    |		Execute	Vector,Catenate
0413 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0414 0000 0000  |    |		.BLANK	0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0422       | "  |		.CONST	0x0422								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0002       |    |		.CONST	0x0002								; Number of locals
041b			INIT_0418:
041b e402       |    |		Load	0x2,0x2
041c e001       |    |		Load	0x0,0x1
041d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
041e 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
041f e001       |    |		Load	0x0,0x1
0420 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0421 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0422			BODY_0418:
0422 00d8       |    |		Load_Top	At_Offset_0
0423 8220       |    |		Call	0x1,0x20
0424 680e       |h   |		Jump_Zero	0x433
0425 00e1       |    |		Load_Encached	Boolean_Cache
0426 e001       |    |		Load	0x0,0x1
0427 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0428 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0429 e402       |    |		Load	0x2,0x2
042a e001       |    |		Load	0x0,0x1
042b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
042c 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
042d e403       |    |		Load	0x2,0x3
042e e001       |    |		Load	0x0,0x1
042f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0430 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0431 c404       |    |		Store	0x2,0x4
0432 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0433 e008       |    |		Load	0x0,0x8
0434 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0435 4806       |H   |		Short_Literal	0x6
0436 0092 04ea  |    |		Action	Push_String_Extended,0x4ea					; "Invalid user name \x22"
0438 00db       |    |		Load_Top	At_Offset_3
0439 01cc       |    |		Execute	Vector,Catenate
043a 0092 04cd  |    |		Action	Push_String_Extended,0x4cd					; "\x22"
043c 01cc       |    |		Execute	Vector,Catenate
043d e00f       |    |		Load	0x0,0xf
043e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
043f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 044d       | M  |		.CONST	0x044d								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0002       |    |		.CONST	0x0002								; Number of locals
0443			INIT_0440:
0443 4801       |H   |		Short_Literal	0x1
0444 4801       |H   |		Short_Literal	0x1
0445 e001       |    |		Load	0x0,0x1
0446 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0447 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0448 e605       |    |		Load	0x3,0x5
0449 e001       |    |		Load	0x0,0x1
044a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
044b 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
044c 821d       |    |		Call	0x1,0x1d
044d			BODY_0440:
044d 00d8       |    |		Load_Top	At_Offset_0
044e 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
044f 6828       |h(  |		Jump_Zero	0x478
0450 4800       |H   |		Short_Literal	0x0
0451 4801       |H   |		Short_Literal	0x1
0452 4801       |H   |		Short_Literal	0x1
0453 4807       |H   |		Short_Literal	0x7
0454 0092 04eb  |    |		Action	Push_String_Extended,0x4eb					; "Unable to destroy "
0456 4820       |H   |		Short_Literal	0x20
0457 e802       |    |		Load	0x4,0x2
0458 00e0       |    |		Load_Encached	Standard_Cache
0459 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
045a e017       |    |		Load	0x0,0x17
045b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
045c 01cc       |    |		Execute	Vector,Catenate
045d 0092 04ec  |    |		Action	Push_String_Extended,0x4ec					; " object"
045f 01cc       |    |		Execute	Vector,Catenate
0460 e802       |    |		Load	0x4,0x2
0461 821e       |    |		Call	0x1,0x1e
0462 01cc       |    |		Execute	Vector,Catenate
0463 0092 04ed  |    |		Action	Push_String_Extended,0x4ed					; ". "
0465 01cc       |    |		Execute	Vector,Catenate
0466 0092 04ee  |    |		Action	Push_String_Extended,0x4ee					; "If locks are suspected, analyze them with "
0468 01cc       |    |		Execute	Vector,Catenate
0469 0092 04ef  |    |		Action	Push_String_Extended,0x4ef					; "Action_Utilities.Lock_Information from !Commands. "
046b 01cc       |    |		Execute	Vector,Catenate
046c 0092 04f0  |    |		Action	Push_String_Extended,0x4f0					; "If locks are not the problem, you might try Uncode, "
046e 01cc       |    |		Execute	Vector,Catenate
046f 0092 04f1  |    |		Action	Push_String_Extended,0x4f1					; "Uninstall, or Repair_Directory from "
0471 01cc       |    |		Execute	Vector,Catenate
0472 0092 04f2  |    |		Action	Push_String_Extended,0x4f2					; "!Commands.System_Maintenance, but BE CAREFUL."
0474 01cc       |    |		Execute	Vector,Catenate
0475 e402       |    |		Load	0x2,0x2
0476 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0477 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0478 4800       |H   |		Short_Literal	0x0
0479 e402       |    |		Load	0x2,0x2
047a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
047b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
047c 0000 0000  |    |		.BLANK	0000[0x4]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 048d       |    |		.CONST	0x048d								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0002       |    |		.CONST	0x0002								; Number of locals
0483			INIT_0480:
0483 4800       |H   |		Short_Literal	0x0
0484 4801       |H   |		Short_Literal	0x1
0485 e001       |    |		Load	0x0,0x1
0486 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0487 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0488 e603       |    |		Load	0x3,0x3
0489 e001       |    |		Load	0x0,0x1
048a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
048b 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
048c 821d       |    |		Call	0x1,0x1d
048d			BODY_0480:
048d 00d8       |    |		Load_Top	At_Offset_0
048e 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
048f 6816       |h   |		Jump_Zero	0x4a6
0490 4800       |H   |		Short_Literal	0x0
0491 4801       |H   |		Short_Literal	0x1
0492 4801       |H   |		Short_Literal	0x1
0493 4807       |H   |		Short_Literal	0x7
0494 0092 04eb  |    |		Action	Push_String_Extended,0x4eb					; "Unable to destroy "
0496 4820       |H   |		Short_Literal	0x20
0497 e802       |    |		Load	0x4,0x2
0498 00e0       |    |		Load_Encached	Standard_Cache
0499 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
049a e017       |    |		Load	0x0,0x17
049b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
049c 01cc       |    |		Execute	Vector,Catenate
049d 0092 04f3  |    |		Action	Push_String_Extended,0x4f3					; " user"
049f 01cc       |    |		Execute	Vector,Catenate
04a0 e802       |    |		Load	0x4,0x2
04a1 821e       |    |		Call	0x1,0x1e
04a2 01cc       |    |		Execute	Vector,Catenate
04a3 e403       |    |		Load	0x2,0x3
04a4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04a5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04a6 4800       |H   |		Short_Literal	0x0
04a7 e403       |    |		Load	0x2,0x3
04a8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04a9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04aa 0000 0000  |    |		.BLANK	0000[0x6]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3       |    |		.CONST	0x04b3								; Address of begin
04b1 04bb       |    |		.CONST	0x04bb								; Address of exception handler
04b2 0001       |    |		.CONST	0x0001								; Number of locals
04b3			BODY_04b0:
04b3			INIT_04b0:
04b3 e5fc       |    |		Load	0x2,-0x4
04b4 e5fd       |    |		Load	0x2,-0x3
04b5 e602       |    |		Load	0x3,0x2
04b6 e001       |    |		Load	0x0,0x1
04b7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04b8 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
04b9 8222       | "  |		Call	0x1,0x22
04ba 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04bb			TRAP_04b0:
04bb 0007       |    |		Action	Break_Optional
04bc e402       |    |		Load	0x2,0x2
04bd e008       |    |		Load	0x0,0x8
04be 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04bf 4802       |H   |		Short_Literal	0x2
04c0 4803       |H   |		Short_Literal	0x3
04c1 0262       | b  |		Execute	Discrete,In_Range
04c2 7003       |p   |		Jump_Nonzero	0x4c6
04c3 7800       |x   |		Jump	0x4c4
04c4 00cc       |    |		Action	Pop_Block
04c5 7ee5       |~   |		Jump	0x3ab
04c6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04c7 ; --------------------------------------------------------------------------------------
04c7 ; STRING TABLE
04c7 ; --------------------------------------------------------------------------------------
04c7 005c       | \  |		.STRTAB	0x005c->0x04f5							; "<NIL>"
04c8 005f       | _  |		.STRTAB	0x005f->0x04f7							; "Destroy_All ("
04c9 006a       | j  |		.STRTAB	0x006a->0x04fe							; ")"
04ca 0069       | i  |		.STRTAB	0x0069->0x04fe							; "Of_These => \x22"
04cb 0074       | t  |		.STRTAB	0x0074->0x0505							; "\x22, Effort_Only => "
04cc 0084       |    |		.STRTAB	0x0084->0x050e							; ", Response => \x22"
04cd 0091       |    |		.STRTAB	0x0091->0x0515							; "\x22"
04ce 0090       |    |		.STRTAB	0x0090->0x0516							; "EXCEPTION: "
04cf 0099       |    |		.STRTAB	0x0099->0x051b							; "Destroy_Users ("
04d0 00a6       |    |		.STRTAB	0x00a6->0x0523							; "Named => \x22"
04d1 00ae       |    |		.STRTAB	0x00ae->0x0528							; "PROCESSING "
04d2 00b7       |    |		.STRTAB	0x00b7->0x052d							; "Network_Public => RWCOD"
04d3 00cc       |    |		.STRTAB	0x00cc->0x0539							; "WORLD"
04d4 00cf       |    |		.STRTAB	0x00cf->0x053b							; "s"
04d5 00ce       |    |		.STRTAB	0x00ce->0x053c							; "["
04d6 00cd       |    |		.STRTAB	0x00cd->0x053c							; "]"
04d7 00cc       |    |		.STRTAB	0x00cc->0x053d							; "*** NOTHING RESOLVES TO THIS EXPRESSION ***"
04d8 00f5       |    |		.STRTAB	0x00f5->0x0552							; "!USERS"
04d9 00f9       |    |		.STRTAB	0x00f9->0x0555							; "DELETING USER "
04da 0105       |    |		.STRTAB	0x0105->0x055c							; "!MACHINE.GROUPS."
04db 0113       |    |		.STRTAB	0x0113->0x0564							; "!MACHINE.USERS."
04dc 0120       |    |		.STRTAB	0x0120->0x056c							; "!MACHINE.ERROR_LOGS."
04dd 0132       | 2  |		.STRTAB	0x0132->0x0576							; "_@"
04de 0132       | 2  |		.STRTAB	0x0132->0x0577							; "!MACHINE.SEARCH_LISTS."
04df 0146       | F  |		.STRTAB	0x0146->0x0582							; "PROPAGATE,"
04e0 014e       | N  |		.STRTAB	0x014e->0x0587							; "!USERS."
04e1 0153       | S  |		.STRTAB	0x0153->0x058a							; "Cannot resolve any objects in \x22"
04e2 0170       | p  |		.STRTAB	0x0170->0x059a							; "WOULD ATTEMPT TO DESTROY "
04e3 0187       |    |		.STRTAB	0x0187->0x05a6							; "<CURRENT_USER>"
04e4 0193       |    |		.STRTAB	0x0193->0x05ad							; "<>"
04e5 0193       |    |		.STRTAB	0x0193->0x05ae							; "@"
04e6 0192       |    |		.STRTAB	0x0192->0x05af							; "PERSEVERE,"
04e7 019a       |    |		.STRTAB	0x019a->0x05b4							; "<ALL_WORLDS>"
04e8 01a4       |    |		.STRTAB	0x01a4->0x05ba							; "Cannot resolve any users in \x22"
04e9 01bf       |    |		.STRTAB	0x01bf->0x05c8							; ","
04ea 01be       |    |		.STRTAB	0x01be->0x05c9							; "Invalid user name \x22"
04eb 01cf       |    |		.STRTAB	0x01cf->0x05d2							; "Unable to destroy "
04ec 01df       |    |		.STRTAB	0x01df->0x05db							; " object"
04ed 01e4       |    |		.STRTAB	0x01e4->0x05df							; ". "
04ee 01e4       |    |		.STRTAB	0x01e4->0x05e0							; "If locks are suspected, analyze them with "
04ef 020c       |    |		.STRTAB	0x020c->0x05f5							; "Action_Utilities.Lock_Information from !Commands. "
04f0 023c       | <  |		.STRTAB	0x023c->0x060e							; "If locks are not the problem, you might try Uncode, "
04f1 026e       | n  |		.STRTAB	0x026e->0x0628							; "Uninstall, or Repair_Directory from "
04f2 0290       |    |		.STRTAB	0x0290->0x063a							; "!Commands.System_Maintenance, but BE CAREFUL."
04f3 02bb       |    |		.STRTAB	0x02bb->0x0650							; " user"
04f4 02be       |    |		.STREND 0x02be->0x0653
04f5 3c4e 494c  |<NIL|		.STRTAB_STRINGS
0653 0000 0000  |    |		.BLANK	0000[0x5]
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug Table
0658 ; --------------------------------------------------------------------------------------
0658 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0x59b9,0x0000,0x0001,0x0000
065e 0000 0000  |    |		.BLANK	0000[0x1a2]