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

⟦c60d0f4df⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe

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